DM144:!(RC$(DM),P$(DM)-2K$(DM)H<L$(DM),J$(DM),TEL(DM)]FA$(DM):B$(DM):PSS$"": 20 SHIFT SPACEZS2$" ":_S3$S2$" "dPL$"" nRV$"":H$"":8 xUN$(27)(45)(1):UF$(27)(45)(0)F FF$(12)a "":53280,0:53281,0 T0:C(0)7:C(1)11:C(2)15 C$(0)" T E L I S T E R " C$(1)"(C) 1989" C$(2)"LAMBERT KLEIN X2(C$(T))1:X120(X22):Y1C(T):Y21% 3460:X11);C$(T):TT1:T3T0D CLCL1:646,CL:CL19190N 2820p DV,DV,15:SDDV SD,SD,15 X1:N0:C0 1300 "":XN1:NX X110:X217:Y107:Y21:"":3460 X11)" 'E' TO END ":N03005 "646,15:Y11:3460:X11)""A$(X1):Y14:3460:X11)""B$(X1)E ,Y110:3460f 6646,15:Y113:3460:X11); @" ENTER NAME ";X:"" JA$(X) T""S2$ ^A$(X)"E"NN1:1300 cA$(X)""NN1:1300 hA$(X)(A$(X)SS$,16) rY110:3460:X11)""A$(X):Y113* |3460:""X11);K " ENTER NO. ";X:""V B$(X)b ""S2$ (B$(X))7B$(X)(B$(X),3)"-"(B$(X),4) B$(X)(B$(X)SS$,16) XX1:NX 290  PRINT-OUT N0510 646,4/ X216:X110:Y111:Y21:646,10:3460:X11)"NOTHING TO PRINTD T1500::1350O 4,4 :x 646,06:X110:X217:Y102:Y21:3460 X11)" WAIT..." NDM4560 F14:J$(NF)" ":K$(F)" " &&0F1N:J$(F)" "A$(F)" ":K$(F)" "B$(F)" ",:U?646,06:X110:X217:Y102:Y21:3460rAX11)" PRINTING..."D4,(27)(49);N4,(27)(71);b4,(27)(69);l4,15);v4,UF$44,(27)(53):X1N4 4,"Ϸ Ϸ";R4," Ϸ Ϸ"h4,J$(X);J$(X1);4,J$(X2);J$(X3);4,""17)" "17)" "17)" "17)""4,K$(X);K$(X1);4,K$(X2);K$(X3); 4,"̤ ̤";?4," ̤ ̤"I4:4[X574,FF$;b :Y110:4,(27)(7)::4,(27)(12) Y13:11179:*4:4:13004 SAVE FILE>N0NXHX0RN0880&\X215:X111:Y111:Y21:646,10:3460:X11)"NOTHING TO SAVE";fT1500::1350Jp"":A0z646,5:X11:X29:Y116:Y21:3460:X11)" UNIT"DVPL$" "DF$:NF$""PL$;:"FILENAME";NF$:NF$""1300DF$NF$NF$"T."NF$",S,W"2,DV,2,NF$:X02160:A0980#A631040-1090l646,1:X115:X213:Y120:Y23:3460:X11)" SAVING FILE"wXX1:2,A$(X):2,B$(X):XN1030XDM 10309902:A0:1300X2(B$):X115:Y118:Y22:646,2:3460X11)""B$:X11)"REPLACE?"'$AN$:AN$""1060:.AN$"Y"1030X8A0:2:NF$"@0:"NF$:940BX115:X2(B$)2 :Y120:Y23:646,2:3460LX11)""B$:VT1500::1030`"";j LOAD FILEt3070:NT$"NOT"1340~MG$" LOAD":FL$DF$ X0:N0:A04X113:X212:Y120:Y21:646,1:3460PX11)"LOADING....."oRN$RN$",S,R":2,DV,2,RN$646,06:X110:X217:Y102:Y212170:A0 3460:X11);B$:11179:2:1300XX1:NN1:2,A$(X):2,B$(X)XDM"OVERLOADED!":TT11800::EDM:1260)64ST126031220m(RC$(0),1)(32)RC$(0)(RC$(0),(RC$(0))1):1260(FL$,1)(32)FL$(FL$,(FL$)1):12702: 1300 MENUSF$"(SORT FIRST)"(N0N02""<53280,0:53281,0F11179PMG$" LOAD"?Z646,14:X110:X217:Y15:Y210:3460GdXNanX11)"ENTER/ADD"yxX11)"LOAD"LM$X11)"SAVE"SM$X11)"VIEW"X11)"PRINTX11)"^SORTX11)"DELETEX11)"RESTARTX11)"FIND "SF$3X11)"-SCRATCH FILETRC$(0)""RC$(0)"TELISTER"kFL$""FL$"MENU"(RC$(0))15RC$(0)" "RC$(0)" ":1510(FL$)15FL$" "FL$" ":1520NT$"NOT"1560646,06:X110:X217:Y102:Y21:3460X11)"" RC$(0)5Y117:Y21:3460:X11)""FL$I"A$:A$""1570[,A$"R"1630t6"ARE YOU SURE?";@G$:G$"Y"JG$""1600T1300^NT$""hA$"D"2560rA$"L" DVDV(1):12002,DV :1130 |A$""DVDV(2):12002,DV:1130IA$"^"Y117:Y21: 3460:X15)" SORTING ":2220ZA$"F"2360jA$"E"260A$"S"DVDV(1):820A$""DVDV(2):820A$"P"470A$"V"1770A$"-"3020A$"Q"DV:SD:1560  *** VIEW SCREEN ***N01810\X215:X111:Y111:Y21:646,13:3460:X11)"NOTHING TO VIEW"qT1500::1350|R$"""":X113:Y12:Y22:2780&" "R$"PRESS SPACE BAR TO SCROLL ":T1100:0R$""R$"":1860:R$""R$""DA$:A$""1830?N" NAMES"12)"NUMBERS":X0:::TXX1(N):X$(X)ql(X$)3X$X$" ":1900qX$"#"X$v""X$;1);" "A$(X);" "B$(X)A$:A$""1930A$"\"XN:X11:X227:Y101:Y21:646,3:3460#X11)" ARE ENTRIES CORRECT (Y/N)"7C$:C$""1970HC$"Y"2000ZC$"N" 2025lC$" "1300646,(646)1:3460:1955 *** CHANGE/CORRECT ENTRY ***X11:X227:Y101:Y22:646,14:3460 X11);:"CHANGE WHICH ENTRY";E$:E((E$,3))EDM2025"34607S3$:S3$:"";e XE:X13);A$(E):X13);B$(E)"":"";zX11)"";:N$:X11)"";:NO$(NO$)7NO$(NO$,3)"-"(NO$,4) A$(X) (N$SS$,16)*B$(X) (NO$SS$,16)/3460 4X11)"ANOTHER (Y/N)>19,0-HAN$:AN$""2120?RAN$"Y"2025Q\AN$"N"2000[f2095p *** READ DISK ERROR CHANNEL ***zPK(186):PK8 PK12PKDVDV,A,B$,C,D *** SORTING ***N01300S1NS2S1 S2(S22):S202340S31:S4S1S2'S5S3HS6S5S2:A$(S5)A$(S6)2320A$(S6)A$(S5)"DUPLICATE "A$(S6)" "B$(S6)" "B$(S5)S7$A$(S5):Z$B$(S5):A$(S5)A$(S6):B$(S5)B$(S6):A$(S6)S7$:B$(S6)Z$S5S5S2:S512320 2270  S3S31:S3S42240  2260 $ 13307 . *** FIND NUMBER ***G 8 HN:L1:R0U B N01300u G X223:X17:Y117:Y21:3460 L X11)"WHOSE TELEPHONE NUMBER:":: V N$:LE(N$) ` M((H1L)2)L j HL52450 t N$(A$(M),LE)RM:2470!~ N$(A$(M),LE)LM1:24003! N$(A$(M),LE)HM1:2400R! JLH:N$(A$(J),LE)RJX! ! X11:X235:Y119:Y21:646,7: 3460! X11);! R0"NOT FOUND":T1780::SF$"(SORT FIRST)":1330! "";A$(R)" "B$(R)" X11:X235:Y122:Y21:646,15: 3460-" X111) "PRESS ANY KEY"A" A$:A$""2530K" 1330f" *** DELETE *********s" "";" N11300" X114:Y11:Y22: 2780:""" X1N2:X$(X):X$(SS$X$,3):""X$""A$(X);20);"( XN2660#2 X$(X1):X$(SS$X$,3):""X$""A$(X1)*#< N1:13002#F Q$H#P Q$"\"XN:2660g#Z S(653):S1S2S42630#d ::"'0'FOR MENU":"":#n 198,0:T1100:#x "DELETE WHICH ENTRY 0";E:E01300# EN 1300# "TO":E2:E20E2E$ E2NE2E$ N2EE2"$ ""A$(E),B$(E)@$ A$(E)"":B$(E)"":XEN:h$ A$(X)A$(X1):B$(X)B$(X1)::NN1v$ N0N0$ N2:E20$ 1330$ 646,13:X24:3460$ X11)"\ TO"$ X11)"HALT"$ $ **** CHECK FOR DEVICE PRESENT ****'% D0:O0:C811:15,C,15:15:ST02850?% DD1:DV(D)C:OO1N%" :MMD:D0%, C1O:15,DV(C),15,"UI":15,EN,EM$,A,B:DZ$(EM$,4)%6 DZ$"1581"DO$(DO$,12)%@ :DO$(DO$,12)%J C1Z1$DZ$:ZO$DO$%T C2Z2$DZ$:Z3$DO$&^ O1Z2$Z1$:Z3$ZO$&h C2Y1$DZ$:Y2$DO$(&r 15: :1&| BK1O& DV(2)0BK0:DV(2)DV(1)e& DVDV(1):SDDV(2)q& 186,DV& MM1LM$"":SM$"":& LM$" SHFT/L"(DV(2))& SM$" SHFT/S"(DV(2))& ' MG$"SCRATCH":11818:53280,2:3070:NT$"NOT"1340' SC$"S0:"RN$:DV,SC$\' X2(RN$)(NT$)9:X120(X22):Y12:Y23 :646,10:3460' :""X11);(RN$,3);NT$;" SCRATCHED!"' T1500:: 1300' ""' X121:X215:Y11:Y25 :646,5:3460' ' X12)"CURSOR/RETURN"(& X12)"TO"MG$" FILE"*(0 X12)"\ FOR MENU"5(: 11818X(D 646,06:X110:X217:Y102:Y21e(N E(254)(X 2170:A03460:X11)""B$:A0:NT$"NOT":(b "";(l E03220(v X128:X209:Y10:Y27:3460({ :) X11)" NO 'T'":X11)"FILES ON":X11)" DISK"%) NT$"NOT":T) X11:X218:Y11:Y2E2:646,6:Y220Y220f) LG0:BG0:A1x) E19LGE19) 3460) P$(ABG)RV$) EDELGBG:EDEEDE) H$: T1BGED) X12)""P$(T);(RC$(T),(RC$(T))2)"") * A$:A$""3310* A$(13)3430,* A$"\"1300M* P$(IIBG)"":P$(1BG)""x* A$(17)AA1: A20BG19:A1:3460* A$(17) AEA1:BG0:3250** A$(145)AA1:A1BG19 BG0:A19:3460*4 A1E19BG19:A1:3460*> ABGE3230+H A1AE:3460&+R P$(ABG)RV$:IIA0+\ 3270O+f RN$RC$(ABG):P$(ABG)""`+p DF$(RN$,3)f+z s+ WINDOW+ 11486,X1:11488,X2:11487,Y1:11489,Y2:11284: +ԩԩԩԩ(Ԣ8 ,3i ,L+ +``Hh` , L!, , , , , ,  ,i Lv,`,  L, `, L,`, , L, ,L,`%"-͆ - L,"-` (. ܠ.  980/i   8`-" 9I99 iLf.Lh.;ȥ8;L.$$0:T.*̢ͥ`