# (C) 7/20/89 LAMBERT KLEING RELEASED TO THE PUBLIC DOMAINh NOT TO BE SOLD FOR PROFIT.tDM350:FA$(DM):B$(DM):KNF$"T.TELISTER FILE"MTT$"TELISTER II"NT2$"NO FILE IN MEMORY" OQS$" SAVE THIS FILE TO DISK? Y/N "3 PSS$"": 20 SHIFT SPACEI UBG$" ":EN$" "n ZS2$" ": _S3$S2$" " dPL$"" xUN$(27)(45)(1):UF$(27)(45)(0) FF$(12) "":53280,0:53281,0$ X13:X233:Y11:Y222:646,64 104341,29> 3460N 104341,32m T0:C(0)4:C(1)08:C(2)12 C$(0)" TELISTER II" C$(1)"(C) 1989" C$(2)"LAMBERT KLEIN T02 X2(C$(T)):X120(X22):Y1C(T):Y21 646,15 3460:X11);C$(T) ! 2820C DV,DV,15:SDDV SD,SD,15S X1:N0:C0{ 1130:2180:A0 T2$B$:N0:1310 T2$"FILE IN MEMORY" 1300 "":XN1:NX 646,15:Y11:3460:X11)""A$(X1):Y14:3460: X11)""B$(X1):# X110:X217:Y107:Y21:"":3460O "X11)" 'E' TO END ":N0300_ ,Y110:3460 6646,15:Y113:3460:X11); @" ENTER NAME ";X:"" JA$(X) T""S2$ ^A$(X)"E"NN1:830 cA$(X)""NN1:830 hA$(X)(A$(X)SS$,16), rY110:3460:X11)""A$(X):Y113B |3460:""X11);c " ENTER NO. ";X:""n B$(X)z ""S2$ (B$(X))7B$(X)(B$(X),3)"-"(B$(X),4) B$(X)(B$(X)SS$,16) XX1:NX 270  PRINT-OUT N0510646,4GX216:X110:Y111:Y21:646,10:3460:X11)"NOTHING TO PRINT\T1500::1350g4,4 :646,06:X110:X217:Y102:Y21:3460X11)" WAIT..."F14:A$(NF)" "&B$(NF)" "+?646,06:X110:X217:Y102:Y21:3460;AX11)" PRINTING..."cD4,(27)(49);: 7/72 LINE SPACINGN4,(27)(71);: DOUBLE PRINTINGb4,(27)(69);: EMPHASIS4:X1N44,"Ϸ Ϸ";,4," Ϸ Ϸ"R4,BG$;A$(X);EN$;BG$;A$(X1);EN$;x4,BG$;A$(X2)EN$;BG$;A$(X3)EN$;4,""17)" "17)" "17)" "17)""4,BG$;B$(X)EN$;BG$;B$(X1)EN$;4,BG$;B$(X2)EN$;BG$;B$(X3)EN$;!4,"̤ ̤";S4," ̤ ̤"]4:4oX574,FF$;v : Y13:10030:*4:4:13004X2(QS$)2:Y121:Y21:X120(X22):646,2:34605X11);QS$6A$:A$"Y"8307A$"N"1300 8822!> IFN=0THENN=X)HX07RN0880z\X215:X111:Y111:Y21:646,10:3460:X11)"NOTHING TO SAVE"fT1500::1300pA0z646,5:X11:X29:Y116:Y21:3460:X11)" UNIT"DVRF$NF$2,DV,2,RF$",S,W":X0 2160:A0980A631040"1090a646,1:X115:X213:Y120:Y23:3460:X11)" SAVING FILE"lXX1: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"1030M8A0:2:RF$"@0:"RF$:940{BX115:X2(B$)2 :Y120:Y23:646,2:3460LX11)""B$:VT1500::1030`"";j LOAD FILEt~MG$" LOAD":X0: :A0 X113:X212:Y120:Y21:646,1:3460)X11)"LOADING....."@2,DV,2,NF$",S,R"c646,06:X110:X217:Y102:Y212170:A03460:X11);B$:10030:2:1300N0XX1:NN1:2,A$(X):2,B$(X)XDM"OVERLOADED!":TT11800::EDM:126064ST1260 12202: XT2$"FILE IN MEMORY:": N0 T2$"NO FILE IN MEMORY"mA0T2$B$:A0SF$"(SORT FIRST)"(N0N02""<53280,0:53281,0F10030PMG$" LOAD"RNT$"NOT"1370 T646,06:X110:X217:Y102:Y21:3460UX11)""TT$DZ646,14:X110:X217:Y15:Y210:3460LdXNdnX11)"ENTER/ADD"{xX11)"LOAD "LM$X11)"SAVE "SM$X11)"VIEW"X11)"PRINTX11)"^SORTX11)"DELETEX11)"RESTART X11)"FIND "SF$.Y117:Y21:3460:X11)""T2$B"A$:A$""1570T,A$"R"1630m6"ARE YOU SURE?";@G$:G$"Y"JG$""1600T1300^NT$""hA$"D"2560rA$"L" DVDV(1):10550,DV : 1130:1300|A$""DVDV(2):10550,DV:1130:1300OA$"^"Y117:Y21: 3460:X15)" SORTING ":2220`A$"F"2360pA$"E"260A$"S"DVDV(1):830A$""DVDV(2):830A$"P"470A$"V"1770A$"-"3020A$"Q"DV:SD:1560 *** VIEW SCREEN ***N01810bX215:X111:Y111:Y21:646,13:3460:X11)"NOTHING TO VIEW"wT1500::1350R$"""":X113:Y12:Y22:2780&" "R$"PRESS SPACE BAR TO SCROLL ":T1100:0R$""R$"":1860:R$""R$""DA$:A$""1830EN" NAMES"12)"NUMBERS":X0:::ZXX1(N):X$(X)wl(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)"=C$:C$""1970NC$"Y"2000`C$"N" 2025rC$" "1300646,(646)1:3460:1955 *** CHANGE/CORRECT ENTRY ***X11:X227:Y101:Y22:646,14:3460X11);:"CHANGE WHICH ENTRY";E$:E((E$,3))EDM2025(3460=S3$:S3$:"";t(B$(E),1)(160)B$(E)(B$(E),(B$(E))1):2055 XE:X13);A$(E):X13);B$(E)"":"";X11)"";:N$:X11)"";:NO$(NO$)7NO$(NO$,3)"-"(NO$,4)  A$(X) (N$SS$,16)%*B$(X) (NO$SS$,16)//3460J4X11)"ANOTHER (Y/N)T>19,0jHAN$:AN$""2120|RAN$"Y"2025\AN$"N"2000f2095p *** READ DISK ERROR CHANNEL ***zDV,A,B$,C,D *** SORTING ***N01300S1NS2S1,S2(S22):S202340>S31:S4S1S2HS5S3iS6S5S2: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:S3S422404  2260> $ 1330X . *** FIND NUMBER ***h 8 HN:L1:R0v B N01300 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:24704!~ N$(A$(M),LE)LM1:2400T! N$(A$(M),LE)HM1:2400s! JLH:N$(A$(J),LE)RJy! ! X11:X235:Y119:Y21:646,6: 3460! X11);! R0"NOT FOUND":T1780::SF$"(SORT FIRST)":1330" "";A$(R)" "B$(R)/" X11:X235:Y122:Y21:646,15: 3460M" X111) "PRESS ANY KEY"a" A$:A$""2530k" 1330" *** DELETE *********" "";" N11300" X114:Y11:Y22: 2780:""" X1N2:X$(X):X$(SS$X$,3):""X$""A$(X);20); #( XN26609#2 X$(X1):X$(SS$X$,3):""X$""A$(X1)J#< N1:1300R#F Q$h#P Q$"\"XN:2660#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.$ N2EE2B$ ""A$(E),B$(E)`$ A$(E)"":B$(E)"":XEN:$ A$(X)A$(X1):B$(X)B$(X1)::NN1$ N0N0$ N2:E20$ 1300$ 646,13:X24:3460$ X11)"\ TO"$ X11)"HALT"$ % **** CHECK FOR DEVICE PRESENT ****G% 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$H&r 15: :Q&| BK1o& DV(2)0BK0:DV(2)DV(1)& DVDV(1):SDDV(2)& 186,DV& MM1LM$"":SM$"":& LM$" SHFT/L"(DV(2))& SM$" SHFT/S"(DV(2))& & WINDOW+' 10475,X1:10477,X2:10476,Y1:10478,Y2:10143: 'ԩԩԩԩ(Ԣԩԍ8 '3i 'Lh' '``Hh`P)J)K)O)L) N)M)H)(I) ((( (H)I)(((J)K)L)M)ÍN)ݍO)P) (` ( L( (P) J) (P) K) ( (P) L) (P) M)  (i L|(`(  L(P) `(P) N) L(`(P) O) ( L(P) O) (L(`%/)͆) L)/)` $0:T.*̢ͥ`