A N , L M U S R F E  I C , I L E R O I R  R T E ' A E O KKKKKKKKKKKKKKKKKKKKK BPSB:15,DI,15:2,DI,2,"#":BR1 ((BP)0(BP1)0)BP256EB15:2:F TR(BP):SC(BP1):TR18SC0945 15,"B-P:"2;0:BPBP2:HI(BP256):LOBP(HI256):856,LO 857,HI:820:848:820:15,EN$,ED$,ET$,ES$ EN$"00"980 15KKKKKKKROM START":780#780:BC$"UN-RECOVERABLE DISK ERROR":965:976=#L"LOAD"(34)"0:"B$(34)",8,1RUN";c#V 198,2:631,13:632,13:56,160:;0;18;0:15,"B-P:"2;162!#2,A$:#2,B$:2:15:ID$A$B$:!OP$BC$:795:A175:A$!A$K,"U2";2;0;TR;SC:BPBP256:915!A015:(BP146A),((DN$,A1,1))::A01E!(BP164A),((DN$,18A,1))::925!15,DI,15:2,DI,2,"#":15,"U1";2;0;18;0:15,"B-P:"2;162!#2,A$:#2,B$:2:15:ID$A$B$:!OP$BC$:795:A175:A$!A$KKKKKKKKK"":OP$"":795:A175:A$:A$"":965"OP$"":795:A$""6"B$"PRACTIFILE": "RELOAD "B$S""BACKUP ANOTHER DISK"""ENTER CHOICE";A$:A$(A$" ",1):A$"B"100"1(A$"R")976,1100"800:OP$"BACKUP INCOMPLETE --- REDO F 780BC$"INSERT SOURCE DISK INTO DRIVE":965IOP$"READING BAM FROM SOURCE DISK":78015,DI,15:2,DI,2,"#":15,"U1";2;0;18;0:15,"B-P:"2;1#2,A$:#2,A$:#2,A$:A1140:#2,A$:A$""A$(0)BM$(A)A$::15,EN$,ED$,ET$,ES$:EN$"0 "DN$:790aBC$"INSERT DESTINATION DISK INTO DRIVE":965Ff955:ID$(DN$,2)EN$"00":ED$"OK":800:880kEN$"*1":ED$"SOURCE ID FOUND":ET$"00":ES$"00":800:865pOP$"WRITING DATA FROM BUFFER":780:910:815:OP$"":780uOP$"SOURC "DESTINATION:":790:LN16:DN14:RT17:730[LN2:RT35:B$""B$"CBM 1541 BACKUP":OP$OP$" "B$:790DN$B$:""34)",":OP$"ENTER DISK ID NUMBER":795730:B$""B$"64"""35)B$:DI$B$:198,0BC$"INSERT DESTINATION DISK IN "BL$OP$: 2:15:OP$EN$", "ED$","ET$","ES$<%""BL$OP$:[*""BL$:/ASBEB258:A,0:A1,0::BPSB:4BR0PTPT1:PT8PT1:SPSP1:8309BR1PTPT1:PT0PT7:SPSP1>EXECUTING"H^" "wc""h"OPERATOR INTERVENTIONTHEN ENTER"m" "r"780:OP$"":810:785:790.BC$"DONE: PUT PROGRAM DISK INTO DRIVE":965:975dB$"":("",DN)RT)" ";"";:A155:A$:A$""745:" ";:A155:A$"":735(A$)13" ":(A$)133976"? '"BUFFER"r ,"" 1" E F " 6"" ;"DISKBY1SC8:835 BY255(BM$(TC3))-(BY16)C(TR8)20SC20:835O(BY8)C(TR8)19SC19:835q(BY4)C(TR8)18SC18:835(BY2)C(TR8)17SC17:835(BY1)C(TR8)16SC16:835:2:15:OP$"":780:OP$"DESTINATIO$" "| BL$BL$"":BM$(140),C(43):A043:C(A)::815  32,101,116,117,97,246,234,231,160,21,21,21,21,21,21,21,21,21,21,21,21  21,21,21,21,21,19,19,19,19,19,19,19,18,18 INTO BUFFER":7800PO68A1140:BM$(A)(0):2515,DI,15:2,DI,2,"#"d:TC11404:C(((TC1)41)8)(BM$(TC))695?TR(TC1)41:BY255(BM$(TC1))DBY128SC7:835IBY64SC6:835NBY32SC5:835SBY16SC4:8350"#15,"B-P";2;144:SN$"":A120:#2,A$:SN$SN$A$:I2:15:SN$(SN$,16)","(SN$,2)DN$(DN$,(DN$)3):A$(DN$,(DN$)3)" "DN$(A$,16)","(DN$,2):800:OP$"SOURCE: "SN$(DN$,2)(SN$,2)535% E: "SN$:790zBC$"INSERT SOURCE DISK INTO DRIVE":965I955:ID$(SN$,2)EN$"00":ED$"OK":800:905EN$"*2":ED$"DESTINATION ID FOUND":ET$"00":ES$"00":800:890OP$"READING DATA INTO BUFFER":780:15,DI,15:2,DI,2,"#":TO DRIVE":965*810:OP$"FORMATING DESTINATION DISK":780Y15,DI,15:15,EN$,ED$,ET,ES$:EN$"00"450~15:OP$"":780:800:OP$"":405DN$"N0:"DN$","DI$:15,DN$:15,EN$,ED$,ET$,ES$15:800:EN$"00":OP$"":780:405OP$"":SP,C(PT): CBR0:15,"U1:"2;0;TR;SC:15,"B-P:"2;0KHBP,TR:BP1,SC:BPBP2:HI(BP256):LOBP(HI256):839,LOzM840,HI:820:828:820:15,EN$,ED$,ET$,ES$REN$"00"980WBPBP256:BP256EB\2:15:OP$"":780:OP$"DESTINATION: "DwOP$"ENTER THE PROGRAM OPERATION CODE":795:LN1:DN7:RT1[|730:B$""B$"B"PO(B$):B$"D"OP$"DIRECT BACKUP":400B$"B"375OP$"BAM SELECT BACKUP"785:OP$"":780:OP$"ENTER DISK NAME"795:OP$(A$)20765(B$)0:735B$(B$,(B$)1):" ";:7358A$" "A$"Z":735_(B$)LNB$B$A$:""A$"";:735j:735 ""BL$OP$:""BL$OP$:""BL$OP$:"".@" "]E""J"DISK STATUS"O" "T""Y"N: "DN$:790"BC$"INSERT DESTINATION DISK INTO DRIVE":965P955:ID$(DN$,2)EN$"00":ED$"OK":715EN$"*1":ED$"SOURCE ID FOUND":ET$"00":ES$"00":800:700800:OP$"WRITING DATA FROM BUFFER":780:910OP$"BACKUP FINISHED":,18,18,18,18,17,17,17,17,178 ""8)"SINGLE DISK BACKUP V1.0"U 11)"BY MICHAEL SCHAFF"  " B=BAM(DEFAULT), D=DIRECT, F1=EXIT" "BACKUP COMMANDRETURN IS DEFAULT" " " ""XBY8SC3:835]BY4SC2:835bBY2SC1:835/gBY1SC0:835GlBY255(BM$(TC2))^qBY128SC15:835tvBY64SC14:835{BY32SC13:835BY16SC12:835BY8SC11:835BY4SC10:835BY2SC9:835 OP$"":780:790:EN$"*3":ED$"BAD ID NUMBER":ET$"00":ES$"00"Z800:BC$"ID NUMBERS ARE NOT UNIQUE":965:976o790:OP$"":780BC$"VERIFY SOURCE DISK FOR BACKUP":965!A$"N"555&OP$"":780:790:810:465+OP$"READING DATA "KITE "25 "PATRACHUTE "49.50 "1 "1 "1 "KITE "25 "ROTOR "15.00 "3 "3 "2 "KITE "45 "BOX "12.95 "20 "5 "3 "KITE "45 "DELTA "1.29 "30 "12 "10 "KITE "45 "DIAMOND "10.25 "5 "3 "2 "TOY "02 "MR ED "4.00 "5 "5 "3 "TOY "02 "SISTER SUE "5.00 "5 "5 "3 "TOY "09 "BETT 1 0 1 0 0 0 80 0 4 66 REPORT WRITER 0 0 3 0 0 15 0 0 0 IRST AME 1 0 0 0 "EADER INE " " " " 0 0 " 0 0 " 0 0 " 0 0 " 0 0 " 0 0 " 0 0 " 0 0 " 0 0 " 0 0 " 0 0 "  6 1 2 1 0 0 80 0 4 66 REPORT WRITER 0 0 3 0 0 4 0 0 0 TYPE 1 5 0 0 0 SUP- PLIER 2 20 0 0 0 PRODUCT NAME 3 6 9 3 2 PRICE 4 4 9 4 0 ON HAND 5 7 11 4 2 TOTAL VALUE 0="ZZZZ "ZZZ "ZZZ " " " " " " " "AAA "AAAA "AAA " " " " " " " x@)@ @)X`3ȱŻż`i渥i溰ȱŻż`8Ƹ8ƺŹȱź`漥i渥ž٥Ž`*Hȱ*ȱ*h`)A[EɀEx )  )@X`3ȱũŪ`i榥i樰ȱũŪ`8Ʀ8ƨŧȱŨ`檥i榥Ŭ٥ū`-Hȱ-ȱ-h`)A[EɀEx) )X`3ȱũŪ`i榥i樰ȱũŪ`8Ʀ8ƨŧȱŨ`檥i榥Ŭ٥ū`-Hȱ-ȱ-h`)A[EɀE"MICHAEL "RILEY "TOTAL CONTROL SOFTWARE "1038 PINE ST "PHILLA "PA "19107 " "(215) WA3-9663 "A "MICHAEL "RILEY "TOTAL CONTROL SOFTWARE "1038 PINE ST "PHILLA "PA "19107 " "(215) WA3-9663 "A "SAM "GALBIRTH " "1570 BAIMBRIDGE "PHILA "PA "19108 " "(215)WA8-12"DOE "PROGRAMER "2040 DISK DRIVE "SILICON VALLY "CA "78965 " "(216)YU6-2121 "B "MURIEL "MASON "WITCHITA GUN CLUB "43 GRENADER ST. "WITCHTA "OH "78965 " "753-951-1456 "A "JOHN "DOE "PROGRAMER "2040 DISK DRIVE "SILICON VALLY "CA "78965 " "(216)YU6-2121 "B  " "987-456-7654 "HJ- DISK DRIVE "SILICON VALLY "CA "78965 " "(216)YU6-2121 "B "MURIEL "MASON "WITCHITA GUN CLUB "43 GRENADER ST. "WITCHTA "OH "78965 " "753-951-1456 "A "JOHN "DOE "PROGRAMER "2040 DISK DRIVE "SILICON VALLY "CA "78965 " "(216)YU6-2121 "B Y BOOP "8.50 "12 "12 "6 "TOY "09 "RAGGETY ANN "8.50 "12 "0 "6 "TOY "12 "BANANA SPLIT "19.95 "10 "-3 "5 "TOY "12 "BATTLE SHIP "15.95 "12 "12 "6 "TOY "12 "PARK SCENE "19.95 "10 "1 "5 "TOY "12 "PHILA "19.95 "10 "10 "5 "TOY "12 "PT109 "9.95 "12 "12 "6 "0 0 0 11 11 0 0 -1 4 3 1.00 3 "SAMPLE FORMAT FOR INV FILE "NAME OF FORMAT IS INV "C6= "C4 "* "C5 0 0 " 27 0 " 69 0 " 0 0 " 0 0 " 0 0 " 0 0 " 0 0 " 0 0 " 0 0 " 0 0 " 1 0 0 11 11 0 0 1 d"":56,41::185i:Dnhs GLE DISK BACKUP V1.0  AUTH : MICHAEL SCHAFF  COMPUTER: C64  DISK : 1541  (C) 1982 ɀ) TT!~AFu Lȭȑ Q'􈈈'Н`BMAILDO UPDATEMAILINVɀ) TT!~AFu Lȭȑ Q'􈈈'Н`BMAILDO UPDATEMAILINVɀ) TT!~AFu Lȭȑ Q'􈈈'Н`BMAILDO UPDATEMAILINV34 "AB- "SAM "GALBIRTH " "1570 BAIMBRIDGE "PHILA "PA "19108 " "(215)WA8-1234 "AB- "SAM "SPADSKI "SPACE TOYS INC. "256 ASH DR. "CHICAGO "IL "45698 " "456-852-6547 "U "SAM "SPADSKI "SPACE TOYS INC. "256 ASH DR. "CHICAGO "IL "45698 " "456-852-6547 "U "JOHN  "MURIEL "MASON "WITCHITA GUN CLUB "43 GRENADER ST. "WITCHTA "OH "78965 " "753-951-1456 "A "MARGE "MEMORY "FULTON'S BOOK STORE "874 GERTON AVE "FELICIA "CA "89756 " "987-456-7654 "HJ- "MARGE "MEMORY "FULTON'S BOOK STORE "874 GERTON AVE "FELICIA "CA "89756" COMMODE BUESS MACHINES H N :d 53280,0: BORDER~ 53281,0: BACKGROUND "" : CHARACTER DI8 : DISK DEVICE NUMBER SP1389 : SCREEN BAR POSITION SB10496 : START BUFFER! BP10496 : BUFFER POINTER> EB40960 : END BUFFERD :] A828867:B:A,B: 162,2,32,198,255,160,0,32,165,255,153,0,48,200,208,247,32,204,255,96 162,2,32,201,255,160,0,185,0,48,32,168,255,200,208,247,32,204,255,96A BL L);S%(BL):VORV:8:E2X(WR1)(BL1)RB: NO. RECS BEFOR THIS IN THIS BLOCKWBP1RSX:KK(RV),"B-P:";RA;BP:b0 YES?5X$("YN",1((XX3)0),1):45007 X$"Y"X$"N""PLEASE ANSWER Y OR N":4400:X$(X$,1):X( X( X3) ( "X$")"# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E # LI253 IV,LI,$ "0:"X$,8::T$ OPEN RAiY$ DT1 RV1 "INSERT DATA DISK": 10[$KK(RV),"I"DR$(RV)^$ SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$",S,R"`$VORV: 8: S CESS FILE ";U"YOU MUST BACKUP THIS DISK, THEN USE ";NZ"THE 'LOAD FROM SEQ' PROGRAM TO LOAD THE ";w_"RECORDS INTO THE FILE. SEE THE ";d"MANUAL SECTION 'WHEN THINGS GO WRONG' FOR DETAILSi 10: LI253 IV,LIn WRITE A RE FOR BATCH FILE?(1/0)":G1$"10": 5:QV(G$)!: QVRV KK(QV),"I"DR$(QV)V7KK(QV),"S"DR$(QV)":BATCH":VOQV: 8: E1 = SE,DV(QV),SE,DR$(QV)":BATCH,S,W":VOQV: 8cd ADD OR REPi:G$"A" X1 HF:F$(X)"": Xn: :AR%(WF)0F$(WF)"":LL2:3745-: FT$(WF)":":X$F$(WF):4500O: X(X$)MF%(WF):X1 3735: (7)"FIELD TOO LONG BY"X" CHARACTERS":3720: X$F$(WF)X0HK:D1SF%(X,0):CKCK(WFSF%(X,D)):D,X: LL(X$)2:F$(WF)X$ HR: 6400: E : TOP REC, OPEN*"ADD,REPLICATE,MERGE":G1$"ARM": 5:"";P G$"A" G$"R" 6500: 6105"ARE YOU SURE?(Y/N)":G1$"YN": 5:G$"N" 6105 6200:: MERGE BATCH8 MERGE BATCH<EF0:TRHR SE::WRPO%(P%,WK): R4 3350: 3317: : 4300: X1 DK:RA,X$(X): X:FO$""j :X1SF%(WK,0):FO$FO$X$(SF%(WK,X))Z$:X : FI$FO$ THP%:3310 :TLP%:3310 L1:X1DK:#(RA),(WR),(L):RA,X$(X):LL(X$(X))2:X  DISPLAY  L0  DT1 QVRV: 5330+:E0:"DRIVE(1/0)?":G1$"01": 5:QV(G$)O: QVRV KK(QV),"I"DR$(QV) X1$"W" KK(QV),"S"DR$(QV)":BA"(162)N2$ SE,DV(QV),SE,DR$(QV)":BA"N2$",S,"X1$VOQV: 8: E SEFORMAT " SAVE FORMAT"3  X1$"W": 5300: E Y G : WF1 HF:SE,AR%(WF);R$;: WFd L SE:v LOAD FORMAT " LOAD FORMAT" X1$"R": 5300: E WF1HF:SE,AR%(WF): WF SE: CHANGE FORMAT P$,L)(LE$,L);:: CL""M$"";:W150:G$:G$""M$"";:C:W:M$"";:W150:G$:G$""Q:W:4565s(X$,1)" "X$(X$,2):4580:(X$,1)" "X$(X$,(X$)1):4585::P CHUNK UPU: FOR X=TR TO BR STEP-1:X$"Y")X3 ):X$(LE$,(X$));:CX1: GARD INPDM$(X$" ",CX,1):""M$"";:G$:G$""4565w:A(G$):M$"";:(A 127)32CX77A344520: G$;:X$(X$,CX1)G$(X$,CX1):CXCX1:4505:A157CX1CXCX1:G$;:4505: LF:+E: E c$ RA,DV(RV),RA,"#":BL0:1:"";: 3700:"";: ASK4u:X1HF:SE,Q$F$(X)R$;: 8:X:xE# EXITf#X$"FILE MENU": 9200: 9101v# LOAD PROG# RA: DT1 RV1 "INSERT PROGRAM DISK": 10#KK(0),"I0":"(LOADING CX$"": X1 HF:X$X$Q$F$(X)R$: X1 R4 #(RA),(WR):(RA),X$;:D" 4300:RA,X$;y'KK(RV),"U2:"RA;DR(RV);T%(BL);S%(BL):VORV: 8: POSITION POINTERX((WR1)RB.00001)1: BLX 4315:BLX:KK(RV),"U1:"RA;DR(RV);T%(BTRMR "FILE IS FULL !!":s:TRTR1:"";: 3700:"";: ASK4u:X1HF:SE,Q$F$(X)R$;: 8:X:xE# EXITf#X$"FILE MENU": 9200: 9101v# LOAD PROG# RA: DT1 RV1 "INSERT PROGRAM DISK": 10#KK(0),"I0":"(LOADING  WF: LRS "REC TOO LARGE": 3710/"";:3500:3: G$"Y" 37105G< MERGE ERROR{A"YOU HAVE HAD A DISK ERROR DURRING A MERGE. ";F"THE RECORDS YOU ENTERD ARE STILL IN THE ";K"BATCH FILE. "P"TO GET THEM IN THE RANDOM AC NONE TO ADD#>SP1: SE: SE,DV(QV),SE,DR$(QV)":BATCH,S,R":GOSUB8:IFETHEN3900HG X1 HF:SE,F$(X): X:EFEFSTiL: 2100: E 3900: ADD REC{Q EF0 6215V SE: 1900: OPEN BATCH DT1 QVRV: 6455:"DRIVE NUMBER REC "KEY#"WK1" ="FT$(SF)" RECORD#"RRE WF1 HF:X$FT$(WF)":":X$""X$""j :(X$)15MT2X$(X$SP$,15)y :X$F$(WF) WF20HF20"CONTIUE?":G1$"C":5 WF:tCK0: ASK REC~"";:L0: WF1 HF:X$F$(WF)   PASS PARAMSX(ZV2)256(ZV3)9AO: POS OF PO%(0,0)GXX(MR1)2WK: POS OF PO%(0,WK) HI LO BYTEk B7,(XS)255: B71,(XS)256 B72,(XD)255: B73,(XD)256  B74,(XE1)255: B75,(XE1)256% ENTRYTR "CHANGE FORMAT": WF1 HFX "FIELD #"WF"= "FT$(WF): "WILL YOU NEED TO ENTER THIS FIELD?"} XAR%(WF):X31: 4400:AR%(WF)X WF: BINARY SEARCH TL0:THHR1: TOO LOW, TOO HIGH THTL1FRTH: :P%(TLTH)2.1:PO%(X+1,WK)=PO%(X,WK):NEXT X:RETURNZS(TR)2:D(TR1)2:E1(BR)20_5900: ML6:@ OPEN FORMk"NAME OF FORMAT:":X$N2$:4500:N2$X$E1:L(N2$): L12 "FILE NAME TOO LONG": X1 L: (N2$,1)"*" "'*' ILLEGAL":: X: A29CX(X$)CXCX1:G$;:4505:RI:A134580: RETL:A20CX1G$;:X$(X$,CX2)(X$,CX):CXCX1g:A148(X$)784555:A147L(X$):4560:CX1:X$"":4505X$(X$,CX1)" "(X$,CX):G$" ";:: IN(LE$,CX1)(SiX1 3100:: CALC CHANGE#******EXIT.# LI253 IV,LIK#"DATA BASE",8:VO0:8::KTIAL FILE?": NS$"":KE,NS$:: NS$"" (NS$,1)"*" 8107"HOW MANY FIELDS DOES THE SEQ FILE HAVE?":XHC:X11:X2MD:4800:HCX% IV,LI"DO UPDATE",8: ******CHANGE FORMAT?"CHANGE FORMATr"NAME OF SEQUENTIAL FILE?": NS$"":KE,NS$:: NS$"" (NS$,1)"*" 8107"HOW MANY FIELDS DOES THE SEQ FILE HAVE?":XHC:X11:X2MD:4800:HCX%  110031,8,15,"I0":1,"S0:WP":"0:WP",8:_"CORRECTIONS?(Y/N)":G1$"YN": 5:u4,4:4:"";::G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 E;E$;S;T;R$; "CONTINUE?":G1$"C":5L"IF Y LEGAL ENTRY - PLEASE ENTER A NUMBER"B "IN THE RANGE OF"X1" TO"X2" !!":4800R  OPEN FORM{ "NAME OF FORMAT:":N2$"":KE,N2$: E1:L(N2$): L12 "FILE NAME TOO LONG":  X1 L: (N2$,1)"*" "'*' ILLEGAL": : X: L0 LOAD AND RUN WHEN YOU6j"PRESS W FROM THE DISK MENU dt END: CLR:LOAD"0:DATA BASE",8:STOPxMT2:K(50003): K1 K160 MT1: PROG LOAD} 10:X$"DISK MENU":1,8,152,8,0,"0:"X$",R,P":1,E,E$,T,S: E 2:X$"MAIN M- ,SF2" "F5= ,F4 ,* ,F8 "U "WHERE A IS THE LETTER 'F' PLUS ANY FIELD NUMBER "; "AND B AND D ARE EITHER REAL NUMBERS OR THE "; "LETTER 'F' PLUS ANY RANDOM FIELD NUMBER "; "OR THE LETTERS 'SF' PLUS ANY SEQUENTIAL FIELD 5/10/80 9:20  1100X15: 15,8,15,"S0:BATCH ENTRY":"0:BATCH ENTRY",8:"CORRECTIONS?(Y/N)":G1$"YN": 5:4,4:4:"";::G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 "DISK ERROR:"E;E$;: XSE,WK: SE:% ******CALC CHANGEK! " UPDATE CALCULATIONS$ "HOW MANY OPERATIONS DO YOU WANT TO PERFORM?"% XHO:X11:X2MD:4800:HOX& HO00 3200: INSTRUCT4 WO1 HO5 "OPERATION #"WO":"% : OA$(W4 CHUNK UP5 OPEN FORM*; PASS PARAMS6= ENTRYH> MERGE BATCHY@ OPEN BATCHd[ EXIToL MAINN 9300: 1200: SETUPQ"BATCH ENTRY"S"LOAD FORMAT"V"CREATE OR CHANGE FORMAT"["SAVE FORMAT"l SAVE BOOK>q SE:UKWK:"(SCRATCHING OLD BOOKKEEPING)"vv:KK(RV),"S"DR$(RV)":DB"NA$:VORV: 8: E1 | SE,DV(RV),SE,DR$(RV)":DB"NA$",S,W":VORV: 8:E SE,MR;R$HR;R$RS;R$HB;R$HF;R$SF;R$RB;R$HK;R$WK;R$DK;R$DE;R$MCS%(WB)R$;:WB3 R4#(RA):#(RA),("RA"NA$),L(RS),D(DR(RV))S X1HF:SE," "MF%(X)R$;:Xm SP0: SE:VORV: 8:~ 4 ADD RECORD 9E1: DD "DEALER DEMO CANT ADD": >HRMR "FILE IS FULL": C"(ADDING RECORD#"HR1")" HWRHR"WHICH SEQ FIELD WILL INDICATE THE RECORD TO BE MODIFIED?"E:XSK:X11:X2HC:4800:SKXS"KEYS:"y: X0 HK:X1;: D1 SF%(X,0): FT$(SF%(X,D))" ";: D:: X:"WHICH RANDOM KEY WILL IT MATCH?":XWK1:X11:X2HK1:4800:WKOU WISH FLEX FILE TO BE ABLE<O"TO LOAD YOUR WORD PROCESSORcS"THEN SCRATCH THIS PROGRAM ON THEV"FLEX FILE DISK (THIS PROGRAM IS NAMED 'WP')["THEN SAVE A VERSION OF YOUR WORD PROCESSOR`"ON THE DISK UNDER THE NAME 'WP'.e"IT WILL  E0:"DRIVE(1/0)?":G1$"01": 5:QV(G$)C  QVRV KK(QV),"I"DR$(QV)w  X1$"W" KK(QV),"S"DR$(QV)":UP"(162)N2$  SE,DV(QV),SE,DR$(QV)":UP"N2$",S,"X1$ VOQV: 8: E SE  ******DO UPDATE  LI253 }ENU":141002:"LOAD"(34)X$(34)",8RUN";V MT1 158,2:623,13:624,13:s198,2:631,13:632,13:THIS PROGRAM IS NAMED 'WP')["THEN SAVE A VERSION OF YOUR WORD PROCESSOR`"ON THE DISK UNDER THE NAME 'WP'.e"IT WILL  NUMBER ";' "AND WHERE C IS A MATH OPERATION:";Y "+,-,X [OR *],/,^,SIN,TAN,INT,RND,ABS,OR LOG "FIELDS:":X1HF:""X""FT$(X)" ";:X:  ASK NUMBER  G$:X;D$;:KE,X$::X(X$):X0X$"0"4812 XX1XX2 "ILS;T "READY?":G1$"R":5:* MAIN8 SETUP 2H SAVE BOOKY ADD RECORDk SAVE FORMAT} LOAD FORMAT CHANGE FORMAT! BINARY SEARCH# DISPLAY REC% ASK REC) WRITE A REC+ POSITION POINTER, YES?O);4)","OB$(WO)10)","OO$(WO)15)","OC$(WO)""J ? KE,OA$(WO),OB$(WO),X$,OC$(WO):~ A :OO$(WO)X$:(X$,1)" "X$(X$,(X$)1):3137 B X$"" OO$(WO)".""" D WO  ******INSTRUCT CALC "A B C D "F4= ,F4 , `"ENTER DATA".b"^ RETURN TO FILE MENU"aeG1$"LCSE^": 5: V 2500,2700,2300,6100,9100lj 1105x SETUP X1 MD:AR%(X)X: X HQ0 HQHFN2$""N2$NA$: X1 HF:AR%(X)1:F$(X)"": XLI253 IV,LI3 ;R$;"  WF1 HF:SE,Q$;FT$(WF);R$;: WFN  D05: X0HK:SE,SF%(X,D);R$;: X,Dg "(SAVING POINTERS)" : X0HK: RR1 HR:SE,PO%(RR,X);R$;: RR:X  R3 "(SAVING BLOCK MAP)": X110: X : R3 WB1 HB:SE," "T%(WB)R$" "1:4100: E : ASK,WRITE- MSP1:UKWK: WK0HK:FI$""j R: D1 SF%(WK,0):FI$FI$F$(SF%(WK,D))Z$: D: 3300: W: FRHR1 BRFR:TRHR: 5200: CHUNK UP \:PO%(FR,WK)HR1:WKUK RRFR a WK:HRHR1:WKUK f: WRT,DISP  SAVE   TOTALS AND AVERAGES"^ RETURN TO FILE CALCS MENU0G1$"SCT^": 5: G$"R" ?G$"^" X V 2100,3100,6500c 8100n# EXIT#LO$(3)") THEN PRINT.":X$"FILE MENU": 9200: 9101# LOAD PROG# RA: DT1 RV1  A"(162)N2$ SE,DV(QV),SE,DR$(QV)":CA"N2$",S,"X1$,VOQV: 8: E SE2C MAKE CALCS`X$"MAKE CALCS": 9200:wd TOTS AVRS CHANGEi" CHANGE TOTALS AVERAGESn WF1 HF:"FIELD #"WF": "FT$(WF)s:"T   1100E 15,8,15,"I0":15,"S0:BACKUP FF":"0:BACKUP FF",8:[4,4:4:"";::G$:V1(G1$):G$(G1$,V,1)V:5G$"I" G1$"01":5:CC,"I"G$:CC,E,E$,S,T:E2 "DISK ERROR:"E;E$;S;T "CONTINUE?":G1$" 85:: ASK NUMBER'X$((X),2):4500:X(X$):X0X$"0"4812:XX1XX2h"ILLEGAL ENTRY - PLEASE ENTER A NUMBER""IN THE RANGE OF"X1" TO"X2:4800 OPEN FORM"NAME OF FORMAT:":X$N2$:4500:N2$X$E1:L("C0:"D$"=1:"D$: 81400, DIRECTIONSM"BACKUP FF"}"THIS PROGRAM COPIES ALL THE FLEX FILE ";"PROGRAMS FROM A DISK IN DRIVE 1 TO A DISK IN DRIVE 0. ""OR SCRATCHES ALL FLEX FILE PROGRAMS IN DRIVE 0" ":CXCX1:4505:A157CX1CXCX1:G$;:4505: LFA:A29CX(X$)CXCX1:G$;:4505:RIW:A134580: RET:A20CX1G$;:X$(X$,CX2)(X$,CX):CXCX1:A148(X$)784555:A147L(X$):4560:CX1:X$"":4505IRECT MAIL LABELS9 REPORT WRITER,PRINT REP,CHANGE FORMS CREATE SEQ,LOAD SEQe ALPHA ORDER CALC FILE,MAKE CALCS ML1,ML2,ML3 BACKUP FF,VIEW SEQ,WP DATA BATCH ENTRY DATA UPDATE,DO UPDATE   THE "; "LETTER 'F' PLUS ANY FIELD NUMBER ";= "AND WHERE C IS A MATH OPERATION:"a ".,+,-.*,^,LOG,SIN,TAN,INT,RND "FIELDS:":X1HF:""X""FT$(X)" ";:X: 0 YES?5X$("YN",1((XX3)0),1):45007 X$"Y"X$"N"" 5/10/80 9:20  1100N15: 15,8,15,"S0:UPDATE":"0:UPDATE",8:b4,4:4:"";:G$:V1(G1$):G$(G1$,V,1)V:5KK(QV),E,E$,S,T:E2 "DISK ERROR:"E;E$;S;T "CONTINUE?":G1$"C":5: ******MAIN  A SEQ FILEV"LOAD FORMAT"DX"CHANGE, CREATE, INSPECT FORMATZZ"SAVE FORMAT"v\"UPDATE RANDOM FILE^"^ RETURN TO FILE MENU`G1$"LCSU^":5: V 1500,8100,1700,6100,9100 X110:G$:X:1109 LOADX1$"R":"INSERT PROGRAM DISK": 10#KK(0),"I0":"(LOADING "X$")"C# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E Z# LI253 IV,LIl$ "0:"X$,8:zT$ OPEN RAY$ DT1 RV1 "INSERT DATA DISK": 10[$KK(RV),"I"DR$(RV)^$ SE,DV(ROTAL AT END?":XFL%(WF):X32: 4400:FL%(WF)X9x:"AVERAGE AT END?":XFL%(WF):X34: 4400:FL%(WF)XB} WFHa******CHANGE FORMAT" CHANGE FORMAT""CHANGE:" SELECTION CRITERIA" CALCULATIONS"C":5: MAIN DATA& DOIT7 DIRECTIONSB DATAML MAIN`NCC15:CC,8,CCxQ 1500: DIRECTIONSV 1400: COPY`x DOIT} D$ : D$"EOD" ""D$:"SCRATCHING":CC,"S0:"D$: 8: G$"C" "COPYING":CC,N2$): L12 "FILE NAME TOO LONG":, X1 L: (N2$,1)"*" "'*' ILLEGAL":?: X: L0 Y DT1 QVRV: 5330:E0:"DRIVE(1/0)?":G1$"01": 5:QV(G$): QVRV KK(QV),"I"DR$(QV) X1$"W" KK(QV),"S"DR$(QV)":CPLACE THE FLEX FILE DISK IN ";] "DRIVE 1 AND A FORMATTED (HEADER COMMAND) DISK IN DRIVE 0. "k"COPY{"SCRATCH"EXIT G1$"CE": 5:G$"E" CC,"I": 8: E 1500 DATA DISK MENU,FILE MENU,START FILE,DX$(X$,CX1)" "(X$,CX):G$" ";:: IN/(LE$,CX1)(SP$,L)(LE$,L);:: CL]""M$"";:W150:G$:G$""M$"";::W:M$"";:W150:G$:G$"":W:4565(X$,1)" "X$(X$,2):4580:(X$,1)" "X$(X$,(X$)1):45W DATA MAIL,INV?  DATA "MLMAIL","RWINV","DBMAIL","DBINV"I  EODN DRIVE 0. "k"COPY{"SCRATCH"EXIT G1$"CE": 5:G$"E" CC,"I": 8: E 1500 DATA DISK MENU,FILE MENU,START FILE,DPLEASE ANSWER Y OR N":4400,:X$(X$,1):X( X( X3) (X$"Y")X3 ):QX$(LE$,(X$));:CX1: GARD INPM$(X$" ",CX,1):""M$"";:G$:G$""4565:A(G$):M$"";:(A 127)32CX77A344520: G$;:X$(X$,CX1)G$(X$,CX1) ******SET UP LOAD&******SAVE=******CALC CHANGEV ******INSTRUCT CALCk=******DO UPDATEQ******CHANGE FORMAT[******EXITb*****NUM INPUTL******MAINQN2$NA$: LI253 IV,LI3U" UPDATE RANDOM FILE FROM  5300: E  SE, HC,SK,HO,NS$.: X1 HOZ SE,OA$(X), OB$(X), OO$(X), OC$(X): Xl?SE,WK: SE:w SAVEX1$"W": 5300: E  SE, HC;R$; SK;R$; HO;R$; NS$;R$; X1 HO: SE, OA$(X)R$ OB$(X)R$ OO$(X)R$ OC$(X)R$;mV),SE,DR$(RV)":DB"(34128)NA$",S,R"`$VORV: 8: SE: E /c$ RA,DV(RV),RA,"#":BL0:CNF0X V 2100,3100,6500c 8100n# EXIT#LO$(3)") THEN PRINT.":X$"FILE MENU": 9200: 9101# LOAD PROG# RA: DT1 RV1  5/10/80 9:20  1100Y 15,8,15,"I0":15,"S0:CALC FILE":"0:CALC FILE",8:"CORRECTIONS?(Y/N)":G1$"YN": 5:4,4:4:"";:G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 "DISK ERROR:"E;E$;S 2MD:XHO: 4800:HOX: HO0 %0 DE$" ": FF DE$",";2 3200: INSTRUCTK5 WO1 HOf: :"OPERATION #"WO":"? :X$OA$(WO)DE$OB$(WO)DE$OO$(WO)DE$OC$(WO)@ :X$",,,"X$" , , ,"A :4500:X1$X$:CX1 D :3170:OA$(WO)X$ )3:2215 :XSL%(WS):X11:X23:4800:SL%(WS)X& G ******DISPLAY SEL STATEMENTi "YOUR SELECTION STATEMENT: "IF (";: HSWS HSWS Y1 HS: YWS X1 "...";:2520 FT$(SA%(Y)); YWS X2 "...";:2530 )255: B73,(XD)256 !  B74,(XE)255: B75,(XE)256!% !# LOAD PROGW!# RA: DT1 RV1 "INSERT PROGRAM DISK": 10z!#KK(0),"I0":"(LOADING "X$")"!# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E !# LI253 IV,LI!$ " S:": WF1 HF: WF;FT$(WF): WFC :X1: 2500:"ENTER FIELD NO:": DISP SELn :XSA%(WS):X11:X2HF: 4800:SA%(WS)X T$"EQUALITY TYPES:": X1 9(XF0): X;EQ$(X): X :X2: 2500:"ENTER EQUALITY TYPE NO:" :XSE%(WS):X11:X29(  "X$(X$,(X$)1):4585:: ASK NUMBER6X$((X),2):4500:X(X$):X0X$"0"4812IXX1XX2w"ILLEGAL ENTRY - PLEASE ENTER A NUMBER""IN THE RANGE OF"X1" TO"X2:4800P CHUNK UPU FOR X=TR TO BR STEP-1:PO% HS.  SE,SA%(X);R$;SE%(X);R$;SB$(X);R$;SL%(X);R$;: X> : X1 HOq  SE, OA$(X)R$ OB$(X)R$ OO$(X)R$ OC$(X)R$;: X :X1RW: SE,FL%(X);R$;:X  SE: 4 SELECT 9T$ " SELECT CHANGE"R$ >"DO YOU WISH TO SELECT (X$,CX1)G$(X$,CX1):CXCX1:4505%:A157CX1CXCX1:G$;:4505: LFP:A29CX(X$)CXCX1:G$;:4505:RIf:A134580: RET:A20CX1G$;:X$(X$,CX2)(X$,CX):CXCX1:A148(X$)784555:A147L(X$):4560:CX "SAVE FORMAT"(\"MAKE CALCULATIONS"G^"^ RETURN TO FILE MENUy`G1$"LCSM^":5: V 1500,8100,1700,6100,9100 X110:G$:X:1109 SETUP N2$"" N2$NA$WC1HC:CT(WC,0)0:WC: LOADX1$"R": 5300: E N :OO$(WO)""OO$(WO)"."""S : WO:3: G$"Y"3100$X -b XCXXg (X1$,X,1)DE$X(X1$)XX1:3175|l :X$(X1$,CX,XCX):4580:CXX1n : (X1$,CX,1)" " CXCX1:3182p :v MD20:LE$"": 3100:3190{ FF ;T "READY?":G1$"R":5:( MAIN5 SET UP@ LOADK SAVE_ SELECT CHANGEo (CONT) DISPLAY SEL STATEMENT CALC CHANGE INSTRUCT CALC, YES?- TOTS AVRS CHANGE0 ASK NUMBER5 OPEN FORM= M : 3170: X$"=" OB$(WO)X$: 3142:E : OA$(WO)OA$(WO)" =":3170:OB$(WO)X$:cF :3170:OO$(WO)X$: 3170:OC$(WO)X$:G :X$(OB$(WO),1): FF0 X$"F" 3150H : X$"0" (X$)0 3150I : OC$(WO)OO$(WO):OO$(WO)OB$(WO):OB$(WO)""  " "EQ$(SE%(Y))" ";& YWS X3 "...";:25404 SB$(Y);W YWS X4 "...";:2550j LO$(SL%(Y));v Y:: CALC! " CALCULATED COLUMNS INFO& "HOW MANY OPERATIONS DO YOU WANT TO PERFORM?" + X10:X0:"X$,8:!T$ OPEN RA"Y$ DT1 RV1 "INSERT DATA DISK": 10*"[$KK(RV),"I"DR$(RV)`"^$ SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$",S,R"{"`$VORV: 8: SE: E "c$ RA,DV(RV),RA,"#":BL0:) EIXS)255: B71,(XS)256  B72,(XD XF0): 4800:SE%(WS)X5 T$"ARGUMENT CAN BE ANY ALPHA-NUM STRING"Z :X3: 2500:"ENTER ARGUMENT:"{ :X$SB$(WS):4500:SB$(WS)X$ T$"LOGICAL CONECTIONS:": X1 3: X;LO$(X): X :X4: 2500:"ENTER CONNECTION NO:" :WSRWSL%(WS (X+1,WK)=PO%(X,WK):NEXT X:RETURN ZS(TR)2:D(TR1)2:E(BR)2% _5900: ML51:7  PASS PARAMSh X(ZV2)256(ZV3)9AO: POS OF PO%(0,0) XX(MR1)2WK: POS OF PO%(0,WK) HI LO BYTE  B7,(XS)255: B71,(XS)256  B72,(XD CERTAIN RECORDS?") CXHS:X31: 4400: X0 HS0:T H WS1 MD: 2200: SL%(WS)3 WS  WSMD "SELECTION TOO COMPLEX!!": 2100  SL%(WS)3 WSWS1:X5: 2110 HSWS:X0: 2500:3: G$"Y"2100   (CONT) T$"FIELD 1:X$"":4505X$(X$,CX1)" "(X$,CX):G$" ";:: IN>(LE$,CX1)(SP$,L)(LE$,L);:: CLl""M$"";:W150:G$:G$""M$"";::W:M$"";:W150:G$:G$"":W:4565(X$,1)" "X$(X$,2):4580:(X$,1)"   SE, HS,HO: X1 HSD SE,SA%(X),SE%(X), SB$(X), SL%(X): XT: X1 HO SE,OA$(X), OB$(X), OO$(X), OC$(X): X: X1 RW: SE,FL%(X): X? SE: SAVEX1$"W": 5300: E  SE, HS;R$ HO;R$;: X1 1: 3190 ******INSTRUCT CALC% "A B C DM "F4= "DE$"F5 "DE$"+ "DE$"5.07"u "F1= "DE$" "DE$"SIN "DE$"C8 " "WHERE A IS THE LETTER 'F' PLUS ANY FIELD NUMBER "; "AND B AND D ARE EITHER REAL NUMBERS OR AKE CALCSQ CHANGE FORMAT$[ EXIT/L MAINHM LI253 IV,LI3gNLO$(3)") THEN CALCULATE."}Q 9300: E 1105S 1200: SET UPU" FILE CALCULATIONSV"LOAD FORMAT"X"CHANGE, CREATE, INSPECT FORMAT Z  1100H15,8,15,"I0":15,"S0:LOAD SEQ":"0:LOAD SEQ",8:q"CORRECTIONS?(Y/N)":G1$"YN":54,4:4:G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 "DISK ERROR:"E;E$;S;T "READY?":G1$"R %(WF)X WF 3: G$"Y" 2700 :' LOAD SEQV EF0:PC2890:X4(X$)1:2890:HQ(X$)1 HRMR "NOT ENOUGH ROOM IN RAN FILE": 10: 2885 PCX4X41:X402885" : WQ1 HQ:2890, X0:PC0A64:2866- XX1: SEQ FILE IN PRACTICALC FORMAT?":X0:X31:4400:PCX0 PC2720t "DOES SEQ FILE REQUIRE SINGLE CHAR READ?":X0:X31:4400:COX "FILE ON CASSETTE? (N=DISK)":XCA:X31:4400:CAX "RANDOM FIELDS:": WF1 HF:WF;FT$(WF): WF "HOW (F$(X)):X7 LRS287598 "RECORD TOO LARGE, SKIP IT":X0:X31:4400:X2880C9 3700w; : 2100: CA X07:B7X,MM%(X):X: ADD REC@ : EF0 2845:---E : NO ERRJ COX$"":2900: TOT TEXL :X$" ":SE,X$:EFEFSTN T 9 IF G$<>"R"THEN FOR WF=1 TO HF:F$(WF)="":NEXT WFQ> GOSUB 3700:REM KBD REC INPUTlCUKWK: WK0HK:FI$""D: D1SF%(WK,0):FI$FI$F$(SF%(WK,D))Z$: D: 3300:SRCHH: FRHR1 BRFR:TRHR: 5200: CHUNK UPM:PO%(FR,WK)HR1: :X1SF%(WK,0):FO$FO$X$(SF%(WK,X))Z$:X+ : FI$FO$ THP%:3310< :TLP%:3310x L1:X1DK:#(RA),(WR),(L):RA,X$(X):LL(X$(X))2:X~  OPEN CA SE,1,0,NS$: DT1 QVRV: 3540 :"IF RANDOM DISK IS IN DRIV ;R$RB;R$HK;R$WK;R$DK;R$DE;R$MC;R$;@  WF1 HF:SE,Q$;FT$(WF);R$;: WFl  D05: X0HK:SE,SF%(X,D);R$;: X,D "(SAVING POINTERS)" : X0HK: RR1 HR:SE,PO%(RR,X);R$;: RR:X  R3 "(SAVING BLOCK MAP)": X110: X: R3 QVRV KK(QV),"I"DR$(QV)$ SE,DV(QV),SE,DR$(QV)":"NS$",S,R"2 VOQV: 88 Ft ASK RECZxCK0: CNG FLGGnyL0: WF1 HF~: FT$(WF)":":X$F$(WF):4500:X$F$(WF)X0HK:D1SF%(X,0):CKCK(WFSF%(X,D)):D,X:LL( NECESSARY"$ y: 10: RV0 KK(0),"I0"F ~ CA 1300: TEST RECORDERg X$"FILE MENU": 9200: 1150x  REM SET UP  LI253 IV,LI3 CA0: HQ0 HQHF: X1 MD:AR%(X)X: X   RECORD OFF : ML44: (B78)  #  POSITION POINTERBL((WR1)RB.00001)1FKK(RV),"U1:"RA;DR(RV);T%(BL);S%(BL):VORV:8:EX(WR1)(BL1)RB: NO. RECS BEFOR THIS IN THIS BLOCKBP1RSX:KK(RV),"B-P:";RA;BP:0 YES?5X$("YN",1((XX3)0),1):4500  ":5: MAIN REM SET UP1  ADD RECORD@  RECOVERYJ  ASKY  LOAD SEQg  TOT TEX{ ! BINARY SEARCH # OPEN % ASK REC ) WRITE REC + POSITION POINTER , YES? 0 ASK NUMBER 4 CHUNK UP ; PASS PARAMS \ A((X$R$,X)):A92A342861. A2552885-/ A642890:2866C0 A162890:2868b1 X$(X$,X1):X$""X$" "2 : WF1 HF: AR%(WF)WQ F$(WF)X$3 WF:(A64)028904 WQ: CA X07:MM%(X)(B7X):X6 :L0:X1HF:LL2 MANY FIELDS DOES THE SEQ FILE HAVE?"/ XHQ:X11:X2MD:4800:HQXO : WF1 HF:F$(WF)"": WF_ WF1 HF : "RAN FIELD NO" WF "SHOULD BE LOADED WITH SEQ FIELD NO:" :"(ENTER 0 TO LEAVE FIELD BLANK)" :XAR%(WF):X10:X2HQ:4800:AR  TOT TEXY #SE,G$:G$R$G$(166)X$X$G$:2905+^ EFEFST:? BINARY SEARCHd TL0:THHR1: TOO LOW, TOO HIGHy THTL1FRTH: :P%(TLTH)2.1:WRPO%(P%,WK): R4 3350: 3317 : 4300: X1 DK:RA,X$(X): X:FO$""  WKUK RRFRN WK:HRHR1:WKUK1RWRHR:4100:: WRT,DISP; ASKe E0:" LOAD FROM SEQUENTIAL FILE "NAME OF SEQ FILE? (LEAVE BLANK TO RETURN TO FILE MENU)" X$NS$:4500:NS$X$: NS$"" E1: NS$"MYSELF"2765# "IS E 1 "R$"AND IF THE SEQUENTIAL FILE ";I :"IS ON A SEPARATE DISK, "R$"THEN YOU MUST NOW REMOVE THE ";k :"PROGRAM DISK FROM DRIVE 0" :"AND REPLACE IT WITH THE SEQUENTIAL DISK" :"SEQ FILE DRIVE NO?(1/0)":G1$"01": 5:QV(G$) :  WB1 HB:SE," "T%(WB)R$" "S%(WB)R$;:WBQR4#(RA):#(RA),("RA"NA$),L(RS),D(DR(RV))qX1HF:SE," "MF%(X)R$;:XSP0: SE:VORV: 8:4 ADD RECORD5HRMR "OUT OF ROOM":6"ADDING RECORD#"HR1:L0: :GOSUB4500* X$)2:F$(WF)X$: WF: LRS "REC TOO LARGE": 3705-3: G$"Y" 37053E WRITE A RECpX$"": X1 HF:X$X$Q$F$(X)R$: X R4 #(RA),(WR):(RA),X$;:" 4300:RA,X$;'KK(RV),"U2:"RA;DR(RV);T%(BL);S%(BL):VORV: 8: "PRESS STOP ON RECORDER":10: 1305, l SAVE BOOK\ q SE:UKWK:"(SCRATCHING OLD BOOKKEEPING)" v:KK(RV),"S"DR$(RV)":DB"NA$:VORV: 8: E1 | SE,DV(RV),SE,DR$(RV)":DB"NA$",S,W":VORV: 8:E  SE,MR;R$HR;R$RS;R$HB;R$HF;R$SF 7 X$"Y"X$"N""PLEASE ANSWER Y OR N":4400;:X$(X$,1):X( X( X3) (X$"Y")X3 ):`X$(LE$,(X$));:CX1: GARD INPM$(X$" ",CX,1):""M$"";:G$:G$""4565:A(G$):M$"";:(A 127)32CX77A344520: G$;:X$  LOAD PROG ] OPEN RA! L MAIN< Q 9300: 1200: SET UPX V 2700: E 1150: ASK} `: 3500: E SE: 1150: OPEN e: 2800:SP1: SE: LOAD o 1900: DT1 1150: SAVE BK t:"REPLACE THE PROGRAM DISK IN DRIVE 0 IF COVERT  MISC PAPER9 "HOW MANY SPACES DO YOU WANT TO INDENT COLUMN #1?b :X10:X280:XCP%(0): 4800:CP%(0)X "HOW MANY CHARACTERS ACROSS DOES YOUR PRINTER PRINT?" :X120:X2250:XPW: 4800:PWX "LINES PER PAGE?":X130:X2 CXCX1:A148(X$)784555:A147L(X$):4560:CX1:X$"" :4505OX$(X$,CX1)" "(X$,CX):G$" ";:: INx(LE$,CX1)(SP$,L)(LE$,L);:: CL""M$"";:W150:G$:G$""M$"";::W:M$"";:W150:G$:G$"" : X:0 YES? 5X$("YN",1((XX3)0),1):4500B7 X$"Y"X$"N""PLEASE ANSWER Y OR N":4400p:X$(X$,1):X( X( X3) (X$"Y")X3 ):X$(LE$,(X$));:CX1: GARD INPM$(X$" ",CX,1):""M$"";:G$:G$""4565:A WC):X31: 4400:FL%(WC)X : X$"N" 4640:---': "PLACES TO RIGHT OF DECIMAL POINT?"[: X10:X2CP%(WC)1:XRD%(WC): 4800:RD%(WC)X: LD%(WC)CP%(WC): RD%(WC) LD%(WC)CP%(WC)RD%(WC)1 :"TOTAL AT END?":XFL%(WC):X32: 4400:FL%(  IS THE LETTER 'C' PLUS ANY COLUMN NUMBER ";; "AND B AND D ARE EITHER REAL NUMBERS OR THE ";f "LETTER 'C' PLUS ANY COLUMN NUMBER "; "AND WHERE C IS A MATH OPERATION:" ".,+,-,*,/,^,LOG,SIN,TAN,INT,RND,R#,BAR,DATE "COLUMNS:": X,1):X1$"*"X1$","X1$":"X1$"?"4780 : X: PRINTER WIDTH": WC1 HC: CP%(0)CP%(WC)1PW 6640 :"COLUMN #" TION TOO COMPLEX!!": 21006  SL%(WS)3 WSWS1:X5: 2110\ HSWS:X0: 2500:3: G$"Y"2100b o  (CONT) T$"FIELDS:": WF1 HF: WF;FT$(WF): WF :X1: 2500:"ENTER FIELD NO:": DISP SEL :XSA%(WS):X11:X2HF: 4800:SA%( MAT INFO": 10:  6600: E 10:: WD?1YLS:X$"SUBTOTAL":6200: E _YKR:X$"COMBINED RECORDS": 6200: E  6500: GL 5600: E : RNG, LU3:G$"Y"X$"PRINT REP": 9200:8 SUB, COMB ERR?=E0: Y0  COLUMNS!]"DESCRIPTION OF COLUMNG`"SELECTION OF RECORD CRITERIAhe"CALCULATED COLUMNS INFOk XF "LOOKUP FILESl"MISCo"^ RETURN TO REPORT WRITERtG1$"HNDSC""CM^": XF G1$"HNDSC""LM^"y 5: V 4300 :X11:X2HK1:XWK1:4800:WKX1R "DEVICE NO? (4=MOST PRINTERS, 3=SCREEN, 8=DISK FILE, 1=CASSETTE)t :X11:X2255:XPD: 4800:PDX : D9 PDD9 PD8 PD8 PD1 2800: 2760: PAPER :"OUTPUT TO WORD PROCESSOR? :"(PA Y?":G1$"R":5: MAIN& SELECT4 (CONT)B HM COLSV DESCRIBE COLSk DISPLAY SELECTv MISC MISC PAPER CALC INSTRUCT CALC+ HEADER LINES, YES?- ASK$. JUST TOTS AVRS/ FILE NAME?0 OW MANY FIELDS DETERMINE IF RECORDS ARE TO BE COMBINED?"Z :"(ENTER 0 IF SIMILAR RECORDS ARE NOT TO BE COMBINED)" :X10:X2SF%(WK,0):XKR: 4800:KRX "ASCENDING ORDER?(N=DESCENDING ORDER)":XAS:X31:4400:ASX 5700:3:G$"Y"2700: $ "...";:2540 SB$(Y);) YWS X4 "...";:2550< LO$(SL%(Y));H Y::T MISC1 " CHANGE MISCELLANEOUS ITEMS "KEYS:":X0HK:""X1" "; : D1SF%(X,0):FT$(SF%(X,D))":";:D:" ":X  :"WHICH KEY?"  "X$")"# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E %# LI253 IV,LI7$ "0:"X$,8:ET$ OPEN RAtY$ DT1 RV1 "INSERT DATA DISK": 10[$KK(RV),"I"DR$(RV)^$ SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$",S,R"`$VORV: 8:  :XHC:X11:X2MD:4800:HCX:WC1:( ` DESCRIBE COLSL e "";: HC1 2300: HM COLS g "COLUMNS:": X1HC:""X""T1$(X)"/"T2$(X);:X: j "WHICH COLUMN DO YOU WANT TO DESCRIBE?" o :XWC:X11:X2HC:4800:WCX { 5500: 4600: FRO-TIT WC"+ INDENTATION IS GREATER THAN PRINTER WIDTH": WCKHM1:WC1:FC%(1)1: X210:FC%(X)HC1: X:LCP%(0)i WC1 HC:LLCP%(WC)1: LPW HMHM1:FC%(HM)WC:LCP%(0):WCWC1 : HM8 "MORE THAN 8 ROWS PER RECORD": WC WS)X3 T$"EQUALITY TYPES:": X1 9(XF0): X;EQ$(X): X` :X2: 2500:"ENTER EQUALITY TYPE NO:" :XSE%(WS):X11:X29(XF0): 4800:SE%(WS)X T$"ARGUMENT CAN BE ANY ALPHA-NUM STRING" :X3: 2500:"ENTER ARGUMENT:" :X$SB$(  DP8 B X1 Y: AR%(X)SF%(WK,X) 6215UC:X$" ERROR: COLUMN#"AR%(X)"SHOULD BE LOADED FROM FIELD#"SF%(WK,X)"?"cE: 10:E1mG X:yd RANGE"START AT RECORD NO:":XR1:X11:X2HR: 4800:R1X"END AT RECORD NO:":XR2:X1R1:X2H ,2300,2400,2100,3100, 5600,2700,9100' 110044 SELECTa9T$ " SELECT CHANGE"R$>"DO YOU WISH TO SELECT CERTAIN RECORDS?"CXHS:X31: 4400: X0 HS0:H WS1 MD: 2200: SL%(WS)3 WS  WSMD "SELEC GE MATE, WORD PRO, EASY SCRIPT)":XWP:X31: 4400:WPXX : XF "OUTPUT TO DIF FILE?":XDF:X31:4400:DFX :"NAME OF SEQ FILE?":X$NS$:4700:NS$X$ "CHARACTERS PER SELECTION CODE?":X11:X210:XHT: 4800:HTX XF0 2782 :"H ASK NUMBER7 FROM,TITLES,WIDTH/9 ASK LOOKUP>: $CONVERTI[ EXITY\ LOAD PROGdL MAINwN PD1 1105PML44: (B78)0"PRESS STOP ON CASSETTE":1104Q" CHANGE FORMAT"V"HEADER LINES["NUMBER OF  5/10/80 9:20  1100a 15,8,15,"I0":15,"S0:REPORT WRITER":"0:REPORT WRITER",8:"CORRECTIONS?(Y/N)":G1$"YN":5 4,4:4:4,(15):4:G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2  "DISK E (X$)1):4585:: ASK NUMBERBX$((X),2):4500:X(X$):X0X$"0"4812UXX1XX2"ILLEGAL ENTRY - PLEASE ENTER A NUMBER""IN THE RANGE OF"X1" TO"X2:4800 OPEN FORM"NAME OF FORMAT:":X$N2$:4500:N2$X$ (X$,CX1):CXCX1:45051 :A157CX1CXCX1:G$;:4505: LF\ :A29CX(X$)CXCX1:G$;:4505:RIr :A134580: RET :A20CX1G$;:X$(X$,CX2)(X$,CX):CXCX1 :A148(X$)784555 :A147L(X$):4560:CX1:X$""  ),"I"DR$(QV)' X1$"W" KK(QV),"S"DR$(QV)":RW"(162)N2$W SE,DV(QV),SE,DR$(QV)":RW"N2$",S,"X1$pVOQV: 8: E SEv GET LOOKUP"LOOKUP FILE DRIVE(1/0)":G1$"01": 5:QV(G$) QVRV KK(QV),"I"DR$(QV) $ AR%(X)R$;: X>  X1 HS: SE, SA%(X)R$ SE%(X)R$ SB$(X)R$ SL%(X)R$;: Xe  X1 HH: HL$(X)"" HL$(X)" " : SE,Q$ HL$(X)R$;: X  X1 HO: SE,Q$ OA$(X)R$Q$ OB$(X)R$Q$ OO$(X)R$Q$ OC$(X)R$; :X X0 10:SE, CH%(X)R$ LR%(X)R$Q$ $""~: FT$(WF)":"R$;F$(WF);UP$"":X$:KE,X$:X1(X$):(X$,X,1)Q$"DO NOT ENTER Q(`x) )X`3ȱũŪ`i榥i樰ȱũŪ`8Ʀ8 , SB$(X), SL%(X): X)  X1 HH: SE,HL$(X): X\  X1 HO: SE,OA$(X), OB$(X), OO$(X), OC$(X)e : X X0 10:SE,CH%(X), LR%(X), LT$(X):X SE,P1,SR,AC, X,X,CS,DF,AS:GLHL: GET LU? " SE:  SAVE X1$"W": 5300: E  /# LI253 IV,LI/$ "0:"X$,8:/T$ OPEN RA0Y$ DT1 RV1 "INSERT DATA DISK": 1000Z$KK(RV),"I"DR$(RV)f0^$ SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$",S,R"0`$VORV: 8: SE: E 0c$ RA,DV(RV),RA,"#":BL0:2:X PRINT REPORT(^"^ RETURN TO FILE MENUZ`G1$"LCSP^":5: V 1500,9700,1700,6100,9100t X110:G$:X:1109 SET UPR11:R2HR: N2$"" N2$NA$X0 MD: Y0 DE:CT(X,Y)0: Y,XHL0:: HL ALSO = HM LINES LOAD  SE: POKE CASE1 B72,0: AC0 B72,128: ALL CAPS IN MIX FORMTfB73,0: WP0 MC0 B73,128: WP NOT-MIXrB74,0: PDPU CP0 MC0 B73,128: B74,160: ASC MIXDN$"": PDPU CP0 MC0 DN$"""" RROR:"E;E$;S;T* "READY?":G1$"R":5:5 MAINB SET UPM LOADX SAVEe) CHANGEp, YES?0 ASK NUMBER5 OPEN FORM8 GET LOOKUP= PRINT REP> SUB, COMB ERR?A RANGEB WD OK?[ EXITa CHANGEL E1:L(N2$): L12 "FILE NAME TOO LONG":G X1 L: (N2$,1)"*" "'*' ILLEGAL":Z: X: L0 E0: DT1 RV1 9300: RA: E : DT1 QVRV: 5330:"DRIVE(1/0)?":G1$"01": 5:QV(G$): QVRV KK(QV :4505!X$(X$,CX1)" "(X$,CX):G$" ";:: INJ(LE$,CX1)(SP$,L)(LE$,L);:: CLx""M$"";:W150:G$:G$""M$"";::W:M$"";:W150:G$:G$"":W:4565(X$,1)" "X$(X$,2):4580:(X$,1)" "X$(X$, P0:LR%(0)0: WL1 HL: LR%=START OF A GROUPY: SE,DV(QV),SE,DR$(QV)":"LT$(WL)",S,R":VOQV:8: E 5699: SE,LU$(P):PP1: ST0 PLM 5620: PLM "NOT ROOM FOR LOOKUP FILE":E1:10: 5699LR%(WL)P: SE: WL:GL0C LT$(X)R$;:X< SE, P1;R$; SR;R$; AC;R$; X;R$; X;R$; CS;R$; DF;R$; AS;R$;G  SE:l X$(LE$,(X$));:CX1: GARD INP M$(X$" ",CX,1):""M$"";:G$:G$""4565 :A(G$):M$"";:(A 127)32CX77A344520 : G$;:X$(X$,CX1)G$ƨŧȱŨ`檥i榥Ŭ٥ū`-Hȱ-ȱ-h`)A[EɀEɀ) TT!~AFu Lȭȑ Q'􈈈'Н`41UP SE:)  SE, HC;R$ HS;R$ HH;R$ HO;R$ WP;R$; : 1-5Y  SE, CP%(0)R$ PW;R$ LS;R$ NS$;R$; : 6-9  SE, PD;R$ LP;R$ X$R$ PP;R$ KR;R$ HT;R$; HL;R$; WK;R$;: 10-17 X1 HC: SE, CP%(X)R$ FL%(X)R$; : SE, LD%(X)R$ RD%(X)R$ T1$(X)R$ T2$(X)R  DISPLAY REC "KEY#"WK1" ="FT$(SF)" RECORD#"RR WF1 HF :FT$(WF)":"13)F$(WF) WF20HF20"CONTIUE?":G1$"C":5" WF:<t KEY BOARD REC INPUTOxCK0: CNG FLGcyL0: WF1 HF{:UP$"":(F$(WF))C41UP X1$"R": 5300: E 1570- SE, HC,HS,HH,HO,WPJ SE,CP%(0), PW, LS, NS$ SE, PD, LP, X$, PP, KR, HT, HL, WKX1 HC: SE, CP%(X), FL%(X), LD%(X), RD%(X), T1$(X), T2$(X),AR%(X) : X  X1 HS: SE,SA%(X),SE%(X) : CBM MIX$ ORA B7+2,EOR B7+3,CMP#128,IF GE,EOR B7+4,THEN4 PRINT REP_PNP1: HR1 "FILE IS EMPTY": 10:v 5800: POKE CASE PD8 PD1 6115: L1 L15 "FILE NAME ERROR": 10: HC0 "NOT ENOUGH FOR  MAINM LI253 IV,LI3/N PD1 1105hO:ML44:(B78)0 "PRESS STOP ON CASSETTE":1103|Q 1200: SET UPU" REPORT WRITERV"LOAD FORMAT"X"CHANGE, CREATE, INSPECT FORMATZ"SAVE FORMAT" \" $,1)" "X$(X$,(X$)1):4585"::" WIPE1#:"WIPE:"R$"ONE RECORD"R$"ALL RECORDS"l#:"ENTIRE FILE"R$"RECOVER BOOK"R$"^ RETURN#:G1$"AEOR^":5:X1V:G$"^"3:G$"Y"#: X1 4620,4625,4615,4640:#"REC ;:X$(X$,CX1)G$(X$,CX1):CXCX1:4505#!:A157CX1CXCX1:G$;:4505: LFN!:A29CX(X$)CXCX1:G$;:4505:RId!:A134580: RET!:A20CX1G$;:X$(X$,CX2)(X$,CX):CXCX1!:A148(X$)784555!:A147L(X$):45 0: DISPLAY,WRITE REC+  RR:SP1:+8 UP>BOTH,=P514:59468,P5: WF1HF:F$F$(WF):L(F$)D,B: X1 L: (" "F$,X,1)" "6225r,G: A((F$"?",X,1)): A65 A90 6225,L:F$(F$,X1)(A 128)(F$,X1),QX:F$(WF)F$: WF:MC1: BL);S%(BL):VORV: 8:h READ A RECORD,m R3 4300: WF1 HF:RA,F$(WF): WF:hrL1:X1HF:#(RA),(WR),(L):RA,F$(X):LL(F$(X))2:Xnw POSITION POINTERBL((WR1)RB.00001)1KK(RV),"U1:"RA;DR(RV);T%(BL);S%(BL):VORMR1)2WK: POS OF PO%(0,WK) HI LO BYTE*  B7,(XS)255: B71,(XS)256.*% B72,(XD)255: B73,(XD)256T** B74,(XE)255: B75,(XE)256Z*/i* USER SUB*"USER ROUTINE"*"ARE YOU SURE?(Y/N)":G1$"YN":5:G$"N" *F%(X2,D)):D,X2:LL(X$)2:F$(WF)X$/ WF: LRS "REC TOO LARGE":FC0: 3710N CR0 3: G$"Y" 3710Ta BROWSEmHR1RRHRRR1RR11300:"# OF FIELD TO VIEW:":X10:X2HF:XBF: 4900:BFX"";:RRRRHR:(B75):' SNAP(" PR: PR,PU:PDPU:WP0:AC0:5800:3500('DN$"": PR: PR,3:PD3:/( POKE CASEi( B72,0: AC0 B72,128: ALL CAPS IN MIX FORMT(B73,0: WP0 MC0 B73,128: WP NOT-MIX(B74,0(: PDPU CP0":":PD3X$""X$"" :(X$)15MT2X$(X$SP$,15)> :X1$R$:(FT$(WF),1)""X1$" "{ :LL$(SP$(WF),2)" "X$F$(WF)X1$LF$:PD3ML153 :PR,DN$LL$;: WF20 HF20 10 WF:X$" "R$LF$:PR,X$;:tCK0: ASK REC FOR X=BR TO TR:PO%(X-1,WK)=PO%(X,WK):NEXT X:RETURN&BRTR&&SBR2:D(BR1)2:E(TR)27&5900: ML:F&P CHUNK UP&U FOR X=TR TO BR STEP-1:PO%(X+1,WK)=PO%(X,WK):NEXT X:RETURN&ZS(TR)2:D(TR1)2:E(BR)2&_5900: ML6:& DISK": 10-#KK(0),"I0":"(LOADING "X$")".# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E ,.# LI253 IV,LI>.$ "0:"X$,8:L.T$ OPEN RA{.Y$ DT1 RV1 "INSERT DATA DISK": 10.[$KK(RV),"I"DR$(RV): ENTRY POINT FROM 4600!!!.^$ORD #?":X0:X10:X2HR: 4900:RRX: 2700:$ HR0:SP1:&$KK(RV),"S"DR$(RV)":DB?"NA$`$: RA: X1 HB:KK(RV),"B-F";DR(RV);T%(X);S%(X): X$:X$"FILE MENU": 9200: 4635$ "REPLACE GOOD DATA DISK WITH BAD ONE": RA: 10: 9307$":W60:CX1:X$""!:4505"X$(X$,CX1)" "(X$,CX):G$" ";:: IN<"(LE$,CX1)(SP$,L)(LE$,L);:: CLj"""M$"";:W150:G$:G$""M$"";:":W:M$"";:W150:G$:G$""":W:4565"(X$,1)" "X$(X$,2):4580":(X , ALL CAPS,P512:59468,P5: WF1HF:F$F$(WF):L(F$)-: X1 L::-: A((F$"?",X,1)): A65128 A90128 6325`-:F$(F$,X1)(A 127)(F$,X1)x-X:F$(WF)F$: WF:-# LOAD PROG-# RA: DT1 RV1 "INSERT PROGRAMV:8:E X(WR1)(BL1)RB: NO. RECS BEFOR THIS IN THIS BLOCK9 BP1RSX:KK(RV),"B-P:";RA;BP:^ X$(LE$,(X$));:CX1: GARD INP M$(X$" ",CX,1):""M$"";:G$:G$""4565 :A(G$):M$"";:(A 127)32CX77A344520 : G$ RR1 HR: SORTED ORDER*:WRPO%(RR,WK): PHYS POS OF REC+: 4200: READ REC/+: F$(2)=STR$(VAL(F$(2))+5)Y+: GOSUB 6200:REM UPPER CASE TO MIXED+: L0: X1 HF:LL(F$(X))2: X+: LRS "REC TOO LONG": 3700+: 3500: 410WRPO%(RR,WK):4200:RR"";&:D1SF%(WK,0):F$(SF%(WK,D))":";:D:" "F$(BF):G$:G$"" RR@R WRITE A REC}X$"": X1 HF:X$X$Q$F$(X)R$: X R4 #(RA),(WR):(RA),X$;:" 4300:RA,X$;'KK(RV),"U2:"RA;DR(RV);T%( MC0 B73,128: B74,160: ASC MIX)DN$"": PDPU CP0 MC0 DN$"": CBM MIX%)Y) ORA B7+2,EOR B7+3,CMP#128,IF GE,EOR B7+4,THENk)  PASS PARAMS)PO%(0,0)525610)X(ZV2)256(ZV3)9AO: POS OF PO%(0,0))XX(~L0: WF1 HF:X$F$(WF): CR FC WFFC 37452: FT$(WF)":":4500S: X(X$)MF%(WF):X1 3730: (7)"FIELD TOO LONG BY"X" CHARACTERS":F$(WF)X$:3720: X$F$(WF)3745: X20HK:D1SF%(X2,0):CKCK (WFS FIND POINTER ': FOR FR=1 TO HR:IF PO%(FR,WK)<>FI THEN NEXT FR': :RETURN-'S12:5900Y' B72,FI256: B73,FI 255: HI LO !w' B74,1: B75,0: LO HI' B76,HR256: B77,HR 255: HI LO !' ML104:FR(B74)256  SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$",S,R"/`$VORV: 8: SE: E 9305/c$ RA,DV(RV),RA,"#":BL0:AD PROG^/#RA:DT1RV1900:"INSERT PROGRAM DISK":10/#KK(0),"I0":"(LOADING "X$")"/# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: ERHR1: 4200: F$(1)(255) 1600:$%:2125: 4642%$ ASK NUMBER@%.X$((X),2):4500:X(X$):X0X$"0"4912S%/XX1XX2%0"ILLEGAL ENTRY - PLEASE ENTER A NUMBER"%3"IN THE RANGE OF"X1" TO"X2:4900% CHUNK DOWN%:   DATA BASE 46 12/18% 1100X 15,8,15,"I0":15,"S0:DIRECT":"0:DIRECT",8:"CORRECTIONS?(Y/N)":G1$"YN": 5:4,4:4:G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 "DISK ERROR:"E;E$;S;T  WK0HK:FIUR:5300:BRFR1:TRHR:HRHR17:BRTR5100: DEL PTRu:FI$"": D1SF%(WK,0):FI$FI$F$(SF%(WK,D))Z$:D:3300:BRFR:TRHR:BRTR 5200: INSRT FOR NEW PNT:HRHR1:PO%(FR,WK)UR: NEW PTRWK:WRUR: 4100: NE :4100: E : ASK,WRITE=MSP1:UKWK: WK0HK:FI$"": ENTRY FOR 4600!!!!~R: D1 SF%(WK,0):FI$FI$F$(SF%(WK,D))Z$: D: 3300:SRCHW: FRHR1 BRFR:TRHR: 5200: CHUNK UP\:PO%(FR,WK)HR1:WKUK RRFRa WK:HRHR1:WKUKf %(WK,0):FT$(SF%(WK,X))"?" :X$"":4500D :FI$FI$X$Z$:: X: 3300:RRFR: BIN SEARCHW RRHR RRHRh RR1 RR1$ WRPO%(RR,WK): 4200: 3500: READ, DISPLAY)  "": G$"R" WF1 HF:F$(WF)"": WF: ADD 3700:2100:R$; WF1 HF:SE,Q$;FT$(WF);R$;: WFI D05: X0HK:SE,SF%(X,D);R$;: X,Db"(SAVING POINTERS)": X0HK: RR1 HR:SE,PO%(RR,X);R$;: RR:X R3 "(SAVING BLOCK MAP)": X110: X: R3 WB1 HB:SE," "T%(WB)R$" "S: 5100: DEL POINTER< : FIHR: 5300:PO%(FR,WK)UR: POINTER TO TOP NOW POINTS TO HOLEZ WK:WKUK:HRHR1:SP1:k KEY CHANGE "KEYS:":X0HK:""X1" "; : D1SF%(X,0):FT$(SF%(X,D))":";:D:" ":X "WHICH KEY DO YOU WANT T0,23005 o V 8 V8 3800,2800,6100,4600,2900,5400,1600@ t 1115R  SHOW FIELDS "FIELDS:": WF1HF:WF":"FT$(WF)" ";:WF:: @ EXIT APDPU: SP 1900 J PR:X$"FILE MENU": 9200: 1601  LOWERP51214P5:59468,$""~: FT$(WF)":"R$;F$(WF);UP$"":X$:KE,X$:X1(X$):(X$,X,1)Q$"DO NOT ENTER Q (`x) )X`3ȱũŪ`i榥i樰ȱũŪ`8Ʀ8PEN RA  L MAIN* M LI253 IV,LI3M Q 9300: PR: PR,3:PD3:DN$""y VRR0:" DIRECT FILE MAINTENANCE X"MAXIMUM RECORDS:"MR;R$"MAXIMUM CHARACTERS/RECORD:"RS Y"CURRENT NO OF RECORDS:"HR [X$"": FF X$",USER"5 ] BINARY SEARCH TL0:THHR1: TOO LOW, TOO HIGH) THTL1FRTH:a :P%(TLTH)2.1:WRPO%(P%,WK): R4 3350: 3317 : 4300: X1 DK:RA,X$(X): X:FO$"" :X1SF%(WK,0):FO$FO$X$(SF%(WK,X))Z$:X : FI$FO$ THP%:3310"READY?":G1$"R":5:" MAIN4 SHOW FIELDS?  EXITK  LOWER[  SAVE BOOKl  ADD RECORD  CHANGE RECORD  NEXT,PREV,GOTO,FIND ADD  DELE REC  KEY CHANGE  LIMIT ! BINARY SEARCH # DISPLAY REC % AW RECWKUK:FIWR:5300:RRFR:3500:+ NEXT,PREV,GOTO,FINDH HR0 "EMPTY FILE":^ G$"N" RRRR1t G$"P" RRRR1 G$"G" "GOTO RECORD#":X0:X11:X2HR: 4900:RRX G$"F" 2332 :"FIND RECORD":FI$"": X1 SF: WRT,DISP  CHANGE RECORD7"CHANGE RECORD#"RR:RR1 RRHR OWRPO%(RR,WK):1300"WHICH FIELD? (ENTER 0 FOR ALL)":X10:X2HF:XFC:4900:FCXCR1: 3700:CR0: CK0 4100: 3500:: ASKSP1:URWR:UKWK:EMBER WR,WK3500: DELE REC RR1 RRHR L "DELETE REC #"RR"?(Y/N)":G1$"YN":5: G$"N"  UKWK:URPO%(RR,WK):EMBER KEY,PHYS POS OF REC WRHR:WRUR4200:WRUR:4100: E :TOP>HOLE WK0HK : FIUR: 5300:BRFR1:TRHR%(WB)R$;:WB.R4#(RA):#(RA),("RA"NA$),L(RS),D(DR(RV))OX1HF:SE," "MF%(X);R$;:XiSP0: SE:VORV: 8:z4 ADD RECORD9 DD "DEALER DEMO CANT ADD":>E0:HRMR "OUT OF ROOM":C"(ADDING RECORD#"HR1")"HWRHR1 O USE?"  X11:X2HK1:XWK1:4900:WKX1 T LIMIT]Y 1300:"WHICH FIELD DO YOU WANT TO LIMIT?"R$"(0 FOR NONE)^ X0:X10:X2HF: 4900:WFX: WF0 c "MAX NO CHARACTERS ALLOWED?":XMF%(WF):X11:X279: 4900h MF%(WF)X:"";:P5:"";:SP1:l SAVE BOOKCq SE:UKWK:"(SCRATCHING OLD BOOKKEEPING)"qv:KK(RV),"S"DR$(RV)":DB"NA$:VORV: 8| SE,DV(RV),SE,DR$(RV)":DB"NA$",S,W":VORV: 8:E SE,MR;R$HR;R$RS;R$HB;R$HF;R$SF;R$RB;R$HK;R$WK;R$DK;R$DE;R$MC;ƨŧȱŨ`檥i榥Ŭ٥ū`-Hȱ-ȱ-h`)A[EɀEɀ) TT!~AFu Lȭȑ Q'􈈈'Н`41UP"ADD,REPL,CHANGE,DEL,NEXT,PREV,GOTO,FIND,";n `"BROWSE,KEY"X$",WIPE,LIMIT,SNAP,^RETURN eG1$"ARCDNPGF""BKKWLS^": FF G1$"ARCDNPGF""BKUWLS^" g: 5:""; j V 2500,2500,2200,2700,2300,2300,230 :TLP%:3310( L1:X1DK:#(RA),(WR),(L):RA,X$(X):LL(X$(X))2:X. @ DISPLAY RECs RRHR RR1 "RECORD#"RR"DOES NOT EXIST": X$"KEY#"(WK1)" RECORD#"(RR): PD3 ""; PR,DN$X$R$LF$; WF1 HF:X$FT$(WF)SK REC & BROWSE! ) WRITE A REC5 * READ A RECORDL + POSITION POINTER[ - GARD INPf . WIPEw 1 ASK NUMBER 3 CHUNK DOWN 4 CHUNK UP 5 FIND POINTER 6 SNAP : POKE CASE ; PASS PARAMS = USER SUB > UP+LO ] O ,SE,"0:ML"((MT),2)",S,R"%" VO=0:GOSUB8:IF E THENSTOP(%%X ML44 (ZV)256(ZV1)1W%*:#SE,X$: X,(X$Z$): X: SE:ML55,MT:e% SETUP 1%LL$"":MD20: MAXIMUM DIMENTION OF ARRAYS%IV144:B7183:ZV42:MT1:X(50003): PET/C 040,2040)#"4 LARGER DRIVE (8050,8250,HARD DISK))#XDT:X11:X24: 4900:DTX:ML49,DT/#>#D CUST CLRN#I MT3 c#N"CHANGE COLOR:u#S" BORDER#X" SCREEN#]" CURSOR#b"READY#gG1$"BSCR":5#l G$"B"  DISK": DT2 8110-X$"1541 BACKUP":1401."PLACE THE ORIGINAL DISK IN DRIVE 1:."PLACE A BLANK OR OLD DISK IN DRIVE 0V.E0: 3: G$"Y" E1:z.KK(0),"I1":VO0: 8: E 8140.KK(0),"D0=1":VO0: 8."REPLACE PROGRAM DISK 4) "(ENTER 3 IF YOU HAVE NO PRINTER)&!X(ML54):X13:X215: 4900:PUX:ML54,X,!L!| PU3 FF0 5525: CUST2p!~:"DO YOU HAVE A CBM PRINTER?"!:"(OR AN INTERFACE WHICH SIMULATES A CBM PRINTER?)!:XCP:X31: 4400:CPX: ML48DV(1)D9:KK(1)14:DR(1)0:DR$(1)"0""",- DT1 DR(1)0:DR$(1)"0""":,2CP(ML48):DD(ML45):LF$"": (ML47)LF$(10)V,7PU(ML54):PV(ML57)o,<C440: MT2 C422,A MT1 32768,96: (327681024)96 C480: H M COLS,F MTS0:"MM$:"0:"MM$,8X$MM$: 9200: 5265  CUST1J PRINT"IS THIS PROGRAM TO BE USED AS A DEALER DEMO?"v X=DD:X3=1:GOSUB 4400:POKE ML-45,XFF"ENABLE STOP KEY?":X(ML56):X31:4400:ML56,X MT1 5340:"HOW X$: X$"#" 7530: "#"*oX110: X$:EQ$(X)X$"":X:R11:R2HRC*t EQUALS,LESS-THAN,GREATER-THAN,PRECEDES,FOLLOWS,NOT-EQUAL-TO*y PATTERN-MATCHES,SHARES-CODE-WITH,GREATER-THAN-FIELD#,CONTAINS*~ LO$(3): X1 3: X$:LO$(X)X$"":X* ILE": FF X$"FLEX FILE"#W" CUSTOMIZE "X$" FOR DISK FOR YOUR EQUIPMENT;Z (ML53)0 5225b_"DO YOU WANT TO CUSTOMIZE "X$" ?dX0:X31: 4400:X0 5265i5300: 5500:5700n 3: G$"Y" 5200sML53,1: 5900: CONVERT MLR$""(20)(Z$(0):SP$"": X1 10:SP$SP$" ": XP(LP66:PD4:LE$"":LE$LE$LE$u(KE1: KE: KE,0:SE10:RA2:PR4( 15: 15,8,15:15,"I0"((L SETUP ARRAYS(Q: XF LM100 /# LI253 IV,LI/$ "0:"X$,8:/T$ OPEN RA0Y$ DT1 RV1 "INSERT DATA DISK": 1000Z$KK(RV),"I"DR$(RV)f0^$ SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$",S,R"0`$VORV: 8: SE: E 0c$ RA,DV(RV),RA,"#":BL0:2:X BM%: X1X160 IV788:B7165:ZV45:MT3:C64/VIC&: X194 MT2: VICE&: XF=1:REMOVE 'REM' FOR EXTRA FEATURES&ML(ZV)256(ZV1)342:R3((50003)1):R41R3: 3.0 ROM?&R31:R40: FOR LARGE 8050 FILES OR 4.0-PET+1.0-DISK OR ML50,((ML50)1)15$q G$"S" ML51,((ML51)1)157$v G$"C" ML52,((ML52)1)15: 7900:5700G${ G$"R" Y$ 7900: 5735j$  CONVERT ML$ MT(ML55) $"CONVERTING TO "("CBMVICC64",MT32,3)" VERSION"$  SE,DV(0) ":10:KK(0),"I0":.# EXIT.#KK(0):KK(1).# RA: LI253 IV,LI/# MT1 (9);/#)/# LOAD PROG^/#RA:DT1RV1900:"INSERT PROGRAM DISK":10/#KK(0),"I0":"(LOADING "X$")"/# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E,X: X ML47,0:5525":"DOES YOUR PRINTER REQUIRE LINE FEED?"8":X(ML47):X31: 4400: ML47,XL""DO YOU HAVE:s""1 ONE SINGLE DRIVE (2031,1541)""2 TWO SINGLE DRIVES (2ND DRIVE=DEVICE9)""3 ONE SMALL DUAL DRIVE (4040,31 X(ML46): X C4X,w, SETUP COLOR, MT1 MT2 - 646,(ML52): MT3 7925?-: 36879,((ML51)15) 240a-: 36879,((ML50) 7) 248:y- 53281,(ML51)15- 53280,(ML50)15:- BACKUP- " BACKUP MANY CHARACTERS WIDE IS YOUR SCREEN?";- : FF "(C64=40, VIC=22 UNLESS MODIFIED)":5335U : "(C64=40, UNLESS MODIFIED TO 80) :XC4:X122:X280: 4900:C4X: ML46,C4 "WHAT IS YOUR PRINTER'S DEVICE NO?" "(MOST PRINTERS ARE DEVICE #" AND ",) OR (,") THEN PRINT."** SETUP OPTIONS!+FF(ML57):DT(ML49):D90: DT2 D99O+MM$"MAIN MENU""": FF MM$"DISK MENU"j+ D9 14: 14,D9,15+# X0 1:DV(X)8:KK(X)15:DR(X)X:DR$(X)("01",X1,1): X+( DT2 u DT3 5250x:"DO YOU WISH TO BACKUP THE PROGRAM DISK FIRST?"I}:X1:X31: 4400: X 8100: E 5240"IF YOUR PROGRAM DISK HAS A WRITE PROTECT TAB ";"REMOVE THE TAB AND PLACE THE DISK IN DRIVE 0":10KK(0),"I0":KK(0),": LU$(LM))V: AR%(MD),CP%(MD1),F$(MD),HL$(MD),LD%(MD),OA$(MD),OB$(MD),OO$(MD)W)[: OC$(MD),RD%(MD),SA%(MD),SE%(MD),SB$(MD),SL%(MD),T1$(MD),T2$(MD))`: FL%(MD),FT$(MD),CC$(MD),UC$(MD),CT(MD,5),MM%(MD),X$(MD))e: DV(1),KK(1),DR(1),DR$(1))j DISPLAY REC "KEY#"WK1" ="FT$(SF)" RECORD#"RR WF1 HF :FT$(WF)":"13)F$(WF) WF20HF20"CONTIUE?":G1$"C":5" WF:<t KEY BOARD REC INPUTOxCK0: CNG FLGcyL0: WF1 HF{:UP$"":(F$(WF))C41UP SPEED&LI(IV): (ML56) LI300' LI253 IV,LI3A'HT3:AS1:SH1:AL1: CHR/TYP,BOTH UP-LO,ASCED,SHORT,ALPHAY' MT1 59468,12' MT1 7900:(142);(8);: UPER,DISABLE NEW COLOR'' SETUP 2'R$(13):Q$(34):D$  1100: 7/26/83O 15,8,15,"I0":15,"S0:DISK MENU":"0:DISK MENU",8:|"CORRECTIONS?(Y/N)":G1$"YN": 5:4,4:4:G$:V1(G1$):G$(G1$,V,1)V:5 15,8,15,"I0":15,"S0:MAIN MENU":"0:MAIN MENU",8: KK(VO ILE?  FF "(LEAVE BLANK TO RETURN TO DISK MENU)X FF0 "(PRESS TO RETURN TO MAIN MENU)"q:X$NA$:4500:NA$X$: (" "NA$,1)"*" "DO NOT USE '*'": 1710: NA$""  3100: DT1 1732:"DRIVE NO(1/0)": T FILE": 9200: 1172) G$"O" 1700: 1172: RA OPEND G$"B" 8100:1172p G$"R" X$"PRACTICALC": 1400: 1172 G$"V" X$"VIEW SEQ": 9200: 1172 G$"^" 9100: 1172 1112x"INSERT NEW PROGRAM DISK & ENTER N ",S,R" 1800: SE: RA INPUT(X$"FILE MENU": 9200: 17708 LOAD BOOKd SE,MR,HR,RS,HB,HF,SF,RB,HK,WK,DK,DE,MCAO(ZV4)256(ZV5)( (ZV2)256(ZV3) ) PO%(MR,HK),SF%(HK,5),MF%(HF): DIM PO% FIRST! WF1 HF:SE,FT$(900: X13000:X:%L DISK-MAIN MENUIN IF PD=0 THEN OPEN FOR // PORTvP:7100:7300:7500:7700:7900: SETUPST (ML53)0 5200:: CUSTOMIZEXX$"PRACTIFILE": FFX$"FLEX FILE"Y" "X$" (C) 1983 MICHAEL RILEY\SE,MF%(WF): WF: 18620: WF1 HF:MF%(WF)79: WF1F MC1 MC(MC14)NI MT1 59468,122MCpN MT1 (142128MC);(8);{kRR0: DONG+PRT! DD & MT3 53265,11: X1 10: X+ ML440 MT3 53265,243):OPEN1,8,15,"Q$"I0"Q$":DLOAD"Q$"DIS*K "POKE42, :POKE43, :CLR:RUN2":u X"WRITE ML FOR 1,2,3?":G1$"123": 5 ]X$"ML"G$:1,8,15,"I0":1,"S0:"X$ b2,8,2,X$",S,W" gZV42:K(50003): K1 K160 ZV45lSV(ZV)256(Z((XX3)0),1):4500)7 X$"Y"X$"N""PLEASE ANSWER Y OR N":4400W:X$(X$,1):X( X( X3) (X$"Y")X3 ):|X$(LE$,(X$));:CX1: GARD INPM$(X$" ",CX,1):""M$"";:G$:G$""4565:A(G$):M$"";:(A 127)32CX77A3)256(ZV1)3425 ML40,234: G$"P" ML40,96: N,Fe ML45, 0:ML46, 0:ML47, 0: DD,C4,LF ML48, 0:ML49, 1:ML50, 1: CP,DT,CL-B ML51, 1:ML52, 15:ML53, 0: CL-S,CL-C,EV-CUST ML54, 4:ML55, 3:ML56, 0: 147L(X$):4560:CX1:X$"":45051X$(X$,CX1)" "(X$,CX):G$" ";:: INZ(LE$,CX1)(SP$,L)(LE$,L);:: CL""M$"";:W150:G$:G$""M$"";::W:M$"";:W150:G$:G$"":W:4565(X$,1)" "X$(X$,2)),E,E$,S,T:E2* "DISK ERROR:"E;E$;S;TH "READY?":G1$"R":5:S MAINc  PROG LOADq  RA OPEN  LOAD BOOK  DISK MENU  DONG+PRT , YES? 1 ASK NUMBER 4 CUST 5 CUST1 7 CUST2 9 CUST CLR ; CONVERTG1$"01": 5:RV(G$): 1740$ FF0 RV1: 1740: ELSEU: "IS DATA FILE ON SAME DISK AS PROGRAMS?"~: X0:X31: 4400:RV0: X0 RV1 9300: OPEN RA E X$MM$: 9200:E1: 1745 SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$AME ":4500y LI253 IV,LI2zG$"": X$"PRACTICALC"G$",1"c}"LOAD"(34)"0:"X$(34)",8"G$"RUN"; MT1 158,2:623,13:624,13:198,2:631,13:632,13: RA OPEN" OPEN AN OLD FILE""NAME OF FWF): WF D05: X0 HK:SE,SF%(X,D): X,D1"(LOADING POINTERS)"c:UK0HK: RR1 HR:SE,PO%(RR,UK): RR:UKu! R30 1850&"(LOADING BLOCK MAP)": T%(HB),S%(HB)': WB1 HB:SE,T%(WB),S%(WB): WB+ ST0 WF1 HF: 10)""MM$*`"CUSTOMIZE "X$R$"START A NEW FILEDd"OPEN AN OLD FILEYh"BACKUP DISKvl"RUN ANOTHER PROGRAMp"VIEW SEQUENTIAL FILE"R$"^ EXIT "X$tG1$"CSOBRV^": 5x G$"C" 5200: 1172| G$"S" X$"STAR75 (B78)31307 "PRESS STOP ON CASSETTE"H8 "OR TURN OFF COMPUTER AND INSERT DONGLE": 3100`: RETURN IF // PORT? "(TESTING PRINTER)":LI253IV,LID PR: PR,PU:PR,Z$;: PR: LI253 IV,LI3I 0 YES?5X$("YN",1V1):MLSV342(q XML 44 SV1:2,((X));: X6v 2: 1:\"CONVERT TO 1,2,3?":G1$"123":5sKK(VO)15:15,8,15DV(0)8: ZV42:K(50003): K1 K160 ZV45ML(ZV)256(ZV1)342: ML55,100SE2:Z$(0):MT(G$):5 44520: G$;:X$(X$,CX1)G$(X$,CX1):CXCX1:4505A:A157CX1CXCX1:G$;:4505: LFl:A29CX(X$)CXCX1:G$;:4505:RI:A134580: RET:A20CX1G$;:X$(X$,CX2)(X$,CX):CXCX1:A148(X$)784555:APU,MT,ENABL-STOP$  ML57,(G$"F"): FF?]  15,8,15,"I0":15,"S0:DISK MENU":15,"S0:MAIN MENU"~  G$"F" "0:DISK MENU",8: "0:MAIN MENU",8: Q$(34):"]D599" "OPEN1,8,15,"Q$"I0"Q$":DLOAD"Q$"DIS* "PRINT PEEK(42),PEEK(:4580:(X$,1)" "X$(X$,(X$)1):4585::!$ ASK NUMBERR.X$((X),2):4500:X(X$):X0X$"0"4912e/XX1XX20"ILLEGAL ENTRY - PLEASE ENTER A NUMBER"3"IN THE RANGE OF"X1" TO"X2:4900P CUSTUX$"PRACTIF ML G SETUP 1 I SETUP 2. K SETUP ARRAYSB M SETUP OPTIONST O SETUP COLORa Q BACKUPl [ EXIT| \ LOAD PROG "CREATE UN-CUSTOMIZED DISK: "[F]LEX FILE? G1$"PF":5 ZV42:K(50003): K1 K160 ZV45 ML(ZVA lB  CBM 1541 BACKUP 642AMAIN MENU,FILE MENU START FILEDIRECT,MAIL LABELS( REPORT WRITERPRINT REP' CHANGE FORM#KKCREATE SEQ LOAD SEQALPHA ORDER CALC FILEMAKE CALCSBACKUP FFUPDATE DBHIKK  DBINVVIEW SEQ WPBATCH ENTRYDBMAILDO UPDATEMAILINVKK RWMAILRWINVBATCHML1ML2ML3TEST 1541 BACKUPKKMLTESTPRACTIFILE.PALPRACTIFILEKKKKK 3LL$"": FLEX FILE 2.0 (C) 1982 MICHAEL RILEY> 1100w 15,8,15,"I0":15,"S0:FILE MENU":"0:FILE MENU",8:"CORRECTIONS?(Y/N)":G1$"YN": 5:4,4:4:G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 I253IV,LI3 ` 1500: DISPD eG1$"^DMRCLAFBV": XF G1$G1$"U"L j 5 k V 1135,1140,1145,1150,1155,1160,1165,1170,1175,1180,1190 l 1105 o 9100:: EXIT tX$"DIRECT": 9200: yX$"MAIL LABELS": 9200: ~X$"REPORT WRITER" ":5:VO(G$)$ DT1"INSERT DISK":10; KK(VO),"I"DR$(VO)c SE,DV(VO),0,"$"DR$(VO):8:E1455s #SE,X$,X1$ #SE,X$,X1$:G$:X$""10:1455 :G$"""CONTINUE,^RETURN":G1$"C^":5:G$"^"1455 :#SE,X$,X1$:(X$Z$)256 IRECT FILE MAINT"BATCH ENTRY/"MAIL LABELSG"REPORT WRITER"`"CREATE SEQ FILE| "LOAD FROM SEQ FILE MT2 "ALPHABETICAL REORDERING": 1555:"ALPHA REORDERING"FILE CALCULATIONS XF ""ARE YOU SURE(Y/N)?":G1$"YN": 5: G$"N" 6#X$MM$: 9200:F# LOAD PROGi#KK(0),"I0":"(LOADING "X$")"# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E # LI253 IV,LI$ "0:"X$,8:O#$:$"ILE CALCULATIONS XF "  1100G 15,8,15,"I0":15,"S0:START FILE":"0:START FILE",8:t"CORRECTIONS?(Y/N)":G1$"YN": 5:4,4:4:G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 "DISK ERROR:"E;E$;S;T "READY?":G1$ 59468,12[ MA1 (142);)` 1200:e 1500: ASKLj 1700: ALOCeoDE1:DK1: X0 HKt: SF%(X,0)DE DESF%(X,0): MAX DEPTHy: D1 SF%(X,0): SF%(X,D)DK DKSF%(X,D): HI KY FLD #~ D,X 1900: SE: RA: SAVE B5: NA$"" X$MM$: 9200: 1530K: (NA$,1)"*""* ILLEGAL":10: 1515k 8100: E 1500: SAME AS"ENTRIES IN UPPER CASE ONLY?" :X MC:X31: 4400:MC X : MT1 59468,122MC : MT1 (142128MC)+ "WHAT .0001):HB(MRRB.00001)19 J RA,DV(RV),RA,"#":VORV: 8: E _ OA$"": X1HF:A$A$(255)R$:X T X1 RB:KK(RV),"B-P:"RA,1(X1)RS:RA,A$;:X YX(HB12)10:"(ALLOCATING BLOCKS)"R$"(PLEASE WAIT"X"MINUTES) [ S%(HB),T%(HB) ^ ROOM ON DISK":X$MM$: 9200 : 16350 :S%(WB)S:T%(WB)TP :KK(RV),"U2:"RA;DR(RV);T;S[  WB:j  ALLOCATE E0:RR$"":X1127:RR$RR$"?"(13):X "INSERT DISK FOR RANDOM FILE :DT1"DRIVE NO(1/0)":G1$"01": 5:RV "DISK ERROR:"E;E$;S;T6 "READY?":G1$"R":5:F FILE MENUY START ARRAYSj  TRANS DISPx  RA OPEN  SAVE BOOK , YES? 1ASK NUMBER Q VIEW DIR [ EXIT \ LOAD PROG X13000:X:  L FILE MENU QL: 9200: X$"CREATE SEQ": 9200:; X$"LOAD SEQ": 9200:Y X$"ALPHA ORDER": 9200:u X$"CALC FILE": 9200: X$"BATCH ENTRY": 9200: 1400: 1100 X$"UPDATE": 9200: x VIEW DIR }"";:DT1"DRIVE?(1/0)":G1$"10(X1$Z$);& : X1999:#SE,X$:X$""X$;:2 :1430=  SE:N  TRANS DISPf "FILE MENU  (0)1000 "WARNING: ONLY"(0)" BYTES FREE IN RAM "VIEW DIRECTORY MT2"DIRECT FILE MAINTENANCE":1525:"DUPDATE& MT2 "^ RETURN TO "MM$: 1570>:"^ RTN TO "MM$D"v.X$((X$),2):4500:X(X$):X0X$"0"4912/XX1XX20"ILLEGAL ENTRY - PLEASE ENTER A NUMBER"3"IN THE RANGE OF"X1" TO"X2:4900# EXIT"#(G$) : DT1 10:RV0D : SE,8,SE,"0:"MM$",P,R":VO0:KK(VO),E,E$,S,T: SE : FF0 E0 "PROGRAM DISK IS IN DATA DRIVE":1710 N2$""1760 : FF "(HEADING THE DISK)":1750 : "(FORMATTING THE DISK):KK(RV),"N"DR"R":5 MAIN SET UP' ASK6 ALOCATE2E ALLOCATEU SAVE BOOKd REC SIZEo HEAD|! FIELDS# KEYS% FILE SIZE, YES?1 ASK NUMBERQ SAME AS[ EXITL MAINQ LI253 IV,LI3V MA1 OOKX$MM$: 9200: 1160: EXIT* SET UP: SF%(10,5)@J ASKq" START NEW FILE""NAME OF NEW FILE?"R$"(LEAVE BLANK TO RETURN TO "MM$")":X$NA$:4500:NA$X$: (NA$)12 "NAME TOO LONG":10: 151IS THE MAXIMUM NO. OF RECORDS THE FILE WILL CONTAIN?"O :XMR:X11:X210000: 4800:MRXd 3100: REC SIZEw 3300: FIELDS "3500: KEYS '3700:3:G$"Y"1500: FILE SIZE )3200:3:G$"Y"1577: HEAD 6 @ ALOCATE2 ERB(255RS S0:T1: WB1 HB: WHICH BLOCK) c: T18 T19:S0H h: T38 T39 T40:S0` m: T76 T78:S0 r: KK(RV),"B-A:"DR(RV),T,S w: KK(RV),E,E$,X,X1 |: E0 1680 : TX:SX1: E65 9:X$MM$: 9200 : T0 "NOT ENOUGH F " ABOUT 300 IF FILE SHARES DISK WITH PROGRAMS"GX%(HB2MR(HK1))2: T+S FOR BLOCKS,PO'S FOR EACH KEYv"ESTIMATED AMOUNT OF RAM USED IS"X%"BYTES"(RECOMMENDED MAXIMUM RAM IS"(0)3500"BYTES)"0 YES?5X$("YN",1((XX3) $(X$,CX1)G$(X$,CX1):CXCX1:4505$:A157CX1CXCX1:G$;:4505: LFO:A29CX(X$)CXCX1:G$;:4505:RIe:A134580: RET:A20CX1G$;:X$(X$,CX2)(X$,CX):CXCX1:A148(X$)784555:A147L(X$):4560: )" "X$(X$,(X$)1):4585:: ASK NUMBER5X$((X),2):4500:X(X$):X0X$"0"4812HXX1XX2v"ILLEGAL ENTRY - PLEASE ENTER A NUMBER""IN THE RANGE OF"X1" TO"X2:4800 SAME AS"IF THIS FILE IS TO BE SI SE,DV(QV),SE,DR$(QV)":DB"X$",S,R" VOQV: 8: E 81606:SE,MR,X ,RS,HB,HF,SF,RB,HK,WK,DK,DE,P5X: WF1 HF:SE,FT$(WF): WF: D05: X0 HK:SE,SF%(X,D): X,D SE:# LOAD PROG#"INSERT PROGRAM DISK IN DRIVE 0":$(RV)":"N2$","((ID),2)):VORV:8:EX$MM$: 9200:1755@KK(RV),"I"DR$(QV)X R3 1600:1780t:("RA"NA$),D(DR(RV)):#(RA),"RA"NA$,L(RS),D(DR(RV)) PO%(MR,HK):l SAVE BOOKq SE:UKWK:"(SCRATCHING OLD BOOKKEEPINSE,SF%(X,D);R$;: X,D"(SAVING POINTERS)"J: X0HK: RR1 HR:SE,PO%(RR,X);R$;: RR:Xx R3 "(SAVING BLOCK MAP)": X110: X: R3 WB1 HB:SE," "T%(WB)R$" "S%(WB)R$;:WBR4#(RA):#(RA),("RA"NA$),L(RS),D(DR(RV))RSX RB(254RS.0001):HB(MRRB.0001)1 " HEADW FF "DO YOU WANT TO HEADER THE DISK?":3210 :"DO YOU WANT TO FORMAT THE DISK?" "(ERASE OLD DISK OR PREPARE NEW DISK)":XHE:X31:4400:HEX X0 N2$"": "NAM PROGRAM DISK ID"R$"PLEASE CHOOSE ANOTHER":3240 FIELDSA "HOW MANY FIELDS PER RECORD?"a XHF:X11:X2MD: 4800:HFXq WF1 HF :"TITLE FOR FIELD NO."WF"?" :X$FT$(WF):4500:FT$(WF)X$: WFG  KEYS "HOW MANY KEY."WK1"?":WK35305 : "(EXAMPLE: IF A KEY CONTAINS TWO FIELDS, LAST NAME AND FIRST ";g : "NAME, RECORDS WOULD BE ORDERED BY LAST "; : "NAME, AND ANY GROUP OF PEOPLE WITH THE SAME LAST NAME WOULD "; : "BE ORDERED BY FIRST NAME)" :X1 WK0:t FILE SIZE&yX%HB(HB2MR(HK1))42: 42 POINTERS/FILE-BLOCK[~"ESTIMATED SIZE OF FILE WHEN FULL IS"X%"BLOCKS"(RECOMMENDED MAXIMUM BLOCKS ARE:"" 1950 ON 8050 DRIVE,"" 600 ON SMALLER DRIVE(4040,1541,ETC.)"  F0),1):45007 X$"Y"X$"N""PLEASE ANSWER Y OR N":4400::X( X( X3) (X$"Y")X3 ):_X$(LE$,(X$));:CX1: GARD INPM$(X$" ",CX,1):""M$"";:G$:G$""4565:A(G$):M$"";:(A 127)32CX77A344520: G$;:XCX1:X$"":4505X$(X$,CX1)" "(X$,CX):G$" ";:: IN=(LE$,CX1)(SP$,L)(LE$,L);:: CLk""M$"";:W150:G$:G$""M$"";::W:M$"";:W150:G$:G$"":W:4565(X$,1)" "X$(X$,2):4580:(X$,1MILAR TO ANOTHER FILE,""ENTER THE OTHER FILE NAME (OTHERWISE LEAVE BLANK)";X$"":4500: X$"" E0:`"INSERT DISK WITH OTHER FILE"DT1"DRIVE NO(1/0)":G1$"01": 5:QV(G$) DT1 10:QV0KK(QV),"I"DR$(QV) 10#KK(0),"I0":"(LOADING "X$")"! # SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E 8 # LI253 IV,LIJ $ "0:"X$,8:VU,F3THER FILE"DT1"DRIVE NO(1/0)":G1$"01": 5:QV(G$) DT1 10:QV0KK(QV),"I"DR$(QV)G)"%v:KK(RV),"S"DR$(RV)":DB"NA$:VORV: 8: E1 c| SE,DV(RV),SE,DR$(RV)":DB"NA$",S,W":VORV: 8:E SE,MR;R$HR;R$RS;R$HB;R$HF;R$SF;R$RB;R$HK;R$WK;R$DK;R$DE;R$MC;R$; WF1 HF:SE,Q$;FT$(WF);R$;: WF D05: X0HK:SP0: SE:VORV:8:  REC SIZE<& "WHAT IS THE MAXIMUM SIZE OF EACH RECORD?";|0 "(TOTAL CHARACTERS IN ALL FIELDS PLUS TWO FOR EACH FIELD)"5 XRS:X13:X2254: 4800:RSXD X185: RS(254X) XN RS(254(X1)):"MAX REC SIZE="E OF THE DISK?"' :"(MAXIMUM 15 CARACTERS, DO NOT USE PUNCTUATION)@ :X$N2$:4500:N2$X$_ : (N2$)1(N2$)153225q "ID NUMBER? :"(EACH DISK SHOULD HAVE A DIFFERENT ID)" :XID:X10:X299: 4800:IDX : ID21  :"21 ISS DO YOU WANT? "(EXAMPLE: IF YOU HAD A KEY FOR NAME AND A ";T "KEY FOR ZIP CODE, YOU COULD CHANGE THE FILE "; "FROM NAME ORDER TO ZIP CODE ORDER AT ANY TIME) X11:X210:XHK1: 4800:HKX1 WK0HK :"HOW MANY FIELDS IN KEY NO :X25:XSF%(WK,0): 4800:SF%(WK,0)X9 :"FIELDS:": WF1 HF:""WF""FT$(WF)" ";: WF:o : Y1 SF%(WK,0):X$""("STNDRDTHTH",Y21,2) : "FIELD# OF"Y;X$" FIELD IN KEY#"WK1"?" : X11:X2HF:XSF%(WK,Y): 4800:SF%(WK,Y)X: Y,WK  1100E1,8,15,"I0":1,"S0:MAIL LABELS":"0:MAIL LABELS",8:r"CORRECTIONS?(Y/N)":G1$"YN": 5:4,4:4:4,(15):4:G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 "DISK ERROR:"E;E$;S;T "R ETE BLANK LINES"' PRINT ROW LABELS-) EXITA* READ A RECORDa+ POSITION TO READ OR WRITEl, YES?}0 ASK NUMBER5 OPEN FORM: CASE?= CHANGE FORMAT> ASK ARANG? SAVEA LOADL MAINM LI253 IV,LI3 tX110:G$:X:1110 SET UPc(N2$NA$:R11:R2HR:F$(0)"":HL0:: HL USED ALSO FOR HM LOOK UPSy SEL TEST EA RECGS1: WS1HS: GS SE%(WS) 1805,1810,1815,1820,1825,1830,1835,1865,1880  SL%(WS)2 WS:: IF 'AND' S)): &GS(F$(SA%(WS))SB$(WS)):9 +A1$F$(SA%(WS)):A2$SB$(WS)g 0: (A2$,1)"*" A1$(A1$,(A2$)1)"*" 5: (A1$)(A2$) GS0: :: X1 (A2$) ?: (A2$,X,1)"?" (A2$,X,1)(A1$,X,1) GS0: D:X: IX$F$(SA%(WS)):Y$ 2200: SL%(WS)3 WS:  WSMD "SELECTION TOO COMPLEX!!": 2100`  SL%(WS)3 WSWS1:X5: 2110 HSWS:X0: 2500:3: G$"Y"2100   (CONT) T$"FIELDS:": WF1 HF: WF;FT$(WF): WF :X1: 2500:"ENTER FIELD NO:":"ENTER ARGUMENT:"#:X$SB$(WS):4500:SB$(WS)(X$)YT$"LOGICAL CONECTIONS:": X1 3: X;LO$(X): X:X4: 2500:"ENTER CONNECTION NO:":WSRWSL%(WS)3:2215:XSL%(WS):X11:X23:4800:SL%(WS)XJ X:L "SELECT SYNT0 SB$(Y); YWS X4 "...";:2550- LO$(SL%(Y));9 Y::E MISC1i "KEYS:":X0HK:""X1" "; : D1SF%(X,0):FT$(SF%(X,D))":";:D:" ":X :"WHICH KEY?":X11:X2HK1:XWK1:4800:WKX1 "CHARACTERS PEALUE #"Y"?":XCH%(Y):X10:X2255 : 4800:CH%(Y)X: Y/ 5700: CASE5 H PRINT LABELSh HL0 "NO FORMAT":10: HR0 "FILE EMPTY":10: 3200:RRR1: KBD IMP& 5800: POKE CASE( CH%(0) X1 CH%(0):PR,(CH%( RRR2 X 3125 PRINT ASK/ " PRINTING LABELS"^ "DO YOU WISH TO REPEAT THE SAME RECORD?"y :XRE:X31: 4400:REX RE "RECORD#?":XR1:X11:X2HR:4800:R1X:3245 :"FIRST RECORD#?":XR1:X11:X2HR:480:RRRR1 : HS 1700: GS0 3305  * ARRANGE FIELDS ON LABELS[ WL1 HL:X$"":X1AF%(WL,0):X1AF%(WL,X) : X10X$X$HL$(X1)" ":3520 : X$X$F$(AF%(WL,X))" ": X$" " X$"" X:L$(WA,WL)X$: WL:t DELETE BLEADY?":G1$"R":5: MAIN) SET UP? SEL TEST EA REC[ SEL TEST EA CONDITIONi SELECT?v (CONT) DISPLAY SELECT MISC1 PRINT LABELS PRINT ASK! GET SELCTED RECORD# ARRANGE FIELDS ON LABELS % DELQ 9300: 1300: OPEN RA,SET UP=V"MAILING LABELSRe"LOAD FORMATzg"CREATE, CHANGE, INSPECT FORMATh"SAVE FORMAT"j"PRINT LABELSl"^ RETURN TO FILE MENU"o:G1$"LCSP^":5:V 6500,6100,6300,3100,9100 THEN TEST AGAIN  MUST BE 'OR'&  GS 6 GS1: WS:R  SEL TEST EA CONDITIONq GS(F$(SA%(WS))SB$(WS)): GS((F$(SA%(WS)))(SB$(WS))): GS((F$(SA%(WS)))(SB$(WS))): GS(F$(SA%(WS))SB$(WS)): !GS(F$(SA%(WS))SB$(WSB$(WS):X1(X$)HT:X1$(X$,X,HT)@ N:Y1(Y$)HT:X1$(Y$,Y,HT)GS1:Q S:Y,X:GS0:} XGS((F$(SA%(WS)))(F$((SB$(WS))))): 4 SELECT? >"DO YOU WISH TO SELECT CERTAIN RECORDS?" CXHS:X31: 4400: X0 HS0: H WS1 MD: DISP SEL# :XSA%(WS):X11:X2HF: 4800:SA%(WS)XV T$"EQUALITY TYPES:": X1 9: X;EQ$(X): X :X2: 2500:"ENTER EQUALITY TYPE NO:" :XSE%(WS):X11:X29: 4800:SE%(WS)X T$"ARGUMENT CAN BE ANY ALPHA-NUM STRING":X3: 2500:EX ERROR":  DISPLAY SELECT, "YOUR SELECTION STATEMENT:I "IF (";: HSWS HSWSw Y1 HS: YWS X1 "...";:2520 FT$(SA%(Y)); YWS X2 "...";:2530 " "EQ$(SE%(Y))" "; YWS X3 "...";:254R SELECTION CODE?":X11:X210:XHT: 4800:HTXG "DEVICE NUMBER? (4=MOST PRINTERS, 3=SCREEN)"i :X11:X2255:XPD: 4800:PDX "NO OF CHARACTERS SENT TO PRINTER?":X10:X210 :XCH%(0): 4800:CH%(0)X: X0 2765:--- :Y1X:"ASCII VX));: X5 WA1 HA: FOR EACH LABEL ACROSS6: : 3300: INPUT SELECTED RECORD\? : 3500: ARRANGE FIELDS ON LINES}D : 3700: DELETE BLANK LINESF G$: G$"P" G1$"SC": 5G G$"S" SE:I WA: 3900: PRINT A ROW OF LABELSS 0:R1X  :"LAST RECORD#?":XR2:4800:R2X 3:G$"Y"3205/ PR: PR,PDY "PAUSE"R$"CONTINUE"R$"STOP"_ x GET SELCTED RECORD RE WRPO%(RR,WK): 4200: RRR2 X1 HF:F$(X)"": X: :WRPO%(RR,WK): 4200 ANK LINESyB1:THL~ BT & L$(WA,B)"" BB1: 3710:---R WLB T1:L$(WA,WL)L$(WA,WL1): WLuL$(WA,T)" ":TT1: 3710:---< PRINT ROW LABELSA WL1 HL:LL$"": FOR EACH LINEK: WA1 HA:XCP%(WA)1(LL$): #(RA),(WR),(L):RA,F$(X):LL(F$(X))2:Xw POSITION POINTER;BL((WR1)RB.00001)1rKK(RV),"U1:"RA;DR(RV);T%(BL);S%(BL):VORV:8:EX(WR1)(BL1)RB: NO. RECS BEFOR THIS IN THIS BLOCKBP1RSX:KK(RV),"B-P:";RA;BP: ";:(A 127)32CX77A344520': G$;:X$(X$,CX1)G$(X$,CX1):CXCX1:4505Q:A157CX1CXCX1:G$;:4505: LF|:A29CX(X$)CXCX1:G$;:4505:RI:A134580: RET:A20CX1G$;:X$(X$,CX2)(X$,CX):CXCX1:A (X$,1)" "X$(X$,2):4580:(X$,1)" "X$(X$,(X$)1):4585 ::1 ASK NUMBERbX$((X),2):4500:X(X$):X0X$"0"4812uXX1XX2"ILLEGAL ENTRY - PLEASE ENTER A NUMBER""IN THE RANGE OF"X1" TO"X2:4800 5:QV(G$): QVRV KK(QV),"I"DR$(QV)- X1$"W" KK(QV),"S"DR$(QV)":ML"(162)N2$] SE,DV(QV),SE,DR$(QV)":ML"N2$",S,"X1$vVOQV: 8: E SE|D CASE?IWP0S MC0 AC0:X:"CONVERT TO ALL CAPS?":XAC MC0 DN$"""": CBM MIX ! ORA B7+2,EOR B7+3,CMP#128,IF GE,EOR B7+4,THEN1! CHANGE FORMATW!" CHANGE FORMAT"s!"FIELD ARRANGEMENT"!"SELECTION"!"MISC"!"^ RETURN TO MAIL LABELS!G1$"FSM100:4800:ELX"GHH0: WL1 HL#L"FIELDS:":WF1HF:""WF""FT$(WF)" ";: WF:P#Q:"HOW MANY FIELDS TO BE PRINTED ON LINE"WL"?"}#V:XAF%(WL,0):X11:X23:4800:AF%(WL,0)X#[: X1 AF%(WL,0):E1#`: "FIELD# OF"X""("STNDRD",X210$o: HHHH1:AF%(WL,X)HH:HL$(HH)(X$,2,(X$)2):E0%yX,WL:"ARRANGEMENT:"2%~: WL1HL:X1AF%(WL,0)\%: X1AF%(WL,X): X10 FT$(X1)" ";z%: X10 HL$(X1)" ";%: X:: WL%"HOW MANY LABELS ACROSS?":XHA:X11:X220:&SE,WK;R$;HT;R$;X$;R$;&:WA1 HA:SE,CP%(WA);R$;: WA;':WL1 HL:SE,AF%(WL,1);R$;AF%(WL,2);R$;AF%(WL,3);R$;: WL}': X1 HS: SE, SA%(X);R$;SE%(X);R$;SB$(X);R$;SL%(X);R$;: X': X0 10: SE, CH%(X);R$;: X'SE,X;R$;PD;R$;CS;F%(WL,1),AF%(WL,2),AF%(WL,3): WL): X1 HS: SE,SA%(X),SE%(X), SB$(X), SL%(X): X.): X0 10: SE,CH%(X): XB)SE,X ,PD,CS,HHb):WL1HL:SE,AF%(WL,0):WL}):X1HH:SE,HL$(X):X) SE:)# EXIT)# PR:X$"FILE MENU": 9200: WHICH ACROSS,POS P: X0 LL$LL$(SP$,X)!R: LL$LL$L$(WA,WL)+U: WAJZ: ML153:PR,DN$LL$R$LF$;S_ WL{d EL X1 EL:PR," "R$LF$;: Xih READ A RECORDm R3 4300: WF1 HF:RA,F$(WF): WF:rL1:X1HF:0 YES?5X$("YN",1((XX3)0),1):450097 X$"Y"X$"N""PLEASE ANSWER Y OR N":4400g:X$(X$,1):X( X( X3) (X$"Y")X3 ):X$(LE$,(X$));:CX1: GARD INPM$(X$" ",CX,1):""M$"";:G$:G$""4565:A(G$):M$"148(X$)784555:A147L(X$):4560:CX1:X$"":4505AX$(X$,CX1)" "(X$,CX):G$" ";:: INj(LE$,CX1)(SP$,L)(LE$,L);:: CL""M$"";:W150:G$:G$""M$"";::W:M$"";:W150:G$:G$"":W:4565$ TITLES OPEN FORM"NAME OF FORMAT:":X$N2$:4500:N2$X$FE1:L(N2$): L12 "FILE NAME TOO LONG":u X1 L: (N2$,1)"*" "'*' ILLEGAL":: X: L0  DT1 QVRV: 5330:E0:"DRIVE(1/0)?":G1$"01"::X31: 4400:ACXl POKE CASE*  B72,0: AC0 B72,128: ALL CAPS IN MIX FORMT_ B73,0: WP0 MC0 B73,128: WP NOT-MIXk B74,0 : PDPU CP0 MC0 B73,128: B74,160: ASC MIX DN$"": PDPU CP0 ^":5: V 6200,2100,2700! G$"^" !6100"8 ASK ARANGN"="HOW MANY PRINTED LINES PER LABEL?"R$"(ENTER 0 TO RETURN TO";"?" CHANGE MENU)":XHL:X10:X210:4800: X0"@HLX"B"NO. OF EMPTY LINES BETWEEN LABELS":XEL:X10:X2,2)" FIELD IN LINE#"WL"?"$b: "(FOR CONSTANT FIELD ENTER ' THEN CHARACTERS THEN ' ):$c: YAF%(WL,X):Y0X$((Y),2)X$d: Y0X$"'"HL$(Y)"'"$e: 4500:Y(X$):Y0YHF AF%(WL,X)Y:6265$j: (X$)2(X$,1)"'""ILLEGAL ENTRY": 6244800:HAX% WA 1 HA:"COLUMN POSITION LABEL NO."WA5&:XCP%(WA):X1CP%(WA1)1:X2235HAWA:4800:CP%(WA)X:WA;&F& SAVEh&" SAVE FORMAT"&X1$"W": 5300: E &SE,HA;R$;HL;R$;EL;R$;X$;R$;X;R$;X;R$;AC;R$;HS;R$; R$;HH;R$;':WL1HL:SE,AF%(WL,0);R$;:WL(:X1HH:SE," ";HL$(X);R$;:X( SE:(d LOAD:(i" LOAD FORMATT(nX1$"R":5300: E (SE,HA,HL,EL, X$,X, X,AC,HS, WK,HT, X$(: WA1 HA:SE,CP%(WA): WA(: WL1HL:SE,A 9101)# LOAD PROG)# RA: DT1 RV1 "INSERT PROGRAM DISK": 10"*#KK(0),"I0":"(LOADING "X$")"U*# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E l*# LI253 IV,LI~*$ "0:"X$,8:*T$ OPEN RA*Y$ DT1 RV1 "INSERT DATA D  1100K 15,8,15,"I0":15,"S0:PRINT REP":"0:PRINT REP",8:w"CORRECTIONS?(Y/N)":G1$"YN": 5:4,4:4:G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 "DISK ERROR:"E;E$;S;T  "READY?": RECS-DISK? PG FORCE?$@ HEADING1A TITLES@B DEC JUSTOC PG FORCE\D LN PRTpI PRT TOTS AVRS{O DOTSR READ RECS POS POINTT OPEN PD FILE[ EXIT\ PRINT MS] SPECIAL COUNTb PRINT MSL MAINQ 9100:  SETUP% LI253 IV,LI3aWC0MD:CC$(WC)"":X$(WC)"": X1DE:CT(WC,X)0:X,WCHI$"===================================================================="PF5HM3LSHM:CC$(0)"":F$(0)"":RC0:RRR11: AS0 RRR21 ERROR": SEL TEST EA CONDITION8 GS(F$(SA%(WS))SB$(WS)):] GS((F$(SA%(WS)))(SB$(WS))):  GS((F$(SA%(WS)))(SB$(WS))): GS(F$(SA%(WS))SB$(WS)):  GS(F$(SA%(WS))SB$(WS)):  GS(F$(SA%(WS))SB$(WS)):  A1$F$(SA%(WS:X1$(Y$,Y,HT)GS1: @ :Y,X:GS0:D J GS((F$(SA%(WS)))(F$((SB$(WS))))):{ O GS0:A$F$(SA%(WS)):B$SB$(WS):B(B$):D(A$)B1 P X1 D: B$(A$,X,B) GS1: Q X: CALC DO WO1 HO :B$OB$(WO):(B$,1)"C" B$CC$("+" XBC: \ O$"." XB: a O$"R#" XRN:5f O$"-" XBC:Sk O$"X" O$"*" XBC:jp O$"/"CXBC:u O$"^" XBC:z O$"SIN" X(C):{ O$"RND" X(C): O$"TAN" X(C): O$"LOG" X(C): O$"I">" WOWOA(BC):$ "ERROR IN CALC#"WO"FOR REC#"RN:1 LOOKUPZC1CHL"ERROR IN OPERATION#"WO:BR(LR%(C1)2)2:TRLR%(C)2:FI$CC$(A) TRBR2 CC$(A)FI$:P%(BRTR.1)2:FO$LU$(P%2) FI$FO$ TRP%: 3810:BLX:KK(RV),"U1:"RA;DR(RV);T%(BL);S%(BL):VORV:8:EXX(WR1)(BL1)RB: NO. RECS BEFOR THIS IN THIS BLOCK}BP1RSX:KK(RV),"B-P:";RA;BP: SUB PRINTNR(SC1): WC1 HC:X$(WC)CC$(WC):CC$(WC)"": WCXSC: SCLS X 1:UK:PR," "R$LF$;:RORO1K WC1 HC:CC$(WC)X$(WC): WCAM SR NR 6700: 6400: 6500[: 4667 - ACUMS FOR TOT + AV MOVED DOWN DURRING SUB PRINT\ SUBT,JUST,ACUM^ LS0 4725_: RC1 X1 LS:UK$(X)CC$(X): X: 4725aISK": 10*[$KK(RV),"I"DR$(RV)+^$ SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$",S,R"&+`$VORV: 8: SE: E 9305D+c$ RA,DV(RV),RA,"#":BL0:1HL:SE,AF%(WL,0):WL}):X1HH:SE,HL$(X):X) SE:)# EXIT)# PR:X$"FILE MENU": 9200:G1$"R":5: MAIN! SETUP7 SEL TEST EA RECS SEL TEST EA CONDITIONa! CALC DOw" MATH OPERATIONS& LOOKUP. SUB PRINT/ SUBT,JUST,ACUM0 JUSTIFY ONLY1 ASK NUMBER: GET COMBO; GET-SEL= RECS> 9300: 1200: SETUP,T 8400: E 1199: OPENXV PD8 PD1 6200:1199: DISK PRTX: CH%(0) X1 CH%(0):PR,(CH%(X));: X[: PD3 : 9800: PR MS]: 6400:G$"S"1199: HEAD`: 6500: TITLESe: 6100: RECS PR: SEL TEST EA REC> GS1: WS1HS:XSE%(WS): START TRUE GS X 2810,2815,2820,2825,2830,2835,2840,2870,2890,2895 SL%(WS)2 WS:: IF 'AND' THEN TEST AGAIN MUST BE 'OR' GS GS1: WS:"SELECT SYNTEX)):A2$SB$(WS).  : (A2$,1)"*" A1$(A1$,(A2$)1)"*"L " : (A1$)(A2$) GS0:` ' : X1 (A2$) , : (A2$,X,1)"?" (A2$,X,1)(A1$,X,1) GS0: 1 :X: 6 X$F$(SA%(WS)):Y$SB$(WS):X1(X$)HT:X1$(X$,X,HT) 8 :Y1(Y$)HT((B$,2)))* :C$OC$(WO):(C$,1)"C" C$CC$(((C$,2)))^ :A(( OA$(WO) ,2)):B(B$):C(C$):O$OO$(WO) * :NO1: 3400: NUMERIC OP?, DO OPER > : NO CC$(A)(X):(CC$(A),1)" "CC$(A)(CC$(A),2) G WO: H MATH OPERATIONS W O$NT" X(C): NO0 O$"LU" 3800:N O$"DATE" CC$(A)(CC$(A),4)"/"(CC$(A),2):u O$"BAR" (CC$(A))CP%(A)  O$"BAR" CC$(A)(HI$,(CC$(A))): O$"$+" CC$(A)B$" "C$: O$"=" WOWOA(BC): O$ FI$FO$ BRP%: 3810CC$(A)LU$(P%21):-h READ A RECORD]m R3 4300: WF1 HF:RA,F$(WF): WF:rL1:X1HF:#(RA),(WR),(L):RA,F$(X):LL(F$(X))2:Xw POSITION POINTERX((WR1)RB.00001)1: BLX 4315 $(SC)X$(SC) :DL$"-":X32:WM1: 7900: DOT9/: WC1 HC:FLFL%(WC):CC$(WC)""c9: FL2 CC$(WC)(CT(WC,SC)): TOT;: FL6 CT(WC,SC1)CT(WC,SC1)CT(WC,SC):CT(WC,SC)0: TOT AVC: WC: 4800:CC$(SC)"*": 6800: JUS,PRTH SC : SC1 LS: UK$(SC)CC$(SC)CC$(SC)"":SC:4725*f: 4600: SUB PRTRuWC1 HC:FLFL%(WC): FL0 4740z:CC$CC$(WC): FL 1 6600:CC$(WC)CC$: DEC JUS: FL 6 CT(WC,LS)CT(WC,LS)(CC$):4740: TOT AV WC JUS - GET COMBORNRR: X1 HC: AR%(X) CC$(X)F$(AR%(X))B: X: 5900: KR0 : ?GET-SEL} X1HC: FL%(X)16 CT(X,LS1)CT(X,LS1)(CC$(X)): X GS X1KR: F$(SF%(WK,X))CC$(X) X:5800:SIM? X1HC: FL%(X)1 SELCTD REC# RECS 5900: GET SEL1 GS0 PR,"NO RECORDS"R$LF$;: 6165:---G 5800: GET COMBd:G$:G$"P"G1$"CS":5t:G$"S" :RCRC1: HO 3300: CALC: 4700: SUBT,JUST,ACUM: WM1 HM:6800: WM GET G$:IFG$="S"THEN RETURNQ:RCRC1V: HO 3300: CALC+[: 4800: JUST ONLYL`: DF PR,"-1,0"R$""R$;ve:X1HC:LL$CC$(X): PD1 ML153j: WP0 DF0 PR,Q$LL$R$;: 6270o: LL$"" LL$" "t: WP PR,LL$R$; TITLES HEADINGX13:PR," "R$;LF$;:X:RO45 WH1 HH:L(HL$(WH)):LL$"LINE TOO WIDE"Q:G$:G$"P"G1$"CS"5`:G$"S" : PWL LL$(SP$SP$,(PWL)2)HL$(WH):PD1ML153 :PR,DN$LL$R$LF$;:RORO1: WHPR,R$LPR," "R$;LF$;:RORO1 WC1 HC:CC$(WC)X$(WC): WC:7 FL%(WC)1 CC$(WC)(SP$CC$(WC),CP%(WC))=L DEC JUSTlRRD%(WC):TLD%(WC)R(R0)CC$(((CC$)10R.5)) (CC$,1)" "CC$(CC$,2)R(CC$)CC$("00000000" ;RO1:  LN PRT WX0!LL$(SP$,CP%(0)):AX0: WCFC%(WM) FC%(WM1)1M!:LCP%(WC):LL$LL$(CC$(WC)SP$,1LWX,L)" "r!:(WX1)L(CC$(WC)) AXAX 1! WC: PD1 ML153!PR,DN$(LL$,PW)R$LF$;:RORO1:LL$(LL$,PW1)!0))":WC: 4800: WM1 HM: 6800: WM: JUST,PRT A LN.#X0: WC1HC:XX(FL%(WC)4): WC: X0 S#PR,DN$"AVERAGES:"R$LF$;:RORO1# 6300:DL$"=":X34: WM1 HM: 7900: WM#:WC1HC:CC$(WC)"":FL%(WC)4CC$(WC)(CT(WC,0)RC)1:$ OPEN PD FILE$ PD1 PR,PD,1,NS$: % PD8 PR,PD:A% "INSERT SEQUENTIAL DISK IN DRIVE 0 IF NECESSARY"{% "SEQ FILE DRIVE NO?(1/0)":G1$"01": 5:QV(G$)% QVRV KK(QV),"I"DR$(QV)% KK(QV),"S"DR$(QV)":"N$T1$(X):PD1ML153'!:PR," 1,0"R$Q$LL$Q$R$;:X:PR,"-1,0"R$""R$;,'! X1 HC:LL$T2$(X):PD1ML153`' !:PR," 1,0"R$Q$LL$Q$R$;:X:PR,"-1,0"R$""R$;f'%!q'# EXIT'# PD8 DT1 9110'#"REPLACE PROGRAM DISK IF NECTIFY ONLYWC1 HC. FL%(WC)1 CC$CC$(WC): CC$"" 6600:CC$(WC)CC$9 WC:J$ ASK NUMBERz. G$:X;D$;:KE,X$::X(X$):XX1XX20"ILLEGAL ENTRY - PLEASE ENTER A NUMBER"3"IN THE RANGE OF"X1" TO"X2" !!":4900:--6 CC$(X)(CT(X,LS1)):CT(X,LS1)0# X:: THIS ROUT NOT ENT IF GS=01  GET-SELFGS0: AS 5910_:RRRR1: RRR1 i5912:RRRR1: RRR2 GS1:WRPO%(RR,WK): 4200: HS 2700: GS0 5900: RR ALWAYS = LAST : HM1 PR," "R$LF$;:RORO1 6300: GS 6107 : PG FORCE8  LS SC1: 4600: ALL SUBSO  7300: TOTS,AVRSh"": PD3 10u 6700:8 RECS-DISK= 5900: GET SELB GS0 : EMPTYG 5800: GET COMBOL: : 6270 y: (FL%(X) 8) PR,"0,"CC$(X)R$""R$;: 6270({: PR,"1,0"R$Q$LL$Q$R$;A~ X: GS 6215:---b DF PR,"-1,0"R$""R$;hx PG FORCE? ROPFLP  6700:X13:PR," "R$LF$;:RORO1:X: FORCE 6500::F$;:RORO1:d TITLESf WC1 HC:X$(WC)CC$(WC):CC$(WC)"": WC%i WM1 HMcn: WC1 HC:CC$(WC)T1$(WC): 6550: WC: 6800: DRAW LNs: WC1 HC:CC$(WC)T2$(WC): 6550: WC: 6800}:DL$"-":X30: 7900: DOTS WM: HM1 CC$,R) R CC$(CC$,(CC$)R)"."(Z$CC$,R)  (CC$)T CC$(SP$CC$,T)$ 3 , PG FORCEP 1 P10 ROLP3 6710 3:PR,(SP$SP$"PAGE"(PN),PW24);:PNPN1 6PR," "R$;LF$;:RORO1: ROLP1 6705 8 PP G1$"C": 5 AX WXWX1:6810!! PRT TOTS AVRS0"PF62HM:X0: WC1HC:XX(FL%(WC)2): WC: X0 7315S"PR,DN$"TOTALS:"R$LF$;:RORO1" 6300:DL$"=":X32: WM1 HM: 7900: WM: FRC,DOT":WC1HC:CC$(WC)"":FL%(WC)2CC$(WC)(CT(WC,#:WC: 4800: WM1 HM:6800: WM:# DOTS($X1$"": CP%(0)1 X1 CP%(0):X1$X1$" ":XG$ WCFC%(WM) FC%(WM1)1q$:X$DL$: X3 (X3FL%(WC))0X$" "$: X1 CP%(WC):X1$X1$X$:X:X1$X1$" "$ WC:PR,X1$R$LF$;:RORO S$% PR,DV(QV),SE,DR$(QV)":"NS$",S,W":VOQV: 8: E & DF0 )& PR,""R$"0,1"R$Q$Q$R$;M& PR,""R$"0,"HC;R$Q$Q$R$;p&!PR,""R$"0,"HR;R$Q$Q$R$;&!PR,""R$"0,0"R$Q$Q$R$;& !PR,"-1,0"R$""R$;&! X1 HC:LL ESSARY":10'#X$"REPORT WRITER": 9200:9100'# LOAD PROG.(# RA: DT1 RV1 "INSERT PROGRAM DISK": 10Q(#KK(0),"I0":"(LOADING "X$")"(# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E (# LI253 IV,LI($ "0:"X$,8:(T$ OP2INTING")R&"(PRESS KEY ONCE, THEN WAIT)":'# LOAD PROG.(# RA: DT1 RV1 "INSERT PROGRAM DISK": 10Q(#KK(0),"I0":"(LOADING "X$")"(# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E (# LI253 IV,LI($ "0:"X$,8:(T$ OP  5/10/80 9:20  1100[ 15,8,15,"I0":15,"S0:CREATE SEQ":"0:CREATE SEQ",8:q4,4:4:"";::G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 "DISK ERROR:"E;E$;S;T "READY?":G1$"R":5: M ! S HR0 "FILE IS EMPTY": 11757 V 9300: E 1110B X 1200_ [ 2700: CA 1155: ASKy ` DT1 QVRV: 1155 e:"IF RANDOM DATA FILE IS IN DRIVE 1 j:"AND IF THE SEQUENTIAL FILE IS TO GO ON A SEPARATE DISK,# o:"THEN YOU MUSTOP ON CASSETTE":1157%  E 1115: CREATE7  DT1 1175x :"REPLACE PROGRAM DISK IN DRIVE 0 IF NECESSARY": 10 X$"FILE MENU": 9200: 1175  SET UP F$(0)""  X1 MD:AR%(X)X: X R11:R2HR:  SET UP ASKAND FIELDS:":WF1HF:""WF""FT$(WF):WFM "HOW MANY FIELDS WILL THE SEQ FILE HAVE?"m X11:X2MD:XHQ: 4800:HQX} WF1 HQ : "SEQ FIELD NO" WF "SHOULD BE LOADED WITH RAN FIELD NO:" :"(ENTER 0 FOR EMPTY FIELD)" :X10:X2HF:XT TO CASSETTE? XCA:X31: 4400:CAXS "CORRECTIONS(Y/N)?":G1$"YN": 5: G$"Y" 2700Y f CREATE CA SE,1,1,NS$:2840 :KK(QV),"S"DR$(QV)":"NS$ : SE,DV(QV),SE,DR$(QV)":"NS$",S,W" :VOQV: 8: E SE:0;R$;:2861 + SE,QL$(192)R$;&, SE,(F$(AR%(WQ)))R$;0- : WQD1 RR: SE:E0:TT SPACE PADtY X1HF:F$(X)""F$(X)" "}^ X: ASK RANGE "START AT RECORD NO:":X11:X2HR:XR1: 4800:R1X "END AT RECORD NO:":XR2: 4800 X(WR1)(BL1)RB: NO. RECS BEFOR THIS IN THIS BLOCKFBP1RSX:KK(RV),"B-P:";RA;BP:Q0 YES?u5X$("YN",1((XX3)0),1):45007 X$"Y"X$"N""PLEASE ANSWER Y OR N":4400:X$(X$,1):X( X( X3) (X$"Y")X3 ):X$(L E$,(X$));:CX1: GARD INP3M$(X$" ",CX,1):""M$"";:G$:G$""4565f:A(G$):M$"";:(A 127)32CX77A344520: G$;:X$(X$,CX1)G$(X$,CX1):CXCX1:4505:A157CX1CXCX1:G$;:4505: LF:A29CX(X$)CXCX1:EN RA(Y$ DT1 RV1 "INSERT DATA DISK": 10)[$KK(RV),"I"DR$(RV)7)^$ SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$",S,R"R)`$VORV: 8: SE: E p)c$ RA,DV(RV),RA,"#":BL0:)H& PRINT MS)M&"PAUSE"R$"CONTINUE PRINTING"R$"STOP PRG$;:4505:RI:A134580: RET;:A20CX1G$;:X$(X$,CX2)(X$,CX):CXCX1V:A148(X$)784555{:A147L(X$):4560:CX1:X$"":4505X$(X$,CX1)" "(X$,CX):G$" ";:: IN(LE$,CX1)(SP$,L)(LE$,L);:: CL AIN SET UP  ASK ALL)  CREATE9  SPACE PADH " TYPE ASKX # ASK RANGEr % KEY BOARD REC INPUT * READ A RECORD + POSITION POINTER , YES? 0 ASK NUMBER \ LOAD PROG ] OPEN RA L MAIN Q LI253 IV,LI3 NOW REMOVE THE PROGRAM DISK FROM DRIVE 0T t:"AND REPLACE IT WITH THE SEQUENTIAL DISK" y:"SEQ FILE GOES ON DRIVE NO:(1/0)":G1$"01": 5:QV(G$) ~: RVQV KK(QV),"I"DR$(QV)  2800 CA01160  ML44:(B78)0"PRESS ST ALL( " CREATE SEQ FILE OR PRACTICALC FILE"i "NAME OF SEQ FILE?"R$"(LEAVE BLANK TO RETURN TO FILE MENU) X$NS$:4500:NS$X$ NS$""X$"FILE MENU":9200:2717 "DO YOU WANT A PRACTICALC TYPE FILE?":X0:X31:4400:PCX "RAR%(WF): 4800:AR%(WF)X:X0:X31N PCPC%(WF)136:"NUMERIC FIELD":4400:XPC%(WF)192f WF: 3500: RANGEy PCWP0:2767 "WILL THE OUTPUT BE USED BY A WORD PROCESSOR? "(PAGE MATE, WORD PRO) XWP:X31: 4400:WPX "OUTPU F$(0)"":QL$Q$"\"' PCSE,R2R1;R$;:SE,HQ1;R$;8 RRR1 R2]" :WRPO%(RR,WK): 4200: READ RECp' : WP 2900( PC0 WQ1 HQ:SE,Q$F$(AR%(WQ))R$;: WQ: 2865) WQ1HQ:PC%(WQ)1362859* SE,QL$(136)F$(AR%(WQ))R$;:SE,:R2X h READ A RECORD9m R3 4300: WF1 HF:RA,F$(WF): WF:urL1:X1HF:#(RA),(WR),(L):RA,F$(X):LL(F$(X))2:X{w POSITION POINTERBL((WR1)RB.00001)1KK(RV),"U1:"RA;DR(RV);T%(BL);S%(BL):VORV:8:E!  5/10/80 3122  1100X15: 15,8,15,"S0:ALPHA ORDER":"0:ALPHA ORDER",8:"CORRECTIONS?(Y/N)":G1$"YN": 5:4,4:4:"";::G$:V1(G1$)1:G$(G1$"I",V,1)V:5KK(VO),E,E$,S,T:E2 "DISK ERROR: N 9300$Q" ALPHA ORDER"aV"THIS PROGRAM IS FOR PUTTING A FILE IN ALPHABETICAL ";~W"OR NUMERICAL ORDER. "["IT CAN BE USED AFTER FILE CALCULATIONS ";`"OR WHEN YOU WANT A PARTICULAR KEY TO REFER TO ";e"A NEW SET OF F ""M$"";:W150:G$:G$""M$"";:2:W:M$"";:W150:G$:G$""@:W:4565b(X$,1)" "X$(X$,2):4580:(X$,1)" "X$(X$,(X$)1):4585:: ASK NUMBERX$((X),2):4500:X(X$):X0X$"0"4812XX # LI253 IV,LI$ "0:"X$,8:T$ OPEN RABY$ DT1 RV1 "INSERT DATA DISK": 10Y[$KK(RV),"I"DR$(RV)^$ SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$",S,R"`$VORV: 8: SE: E c$ RA,DV(RV),RA,"#":BL0: HF:SE,FT$(WF)****ADD RECORD5HRMR "OUT OF ROOM":&6"ADDING RECORD#"HR1:L0:4500P9 G$"R" WF1 HF:F$(WF)"": WFk> 3700: KBD REC INPUTCUKWK: WK0HK:SFSF%(WK):FI$F$(SF): 3300: BI SRCHH: FRHR1 BRFR:TRHR: 5200: CHUNK DISPLAY REC "KEY#"WK1" ="FT$(SF)" RECORD#"RR WF1 HF :FT$(WF)":"13)F$(WF) WF20HF20"CONTIUE?":G1$"C":5" WF:<t KEY BOARD REC INPUTOxCK0: CNG FLGcyL0: WF1 HF{:UP$"":(F$(WF))C41UPƨŧȱŨ`檥i榥Ŭ٥ū`-Hȱ-ȱ-h`)A[EɀEɀ) TT!~AFu Lȭȑ Q'􈈈'Н`41UPTCHING OLD BOOKKEEPING)"Hv:KK(RV),"S"DR$(RV)":DB"NA$:VORV: 8: E1 | SE,DV(RV),SE,DR$(RV)":DB"NA$",S,W":VORV: 8:E SE,MR;R$HR;R$RS;R$HB;R$HF;R$SF;R$RB;R$HK;R$WK;R$DK;R$DE;R$MC;R$; WF1 HF:SE,Q$;FT$(WF);R$;: WF  ),L(RS),D(DR(RV))# X1HF:SE,MF%(X);R$;:X= SP0: SE:VORV: 8:M ` LONG SORTa e TTI: KEYB IMP j UFHF:HF1:X1SF%(WK,0):SF%(WK,X)HFTHFSF%(WK,X) o : X:D(HR2): D=DISTANCE t RR1 HRD y E1RR:E2E1D ~ WRPO%(E2,WK):42003 :F2$"": X1 SF%(WK,0):F2$F2$F$(SF%(WK,X))" ": XK WRPO%(E1,WK):4200 :F1$"": X1 SF%(WK,0):F1$F1$F$(SF%(WK,X))" ": X AS 2457 : AL E(F1$F2$): 2460 : E( (F1$)(F2$) ): 2460 : AL E(F1$F2$):"E;E$;S;T% "READY?":G1$"R":5:0 MAIN@ SAVE BOOKP LONG SORTa SHORT SORTo ASK ALL KEY CHANGE# ASK FIELDS* READ A RECORD+ POSITION POINTER, YES?1 ASK NUMBERL MAINM LI253 IV,LI3IELDS.""g KI X1HR:KF$(X)"":XPj"CONTINUE?":X1:X31: 4400: X0 1150bt: 2600: ASKy:SP1: SH1 2400,2500: LONG,SHORT{RR0: 1900:"": SAVE BK~X$"FILE MENU": 9200: 1150l SAVE BOOKq SE:UKWK:"(SCRA1XX2"ILLEGAL ENTRY - PLEASE ENTER A NUMBER"?"IN THE RANGE OF"X1" TO"X2:4800O# LOAD PROG# RA: DT1 RV1 "INSERT PROGRAM DISK": 10#KK(0),"I0":"(LOADING "X$")"# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E : WF'X0HK:SE,SF%(X):X( R3 RA,8,RA,"#": 8:E D) R4 #(RA),("RA"NA$),L(RS),D(DR):s+RR0: SE:WKUK:SFSF%(WK):F$(HF):BFSF:l******EXITm"EXIT(Y/N)?":G1$"YN": 5: G$"N" SP3900 RA:4** UPMPO%(FR,WK)HR1:WKUK RRFRN WK:HRHR1:WKUK<RSFSF%(UK):WRHR:4100:3500:: WRT,DISPU******CHANGE RECORDp"CHANGE RECORD#"RR|1RR 3700: CF04100:3500:URWR:UKWK:4500:EMBER WR,WKWK0HK $""~: FT$(WF)":"R$;F$(WF);UP$"":X$:KE,X$:X1(X$):(X$,X,1)Q$"DO NOT ENTER Q(`x) )X`3ȱũŪ`i榥i樰ȱũŪ`8Ʀ8 2460 : E( (F1$)(F2$) ): 2460( E0 2475\ XPO%(E1,WK):PO%(E1,WK)PO%(E2,WK):PO%(E2,WK)X E1D E1E1D:E2E1D: 2430 RR D(D2): D: D 2420 HFUF SHORT SORT "(LOADING KEYS)": KF0 KF1: K  D05: X0HK:SE,SF%(X,D);R$;: X,D9 "(SAVING POINTERS)"m : X0HK: RR1 HR:SE,PO%(RR,X);R$;: RR:X  R3 "(SAVING BLOCK MAP)": X110: X : R3 WB1 HB:SE," "T%(WB)R$" "S%(WB)R$;:WB R4#(RA):#(RA),("RA"NA$ H:"8 : 3500: ASK KEY FIELDS7< "IN ALPHABETIC ORDER? (N=NUMERIC ORDER)"QA :X31:XAL:4400:ALXF PRINT"IN ASCENDING ORDER? (N=DESCENDING ORDER)"H AS1: :X3=1:X=AS:GOSUB4400:AS=XJ "SHORT FILE? (LESS THAN ABOUT"((0)20 Y FIELDS IN KEY#"WK1"?"* :X1:X2DE:XSF%(WK,0): 4800:SF%(WK,0)X` : Y1 SF%(WK,0):X$""("STNDRDTHTH",Y21,2) : "ENTER FIELD NUMBER OF"Y;X$" FIELD OF KEY#"WK1"?" : X11:X2HF:XSF%(WK,Y): 4800:SF%(WK,Y)X: Y DE1:DK1: X0 2:Xw POSITION POINTERBL((WR1)RB.00001)1UKK(RV),"U1:"RA;DR(RV);T%(BL);S%(BL):VORV:8:EX(WR1)(BL1)RB: NO. RECS BEFOR THIS IN THIS BLOCKBP1RSX:KK(RV),"B-P:";RA;BP:0 YES?5X$("YN",1((XX3)0),1) G$;:X$(X$,CX1)G$(X$,CX1):CXCX1:45054:A157CX1CXCX1:G$;:4505: LF_:A29CX(X$)CXCX1:G$;:4505:RIu:A134580: RET:A20CX1G$;:X$(X$,CX2)(X$,CX):CXCX1:A148(X$)784555:A147L(X$):(X$,1)" "X$(X$,(X$)1):4585:: ASK NUMBEREX$((X),2):4500:X(X$):X0X$"0"4812XXX1XX2"ILLEGAL ENTRY - PLEASE ENTER A NUMBER""IN THE RANGE OF"X1" TO"X2:4800# LOAD PROG# RA: DT1 RV1 i(RV),SE,DR$(RV)":DB"(34128)NA$",S,R"`$VORV: 8: SE: E 7c$ RA,DV(RV),RA,"#":BL0:24812XXX1XX2"ILLEGAL ENTRY - PLEASE ENTER A NUMBER""IN THE RANGE OF"X1" TO"X2:4800# LOAD PROG# RA: DT1 RV1  5/10/80 9:20  1100V15: 15,8,15,"S0:MAKE CALCS":"0:MAKE CALCS",8:~"CORECTIONS(Y/N)?":G1$"YN":54,4:4:"";:G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 "DISK ERROR:"E;E$;S;T F$(MR): KF=FLAG DIM7 TTTI: WR1 HR: 4200:KF$(WR)"":PO%(WR,WK)WRx : D1 SF%(WK,0):KF$(WR)KF$(WR)F$(SF%(WK,D))" ": D,WR D(HR2):"(SORTING)" RR1 HRD :E1RR:E2E1D : AS 2555 : AL E(KF$(PO%(E1,WK))KF:PO%(E2,WK)X  : E1D 2585' :E1E1D:E2E1D: 25400 RRK D(D2):D: D 2530Q# _( ASK ALLw- 2800: KEY CHANGE2 "FIELDS:":X1HF:""X""FT$(X):X7 :"YOU MAY CHANGE THE FIELDS THAT KEY NO"WK1"REFERS TO IF YOU WISS AVRSR READ A RECORD![ EXIT,L MAINEM LI253 IV,LI3rN 9300:" MAKING CALCULATIONSQ6100: MAKE CALCSVX$"CALC FILE": 9200: 1110 SEL TEST EA REC TR1: WS1HS: START TRUE( TR SE%(WS) )"RECORDS) K :X31:XSH:4400:SHXP ! KEY CHANGED "KEYS:":X0HK:""X1" ";w : D1SF%(X,0):FT$(SF%(X,D))":";:D:" ":X "WHICH KEY DO YOU WANT TO USE?" X11:X2HK1:XWK1:4800:WKX1: ASK FIELDS "HOW MAN HK : SF%(X,0)DE DESF%(X,0): MAX DEPTHT : D1 SF%(X,0): SF%(X,D)DK DKSF%(X,D): HI KY FLD #^ D,Xdxh READ A RECORDm R3 4300: WF1 HF:RA,F$(WF): WF:rL1:X1HF:#(RA),(WR),(L):RA,F$(X):LL(F$(X)):45007 X$"Y"X$"N""PLEASE ANSWER Y OR N":4400J:X$(X$,1):X( X( X3) (X$"Y")X3 ):oX$(LE$,(X$));:CX1: GARD INPM$(X$" ",CX,1):""M$"";:G$:G$""4565:A(G$):M$"";:(A 127)32CX77A344520 : 4560:CX1:X$"":4505$X$(X$,CX1)" "(X$,CX):G$" ";:: INM(LE$,CX1)(SP$,L)(LE$,L);:: CL{""M$"";:W150:G$:G$""M$"";::W:M$"";:W150:G$:G$"":W:4565(X$,1)" "X$(X$,2):4580: "INSERT PROGRAM DISK": 10#KK(0),"I0":"(LOADING "X$")"K# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E b# LI253 IV,LIt$ "0:"X$,8:T$ OPEN RAY$ DT1 RV1 "INSERT DATA DISK": 10[$KK(RV),"I"DR$(RV)^$ SE,DV 2810,2815,2820,2825,2830,2835,2840,2870,2890U SL%(WS)2 WS:: '' TEST AGAINh MUST BE 'OR'u TR  TR1: WS:"SELECT SYNTAX ERROR": SEL TEST EA CONDITION TR(F$(SA%(WS))SB$(WS)): TR((F$(SA%(WS)))(SB$(WS) "READY?":G1$"R":5:! MAIN7 SEL TEST EA RECS SEL TEST EA CONDITIONa! CALC DOw" MATH OPERATIONS% ASK REC) WRITE A REC* READ A RECORD+ POSITION POINTER/ RUNNING TOTALS= MAIN CALCULATEI PRINT TOT$(PO%(E2,WK))): 2565< : E(( KF$(PO%(E1,WK)) )(KF$(PO%(E2,WK)) )): 2565t : AL E(KF$(PO%(E1,WK))KF$(PO%(E2,WK))): 2565 : E(( KF$(PO%(E1,WK)) )( KF$(PO%(E2,WK)) )): 2565 : E0 2585 :XPO%(E1,WK):PO%(E1,WK)PO%(E2,WK) 17 {:UP$"":X1(F$(WF))C41:UP$UP$"":XQ ~: FT$(WF)":"R$;F$(WF);UP$"":X$:KE,X$: X1(X$):(X$,X,1)Q$"DO NOT ENTER QUOTES":3710 X X$F$(WF)X0HK:D1SF%(X,0):CKCK(WFSF%(X,D)):D,X :LL(X$)2:F$(WF)X RECORD m R3 4300: WF1 HF:RA,F$(WF): WF:\rL1:X1HF:#(RA),(WR),(L):RA,F$(X):LL(F$(X))2:Xbwy POSITION POINTERBL((WR1)RB.00001)1KK(RV),"U1:"RA;DR(RV);T%(BL);S%(BL):VORV:8:EX(WR1)(BL1)RB: N $"P"G1$"R":5:WRPO%(RR,WK): 4200: READ RECORDL: HS 2700: TR0 6165: SELECTEDY:RCRC1}: HO 3300: CALCULATE COLS : 4100: WRITE: 4700: RUNNING TOTS RR: 7300: PRINT TOTS,AVRSPRINT TOT AVERAGES:"WF1HF:FL%(WF)4FT$(WF)":"CT(WF,0)RC#WFH"NUMBER OF RECORDS SAMPLED:"RCh"CONTINUE?":G1$"C": 5n READ A RECORD# LOAD PROG# RA: DT1 RV1 "INSERT PROGRAM DISK": 10#KK(0),"I0":"(LO1 8: SE: E c$ RA,DV(RV),RA,"#":BL0:(WF,0)RC#WFH"NUMBER OF RECORDS SAMPLED:"RCh"CONTINUE?":G1$"C": 5n READ A RECORD# LOAD PROG# RA: DT1 RV1 "INSERT PROGRAM DISK": 10#KK(0),"I0":"(LO\ 1 0 3 1 1 0 85 0 0 1 1 0 "HI 1 1 0 0 0 0 0 1 0 )):! TR((F$(SA%(WS)))(SB$(WS))):@ TR(F$(SA%(WS))SB$(WS)):_ TR(F$(SA%(WS))SB$(WS)): TR(F$(SA%(WS))SB$(WS)): A1$F$(SA%(WS)):A2$SB$(WS) (A2$,1)"*" A1$(A1$,(A2$)1)"*"" (A1$)(A2$) TR0:' X1  ( OA$(WO) ,2) )> B$OB$(WO):B(B$):(B$,1)"F"B(F$(((B$,2))))x C$OC$(WO):C(C$):(C$,1)"F" C (F$(((C$,2)))) O$OO$(WO) (O$,1)" " O$(O$,(O$)1):3322 * 3400:F$(A)(X): DO OPERATION > (F$(A),1)" "F$(A)$"ABS" X(C): O$"LOG" X(C):1 O$"." XB:K O$"INT" X(C):b O$"R#" XRR:} O$"..." XB...C: "ERROR IN CALC#"WO: t ASK REC xCK0: CNG FLGG yL0: WF1 HF: C2 WFBF X$F$(WF):37 30 14 127 16 7 0 2 1 0 3 3 0 "TYPE "SUPPLIER "PRODUCT NAME "PRICE "START "ON HAND "REORDER 3 1 1 3 2 3 3 1 0 0 0 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 10 11 8 3 4 5 6 $ WF: LRS "REC TOO LARGE": 3705.3: G$"Y" 37054F WRITE A RECqX$"": X1 HF:X$X$Q$F$(X)R$: X R4 #(RA),(WR):(RA),X$;:" 4300:RA,X$;'KK(RV),"U2:"RA;DR(RV);T%(BL);S%(BL):VORV: 8:h READ A O. RECS BEFOR THIS IN THIS BLOCK-BP1RSX:KK(RV),"B-P:";RA;BP:B\ RUNNING TOTALSQaWF1 HFk FL%(WF) 6 CT(WF,0)CT(WF,0)(F$(WF))p WF: MAIN CALCULATE WF1HF:CT(WF,0)0:WFF$(0)"":RC0: RR1HR:G$:GS AVRSX0: WF1HF:XXFL%(WF): WF: X0 JX0: WF1HF:XX(FL%(WF)2): WF: X0 7316["TOTALS:"zWF1HF:FL%(WF)FL%(WF)6FL%(WF)2FT$(WF)":"CT(WF,0)WFX0: WF1HF:XX(FL%(WF)4): WF: X0 7335"ADING "X$")"# SE,8,SE,"0:"X$",P,R":VO0: 8: SE: E 6# LI253 IV,LIH$ "0:"X$,8:VT$ OPEN RAY$ DT1 RV1 "INSERT DATA DISK": 10[$KK(RV),"I"DR$(RV)^$ SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$",S,R"`$VORV: 12 1 13 14 9 2 7 1 11 1 12 1 13 1 14 1 15 1 16 1 17 1 18 1 19 1 20 2 0 2 1 2 2 2 3 2 4 2 5 79 79 79 79 79 79 79 # 1100=15: 15,8,15,"S0:VIEW SEQ":"0:VIEW SEQ",8:K4,4:4:uG$:V1(G1$):G$(G1$,V,1)V:5{KK(VO),E,E$,S,T:E2 "DISK ERROR:"E;E$;S;T "READY":G1$"R":5: INSTRUCTIONS KBD1 ASK NUMBER(A2$)3 , (A2$,X,1)"?" (A2$,X,1)(A1$,X,1) TR0:< 1 X:p 6 X$F$(SA%(WS)):Y$SB$(WS):X1(X$):Y1(Y$) ; (X$,X,1)(Y$,Y,1)TR1: @ Y,X:TR0: J TR((F$(SA%(WS)))(F$((SB$(WS))))): CALC DO WO1 HO A( (F$(A),2) G WO: H MATH OPERATIONS3 a O$"+" XBC:J f O$"-" XBC:j k O$"X" O$"*" XBC: p O$"/" CXBC: u O$"^" XBC: z O$"SIN" X(C): { O$"RND" X(C):  O$"TAN" X(C): O 505: LF' :A29CX(X$)CXCX1:G$;:4505:RI= :A134580: RETr :A20CX1G$;:X$(X$,CX2)(X$,CX):CXCX1 :A148(X$)784555 :A147L(X$):4560:CX1:X$"" :4505 X$(X$,CX1)" "(X$,CX):G$" ";:: IN  500:X(X$):X0X$"0"4912 /XX1XX2N 0"ILLEGAL ENTRY - PLEASE ENTER A NUMBER"v 3"IN THE RANGE OF"X1" TO"X2:4900 # LOAD PROG #"INSERT PROGRAM DISK IN DRIVE IF NECESSARY" # 10:KK(0),"I0":"(LOADING "X$")" # SE,8,S,RA,"#":BL0:C$"0"4912 /XX1XX2N 0"ILLEGAL ENTRY - PLEASE ENTER A NUMBER"v 3"IN THE RANGE OF"X1" TO"X2:4900 # LOAD PROG #"INSERT PROGRAM DISK IN DRIVE IF NECESSARY" # 10:KK(0),"I0":"(LOADING "X$")" # SE,8,S 20 10 127 11 10 0 2 1 0 7 2 0 "FIRST NAME "LAST NAME "COMPANY "STREET "CITY "STATE "ZIP "COUNTRY "PHONE "TYPE 2 1 2 7 1 0 0 0 0 0 0 0 5 2 10 4 1 9 3 8 6 7 1 2 4 5 6 7 8 10 5/10/80 9:20  1100T15: 15,8,15,"S0:DO UPDATE":"0:DO UPDATE",8:h4,4:4:"";:G$:V1(G1$):G$(G1$,V,1)V:5KK(VO),E,E$,S,T:E2 "DISK ERROR:"E;E$;S;T "CONTINUE?":G1$"C":5: MAIN  RESORT?[ EXIT\ OPEN SEQ*L MAINCN LI253 IV,LI3iQ" MAKING CALCULATIONSS 6300: CK SP1: RESORT?V 9200: E 1135: OPEN FILE---[ WC1 HC:SE,CC$(WC):EFEFST: WC:FI$CC$(SK)Z$]: 3200: FINDL MAIN Q MT1 59468,14?R MT1 (142128);(8);YV 2100: INSTRUCTIONS[ 2200:WC1:RC1: E SE: 1110: KBD+OPENf:WC1 "RECORD#"RCj: SE,X$:EFST:Q$X$Q$:WCWC1:WCHCWC1:RCRC1o: G$: G$" " G1$" S"HILE THE CONTENTS ARE BEING DISPLAYED, ";dH"YOU MAY PRESS THE SPACE BAR TO START AND STOP THE DISPLAY"M"YOU MAY PRESS THE S KEY TO EXIT" KBD"NAME OF FILE? (LEAVE BLANK TO RETURN TO "MM$")"X$N2$:4500:N2$X$ N2$"N2$",S,R" VOQV: 8:7 X$(LE$,(X$));:CX1: GARD INPj M$(X$" ",CX,1):""M$"";:G$:G$""4565 :A(G$):M$"";:(A 127)32CX77A344520 : G$;:X$(X$,CX1)G$(X$,CX1):CXCX1:4505 :A157CX1CXCX1:G$;:4 BOOK-q SE:UKWK:"(SCRATCHING OLD BOOKKEEPING)"ev:KK(RV),"S"DR$(RV)":DB"NA$:VORV: 8: E1 | SE,DV(RV),SE,DR$(RV)":DB"NA$",S,W":VORV: 8:E SE,MR;R$HR;R$RS;R$HB;R$HF;R$SF;R$RB;R$HK;R$WK;R$DK;R$DE;R$MC;R$;  WF1 (LE$,CX1)(SP$,L)(LE$,L);:: CLC ""M$"";:W150:G$:G$""M$"";:i :W:M$"";:W150:G$:G$""w :W:4565 (X$,1)" "X$(X$,2):4580 :(X$,1)" "X$(X$,(X$)1):4585 :: $ ASK NUMBER .X$((X),2):4E,"0:"X$",P,R":VO0: 8: SE: E + # LI253 IV,LI= $ "0:"X$,8:K T$ OPEN RAz Y$ DT1 RV1 "INSERT DATA DISK": 10 [$KK(RV),"I"DR$(RV) ^$ SE,DV(RV),SE,DR$(RV)":DB"(34128)NA$",S,R" `$ 8: SE: E c$ RA,DV(RV) HF:SE,Q$;FT$(WF);R$;: WF=  D05: X0HK:SE,SF%(X,D);R$;: X,DV "(SAVING POINTERS)" : X0HK: RR1 HR:SE,PO%(RR,X);R$;: RR:X  R3 "(SAVING BLOCK MAP)": X110: X : R3 WB1 HB:SE," "T%(WB)R$" "S%(WB)R$;:WB" 9 3 1 0 1 1 1 2 1 3 1 4 1 5 1 6 1 7 1 8 1 9 1 10 79 79 79 79 79 79 79 79 79 79  CHANGE REC CALC DO- EQUAL SEARCHC" MATH OPERATIONSS# CANT FINDe) WRITE A RECy* READ A RECORD+ POSITION POINTER, YES?/ RUNNING TOTALS3 CHUNK DOWN4 CHUNK UP5 FIND POINTER; PASS PARAMS? RAN RECORD.^: FO$FI$ 3500: 1125: UNFOUNDr_: FO$"": FRHR RRFR:WRPO%(RR,WK): 4200:FO$F$(SF): RED`: 3100: MAKE CALCSb: 2200: CHANGE RECe: EF0 1115o SE: SP 1900t"": 9100:: EXITl SAVE: 5p: G$"S" EF1&t EF0 1126/y SE_~"AGAIN?(Y/N)":G1$"YN":5:G$"Y"1110xX$MM$: 9200: 11994 INSTRUCTIONS9"VIEW SEQ>"THIS PROGRAM ALLOWS YOU TO VIEW THE CONTENTS OF A SEQUENTIAL FILE#C"W"" X$MM$: 9200: 2215;"ENTER NO. OF FIELDS PER REC IF ANY"\X10:X2100:XHC: 4900:HCX"INSERT DISK WITH SEQ FILE": 10QV0: DT1 "DRIVE?(1/0)":G1$"10": 5:QV(G$)KK(QV),"I"DR$(QV)  SE,DV(QV),SE,DR$(QV)": 1)2:E(BR)2_5900: ML51: FIND POINTERN: FOR FR=1 TO HR:IF PO%(FR,WK)<>FI THEN NEXT FRa: :RETURNqS12:5900 B72,FI256: B73,FI 255: HI LO ! B74,1: B75,0: LO HI B76,HR256: B77,HR 25 XD)256* B74,(XE)255: B75,(XE)256/ RESORT?3CK0: CHANGE KEY?B X0 HKX: Y1 SF%(X,0)j: WO1 HO: SF%(X,Y)( (OA$(WO),2) ) CK1 WO,Y,X# EXIT# LI253 IV,LI#"UPDATE", "MATTY "HELM "JJ ROSCO CORP "MILFORD "ROCKSLIDE "MN "12345 " "123-456-7410 "ML- "ANN "COURTNEY " "1032 PINE ST. "PHILA. "PA. "19107 " " "HN- "MICHAEL "RILEY "TOTAL CONTROL SOFTWARE "1032 PINE ST "PHILA "PA "19107 " "(215) WA3-9663 "AA- "SAM "GALBIRTH " " R4#(RA):#(RA),("RA"NA$),L(RS),D(DR(RV))B X1HF:SE," "MF%(X)R$;:X\ SP0: SE:VORV: 8:m  CHANGE REC  CK04100: URWR:UKWK:4500:EMBER WR,WK WK0HK :FIUR:5300:BRFR1:TRHR:HRHR1 :BRTR5100: DEL P A( ( OA$(WO) ,2) )@ & B$OB$(WO):B(B$):(B$,1)"F"B(F$(((B$,2))))g ' (B$,2)"SF"B(CC$(((B$,3)))) + C$OC$(WO):C(C$):(C$,1)"F" C (F$(((C$,2)))) , (C$,2)"SF" C (CC$(((C$,3)))) 0 O$OO$(WO) 2 (O$,1)" " O X1 DK:RA,X$(X): X:FO$"": :X1SF%(WK,0):FO$FO$X$(SF%(WK,X))Z$:XS : FI$FO$ FRP%:q : FI$FO$ THP%:3210 :TLP%:3210 L1:X1DK:#(RA),(WR),(L):RA,X$(X):LL(X$(X))2:X H MATH OPERATIONSa O$"+"  XB:  O$"INT" X(C):$ O$"..." XB...C:B "ERROR IN CALC#"WO:R CANT FIND "CAN'T FIND RANDOM RECORD WHOSE KEY IS "FI$ "DO YOU WISH TO CONTINUE WITH THE REST OF THE FILE?" X1:X31: 4400: X0 EF1#(RA),(WR),(L):RA,F$(X):LL(F$(X))2:Xw+ POSITION POINTERUX((WR1)RB.00001)1: BLX 4315:BLX:KK(RV),"U1:"RA;DR(RV);T%(BL);S%(BL):VORV:8:EX(WR1)(BL1)RB: NO. RECS BEFOR THIS IN THIS BLOCKBP1RSX:KK(RV WF: CHUNK DOWN7: FOR X=BR TO TR:PO%(X-1,WK)=PO%(X,WK):NEXT X:RETURNDBRTRcSBR2:D(BR1)2:E(TR)2t5900: ML:P CHUNK UPU: FOR X=TR TO BR STEP-1:PO%(X+1,WK)=PO%(X,WK):NEXT X:RETURNZS(TR)2:D(TRCH INC "SAILCAT LN "CROSSOVER "UT "45289 " "333-343-4343 "3D- "SAM "SPADSKI "SPACE TOYS INC. "256 ASH DR. "CHICAGO "IL "45698 " "456-852-6547 "UT- "MURIEL "MASON "WITCHITA GUN CLUB "43 GRENADER ST. "WITCHTA "OH "78965 " "753-951-1456 "A "JOHN "DOE "PROGR5: HI LO !  ML104:FR(B74)256(B75):  PASS PARAMS5PO%(0,0)525610fX(ZV2)256(ZV3)9AO: POS OF PO%(0,0)XX(MR1)2WK: POS OF PO%(0,WK) HI LO BYTE  B7,(XS)255: B71,(XS)256% B72,(XD)255: B73,(8:VO0:8:# OPEN SEQ#X07#"SEQUENTIAL FILE DRIVE?(1/0)":G1$"01": 5:QV(G$)[$: QVRV KK(QV),"I"DR$(QV)$: SE,DV(QV),SE,DR$(QV)":"NS$",S,R" $:VOQV: 8: E SE$: E X0 X1: 9215S$FD)255: B73,( 1570 BAIMBRIDGE "PHILA "PA "19108 " "(215)WA8-1234 "AB- "OGDEN "BOWSPRINT "OMAR'S DRESSES INC "SUNSET DR "HALESVILLE "NC "42342 " "423-426-6523 "BA- "EARL "WICK "CLANDESTINE INC "LOVERS LANE "PERKY "OH "43951 " "302-856-7842 "VS- "MEL "WONDER "PSI RESEARTR2 :FI$"": D1SF%(WK,0):FI$FI$F$(SF%(WK,D))Z$:D:3200f :BRFR:TRHR:BRTR 5200: INSRT FOR NEW PNT :HRHR1:PO%(FR,WK)UR: NEW PTR WK:WRUR: 4100: NEW REC WKUK:FIWR:5300:RRFR:3500:  CALC DO  WO1 HO !$(O$,(O$)1):3122( b 3400:F$(A)(X): DO OPERATIONM v (F$(A),1)" "F$(A)(F$(A),2)X  WO:l EQUAL SEARCH TL0:THHR1: TOO LOW, TOO HIGH THTL1FRTH: :P%(TLTH)2.1:WRPO%(P%,WK): R4 3240: 3225  : 4300:XBC:f O$"-" XBC:(k O$"X" O$"*" XBC:Ap O$"/" CXBC:Xu O$"^" XBC:rz O$"SIN" X(C):{ O$"RND" X(C): O$"TAN" X(C): O$"ABS" X(C): O$"LOG" X(C): O$"."  WRITE A REC#X$"": X1 HF:X$X$Q$F$(X)R$: XF R4 #(RA),(WR):(RA),X$;:Y" 4300:RA,X$;'KK(RV),"U2:"RA;DR(RV);T%(BL);S%(BL):VORV: 8:h READ A RECORDm R3 4300: WF1 HF:RA,F$(WF): WF:rL1:X1HF:),"B-P:";RA;BP:0 YES?%5("YN",1((XX3)0),1)"":KE,X$:]7 X$"Y"X$"N""PLEASE ANSWER Y OR N":4400:X$(X$,1):X( X( X3) (X$"Y")X3 ):\ RUNNING TOTALSaWF1 HFk FL%(WF) 6 CT(WF)CT(WF)(F$(WF))p 3 5 1 TEST 5 5 0 0 1 3 TEST 1 27 58 1 2 0 3 0 0 4 0 0 5 6 7 8 0 0 7 4 80000 1 0 27 69 0 0 0 0 0 0 0 0 11 4 0 0 2 1 1 3 1 ACCOUNTING DEPARTMENT AMER "2040 DISK DRIVE "SILICON VALLY "CA "78965 " "(216)YU6-2121 "BV- "MINNY "POPOVER "CREIG MISIC CO "WALKALONG "MIAMI "FL "98765 " "UNLISTED "UT- "EARL "WICK "CLANDESTINE INC "LOVERS LANE "PERKY "OH "43951 " "302-856-7842 "VS- "MEL "WONDER "PSI RESEAR * PROTCOMB SET FOR 64 & DISK SEE &&ST 2,8,1,"@0:PRACTIFILE" : &DISK ONLY`74096.OPT O2 ;&DISKO2,TAPEOO TRANFER W MIR.OPT PE $2A7#WARMST $302(KBUFF 631-STRT $2301 ;&V$1F01,64$15012WARMLNK `MAIN MENU R   -.ƽw Slô$""~: FT$(WF)":"R$;F$(WF);UP$"":X$:KE,X$:X1(X$):(X$,X,1)Q$"DO NOT ENTER Q(`x) )X`3ȱũŪ`i榥i樰ȱũŪ`8Ʀ8KKKKKKK$A483 ;&V$C483,64$A48397TE $F6ED ;&V$F770,64$F6ED_<RELINK $E453 ;&V$E45B,64$E453AE $C38B ;&V$C43A,64$E38BFDEVICE 8 ;&TAPE1,DISK8P E ;TEST WEDGEdNAME . "MAIN MENU"i .BYTE 13,82,213,13BEGIN LDA #1KƨŧȱŨ`檥i榥Ŭ٥ū`-Hȱ-ȱ-h`)A[EɀEɀ) TT!~AFu Lȭȑ Q'􈈈'Н`LDA #1KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK