/)"   BASE EADER-128 BY EN AYSJ1:SC(X):SC5100002%:F6:0,0,79,24,1:(14):KM$"OUNESIGN":Z18:MK$MK$KM$::KL$KM$:KM17I124:MK$:<12,6,65,18,1: I112::" ";:F: "ASE EADER 128 - ERSION 1.0":"":18,18,65,18,1KKM$" Y EN AYS - "KM$:I1(KM$):""(KM$,I);:: 5:"": 2 dSC50,0,79,24,1:0,0,39,24,1CiFI$"":" AIN ENU ":an" $ - IRECTORY":o" - ELECT AGE #":p" - ULL EVIEW (EW ASE 1-100)":q" - ITLE":r" - NDIVIDUAL EQ. ILE":s" - XIT O ASIC":Bt"  PACE AR - EXT AGE"KxQ$dySC50,0,39,24,1|{Q$"E"Q$""9999|Q$"$"200}Q$"S"Q$""400~Q$"F"Q$""1010Q$"T"Q$""600Q$"I"Q$""300Q$" "500 1:100< "  LEASE CONTACT ME FOR SUPPORT: l "  EN AYS "  98 RINCETON T. "  PRINGFIELD, 01109 !10030:" IRECTORY - O CROLL AUSES":10032!: 5:>!, SC5 0,0,39,24,1:0,0,79,24,1!6" NDIVIDUAL EQ. EADER":"EQUENTIAL FILE TO EAD";FI$:5005:9000:!10030:" ELECT AGE #":10032:"AGE # TO READ";KM:20000:9000:K$:4"10032:KM$(KM):K(KM$)1:KM$(KM$,K):FI$"PAGE"KM$:20000:KMKM1:9000:S"X10032:KM1:20000:9000:Y"y"W1:KM1100:W0W1:W0"SC51016"W08,22,38,23,1:50,22,79,23,1""AGE #"KM"":SC51030"W00,0,38,21,1:41,0,79,21,16#KM$(KM):K(KM$)1:KM$(KM$,K):FI$"PAGE"KM$:20000D#:9000:p#KM100"HERE IS O UCH FILE.": 4:# #1,(FI$):DS0DS$:15,8,15:15,"UI"::#: #1,(FI$):B$""#ST64:#1,A1$:A1$;:B$:(B$)0#: $(#"RESS ANY KEY":A$:c$'"";:F)"ASE EADER 128 - ERSION 1.0 Y "KL$"/˜EN ͖AYS":::$'F1:&::4,1:0,1:5,6:K$"OUNESIGN":KL$K$:Z124:(14)K$K$K$K$::10,7,29,16,1I%': " ASE EADER 128 ":"":::" ERSION 1.0": 5:0,0,39,24,1:KL$" "KL$:105q%.'SC50,0,39,1,1:41,0,79,24,1w%/'%0'SC50,1,39,24,1:41,1,79,24,1%1'% N #14,"FILE,R":OK0:B$""%RN#14,(KM4),1:30000&\NOK20(B$)0:B$:#14,RE$:30000&fNRE$(13)OKOK1.&pNRE$;:::;&0uDS20Q&1u"ERROR:"DS$::