Š‹ƒ€’RECLEÎÉRLM±CLEAÒÖTOTAÌMENÕMÅÌSTRPOÓLÖARRAY¤WORK¤DINÇÏDEV¤REC¤LAST¤INLEÎCHOICE¤BLANK¤PAPEÒLINE¤ARRAÙFIRST¤AREA¤EXCH¤PNUM¤TABLEÎCHOICÅVOLUMÅ € € €€€€€€€€€€* TELEPHONE DIRECTORY *›* BY JERRY WHITE *›* ANTIC MAGAZINE *›* FEBUARY, 1984 *›d-6€-@46-@#6‚-€&- B0è›òÓÏÒÔ ÒÏÕÔÉÎÅ›ü›- ƒ ((SORTING6„-…)„ @- †F6„-P:„'@,% ‡-…&„'(.2ˆ-‡6„:6‰-ˆ$€F6Š-+ˆ%„,$€$‹7‰&‚<‰,/‹7Š&‚<Š,'$ A€$$6Œ.‹7‰&‚<‰,$6‹7‰&‚<‰,.‹7Š&‚<Š,.6‹7Š&‚<Š,.Œ ˆ8 ‡„!A@B   †Ð›ÚÒÅÁÄ ÄÁÔÁ ÒÏÕÔÉÎÅ›ä›î# ƒ (( READ DATA:# B`ø@Ž6…-Ž! 6…-…%!(RECORD #… + 6‰-…$€&‚6‹7‰<‰%‚,.(!(+ A P¸ ›Â ×ÒÉÔÅ ÄÁÔÁ ÒÏÕÔÉÎÅ›Ì ›Ö 5 ƒ (…(+(I HAVE NO DATA TO WRITE5 BPà (( WRITE DATA: B`ê @Žô  ‡-…(RECORD #‡þ  6‰-‡$€&‚6.‹7‰<‰%‚, (( ‡  BP ›ªÁÌÔÅÒ ÄÁÔÁ ÒÏÕÔÉÎÅ›´›¾ ƒ (( ALTER DATA:È1(… ('(I HAVE NO DATA TO ALTER1 BPÒ*(&(ENTER LAST NAME FOR SEARCH*‘Ü 6’-B:‘,(’A@Pæ(( SEARCHINGð ‡-…6‰-‡$€&‚(.ú‘4‹7‰<‰%’&,AA( ‡ ( ((‘ NOT FOUND( BP( ((‹7‰<‰%‚,6(2(&IS THIS THE RECORD TO BE ALTERED (Y/N)6“"“4NAA," “4Y6‹7‰<‰%‚,.”" A`P6 AAˆ›’ÐÒÉÎÔ ÄÁÔÁ ÒÏÕÔÉÎÅ›œ›¦5 ƒ (…(+(I HAVE NO DATA TO PRINT5 BP°(( PRINT DATA:6•-Žº)()(TYPE S FOR SCREEN DISPLAY ONLYÄ-)( TYPE P TO USE SCREEN AND PRINTER-“Γ4SAQØ “4P6•- AQâ APPìU ƒ (#6–7@%<@%,. <6–7@)<@),.-U6–7@3<@3,.-ö ‡-… 6‰-‡$€&‚6.‹7‰<‰%‚, 6–7<@$,.7<@$,++6–7@&<@(,.7@%<@',++6–7@0<@2,.7@(<@0,(++6–7@4<@7,.7@1<@4,2(– •3–< ‡P BPp›zÅÎÔÅÒ ÎÅ× ÄÁÔÁ ÒÏÕÔÉÎÅ›„›Ž ƒ6…-…%6‰-…$€&‚“B …!—6…-…&(8(NO ADDITIONAL RECORDS AVAILABLEB BP˜((ENTER NEW DATA:¢(( LAST NAME:‘¤ 6’-B:‘,(’A`P¦6‹7‰<‰%’&,.‘¬(( FIRST NAME:˜® 6’-B:˜,(’A``° 6‹7‰%@<‰%’%@,.˜¶(( AREA CODE:™¸ 6’-B:™,(’A`pº 6‹7‰%@$<‰%’%@#,.™À(( EXCHANGE:šÂ 6’-B:š,(’A`€Ä 6‹7‰%@'<‰%’%@&,.šÊ((NUMBER:›Ì 6’-B:›,(’A`Î 6‹7‰%@0<‰%’%@),.›Ô   †X›bÅØÉÔ ÔÏ ÂÁÓÉÛl›v ƒ ((BASIC(IS'›'ÐÒÏÇÒÁÍ ÉÎÉÔÉÁÌÉÚÁÔÉÏΛ$'›.'AA‘;@,˜;@,™;@,š;@,›;@,”;€,8'**;€,Œ;€,;@,“;,–;@8,B'"6—-P:I:Ž,'€,&@"‹;—$€,L'2 6‹. 6‹7—$€,. '6‹7@,.‹26”.‹7<€,V'36ƒ-B@6†-B 0'œ-A36-Bpø* ƒ+!@‚!@ƒ@9 +1(-(!TYPE C FOR CASSETTE OR D FOR DISK1“+ “4C6.C: B  +* “4D 6.D:TELEPHON.DAT* B *+ B à.›ê.ÍÅÎÕ ÒÏÕÔÉÎÅ›ô.›þ.5 ƒ0@@Ž50@@@/œ@/1AR(1(ANTIC TELEPHONE DIRECTORY/œ@ &/ ( (RECORDS IN MEMORY=…0/(RECORDS AVAILABLE=—&…:/œ@D/((M E N UN/œ@X/(((1) ENTER NEW DATAb/(((2) READ IN DATAl/(( (3) SAVE DATAv/(((4) ALTER DATA€/(( (5) SORT DATAŠ/(((6) PRINT DATA”/(((7) EXIT TO BASICž/> B!-@@",(>:AV,26-Ž>ARŽ¨/FAdAU'-@@"+ B(ENTER YOUR CHOICEF“²/$ 6-A:“,$ )!@B!¼/I BIA`0A 0A00A@0A0AP0Ap0È2›Ò2ÍÉÓî ÓÕÂÒÏÕÔÉÎÅÓ›Ü2›°67+Ž0@Ž)0@@70Ž@º6$˜:/((PRESS START FOR MENU+B2yŽ/ ¢: F:B2y,@BP¬: †€>?(/($PRESS START WHEN I/O DEVICE IS READY;B2yŽ? Š> F:B2y,@B`”>  ƒ $hB(ž-@Ž6$2Ž@ž( žrB$ N'F:A•,"A6' BP*NP(F(ERROR F:A•, AT LINE F:A†,%AV$F:A‡,P BP€ D:TELEPHON