:;¯!Ì!ØCÏRÏÉL¤CL¤CÈDÌBL¤CX¤TXT¤YN¤NAME¤ÂM¤ÆÌÙSFLAÇÃCTÒCÔÑÓSÌS±S²€€€€ € € € € SAVE "D:AMDIAL.BAS"›dCORRECTED VERSION 7/04/83›nDEBUGGED & ENHANCED›xBY FRANK GRAY 6/1/83›‚BY BRUCE BLAKE 11/12/83›Œ; +AR@1@‚; A€–V6€-F:A,$A@P*-‚;ƒ-@B:„,B(þF ƒR-‚V(… kƒ-@@#-@#‚'(†;‡-@A? ‡K-@#‚O(ˆc‡-@Ag ‡k ƒª.-‚(‰A€+-‚.$´55(-} Áõôïäéáì Äáôá Æéìå Çåîåòáôïò ÖÓ ±®µ¾(( BYÈ'('( MATTHEW R. SINGERÒ[R„;@@,Š;@`,‹;@,Œ;@%,ˆ;@,…;@@,‰;@@,[6ˆ. Ü!6-I:,&A!Ž;,æ_16….' PLEASE DO NOT EXCEED CHARACTERS! _6‰.' ð@@ AR@@@@K:úi@ BVx,€-@A0 €B-i("} ÁÕÔÏÄÉÁÌ ÄÁÔÁ ÆÉÌÅ ÇÅÎÅÒÁÔÏÒ( 1) START NEW FILE##( 2) APPEND TO BBS DIRECTORY''( 3) EDIT EXISTING BBS DIRECTORY"( 4) SORT LIST BY NAME,( 5) PRINT DIRECTORY6( 6) RUN AMODEM44@( 7) RUN AMODEM72E( 8) END PROGRAMJ ( ( ( Your Choice is #T<)@6-&@H< @)!@A@^W(>:%@H,WA`A@ApA0AA€A‡AhD A9@@D:AUTODIAL.NUMD@rB(((DO YOU WISH TO DELETE THE OLDB(AUTODIAL.NUM FILE ? |)@(>:,†>:,0YA@:@:@@D:AUTODIAL.NUMše-@3(œœœœœœœœœœœœœœœœœœœœœœ?"@e(! ÃÒÅÁÔÅ ÎÅ× ÐÈÏÎÅ ÎÕÍÂÅÒ ÌÉÓÔ¤;"@;(' ÁÐÐÅÎÄ ÐÈÏÎÅ ÎÕÍÂÅÒ ÌÉÓÔ ®=( ( ((((6Š. .6Š7@`,. =6Š7@,.Š¸x-@"(BBS NAME4-@H(SYSTEM PASSWORDZ-@r(SYSTEM PHONE NUMBERu(x(Ât-@#(ÂÂÓ ÎÁÍÅ26‚-F:@„,A6-F:@…,E„TB:„,!@`6†-@j APt APÌ 6Š.„Ö4-@"(BBS NAME4-@àG)( ÓÙÓÔÅÍ ÐÁÓÓ×ÏÒÄ ¼ÒÅÔÕÒξ ÉÆ ÎÏÎÅ86‚-F:@„,G6-F:@…,ê6„B:„,!@"6†-@, AP6 ApôI6Š7@,.„$-@I( SYSTEM PASSWORDþþþþþþþþþþþþþþþþþþ[-@2(PHONE NUMBER MUST NOT BEP(LONGER THAN 14 CHARACTERSS([(EX.H(1-800-123-4567)((123) 446-7890:( 123-456-7890H(123-4567y-@H(-ÓÙÓÔÅÍ ÐÈÏÎÅ ÎÕÍÂÅÒþþþþþþþþþþþþþþþþþþþþþþþþþþW6‚-F:@„,f6-F:@…,j„y„4A02B:„,!@6†-@( AP2 A0&N-@-(SYSTEM PHONE NUMBER<6Š7@',.„?(N( œœœœœœœœœœ0Y"(ENTER COMMENTS/DESCRIPTION;(19 CHARACTER MAXIMUMJ6‚-F:@„,Y6-F:@…,:6„B:„,!@"6†-@, AP6 ApDI6Š7@A,.„!B:Š, @Y:€-B:Š,%@@YE6Š7€,. I €N(@ŠX*((ANY MORE ENTRIES?*)@€b(€"@:Y,)€"@:y,(>:€,( Al7 (>:€, (,(OK, INPUT SESSION COMPLETE7@v AP€@ AP9@@D:AUTODIAL.NUM@6Ž.Š† 6Š. 6Š7@`,. +6Š7@,.Š5 A`B@ŠP6€-€%@h6Š7@`,.>:AU,|6Ž7B:Ž,%@,.Š† AP”R@:@@D:AUTODIAL.NUMH(@ŽR AžB'(} ÅÄÉÔ ÐÈÏÎÅ ÎÕÍÂÅÒ ÆÉÌÅ*(-(B(READING FILE....¨;/@@D:AUTODIAL.NUM;6-@²+ 6Š. 6Š7@Y,. +6Š7@,.Š¼\ A@Š+6Š7@`,. D6Ž7$@Y&@X,.ŠR6-%@\ AÆb-@(œœœœœ"(0( Is this a3(G(1) General Editb(2) Search for BBS nameÐ.)@‘.‘@I*‘@PA Ú‘"@PA 0ä2&(}      ÇÅÎÅÒÁÌ ÅÄÉÔ   26’-î“-@&@øK-@-(œœœœœœœœœœœœœœœœœœœ>“$@Y!B:Ž,A'K A C( (C(BBS NAME : Ž7“$@Y&@X<“$@Y&@D, @(@(PASSWORD : Ž7“$@Y&@C<“$@Y&@3,E((PHONE NUMBER: E6Š.Ž7“$@Y&@2<“$@Y&@, E6”-@ •-@B:Š,-Š7•<•,4 ;6”-”%@E A * 6•-B:Š,4 •(Š7”,>8(8(COMMENTS : Ž7“$@Y&@<“$@Y,H0( (0(!KEEP [1] DELETE [2] QUIT [3] : R.)@‘‘"@I$(>:‘,. A €\'‘"@Q6“-&@' A f‘@PAPpa (>:‘,76Ž7“$@Y&@X,.Ž7“$@Y%@,E6“-“&@S6–-–&@a6-&@z’"@ A `„ “Ž€@:@@D:AUTODIAL.NUMV€-@P:B:Ž,'@Y,€(@Ž7€$@Y&@X<€$@Y,˜, € ( (("( TASK COMPLETE, AP¢6( (#(SEARCH FOR WHAT NAME'Œ6Œ4AP¬ B¶e6’-@%–-@&@UŽ7–$@Y&@X<–$@Y&@Y%B:Œ,,4Œ[6“-–e A`À'“&@)–&@' A Ê – A Ô@-@)(œœœœœœœœœœœœœœœ@(CHANGE ANYTHING? Þ5)@‘$‘"@:N,)‘"@:n,+(>:‘,5 Aè‘@:Y,*‘@:y,A ò) (œœœ&(WHAT SHOULD I CHANGE?)(ü$$(1. NAME 2. PASSWORD$$(3. PHONE NUMBER 4. COMMENTS((YOUR CHOICE IS #8)@‘8‘ @I)‘!@R*‘AUAP$‘"AUA`.M(œœœœœœœœC‘&@HA€A@AA`M A €8j(WHAT IS NEW NAME(6‚-F:@„,76-F:@…,;„JB:„,!@V6†-@` APj A€B ( („, IS THAT CORRECT ?L0)@€&€"@x)€"A0 A €V!!€@‰*€A!A`<B:„,@+€-B:„,%@@86„7€<€,. < €j8.6Ž7“$@Y&@X<“$@Y&@D,.„8 A`tn(WHAT IS NEW PASSWORD,6‚-F:@„,;6-F:@…,?„NB:„,!@Z6†-@d APn A@~!(!(„, IS THAT CORRECT ?ˆ0)@€&€"@x)€"A0 A €’!!€@‰*€A!A`œ<B:„,@+€-B:„,%@@86„7€<€,. < €¦8.6Ž7“$@Y&@C<“$@Y&@3,.„8 A`°n(WHAT IS PHONE NUMBER,6‚-F:@„,;6-F:@…,?„NB:„,!@Z6†-@d APn Aº ( („, IS THAT CORRECT?Ä0)@€&€"@x)€"A0 A €Î!!€@‰*€A!A`Ø<B:„,@+€-B:„,%@@86„7€<€,. < €â8.6Ž7“$@Y&@2<“$@Y&@,.„8 A`ì?!(ENTER COMMENT/DESCRIPTION`6‚-F:@„,?6-F:@…,ö6„B:„,!@"6†-@, AP6 Ap ( („, IS THAT CORRECT ? 0)@€&€"@x)€"A0 A €!!€@‰*€A!A`<B:„,@+€-B:„,%@@86„7€<€,. < €(0&6Ž7“$@Y&@<“$@Y,.„0 A`2B'(} ÓÏÒÔ ÐÈÏÎÅ ÎÕÍÂÅÒ ÆÉÌÅ*(-(B(READING FILE....<;/@@D:AUTODIAL.NUM;6-@F+ 6Š. 6Š7@Y,. +6Š7@,.ŠP\ Ap@Š+6Š7@`,. D6Ž7$@Y&@X,.ŠR6-%@\ A`Z"@A _/(( SORTING FILE#6—-@/6˜-@Yd6-&@n6-€-@x6™-+€&@,$˜6š-™%˜‚##Ž7™%—<™%˜,/Ž7š%—<š%˜,A`Œ$$6Š.Ž7+€&@,$˜%@<€$˜,–??6Ž7+€&@,$˜%@<€$˜,.Ž7€$˜%@<+€%@,$˜, $$6Ž7€$˜%@<+€%@,$˜,.Šª6-@ *´ €¾6-&@ AÈ A ÒPRINT DIRECTORY›ÜD)(!} ÐÒÉÎÔÉÎÇ ÐÈÏÎÅ ÎÕÍÂÅÒ ÆÉÌÅ,(/(D(READING FILE....æ;/@@D:AUTODIAL.NUM;6-@ð+ 6Š. 6Š7@Y,. +6Š7@,.Šú\ A@@Š+6Š7@`,. D6Ž7$@Y&@X,.ŠR6-%@\ A0( ((PRINTING FILE....S@ APP33 BBS NAME PASSWORD PHONE NUMBER COMMENTSS3@€-@P:B:Ž,'@Y,@3Ž7€$@Y&@X<€$@Y,", € ( (("( TASK COMPLETE, AP,66TRAP 1590:IF PEEK(0)=2 THEN RUN "D1:MYMODEM.BAS"›1 #%D1:AMODEM44.BAS3 #%D1:AMODEM72.BAS6'( ( ((($AR'€ D:AMDIAL.BAS Œ$+°7ˆ<ˆ