IMD 1.17: 29/05/2011 18:12:44 deltasoft multi user basic for turbodos 1.4 ååååååååååååååååå ÿåÿÿÿÿÿÿÿÿÿÿ?þåþåþÿÿÿÿÿÿÿÿÿÿÿÿÿÿ-WYSE- TDSCMM-001 LIB CMM-001 MSG CMM-002 LIB CMM-002 MSGCUSDEL DO  CUSMAN BAS CUSMAN FRM CUSMAS DEF CUSMAS DTALCUSMAS KEYCUSREP BASCUSREP FRM CUSREP1 BAS CUSREP2 BAS CUSREP3 BAS CUSREP4 BAS DBASIC COM€ !DBASIC COM_"#$%&'DBERR MSGf()*+,-.DBREF MSG€/0123456DBREF MSGA789:;DES BAS <DES FRM=>GENMSG COM ?KED BAS@KEYSORT COMABMENU COMCMENU01 DORGANIZECOMhEFGHIJKRENUM COMLMRENUM DO NSDU COMnOPQRSTUåååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå; BLANK FILE FOR USE WITH BLDDB.DO ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå# Global HELP screen PROGAM: BASCMM FORMAT FILE: FORMCMM SCREEN: CMM-001 Entry screen for customer master file (CUSMAS.DTA) maintenance program. Space bar to continue...| # SELECT field Select _ A file maintenance operation on CUSMAS.DTA can be selected from the option list below: 1 To add a new customer record 2 To update an existing customer record or 3 To return to the operating system. Press the HELP key for further information or space bar to continue...| # KEY field KEY _____ If option 1 or 2 is selected, the KEY field should contain either a new key or an existing key. The key is five alphabetic characters in length con- structed as follows: Character 1-4 First four letters of customer's last name Character 5 First letter of customer's first name if option 1 is selected, a new key must be entered in the KEY field or an error will occur.  If option 2 is selected, an existing key must be entered in the KEY field or an error will occur. Press the HELP key for further information or space bar to continue...| eration on CUSMAS.DTA can be selected from the option list below: 1 To add a new customer record 2 To update an existing customer record or 3 To return to the operating system. Press the HELP key for further information or space bar to continue...| # KEY field KEY _____ If option 1 or 2 is selected, the KEY field should contain either a new key or an existing key. The key is five alphabetic characters in length con- structed as follows: Character 1-4 First four letters of customer's last name Character 5 First letter of customer's first name if option 1 is selected, a new key must be entered in the KEY field or an error will occur.  PROGAM: BASCMM FORMAT FILE: FORMCMM SCREEN: CMM-001 Entry screen for customer master file (CUSMAS.DTA) mainte Select _ A file maintenance operation on CUSMAS.DTA can be selected from the option list below:  KEY _____ If option 1 or 2 is selected, the KEY field should contain either a new key or an existing key. Tnance program. Space bar to continue... 1 To add a new customer record 2 To update an existing customer record  or 3 To return to the operating system. Press the HELP key for further information or space bar to continue...he key is five alphabetic characters in length con- structed as follows: Character 1-4 First four letters of customer's last name Character 5 First letter of customer's first name if option 1 is selected, a new key must be entered in the KEY field or an error will occur. If option 2 is selected, an existing key must be entered in the KEY fi eld or an error will occur. Press the HELP key for further information or space bar to continue... KEY _____ If option 1 or 2 is selected, the KEY field should contain either a new key or an existing key. Tnance program. Space bar to continue... 1 To add a new customer record 2 To update an existing customer record  or 3 To return to the operating system. Press the HELP key for further information or space bar to continue...he key is five alphabetic characters in length con- structed as follows: Character 1-4 First four letters of customer's last name Character 5 First letter of customer's first name if option 1 is selected, a new key must # Global HELP screen Program: BASCMM Format File: FORMCMM Screen: CMM-002 This screen is used for creating new and updating existing customer master file (CUSMAS.DTA) records. NOTE: Access to the STATUS field is allowed only after function key 1 (F1) is pressed. Press space bar to continue...| # NAME field Enter the customer's name in the order: First name Middle initial Last name Press the HELP key for more information or space bar to continue...| # ADDRESS field Enter the customer's street address or P.O. Box number. Press the HELP key for more information or space bar to continue...| # CITY/STATE field Enter the customer's city and state separated by a comma. Press the HELP key for more information or space bar to continue...| # ZIP field Enter the customer's five digit postal zip code. Press the HELP key for more information or space bar to continue...| # STATUS field Enter the current status code from the following list only: A for an Active customer I for an Inactive customer D for a customer to be Deleted Press the HELP key for more information or space bar to continue...| # BALANCE field Enter the customer's current account balance. Press the HELP key for more information or space bar to continue...| nue...| # ADDRESS field Enter the customer's street address or P.O. Box number. Press the HELP key for more information or space bar to continue...| # CITY/STATE field Enter the customer's city and state separated by a comma. Press the HELP key for more information or space bar to continue...| # ZIP field Enter the customer's five digit postal zip code. Press the HELP key for more information or space bar to continue...| # STATUS field E Program: BASCMM Format File: FORMCMM Screen: CMM-002 This screen is used for creating new and updating existi Enter the customer's name in the order: First name Middle initial Last name Press the HE Enter the customer's street address or P.O. Box number. Press the HELP key for more information or space ba Enter the customer's city and state separated by a comma. Press the HELP key for more information or space Enter the customer's five digit postal zip code. Press the HELP key for more information or space bar to co Enter the current status code from the following list only: A for an Active customer Enter the customer's current account balance. Press the HELP key for more information or space bar to conting customer master file (CUSMAS.DTA) records. NOTE: Access to the STATUS field is allowed only after function key 1 (F1) is pressed. Press space bar to continue...LP key for more information or space bar to continue...r to continue...bar to continue...ntinue... I for an Inactive customer D for a customer to be Deleted Press the HELP key for more information or space bar to continue...nue...DELETE CUSMAS.KEY CUSMAS.TMP ORGANIZE CUSMAS.DTA,D,,101,"D",CUSMAS.TMP,D,120,Y,N RENAME CUSMAS.TMP CUSMAS.DTA ;N ORGANIZE CUSMAS.DTA,D,1,5,CUSMAS.KEY,Y,N r to continue...bar to continue...ntinue... I for an Inactive customer D for a customer to be Deleted Press the HELP key for more information or space bar to continue...nue...åû1| CUSTOOMER MASTER MAINTENANCE PROGRAM >CUSMAN< | ž CUSMAN.BAS | | INITIALIZE VARIABLES œ ¢ £ | !  CNAME$*30,CADRS$*30,CCITY$*30 ,¢ #1: "NAME=CUSMAS.DTA,SHR,RANDOM",Ø ë 450 #%¢ #2: "WS,NAME=CUSMAN.FRM,RECL=170" (SEL$="0":IND$="0000" -| 2| SELECT TASK 7| <CUST$=" ":IND$(1:3)="100" A*‘ #2,æ 70,å "CMM-001",ä IND$: SEL$,CUST$ F „ C 1,C 5 K“ #2,æ 70: SEL$,CUST$ PIND$(4:4)="1" U� º(SEL$) ˆ 125,260,425 Z| _ | PROCESS TASK NUMBER SELECT ø d| i IND$="1100" n2� #2,æ 115,ä IND$:"TASK NUMBER SELECTED INVALID" s „ à 7,C 40 xˆ 75 }| ‚| ADD Ü CUSTOMER ‡| Œ;“ #1,æ 145,è=CUST$: î 180 | CONTINUE AT 195 ƒ NO è FOUND ‘„ à 6,3*C 30,C 5,C 1,ZD 8.2 –| ›| PROCESS è ALREADY IN FILE ø  | ¥ IND$="1011" ª)� #2,æ 115,ä IND$:"KEY ALREADY IN FILE" ¯ˆ 75 ´BAL=0:IND$(1:3)="100" ¹=‘ #2,æ 190,å "CMM-002",ä IND$: CUST$,BAL,"Add New Customer" ¾„ C 5,à 102,N 8.2,à 150,C 20 Ã1“ #2,æ 200: CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL È„ 3*C 30,C 5,C 1,N 8.2 Í.ƒ STAT$<>"A" œ STAT$<>"I" œ STAT$<>"D" ‡ 225 Ò7‘ #1,æ 215: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL ׄ C 5,3*C 30,C 5,C 1,ZD 8.2 ܈ 60 á| æ| PROCESS È ø ë| ðIND$(2:2)="1" õ.� #2,æ 250,ä IND$: "STATUS MUST BE A I OR D" ú„ à 110,C 40 ÿˆ 195 |  | UPDATE CUSTOMER | IND$(1:3)="101" ?“ #1,æ 285,è=CUST$: CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL î 335 „ à 6,3*C 30,C 5,C 1,ZD 8.2 "`‘ #2,æ 295,å "CMM-002",ä IND$: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL,"Update Old Customer" ''„ C 5,3*C 30,C 5,C 1,N 8.2,à 150,C 20 ,1“ #2,æ 305: CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL 1„ 3*C 30,C 5,C 1,N 8.2 6 ƒ Ç=1 ‡ 365 ;.ƒ STAT$<>"A" œ STAT$<>"I" œ STAT$<>"D" ‡ 395 @1� #1,æ 285: CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL EIND$(4:4)="1" Jˆ 60 O| T| PROCESS NO è IN FILE ø Y| ^ IND$="1011" c(� #2,æ 115,ä IND$:" KEY NOT IN FILE" hˆ 75 m| r| PROCESS È CHANGE w| |IND$(2:4)="100" �� #2,æ 250,ä IND$: †ˆ 300 ‹| �| PROCESS È ø •| šIND$(2:4)="101" Ÿ.� #2,æ 250,ä IND$: "STATUS MUST BE A I OR D" ¤ˆ 300 ©| ® | ¡ PROGRAM ³| ¸ © #2::© #1: ½ ª "MENU" Â| Ç?| CREATE CUSMAS.DTA ƒ IT DOES › EXIST; OTHERWISE REPORT I/O ø Ì| Ñ+ƒ Å<>58 ‡ ‚ "I/O ERROR IN CUSMAS FILES":¡ Ö?¢ #1: "NAME=CUSMAS.DTA,NEW,RECL=120,KEYL=5,KEYP=1,RANDOM",Ø,Õ Ûˆ 35 ÿÿøTE CUSTOMER | IND$(1:3)="101" ?“ #1,æ 285,è=CUST$: CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL î 335 „ à 6,3*C 30,C 5,C 1,ZD 8.2 "`‘ #2,æ 295,å "CMM-002",ä IND$: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL,"Update Old Customer" ''„ C 5,3*C 30,C 5,C 1,N 8.2,à 150,C 20 ,1“ #2,æ 305: CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL 1„ 3*C 30,C 5,C 1,N 8.2 6 ƒ Ç=1 ‡ 365 ;.ƒ STAT$<>"A" œ STAT$<>"I" œ STAT$<>"D" ‡ 395 @1� #1,æ 285: CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL EIND$(4:4)="1" Jˆ 60 O| T| PROCESS NO è IN FILE ø Y| ^ IND$="1011" c(� #2,æ 115,ä IND$:" KEY NOT IN FILE" hˆ 75 m| r| PROCESS È CHANGE w| |IND$(2:4)="100" �� #2,æ 250,ä IND$: †ˆ 300 ‹| �| PROCESS È ø •| šIND$(2:4)="101" Ÿ.� #2,æ 250,ä IND$: "STATUS MUST BE A I OR D" ¤åCMM-001 CMM-002 ÿÿÿÿÿÿ$€€ ACME HOME PRODUCTS, INC. &€ CUSTOMER MASTER FILE MAINTENANCE*€1...Add New Customer,€2...Update Old Customer.€ 3...Finished1€SelectÀ€3€Key�€€(7€Menu Selection7H€CMM-001ÿ€€ ACME HOME PRODUCTS, INC. MóM,Mî4M`M_$!€ Customer Master File Maintenance$€Key€&€Name€€€(€Address€€€*€ City/State€ €€,€Zip CodeÀ €€. €Status (A,I,D)€€0€BalanceÄ€€€(€7I€€CMM-002ÿ€Balance(A,I,D)e Maintenance€(OOOOOOOOOOOOOOOOOOOOOOOOOOOOOååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå File Name: CUSMAS.DTA Record Length: 120 (2048 MAX) Key Position: 1 Key Length: 5 ______________________________________________________________________ | Field Description | Variable | FORM | Start | End | | | Name | Spec | Size | Pos | Pos | |____________________________|__________|______|______|_______|______| |Key--first four letters of | CUST$ | C | 5 | 1 | 5 | |last name plus first letter | | | | | | |of first name | | | | | | |____________________________|__________|______|______|_______|______| |Customer name | CNAME$ | C | 30 | 6 | 35 | |____________________________|__________|______|______|_______|______| |Customer address | CADRS$ | C | 30 | 36 | 65 | |____________________________|__________|______|______|_______|______| |Customer city, state | CCITY$ | C | 30 | 66 | 95 | |____________________________|__________|______|______|_______|______| |Customer zip | CZIP$ | C | 5 | 96 | 100 | |____________________________|__________|______|______|_______|______| |Status (A=active, I=inactive| STAT$ | C | 1 | 101 | 101 | |D=delete) | | | | | | |____________________________|__________|______|______|_______|______| |Year-to-date balance | BAL | N | 8.2 | 102 | 109 | |____________________________|__________|______|______|_______|______|  | CNAME$ | C | 30 | 6 | 35 | |____________________________|__________|______|______|_______|______| |Customer address | CADRS$ | C | 30 | 36 | 65 | |____________________________|__________|______|______xP54I00000000 YORKMMichael York P.O. Box 49 Alto, TX 7CHAPHHenry Chapman 1600 Rice Rd Tyler, TX 75701A00010000 SMITMMary Smith 645 W. Houston Tyler, TX 75702A00042500 READJJohnny Read 26 Amherst Dr. Arp, TX 75754I00050000 BUSHDDavid Bush Rt. 20 Box 78 Tyler, TX 75708A00046500 BRINAAnn Brink Rt. 3 Box 45 Lindale, TX 75771I00004500 POLKEEarl T. Polk 78 Greenbrair Rd. Whitehouse, TX 75791I00063000 WIGGLLarry S. Wiggs Sr. 589 Elm St. Dallas, TX 75083I°0007500 LUKERRobert Luke Jr. 81 Broadway Blvd.  Shrevesport, LA 70722A°0045600 GARVJJohn W. Garvey 320 N. Crestway Longview, TX 76353A00023000 CATTLL. E. Catterson 82 Jackson Tyler, TX 75035A°0008500 SHAWJJoe Shaw III 761/2 E. Front St. Houston, TX 77022I00094650 SHEPDDaniel Shepherd 603 Viewcrest Lane Crockett, TX 75835I00001000 HUNTRRhonda S. Huntley 666 Old Omen Rd. Mineola, TX 75773A00002325 IRA DD. Wilson Ira 9025 Henderson Hwy. Tyler, TX 75701A00100000 SMALCC. B. Small Rt.4 Box 54 Ben Wheeler, TX 75754I00000000 WESTFFrank West 47 Bolder Blvd. Denver, CO 14090A00100000 CLARNNancy Clark P.O. Box 650 Whiterock, OK 74687A°0078000 BRYARRon Bryant 76 Charles Lane Oceanside, CA 14140I00065400 LINDPPaul Lindsey 37 Goldriver Falls San Antonio, TX 77068A00100000 THEDHHarry Thedford 71 Walnut Dr. Palestine, TX 75750A00003090 ETRENEast Texas Rentals Loop 323 & Van Hwy Tyler, TX 75703A00756000 CAPEDCape Drilling Company 657 Bay St. Freeport, LA 65778A00000000 FASCLFashion Cleaners 2212 W. Ervin Rusk, TX 75785I00004000 DAVBRDavis Boat Rentals South Harbor; Lake Palestine Frankston, TX 75763A00020000 DIXMODixie Motel 729 N. Timber  Waco, TX 76701A00034570 TYLUNTyler Uniform Company 6600 Kite St. Tyler, TX 75701I°0085000 ELDEJJack Elder 45 Pine Ridge Rd. Pittsburg, TX 75685A00001000 WEESTTerry Weese 117 Alpine Troup, TX 75789I00057500 ROONSSam Rooney 2532 Lesson Lane Quitman, TX 75474A00076780 MONRBBilly Monroe 1702 Vosemite Arp, TX 75750I00005600 CREECCharles Creek Rt. 7 Lot 409 Bullard, TX 75757A00018075 HICKMMaxwell Hicks Jr. 829 Younger St. Hawkins, TX 75765A°0004300 ALEXSStephen Alexander 7300 Grand Apt.#124 Longview, TX 75601I00038000 SOUPISouthern Pines Lumber 7460 Alberta Henderson, TX 75652I00007315 WEEVKKenneth Weever 1401 Sequoia Denton, TX 76204A00059300 STAAPStandard Auto Parts 4578 South Park Dr. Fairfield, TX 75840A00058220 ROBEMMike Roberts 72 Nutbush Van, TX 75790I00000000 BIRDJJ. D. Bird 930 Jan Athens, TX 75751I00000000 TARPRRonald Tarpley 797 Red Oak Gladewater, FL 13023A00002300 AIREQAircraft Equipment & Parts 467 Airline Dr. Houston, TX 77022A00034565 MINETTom Minership Jr. 45 Lake Dr. Slopeside, Mexico 92092A00056790 HOLDSSteve Holdstate Rt. 24 Box 47 Verch, MA 15124A00125420 DULPBBill Dulpen 400 Hillshire Rd Fort Worth, TX 75784A00001232 SAUNFFrank Saunders 300 Red Dr. Battle Creek, MI 45154A00012387 KEY PPeter Key Pelican's Cove Lot#47 Miami, FL 12013I00000000 UNDEKKaren Underwood 98 Kite St. Pinecrest, MI 57948A00089497 ADAPLAdair Plumbing 838 N. Moore Shrevesport, LA 70722A°0004490 PLANRRobert W. Plant 93 Laghter Falls Cental, OH 10703A°0035047 CANNJJames Canner Rt. 4 Box 6845 Lindale, TX 75771I00000000 LIONKKeith Lions 83 Cedarcreek Jacksonville, FL 13075A00007500 CROSJJack Cross  359 Grandview Dallas, TX 76340I00000000 PAULLLarry S. Paul 82 W. Persimmon Washington D.C. 10882A00840000 TURELTurner Electrical Supplies 7100 E. 2nd St. Tyler, TX 75702I00006400 HEIGTThomas Heights 83 Broadway Van, TX 75790I00009300 LINEDDaniel Line 36 Freedom St. Houston, TX 77056A00074960 ARNOJJ. C. Arnold 86 Faith Flint, TX 75762I00001060 MASKDDonald P. Mask 96 S. Stevens Rusk, TX 75785A°0009200 TOURRRichard Tour 200 Gladewater Denton, TX 76204I00008050 PITCHHoward W. Pitch 30 E. Power Kilgore, TX  75662A00007375 BREWCCalvin Brewer 84 Johnston Ben Wheeler, TX 75754I00000000 YORKMMichael York P.O. Box 49 Alto, TX 75925A00000000 KERSWWilliam Kersh 77 Marsh Trails Fairfield, NC 25767I00007389 MULLTTerry Mullins 23 W. 22nd St. Garland, TX 76288A00087524 WATSGGlenn Watson Rt. 1 Box 884 Crockett, TX 75835I00074600 BROCDDavid Brock P.O. Box 5775 Plano, TX 59059A00757500 WALLSSandra Walls 931 Pin Oak Big Sandy, TX 75755I00004135 COLLCCurtis Collins Rt.3 Box 83 Troup, TX 75789A00080000 LOFTMMark Loftin  Malibu Bay Lot 76 Bullard, TX 75762I00007000 LESTHHenry Lester 701 Turtle Creek Tyler, TX 75703A00037500 STRIPP. W. Stripling 509 Barron Jacksonville, TX 75766A00035050 BABBTTony Babb 420 Seagle Tyler, TX 75703I00005050 GOARJJerry Goar 509 W. Bryan Pittsburg, TX 75686A00727025 POINPPhillip Points 325 Donna Waco, TX 76701I00000000 WELCKKaren Welch 1521 Graham Grand Saline, TX 75140A00062200 RIKEEEd Rike 1099 N NW Loop 323 Tyler, TX 75701I00006500 HOWAJJim Howard 2003 S. Chilton Palestine, TX  75801I00003840 TOOLWWarren Toole 645 S. Kennedy Rusk, TX 75785A00350025 RUSSTTom Russel 4424 Hill St. Van, TX 75790A00005500 WOODPPat Woods 2207 N. Francis LOngview, TX 75601I°0003075 GARVGGarden Valley Garage 663 Fair Foundations Building Fairfield, TX 75840I°0074070 Pittsburg, TX 75686A00727025 POINPPhillip Points 325 Donna Waco, TX 76701I00000000 WELCKKaren Welch 1521 Graham Grand Saline, TX 75140A00062200 RIKEEEd Rike 1099 N NW Loop 323 Tyler, TX 75701I00006500 HOWAJJim Howard 2003 S. Chilton Palestine, TX P PWALLSBWATSG@WEESTWEEVK#WELCKJWESTFWIGGLWOODPOYORKM=ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿADAPL/AIREQ(ALEXS!ARNOJ8BABBTGBIRDJ&BREWC<BRINABROCDABRYARBUSHDCANNJ1CAPEDCATTL CHAPHCLARNCOLLCCCREECCROSJ3DAVBRDIXMODULPB+ELDEJETRENFASCLGARVGPGARVJ GOARJHHEIGT6HICKM HOLDS*HOWAJLHUNTR IRA DKERSW>KEY P-LESTHELINDPLINED7LIONK2LOFTMDLUKERMASKD9MINET)MONRBMULLT?PAULL4PITCH;PLANR0POINPIPOLKEREADJRIKEEKROBEM%ROONSRUSSTNSAUNF,SHAWJ SHEPD SMALCSMITMSOUPI"STAAP$STRIPFTARPR'THEDHTOOLWMTOURR:TUREL5TYLUNUNDEK.WALLSBWATSG@WEESTWEEVK#WELCKJWESTFWIGGLWOODPOYORKM=ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿå&| CUSTOMER MASTER REPORTING >CUSREP< | ž CUSREP.BAS | -| RETURNING FROM CHAINED REPORT PROGRAM ??? | ƒ SEL$<>"" ‡ 70 | #-| INITIALIZE VARIABLES œ ¢ WORKSTATION FILE (| -   MSG$*40 2*REPDATE$=Ñ$(5:6)&"/"&Ñ$(7:8)&"/"&Ñ$(3:4) 7$¢ #2: "WS,NAME=CUSREP.FRM,RECL=99" < SEL$="0" A| F,| SELECT TASK (FUNCTION Œ BE ACCOMPLISHED) K| P‘ #2,æ 85,å "CMR-001": SEL$ U „ C 1,C 5 Z“ #2,æ 85: SEL$,CUST$ _ƒ SEL$>="1" œ SEL$<="5" ‡ 120 d*MSG$="Options are 1, 2, 3, 4, or 5 Only" i� #2,æ 110,ä "1": MSG$ n „ X 1,C 40 sˆ 90 x!� º(SEL$) ˆ 135,185,290,335,125 }© #2: ‚ ª "MENU" ‡| Œ | REPORT IN RECORD ORDER (ALL) ‘| –MSG$="Printing Report..." ›� #2,æ 160,ä "1": MSG$   „ X 1,C 40 ¥| ª| ± Œ REPORT PROGRAM ¯| ´± "CUSREP1",£,REPDATE$,SEL$ ¹| ¾'| ‚ REPORT IN RECORD ORDER (SELECTED) Ã| È$| “ RECORD PARAMETERS FROM SCREEN Í| Ò‘ #2,æ 215,å "CMR-002": 1,999 × „ 2*N 4 Ü“ #2,æ 215: FREC,LREC რFREC=0 ‡ FREC=1 æƒ FREC<>0 œ FREC<=LREC ‡ 255 ë&MSG$="First record number too large" ð� #2,æ 245,ä "1": MSG$ õ à 9,C 36 úˆ 220 ÿMSG$="Printing Report..." � #2,æ 265,ä "1": MSG$  „ à 9,C 36 | | ± Œ REPORT PROGRAM | '± "CUSREP2",£,REPDATE$,SEL$,FREC,LREC "| '| ‚ REPORT IN è ORDER (ALL) ,| 1MSG$="Printing Report..." 6� #2,æ 315,ä "1": MSG$ ; „ X 1,C 40 @| ± Œ REPORT PROGRAM E| J± "CUSREP3",£,REPDATE$,SEL$ O| T"| ‚ REPORT IN è ORDER (SELECTED) Y| ^| “ è PARAMETERS FROM SCREEN c| h)‘ #2,æ 365,å "CMR-003": " ","ZZZZZ" m „ 2*C 5 r“ #2,æ 365: FIRST$,LAST$ wƒ FIRST$<=LAST$ ‡ 395 |MSG$="First key too large" �� #2,æ 390,ä "1": MSG$ † „ à 11,C 36 ‹MSG$="Printing Report..." �� #2,æ 405,ä "1": MSG$ • „ à 11,C 36 š| Ÿ| ± Œ REPORT PROGRAM ¤| ©*± "CUSREP4",£,REPDATE$,SEL$,FIRST$,LAST$ ÿÿCMR-002": 1,999 × „ 2*N 4 Ü“ #2,æ 215: FREC,LREC რFREC=0 ‡ FREC=1 æƒ FREC<>0 œ FREC<=LREC ‡ 255 ë&MSG$="First record nCMR-001 CMR-002 CMR-003 ÿÿÿÿÿÿ"€€ ACME HOME PRODUCTS, INC. $€CUSTOMER MASTER REPORTING'€'1...Customer List in Record Order (All))€,2...Customer List in Record Order (Selected)+€$3...Customer List in Key Order (All)-€)4...Customer List in Key Order (Selected)/€ 5...Finished2 €SelectÀ’€€ (7€Menu Selection7I€€CMR-001ÿ €€(€€CMM-001/€ 5...Finishedcted)#|ͪ4}ͪ4m|µÊõ1+ͪ4Ãç1>ͪ4€\Ík6\Í<Ìé6—2,kÑÃAͪ"€Customer Master Reporting%€Beginning Record NumberÄ*€€'€Ending Record NumberÄ*€€ $7I€€CMR-002ÿ*€€Customer Master Reporting..Customer List in Key Order (All)-€)4...Customer L"€Customer Master Reporting%€ Beginning Key€*€€'€ Ending Key€*€€ $7I€€CMR-003ÿ*€€CMR-003Key€Customer Master Reporting..Customer List in Key Order (All)-€)4...Customer L"€€ ACME HOME PRODUCTS, INC. $€CUSTOMER MASTER REPORTING'€'1...Customer List in Record Order (All))€,2...Customer List in Record Order (Selected)+€$3...Customer List in Key Order (All)-€)4...Customer List in Key Order (Selected)/€ 5...Finished2 €SelectÀ’€€ (7€Menu Selection7I€€CMR-001ÿ €€(€€CMM-001/€ 5...Finishedcted)#|ͪ4}ͪ4m|µÊõ1+ͪ4Ãç1>ͪ4€\Ík6\Í<Ìé6—2,kÑÃAͪ"€Customer Master Reporting%€Beginning Record NumberÄ*€€'€Ending Record NumberÄ*€€ $7I€€CMR-002ÿ*€€Customer Master Reporting..Customer List in Key Order (All)-€)4...Customer L"€Customer Master Reporting%€ Beginning Key€*€€'€ Ending Key€*€€ $7I€=;| ‚ CUSTOMER MASTER REPORT BY RECORD (ALL) >CUSREP1< | ž CUSREP1.BAS ¬ ö ª,132,66,62 !| INITIALIZE VARIABLES œ ¢ FILE | !  CNAME$*30,CADRS$*30,CCITY$*30 ¢ #1: "NAME=CUSMAS.DTA",Ô #PAGE=0:TOTAL=0 (| -| ‚ FIRST HEADER 2| 7Š 145 <| A| ‚ BODY OF REPORT F| K<“ #1,æ 80: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL ï 105 P„ C 5,3*C 30,C 5,C 1,ZD 8.2 UTOTAL=TOTAL+BAL Z8‚ #255,æ 95: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL _<„ C 5,X 2,C 30,X 2,C 30,X 2,C 30,X 2,C 5,X 2,C 1,X 2,N 8.2 dƒ È(255)=62 ‡ Š 145:ˆ 75 † 75 i| n‚ #255,æ 115: TOTAL s*„ ð 1,à 102,"TOTAL:",X 2,ò($$$$$$$$Z.ZZ) x | ¡ PROGRAM - © FILE œ PRINTER }| ‚© #1: ‡ © #255: Œ± "CUSREP",£,REPDATE$,SEL$ ‘| – | ‚ HEADER ›|   ‚ #255: â ¥ PAGE=PAGE+1 ª‚ #255,æ 175: REPDATE$,PAGE ¯t„ à 44,"*** ACME HOME PRODUCTS, INC. ***",ð 1,"DATE ",C 8,à 44,"CUSTOMER MASTER REPORT BY RECORD",à 115,"PAGE",N 3 ´‚ #255,æ 185: ¹Œ„ ð 1,"_KEY_",à 8,"_____________NAME_____________ ___________ADDRESS___________  __________CITY/STATE__________ _ZIP_ S BALANCE",ð 1 ¾• ÿÿ_____________NAME_____________ ___________ADDRESS___________ œ ¢ FILE | !  CNAME$*30,CADRS$*30,CCITY$*30 ¢ #1: "NAME=CUSMAS.DTA",Ô #PAGE=0:TOTAL=0 (| -| ‚ FIRST HEADER 2| 7Š 145 <| A| ‚ BODY OF REPORT F| K<“ #1,æ 80: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL ï 105 P„ C 5,3*C 30,C 5,C 1,ZD 8.2 UTOTAL=TOTAL+BAL Z8‚ #255,æ 95: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL _<„ C 5,X 2,C 30,X 2,C 30,X 2,C 30,X 2,C 5,X 2,C 1,X 2,N 8.2 dƒ È(255)=62 ‡ Š 145:ˆ 75 † 75 i| n‚ #255,æ 115: TOTAL s*„ ð 1,à 102,"TOTAL:",X 2,ò($$$$$$$$Z.ZZ) x | ¡ PROGRAM - © FILE œ PRINTER }| ‚© #1: ‡ © #255: Œ± "CUSREP",£,REPDATE$,SEL$ ‘| – | ‚ HEADER ›|   ‚ #255: â ¥ PAGE=PAGE+1 ª‚ #255,æ 175: REPDATE$,PAGE ¯t„ à 44,"*** ACME HOME PRODUCTS, INC. ***",ð 1,"DATE ",C 8,à 44,"CUSTOMER MASTER REPORT BY RECORD",à 115,"PAGE",N 3 ´‚ #255,æ 185: ¹Œ„ ð 1,"_KEY_",à 8,"_____________NAME_____________ ___________ADDRESS___________ ‡D| ‚ CUSTOMER MASTER REPORT BY RECORD (SELECTED) >CUSREP2< | ž CUSREP2.BAS ¬ ö ª,132,66,62 3| INITIALIZE VARIABLES œ ¢ FILE ‹ Ù RECORD ACCESS | !  CNAME$*30,CADRS$*30,CCITY$*30 ¢ #1: "NAME=CUSMAS.DTA",Ù,– #PAGE=0:TOTAL=0 (| -| PRINTER FIRST HEADER 2| 7Š 165 <| A| ‚ BODY OF REPORT F| K‹ R=FREC Œ LREC P@“ #1,æ 85,ç=R: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL ï 125 U„ C 5,3*C 30,C 5,C 1,ZD 8.2 ZTOTAL=TOTAL+BAL _9‚ #255,æ 100: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL d<„ C 5,X 2,C 30,X 2,C 30,X 2,C 30,X 2,C 5,X 2,C 1,X 2,N 8.2 iƒ È(255)=62 ‡ Š 165 nˆ 120 sR=999 xŽ R }| ‚‚ #255,æ 135: TOTAL ‡*„ ð 1,à 102,"TOTAL:",X 2,ò($$$$$$$$Z.ZZ) Œ | ¡ PROGRAM - © FILE œ PRINTER ‘| –© #1: › © #255:  ± "CUSREP",£,REPDATE$,SEL$ ¥| ª | ‚ HEADER ¯| ´ ‚ #255: â ¹ PAGE=PAGE+1 ¾‚ #255,æ 195: REPDATE$,PAGE Ãt„ à 44,"*** ACME HOME PRODUCTS, INC. ***",ð 1,"DATE ",C 8,à 44,"CUSTOMER MASTER REPORT BY RECORD",à 115,"PAGE",N 3 È‚ #255,æ 205: ÍŒ„ ð 1,"_KEY_",à 8,"_____________NAME_____________ ___________ADDRESS___________ __________CITY/STATE__________ _ZIP_ S BALANCE",ð 1 Ò• ÿÿ_____________NAME_____________ ___________ADDRESS___________ __________CITY/STATE__________ _ZIP_ S BALANCE",ð| -| PRINTER FIRST HEADER 2| 7Š 165 <| A| ‚ BODY OF REPORT F| K‹ R=FREC Œ LREC P@“ #1,æ 85,ç=R: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL ï 125 U„ C 5,3*C 30,C 5,C 1,ZD 8.2 ZTOTAL=TOTAL+BAL _9‚ #255,æ 100: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL d<„ C 5,X 2,C 30,X 2,C 30,X 2,C 30,X 2,C 5,X 2,C 1,X 2,N 8.2 iƒ È(255)=62 ‡ Š 165 nˆ 120 sR=999 xŽ R }| ‚‚ #255,æ 135: TOTAL ‡*„ ð 1,à 102,"TOTAL:",X 2,ò($$$$$$$$Z.ZZ) Œ | ¡ PROGRAM - © FILE œ PRINTER ‘| –© #1: › © #255:  ± "CUSREP",£,REPDATE$,SEL$ ¥| ª | ‚ HEADER ¯| ´ ‚ #255: â ¹ PAGE=PAGE+1 ¾‚ #255,æ 195: REPDATE$,PAGE Ãt„ à 44,"*** ACME HOME PRODUCTS, INC. ***",ð 1,"DATE ",C 8,à 44,"CUSTOMER MASTER REPORT BY RECORD",à 115,"PAGE",N 3 È‚ #255,æ 205: ÍŒ„ ð 1,"_D8| ‚ CUSTOMER MASTER REPORT BY è (ALL) >CUSREP3< | ž CUSREP3.BAS ¬ ö ª,132,66,62 ,| INITIALIZE VARIABLES œ ¢ FILE ‹ Ø ACCESS | !  CNAME$*30,CADRS$*30,CCITY$*30 ¢ #1: "NAME=CUSMAS.DTA",Ø,Ô #PAGE=0:TOTAL=0 (| -| ‚ FIRST HEADER 2| 7Š 145 <| A| ‚ BODY OF REPORT F| K<“ #1,æ 80: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL ï 105 P„ C 5,3*C 30,C 5,C 1,ZD 8.2 UTOTAL=TOTAL+BAL Z8‚ #255,æ 95: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL _<„ C 5,X 2,C 30,X 2,C 30,X 2,C 30,X 2,C 5,X 2,C 1,X 2,N 8.2 dƒ È(255)=62 ‡ Š 145:ˆ 75 † 75 i| n‚ #255,æ 115: TOTAL s*„ ð 1,à 102,"TOTAL:",X 2,ò($$$$$$$$Z.ZZ) x | ¡ PROGRAM - © FILE œ PRINTER }| ‚© #1: ‡ © #255: Œ± "CUSREP",£,REPDATE$,SEL$ ‘| – | ‚ HEADER ›|   ‚ #255: â ¥ PAGE=PAGE+1 ª‚ #255,æ 175: REPDATE$,PAGE ¯q„ à 44,"*** ACME HOME PRODUCTS, INC. ***",ð 1,"DATE ",C 8,à 45,"CUSTOMER MASTER REPORT BY KEY",à 115,"PAGE",N 3 ´‚ #255,æ 185: ¹Œ„ ð 1,"_KEY_",à 8,"_____________NAME_____________ ___________ADDRESS___________ __________CITY/STATE__________ _ZIP_ S BALANCE",ð 1 ¾• ÿÿ_____________NAME_____________ ___________ADDRESS______ FILE ‹ Ø ACCESS | !  CNAME$*30,CADRS$*30,CCITY$*30 ¢ #1: "NAME=CUSMAS.DTA",Ø,Ô #PAGE=0:TOTAL=0 (| -| ‚ FIRST HEADER 2| 7Š 145 <| A| ‚ BODY OF REPORT F| K<“ #1,æ 80: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL ï 105 P„ C 5,3*C 30,C 5,C 1,ZD 8.2 UTOTAL=TOTAL+BAL Z8‚ #255,æ 95: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL _<„ C 5,X 2,C 30,X 2,C 30,X 2,C 30,X 2,C 5,X 2,C 1,X 2,N 8.2 dƒ È(255)=62 ‡ Š 145:ˆ 75 † 75 i| n‚ #255,æ 115: TOTAL s*„ ð 1,à 102,"TOTAL:",X 2,ò($$$$$$$$Z.ZZ) x | ¡ PROGRAM - © FILE œ PRINTER }| ‚© #1: ‡ © #255: Œ± "CUSREP",£,REPDATE$,SEL$ ‘| – | ‚ HEADER ›|   ‚ #255: â ¥ PAGE=PAGE+1 ª‚ #255,æ 175: REPDATE$,PAGE ¯q„ à 44,"*** ACME HOME PRODUCTS, INC. ***",ð 1,"DATE ",C 8,à 45,"CUSTOMER MASTER REPORT BY KEY",à 115,"PAGE",N 3 ´‚ #255,æ 185: ¹Œ„ ð 1,"_KEY_",à 8,"_____________NAME_____________ ___________ADDRESS______³:| ‚ CUSTOMER MASTER REPORT BY è (SELECTED) >CUSREP4< | ž CUSREP4.BAS ¬ ö ª,132,66,62 8| INITIALIZE VARIABLES œ ¢ FILE ‹ Ø ACCESS WITH SEARCH | !  CNAME$*30,CADRS$*30,CCITY$*30 ¢ #1: "NAME=CUSMAS.DTA",Ø,Ô #PAGE=0:TOTAL=0 (| -| PRINTER FIRST HEADER 2| 7Š 160 <| A| ‚ BODY OF REPORT F| KF“ #1,æ 80,è>=FIRST$: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL ï 130 P„ C 5,3*C 30,C 5,C 1,ZD 8.2 UTOTAL=TOTAL+BAL Z8‚ #255,æ 95: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL _<„ C 5,X 2,C 30,X 2,C 30,X 2,C 30,X 2,C 5,X 2,C 1,X 2,N 8.2 dƒ È(255)=62 ‡ Š 160 i<“ #1,æ 80: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL ï 130 nƒ CUST$>LAST$ ‡ 120 sˆ 85 x‚ #255,æ 125: TOTAL }(„ ð 1,à 102,"TOTAL: ",ò($$$$$$$$Z.ZZ) ‚| ‡ | ¡ PROGRAM - © FILE œ PRINTER Œ| ‘© #1: – © #255: ›± "CUSREP",£,REPDATE$,SEL$  | ¥ | ‚ HEADER ª| ¯ ‚ #255: â ´ PAGE=PAGE+1 ¹‚ #255,æ 190: REPDATE$,PAGE ¾q„ à 44,"*** ACME HOME PRODUCTS, INC. ***",ð 1,"DATE ",C 8,à 45,"CUSTOMER MASTER REPORT BY KEY",à 115,"PAGE",N 3  #255,æ 200: ÈŒ„ ð 1,"_KEY_",à 8,"_____________NAME_____________ ___________ADDRESS___________ __________CITY/STATE__________ _ZIP_ S BALANCE",ð 1 Í• ÿÿ_____________NAME_____________ ___________ADDRESS___________ _________| PRINTER FIRST HEADER 2| 7Š 160 <| A| ‚ BODY OF REPORT F| KF“ #1,æ 80,è>=FIRST$: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL ï 130 P„ C 5,3*C 30,C 5,C 1,ZD 8.2 UTOTAL=TOTAL+BAL Z8‚ #255,æ 95: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL _<„ C 5,X 2,C 30,X 2,C 30,X 2,C 30,X 2,C 5,X 2,C 1,X 2,N 8.2 dƒ È(255)=62 ‡ Š 160 i<“ #1,æ 80: CUST$,CNAME$,CADRS$,CCITY$,ZIP$,STAT$,BAL ï 130 nƒ CUST$>LAST$ ‡ 120 sˆ 85 x‚ #255,æ 125: TOTAL }(„ ð 1,à 102,"TOTAL: ",ò($$$$$$$$Z.ZZ) ‚| ‡ | ¡ PROGRAM - © FILE œ PRINTER Œ| ‘© #1: – © #255: ›± "CUSREP",£,REPDATE$,SEL$  | ¥ | ‚ HEADER ª| ¯ ‚ #255: â ´ PAGE=PAGE+1 ¹‚ #255,æ 190: REPDATE$,PAGE ¾q„ à 44,"*** ACME HOME PRODUCTS, INC. ***",ð 1,"DATE ",C 8,à 45,"CUSTOMER MASTER REPORT BY KEY",ÃÃÀâãÃàÃáÃäÃåÃôÃ.ÿˆŒ½ÿÿÿ‡ÿˆŒŠ‹�‚Љ…˜š�@�A�B�C�D�E�F�G�H�I�J�K�L�M�N�O�ÿšPB@P @Terminal: WYSE 100  å!2Í9áÉå!7Í9áÉåÕ:I·Ê}lgë!<Í9:A‚ÍS:B·ô0<:CƒÍS!DÍCÑáÉå!¨Í9!­Í9áÉåÕÅÍ*·Êœ:J¸Â_*p}´ÊR*½o >=ÚœÓ!KÍø ¸Òw Í*·ÊpÍøÚ… ÂwàÂ}2×mÆ7?ÜÂŒ:JÆ7ÁÑáÉxþ Ò‰þ ʉ:uæ¸Ê‰—Ü  åÕÅ!uGÍøÂêÍ*·ÊÖÍøÚï ÂÝ7?xÁÑáÉÂã—7CÃêÅå~þÿÂá###xÁÉ·ü%¸7Ây·7Ê Í*·Ê#~à æÉåÕÅÿÍÁÑáGÉ:·:KÄ0<~õæþÄ0<ñ·ø#ÃCÅo:·Âb}Í0<ÁÉ&d}ÿ”Òi„oxÆ0Í0<& Âf}Æ0Í0<ÁÉ!Í9!²~2Öm#~2Ž#~2�#~2ŒwÉÉåÅ}€þQÚ¯$ÖPoÍö>Í0<>GÍ0<>pÍ0<ÁáÅ-ÂÌ.P%Íö>Í0<>GÍ0<Áyö0Ã0<ÉÃöÉ>Í0<>GÍ0<>0Ã0<åõiÍO:õ1ÍÐ>9ÍÐyÍ»ÁxÍ»ñûÖ ÚÆýõxÍÎñÆ Æ0w#Éyæ>ÂÜ<2úÉ…oÐ$É/<…oØ%ø7ÉëáÃ:Cÿ0000000099:99:99|µÂÚÉ|µÂÃÉÃ=<ÃR=ÕÍ› ÑÍ(fÍ�K·ÊGë!€Í:C6/ÍÃCopyright (C) 1984 DeltaSoft, Inc.�]—2An!¯o¯w#ÂÍzC#Ä`1Í @ÕÍæ?|·Äu1}·Ìu1!qoÍìÍzC:Ä`1Í(f*0p6 ÕÍ�KëÕÍ!@ÑÚâÍ ÑÔÚÍî:An§Êt:•oæ?þIJ1:•oæʹ*›o|µÌŸ1ÕÍ*HÔŸ1Ñ:–oæʹ*—o|·Äš1}þ!Ôš1M*™o Õë*›o#Í*HÜš1Ñ:•oæ·ÂóÁÅÍÔ—Íò Á§ÊíõÍ*ñþÌ’1þ̘1þÌ™1þ ̵1·ÄŸ1ÍÕ Ã´>þÂ|ÍEÁÕÍÔ!"fo*•o}æ0IJ1|·Ä²1*›o|µÌŸ1)ÍÁ>Í”J#qoÍ*0<Ì™1DMqoÍB1‚ë!xN#F !€x±ÊaÅDMqoÍB1Á‚ ëÃF"pqoÍ*0ÍÚ!"=nÑÍÕ Ã´>Ô¯1ͯ1qoÍ*0Í’1Å*¢m"Nn—2Øm*Jn|µ*p̨("LnÍ )Í,)ÔÎÒ»*LnÍì"pÁÍ )Í)·À*Rn"=nPYÉ>2ØmÉÕÍ�:Ømæı1*=n<"­oÑÉå><Í”J#ãÕ=/Í2/ÑáÉåÍ�ÍÃáÍ ÍÚÉÕ—¶Ê##^#V#åÍ÷ s#ráÃÑÉ0,%+P-Í<á"=nÑÃd%!'ÃþÕ*=nå%ͼÂ1*=n$ ~öÀwá"=nÑÉÕ*=nå%ͼÂ1*=n$ ~æ?wá"=nÑÉ255,%'@+„B-!‡Ãþͼ²ÍÃõ!®o>Í“JñæÀþÀÉPYÕÍæ?,ij1ÁÍ”ãÕ*=në!qo<w#ÂÍs#rÑÉÕ*=në!qo<~#ÂäÑÉÍÖ+Èþ,Êîþ°ÌF þëÊ þêÊ ¹Ü; ¸Ôk1ÅÍÑ>Í: ÁÃîÁÍÖ+Èþ,Ê þ Ê ¹Ü; ¸Ôk1Å! åÍÑ>éþ–ÂF >Ô¹Éþ°Äk1>ê¹ÉÍ @þ Èþ:Èþ°È¹ÚQ ¸ÒQ ÉÍ÷ ~ ±wÉ!!>%üÃg >%ûÃg >%÷Ãg !! >%ÏÃg >&þÃg >&Í÷ ~æþÈ>&üÃg >&üÃg ÍzC=Ä`1ÕÍ @þ,ÊÞ þ ÊÞ ÃÎ *=nå!qo"=náãͰ0á"=nÉ>+õÍzC=Ä`1ÍL͇DñåÍ÷ Áq#pÉ>'Ãô >)Ãô ÍzC=Ä`1ÍL͇D"?nÉ—2GnÍzC>Â7 >2GnÍzC=Ä`1Í(fÍ�KG:—o¸Äš1Õë!ËoÍ:CÑ6ÉÍ @Í(fÍ�K·Ì´1þ Ô´1ÕëO! pwy·Â| 6 # Âr Ñ—2½mÉ>KõÃü >IõÃü >GõÃü >EõÃü >?õÃü ÍzCü>M!ÿÿõÊ Ãü >OõÃü >QõÃü >SõÃü >UõÃü >WõÃü >YõÃü >2AnÉÍ @Í(f>2FnÉÍL͇D"DnÉ!po…oÐ$ÉÍzC#Ä`1!"¬mBKÍ- Ú ÍdÍ•?:­m§Ä¶1!"=nÍÕ Ã´>ÅÍš̳1:¬m§ÕÊK ÑÍzC:Ä`1ÕêìÍ :•oæÂq :roþ Ê‘ >Íò Ñ·Êh 2­mÍÚÁÍ*7É=‘ :'põ>2'p> ÍÁ::þÌPñ2'pÑÍÚÁÍ*·ÉÕ—2­m*Jn|µÊÆ F#N+x±ÊÆ  DM—2¬mÍ- à ÍdÍ•?:­m§ÑĶ1ÉÍÖ+ÈÃÕ !"?n"Dn—2Gn2Ëo2½mÍzC#Ä`1BKÍš̳1æéÍ ÍzC:Ä`1ÕêðÍR Í Ñ*•o}æ0þ̲1}æ¹ }æ?ö@2•o|æÊÇ þÚ« Ê_ :Ëo·Ì”1Õ>!Íò ·Êß þÌ�1þÌ’1ͯ1Õ!>Íò ·Êß þÌ’1þÌŽ1þį1:Gn·ÌŽ1—2Ëo>Íò ·Ê� ÑþÌŽ1þÌŽ1Í’1:•oæ0Âß Íÿ$Ãß *?n}´Ì·1ͼ ÜŽ1ÃÑ Õë*£oÍ*HëÑÉ*¡o#ͼ ÜŽ1Õ>Íò ·Êß ÑÍ’1Ñ>2'pÍGÍuÚ¡ Í’Êý ÍÐܨ1Ãè ÍzC,Ê Í“ʯ Õ*ooëÍzCCÂ. ëÑåÍ„gÜl1x·Ä¤1áÍwÒè ͨ1ÍzCNÂM ëÑåÍ„gÜl1x·Ì¥1á͸Òè ͨ1:–oæ ħ1ÍzCZÂ{ ÍzCDĨ1ëÑåÍ„gÜl1x·Ì¥1áÍÒè ͨ1ÍzCPĨ1ÍzCDĨ1ëÑåÍ„gÜl1x·Ì¥1áÍVÒè ͨ1Í @þ,Êî Í“Äa1ÍÚ—2'pÃ! }æÀ̸1}æ?ö@2•oÕ>ÿ2ÙmÍ *fo|µÌ¸1:Ùm2Gn—2Ùm~þÿÊšåVz·#~õÕòªæW:Ùm<2Ùm:Gn·Ê =2Gn##~·ò:Gn·ò—2Gn#~·úª++ånb"joáå##Íû*jo:Gn·Ì á NÑ*»må "»máÅå:Gn·Â^Í/ÍáÁÅë*·mAÍ:C"·m:Gn·ÊyÁñáÃ�:×mþÊèþ ÊÖÁñ·áúÙ æ Êâ Ãâ Í *fo—2Ùm2GnÃâ Ññá ^#æ ʾÃâ åy·ÊË*»m"»m*·m"·máÃâ Áñá*›o"Ÿo!"�oÃß Áñá:Ùm2ÚmÍ' pÍB\ÂÍŽ:þÂ:Úm·>ÂîÃëÍ'Í *foÍ<ÃÍ *­o"·më*›o"»mÉ—2Õm õñÍ6Ê8Üz1þÈþ Ê,þ ™zæÊ,ÅÕåzõy�_xþÊn+å~wáÃ^ñæ Êx0Ê‚p#ÃyáÑÁÍu]Ò…~Í0<#x¹Â‹Ã,þ©ÍN]Ú86 Ã8þ´Íu]Ã8þ ¿ÍÜ]Ã8þ ÂÇÃ,ÍÅÂÛÒ82Õm> 2×mÃAþ Ú8õy¸Ê7zæ@Êñþ:Òoþ0Òþ+Êþ-Êþ.Êþ ÊÃoñwÍ0<#þ ÊzæWzæÂ8x¹Â8ÃD:×mþ ÊDzæÊDxþÊD¹Âozæ�þ�Êizæ ÈÍu]ÒP~þ ÊcÍÜ]ÒVÉx¹ÈÃoÍu]Òi>Í0<Ã8Õë>2pÍAÚˆ}2pÕ͇D#F:pOx¹Ú±#qëy·Ê± ÅÍÚ´~Í>ÁÚáÑÉÁñÕëÍM ܨ1̨1ÕŒm:p·Êì=2pÍÚ~þ.Âä—2p>.Í>ÃÇ> ŒmÍCCÚÍ‚J:pO~‘wÍ-CáÑÉÕëÍM ܨ1̨1ÕŒm:p·Ê<=2pÍÚS~·ò4>-~æÍ>ÃŒmÍCCÚSÍ‚J:pO~‘wÍ-CáÑÉÕëÍM :pG:p‡=¸Ü¨1Õ:pÃ�!‹mÍlH:Œm§>@¯ö€O:pG:Æm‡=��2Œm!ŒmÍÝK!ŒmÍ[CÍ-CáÑÉÕëÍzCXÂüÍL͇D}´Âå,MD*�oå "�oÍáÒù"�oëÑÉÍzCÃ7ÂùÍL͇D}µÂ,Õë*›oÍ*HëÑÚù"�oÃù!"?n"Dn—2Gn2Fn2Ëo2½mÍzC#Ä`1BKÍš̳1äèÍ ÍzC:Ä`1ÕéïÍR Í Ñ*•o}æ0þ ̲1}æ?ö€2•o}æÂß}æ0Ê�|æʸþ̲1Ò¸|æþʸþIJ1*?n}´Ì¹1Õ>Íò þÊ‚·Ä¯1;ÑÃ×*£o#Õ>Íò þÊ‚·Ä¯1;Ñ*Dn}´Ìº1>2'pÃl*­o"hoÕë*›o)"do"bo"fo*foë! p¾Â[# Â*foN#F*bo€ Â"foÍÖ*µmë*¹mÍ*HÒ3ëë*›oÍ*HÜ¢1ë*­o"·m"»m!"�o!"Ÿo;ÑÃ×*fo ~#¶+Ì©1ÃöÍGÍuÚ=Í’Ê„Í ܨ1ÃoÍzC,ʑ͓ÊKÕ*ooëÍzCC³ëÑåÍòhĤ1Í(fáÍÛÒoͨ1ÍzCNÂÐëÑåÍòhÌ¥1Í›JáÍ%Òoͨ1ÍzCòÂíëÑåÍòhÌ¥1Í›JáÍ¥Òoͨ1:–oæ ħ1ÍzCPÂÍzCDĨ1ëÑåÍòhÌ¥1Í›JáÍjÒoͨ1ÍzCZĨ1ÍzCDĨ1ëÑåÍòhÌ¥1Í›JáÍæÒoͨ1Í @þ,ÊuÍ“Äa1:•oæÂŒ:–oæÊd:½m§ÕÄÿ$Ñ*¡o>Íò ·Ê‚þÌ’1þÌŒ1þÌ“1ͯ1ÍÚ—2'pÃ! þį1:½m·Â›Í'Õ:Fn·ÊÝÍ�KMD*do·ÊÝ_þdÔ‹1~õ æÂÆñ7?ÃÈñ7Ê׸w#õÂ×w*fo#~æ õ##~æÊGå*doþ ÚÿÖ#Ãô_~ÂáxÒ ö€wÂè#^#ñÊ~þÿÂà*foÍ<ÍÚ—2'p!"=nÑÍÕ Ã´>~þÿÈæ€õ#~æ õ~æ2ko#~2jo##Íû:½m·Êj~æÊt~·òtå*joÅÍÁáñÊ ñüª1~·O̪1#ò˜#~͆#åÍ áÃ<#XÃ<~·O»ñ̪1Hë*»m "»më##Ã<ñÂØå*·m~Í#ÂÃ"·mÍ á##Ã<å*»më*·m~Í#Âà"·më"»mÍ á##Ã<¿#~·ò yë¶ëOÂ##F+Éõ:½m·Ê'yæÂ'ñÉy·ú.ñÉñÃ02noÍAØÍ¤2noÍzC*ÈÍ`1ÍzC#Ê %ÕÍšÑ̳1ÍåÍ @þæÊÜÃ$ÍÌ :–oæIJ1:–oæ ̲1:•oæ̲1þ̲1>2'pÉBKÍš̳1ÍåÍzC,ÊÜÍzC:Ä`1ÕÍß ÑÍ…Ê[Í @þ,Ê–þ;ÊÔþâÂÞ:•oæ̼1þ̼1þ> ÊW>ÍÁ:Í @þ,Ê–þ;ÊÔÍ…Äa1Ͳ?—2'pÍÚÍ…Ú…KÊ´>ÃxÍ @Èþ:Èþ†7Èþê7È?É*�o&ÍoD*2pÍoDÍD!ÍoDÍ¡C*2pÍoDͼC͇DE:�oO:›o¹ÚÔ> ÍÁ::�o¸Â½Í…ÊqÃ/þãšÍzC(Äg1*�o"BnÍLÍzC,ÂÍL͇Då͇D|·Äu1}·Â<2CnáÃ͇D|·Äu1}·Â%<õ!Bn¾Ü²?ñwÍzC)Äg1*›o:Cn”ÊCÒ<„2Cn:Bn•ÊQÒJ…2Bn:•oæþÂh*BnÍöÃ[þļ1!žo:Cn¾Ü„1Ê‚> Í;Ãm!�o:Bn¾Ü„1Ê[> 2®mÍo;ÂþÔÔ…1ÍòhÊÇÍ›J!Œm"!pÍ¥DŒmÍŽAÍ @þ;Â[> ÍÁ:ÃÔÍ(fÍ�KGx·Ê[~ÍÁ:#ÃÎÍzCæÄº1ÍAÜ`1"DnÍzC:Ä`1ÕÍß ÑÍGÍuÚXÍ’ÊïÍ ÃûÕëÍzCXÂRÍL͇D}´Â",MD:–oæ Ê=|·Äu1> ÍÁ: Â1ëÑÉ*�oå "�oÍáÒ:"�oÃ:ÍzCð‡:–oæ 7Ê:> ÍÁ:ÍL͇D}·Âu!|·Äu1E> ÍÁ:Â{Ã:ÍzCÃÂýÍL͇D}´Âš,:–oæ Êê|·Äu1:›o½Ò´Ͳ?Ã::�o½ÊÊÚÊå> ÍÁ:>2�oág}”Ê:O:•oæ þÂß xÍÁ: ÂßÃ:Õë*›oÍ*HëÑÚ:"�oÃ:ÍzCñÂÌ:–oæ 7Ê:ÍzC(Äg1ÍLÍp7ÍLÍzC)Äg1͇Då͇D|·ò3!|·Ê>:œoo&}·ÂD,:œo½ÒLo:•oæþÂ`:žo½Ê`Ô½1ã|·òi!|·Êt:›oo&}·Âz,:›o½Ò‚oã:•oæþÊ–}ágÍöÃ::žoG}�GÊ©> ÍÁ: :�oáG}¸ÒÅE> ÍÁ:> ÍÁ:¹Ã:�Ê:ùÍzC"ÂÝÍ® Ê:7Ã:ÍzC'7Â:ͽ Ê:7Ã:ÍzC,ÊüÍ“ÊfÕ*ooëÍzCCÂëÑåÍòhÄb1Í(fáÍÛܨ1ÃûÍzCNÂ;ëÑåÍòhÌ¥1Í›JáÍ%ܨ1ÃûÍzCòħ1ëÑåÍòhÌ¥1Í›JáÍ¥ܨ1ÃûÍ @þ,ÊÍ“Äa1Ͳ?ÍÚ—2'pô>ãÅ~·ÊŽ ¾#Âw~·#ƒy·ÁãÉ—ÁãÉ*oo~þCÈþNÈþòÈþPÈþZÉÕëÍáK—2Èm!"Ém"Ëm"Ím> 2¥mÿ!ëoþ)Ê Ís#Z$+-.ÊüþÚèx·ò  ÃüþÒõ:Èmö2Èm x·úüw#:¥m=2¥mÂÆ7ÑÉ6Ís+-RBÊ2õ:Èmö2ÈmñþÒ2 x·ú2ÍëKÕy<2px·òB<2pÍ‚J~æ€O~ö€w#~æðÂ_:ÈmæÊ0:Èm±2Èm*!på!Œm"!pÍ� ÍnJ"\n̓Fá"!p:Œmþ Âo:p=G!�mëo·ÊLy·Ê»Ís.Z+-$#Ê•x·Ê°~#ÕÍs+-$ÊþÊäÒò~þ Âßë"Émë#ÕÃØ~þ Âßë"ËmëÃØ~þ Âßë"ÍmëÃØÍsZ#Ê)þÊ~þ ÊØþ0Âß> ÃØ~þ Âß>0ÃØ> Õ!ëo:põ==2p6 #:pÂ8ñ2pÃ]:Èmæ‚þ‚Âsë+6 +6 !ëo~·ÊpÍÁ:Úo#Ã`7áÑÉ*Ém|µÊ‹:Èmæ€>+‡>-wÃ]*Ëm|µÊ£:Èmæ€>-ÊŸ> wÃ]*Ím|µÊ]6$Ã]þ+ÊÍþ-Ê¿áÑ7É:Èmæ€Ê]ë6 Ã]:Èmæ€Â]ë6-Ã]Õë>2pÍAÚîͤ2pÍ�KG:pO¸Ú x·Ê~ÍÁ:Ú # Âú·ëÑÉy·Ê > ÍÁ:Ú  ·à ÕëÍM ̨1ܨ1*!på!Œm"!pÍ� ÍnJ"\n̓Fá"!p:Œmþ*7Êh:p!ŒmG~ÍÁ:Úg#ÂZ·ëÑÉÕëÍM :pO:p‡=¹Ì¨1ܨ1Õ!Œm:p6#=†Í� ÍnJ~õæÖ@O:p�<õO :p=Oë!Œm ñõGw+²ñÚÙ:p2Æm:p‡2p!‹mÍlH:Æm2pñ/æ€!Œm¶wÑÃSÕëÍM ̨1ܨ1ÕÍ� *!på!Œm"!pÍnJN:p�õö€w¯2p"\n:p<2p̓F:p=2pOñá"!p!Œm�m/æ€öG°w# ÊI °w# Â@ ÑÃSÍAܨ1|·Äu1}·Ìu1þ Ôu12p¯2pÍzC.:p‡ ÍAܨ1|·Äu1}þÔu12pG:p¸ÉÍ‚J~æ€ö@OÅ!_CÍ[CÍ‚J:pÁGy�w#6PÃEGþ Èþ"ÈÍÁ:ØÃ® þ Èþ'ÈÍÁ:ØÃ½ :•oæ IJ1:•oæ?ö€2•oÉÍ @Èþ:Èþ†ÈþêÂß Ã• Õõ:•oæ>ÿÊÿ <2ÛmÍê!ñÍ!§õÕÄ;"áñÑÉþÚy!Ê©$þÚ*'Ê0!Íó!*£oDM*›oëÉ:–oæGOW_ÈͶ!Íó!*=n&^#Vë"ªmë#^#Vë"¬mÍÐ!*ªmDM*¬mëÉ*§o|µÈÍM$+Íc$!"§oɧʤ%åÍd!á|µÂ$:–oæÊE$Íà!Ͷ!:Ëo§Ê…#Í#Ê©!þ ©!ÖÍÐ!ÀëåÍê!áÃ$*=nåÍÚ*«oÕë*=nÑ"=nÍÃáãéõÍÚñáã"=nõÍÃñÉÍš"7ȯ2ÛmÉ:Ûmö2ÛmÉÍà!>ØÍO"À*­oëÍ &"™oÍ &"—oÍ &Õë*›o|µÄ*HëÑ>À"›oÍ &"£oÍ &"¥o¯ÉÍš"ÈyÖ"2©oÉ:©o§È¯2©oÍ#+ÍÃd!Íü"Í#!Í0"!"¡oÃŽ$Íš"ÈåÕÅÍ‚"*ͧÊ{"þÊm"Í‘"ÁÑáÉ’o!ÜmÍ:CqoÉ!’oÜmÈ":Ûm<È=ÉÍê!Íš"ÈÃù!Í¡"÷"Íê!ÍO"ÍÁ"Ãà!Íš"È*­oë*™oÍ&*—oÍ&*›oÍ&*£oÍ&*¥oÍ&Ã#Íš"ÈåÕÅÍ‚"+ÍŽ$Í‘"ÁÑáÉ*­oëÃŽ$!’o>Í”JqoÉÍü"Í#"ÃW"!"ªm*—o|µÊv'"¬m*¬më*ªmëÍ*HÚv'|g}oåÍV#áÈÚR##"ªmÃ-#+Ã*#Í$:›oÖO*ŸoÍù$ËoåÍx#Áõ*›o ++++ñɾÀ# Âx#V#^É*¡o#ë*—oÍ*H>Ô™#§Ã©!*¡o|µÊñ#*›oë*Ÿo"Ÿo€ÍŸDÒä#ÍŸDÚÈ#*­o Ía$>À*¡o#"¡o*›oë*Ÿo+Íù$++++^+V¯ÉÊñ#Í*HÚÈ#*¡o#Í$ÃÏ#Í¡"*£o#Éåë*£oÍ*HëÜû#"¡o"§oÍM$åi&"Ÿo!"�oáÍa$>ÑÈÕ"qoÍŽ$Â@$Ä^$Ê)$Ñ>·É>·É>·Éë*›oÍÛ'"’o2”o*­oÉ":!Íl$ÀÈÃc$å*’o#"’o|µÂ}$!”o4ÑÕÅÍÁá€qoåÕÅyþ!Ìc"ÅͧÁõyþ"Ìæ"ñÁÑáÉ:–oæÂ×$*¡oÍÈ$À*£oÍ*H>Ðë"£oý"ååÍr!áÍM$Í^$Ã)$:Ëo§Ê%Ͷ!Íà!*¡oÍV#õÍê!ñÍÐ!>À—ñ$ë*­oÉ*Ÿoë*™o+Íù$:—oGë!ËoÃ:CÍÿ$Ͷ!Í¡"Íà!Í#"ªmë"¬mþÊ8%þ >•%*£o#Í$•%*ŸoÍù$Ëo:›oÖGÍ:Cë*¡o|}—ÍÈ$•%*™o#"™o*£o#"£o*ªm|µÊ•%Í$*¬më*£oÍ&*ªmÍÈ$õÍê!ͽ"ñÍÐ!Àñ$Íà!*=nå͸%á"=nõÍÃñÉ!}o>Í”JÍü"!•o~æÊÓ%voö€~æÊ1&Í&ÊI$ÍŽ$<ÊA$!"£o*›o|µÂa&!€"›oͱ"Ãa&ër#s#ëÉëV#^#ëÉqoÍŽ$æðÉÍ&>ÀqoÍŽ$æðÊù!> ÉÍ&À:An§Êa&¯2AnÍk'ÍV&Â.&:•oæóö2•oø%qoÍæðÉ*›o)|ÆG!€Âo&ë*pÍ;.ë*=n{•ozœg"«o*=nåÍÚ:–oæáÈ&"ªm*p"=n!zo6K#6E#6Y>Í“J:•oæÊÄ&:voö€2vo:–oæ2–o*p<"­oÍ;.!"›oÍü":•oæ 'Í&À*ªmë*›o++++++}|*¥o}|Ãa&*—o######"›o*™o"¥o!"™o"—oä%*=nåÍÚÍ>'áõ"=nÍÃñÉ:•oæ0Ö È:–oæÊW'Ͷ!Í^'ÍÐ!Ì^'È>ÉÍd!:©o§Ì¡"ÍÁ"qoÍæðÉ:–oÚ¬'*—o|µÊ©'ë*ªmëÍ*HÚ©'ëÍ$:›oÖO*Ÿo Íù$V#^ÃÕ'>É*™o|µ7ÊÑ'*—o#ÍV#>ÈÚÄ'##V#^+ë|µÂ¹'*¡o><Ø>É>ÉÕå̓(€Í÷'ãÕ )}D§Êò'áÑ{ÑÉÍ:(:nÖ=Ê(õ7Í|(ñÃ(åÍ3(ãx/Gy/OÍ3(xGyOÚ/(|g}oÃ(DMáÉ| g}¡oÉå&xæ@ÂJ($Í|(Ã=(|2¥m2ná}‘o|˜gÒ`( ·Ãa(7Ío(:¥m=2¥mÈÃR({_zW}o|gÉyOxGÉDM!>·2¥mzW{_Ò˜( |g}o:¥m=‹(Ãu("Jnå!"³má>6#=µ(6 #w#w#6:#w#Éå*Jn{•_zœWáÉå*JnëáÉ"RnÅÍ)>Ú)Í,)>Ò)*Lnë*NnÍ*H>Ú)>ÁÉ þAØþ[?Ø*JnÉÍ)͉)Ú))####V#^*Jn"Rn—É>É͉)ÐÕ*³mëÍÕ(*LnëÍÉ(ë|}Ñåër#s*Jnë¯ÕÍ *ÍÊ)·Âc)ëÑ"LnëÍÉ(r#s#ëÍÉ(ë"³mÑ*Jn7É|µ7ÈÙ)|µ7ÈëÍÕ(ëÅå########Í *ÍÊ)¾Â³)#§Â¦)áÊÅ)ÁÚ½)##V#^+ëÃ�)33 É:QnæÊæ) þAÚÞ)þ[Òæ)Éþ0Úõ)þ:Ø:QnæÈ—2Qn:Pn Éþ$Ê*þ(Ê*Ãæ):Qnæ2Qn É:Pn·Ê*>ö2QnÉÕÍ!*ÑÉ*Jn͉)Ú))"¦më"¨më##Vz#^³ÂA*++^+V*¨mr#sÊg*ë|µÊ]*ë*JnV#^+ëÃK**¦m~#~*¦må######V#^z³ÁÊÇ*ÍÕ(y“oxšgå*pÍ+`i"pÁ*¦mëÍÉ(*JnÍú*Íú*Íú*Íú*+Õ^+Vz³Êº*ÍÕ(*pÍ*HëÑš**³m "³m—É`i"p*JnT]õñ######å~#ngx¼ÂÒ*y½ÂÒ*á6#6+ëÍÉ(ë"³m—ÉÍ +#Ð+y†w+xŽw##Éz¾#À{¾ÉÍ*HÈÃ+*p}´Ä`1Í› Í @Ì~1!9p"¯m*p+"±mÍAÚX+Í"A"¯m~#¦<ÊR=#~…oÒU+$"±mÍzC,Â}+ÍAÚ¤+Í"AÂz+~#¦<Ê}+#~…oÒz+$"±mÕ*¯më*±mÍ*HÜ`1Êž+BKë*p#Í+`i+"pÍæ>ÃR=*p+"±mÃ}+*p|µÄ`1ÍzC¡ÊtLÍAÒó^*¿m|µÊ¶<ë*Ám"pñÃ%=Í @Èþ:Èþ†É!\"=n!6 # Âè+Íœ0Íp7!l"=nÍœ0Õ\Í*0ѷĬ1*p}·Â´>ÃR=—2¤mÃ#,>2¤m!40\Íe0!€"Hn!\"=nÍœ0Õ:¤mþÊ],ÍzC,Â],ÍzCSÄ`1!e6S#6R#6C\Í*0þÿÌã.:¤m·€\ÄB1Ñ:¤mþʇ,ÍzC,Êø.Õ:¤m·Âá,>Ít/*pë!9p{•ozœgµÌœ1#|Ít/}Ít/9p|µÊ¿,+Ít/ñ,>Ít/€\Í1\Í<Ì—1—2'pÑÃR=Ít/þÄ�1:¤mþÄB?Ít/gÍt/o9p"9p+"pë*¢mÍ*HÒ-ÍB?Ív1:¤mþÊ\-Íæ>*9p9p|µÊ6-Ít/Ü’1+Ã%-Í]/Ñ—2'p:¤mþÂR=*Jn|µÂå<Íæ>ö<>2¤mÃ#,*Jn|µÊ-ÑÍzC,Âs-ÍzC£Êx-ÕÍ› ÑÍ•-*p#ë*JnDM*pÍ›.*p#"JnÃ-*Jn"¬m*³må*p"ªmͨ("LnÍ;.Íz.áÕ"³mÍÇ-*¬m"Jn*ªm"pÑÉ*¬m"¿mÍ.Ê.Í)·ÊÍ-*Jnå*på*¬m"Jn*ªm"pÍ**p"ªmá"pá"Jn*¿mÍ%.ÂÓ-*ªm"pÉ*¿m######V#^z³È*¬m"¿më*ªmÍ*HëÈ DM þ@Ú.ÉÕë*¢mÍ*HëÑÜv1"pÉ þ ÊL.þAÚ_.þ[ÐÃM.þ0Úi.þ:ÃZ.þ$Ê[.þ(À þ)Äg1ÉÍzC,Í @È*pBKÍÝ(ëÍ;.ÍM.PYÍzC,Ê‚.ÉåÅáÁÍ*HåÅáÁÈÚÈ.ÅÕÅÕÁÑÍ+`i"páÁ}‘_|˜W*Jn"JnÉÅÕå}‘o|˜g"pÁÍ*H w+ ÂÖ.ø.:¤m·Äœ1\Í*0þÿÀÍ›1:¤m·Ê/ñ>2'pÃR=Õ!9p"¯më*p+Í*HÊÍ,"±m7>2'põÃIbå$6#Â*/á #wÂ4/É ???????????Ít/ÐÍ]/>ÉÕåÅ\Í*0ÁáÑÉ:¤m·À:®måÕÅG:¤m·x€\*HnÌ 1Ä,1"HnÁÑáÉÕ!\H/Í'/ÑÍo02\Õ€bk>2¥mÍ*0\Í*0þÿÊÉ/ÍÐ/ù/Ͳ?Ñô>åÕõ:¥mþÂí/:\·Âè/Í*0<Æ@ÍÁ:>:ÍÁ:> ÍÁ:ñ‡‡‡‡‡O  #~æÍÁ:Â0> ÍÁ::¥m<2¥mþÂ'0>2¥mͲ?ÑáÉåÕÅÍÁÑáÉ BAS ÿ`i>€6 #=Â]0É~þÿÈ#Ãe0Í @þ Ê“0þ:Ê“0þAÜ®1þFÔ®1Ö@Í•0õÍzC:ñÉ—ÉÕ*=nwÑÉÍ @þ Ì­1þ:Ì­1ÍõKÍ�KG#~þ:+>ÕÂÄ0ëÅÍo0Áëë2IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIë"y3ëá"w3++~`1‘*p"6po&#"4p+ì3}·Êö1-yÆ OÒå1Ãå1—2'p2PnÅÕ*Jn|µÌ<*JnDM####V#^#ë ++~·##ò#2~æwgo´  2ÑÁ! ~2Æm+~2Åm·ÅÄþ2Í•?ÍÁͲ?>(ÍÁ:*Åm&ÍEA>)ÍÁ:> ÍÁ:& þ Âo2%Ãd2 ÍÁ:%Âo2}þƒ3„2Š3ÍËA“3ÍËA*p|µ"¦mÊõ2ç3ÍËAÍEAÍÙ2Í<Íù>Ͳ?*¦mÍ"A"±mÍc"¯m!"¿m"Ám*=n}´ÊR=ÍÚ!"=nÃR=:4pþÀ*Ãmù*y3"¿m*p"ÁmͲ?ÃR=à3ÍËAá2*=n}´Ê53*p|µÈÍÚ*·o}´Ê53Í"AÄ|1ëgo"pþ°Ä`1éðÍ *p|µÈ:Æm·È!¯oÕ=ÊO3ÃG3^#Vë}´ÑÈÍ"AÄ|1ë*Ãmù*Ñm"p*Óm"0p!"=nÃø<Stop at  Error  Request In {Ready} DeltaSoft BASIC Ver 3.0 Copyright (C) 1984 by DeltaSoft, Inc. ŠDirect Line  SYNTAXSYN EOSSTR EXPUDF ARYARY EXPINV VARUDF VARPAR MISREL EXP INV CFN CFN NAM INV NFN VAR EXP SYN EOLDUP VARDIM SZEON RNGE NUM DTAFOR LEVFOR RNGOUT DTA NUM RNGOUT MEMINV STMSTK OVFSTK UNF ATTNLNE RNGUNK LNESUB STR INV ARGDIR STM INV UFN!SUB LVL"INV RET#MIS FOR$ TAB% INV FNC&UNK UFN' (FLT OVR) FLT UND* DIV ZER+STR LEN, DUP KEY- NO KEY. EOF/ 0 1 2PER I/O3CHG KEY4INC KEY5INC DTA6 NO DTA7DSK FUL8FLE EXS9NO FILE:KEY L/P;DIR FUL<NO PRGM=FLE TYP>PRGM LD?REC LEN@ OP SYSAPTR MDEBFRM LENC INV PRTD STR EXPE NUM EXPF DTA LENG FRM PRTH FRM SPCI INV FRMJ FRM MDEK LFLE RENMFLE NAMNDRV SELOUNKNOWNPHLP ERRQFLE OPNRFLE MODSINV FLETFLE NAMUFLE NAVVFLE CLSWINV RECX PR WRTYMIS RECZMIS USI[PR READ\INV DEV] PR LIN^ _ ` a b c dÍ @þ,Ä`1ÉÍAÜq1|·Äu1}·ÉLEÔPRINÔIÆFORÍLISÔELSÅTHEÎGOTÏSTOÐGOSUÂFOÒTÏSTEÐNEXÔOÎREWRITÅWRITÅEXA°REAÄDATÁRETURÎINPUÔLINPUÔRUÎRESTORÅREÍNOÔANÄOÒSAVÅLOAÄDIÍENÄOPEÎFILEÓRESEÔDEÆFREÅAUTÏCLEAÒCLOSÅOFÆLISTÐOPTIOÎHELÐDEÌGÏEXIÔCHAIÎRENAMÅEXA²EXA³EXA´EXAµROUNÄINÔLEÎVAÌABÓRNÄSQÒSGÎSIÎATÎLOÇEXÐPOÓASÃERÒLINÅCMDKEÙSTATUÓEXB²EXB³EXB´FÎCHÒSTÒCNVRÔTIMÅDATÅEXC³EXC´INPUÔOUTIÎOUTPUÔBEGIÎKEYEÄRELATIVÅWÓNAMÅNE×KEYÌKEYÐRANDOÍSHÒRECÌNEWPAGÅTAÂINDIÃFORMAÔUSINÇREÃKEÙDUPKEÙEXIÔIOERÒCONÖSOFLO×NOKEÙEOÆSKIÐCUÒPIÃPRTZÏLPREÃSPREÃPTRSEÔATTÎERROÒOFLO×UFLO×ZDIÖIGNORÅEXD±EXD²]BÅÒ^…Kÿa…Kí^§A€[4XY7d2#™e…K·[·`¯`¶<÷e…K,,MtL“/X1‡LB5B9?ÿ Æ”aÁdÌ[+®+…KT-à+|P¥Y@[i[ ZÞP€QmRS!T V~VÀOR[kPePtPÙN¹LZPZ°Z†ZŸZ” Ž ‘ Û ¦ � r Á ~  ¹ † ò á X í  ' ‰ • ¡ · É � › ÊdÙdßdåd§ ½ Ã Ï Õ :'p·Ê£:þÈÚµ:þÊS/Ô¯1Í6Ê£:Ð*p}´Â§AÃR=å*!p~#"!pá·É2®måÅÍÏ:Áá:®mÉ:'p·Êö;þ̯1Ú<þÊï:Úl/Ô¯1:®mà 1*•o}æþÚ;Ê;þÚ‹;ͯ1ÍØ:®mwÃ>:®mþ Â5;Í* Í*<>2�o:žoþÈG:œo� Í*<Â_;!"�oÉÍÒ‚;> Í5;> Í;Ão;Í>:®mÃ*<:–oæ Ê;:®mþ ª;Í0 ͪ;> Í–;ÃÉ;Í>:®mÍ0<·É:®mÍ0<:®mþ Èþ >Ê <:(p<2(pþúØÍ²?>2(pÉ:®må*!pw#"!páÉÅÃ3<ÅÕå_ÍáÑÁÉ—2'p2¤m>2(p23n!"6p"4p"=n!9p"¯m"±m*%"¢m!n6À#6 #6ÂrͲ?Í•?!"Un"4p"6p—2Wn2Öm2×m!®o>Í“J>À2Xn!9på"#pÍÝA—2%p2/páëgo"p ÚL=!9"Ãm*p"Ñm*0p"ÓmÍ6Ê%=Üz1Í @·ú4=þ Ê@=>�þ·Ôw1ÍÑ>Í?*p|µÂø<Ãn=!"¿m—2Pn2[n2Öm!"pͲ?–3ÍËAͲ?Í›\:[n·ÊÖ=*YnO "Yn!Œl"!p*Yn|¥<ÊR=>2'pÍCA!Œl"!p*YnÍ"AÊÐ=!‘l6 #6 "!p—2'pÍ‹A!Œl:[n·ÂÊ=ͱ\ÃÙ=;bó=ͬ\y·ÂK>xþÊ">*¯më*±mÍ*HÊk=Úk=ÅG <ÁÊk=Õƒ_Ò>Í*HÊ>ñÃô=á+"±mÍ'Í•?·õÃIb*±mÍfcÊk=ë*±më"±më~#¦+<Êk=;bͲ?Í‹Aͼ?÷=ŒlÍ @þ Êk=ÍÄ?Ò™>*p|µÊ™>*¯mÍ”>"¯m*±mÍ”>"±mÍ› Íwc*¯mÍ"A"¯m*±mÍ"A"±mÍæ>Ãk=~#ngÉ!9p"¯m"±mͲ?Í•?!ŒlåëÍ!@Ñà =Í @Èþ:ÂÈ>ñÍ @Ì`1à =þ†Äa1ñà =!‘9æ=O F#fh|µÀÍ`1*p#Í;.!"Jn"¿mÍ<Ñ1k—2Pn!"p!k"p!bn"0pëéÍB?Íæ>:€O!� 6 �Í @ÊR=!"JnÃT-ÍB?Íæ>ÃR=![?Õp"~#ÂK?!ÿÿ"9pÑÉ:p;pkŒl9pÛÉÓÉbnõÕÅG:'p·Â�?xÍ0<Áx2(pÑñÉÕåÅ%ÍšÍÃ&."�oÍöÍÚÁáÑÉ> ÍÁ:> ÃÁ:> õÍÁ:ñÉŒlÕÍ @!þ:ÚÙ?—"pÑÉÍé?"pë"\n7ÑÉ!Í@þ ÐDM)) )Üu1O Ãé?þ0Øþ:ÐÖ0Éþ Ê @þ|Ê@þ Éþ ÈÃ@ÿ�Íñ@!ˆ7y§ļ@þAÒC@þ È�þ"Ì«@Ã'@y·Ê?@Õͼ@þAÚa@¾Â[@#ÃI@ö€¾Êr@~þ€#Úa@~·ÑÊ¢@Ã*@xþÌʃ@ͼ@þAÒa@áp#åxþ”ʯ@þšÊ¯@wþ #Â’@ÑÍØ@Ã!@ÍÆ@�Ã'@y/OÉwþ #¯@Ñ+ëÉþaØþzÐÖ Éͼ@þAÚØ@þ[ÒØ@ÃÆ@þ Èþ"Èͼ@þAÒë@ÃØ@þ[Òç@ÉÍ Aþ ÀåÕbkw#þ Âü@ÑáÃñ@þ0Øþ:Ðà AÍ @þ:?Øþ0Òæ?É9p ¼Ê0AÚ7Ai`É ½ Ò-A �OÒ%AÃ%A—>7åÕÅëÚPA !'ÍpA!èÍpA!dÍpA! ÍpA{͆AÁÑáÉÿ{•_zœWÒrA{…_zŒWx¹È Æ0ÃÁ:Œlå*!py½ÊŸA ÍÁ:Ã’A!Œl"!páÉ*Ãmùë"¿mëͲ?Ͳ?{3ÍËA*p"ÁmÍCAͲ?ÃR= þ€ÒØAÍÁ:ÃËAÖ€ÃÁ:*#p~#¦<ÊýA#Nå#~þ ÊìAþ”ÊBá ÃàA!ÿÿ"#pÉ#~þ ÊB"#pÁ7É!40\Íe0!\"=nÍœ0Õ\Í*0þÿÌ™1Ñà ,! "Yn>2[nÍAÚ‚="YnÍzC,‚=ÍAÚ‚=}2[nÂ=Í„gÜl1x·ÊxBÍzC=Ä`1Í›JÍ-Cô>ÍzC(Ê�BÍzC=Ä`1Í(fÍgô>ÍLÍzC:Ä`1ÍLÍëKÍzC=Ä`1͇D|·Äu1M ͇D|·Äu1}·Â¾BÕÍnJë͇DÍ:CÑÉw#Â:CÉÍ @þ ÊNCþ+Øþ:?Øþ/7ÈÍ&E—ÉÕÃCKÀÁAáþ Ê{C¾#ˆCé7?é͇D—´> ò›CÍaD>-ÍÁ:ÃEA͇DDM͇D ÃoD͇DÍaDDM͇D ÃoDÕ͇D|·üÛCë͇D|·üÛCÍßCÌaDÑÃoDÃaDÅDM!>2¥mxGyOÒôC|g}o:¥m=ÂçC`iÁÉÕ͇D|·üÛCë͇D|·üÛCë|µÌŠ1Í%DÃÓCÅ|æ@Â3D)Ã(Dx2¥mDM!{‘_z˜WÒ\D{�_zˆW):¥m=ÊD2¥më)ëÃ>¸ÒþD>F¸ÚþD:pOÆ@�¹ÚÓDy2p"\n̓FÚäD"!pÑÉ:p·#ÊßD+~þ.ÊßD#þ0ÂßD++ÃíD:p=2p"\nÍF+++T]+~þ0ÊEþ.ÂE##Í:CÃßDÍYJ"^n"`nÍF:pGÍ @þ-ÊGE6€þ+ÂIEþ0ÊGEþ:Ò¼Eþ0Ú€E Í_EÃNEx·È=G*^nÒlE#ÜøEÚvEæ¶w"^n*`nÉþ.—E:p¸ÂªEþ0¬E ÃŒE#~·+¡E6ÀÉyÆ@æ¶w—Éþ:Ò¼Eþ0Ú—EÍ_EìEÖE—EGþ+ÊØEþ-Â×EÍáEx/<ÃÜEÍáEx�O×Eþ:Ðþ0ØxG‡‡€GÖ0€GÃáEæ7É:p**!pw#Â¥F+ÑÉ~æþAÚÜFÖ@‚G:p¸Ú F{�ÖÒÍF>*âFÍGæ?G�OÍG7ÑÉ/<æ?G{Ö’Ú FÍG#60y·ÊÙF#6.ÊÖF#60 ÊÙFÃ÷FJë*!p<=ÊG6 #à G6 Ø6-É#ÍFö0wÌÍZH#~Æw+ÑÉÍñG~`i:p_#~+æðÂ�G<Í0HšG6ÀÑÉÕå:p™Î–ë†'ãw+ãë+ ÂÿGÁëÉ#~+æðÀ6€É:pO ë ëÉ|ºÀ}»ÉO~æ‘܈1G~怰wy‡‡GÕ:p_¯~w+ÂLHÂCHÑÉO~æ�ü‰1G~怰wy‡‡GÕ:p/IÅÍlHÁy#†w+ÁÅ æðÍ>IÁ ÊôHÅõÍlHñ#†w+ÁÃÀH·Ê IÅõÍlHñÁ#†w+ à I =ëÕæW~æ‚Ö@܉1þÔˆ1Ñõ ®æ€Ê,IñÑÉñö€ÑÉáÍnJ!_CÍ[CÑÉ·ÈGÅÍÕGÁÒLI ÂCIyOÉÕÍnJå#~·ÌŠ1Í‚J#~+æðʽIÑ:pnOÅͧIÔÀI>2¥m¯¹Ê˜IÅÍËIÁÚ‹I ‹IͧIÒ÷IÅÍËIÁØIÕå:pO#¾Ê¸IáÑÉ Â®I?áÑÉÍÙI5~æÌŠ1É:pO ë ÕÃþGÕ:p_—~w+ÂæIyOÂßIÑÉxõÍÙI:¥m=ÊJ2¥mñGÆIñãw-ãÂ�IGæO~æÆA‘þ€Ôˆ1Ox®æ€>ÌIJ±w:p<nO# ÊFJ wÀÉÍ‚J#~·È+~î€wÉ*på:pé:Xn·Ê(fÛJ:Xn·ÊgÃ-Cþ Ê´>Ã…Kå*0pÍoDá"0pÃoD͇DDM͇Dy•"0pÉ:'põå>2'p*!pãå!Œm"!páÍoDÍŒC*!p6ÕŒmÍ&EÑá"!pñ2'pÉÕÖGÍ @þ(Äg1ÉÍ @þ)Äg1ÉÍ @:¾m·Âêfþ"Êêf*0pþ,Ê�Kþ Ê�Kw#ÃLÍ›JÍnJ~æ€õ~æþFÔˆ1ÖAÕë!ÚUL2næðÍiLÍ^LÊULæÍiLÍ^LÂ8LÑñ·ÌaDÃoD:n·È=2n<ÉDM)) )O Éñ!"¿m"ÁmÍ› Íù>ÃR=ÍzCÌÄ€1>À2PnÍ#gÜ€1—2Pn͇D:Wn<2Wnw#xw#þ(³Ls#rÃ…K:PnõG·ÊÊL:Ïm·ÂÊLx2ÏmBK>À2PnÍ)·Ä†1PY*Rn~·ü€1ö€wæ2Pn2Ðmå#~2Xn#~#fo:Xn·Â Mþ$Äb1þ(ëÂ^Më:XnõÕë:Ðm2PnÍ#gÜl1x2XnëÑå:Ïm2Pn:ÐmõÍqKñ2ÐmÍ{KáëÍ @þ,ÂWMëÍ @þ,Ä~1ÃMñ2XnÍëKåÍzC=Ä`1:Ðm2PnÍqKÑá~æwñ2Pnþ)ÀÉÍchÜl1·Ìn1ÍzC$>Ê“M<2nÍzC*Ê­M͇DÍÊMÍzC,ÊMô>ÍL͇DÍ¿NE͇D6#p#6͵NÍ;.ãMå*p"n:n·!}2n###ÊêM:p<&oÍoDÍzC(Äd1ÅÍLÍ @Áþ,ÊöMá6ÿ#p#åÍzC)Äf1ÍzC*ÂAN:n·Äb1*på*n"pÅÍæ?ÁÍ¿N2n###ÍoDá"pëãåxO/<_ÿ*pÑ~# ÂQNÕÅͼCÁÂZN͇D|µÌo1ëár#s#åÍÊN"pëá:n·ÊžN:pOA6À#x·Ê–N6ÊNÍ*H‡NÑÉ:nOA6#q#6͵NÍ*H¢NÑÉ#x·È6õN|·Ä‹1}·ÀÍ‹1åÕë*¢mÍ*HÜv1ÑáÉÍáKBKÅÍLÕ͇D|·ÊO%Ä~1}§Â O*pë*¢m}“o|šgÍ«KÑÁÃëKþÄ~1 ÿÍo&ÃO}§Â+O:×mo—2×mÃOþÿÂRO*=nåƒͼÂJO*=n-^á"=nëÃO*=nåÍ´áÑÁåÍš̳1ÍzC,Ä`1ÍL͇DÅÕ|·Ä~1}þÔ~1·Â‰O>Íò ñOþ˜O>Íò `iñOþ§O>Íò `iñOþÄ~1>Íò Í«KÑÁá"=nͺÃëKÍáKÍ(fÍp7Í(fÍ�KOåÅÍ�KÁGÅ+åÍaDÍoDáÍoDÍzC,!ÂôOÍL͇D|·Äu1}·ÂÿO,Áx•Ú]PÀ2nÃëKÍnJ͇DÍ[CÃëK6ÀÍ-C!nÃQÀ˜S˜3WDÍ›J:p2Æm*pþÊtQ+++"p> 2pÉ>6#=ÂvQÃkQÍáKÍWQ*påÍ‚J~·ôLR#~æðÊêQÍUR")nÍUR"+n~ÖÀ<Æ@ö€w:põÍ[CÍWI*+nÍ[CÍEG!DRÍ[CÍWIñ=ÊêQõ*+n"pÍURÍnJ*)nÍ[C*+nôQá"pÍôQÃëKÕÍ‚J:pÖGN#~æðÊRy�õ!_CÍ[CÍ‚Jñw#6PÍEG:ÆmþÂ.R*p+"p2pÑÉ*p+6#6#6#6#"pÃ)RÁ :Æm2pÍ~1ÕÍ‚Jë*på:põÍ•RÍUR"4nÍ[CÍ�HñõÚS!‹S"1nÍÒR*4nÍ[CÍ�HñGñ¨Öú~SÍ‚J~î€wÉ!ÄS"1nÍÒRÃnS·@p6t9%•†P»'Ui1’e€=„fA"¾ƒ333vU@ffffd2À™™™™™™”ÿ¸�xV…@:'RF–8C ¼$€@d„V>ˆˆ„¿AfffG3„@I™™™™p$À™™™™™™%ÿÍáKÍWQÍSÕ!ÊRÍ[CÍEGÃ%S!TÃ[CÁ1AY&SYÍáKÍWQÕÍ‚Jå~õö€wæþAÒ\T͘Tñæ€Gá~æ°wÑ:3n·ÂîQ;;!SÍ[CÍ�HÑÃîQ*påÍURåÍnJ!hCÍ[CáÍ[CÍWI͘TÍLJÍ‚J~þ€õ!ÊRÍ[CñÚŽTÍLJÍEGá"pÃ;T*påÍUR"6nÍ[C!UÍ[CÍŠHÍnJ~æ€õÄåTÍUR"6nÍ[CÍ�H!!U"1nÍÒR*6nÍ[CÍ�Hñá"pÈ! UÍ[CÃEG!UÍ[CÍ�H!hCÍ[CÍŠH!UÍ[C*6nÍ[CÍEGÃWIÀR5˜wU˜0Á2V�À&yI$1?7q$Rq0¿iwe(I ?‰“7‡XÀ5SGH@(S’5TbÀ™™“"t@3333'‡&À™™™™™™(ÿÍáKÍWQÕÍpUÑÃîQ*påÍUR"8nåÍnJá#~·ÌLR+~6À&Ö€ÜLRÖ@oÒ—U%Í«K!$VÍ[CÍEG!4VÍ[C*8nÍ[CÍ�HÍUR"8n!,VÍ[CÍEG*8nÍ[C!hCÍ[CÍEGÍWIÍURåÍ[CáÍ[CÍ�HÍUR"8n!͇D" nå͇D"nÍnJ"nÍnJ"ná:/p=2/pÉÍ„gÜl1Õ͇Dë:/p·Ìƒ1ÍøXÍ*HÂ%Y*på####"pÍYJÍYJ* nÍoD* nÍ[C*n~õÍ[CÍEGÍ-C* nÍ[Cñæ€ÂxY*nÍ[CÍŠHÄYÍLJ*nÍ[CÍEGÍnJ~æ€Ê�Y:/p<2/páÑ*nëô>á"pÑô>ÍáKÍ®YÃëKÍ›JÍ‚JÕ~æ€õ~æÖ@ÚêYG:pO#x·ÌõYx·ÌZ ÂÉYñKÑÀy·È!qCÍ[CÃEGñÍnJÑ!_CÃ[C~WæwzæðÈÉ~WæðwzæÈÉÍáKÍ›JÍ‚J~ö€wÃëKÍ6[ÍLÍzC,Â8ZÍL͇D|·Äu1E͇DM*0px·ÊJZq#Ã?ZÍ�KÃëKÍ6[Í›J*!på!Œm"!pÍ¥D!ŒmÕë*0p:!pG{¸Ê{Zw#ÃoZÑÍ�Ká"!pÃëKÍzC$Äj1*0pÕÍÑ*0p Ã�KÍzC$Äj1*0pÕÍÔZÍ6[Í(fÍp7Í�K·Ì©1> :'põ>2'p:¤mõ>2¤måÍ›JÍëKëã~#þNÂ[Í%Œm:pG*0pÍ:CÍ�KÑñ2¤mñ2'pÉþZÂ[~þDÄ©1#ÍæÃèZþPÄ©1~þDÂ&[#ÍjÃèZþIÄ©1##Í¥ëoÃëZÍzC$Äj1ÃáKÍáKÍ(fÍ�Ko&Í«KÃëKÍáKÍ(fÍ�K§Ê`[~o&Í«KÃëKÍáKÍ(f*0p6Í�KÕëÍ&EÑÃëKÍ @Íæ?Í"AÄ|1:%p<þÌ�12%pãÍ @þ:*pʰ[þ ™[goãÕëÃø<:%p=þÿÌ‚12%pñÑá"pà =Í @ÊÞ[·ò\æ7\Ãú[Ͳ?>(ÍÁ:*4pÍEA>)ÍÁ:Ͳ?,\:4p2ÚmͲ?ÍB\İ1Ú%\Ͳ?ÃR=þ0Ú%\þ:Ò%\ÍL͇D"4pÃÞ[—7\Ãú[DBERR MSGDBREF MSG!\Í'/\Í*0æðÀ€Í*0:Úm2}\!Í*0·Â�\!€~þ~7Ê�\~~·Ê�\Í0<# Ây\~#fo"}Ãa\õ\ÍñÉ!ù}!Œl6 #6 =¤\É!ŒlÕ ~#þ ´\!‹l}€oÒÆ\$Ͱ]Í�]õñÍŽ:þ Êò\þÊ]þÊ]þÊ]þÊ]þÊÇ^Ã]—2&p:'p§Â]ÅÍ•?ÁÑÉõå*p|µáÂÍ\ñGÃò\þÂ#]ÍÜ]ÚÔ]>þÂg]Íu]ÚÔ] ÅåDM#~þ Â>]> õÍ~?ñÂ3]áÁÍ�]ÃÎ\xþ7Èyþ7È+Íä> Í0<Íä·ÉþÂç]Íu]ÚÔ]ÃÎ\xþ7È+ÍäxþPÊ�]þ Ê�]þð7?ÀåÕÅÍÂ]SxþQÚ¢]ÖP×]ob:'p§ÌöÁÑá—ÉyþPØyþ ØyþðØÉ{þʲ]þÊ·]þʼ]Éñ>Í0<ÃÎ\x¹7È#Íí—Éþ Âõ]ÍÜ]ÚÔ]ÃÎ\þ Â^:'p§ÂÎ\xÆPÚÔ]¹Ê^ÒÔ]G>P…oÒ^$Í�]ÃÎ\þ Â9^xþQÚÔ]ÖPG}ÖPoÒ3^%Í�]ÃÎ\þÂH^:&p/2&pÃÎ\þÂf^xþ!‹lÂY^Ax…oÒ`^$Í�]ÃÎ\þ ÚÔ]þÒÔ]õ:&p§Â�^~þ Ê�^ñw#Í~?ÃÎ\> Ã~?ÅóyÁ¹ÚÓ] ÍÂ]ñÅåÍ~?Nw#yþ Ÿ^wá#ÁyþP̈^yþ Ìˆ^yþð̈^Í�]ÃÎ\—2'pñÍù>ÃR=Í-_͇D|µÂþ^Í _ØÍ @þ:áÒ%=åÍ @Íæ?Í"AÄ|1ëñÃø<Í @þ‡Êã^Í`1þƒÂ_à _þ†Â"_x·Èà _þ  _7ÉÍ­CÍzC›ÂF_Íe_͇D|/g}/oÍoDÃI_Íe_ÍzC�ÀÍe_͇DDM͇D|°g}±oÍoDÃI_Í„_ÍzCœÀÍ„_͇DDM͇D| g}¡oÍoDÃh_Í @þ›Ê-_ÍzC(ž_Í-_ÍzC)ÈÍg1ÍòhÊË_Í›JÍ'`Äh1åÍ›JÍŠHÍnJF#N!¿_ãé!ÿÿÊoD!ÃoDÍ(fÍ'`åÍ(fÕÍ�K2nëÍ�K2n:n·GÊ`:n·~Ê `� `#:n=2n:n=2nÃã_?€Ò`Ñú_:n·~ `€Ñú_ÍzC=ÊK`ÍzC<Ê\`ÍzC>ÀÍzC=ʃ`ÍzC<Êy`Ã~`ÍzC<Êt`ÍzC>ʃ`Ão`ÍzC=Êt`ÍzC>Êy`!‹`—É!ˆ`—É!�`—É!•`—É!ž`—É!©`—Éy·Éxæ€Éy·ÈË`y·Êœ`—É<Éy·Êœ`xî€æ€Éy·Èã`>2¾mû`—2¾mÕÍzC"Âß`þ Ì`1þ"ÊÕ`ÍÁ:ÃÃ`ÍzC:Ä`1Ãä`>?ÍÁ:ͼ?ÍWa*p|µÌ1!ŒlåÍ„gáÜl1ëåx·ÊCaÍCCÚ3aÍ-CáëåÍzC,áÂLaëåÍzC,áëÊõ`>?ÍÁ:>?ÍÁ:ÍWaÃò`ñͲ?͇D>RÍÁ:Ñ÷`ÍõKÍgà añÍzC;IJ?ô>!Œl6 ÍŽ:þ Èþ„ax·Ê^a+6 >Í~?> Í~?>Í~?Ã^aþ Ú^awÍ~?#6 Ã^a>2Öm!9p"¯m*p+Õ9pÍ*HÑÊ´>"±mÍAÚìaÍ"A~#¦+<ÊR="¯måÍp7ÍAÜq1Í"A|#¦<Êìa##~þ ÂÚa#"±mÑÍ*HÜ{1ƒÍš̱1>2'p7õÃIb!9p"¯m*p+Õ9pÍ*HÑÊ´>"±mÍAõÚIbÍ"A~#¦<ÊR=##~þ Â)b#"±mÍcÊ@bÂ6b"¯mÍ'Í•?*±mDM!Œl"!p*¯mÃ{bͲ?Í6ÊpbÚŽ>þÂpbñÒä=õÅ;bŒlÍ‹AÁ}¹ÂZb|¸ÂZbñÔ¼?Ò·=Ͳ?:'pþ³b> ÍÁ::þÌPƒÍ*—2'pÃR=þÊ¿,à ,þÀ:'põ>2'pÕV#^##ëÍCAͼ?þ€ÒñbÍÁ:þ ÂÔb*!p+"!pëÑñ2'pÉÕˆ7æGÊcþ€ÚübÃøbþ€ÒcÍÁ:ÃcæÍÁ:ÑÃßbÕÅ++9pÍ*HÊ[cÚ[c~þ Â!cå###NyþÚbc #~þ Êbc ÂAc#~þ áÂ!c#>·ÁÑÉ!9p¯ÃXcáÃ!cÅ~#¦<+Êuc##N ÁÉÕÍ!@{*\në“<2¥m*pDM!9p~¸Ê¡cÒ«c##}†oÒ�c$Ã�c#~¹ÊdÚ–c++Õë*på:¥mþÌ`1Æ…oÒÂc$:£mG|¸ÚÔc—go"pÍv1"pDMá~+ |ºÂÚc}»ÂÚc*për#s:¥m<#wÑ#wþ Â÷cÑÉ+å###~þ #Âdë*p#DMáw#z¸Âd{¹Âd+"p:¥mþÊd*\nëÃ…cÍ @þÍÒ•dÍ›JÍLÍzCˆÂRdÍldÃí^ÍzCŠÂ_dÍldÀ[ÍzC™Ä`1ÍldÃf͇D|·Äp1}·üp1-}·Èþ:Ê‘dþ Ê‘dþ,Â}dÃydñô>þìÊ©dþíÊ©dþ÷Ü`1þüÔ`1ÍÑ>åÍ @þüʼdþˆÄ`1!´>ãéó÷Í ô>Íz7Ìu1þQÔu1"2pÉ>2pÉ>2pÉÍzCªÂód—2ÖmÃÿdÍzC�Â"e>2ÖmÍp7Íz7Ê e2ŽÍp7Íz7Êe2�Íp7Íz7È2ŒÉÍ @.ÿþUÊ>e,þDÊ>e,þSÊ>e,þCÄ¡1Íp7&ÿåÍ(fÍ�K·Ì¡1~áþUÊaeÖ@Ü¡1þÔ¡1gÍp7ÿåÍ(fÍ�K·Ì¡1~áþUʃeÖ@Ü¡1þÔ¡1GÕë:þ—e:ºO*¶Í?ÑÉ—2¾mÍ @þ#ÊÝ Í„gÜl1*#p|¥<Ìt1Õëþ,ÊÊex·ÊîeÍCCÜq1Í-CÍzC,ÊßeåÍzC áÄm1ëÍàAëë"#pÑÍzC,´>ÙeÍõKÍgÃÊeÍ @!9pþ Êfþ:ÊfÍ @Íæ?Í"AÄ|1"#pÍÝAþ Ê´>þ:Ê´>ÃfÍAfÍzC&ÀÍAfÍ�KÅÍ�KáÍ�KÃ+fÍ @þ€ÒÀfÍ„gÚêfx·Äb1ÿÍzC(ÌŠfÕ*0pë͇D##~2Çm#Í´fÊ„fÂlf#Í´fÊ„f ÂwfëÍ�KÑÉÍLÍzC:Ä`1ÍLÍzC)Äg1͇DÍ¿NM͇DÍ¿NGy�Ü}1éÍzC(ÀÍ�K2ÇmÍŠf*0pÕT]ÃmfÍzC"*0pþ"Ê�Kþ Ê�Kw#ÃñfÕÍ�KGë͇D#~¸Ü‹1#p#{¹Ê!gwÃgÑÉ>ÿ2TnÍ @þAØþ[?ØÍrhOÍzC$ÀÀy·Êqgþ*ÂSgÍæ?Í¿NO͇Då6#q #6 Â\g#Í;.áÍoD—>Éþ,Ê€gþ)Ê€gÃqg—ÉÍchOØx<›gÍzC$õÍÝgOñßgÍzC$ÂÐgy·Â­gx·ÈÍb1͇Då6#ÅyÁw#6#6=¾g#Í;.áFÍoD—Éx·Ìb1þ(Ìc1·ÉÍzC(Äd1͇D~<Äe1#FÅ###å##Âõg~·Âh#~Æà h:p<&oÍoD!ÍoDÍL*p+~+¶Ì~1Í¡C͇D+ÍoDáÁx·ÊKhÅF#N#åÍp7`iÍoDͼCÃh##åͼCÁ͇D FÍoDÍzC)Äg1¯É—2TnÍ @þAØþ[?Ø—õBKÍ)·ÂÆh*RnPYFÍoDþ$Ê‘hþ(Ê‘hñÉñ*¢m"Nn*Jn|µ*p̨("LnÅÍÝ(·Äv1*Ln:p6ÀÍ“J#Í;.Ñ>Ãrh:Tn·Â“h:Pn·Ê“h2Tn—2PnÍ)·:Tn2PnÄf1Ã|h—2Tnà @ÕÍzCÌÊiÍ„gÚi͇Dx·ÑÉÍ @þ€Òiþ"ÑÉÍzC$ÑÉþAÚiÃiÉMSGThe DeltaSoft HELP facility is invoked by entering HELP followed by one of the following parameters: a command, stae SYNTAX ERROR: An unrecognizable command/statement was encountered. SYNTAX ERROR AT END OF STATEMENT: Colon or line end expected. CHARACTER VARIABLE EXPECTED: Type mismatch. NUMERIC VARIABLE EXPECTED: Type mismatch. ARRAY VARIABLE EXPECTED: Type mismatch. INVALID VARIABLE: An array variable was expected. UNDEFINED VARIABLE: The variable referenced does not exist.  PARENTHESIS MISSING: An open or close parenthesis is missing. RELATIONAÌ OPERATOÒ EXPECTED: Á relationaì operatoò ¼ ¾ ½ waó expected. INVALID CHARACTER FUNCTION: A character function was expected. CHARACTEÒ FUNCTIOÎ NAME: Thå ¤ ió missinç froí thå functioî name® INVALID NUMERIC FUNCTION: A numeric function was expected. VARIABLE EXPECTED: A variable was expected. SYNTAX ERROR AT END OF LINE: Line end expected. DUPLICATE VARIABLE: Variable already defined.  DIMENSION SIZE: Array dimension exceeds maximum. ON RANGE: Range of ON value exceeds maximum. NUMERIC DATA: Numeric data was expected. FOR LEVEL: Exceeds maximum allowed nesting (8 max). FOR RANGE: Limits and step incompatible. OUT OF DATA: Attempt was made to READ past last data value. NUMERIà RANGEº Integeò valuå maximuí exceedeä (25µ max)® OUÔ OÆ MEMORYº Prograí needó morå memorù tï execute®  INVALIÄ STATEMENTº Statemenô noô recognizable® STACË OVERFLOWº Expressioî toï complex® STACË UNDERFLOWº (Systeí error)® ATTN REQUEST: The ATTN key was pressed to interrupt program execution. LINÅ RANGEº Beginninç linå numbeò exceedó endinç linå number® UNKNOWN LINE: Line referenced does not exist. SUBSTRING: Cannot be formed as specified. INVALID ARGUMENT: Type mismatch or value excessive.  DIRECT STATEMENT: Not allowed in direct execution. INVALIÄ USER-DEFINEÄ FUNCTION: Noô á valiä user-defineä function® SUBROUTINE LEVEL: Exceeds maximum (20 max). INVALID RETURN: Encountered without a corresponding GOSUB. MISSING FOR: a NEXT was encountered without a corresponding FOR. TAB: argument is invalid. INVALID INTRINSIC FUNCTION: Not a valid intrinsic function. UNKNOWN USER-DEFINED FUNCTION: Was encountered.  NUMERIC OVERFLOW: Floating point value exceeds maximum. NUMERIC UNDERFLOW: Floating point value smaller than minimum. DIVISION BY ZERO: Expression contains a division by zero. STRINÇ LENGTH: Characteò strinç lengtè exceedó maximuí foò variable. DUPLICATE KEY: Index file already contains this key. NO KEY: Key specified not in index file. END OF FILE: Cannot READ/INPUT past end of file.  Š PERMANENT I/O: Error encountered in disk input/output operation. CHANGÅ KEY: Attempô waó madå tï changå thå keù portioî oæ thå record. INCORRECT KEY: INCORRECT DATA: NO DATA:  DISK FULL: The disk is full. FILÅ EXISTS: Attempô waó madå tï creatå á filå thaô alreadù exists. NO FILE: Attempt was made to access a file that does not exist. KEY LENGTH/POSITION: Specified incorrectly. DIRECTORY FULL: Disk directory is full. NO PROGRAM: Program file specified does not exist. FILE TYPE: Mismatch. PROGRAM LOAD: An error was detected during program load.  RECORD LENGTH: Is 0 or exceeds 2048. PRINT MODE: Print mode selection must be D, S, C, or U. FORMAÔ BUFFER: Workstatioî formaô buffeò lengtè exceedó recorä length specified in OPEN statement. INVALIÄ PRINT: Operatioî CUR¬ TAB¬ oò SKIÐ noô alloweä iî disë oò workstation files. CHARACTEÒ VARIABLÅ INPUT/OUTPUT: Characteò variablå expecteä iî I/Ï operation® NUMERIà VARIABLÅ INPUT/OUTPUT: Numeriã variablå expecteä iî I/Ï operation. FIELÄ LENGTH: Attempô waó madå tï writå datá intï á fielä thaô ió too small.  FORM PRINT: Wrong FORM specification for PRINT statement. FORM SPECIFICATION: Incorrect FORM specification. ŠINVALID FORMAT: Invalid workstation format. FORMAT MODE: Format mode error. FILÅ RENAME: Filå musô exisô anä noô bå iî uså bù anotheò process® FILE NAME: Must be 8 characters or less plus optional type. DRIVÅ SELECT: Cannoô selecô specifieä disë drive®  UNKNOWN: System error. HELÐ FILE: DBXERR.MSÇ anä DBXREF.MSÇ musô bå oî defaulô disë drive. FILE OPEN: File specified already open. FILÅ MODE: Opeî modå (oò parameter© incorrecô foò accesó attempted. INVALID FILE: File specified not open. FILE NOT AVAILABLE: In use by a NOSHR process. CANNOT CLOSE FILE:  INVALID RECORD NUMBER: Zero not allowed. Last access must have been a write. MISSING RECORD NUMBER: Record number must be specified. MISSING USING: USING statement missing. Last access must have been a read. INVALID DEVICE: Not a valid device. PREVIOUS LINE:  Š tement, or function name an error number or nothing in which case the last error number is assumed. PREVIOUS LINE: åThe statement, command, or function entered with HELP is not valid. {LET} num-var=num-expr {LET} char-var {(num-expr 1:num-expr 2)}=char-expr The LET statement assigns the value of an arit~ PRINT { The unformatted PRINT statement outputs the specified list to the display terminal or optionally to the printer ( IF log-expr THEN line-num or statement {ELSE line-num or statement} The IF statement branches or executes a state� FORM specification list The FORM statement gives the format specification for PRINT,READ,and WRITE state‚ LIST {line-num} The LIST command lists the program beginning at the first line and continuing through the last li„ ~ ~ GOTO lin-num The GOTO statement branches to the specified line number. STOP The STOP statement stops the program. All files remain open and a stop message is printed. GOSUB line-num The GOSUB statement branches to a subroutine at the specified line number. A RETURN in the subro… FOR var=expr 1 TO expr 2 {STEP expr 3} ... included BASIC statements ... NEXT var The FOR/NEXT statements set up a† TO Please enter HELP FOR for more information. Please enter HELP FOR for more information. Please enter HELP FOR for more information. ON Error Condition GOTO line-num Error Condition can be ATTN,CONV,ERROR,OFLOW,UFLOW,SOFLOW, or ZDIV. ON num-expr GOˆ REWRITE for a disk file. REWRITE {EXIT line-num} The REWRITE statement rew� WRITE for a disk file. WRITE {DUPKEY line-num} � ~ READ var-list The READ statement assigns a data value from the current position of the data pointer to the named variab“ DATA cnst-list The DATA statement creates a data list within a program. RETURN The RETURN statement branches back from a subroutine to the statement following the calling GOSUB. INPUT {"message":} var-list The INPUT statement assigns data values from the keyboard to the variables in the variabl— LINPUT {"message":} char-var The LINPUT statement assigns data values from the keyboard to the specified character va˜ RUN The RUN command executes the BASIC program residing in memory. The data area of memory is cleared and any ™ RESTORE {line-num} The RESTORE statement moves the data pointer to the first data value of the first DATA statement š REM Non-executing statement permitting program documentation. ~ ~ ~ SAVE {drv:}name{.typ}{,S} The SAVE command saves the specified BASIC program to disk. The S option is used to save a › LOAD {drv:}name{.typ} {,S} The LOAD command loads the specified BASIC program from disk. The S option is used to lœ DIM var(m{n,...}) {,...} var$(m{,n,...}){*L} var$*L The DIM statement is used to assign space in the da� END The END statement is used to terminate a BASIC program and should be the last line of the program. All files are ž OPEN for a disk file. OPEN {EXIT line-num} The OPEN statement activates the Ÿ FILES {drv:} The FILES command displays the directory of the default disk drive or the specified drive. RESET The RESET statement performs a disk reset. DEF FNname{$}({var-list})=expr The DEF statement defines a user function that can be referenced in the program using F¡ FREE {drv:}name.typ The FREE command removes the given file from the disk. The file name and type are both require¢ AUTO {line-num,num-cnst} The AUTO command automatically generates line numbers beginning with line number 10 or opti£ CLEAR The CLEAR command clears the program and data areas of memory. Open files are closed. CLOSE {EXIT line-num} The CLOSE statement closes the file previously opened using the file referen¤ OFF {char-expr} The OFF statement returns control to the operating system. Under TurboDOS the optional character ex¥ LISTP {line-num 1,line-num 2} The LISTP command lists the current program to the printer ( the list device) either i¦ OPTION {PRTZO n} {,SPREC or LPREC} {,PTRSET s,l,n,o} {PTRSET s,char expr 1, char expr 2} The OPTION statement provides t§ HELP command HELP statement HELP function HELP {num-expr} The HELP command displays a message to further explain a¬ DEL line-num 1 {,line-num 2} The DEL command removes line number 1 or optionally all lines between line number 1 an­ GO {line-num} {END} The GO command resumes execution following an non-error interruption; ie., ESC key ® EXIT {IOERR line-num} {,IOERR line-num} {,...} {DUPKEY line-num} {,DUPKEY line-num} {NOKEY line-num} {,NOKEY¯ CHAIN char-expr,FILES}{,var-list} The CHAIN statement provides a way to link the current program to a program on disk w± ~ ~ ~ ~ ~ ROUND(num-expr 1,num-expr 2) The value given by num-expr 1 is rounded to the number of decimal places given by the valu² INT(num-expr) Gives the largest integer less than/equal to the numeric expression. LEN(char-expr) Gives the number of characters in the value associated with the string expression. VAL(char-expr) Gives the numeric value of the character expression. ABS(num-expr) Gives the absolute value of the numeric expression. RND(num-expr) Gives a pseudorandom number between 0 and 1 with the following variations: num-expr<0 pseudorando³ SQR(num-expr) Gives the square root of the numeric expression. SGN(num-expr) Gives the value 1 if num-expr > 0. 0 if num-expr = 0. -1 if num-expr < 0. SIN(num-expr) Gives the sine of the numeric expression in radians. ATN(num-expr) Gives the angle in radians whose tangent is given by the numeric expression. LOG(num-expr) Gives the natural logarithm (base e) of the numeric expression. EXP(num-expr) Gives the value of e raised to power given by the numeric expression. POS(char-expr 1,char-expr 2 {,num-expr}) Gives the character position within the value associated with char-expr 1,µ ASC(char-expr) Gives the ASCII numeric value of the first character of the expression. ERR Gives the number of the last error. See section X for a list of error numbers and messages. LINE Gives the line number of the last error. CMDKEY Gives one of the following values depending on which key was pressed to leave a work station screen read: · STATUS(num-cnst 1 {,num-cnst 2}) Gives the status of certain system parameters depending on num-cnst 1. num-cnst 1¹ ~ ~ ~ ~ CHR$(num-expr 1{,num-expr 2}) Gives the ASCII character with value of the numeric expression 1 or the ASCII charact¿ STR$(num-expr) Converts the value of the numeric expression to a character string. CNVRT$(char-expr,num-expr) Converts the value of the numeric expression to a character string using the format À TIME$ Gives the time in character string representation HH:MM:YY. DATE$ Gives the date in character string representation YYYYMMDD. ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ ~hmetic or character expression to the specified variable. PRINT { The formatted PRINT statement outputs the expression list to the display terminal or optionally to the printer€ (specifications given by the FORM statement at the USING line number.ment depending on whether the logical expression evaluates to True or False.ments. The specification list can consist of any combination of the following specifications separated by commasƒ: N w{.d} C w ZD w.d PD w.d PIC(char-list) POS n X n SKIP {n} CUR(m,n)ne or optionally through the specified line number.utine branches back to the statement immediately following the GOSUB.n iteration loop that performs the included BASIC statements one or more times depending on beginning value (expr ‡1) and ending value (expr 2) and the step size. The step size is one or optionally the given value (expr 3).SUB line-num 1, line-num 2,... The ON...GOSUB statement branches to a subroutine at one of several lines depending ‰on the value of the numeric expression. ON num-expr GOTO line-num 1, line-num 2,... The ON...GOTO statement branchesŠ to one of several lines depending on the value of the numeric expreesion. ON num-expr RESTORE line-num 1, line-num‹ 2,... The ON...RESTORE statement sets the data pointer to one of several lines depending on the value of the numeŒric expression.rites a disk record that has previously been read. REWRITE for a work station file. REWRITE Ž {EXIT line-num} The REWRITE statement rewrites data and attributes to a work � station record that has previously been read. {EXIT line-num} The WRITE statement writes data to the disk file specified by‘ file reference number. WRITE for a work station file. WRITE The WRITE statement writes data to a work station ’file specified by file reference number.le. READ for a disk file. READ {,KEY>=char-expr} {NOKEY line-num} ” {,REC=num-expr} {EOF line-num} {EXIT• line-num} The READ statement reads data from the disk file specified by file reference number. READ for a wo–rk station file. READ The READ statement reads data from a work station file specified by file reference number.e list.riable. Upon execution, the entire line entered on the keyboard is assigned to the character variable.open files are closed.in the program or optionally to the first data value of the the DATA statement following the given line number.source (ASCII) file.oad a source (ASCII) file.ta area of memory for numeric and character arrays and to fix the maximum length of character variables.closed and BASIC returns to the command/program edit mode.file reference for a disk file. OPEN for a work station file. OPEN The OPEN statement activates the file referen ce for a work station file.Nname.d.onally with the specified line number and incrementing by 5 or optionally by num-cnst.ce given.pression can be a command string to be executed after return to the operating system. All open files are closed.n its entirety or over the optional line number range, line number 1 to line number 2.he user the choice of certain options: PRTZO n -- print zone width SPREC -- short numeric precision (8 digits) LPREC¨ -- long numeric precision (16 digits) PTRSET s,l,n,o -- printer forms control s=ON or OFF form feed on page o©verflow l=line length n=page length o=page overflow line PTRSET s,char-expr 1,char-expr 2 -- printª mode s=D direct, S spool, C console, or U unchanged char-expr 1= A-P printer of spool file or U unchanged « char-expr 2= A-P spool drive or U unchanged command, statement, function, or error code.d line number 2.pressed or STOP executed. line-num} {EOF line-num} {,EOF line-num} The EXIT statement can be used with OPEN,READ,WRITE and CLOSE stat°ements to provide branching when the specified errors occur.ithout halting execution.e of num-expr 2.m number generator reseeded. num-expr=0 previous pseudorandom number repeated. num-expr>0 new pseudorandom number genera´ted. of the first character of the first occurance of the value associated with char-expr 2 starting with the first po¶sition of char-expr1 or optionally with the position given by the value of num-expr. 0 return key 1 function key F1 2 function key F2 ¸ ... Function Gives 0 Last keyboard key pressed. 1-254 file information - see below. 255 º Current printer line. 256 Number of bytes of unused memory. 257 Current user number (»0-31) For file reference numbers 1-254 then num-cnst 2 determines which additional file parameters are given. ¼ num-cnst 2 Function Gives 0 Record length - all BASIC files 1 End-of-file record number ½- all BASIC files 2 Number of sorted keys - keyed files only 3 Number of unsorted keys - keye¾d files onlyer repeated the number of times given by numeric expression 2.specified by the character expression. The N,ZD,PD, and PIC specifications can be used. Function Gives 0 Last keyboard key pressed. 1-254 file information - see below. 255 º Current printer line. 256 Number of bytes of unused memory. 257 Current user number (»0-31) For file reference numbers 1-254 then num-cnst 2 determines which additional file parameters are given. ¼ num-cnst 2 Function Gives 0 Record length - all BASIC files 1 End-of-file record number ½- all BASIC files 2 Number of sorted keys - keyed files only 3 Number of unsorted keys - keye¾d files onlyer repeated the number of times given by numeric expression 2.å4!| ” ENTRY SCREEN DEMO >DES.BAS<  | ž DES.BAS   MSG$*22,A$*65 !¢ #1: "WS,NAME=DES.FRM,RECL=65" %| VISUAL ATTRIBUTES WITH INDICATORS VATR$="0000011111" MSG$="The quick brown fox..." #%‘ #1,æ 40,å "DES-001",ä VATR$: MSG$ („ C 22 -“ #1,æ 40: MSG$ 26ƒ Ç<1 ‡ 75 † ƒ Ç>5 ‡ 45 | CHECK ‹ INVALID FUNCTION è 7Xƒ VATR$(Ç:Ç)="1" ‡ VATR$(Ç:Ç)="0" † VATR$(Ç:Ç)="1" | TOGGLE VISUAL ATTRIBUTE INDICATOR <:VATR$(6:10)="00000":VATR$(Ç+5:Ç+5)="1" | SET Ö INDICATOR A� #1,æ 40,ä VATR$: Fˆ 45 K)| ” ENTRY ATTRIBUTES WITHOUT INDICATORS PA$=Í$(32,65) U‘ #1,æ 90,å "DES-002": A$ Z„ C 65 _“ #1,æ 90: A$ dƒ A$(61:63)="END" ‡ 105 † 85 iDATR$="00000000" nA$=Í$(32,21) s$‘ #1,æ 120,å "DES-003",ä DATR$: A$ x„ C 21 }“ #1,æ 120: A$ ‚*ƒ Ç>8 ‡ 115 | INVALID FUNCTION è PRESSED ‡:ƒ Ç=0 ‡ ƒ A$(21:21)="Y" ‡ 175 † 115 | • PRESS, CHECK Y/N Œ ƒ Ç>4 ‡ 160 ‘| FUNCTION è 1-4 PRESSED –5DATR$(1:4)="0000":ƒ DATR$(Ç:Ç)="0" ‡ DATR$(Ç:Ç)="1" ›ˆ 115  | FUNCTION è 5-8 PRESSED ¥4ƒ DATR$(Ç:Ç)="1" ‡ DATR$(Ç:Ç)="0" † DATR$(Ç:Ç)="1" ªˆ 115 ¯© #1: ´ ª "MENU" ÿÿ"1" ›ˆ 115  | FUNCTION è 5-8 PRESSED ¥4ƒ DATR$(Ç:Ç)="1" ‡ DATR$(Ç:ÇS WITH INDICATORS VATR$="0000011111" MSG$="The quick brown fox..." #%‘ #1,æ 40,å "DES-001",ä VATR$: MSG$ („ C 22 -“ #1,æ 40: MSG$ 26ƒ Ç<1 ‡ 75 † ƒ Ç>5 ‡ 45 | CHECK ‹ INVALID FUNCTION è 7Xƒ VATR$(Ç:Ç)="1" ‡ VATR$(Ç:Ç)="0" † VATR$(Ç:Ç)="1" | TOGGLE VISUAL ATTRIBUTE INDICATOR <:VATR$(6:10)="00000":VATR$(Ç+5:Ç+5)="1" | SET Ö INDICATOR A� #1,æ 40,ä VATR$: Fˆ 45 K)| ” ENTRY ATTRIBUTES WITHOUT INDICATORS PA$=Í$(32,65) U‘ #1,æ 90,å "DES-002": A$ Z„ C 65 _“ #1,æ 90: A$ dƒ A$(61:63)="END" ‡ 105 † 85 iDATR$="00000000" nA$=Í$(32,21) s$‘ #1,æ 120,å "DES-003",ä DATR$: A$ x„ C 21 }“ #1,æ 120: A$ ‚*ƒ Ç>8 ‡ 115 | INVALID FUNCTION è PRESSED ‡:ƒ Ç=0 ‡ ƒ A$(21:21)="Y" ‡ 175 † 115 | • PRESS, CHECK Y/N Œ ƒ Ç>4 ‡ 160 ‘| FUNCTION è 1-4 PRESSED –5DATR$(1:4)="0000":ƒ DATR$(Ç:Ç)="0" ‡ DATR$(Ç:Ç)="1" ›ˆ 115  | FUNCTION è 5-8 PRESSED ¥4ƒ DATR$(Ç:Ç)="1" ‡ DATR$(Ç:ÇDES-001 DES-002 DES-003 ÿÿÿÿÿÿ"€€ DATA ENTRY SCREEN DEMO "-€-- Visual Attributes% €1...Low Intensity% The quick brown fox...%;€Toggle with F1' €2...Blink ' The quick brown fox...';€Toggle with F2) €3...Reverse ) The quick brown fox...);€Toggle with F3+ €4...Underline +  The quick brown fox...+;€Toggle with F4- €5...Non-Display € € -;€Toggle with F50 €gNote: Field 5 allows data entry which will be hidden if toggled for non-display.4 €Press4€€RETURN4€key when finished.ÿ-€-- Visual Attributes© v â Í H Ù   u � � £ µ { ‡ Ñdàdædìd“ © ¯ » Á "€€ DATA ENTRY SCREEN DEMO "*€-- Data Entry Attributes%€1...Controlled field exit (Y) �1€€&€ " " " (N) €1€€(€2...Adjust/Fill (N) €1€€)€ " " (B) „ 1€€*€ " " (Z) † 1€€,€3...Mandatory Entry (Y) � 1€€-€ " " (N) € 1€€/€4...Mandatory Fill (Y)  1€€0€ " " (N) €1€€2€5...Field Type (A-alphanumeric)€1€€3€ " " (N-numeric) À1€€5€6...Auto RETURN (N) €1€€6€ " " (Y) €–1€€68€(END when finished)ÿ*€-- Data Entry Attributes 0CH ;^L CURSOR RIGHT DB 0AH ;^J CURSO"€€ DATA ENTRY SCREEN DEMO ")€-- Data Entry Attributes Cont.%€Data Field 1 € €€%)€F1 to Position F5 to Protect'€Data Field 2 € €€')€F2 to Position F6 to Protect)€Data Field 3 € €€))€F3 to Position F7 to Protect+€Data Field 4 € €€+)€F4 to Position F8 to Protect-€Finished (Y N)€ €€ÿ)€-- Data Entry Attributes Cont.SEÔATTÎERROÒOFLO×UFLO×ZDIÖIGNORÅEXD± � 1€€-€ " " (N) € 1€€/€4...Mandatory Fill (Y)  1€€0€ " " (N) €1€€2€5...Field Type (A-alphanumeric)€1€€3€ " " (N-numeric) À1€€5€6...Auto RETURN (N) €1€€6€ " " (Y) €–1€€68€(END when finished)ÿ*€-- Data Entry Attributes 0CH ;^L CURSOR RIGHT DB 0AH ;^J CURSO"€€ DATA ENTRY SCREEN DEMO ")€-- Data Entry Attributes Cont.%€Data Field 1 € €€%)€F1 to Position F5 to Protect'€Data Field 2 € €€')€F2 to Position F6 to Protect)€Data Fiåà ÃÎÃO1¨Ͱ GENMSG--Copyright (C) 1984 by DeltaSoft, Inc. 14 May 8´¨!\ ÍeÌÍe!ð±Íe!óÕÍe!ü6# x±Âv¨Í !v"ú!ü¯2ý2ö2ÿ<2þÍÜþÊÎþ|ʼ{þ¢âyþ€ÊÎz·ÊÉw##ß!üQ~·ÊÛq#p+�OxÎG##ÂÒ!ü¨Í ÌÍ9¯2ö2ù2ü:ùþ~Ê:ÍÜþÊOþ|ÊÍdÃ:ùþÊ*¯ÍdÃÍ2##Ã:ü<2üÉÍÜþ|Â:~#Íd~+ÍdÃ*¨Í !v"ú!ü¯2ö2ù~#¶+ʽ~ÍÜþÊÍÂn:ùþ~ʨÍÜþÊÍþ|Ê•ÍdÃz:ù·Ê£¯ÍdÕ##Ãe^#Vr+s{ÍdzÍdÍ2ÃzÍÜþÊÍþ|½ã¨ÍÛÌÍÛÃÍþ#Âùõ:þ·ÊøñÍþ ÂíÃÜñþ À2þÉ:ÿþÈ:ö·Ì-å*÷~2ÿ#"÷áõ:ö<2öþ€Â+¯2öñÉ:ý·ÂRÕöÍѨÅͪ2ýÁÑå!ö"÷áÉåÅ€!ö6#ÂYÁÃJå*úw#"úáõ:ù<þ€Ì}2ùñÉå!v"úáÕvÍÑÌÅͪÁÑ·ÈͰ DISK FULÌÃÍåÍáÉã~#·ú½ÍÄñæÍÄãÉõÅÕ_ͪÑÁñÉÅÕͪÑÁÉÅÕͪÑÁþÿÀͰ CANNOT CLOSÅÃÕ¯å! w#ÂáÑɯ2ÿ2ýÍûÅÕͪÑÁþÿÀͰ FILE NOT FOUNÄÃÍûÅÕͪÑÕͪÑÁþÿÀͰ DIRECTORY FULÌÃÅÕå~# x±ÂháÑÁÉZ.õb8ÊÏ.þ,ÊÙ.þ ÊÙ.þ ÊÙ.þ;ÊÙ.þ!ÌÜ þ Êì.w+Í� Ãl.Ow+Í� ¹Ê¸.þ Êñ.ç.w+Í� ¹Ê§.LIBMSGË.w+à.Ê .úÞ.Þ.ž.Ñ{•=Áë*Á7+~ëÉÊÞ.ͼÃÞ.õå!E8Í6 Ò /#6 +ëáñÉáñÉÍ-þ&Ì-þ:Ê-þ!Ðþ ÈõÍÁ Ê//ÍýÊñÃ-ÍX%:v8þ ÊA/ë"Ì9Ͱ+ÁÑáU/ÅÕ> Ã3ÁP/ÅÍ þ:Ì Í,Êv/Ã7ÍÛ4þ Âk/ɯÍÛ4Í>5ÁÑá!´åÕ*ñ9åå*Ì9å!´å!˜/åÅÉÍé/ÁáÑÍ6 ÂÅ/:Õ9·Â°/x±ÂÅ/Í64*Ç9ÍP,¯2Õ9ÑÕ*Î9åëéÕÍ5·Êø/Ã7Í(5Í÷.þ ÂÐ/åÅ*Ð9å*Ò9å*Î9éÑá"Î9á"Ò9á"Ð9ëé bkÃ�/:É9·Ê¼2Õ9ÁáÑ0Õåů2Ô9Ãó Ø:Õ9·Êz0ÁÍÅÍ þ:Ì ÍýÀ·ðOæÂN0yæÂV0yæ Â^0yæ@Âk0É:Ô9=2Ô9É:Ô9<2Ô9É:Ô9·À:q7·ÈÃ~%:Ô9·À#~þÈ>ÿÃä%ÁÑá!´åÕÅÉ·õͰ+"Ö9ÍA.O:v8þ Ê�0ÍP,ñÉy6+þ,ÄtñõÊÙ0ÍÜ þ<Ätñwåõ+:v8þ Â41ñõGÊç0Íd. þ Ê11:ÿþÈ:ö·Ì-å*÷~2ÿ#"÷áõ:ö<2öþ€Â+¯2öñÉ:ý·ÂRÕöÍѨÅͪ2ýÁÑå!ö"÷áÉåÅ€!ö6#ÂYÁÃJå*úw#"úáõ:ù<þ€Ì}2ùñÉå!v"úáÕvÍÑÌÅͪÁÑ·ÈͰ DISK FULÌÃÍåÍáÉã~#·ú½ÍÄñæÍÄãÉõÅÕ_ͪÑÁñÉÅÕͪÑÁÉÅÕͪÑÁþÿÀͰ CANNOT CLOSÅÃÕ¯å! w#ÂáÑɯ2ÿ2ýÍûÅÕͪÑÁþÿÀͰ FILE NOT FOUNÄÃÍûÅÕͪÑÕͪÑÁþÿÀͰ DIRECTORY FULÌÃÅÕå~# x±ÂháÑÁÉZ.õb8ÊÏ.þ,ÊÙ.þ ÊÙ.þ ÊÙ.þ;ÊÙ.þ!ÌÜ þ Êì.w+Í� Ãl.Ow+Í� ¹Ê¸.þ Êñ.ç.w+Í� ¹Ê§.LIBMSGË.w+à.Ê ƒ$| è ” ACCESS TEST -- DUMMY PROGRAM  | ž KED.BAS *‚:‚ "KEY TEST DATA FILE NOT AVAILABLE":‚ ‹ I=1 Œ 1000:Ž I  ª "MENU" ÿÿ è ” ACCESS TEST -- DUMMY PROGRAM  | ž KED.BAS *‚:‚ "KEY TEST DATA FILE NOT AVAILABLE":‚ ‹ I=1 Œ 1000:Ž I  ª "ME(5Í÷.þ ÂÐ/åÅ*Ð9å*Ò9å*Î9éÑá"Î9á"Ò9á"Ð9ëé bkÃ�/:É9·Ê¼2Õ9ÁáÑ0Õåů2Ô9Ãó Ø:Õ9·Êz0ÁÍÅÍ þ:Ì ÍýÀ·ðOæÂN0yæÂV0yæ Â^0yæ@Âk0É:Ô9=2Ô9É:Ô9<2Ô9É:Ô9·À:q7·ÈÃ~%:Ô9·À#~þÈ>ÿÃä%ÁÑá!´åÕÅÉ·õͰ+"Ö9ÍA.O:v8þ Ê�0ÍP,ñÉy6+þ,ÄtñõÊÙ0ÍÜ þ<Ätñwåõ+:v8þ Â41ñõGÊç0Íd. þ Ê11:ÿþÈ:ö·Ì-å*÷~2ÿ#"÷áõ:ö<2öþ€Â+¯2öñÉ:ý·ÂRÕöÍѨÅͪ2ýÁÑå!ö"÷áÉåÅ€!ö6#ÂYÁÃJå*úw#"úáõ:ù<þ€Ì}2ùñÉå!v"úáÕvÍÑÌÅͪÁÑ·ÈͰ DISK FULÌÃÍåÍáÉã~#·ú½ÍÄñæÍÄãÉõÅÕ_ͪÑÁñÉÅÕͪÑÁÉÅÕͪÑÁþÿÀͰ CANNOT CLOSÅÃÕ¯å! w#ÂáÑɯ2ÿ2ýÍûÅÕͪÑÁþÿÀͰ FILE NOT FOUNÄÃÍûÅÕͪÑÕͪÑÁþÿÀͰ DIRECTORY FULÌÃÅÕå~# x±ÂháÑÁÉZ.õb8ÊÏ.þ,ÊÙ.þ ÊÙ.þ ÊÙ.þ;ÊÙ.þ!ÌÜ þ Êì.w+Í� Ãl.Ow+Í� ¹Ê¸.þ Êñ.ç.w+Í� ¹Ê§.LIBMSGË.w+à.Êå1 ÍëÃ&ÃâÃ_ à Copyright (C) 1984 by DeltaSoft, Inc. 30 Apr 84$åÅÍUÁáÉ*Ñw#}æÂy ͉ͧ>Ä_! "ÑÉ<þ€Â¢Õ—Õ!$ëÍÑͧÑ>Ä_¯!%…o~Ð$~ÉåÕÅäÍ}ÁÑáÉ>ÿÍU}æºÉ|ºÀ}»É"Ó¯w#ÂÒ6ÿ#6ÿ>#6=Âß*Ó"ÕÉÓ*ÓÉ>É*Õ¯w#Âý##å:àGÍ­w# "×ÁÍ4Õ*Õë*×"ÕáÐr#s#ë####r#sÉÍí|µ7ÈÅå######:à2Û ¾ÂW#:Û=ÂFáÊiÁÚa##V#^+ëÃ733É*ÓV6#^6#ë|¥<È|µÂoëͪÍ�ØÂoëÍ�Ø+~+¶##Â�ÂV#^#ë|¥<7È|µÉå####Í´áÉ:àG~#ÍM¸É!� Í̉$Í*ª:¬ÍJ*Ð|µÊ+"ÐÍ÷*Õë*ÙÍÆÒÙÍlͺÃÂå*Ü#^#V#~"ÜáÉåÍ<>Ì_åÍ<>ÀÍ_‰Í<>Ä_‰Í<>Ì_­Í<>ÀÍ_Š!™6#̓6K#6E#6Y‰Í<>ÀÍ_åÍÉw#ƒÉ\!åÕ ̓ÑÕ!‰ ̓Ñ!­ ÃÍŒÍ Í**%"Ù! "Ñ>äÍ}W#^ë"Ðë#V#^ë"Òë#V#^#F#Në"à`i"Ú|µÊÑ"â*Ð|µÊÑë#V#^ë"Ì! "ܯ2Ô*Ò#ë*àÍ Î2"y=2äå!ͧ>Ä_åͧ>Ä_ÃÂë*Üw+r+s+"Ü:Ô<2ÔÉá§ÊÃþÊ€þÊ·Òø=ʱì  ÍÆÃÌ File currently in use by another process$„ ÃÌ. ÃÌn ÃÌ– ÃÌK  Í\!e6O#6U#6TåÕÍÑá6X+6D+6IÍÃþÚ½ÊÉ¿ ÃÌ*Õ� ÍÆÊÍlͺ‰Í<>Ì_*Ò}´:ÔÊ2<2Ô$!� =Â;"Üåë*Ô+))"Þ####6#6###}§Êa$Tá� :Ô2Ör#6#p#q#å!$ DMá:Úº>Ê_Ú_:Ö=Âk!‰"Î*Ò|µ>2ËÊÍ—2Ë!ÍJ:Ô=2Ô!å"Î>2ÖÍ!‰"Î>2ÖÍ:ÔO:Ö<¹ÚÍÊÍ Í­!‰$̓! "Ñ6#6#ë*âër#s#ë*àër#s#ë*âër#së*Ìë#r#s‰Í:Ô2Ö=ʘ*ÜDM>2ÖÍÕëÍÕÍìÚ[:ÜÅGy�Á2ÖëÍÕz³ÂGÍ´Í_Ò,:Ô=2Ô*Ö+))ë*Üë*Þ~6#„øÿ "ÞÃ,*ÜV#^ëÍ´Í_Ò˜ͺ‰Í<>Ì_ÍzÍU!e6I#6D#6X\Íà W _É:Ö=‡‡O*Ü ÉåÕÅ:àGëÍûÁÑáɾÀ#ÂûÉÍÞV#^åë"ØëÍá#V#^Õ*Î$~#Â!ÑÕÕÍá!Íþs#r#wÑÕ!ÍÑÕÍ€*Ø ëÍÑÃåÅ:Ö=Ì´Ú®ÍÞV#:à_†wƒ^Ò­~Ö€w#åb.€~#}§Â†á++V€åÍá##V#^++åÍá^+Vþÿ?ÁáÉ:˧À*Ò+}´"Ò>À=2Ë7É KEY IDX OUT No space in the Directory $ Write Error - Probaly Disk Full $ Cannot Rename File $ File Not Found $ Memory Size Too Small To Keysort File $ Unable to Read Disk - Presumed Bad Sector $ File Currently Being Keysorted $" å!" "" "$ "& "( ë+ Õ$ |g}oÒJ ã·ÕåŽ# Â> áÑãÍk Â/ Íu :$ ÑáO…oÒa $)D*% :' ÉÕ Íu Ñ·É·Õ� Ây ÑÉåÃÀâãÃàÃáÃäÃåÃôÃ.ÿˆŒ½ÿÿÿ‡ÿˆŒŠ‹�‚Љ…˜š�@�A�B�C�D�E�F�G�H�I�J�K�L�M�N�O�ÿšPB@P @Terminal: WYSE 100  å!2Í9áÉå!7Í9áÉåÕ:I·Ê}lgë!<Í9:A‚ÍS:B·ôM:CƒÍS!DÍCÑáÉå!¨Í9!­Í9áÉåÕÅÍ*·Êœ:J¸Â_*}´ÊR*M >=ÚœÓ!KÍø ¸Òw Í*·ÊpÍøÚ… ÂwàÂ}2Æ7?ÜÂŒ:JÆ7ÁÑáÉxþ Ò‰þ ʉ:uæ¸Ê‰—Ü  åÕÅ!uGÍøÂêÍ*·ÊÖÍøÚï ÂÝ7?xÁÑáÉÂã—7CÃêÅå~þÿÂá###xÁÉ·ü%¸7Ây·7Ê Í*·Ê#~à æÉåÕÅÿÍÁÑáGÉ:·:KÄM~õæþÄMñ·ø#ÃCÅo:·Âb}ÍMÁÉ&d}ÿ”Òi„oxÆ0ÍM& Âf}Æ0ÍMÁÉ!Í9!²~2#~2#~2#~2wÉÉåÅ}€þQÚ¯$ÖPoÍö>ÍM>GÍM>pÍMÁáÅ-ÂÌ.P%Íö>ÍM>GÍMÁyö0ÃMÉÃöÉ>ÍM>GÍM>0ÃMåõiÍO:õ1ÍÐ>9ÍÐyÍ»ÁxÍ»ñûÖ ÚÆýõxÍÎñÆ Æ0w#Éyæ>ÂÜ<2úÉ…oÐ$É/<…oØ%ø7ÉëáÃÿ0000000099:99:991ã>2\:]þ Âù!]#6 ÂÕ!î] ~# ÂãÃùMENU01 \͉þÿÊî!äå6Àáå6ë͉\͉·Êá\͉Í'äþ;ÂDÍåÃ8þ*ÂMÍ�ÍSgÍ�ÍSoÍöÍ�þ$Êpþ ÊpÍBÃ^þ ÂpþÂ8!“6<ë ͉ÍS·ÊßOëäþ;£Íå×þ*Ê® y·Ê¿þ ®þÊú×þ$¿!€w#þ ÂÉ+6>ÍB/ÍÍ'Ãþ ÂåÉÃÃ)à ͉à MENU NOT ON DISK $ COMMA ERROR $ ITEM# NOT IN MENU $ÉÅÕ_͉ÑÁÉåÍBáÉåÅ!þ ÂbÃXþ0Ú}þ:Ò}Ö0DM)) )O ÃbÁ}áÉþ,ÂôÉåÕÅÍÁÑáÉ1ÍÐ>9ÍÐyÍ»ÁxÍ»ñûÖ ÚÆýõxÍÎñÆ Æ0w#Éyæ>ÂÜ<2úÉ…oÐ$É/<…oØ%ø7ÉëáÃÿ ; ; Demonstration Menu File for DeltaBASIC System ; ; ; Key for MENU INTERPRETER commands: ; ; The first character of each line in the menu file has the following meaning: ; ; ';' -- comment line ignored by interpreter ; '*' -- displays message at row and column (see below) ; OR if the line begins with neither of the above: ; (a) displays menu option at row and column (terminated by '$'), ; (b) followed by commands to execute if option is selected. ; ; Note that menu options are numbered by their order in the menu file. ; ; *,2,25,*** DBASIC DEMO MENU (T) *** ; ; First Column Options ; *,4,1,ITEM# 6,2,1 Customer Master File Maintenance$DBASIC CUSMAN 8,2,2 Customer Master File Reports$KEYSORT CUSMAS\DBASIC CUSREP 10,2,3 Remove Deleted Customers$KEYSORT CUSMAS\DO CUSDEL\MENU MENU01 12,2,4 $ 14,2,5 Data Entry Screen Demo$DBASIC DES 16,2,6 Keyed Data File Demo$DBASIC KED ; ; Second Column Options ; *,4,39,ITEM# 6,40,7 Enter DBASIC Command/Program Edit Mode$DBASIC\MENU MENU01 8,40,8 Enter SDU (Screen Design Utility)$SDU\MENU MENU01 10,40,9 Enter HELP (TurboDOS Utilities Aid)$HELP 12,39,10 $ 14,39,11 $ 16,39,12 Return to Operating System$ *,23,2,Enter Item# or Command: age at row and column (see below) ; OR if the line begins with neither of the above: ; (a) displays menu option at row and column (terminated by '$'), ; (b) followed by commands to execute if option is selected. ; ; Note that menu options are numbered by their order in the menu file. ; ; *,2,25,*** DBASIC DEMO MENU (T) *** ; ; First Column Options ; *,4,1,ITEM# 6,2,1 Customer Master File Maintenance$DBASIC CUSMAN 8,2,2 Customer Master File Reports$KEYSORT CUSMAS\DBASIC CUSREP 10,2,3 Remove Deleted Customers$KEYSORT CUSMAS\DO CUSDEL\MENU MENU01 12,2,4 $ 14,2,5 Data Entry Screen Demo$DBASIC DES 16,2,6 Keyed Data File Demo$DBASIC KED ; ; Second Column Options ; *,4,39,ITEM# 6,40,7 Enter DBASIC Command/PrograÃxÉ$F#V#^ëÍ;7Èës+r#É|ºÀ}»É}“o|šgɾÀ#Â(Éw#Â2Éå)|¸áÉÕ$F#V#^ãÍ;ëá7Ès+r·É$F#>q#=ÂcÉåÍcáÉåÍYëÅÍÁëÑÉÕåÍáÑÉÍpÅ:ÆOÍÁ§Ê !$q7É x¹ÈÅ€ ëÍëÁʯ>2Ç…oÐ$ÉÍ<ÉÍÃwÍâ#ØÖ@Gþ:À+p#ÉÍìþAØþ[?ÉþaØþ{ÐÖ ÉÍÈåÍáõÕÑñÉ xÍj.ÃEþ Êþ 7?Éþ?7Èþ*7È?ÉÍÈåÍ<áõÕÑñÉ xÍj,Íìþ Ê?Ðþ;ÈÍ Ø¹Èw#ÂF7É$6¯ÉãÕ;#Êlæ¾ÊÑã·Éñ7ãÉ!ÍÖ0þ ÐDM)) );ÆÍp! >ÍaÍ<7ÈëÃbÍpÍ<7ÈëÃbÕá/ÍÑÉÍÂÍ<7ȯÉå%V#^ë)}§Êì$|§áåĶáØÍpÍ<7È?É ÃÕ_:2§ÊÍÑÉõ¯2¤4ñÉ:¤4§Ê4ÍLÐÍÍÀx ÍÕåë;6 áÑÉå*2~#§7Êlþ Êlþ,ÊlÍÃS"2á> É1•1¥4ÍÍk >2¤4!2"2�Í2¯2�äÍk Ík 1•1!26#Í­Ã!z³ÅÄÁx§Â!€Ã! Incorrect FILE NAME File Name? $ß͹"ß/Í>ÈÍÊÍöõÍ Ú ñ>ØÍ*õÍ Ú ñ>Ø>Éñ0Í*ß/ÍÃí Wild Cards Not Allowed$ Incorrect RECORD LENGTH Record length? $b͹̓ÍØIÍÃw Incorrect FILE TYPE File Type? $¤͹ÍÈÍìþAÈþDÈ�ÍõÙÍÃU DELETE POSITION Greater Than Input Record Length Delete Position? $ RANGE ERROR (0-255), Reenter Delete Character? $*|µÀ ͹*|µÀ̓|µ" Èë* ÍÚÐ=͹ÍÊRÍþ"Ê¢̓|·ÄÂ|}2 É2 É KEY POSITION Incorrect Key Position? $À͹̓ë* Íë¨ÜÚÔ|µ"ÈG͹̓|·1ÄÂö}§ÊÑþ!ÔÒö2*;ë* #Í1ÜÚöÉ KEY LENGTH Incorrect Key Length? $ÍÂÍ<7ȯÉÍÂÍ<7ȯÉã"ÃãåÕÅõ͈*#"ñÁÑáÉåÕÅõ> Í> Í*ÍÅáÍÅáÍÅáÍÅáÍÅ*ÃÍÅÍÍÍÒþÀáñÁÑáÿ|Í×}Í×> ÃÃÍÚõæþ ÚèÆÆ0ÍñÉ INPUT FILE NOT FOUND$ INPUT FILE$ OUTPUT FILE$Í!‘Íí§Ê=ÂAÊÍÍÃ'!‘͛ҫïÃ8 Incorrect INPUT FILE TYPE$ The record size is $ The current number of record(s) $PÍͲþ µ>DþDÊÄþMÊÄþAÂ¥2!‘Í´:þAÊ!‘Í####V#^#ë" ëV#^ë"c0lÍ* ÍR !‘ÍA‚Í*c0ÍR ÍÑÍR‘!¸ Í2Í!¸Íí§Ê¯À Incorrect FILE NAME$ OUTPUT FILE is same as INPUT FILE, Reenter$JÍÃ'‘!¸ Í(Êw¸ÍVÚ5 Å͹ÍÍìþYÊ/ þN— ͹ÍÍìþYÊ!à File currently exists, Do you wish to DELETE current copy? $ Do you wish to Restart at the Beginning? $¸ÍÍ*|µÊå !Áq Í(Êå t Íó Í͹Í7ÈÍìþYÈþNÂT ·ÉKEY The File TYPE must be KEY$ Do you wish to Proceed anyway ?$ Incorrect response, Y or N expected. Reenter $!¸ͳ*|µÊÿ !:;à Ͳþ  >D2:þA!Ê Ít|µÊÿ ":þAÊ3 €!¸ÍAE ÍZ Êt ¸ÍÍÞ Continue? $åÕÿÿöÿ ÚZ  ë|µÄR {Æ0ÍÑáÉ͵ :b0Ö=ÊŠ õ7Í÷ ñÃ} åÍ® ãx/Gy/OÍ® xGyOÚª |g}oØ DMáÉ| g}¡oÉå&xæ@ÂÅ $Í÷ ø |2a02b0á}‘o|˜gÒÛ ·ÃÜ 7Íê :a0=2a0ÈÃÍ {_zW}o|gÉyOxGÉDM!>2a0zW{_Ò |g}o:a0= Ãð !‘Í´Ã: :þAÊE *c0|µ7È!‘ÍÚ" ~ÉÍ: þ7È?ÉW Íà Unable to write OUTPUT file$!¸ͶÚN ÕåÅÍ� ÁáÑñõ!¸ÍÚv ñwÉ* }´ÈÞ': ¾7È?É!ß'6 #® ® É*}´ÈÞ':ëGÍ2ë*g0ÍJ ë>Ãaß'*g0#"g0:þA!ß/Ê * åÕÍ+ ÑáØ+|µÂò *c0+"c0ÉÕåÍ+ áÑØþ Ê þ ÈÍ É!ß':þAÊI ë*åÕ͉ Ñá+|µÂ2 *e0#"e0ÉÞ/þ ÂZ ÍÂL ë#6 #6 #ß'Í!Ã2 q à $Ík ͨ ÍÚ ÚÓ Í– Úw ͺ Í# Ãw › Í*e0ÃR Last Record Written $ Total Number of Records Written $± Í*e0ÍR :þA>̉ !¸ÍÚ:þAÊQ !¸ååÍ›áÍ´áÍë*|µÊ *e0ÍJ !ÍJ Ã# *ÍJ *e0ÍJ *ÍJ !¸ååÍ›áÍ!¸ÍÚÃQ |}É*|µÂà o ͹ÍÍìþYÊžà Operation Successful Do You Wish to ORGANIZE another file? $ Unsuccessful Operation$ KEYSORT in Progress $!Áq Í(ÂY É Íͪ:2§Ê,=Ê>22!EÍ}*2ÍR !q Í}¯22EÍ*2ÍR Ã3:•1§ÊY ¯ ͸Í͆ Ã\ Total Number Of DUPLICATE KEYS $åÅÍoÁáÉ*¯1w#a0{•7?˜á/Ít3ͧ>Ä^!á/7"¯1É<þ€ÂÁÕ—Õ!$ëÍÑͧÑ>Ä^¯!%…o~Ð$~ÉåÕÅÏ2ÍœÁÑáÉ>ÿÍoØÃÙ"±1¯w#Âè6ÿ#6ÿ>#6=Âõ*±1"³1ɱ1*±1É>É*³1¯w#Â##å:«1GÍÌw# "µ1ÁÍJÕ*³1ë*µ1"³1áÐr#s#ë####r#sÉÍ|µ7ÈÅå######:«12¹1 ¾Âm#:¹1=Â\áÊÁÚw##V#^+ëÃM33É*±1V6#^6#ë|¥<È|µÂ…ëÍÀͳØÂ…ëͳØ+~+¶##£ØV#^#ë|¥<7È|µÉå####ÍÊáÉ:«1G~#ÍgÂÎÉ!Ø4Íât3$Í*•3:—3ÍI*›1|µÊÏ+"›1Í *³1ë*·1ÍÒïÍ‚ÍÙÃØå*º1#^#V#~"º1áÉÐ2Í<>ÀÍ^t3Í<>Ä^t3Í<>Ì^˜3Í<>ÀÍ^u3!„36#Í26K#6E#6Yt3Í<>ÀÍ^Ð2Íɸ!Ð2Õ Í2ÑÕ!t3 Í2Ñ!˜3 Ã2Í‹Í#Í2*%"·1!á/"¯1>Ï2ÍœW#^ë"›1ë#V#^ë"�1ë#V#^#F#Në"«1`i"¥1|µÊ•"­1*›1|µÊ•ë#V#^ë"–1!ü1"º1¯2Ÿ1*�1#ë*«1Í…Î2ó2"ñ2y=2Ï2Ð2!ͧ>Ä^Ð2ͧ>Ä^ÃØë*º1w+r+s+"º1:Ÿ1<2Ÿ1Éá§Ê‡þÊ{ÒÁ=Êu�4Ã�4Ã�¼3Ã�ÿ3Ã�)4Ã�Ú3 ͸!Á6O#6U#6TåÕÍÑá6X+6D+6IÍ>ÿ2•1Ã÷ þÚ�Ê�S4Ã�*³1Ø4ÍÊÞÍ‚ÍÙt3Í<>Ì^*�1}´:Ÿ1Êû<2Ÿ1$!Ø4 =Â"§1åë*Ÿ1+))"©1####6#6###}§Ê*$TáØ4:Ÿ12¡1r#6#p#q#å!$ DMá:¸1º>Ê^Ú^:¡1=Â4!t3"™1*�1|µ>2˜1Ê–—2˜1!ÍI:Ÿ1=2Ÿ1!Ð2"™1>2¡1Í¿!t3"™1>2¡1Í¿:Ÿ1O:¡1<¹Ú–Ê–á/͘3!t3$Í2!á/"¯16#6#ë*­1ër#s#ë*«1ër#s#ë*­1ër#s#ë*–1ër#st3Í:Ÿ12¡1=Êa*§1DM>2¡1;ë;ÍÕÚ$:§1ÅGy�Á2¡1ë;z³ÂÍÊÍÒõ:Ÿ1=2Ÿ1*¡1+))ë*§1ë*©1~6#ÂMøÿ "©1Ãõ*§1V#^Õå!ß':«1GÍ2ÑáÍÊÍÚ�*§1V#^!ß'ÍÕÃaÍÙt3Í<>Ì^Í‚Í]!Á6I#6D#6X¸Í¯2•1Ã÷ W _É:¡1=‡‡O*§1 ÉåÕÅ:«1G"þ1ë"ü1Í(õxþÜñÁÑáÉ At least one DUPLICATE KEY exists Please enter the device to receive the list of DUPLICATE KEYS (C=Console, P=Printer, B=Both) $ò͹ÍÍìþBÊËþPÊ•>22É>22>22!ÐÍ}!¸~Æ@Í>:Í#Íó>.ÍÍó¯22:2É>× List Of DUPLICATE KEYS for File $~þ Ò>^ÅÍÁ~Æ@ÅÍÁ#ÈÃó*2#"2:2·Ìw=Êy=Ìy>22!¦Í}:«1Öõ*þ1;N+F*ü1ñ;^+V`iÍÚQëÍR !ŽÍ}ÍR !·Í}*þ1:«1ÖGÍó>"ͯ22ɯÃ&Õëþ$ÊŒÍÃáÉ matches Record Number $ Record Number $, KEY="$ÍÇV#^åë"£1ëÍá#V#^Õ*™1$~#ÂÛÑÕÕÍá!Ís#r#wÑÕ!ÍÑÕÍ€*£1 ëÍÑÃåÅ:¡1=ÌnÚhÍÇV#:«1_†wƒ^Òg~Ö€w#åb.€~#}§Â@á++V€åÍá##V#^++åÍá^+Vþÿ?ÁáÉ:˜1§À*�1+}´"�1>À=2˜17ÉÕåÍþ €Ír ãÕ Å€Ír yÁC§Ê£áÑ{ÑÉ  KEY IDX OUT No space in the Directory $ Write Error - Probably Disk Full $ Cannot Rename File $ File Not Found $ Memory Size Too Small To Keysort File $ Unable to Read Disk - Presumed Bad Sector $ File Currently Being Keysorted $ Copyright (C) 1984 by DeltaSoft, Inc. 30 Apr 84$able to Read Disk - Presumed Bad Sector å þÉ|ºÀ}»É}“o|šgɾÀ#ÂÉw#ÂÉq#=Â&ÉåÍ&áÉÕåÍáÑÉÅ: ÆOÍ3Á§7À x¹ÈÅ€ ëÍ3ëÁÃ>…oÐ$ÉÍ3<ÉÍbwÍ�#ØÖ@Gþ:À+p#ÉÍ‹þAØþ[?ÉþaØþ{ÐÖ ÉÍ´ÈåͧáõÕÑñÉ xÍ-.Ãäþ ʳþ 7?Éþ?7Èþ*7È?ÉÍ´ÈåÍÛáõÕÑñÉ xÍ-,Í‹þ Ê´?Ðþ;ÈͿعÈw#Âå7ÉãÕÍ´¾Â#Ãö€¾Â#ñ7ãÉ~·#òÑãÉ!Í´Ö0þ ÐDM)) )Í]Ã'ÍVÍ3<7ȯÉÍVÍ3<7È?ÉÕ­ Í3ÑÉÍVÍ3<7ȯÉ Ã3 x Í3ÕåëÍ]6 áÑÉ Copyright (C) 1984 by DeltaSoft, Inc. 30 Apr 84$1) ‹Ín*%%%%"« ! " !" !" +" €! €Í Í}ìz³ÅÄnÁx§Âs€ÃsÍVÍ3<7ȯÉÍVÍ3<7ȯÉã"{ãåÕÅõÍ>*y#"yñÁÑáÉåÕÅõ> ͇> ͇*yÍ}áÍ}áÍ}áÍ}áÍ}*{Í}Í…Í�þÀáñÁÑáÿ|Í•}Í•> Õ_Í3ÑÉÃ3͘õæþ Ú¦ÆÆ0͇ñÉå! 6#" áåÕÿÿöÿ ÚÀ ë|µÄ¸{Æ0Í!ÑáÉÍ: Ö=Êðõ7Í]ñÃãåÍãx/Gy/OÍxGyOÚ|g}oÃþDMáÉ| g}¡oÉå&xæ@Â+$Í]Ã|2 2 á}‘o|˜gÒA ·ÃB7ÍP: =2 ÈÃ3{_zW}o|gÉyOxGÉDM!>2 zW{_Òx |g}o: =ÂkÃVŽÃn $|}É Operation Successful$ÍÕØïw: §ÌÍ#z¸Â·{¹Â·É++ÉÍ´þ0Øþ:?ÉÕÍ´ͯáÍô>2 Í·" Éå* DMáÉBK Õ* T]: =Í]" ¯2 Í·Ñ! F#ëÃå* w#" ! 4áÉÕå* Í?ÑÃGÕë!) z¾ÚpÂY#{¾+ÚpÊp~#¦+<7Êp###~þ Âd#ÃGÑÉÍ´Èþ;ÈÃrÍ ʆ" Í Ê�" Í ʘ" Í È" ÉÍ$åͬá|µÉÍrÍ}Íì) ÍIÍ ) W _ �OÒÎz£<Êæ ºÚ× W ÂÅ»Ú× ÃÅÍOÃ>2 !h>Í$ÍH\ÍIÚÁ\ÍÃþ»ÍÃgÍÃo"§ ) ë*« ÍÚ¯) *§ "§ ÍÃ*§ +|µÂ/ë" ÉREN!, "  ɯ2 !¬ "  !eEÍ>Í$\Í ÚƒÍÏÂ\Ía\ÍÚµ* ) Í "§ >ÍÃ|ÍÃ}ÍÃ"§ ÍÃ*§ +|µÂ¥¯ÍÃÒ¶\Ã<åÕ2¢ *  #- }‘7?Âô­ ÍÇ\: §Êé Í3§Â !­ 7"  õ: §Êñ~ÑáÉñ:¢ wÑáÉÍnà Disk I/O Error $ No Space in Directory $ File Not Found $ File Must be SAVEd in Tokenize form (Non-Source)$ File size exceeds Memory Available$‰Ã(ÃUÃBÃÃ3æÍûÍ´7ÈÍ‹þYÈþNÂÌ·É Incorrect response, Y or N expected. Reenter $ Output File Currently exists, Okay to DELETE? $go" |¥<7Ê»þ ÊH·òYë" ëþæÊ´þéÊ¡þïÊ¡þ°Ê´þîÊ´þëÊ¡þ‡Ê´þ†Ê´þˆÊ¡þŠÊ¡þ™ÂZÍÒÚZÍÀͬڡÃZÍÒÚZÍÀÃZÕÍ$" ÑÕ* ë* ÍÊÙÒ¤ * +ÍÚ¤ * Í0Ú¦ Í " ÑÕÍÝÑ* Í­Íüë¯ÉÕPY* Íd|µÂ× * Ú× ÑÉ!" * Í0"£ Å* Í0Ñ"¥ `iÍ Ú× ë"© * Íd|µÂ× * ÍÚ× *© DM#"© Í ë* ÍÚ× *£ r#sÍ‘ #wë"£ ë*¥ ÍÚ¾G <ÂU þT]~###~þ ˜ #ëxÉÑÉÑ­ Ãà Undefined Line In $ Range Violation $à ÍnÃÍn* Í­! ~6 Í]6$ Ín* ëz³ÂYÃÚ¾G <ÂU þT]~###~þ ˜ #ëxÉÑÉÑ­ Ãà Undefined Line In $ Range Violation $à ÍnÃÍn* Í­! ~6 Í]6$ Ín* ëz³ÂYÃDELETE {1}.REN {1}.BAK RENUM {1}.BAS ;10,,10 RENAME {1}.BAS {1}.BAK {1}.REN {1}.BAS Ú¾G <ÂU þT]~###~þ ˜ #ëxÉÑÉÑ­ Ãà Undefined Line In $ Range Violation $à ÍnÃÍn* Í­! ~6 Í]6$ Ín* ëz³ÂYÃåÃÆâãÃàÃáÃäÃåÃôÃ.ÿˆŒ½ÿÿÿ‡ÿˆŒŠ‹�‚Љ…˜š�@�A�B�C�D�E�F�G�H�I�J�K�L�M�N�O�ÿšPB@P @Terminal: WYSE 100  å!2Í9áÉå!7Í9áÉåÕ:I·Ê}lgë!<Í9:A‚ÍS:B·ô4):CƒÍS!DÍCÑáÉå!¨Í9!­Í9áÉåÕÅÍ*·Êœ:J¸Â_*À-}´ÊR*. >=ÚœÓ!KÍø ¸Òw Í*·ÊpÍøÚ… ÂwàÂ}2;/Æ7?ÜÂŒ:JÆ7ÁÑáÉxþ Ò‰þ ʉ:uæ¸Ê‰—Ü  åÕÅ!uGÍøÂêÍ*·ÊÖÍøÚï ÂÝ7?xÁÑáÉÂã—7CÃêÅå~þÿÂá###xÁÉ·ü%¸7Ây·7Ê Í*·Ê#~à æÉåÕÅÿÍÁÑáGÉ:·:KÄ4)~õæþÄ4)ñ·ø#ÃCÅo:·Âb}Í4)ÁÉ&d}ÿ”Òi„oxÆ0Í4)& Âf}Æ0Í4)ÁÉ!Í9!²~2Q/#~2?/#~2@/#~2A/wÉÉåÅ}€þQÚ¯$ÖPoÍö>Í4)>GÍ4)>pÍ4)ÁáÅ-ÂÌ.P%Íö>Í4)>GÍ4)Áyö0Ã4)ÉÃöÉ>Í4)>GÍ4)>0Ã4)åõiÍO:õ1ÍÐ>9ÍÐyÍ»ÁxÍ»ñûÖ ÚÆýõxÍÎñÆ Æ0w#Éyæ>ÂÜ<2úÉ…oÐ$É/<…oØ%ø7ÉëáÃ+)ÿ0000000099:99:99P= !Screen Design Utility--14 May 84--Copyright (C) 1984 by DeltaSoft, Inc.ÿ="/(A)dd a new Screen to a Format File.=#/(U)pdate an Existing Screen in a Format File.=$/(D)elete a Screen From a Format File.=%/(C)hange the Name of an Existing Screen.=&/(V)iew Screen Attributes.='/(R)emove a Format File.=(/(S)elect a New Format File.=)/(E)xit to System.=+/Selection: ÿ=+:ÿ=,/Screen to Add? ÿ=,/Screen to Update? ÿ=,/Screen to View? ÿ=,/Screen to Delete? ÿ Format File Name? ÿ=,/Screen to Rename? ÿ=,/OK to Remove CURRENT Format File (Y/N)? ÿ Source Format File? ÿ Source Screen Name? ÿ=-/Keyboard or Disk Entry {K D}? ÿ=-/New Screen Name? ÿ=(0Change Default Attributes:=*2a - Low Intensity Constant=+2b - Low Intensity Data=,2A - Normal Intensity Constant=-2B - Normal Intensity Data=/7Sele ct: ÿ= >Field Attributes:=$ Controlled Field Exit {Y,N}=% Adjust/Fill=%6{N,B,Z}=& Mandatory Entry=&6{Y,N}=' Mandatory Fill='6{Y,N}=( Field Type=(6{N,A}=) Input Allowed=)6{Y,N}=* Constant Output=*6{Y,N}=+ Auto Entry=+6{Y,N}=$HPosition Cursor=$\{Y,N,xx}=%HProtect=%\{Y,N,xx}=&HLow Intensity=&\{Y,N,xx}='HBlink='\{Y,N,xx}=(HNon-Display=(\{Y,N,xx}=)HReverse Image=)\{Y,N,xx}=*HUnderline=*\{Y,N,xx}=+HOutput=+\{Y,xx}ÿ=-5Press ESCAPE (Control-[) When Finishedÿ=-5All Information Correct (Y=Yes N=No A=Abort)? ÿ       � FFFF F F F Fÿ=" Field Constant: ÿ????????FRM$$$ No Screensÿ=. ÿ Screens in Format File: ÿ=1.Print Field Definitions (N=No S=Screen P=Printer)? ÿ Format File: ÿ Screen: ÿDirectory of Format Files: ÿ Output Fields:ÿ Input Fields:ÿ Field Row Col Len Start Data Entry Attributes Visual Attributes F A M M F I C A P P L B N R U O E F E F T A O E C T I L D V L Uÿ Format File Size : ÿ Screen Buffer Size: ÿ=1/OK to Clear Screen? ÿ=1/Abort Edit? ÿ=3/ERROR: ÿFormat File FullÿDirectory Fullÿ=2/Offending Fields Removed=13Field OverlapÿFile Not FoundÿReadÿWriteÿScreen DuplicationÿScreen not in Format FileÿDuplicate Fieldÿ= >Help Information:="$Control=#&Key=#0Function=$!------------- --------="KControl=#MKey=#WFunction=$H------------- --------=2!A Add field=*!B Cursor to bottom line=3!C Change field=0!D Cursor to screen right=%HF Insert mode on/off toggle=)HG Delete character right='!H Cursor left=-!I Cursor word right=&!J Cursor down=%!K Cursor up=(!L Cursor right=.!M Cursor to new line='HN Insert blank line=.HO Abort add or update=,HP Delete line right=/HQ Reprint screen=4!R Remove field=/!S  Cursor to screen left=+!T Cursor to top line=+HU Delete line left=&HV Same as above=,!W Cursor word left=5!X Change default attributes=*HY Delete line=0HZ Clear screen=1H[ Enter screen=2H] Display help screen=)!^ Cursor to home position=(H_ Delete character left=7 Hit any key to Continue.ÿÿ=7*Press Control ] For Help or ESCAPE (Control-[) When FinishedÿAUDCVRSE ØXAç¦2šV[[T[G[ž% HÄ´$ª¦jqÜ[NA‹žØÆ'ô^3[Ê!•[Ö!T#'G[[[ HÄ´$ª[j[Â'g'NA[[ØÆ'[[¥[Ê!•[1->2L/¯2Ç-;.Íé*ÍÍ}Í«(:]þ Ê�Âͳ)!ÍöÄþ ÂÃø·úÍø(ÃæÍø(Ê-ÍþÿÂ&Í{Ã/Ê-Í<*Í›* ͳ)!Ë-;.ÍÄͳ)9ͳ)¯2Íø(ÃÆé~#Íø(Â�ÉÍ„Í •ͳ)Íœ)Í•+!À,~#þ Ú¸>O]Íè)ÃÆÕÍñ(„ ͳ)ÍŽÍñ(Íñ(áå~#¶+Âèr ͳ)ÑÉ~#¶#ÊÍŽ> Íø(Íø(ëáåx ëÍ+ÂèÑÉõ ͳ)Ø7Íé*.!d  Í*¯ë w# Â*Ã9Å.ÍÁþÿÊq‡‡‡‡‡!Ù7…oÒT$ÍŽxþ˜ÊqæÊk>;!Ã7Íñ(Ã7Íñ(xæÈÃñ(!;. 6#‚6 #‹ €6#6#6ÿ#žÉ>2×6ÍÆ*Í­*iÃeÍ[*î-Í<*;.Íé*Í­*Í[*ä+Í[*î-Ãy*ÍÆ*Í­*!C/> w#Âå>ͳ)Í•+!À,~·ÊÏþ Ú>O#~þ ÊÏC/Íè)Åå³.!;.~#¶#Ê2 Í+‹ Ãó*"=/ëáÁyþÒBOÍè)!=.Í+ÊcÍÕ)Ê] ##ÃKó Ãó**³.¿,Íé*+|µÊxͪ*Ãl*ͳ);)ͪ)þKÊþDÊ™þ ÊÍ#)ÃxÍ óͳ)Í•+!À,~#þÒ³O.Íè).Í<*».Íé*Í�*!.».ÍÄ !».Í1·Ê=Ês++^#V#ë"R/ëÍŠ».ÍÇ"Â-y2K/DM!Ø7.ͧ!Ø7Íœ"8.ÃÃÏ͉Í•¯2×6Í�:K/*³.ëoO&"³.*=/+r+s!Ø7"Ä-ëÍé*Í­* Ê·*Ä-€"Ä-Ã@¯2×6ÍÆ*Í­*R!;.Í1·ÊÏ=‚Í[*î-Íy*Ãó*++"=/^#V#ë"R/ëÕ¿,Íé*Ñz³Ê¤ͪ*Ø;.ÍÇ"Â-DMy2K/!Ø7Ê-ͧ!Ø7Íœ"8.Í•Í�*Â-:K/Oy•oxœg"Â-!Ø7"Ä-ëÍé*Í­**Ä-€ Âà*=/ ^{#V²Ê*³.}“O|šGx±Êͪ* à *Â-MD*=/ ^#V+z³Ê1ë ës#r+³.Í+Ê·Ã!ÍÆ*Í­*~!;.Í1·ÊÏ=Ês++"=/^#V#ë"R/ëÕ¿,Íé*Ñz³Êzͪ*Ãn^{#V#²ÂŒ*³.]T*R/{•OzœG`i"Â-!Ø7"Ä-ëÍé*Í›**Ä-€ Â�*Â-|/g}/o#"Â-*=/ ^#Vz³Êã*³.}“O|šGx±Êãͪ* Ã×*=/ë! Õ³.{•OzœGÑÍ*ë ¯w#w#> w# Â*Â-MD*=/^#V+z³Êë ës#r+³.Í+Ê· ÃÍ«(Äͳ)ÍÏ)ͪ)þYÀÊ-Íy*>Íø(áÍœ)ÃÞÍ„*À.ÍöÍÍñ(Ãl ͳ)ÍÏ)ͪ)þYÊ~ÃÜÍ„ÃÆî-Ãy*Õ¿,Íé*Ñz³ÈÍ�*Ã’#~+·Èͨ'ÜÅåÕ"Ä-ëÍé*ÑÕÍŒ**Ä-€ x±ÂªáÑÁÉÅ Ny#F#°ÂÜ!xN#F*R/y•oxœgÁÉ­!;.Í1·Ê!=ÊsåM!;.Í1·Ê'þÂ+Ñ!C/Í*Ê-Í<*Ê-͹*Ê-Ãk*áÃ!ó Ãó*å!C/> w#Â9ͳ)Í•+!À,~#·Ê‡þ ÚU>O~þ >ʇC/Íè) á~#¶>È#ÅÍÕ)ʃ Á Âi>ÉÁ>ÿÉáÉÍ}¯ÃÍ€!Ø7ÍT,Ê #~+æ ÊÆå#~#æW~æ_ëÍÃë N#Í*áͨ'Ö~æ€å ¶áÊÀå#~æW#~æ_ëÍÃë++~æ€Âð>OÃÿå ~á·>IÊÿ>* f%Âÿ"8.:×6·Â2ÍÜ>2Æ-Í*¯22U/É:À2T/É>2T/É:Á2U/ÉÃ#)R ͳ);)ͪ)þNÊÜþYÄ#)Â^Í}Ã*Í•>Íø(!W/€6 # x±Â‹É!"T/Ãö: w#²+ë*T/:Á¼Êß!°ÿDM*T/.ÍÃ+  x¼ÂÓy½ÂÓ#P> w#Âæ*T/.Ãß>2T/ÍkÍÀT]P ‡6~#Íø(z¸Â{¹ÂÉ:T/=ÈÍ Ík:ÀO*T/}¹ÈëÍÀ#~Íø(+w#{¹Â3> wÍø(ÉÍ$ÍÃ~þ ÂHÍ$|þÂa}þÈÍÃ~þ ÊTÉ*T/Ãö:À Íø(w#{¹Â}É*T/.Íö*T/ëÍÀx»È> Íø(+wÜ*Àë*T/.$|ºÂ¼&"T/É*T/õÅÕë!W/PÊÖ ÂÑÑÁñÉ!Íñ(ÅÕT]å*ÀDMá :L/þÊüåÍöáÍÃ~#Íø({¹Âÿ:L/þÂÍñ(z¸ÂÿÑÁ:×6·À:L/þÈÕºͳ)ÑÉá*ÀDM Ø7!"T/ÍÃ~þ!Ê“þ"Ê“þcÊ“þdÊ“þAÊ“þBÊ“þCÊ“þDÊ“Í|ÃG"T/ÃÃ*T/,}¹Âv.$|¸Âváë"8.ÉÍ|Í(Í|~þ|™Ãpá¯2B/!W/06# x±Â°!Ø7ÍT,Êå#~æW#~æ_ëÍÃë NþÿÊì>ÿ Â×áͨ'üáT]ͨ'}“O|šGÍ*>ÿ2B/ëü*8.6ÿ#6Ø7z/W{/_€)|2K/>2×6:B/·Ê�« à +¯2:.  ͳ)ÍÏ)ͪ)þNÈõ>2L/ñþSÊaþPÊ\Í#)Ã2>2L/٠ͳ)!]ÍŽé ͳ)!C/ÍŽ:L/þÂ�Íñ(P>-Íø( ˆÍÜ:L/þÊ£Ÿͳ);):L/þ¶P>-Íø( ¯!"6."M/!Ø7 ͳ)5 ͳ)~þÿÂÛ#~+·Êöå#~/æ Êé ¶áÊðÍ™ ͨ'ÃÎ*M/"O/!"6."M/!Ø7Íñ(% ͳ)5 ͳ)~þÿŠ #~+·ÂŠ " ͳ):³.·g>oÍo!: ͳ)*M/+ë*O/+Í+ÚM ëÍo!:L/þÂg Íñ(Ÿͳ)ÍÏ)Ã2:L/þ„ :þ ÍPÄ > Íø(>2L/É~æ€Ê“ Í™ ͨ'à Íñ(å*6.Ío!#"6.>;!áå#~æåo&Ío!á>;!#~æåo&Ío!á>;! n&Ío!>;!å*M/Ío!Ñ>;!"M/áåͤ&YN~æ>NÊ !~æ>BÊ !>ZÍø(> Íø(ͤ&YNͤ& YNͤ&@NAͤ&€YN#ͤ& YNͤ&€YN##>;!Å>;!Í»&ÂA!Áá:L/þÀ::.<2:.þÀ¯2:.Íñ(Ÿͳ)þ)ÅÕåðØÍ–!üÍ–!œÿÍ–!öÿÍ–!}Æ0Íø(áÑÁÉÒ ! Ø!z/W{/_yÆ0þ0¹!x·> Êø(>0ÿÃø(õ> Íø(ñ=Èþ!0ͳ);)ÃÜ*T/DM!Ø7ÍT,Ê"#~#æ¸Âý!~æ¹Âý! Í +Ã�"++ͨ'ÃÞ!ëÍÀÍ(~þ|Â�"*8.Í…"ͨ'ë*8.{•OzœGÍ*Õ*T/DM*8.ë!Ø7Í+Ê}"#~#æ¸ÊJ"ÒY"ÃQ"~æ¹ÒY"++ͨ'Ã5"ë*8.}“O|šGÑÕ+~ x±Âg"ë}“O|šGáåÍ*á"8.áÃ�å ͳ)#~æ ʱ" ~·Ê±"ÅOÍÀN ͳ)~#Íø( §"Ááå Í%¿,Í’&YNÍ’&YNÍ’&ZBÍ’&YNÍ’& YNÍ’&@NAÍ’&€YN#Í’&€YN##Å> Âô"Á!Íö>O;!¾ ͳ)¿,! Í|%=Ê‹$=Ê$À,! ÕÍöÑ;)ͪ)þ Ê #þÊŸ$þÊŸ$þ ÊŠ#þ ÊŠ#þ Ê%$þ Ü#)Ú#þNÊ€#þBÊs#þZÄ#)Â#Íø(>Y>ZÊ#Íø(>Y>BÊ#Íø(>N>BÂ,! Í|%=Ê#=Ê6$Ã,! Í|%=ÊŠ#=ÊG$Ä,! ÕÍöÑ;)ͪ)þ Ê›#þÊŸ$þÊŸ$þ Êò#þ Êò#þ ÊX$þ Ü#)þNÊí#þAÄ#)¬#Íø(Å,! Í|%=ʬ#=Êi$Æ,! Í|%=Êò#=Ê‹$Ç,!FÍÌ%=Ê$=Ê #É,!FÍÌ%=Ê$=Ê#Ë,!FÍÌ%=Ê%$=ÊŠ#Í,!FÍÌ%=Ê6$=Ê›#Ï,!F ÍÌ%=ÊG$=ʬ#Ñ,!F ÍÌ%=ÊX$=Êò#Ó,!F ÍÌ%=Êi$=Ê$Õ,!F ÍÌ%=Êz$=Ê$à #é ͳ);)ͪ)þAÊ%þNÊû"þYÊÀ$Í#)ß$áå¿,Í'YNÍ'YNÍ'ZB~æ÷wÍ'YNÍ'YN Í'NA@Í'YN€#~æ¿wÍ'YN€#~æw#ÅÍØ&Â%+~·Â%6€ÁáÉÕåÍ¡&YN~æÊ0%Í¡&ZBÃ8%Ím%>NÍø(Í¡&YNÍ¡& YNÍ¡&@NAÍ¡&€YN#Í¡& YNÍ¡&€YN##Å͸&Âb%ÁáÑÉågoÕÍöÑáÉÕÍöÑ;)ͪ)þÊÁ%þ ÊÁ%þ ÊÄ%þÊÇ%þÊÇ%þ Èþ ÈþYʶ%þNʶ%Í#)Ã�%Íø(> Íø(¯É>É>Éãáß$ÕåÍöáÑ;)ͪ)þÊÁ%þ ÊÁ%þ ÊÄ%þÊÇ%þÊÇ%þ Èþ ÈþYʶ%þNÊz&þ0ÚI&þ:ÒI&Íø(;)ͪ)þÊU&þ Êb&þ Êj&þÊr&þÊr&þ Ê�&þ Ê�&þ0ÚO&þ:ÒO&Íø(ÉÍ#)ÃÓ%Í#)Ã&Íø(> Íø(ÃÌ%> Íø(ÃÁ%> Íø(ÃÄ%> Íø(ÃÇ%|þ >N¶%}þF>N¶%ÃI&> Ãø(~ã¦#~#œ&~#ãÉÍm%~ã¦#~#®&~#ãÍø(> Ãø(Ím%~·ÂË&>NÍø(#> Ãø(æ€>YÂÂ&~Í,#ÉÍÇ+Òé&þYÂí&>€w#ÉþNÂê&x=Êç&¯Ãé&áÁÃ%ãÅG~#¸Â'Á#~#ã¶wÉ~#¸Á>ÿÂ'~/#ã¦wÉ*T/DM!Ø7ÍT,È#~#æ¸Â?'~æ¹ÊG'++ͨ'Ã+'+~+æ Ê`'å N#ëÍÀÍ*áÍ…"áÃ�*T/DM!Ø7ÍT,È#~#æ¸Âƒ'~æ¹Ê‹'++ͨ'Ão'++ëábkͨ'ÍT,Ê¡'~#Ô'ë"8.Ã�ÅÕ#N F#yæ Ê¿'x…oÒ¿'$ÑÁÉáÃ�cͳ)ÍÏ)ÍØ'Ì…"ÃÜ!_,þaÈ!w,þbÈ!k,þAÈ!ƒ,þBÈ!�,þ#È!§,þ$È!›,þCÈ!³,þDÉ+~#åÍØ'Ê(á#É~#:U/¶#:T/¶#ÅÍ* ë ëÁÕåöÿ~áÑæ áÊw(Åå~# þ|ÊZ(yþÿÊZ(Í¢(ÂF( áÊj(y~# Âb(Á~þ|ÈÍ¢(È#Ãk(Å~þ|ÊŽ( yþÿÊ“(#Í¢(Âz(yÁÉÁ#Í¢(È~þ|–(ÉÕ‡6Í+ÑÉ!h¯w#±(Ê-!\$Í*ëî-$Í*Ó-!l Íè).!Ê-$Í*÷-!o Ãè)> Íø(> õ:Ç-=Êe) =Êz)=ʈ)ñþÊ@)þÊr)ÅÕåõ_:L/OÍñÃg*õ>Í)ñÉw#Â+)ÉÅÕå_ÍÃg*õÅÕåÍ'áÑÁñÉÅFx·Ê\)#~Í)ÂS)ÁÉ>2Ç-ñÉñõþ=Ê^)¯2Ç-ñÉõ>2Ç-ñÉñõÖ2V/>2Ç-ñɯ2Ç-ñõåÖo:V/gÍöáñÉ!]> w#£)ÉþaØþ{Ðî ÉþÿÈÍø(ó)ÅÕåÿÍ·ÊÁ)Ãg*;)Ãø(ÅÕå¾Âg*# x±ÂØ)Ãg*ÅÕåx±Êg*~ͪ)þ:Úþ)þ@Úg*þ.Êg*þ*Êg*þ,Êg*þ[Êg*þ]Êg*# Ãë)ÅÕåx±Êg*~# Ã!*ÅÕåÖA_ÍÃg*Åå! ¯w# ÂE*ÍþÿÙ Êó*áÁÉÅÕåî-Ík*Êó*áÑÁÉÍþÿÙ Êó*ÉÅÕåÃ6*Õå.ÍŒ*áÑÉÅÍÁ·è ÈÃó*ÅÕåÊ-ÍŒ*Âó*Ãg*Í›*ÅÕåî-͹*Ãg*Í·í Âó*ÉÅÕåî-Íy*! ¯w# ÂÖ*Íþÿœ Ãd*ÅåÍáÁÉ1-ÕÍ#)~ ͳ)Ñͳ)Í#)ÃÞÕ~ ͳ)Ñͳ)Ÿͳ)þ)z¼À{½ÉG¯bkx·È;)þÊo+þ_Êo+þÊo+þÊu+þ Èþ Èþ ÈþÊVOþ Ü#)Úb+Íø(4~¸yÈ5þÈ4Ã/+Í~+Ã/+Í~+Ê/+Ãu+~·ÈÅÕåÍä> Íø(ÍäáÑÁ5ÉÅÕå¿,>ÿÍ$+Ãg*Ê-Íy*þ-!Ê-Í*î-ÍÙ þÿÊó*ÉÅÕþ Ê,þ0Úú+þ:?Úú+Ö0Gþ Êý+þ0Úú+þ:?Úú+Ö0Ox‡‡€‡�ÑÁÉx·Ãú+Ãæ+ÅÖ Ò ,Æ õxÆ0Íø(ñÁÆ0Íø(ÉÅÕå&þÚ0,>Oy·ÊP,þ0ÚP,þ:ÒP,Ö0o|‡‡„‡…g Ã1,|Ãg*Õë*8.ëÍ+ÑÉ €€ €€€€€€ €€ €€€€€€åååå åååååååå åååååååå åååååååå åååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååå åååååååå åååååååå!åååååååå!åååååååå"åååååååå"åååååååå#åååååååå#åååååååå$åååååååå$åååååååå%åååååååå%åååååååå&åååååååå&åååååååå'åååååååå'åååååååå(åååååååå(åååååååå)åååååååå)åååååååå*åååååååå*åååååååå+åååååååå+åååååååå,åååååååå,åååååååå-åååååååå-åååååååå.åååååååå.åååååååå/åååååååå/åååååååå0åååååååå0åååååååå1åååååååå1åååååååå2åååååååå2åååååååå3åååååååå3åååååååå4åååååååå4åååååååå5åååååååå5åååååååå6åååååååå6åååååååå7åååååååå7åååååååå8åååååååå8åååååååå9åååååååå9åååååååå:åååååååå:åååååååå;åååååååå;åååååååå<åååååååå<åååååååå=åååååååå=åååååååå>åååååååå>åååååååå?åååååååå?åååååååå@åååååååå@ååååååååAååååååååAååååååååBååååååååBååååååååCååååååååCååååååååDååååååååDååååååååEååååååååEååååååååFååååååååFååååååååGååååååååGååååååååHååååååååHååååååååIååååååååIååååååååJååååååååJååååååååKååååååååKååååååååLååååååååLåååååååå