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...Finished1Select3Key(7Menu Selection7HCMM-001 ACME HOME PRODUCTS, INC. MM,M4M`M_$! Customer Master File Maintenance$Key&Name(Address* City/State ,Zip Code . Status (A,I,D)0Balance(7ICMM-002Balance(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 75083I0007500 LUKERRobert Luke Jr. 81 Broadway Blvd.  Shrevesport, LA 70722A0045600 GARVJJohn W. Garvey 320 N. Crestway Longview, TX 76353A00023000 CATTLL. E. Catterson 82 Jackson Tyler, TX 75035A0008500 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 74687A0078000 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 75701I0085000 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 75765A0004300 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 70722A0004490 PLANRRobert W. Plant 93 Laghter Falls Cental, OH 10703A0035047 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 75785A0009200 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 75601I0003075 GARVGGarden Valley Garage 663 Fair Foundations Building Fairfield, TX 75840I0074070 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 (7Menu Selection7ICMR-001 (CMM-001/ 5...Finishedcted)#|ͪ4}ͪ4m|1+ͪ41>ͪ4\k6\<62,kAͪ"Customer Master Reporting%Beginning Record Number*'Ending Record Number* $7ICMR-002*Customer Master Reporting..Customer List in Key Order (All)-)4...Customer L"Customer Master Reporting% Beginning Key*' Ending Key* $7ICMR-003*CMR-003KeyCustomer 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 (7Menu Selection7ICMR-001 (CMM-001/ 5...Finishedcted)#|ͪ4}ͪ4m|1+ͪ41>ͪ4\k6\<62,kAͪ"Customer Master Reporting%Beginning Record Number*'Ending Record Number* $7ICMR-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",âã.@ABCDEFGHIJKLMNOPB@P @Terminal: WYSE 100 !29!79:I}lg!<9:AS:B0<:CS!DC!9!9*ʜ:J_*p}R*o >=ڜÓ!K w *pڅ wà}2m7?ÜŒ:J7x ҉ ʉ:uʉÜ  !uG* 7?x7C~###x%7y7 *#~ G::K0<~0<#Co:b}0<&d}iox00<& f}000<>G0<>p0<-.P%>0<>G00<>G0<>00<iO:1>9yͻxͻû ýx 0w#y><2Ʌo$/|E!"fo*o}0IJ1|IJ1*o|̟1)>͔J#qo*0<̙1DMqoB1‚!xN#F !xaDMqoB1‚ F"pqo*0!"=n ô>ԯ1ͯ1qo*0͒1*m"Nn2m*Jn|*p̨("Ln ),)һ*Ln"p ))*Rn"=nPY>2m͍:mı1*=n<"o><͔J#=/2/͍ ՗##^#V# s#r0,%+P-<"=nd%!'*=n%ͼ1*=n$ ~w"=n*=n%ͼ1*=n$ ~?w"=n255,%'@+B-!ͼ²!o>͓JPY?,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=`1L͇D q#p>' >) zC=`1L͇D"?nɗ2GnzC>7 >2GnzC=`1(f͝KG:oĚ1!o:C6 @(f͝K̴1 Դ1O! pwy| 6 # r ї2m>K >I >G >E >? zC>M! >O >Q >S >U >W >Y >2An @(f>2FnL͇D"Dn!poo$zC#`1!"mBK-  d͕?:mĶ1!"=n ô>͚̳1:mK zC:`1 :oq :ro ʑ > ѷh 2m*7=‘ :'p>2'p> ::P2'p*՗2m*Jn| F#N+x  DM2m- à d͕?:mĶ1+ !"?n"Dn2Gn2o2mzC#`1BK͚̳1 zC:`1R  *o}0̲1}¹ }?@2o| ګ _ :o̔1>! ̍1̒1ͯ1!> ̒1̎1į1:Gn̎12o> ʝ ̎1̎1͒1:o0 $ *?n}̷1ͼ ܎1 *o*H*o#ͼ ܎1> ͒1>2'pGuڡ ͒ ܨ1 zC, ͓ʯ *oozCC. ̈́gl1xĤ1w ͨ1zCNM ̈́gl1x̥1͸ ͨ1:o ħ1zCZ{ zCDĨ1̈́gl1x̥1 ͨ1zCPĨ1zCDĨ1̈́gl1x̥1V ͨ1 @, ͓a12'p! }̸1}?@2o>2m *fo|̸1:m2Gn2m~ʚVz#~W:m<2m:Gn =2Gn##~:Gn2Gn#~++nb"jo##*jo:Gn  N*m "m:Gn^/*mA:C"m:GnyÍ:m   *fo2m2Gn  ^# ʾ y*m"m*m"m *o"o!"o :m2m' pB\͎::m>' *fo< *o"m*o"mɗ2m 68z1 , ™z,zy_xn+~w^ x0ʂp#yu]҅~0<#x‹,©N]86 8´u]8 ¿]8 ,82m> 2mA 8y7z@:o0+-. ow0<# zWz8x8D:m DzDxDoziz u]P~ c]Vxou]i>0<8>2pAڈ}2p͇D#F:pOxڱ#qyʱ ڴ~>ÚñM ܨ1̨1m:p=2p~.2p>.>> mCC͂J:pO~w-CM ܨ1̨1m:p<=2pS~4>-~>mCCS͂J:pO~w-CM :pG:p=ܨ1:pÁ!mlH:m>@¯O:pG:m=2m!mK!m[C-CzCXL͇D},MD*o "o"ozC7L͇D},*o*H"o!"?n"Dn2Gn2Fn2o2mzC#`1BK͚̳1 zC:`1R  *o}0 ̲1}?2o}}0ʍ|ʸ̲1Ҹ|ʸIJ1*?n}̹1> ʂį1;*o#> ʂį1;*Dn}̺1>2'pl*o"ho*o)"do"bo"fo*fo! p[# *foN#F*bo "fo*m*m*H3*o*Hܢ1*o"m"m!"o!"o;*fo ~#+̩1Gu=͒ʄ ܨ1ozC,ʑ͓K*oozCC³hĤ1(foͨ1zCNh̥1͛J%oͨ1zCh̥1͛Jͥoͨ1:o ħ1zCPzCDĨ1h̥1͛Jjoͨ1zCZĨ1zCDĨ1h̥1͛Joͨ1 @,u͓a1:oŒ:od:m$*o> ʂ̒1̌1̓1ͯ12'p! į1:m›':Fn͝KMD*do_dԋ1~ 7?7¸w#õw*fo#~ ##~G*do #_~x w#^#~*fo<2'p!"=n ô>~#~ ~2ko#~2jo##:mj~t~t*joʠ1~O̪1##~†# <#X<~O»̪1H*m "m##<*m~#"m ##<*m*m~#"m"m ##<#~ yO##F+:m'y'y.02noAͤ2nozC*`1zC# %͚̳1 @$ :oIJ1:o ̲1:o̲1̲1>2'pBK͚̳1zC,zC:`1 ͅ[ @,ʖ;:o̼1̼1> W>: @,ʖ;ͅa1Ͳ?2'pͅڅKʴ>x @:77?*o&oD*2poDD!oD͡C*2poDͼC͇DE:oO:o> ::o½ͅq/šzC(g1*o"BnLzC,L͇D͇D|u1}<2Cn͇D|u1}% ;m!o:Bn܄1[> 2mo;Âԅ1h͛J!m"!pͥDm͎A @;[> :(f͝KGx[~:#zCĺ1A`1"DnzC:`1 GuX͒ zCXRL͇D}",MD:o =|u1> : 1*o "o:"o:zC‡:o 7:> :L͇D}u!|u1E> :{:zCL͇D}š,:o |u1:oҴͲ?::o> :>2og}:O:o  x: :*o*H:"o:zC:o 7:zC(g1Lp7LzC)g1͇D͇D|3!|>:oo&}D,:oLo:o`:o`Խ1|i!|t:oo&}z,:o҂o:oʖ}g::oG}Gʩ> : :oG}E> :> :¹::ùzC"ͮ :7:zC'7:ͽ :7:zC,͓f*oozCChb1(fܨ1zCN;h̥1͛J%ܨ1zCħ1h̥1͛Jͥܨ1 @,͓a1Ͳ?2'pô>~ʎ #w~#ƒyɗ*oo~CNPZK2m!"m"m"m> 2m!o) s#Z$+-.x  :m2m xw#:m=2m76s+-RB2:m2m2 x2Ky<2pxB<2p͂J~O~w#~_:m0:m2m*!p!m"!p͍ nJ"\n̓F"!p:m o:p=G!moLyʻs.Z+-$#ʕxʰ~#Õs+-$~ "m#Õ~ "m~ "msZ#)~ 0> ~ >0> Õ!o:p==2p6 #:p82p]:ms+6 +6 !o~p:o#`7*m|ʋ:m>+‡>-w]*m|ʣ:m>-ʟ> w]*m|]6$]+-ʿ7:m]6 ]:m]6-]>2pAͤ2p͝KG:pO x~: # y > :   M ̨1ܨ1*!p!m"!p͍ nJ"\n̓F"!p:m*7h:p!mG~:g#ZM :pO:p=̨1ܨ1!m:p6#=†͍ nJ~@O:p<O :p=O!m Gw+²:p2m:p2p!mlH:m2p/!mwSM ̨1ܨ1͍ *!p!m"!pnJN:pw2p"\n:p<2p̓F:p=2pO"!p!mm/Gw# I w# @ SAܨ1|u1}u1 u12p2pzC.:p‡ Aܨ1|u1}u12pG:p͂J~@O!_C[C͂J:pGyw#6PEG ":î  ':ý :o IJ1:o?2o @: Õ :o> <2m!!;"y!ʩ$*'0!!*oDM*o:oGOW_Ͷ!!*=n&^#V"m#^#V"m!*mDM*m*o|M$+c$!"oɧʤ%d!|$:oE$!Ͷ!:oʅ##ʩ! ©!!!$*=n*o*=n"=n"=n͚"7ȯ2m:m2m!>O"*o &"o &"o &*o|*H>"o &"o &"o͚"y"2o:oȯ2o#+d!"#!0"!"oÎ$͚"͂"*{"m"͑"o!m:Cqo!omÈ":m<=!͚"!͡"÷"!O""!͚"*o*o&*o&*o&*o&*o&#͚"͂"+͎$͑"*oÎ$!o>͔Jqo"#"W"!"m*o|v'"m*m*m*Hv'|g}oV#R##"m-#+*#$:oO*o$ox#*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"oM$i&"o!"oa$>"qo͎$@$^$)$>>>*o'"o2o*o":!l$c$*o#"o|}$!o4qoy!c"y"":o$*o$*o*H>"oý"r!M$^$)$:o%Ͷ!!*oV#!!>ñ$*o*o*o+$:oG!o:C$Ͷ!͡"!#"m"m8% >•%*o#$•%*o$o:oG:C*o|}$•%*o#"o*o#"o*m|ʕ%$*m*o&*m$!ͽ"!ñ$!*=n͸%"=n!}o>͔J"!o~%vo~1&&I$͎$qo͎$!> &:Ana&2Ank'V&.&:o2oø%qo*o)|G!o&*p;.*=n{ozg"o*=n:o&"m*p"=n!zo6K#6E#6Y>͓J:o&:vo2vo:o2o*p<"o;.!"o":o '&*m*o++++++}|*o}|a&*o######"o*o"o!"o"oä%*=n>'"=n:o0 :oW'Ͷ!^'!^'>d!:o̡""qo:oڬ'*o|ʩ'*m*Hک'$:oO*o $V#^'>*o|7'*o#V#>'##V#^+|¹'*o><>>̓(' )}D'{:(:n=(7|((3(x/Gy/O3(xGyO/(|g}o(DM|g}o&x@J($|(=(|2m2n}o|g`( a(7o(:m=2mR({_zW}o|gyOxGDM!>2mzW{_Ҙ( |g}o:m=‹(u("Jn!"m>6#=µ(6 #w#w#6:#w#*Jn{_zW*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 $*(*):Qn2Qn :Pn*>2Qn!**Jn͉)))"m"m##Vz#^A*++^+V*mr#sg*|]**JnV#^+K**m~#~*m######V#^z*(yoxg*p+`i"p*m(*Jn****+^+Vzʺ*(*p*Hš**m "m`i"p*JnT]######~#ngx*y*6#6+("m +#+yw+xw##z#{*H+*p}`1͛ @~1!9p"m*p+"mAX+"A"m~#R=*p+"m}+*p|`1zCtLA^*m|ʶ<*m"p%= @:!\"=n!6 # +͜0p7!l"=n͜0\*0ѷĬ1*p}´>R=2m#,>2m!40\e0!"Hn!\"=n͜0:m],zC,],zCS`1!e6S#6R#6C\*0.:m\B1:mʇ,zC,.:m,>t/*p!9p{ozg̜1#|t/}t/9p|ʿ,+t/ñ,>t/\1\<̗12'pR=t/ĝ1:mB?t/gt/o9p"9p+"p*m*H-B?v1:m\->*9p9p|6-t/ܒ1+%-]/ї2'p:mR=*Jn|<>ö<>2m#,*Jn|-zC,s-zCx-͛ ͕-*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*Hv1"p L.A_.[M.0i.:Z.$[.( )g1zC, @*pBK(;.M.PYzC,ʂ.*H.+`i"p}_|W*Jn"Jn}o|g"p*H w+ .ø.:mĜ1\*0͛1:m/>2'pR=!9p"m*p+*H,"m7>2'pIb$6#*/ #w4/ ???????????t/]/>\*0:m:mG:mx\*Hn 1,1"Hn!\H/'/o02\bk>2m*0\*0//ù/Ͳ?ô>:m/:\/*0<@:>::> :񇇇O  #~:0> ::m<2m'0>2mͲ? BAS `i>6 #=]0~#e0 @ ʓ0:ʓ0Aܮ1FԮ1@͕0zC:ɗ*=nw @ ̭1:̭1K͝KG#~:+>0o02IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII"y3"w3++~`1*p"6po&#"4p+3}1-y O112'p2Pn*Jn|<*JnDM####V#^# ++~###2~wgo 2! ~2m+~2m2͕?Ͳ?>(:*m&EA>):> :& o2%d2 :%o2}3„23A3A*p|"m23AEA2<>Ͳ?*m"A"mc"m!"m"m*=n}R=!"=nR=:4p*m*y3"m*p"mͲ?R=3Aá2*=n}53*p|*o}53"A|1go"p`1 *p|:m!o=O3G3^#V}"A|1*m*m"p*m"0p!"=n<Stop at Error RequestIn{Ready}DeltaSoft BASIC Ver 3.0 Copyright (C) 1984 by DeltaSoft, Inc. DirectLine 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 @,`1Aq1|u1}LEPRINIFORLISELSTHEGOTSTOGOSUFOTSTENEXOREWRITWRITEXAREADATRETURINPULINPURURESTORRENOANOSAVLOADIENOPEFILERESEDEFREAUTCLEACLOSOFLISTOPTIOHELDEGEXICHAIRENAMEXAEXAEXAEXAROUNINLEVAABRNSQSGSIATLOEXPOASERLINCMDKESTATUEXBEXBEXBFCHSTCNVRTIMDATEXCEXCINPUOUTIOUTPUBEGIKEYERELATIVWNAMNEKEYKEYRANDOSHRECNEWPAGTAINDIFORMAUSINREKEDUPKEEXIIOERCONSOFLONOKEEOSKICUPIPRTZLPRESPREPTRSEATTERROOFLOUFLOZDIIGNOREXDEXD]B^KaK^A[4XY7d2#eK[``:m 5;* *<>2o:oG:o *<_;!"o҂;> 5;> ;o;>:m*<:o ;:m ª;0 ͪ;> ͖;;>:m0<:m0<:m > <:(p<2(pͲ?>2(p:m*!pw#"!p3<_ɗ2'p2m>2(p23n!"6p"4p"=n!9p"m"m*%"m!n6#6 #6rͲ?͕?!"Un"4p"6p2Wn2m2m!o>͓J>2Xn!9p"#pA2%p2/pgo"p L=!9"m*p"m*0p"m6%=z1 @4= @=>w1>?*p|2'pCA!l"!p*Yn"A=!l6 #6 "!p2'p͋A!l:[n=ͱ\=;bó=ͬ\yK>x">*m*m*Hk=k=G*H>=+"m'͕?Ib*mfck=*m"m~#+*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<1k2Pn!"p!k"p!bn"0pB?>:O! 6  @R=!"JnT-B?>R=![?p"~#K?!"9p:p;pkl9pbnG:'p?x0 :> :> :l @!:?"p?"p"\n7!@ DM)) )u1O ?0:0 @|@  @@!7yļ@AC@ "̫@'@y?@ͼ@Aa@[@#I@r@~#a@~ʢ@*@xʃ@ͼ@Aa@p#xʯ@ʯ@w #’@@!@@'@y/Ow #¯@+az ͼ@A@[@@ "ͼ@A@@[@ A bkw# @@0: A @:?0?9p 0A7Ai` -A O%A%A>7PA !'pA!pA!dpA! pA{͆A{_zWrA{_zWx 0:l*!pyʟA :ÒA!l"!p*m"mͲ?Ͳ?{3A*p"mCAͲ?R= A:Aր:*#p~#2[nAڂ="YnzC,‚=Aڂ=}2[nÂ=̈́gl1xxBzC=`1͛J-Cô>zC(ʏBzC=`1(fgô>LzC:`1LKzC=`1͇D|u1M ͇D|u1}¾BnJ͇D:Cw#:C @ NC+:?/7&ECKA {C#ˆC7?͇D> CaD>-:EA͇DDM͇D oD͇DaDDM͇D oD͇D|C͇D|CCaDoDaDDM!>2mxGyOC|g}o:m=C`i͇D|C͇D|C|̊1%DC|@3D)(Dx2mDM!{_zW\D{_zW):m=D2m)>D>FD:pO@Dy2p"\n̓FD"!p:p#D+~.D#0D++D:p=2p"\nF+++T]+~0E.E##:CDYJ"^n"`nF:pG @-GE6+IE0GE:ҼE0ڀE _ENEx=G*^nlE#EvEw"^n*`n.—E:pªE0¬E ÌE#~+¡E6y@w:ҼE0ڗE_EìEE—EG+E-EEx/**!pw#¥F+~AF@G:pڠF{F>*âFG?GOG7/ZH#~w+G~`i:p_#~+G<0HšG6:p'w++ G#~+6:pO |}O~܈1G~怰wyG:p_~w+LHCHO~1G~怰wyG:p/IlHy#w+ >I HlH#w+H IlH#w+ I =W~@܉1Ԉ1 ,InJ!_C[CGGLI CIyOnJ#~̊1͂J#~+ʽI:pnOͧII>2mʘIIڋI ‹IͧIIIØI:pO#ʸI ®I?I5~̊1:pO G:p_~w+IyOIxI:m=J2mGÆIw-IGO~AԈ1Ox>IJw:p<nO# FJ w͂J#~+~w*p:p:Xn(fÛJ:Xng-C ʴ>ÅK*0poD"0poD͇DDM͇Dy"0p:'p>2'p*!p!m"!poD͌C*!p6m&E"!p2'pÖG @(g1 @)g1 @:mf"f*0p,ʏK ʏKw#L͛JnJ~~FԈ1A!UL2niL^LULiL^L8LaDoD:n=2nR=zCĀ1>2Pn#g܀12Pn͇D:Wn<2Wnw#xw#(³Ls#rÅK:PnGL:mLx2mBK>2Pn)Ć1PY*Rn~1w2Pn2m#~2Xn#~#fo:Xn M$b1(^M:Xn:m2Pn#gl1x2Xn:m2Pn:mqK2m{K @,WM @,~1M2XnKzC=`1:m2PnqK~w2Pn)chl1n1zC$>ʓM<2nzC*ʭM͇DMzC,Mô>L͇DͿNE͇D6#p#6͵N;.ãM*p"n:n!}2n###M:p<&ooDzC(d1L @,M6#p#zC)f1zC*AN:nb1*p*n"p?ͿN2n###oD"pxO/<_*p~# QNͼCZN͇D|o1r#s#N"p:nʞN:pOA6#xʖN6ÊN*H‡N:nOA6#q#6͵N*H¢N#x6õN|ċ1}͋1*m*Hv1KBKL͇D|O%~1} O*p*m}o|gͫKK~1 o&O}+O:mo2mORO*=nͼJO*=n-^"=nO*=nʹ͚̳1zC,`1L͇D|~1}~1‰O> ñO˜O> `iñO§O> `iñO~1> ͫK"=nͺKK(fp7(f͝KO͝KG+aDoDoDzC,!OL͇D|u1}O,x]P2nKnJ͇D[CK6-C!nQS3WD͛J:p2m*ptQ+++"p> 2p>6#=vQkQKWQ*p͂J~LR#~QUR")nUR"+n~<@w:p[CWI*+n[CEG!DR[CWI=Q*+n"pURnJ*)n[C*+nôQ"pQK͂J:pGN#~Ry!_C[C͂Jw#6PEG:m.R*p+"p2p*p+6#6#6#6#"p)R :m2p~1͂J*p:p͕RUR"4n[C͐HS!S"1nR*4n[C͐HG~S͂J~w!S"1nRnS@p6t9%P'Ui1e=fA"333vU@ffffd2xV@:'RF8C $@dV>AfffG3@Ip$%KWQS!R[CEG%S!T[C1AY&SYKWQ͂J~wA\T͘TG~w:3nQ;;!S[C͐HQ*pURnJ!hC[C[CWI͘TLJ͂J~!R[CڎTLJEG"p;T*pUR"6n[C!U[C͊HnJ~TUR"6n[C͐H!!U"1nR*6n[C͐H"p! U[CEG!U[C͐H!hC[C͊H!U[C*6n[CEGWIR5wU02V&yI$1?7q$Rq0iwe(I ?7X5SGH@(S5Tb"t@3333'&(KWQpUQ*pUR"8nnJ#~LR+~6&րLR@oҗU%ͫK!$V[CEG!4V[C*8n[C͐HUR"8n!,V[CEG*8n[C!hC[CEGWIUR[C[C͐HUR"8n!͇D" nD"nnJ"nnJ"n:/p=2/p̈́gl1͇D:/p̃1X*H%Y*p####"pYJYJ* noD* n[C*n~[CEG-C* n[CxY*n[C͊HÄYLJ*n[CEGnJ~ʝY:/p<2/p*nô>"pô>KͮYK͛J͂J~~@YG:pO#xYxZ YKy!qC[CEGnJ!_C[C~Wwz~WwzK͛J͂J~wK6[LzC,8ZL͇D|u1E͇DM*0pxJZq#?Z͏KK6[͛J*!p!m"!pͥD!m*0p:!pG{{Zw#oZ͏K"!pKzC$j1*0p*0p ÏKzC$j1*0pÔZ6[(fp7͝K̩1> :'p>2'p:m>2m͛JK~#N[%m:pG*0p:C͏K2m2'pZ[~Dĩ1#ZPĩ1~D&[#jZIĩ1##ͥoZzC$j1KK(f͝Ko&ͫKKK(f͝K`[~o&ͫKKK(f*0p6͝K&EK @?"A|1:%p<́12%p @:*pʰ[ ™[go<:%p=̂12%p"p = @[\7\[Ͳ?>(:*4pEA>):Ͳ?,\:4p2mͲ?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]͏]\x7y7+> 0<]u]]\x7+xPʏ]ʏ]7?]SxQڢ]P×]ob:'pyPyy{ʲ]ʷ]ʼ]>0<\x7# ]]]\ ^:'p\xP]^]G>Po^$͏]\ 9^xQ]PG}Po3^%͏]\H^:&p/2&p\f^x!lY^Axo`^$͏]\ ]]:&p^~ ʍ^w#~?\> ~?y] ]~?Nw#y Ÿ^w#yP̈^ÿ^ÿ^͏]\2'p>R=-_͇D|^ _ @:%= @?"A|1< @^`1_ _"_x _ _7ͭCzCF_e_͇D|/g}/ooDI_e_zCe_͇DDM͇D|g}ooDI_̈́_zC̈́_͇DDM͇D|g}ooDh_ @-_zC(ž_-_zC)g1h_͛J'`h1͛J͊HnJF#N!_!oD!oD(f'`(f͝K2n͝K2n:nG`:n~ ` `#:n=2n:n=2n_?`ú_:n~ `ú_zC=K`zC<\`zC>zC=ʃ`zCʃ`o`zC=t`zC>y`!`!`!`!`!`!`yxyË`yʜ`2mû`2mzC"` `1"`:`zC:`1`>?:ͼ?Wa*p|1!l̈́gl1xCaCC3a-CzC,LazC,`>?:>?:Wa`Ͳ?͇D>R:÷`Kg azC;IJ?ô>!l6 ͎: „ax^a+6 >~?> ~?>~?^a ^aw~?#6 ^a>2m!9p"m*p+9p*Hʴ>"mAa"A~#+2'p7Ib!9p"m*p+9p*Hʴ>"mAIb"A~#pb=;bl͋A}Zb|ZbԼ?ҷ=Ͳ?:'p³b> ::P*2'pR=ʿ, ,:'p>2'pV#^##CAͼ?b: b*!p+"!p2'p7Gcbbc:c:b++9p*H[c[c~ !c###Nybc #~ bc Ac#~ !c#>!9pXc!c~#<+uc##N !@{*\n<2m*pDM!9p~ʡcҫc##}oҍc$Íc#~dږc++*p:m`1oc$:mG|cgo"pv1"pDM~+ |c}c*pr#s:m<#w#w c+###~ #d*p#DMw#zd{d+"p:md*\nÅc @ҕd͛JLzCRdld^zC_dldÀ[zC`1ldf͇D|p1}p1-}:ʑd ʑd,}dydô>ʩdʩd`1`1> @ʼd`1!> ô>z7u1Qu1"2p>2p>2pzCd2mdzC"e>2mp7z7 e2p7z7e2p7z72 @.U>e,D>e,S>e,Cġ1p7&(f͝K̡1~Uae@ܡ1ԡ1gp7(f͝K̡1~Uʃe@ܡ1ԡ1G:—e:O*?ɗ2m @# ̈́gl1*#p|ÙeKge @!9p f:f @?"A|1"#pA ʴ>:ʴ>fAfzC&Af͝K͝K͏K+f @f̈́gfxb1zC(̊f*0p͇D##~2m#ʹfʄflf#ʹfʄf wf͏KLzC:`1LzC)g1͇DͿNM͇DͿNGy}1zC(͝K2m͊f*0pT]mfzC"*0p"ʏK ʏKw#f͝KG͇D#~܋1#p#{!gwg>2Tn @A[?rhOzC$yqg*Sg?ͿNO͇D6#q #6 \g#;.oD>,ʀg)ʀgqgchOx<›gzC$gOßgzC$gy­gxb1͇D6#yw#6#6=¾g#;.FoDxb1(c1zC(d1͇D~rh:Tn“h:Pnʓh2Tn2Pn):Tn2Pnf1|h2Tn @zCḯgi͇Dx @i"zC$AiiMSGThe 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 numeric 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 work 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 reference 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 overflow 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 statements 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 generated. of the first character of the first occurance of the value associated with char-expr 2 starting with the first position 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 - keyed 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 - keyed 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 Press4RETURN4key when finished.--- Visual Attributes v H   u { dddd " 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) 10 " " (N) 125...Field Type (A-alphanumeric)13 " " (N-numeric) 156...Auto RETURN (N) 16 " " (Y) 168(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.SEATTERROOFLOUFLOZDIIGNOREXD 1- " " (N) 1/4...Mandatory Fill (Y) 10 " " (N) 125...Field Type (A-alphanumeric)13 " " (N-numeric) 156...Auto RETURN (N) 16 " " (Y) 168(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!\ ee!e!e!6# xv !v"!222<2|ʼ{¢âyzw##ß!Q~q#p+OxG##! 9222:~:O|d:*d2##:<2|:~#d~+d* !v"!22~#+ʽ~n:~ʨ|ʕdz:ʣdÕ##e^#Vr+s{dzd2z|½ã#:  2::-*~2#":<2+2:Rͪ2!"!6#YJ*w#":<}2!v"vͪѷͰ DISK FUL~#ñ_ͪͪͪͰ CANNOT CLOSկ! w#ɯ22ͪͰ FILE NOT FOUNͪͪͰ DIRECTORY FUL~# xhZ.b8.,. . .;.! .w+͝ l.Ow+͝ ʸ. .ç.w+͝ ʧ.LIBMSG.w+à...Þ.ž.{=*7+~.ͼ.!E86 /#6 +-&-:-! //-X%:v8 A/"9Ͱ+U/> 3P/ : ,v/74 k/ɯ4>5!*9*9!!//6 /:9°/x/64*9P,29*95/7(5. /*9*9*9"9"9"9 bkÝ/:9ʼ290ů29 Ø:9z0 : ON0yV0y ^0y@k0:9=29:9<29:9:q7~%:9#~>%!ɷͰ+"9A.O:v8 ʝ0P,y6+,t0 .,. . .;.! .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ʼ290ů29 Ø:9z0 : ON0yV0y ^0y@k0:9=29:9<29:9:q7~%:9#~>%!ɷͰ+"9A.O:v8 ʝ0P,y6+,t0 .,. . .;.! .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#:=Fia##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#6T6X+6D+6Iڽ * lͺ<>_*}:2<2$! =;"*+))"####6#6###}a$T :2r#6#p#q#!$ DM:>__:=k!"*|>22!J:=2!">2!">2:O:< !$̓! "6#6#*r#s#*r#s#*r#s*#r#s:2=ʘ*DM>2[:Gy2zGʹ_,:=2*+))**~6#„ ",*V#^ʹ_Ҙͺ<>_zU!e6I#6D#6X\ W _:=O* :G#V#^"#V#^*$~#!!s#r#w!* :=̴ڮV#:_w^ҭ~րw#b.~#}†++V##V#^++^+V?:*+}">=27 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}oJ # > k / u :$ Ooa $)D*% :'  u ѷɷ y âã.@ABCDEFGHIJKLMNOPB@P @Terminal: WYSE 100 !29!79:I}lg!<9:AS:BM:CS!DC!9!9*ʜ:J_*}R*M >=ڜÓ!K w *pڅ wà}27?ÜŒ:J7x ҉ ʉ:uʉÜ  !uG* 7?x7C~###x%7y7 *#~ G::KM~M#Co:b}M&d}iox0M& f}0M!9!~2#~2#~2#~2w}Qگ$Po>M>GM>pM-.P%>M>GMy0M>M>GM>0MiO:1>9yͻxͻû ýx 0w#y><2Ʌo$/2\:] !]#6 !] ~# MENU01 \͉!66͉\͉\͉';D8*ḾSǵSó$p pB^ p8!6< ͉SO;£×*ʮ yʿ ®×$¿!w# +6>B/' ) ͉ MENU NOT ON DISK $ COMMA ERROR $ ITEM# NOT IN MENU $É_͉B! bX0}:}0DM)) )O b},1>9yͻxͻû ýx 0w#y><2Ʌo$/q#=ccYp:Oʠ!$q7 x Ê>2Ço$<w#@G:+p#A[?a{  xj.E  7??7*7?< xj, ?; w#F7$6#l7!0 DM)) );Æp! >a<7bp<7b/<7ȯ%V#^)}$|Ķp<7? _:224:44Lx ;6 *2~#7l l,lS"2> 114k >24!2"222äk k 11!26#­!zx!! Incorrect FILE NAME File Name? $͹"/>  >*  >>0*/ Wild Cards Not Allowed$ Incorrect RECORD LENGTH Record length? $b͹̓Iw Incorrect FILE TYPE File Type? $͹ADõ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Ͳ µ>DDMA¥2!ʹ:A!####V#^#" V#^"c0l* R !A*c0R R! 2!ʯÀ Incorrect FILE NAME$ OUTPUT FILE is same as INPUT FILE, Reenter$J'! (wV5 ͹Y/ N— ͹Y! File currently exists, Do you wish to DELETE current copy? $ Do you wish to Restart at the Beginning? $*| !q ( t  ͹7YNT KEY The File TYPE must be KEY$ Do you wish to Proceed anyway ?$ Incorrect response, Y or N expected. Reenter $!ͳ*| !:; Ͳ >D2:A! t| ":A3 !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|gyOxGDM!>2a0zW{_ |g}o:a0= !ʹ: :AE *c0|7!" ~: 7?W  Unable to write OUTPUT file$!ͶN ͏ !v w* }': 7?!'6 #® ® *}':G2*g0J >a'*g0#"g0:A!/ * + +| *c0+"c0+  !':AI *͉ +|2 *e0#"e0/ Z L #6 #6 #'!2 q  $k ͨ ͖ w ͺ # w  *e0R Last Record Written $ Total Number of Records Written $ *e0R :A>̉ !:AQ !͛ʹ*| *e0J !J # *J *e0J *J !͛!Q |}*| o ͹Yʞ Operation Successful Do You Wish to ORGANIZE another file? $ Unsuccessful Operation$ KEYSORT in Progress $!q (Y  ͪ:2,=>22!E}*2R !q }22E*2R 3:1Y   \ Total Number Of DUPLICATE KEYS $o*1w#a0{7?˜/t3>^!/7"1<՗!$>^!%o~$~2͜>o"1w#6#6>#6=*1"11*1>*1w###:1Gw# "1J*1*1"1r#s#####r#s|7######:121 m#:1=\w##V#^+M33*1V6#^6#|<|…ͳ…ͳ+~+##£ØV#^#|<7|####:1G~#g!4t3$*3:3I*1|+"1 *1*1͂*1#^#V#~"12<>^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"121*1#*1ͅ22"2y=222!>^2>^*1w+r+s+"1:1<21ʇ{=u4Ð4Ð3Ð3Ð)4Ð3 !6O#6U#6T6X+6D+6I>21 ځʍS4Ð*14͂t3<>^*1}:1<21$!4 ="1*1+))"1####6#6###}*$T4:121r#6#p#q#!$ DM:1>^^:1=4!t3"1*1|>21ʖ21!I:1=21!2"1>21Ϳ!t3"1>21Ϳ:1O:1<ږʖ/3!t3$2!/"16#6#*1r#s#*1r#s#*1r#s#*1r#st3:121=a*1DM>21;;$:1Gy21;z:1=21*1+))*1*1~6#M "1*1V#^!':1G2ڍ*1V#^!'at3<>^͂]!6I#6D#6X21 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) $͹BPʕ>22>22>22!}!~@>:#>.22:2>× List Of DUPLICATE KEYS for File $~ >^~@#*2#"2:2w=y=y>22!}:1*1;N+F*1;^+V`iQR !}R !}*1:1G>"22ɯ&$ʌ matches Record Number $ Record Number $, KEY="$V#^"1#V#^*1$~#!s#r#w!*1 :1=nhV#:1_w^g~րw#b.~#}@++V##V#^++^+V?:1*1+}"1>=217 r r yCʣ{  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#=&&: O37 x 3>o$3*y#"y> ͇> ͇*y}}}}}*{}͐ͅ|͕}͕> _33͘ ڦ0͇! 6#"   |ĸ{0!: =7]x/Gy/OxGyO|g}oDM|g}o&x@+$]|2 2 }o|gA B7P: =2 3{_zW}o|gyOxGDM!>2 zW{_x |g}o: =kVn $|} Operation Successful$ïw: #z·{·++ʹ0:?ʹͯ>2 ͷ" * DMBK * T]: =]" 2 ͷ! F#* w#" ! 4* ?G!) zpY#{+pp~#+<7p###~ d#Gʹ;r͠ʆ" ͠ʏ" ͠ʘ" ͠" $|r}) I ) W _ Oz< W  O>2 !h>$H\I\»go" ) * گ) * " * +|/" REN!, " ɯ2 ! " !eE>$\ ڃ\a\ڵ* ) " >|}" * +|¥Ҷ\<2 * #- }7? \:  3 ! 7" : ~: wn 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$(UB3ʹ7͋YN Incorrect response, Y or N expected. Reenter $ Output File Currently exists, Okay to DELETE? $go" |<7ʻ HY" ʴʡʡʴʴʡʴʴʡʡZZڡZZZ$" * * Ҥ * +ڤ * 0ڦ  " * ͭPY* d| *  !" * 0" * 0" `i  " * d| *  * DM#"  *  * r#s͑ #w" * ھG=ڜÓ!K w *pڅ wà}2;/7?ÜŒ:J7x ҉ ʉ:uʉÜ  !uG* 7?x7C~###x%7y7 *#~ G::K4)~4)#Co:b}4)&d}iox04)& f}04)!9!~2Q/#~2?/#~2@/#~2A/w}Qگ$Po>4)>G4)>p4)-.P%>4)>G4)y04)>4)>G4)>04)iO:1>9yͻxͻû ýx 0w#y><2Ʌo$/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 FinishedAUDCVRSE XA2V[[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!7oT$͎xqk>;!7(7(x(!;. 6#‚6 #‹ €6#6#6#ž>26*ͭ*ie[*-<*;.*ͭ*[*ä+[*-y**ͭ*!C/> w#>ͳ)͕+!,~ >O#~ C/).!;.~##2 + *"=/yBO)!=.+c)] ##K **.,*+|xͪ*l*ͳ);)ͪ)KDʙ #)x ͳ)͕+!,~#ҳO.).<*.*́*!.. !.1=s++^#V#"R/͊."-y2K/DM!7.ͧ!7͜"8.͉͕26͐:K/*.oO&".*=/+r+s!7"-*ͭ* ʷ*-"-@26*ͭ*R!;.1=‚[*-y**++"=/^#V#"R/,*zʤͪ*Ø;."-DMy2K/!7-ͧ!7͜"8.͕͐*-:K/Oyoxg"-!7"-*ͭ**- *=/ ^{#V*.}O|Gxͪ* *-MD*=/ ^#V+z1 s#r+.+ʷ!*ͭ*~!;.1=s++"=/^#V#"R/,*zzͪ*n^{#V#Œ*.]T*R/{OzG`i"-!7"-*͛**- *-|/g}/o#"-*=/ ^#Vz*.}O|Gxͪ* *=/! .{OzG* w#w#> w# *-MD*=/^#V+z s#r+.+ʷ ͫ(ͳ))ͪ)Y-y*>(͜)̈́*.(l ͳ))ͪ)Y~̈́-y*,*ź*Ò#~+ͨ'Ü"-*͌**- xª Ny#F#!xN#F*R/yoxg!;.1!=sM!;.1'+!C/*-<*-͹*-k*! *!C/> w#9ͳ)͕+!,~#ʇ U>O~ >ʇC/) ~#>#)ʃ i>>}̀!7T, #~+ #~#W~_ N#*ͨ'Ö~ #~W#~_++~>O ~>I>* f%ÿ"8.:62>2-*22U/:2T/>2T/:2U/#)R ͳ);)ͪ)NY#)^}*͕>(!W/6 # x‹!"T/: w#²+*T/:!DM*T/.+  xy#P> w#*T/.>2T/kT]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.|(|~|™p2B/!W/06# x°!7T,#~W#~_ N> ͨ'üT]ͨ'}O|G*>2B/ü*8.6#67z/W{/_)|2K/>26:B/ʐ +2:. ͳ))ͪ)N>2L/SaP\#)2>2L/ ͳ)!]͎ ͳ)!C/͎:L/(P>-( ˆ:L/ʣͳ);):L/¶P>-( ¯!"6."M/!7 ͳ)5 ͳ)~#~+#~/  ͙ ͨ'*M/"O/!"6."M/!7(% ͳ)5 ͳ)~Š #~+Š " ͳ):.g>oo!: ͳ)*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{/_y00¹!x> (>0(> (=þ!0ͳ);)*T/DM!7T,"#~#!~!  +Á"++ͨ'!(~|"*8.ͅ"ͨ'*8.{OzG**T/DM*8.!7+}"#~#J"Y"Q"~Y"++ͨ'5"*8.}O|G+~ xg"}O|G*"8.Ð ͳ)#~ ʱ" ~ʱ"ON ͳ)~#( §" %,͒&YN͒&YN͒&ZB͒&YN͒& YN͒&@NA͒&YN#͒&YN##> "!>O;! ͳ),! |%=ʋ$=$,! ;)ͪ) #ʟ$ʟ$ ʊ# ʊ# %$ #)#Nʀ#Bs#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%͡&ZB8%m%>N(͡&YN͡& YN͡&@NA͡&YN#͡& YN͡&YN##͸&b%go;)ͪ)% % %%% Yʶ%Nʶ%#)Á%(> (>>ß$;)ͪ)% % %%% Yʶ%Nz&0I&:I&(;)ͪ)U& b& j&r&r& ʍ& ʍ&0O&:O&(#)%#)&(> (%> (%> (%> (%| >N¶%}F>N¶%I&> (~#~#œ&~#m%~#~#®&~#(> (m%~&>N(#> (>Y&~,#+&Y&>w#N&x=&&%G~#'#~#w~#>'~/#w*T/DM!7T,#~#?'~G'++ͨ'+'+~+ `' N#*ͅ"Ð*T/DM!7T,#~#ƒ'~ʋ'++ͨ'o'++bkͨ'T,ʡ'~#Ô'"8.Ð#N F#y ʿ'xoҿ'$Ðcͳ))'̅"!_,a!w,b!k,A!,B!,#!,$!,C!,D+~#'(#~#:U/#:T/#* ~ w(~# |Z(yZ(͢(F( j(y~# b(~|͢(#k(~|ʎ( yʓ(#͢(z(y#͢(~|–(6+!hw#±(-!\$*-$*-!l ).!-$*-!o )> (> :-=e) =z)=ʈ)@)r)_:L/Og*>)w#+)_g*'Fx\)#~)S)>2-=^)2->2-2V/>2-ɯ2-o:V/g!]> w#£)a{ (ó))g*;)(g*# x)g*xg*~ͪ):)@g*.g**g*,g*[g*]g*# )xg*~# !*A_g*! w# E* *-k** *6*.͌* *-͌**g*͛*-͹*g* *-y*! w# * d*1-#)~ ͳ)ͳ)#)~ ͳ)ͳ)ͳ)þ)z{Gbkx;)o+_o+o+u+ VO #)b+(4~y54/+~+/+~+/+u+~> (5,>$+g*-y*-!-*- * ,0+:?+0G +0+:?+0Oxx++  , x0(0(&0,>OyP,0P,:P,0o|g 1,|g**8.+       !!""##$$%%&&''(())**++,,--..//00112233445566778899::;;<<==>>??@@AABBCCDDEEFFGGHHIIJJKKLL