7181@.=@>`L    FF LE  t8 9 w1ۥ0`01 ` w011ܭ0` L L ?0?LLɇ??6 7L??47160?L67 t67L 68 HH 8L9Lhh `? N8 9L@F89L@ mL?L5`L?0L01 w01101? L6ꪩ LZ L`  ``>L5L5>L#6LX6` N8 t O8801ܥ0L Lp$N8Ln:< =;9<= < 900<= J <= L<=9.  ɓɔɑL```L#L!LL L@%LL.L<= J <= V < :; J :;L.L:; :; W  < L L3<= <=L꩓ L_ `  LF!꩟ < Lk!Lk! t  1ޥ0L J L t 10ߩ`1 0Lk ` ` t ` t L `.019 9:<;= L:2;3 L23 < HO "23L hɑ7 ũ`23=< J У2L!LA!23;: 23 LA!3L! 0!L" J  @ 23 J 2031L@&452 t w1ݥ0֥018 88892<3=LLL`'l8/23 < O "J " H23 < h`323Lu# t ˢL%////O/L" //J "Q "HL"//L" } L"// //OL9#L"/L"L$ 0!Lc$ "23 t L#/// wL$/-23// w J <= J "-8/08011L#<= t w10ڥ01L#LL# wL-L$J "@ "Ll"23/8-m04m101140451010145 t w3ץ2Э23// wL# 0!LJ "I "010110 t w3ץ2L% w10110 wL# t wL% L#  t @ `1ѥ0`23 0 1`L2435 < LJ'I lɑ3524ح45O " < 45 45Lx&5=4<4 J 45LR'2435O "Lj'3 t   w5ߥ4L 'O "Lv' Lp&8 ,L`&, L!, Ll" }ENERAL ELP PAGE: F YOU WISH TO COPY THIS PROGRAM YOU MUST NOT RUN IT FIRST. F YOU DO RUN IT, YOU MAY MODIFY THE PORTION AND ENTER "46,28" BEFORE YOU SAVE IT. HE BUFFER EDITOR IS BETTER TO USE IN 80 COL. MODE. HE CHANGE BYTE FUNCTION ALLOWS ENTRY OF HARD TO EDIT CHAR'S, LIKE $(14). UST ENTER SAY, AN "^" [CHR$(94)] AND THEN CHANGE 94 TO 14 THROUGHOUT THE BUFFER. HE SEND DISK COMMAND IS USEFUL FOR CHANGING DRIVE MODES, ECT. URING UFFER YOU MAY CANCEL BY PRESSING THE KEY.``` L*L   L }DITOR ELP: SE THE CURSOR KEYS TO SCROLL THRU THE TEXT. LL LINES MUST BE ONE LESS THAN THE SCREEN SIZE, ENDING IN A $(13). F THE LINES ARE LONGER THAN THIS, THE EDITOR WILL PLACE 'S OVER THE PROPER LETTER TO MAKE THE LINE FIT ON SCREEN. NY INSERTS THAT PUSH THE END OF THE BUFFER PAST FULL WILL LOOSE THE DATA AT THE END OF THE BUFFER. SE CURSOR RIGHT IN EDIT MODE TO COPY THE SAME LINE UP TO THE POINT YOU WANT TO CHANGE IT. OU CAN DELETE MORE THAN ONE LINE. SE THE CURSOR KEYS TO POSITION THE START- ING LINE, THEN HIT AND CURSOR DOWN AS FAR AS THE END OF THE SCREEN AND HIT AGAIN. TO CANCEL BEFORE THE SECOND LL CHARS ARE DISPLAYED IN QUOTE MODE` }UTO IALER ELP: SE CURSOR UP/DOWN TO SELECT ENTRY #. RESS E TO ENTER THE BOARD INFO. NTER UP TO 16 LETTERS FOR NAME, PHONE NUMBER, .. NUMBER, AND PASSWORD FOR EACH BOARD. HEN CONNECTED 7 WILL PRINT THE .. AND 8 THE PASSWORD. OARDS ARE SELECTED BY PRESSING THE KEY. HEN PRESS D TO START DIALING. UMBERS ARE DIALED STARTING WITH THE LOWEST ENTRY TO THE HIGHEST UNTIL CONNECTION IS MADE OR YOU PRESS THE SPACE BAR. ORE NUMBERS CAN BE SAVED ON ANOTHER DISK FOR MORE THAN 20 BOARDS.`OF THE MIT-FUNCTION. 95% OF OUR USERS USE 40 COLUMN MODE (CAUSE THEY USE L)РLe0i(L/I`H /h /`,,, , ,L0L5L6d83ed100i20LB0LW0L4L3L4L5L5L6GOOBADACKS/BSYN888888 6 0X88888888,888H0 L088i8Le088Lm0888 888Ld5`H   H hhL#1hHh` H0 L8 8d8 *1 W0dLH1 *1 889 88 2 ` W0ɩ 8 *1 W0 8` 88 *1 W0885 8h88 j3ȱf 88I8 j3 J3L2 3-,: 5 *1 W0 j3f 8 w3 f 8 `* 5 *1 W0 8 *1 W0 8 8 *1 W0 8`88 6 0<988A8C8K 8©`88L2888 888ОLd5`8I8 j38ifȭ8if  f 8HLK3HȩfLK3H 5 5 5f 8 w3hf 3`f8i9g`f8Ii9g`88888qf888Qf88*.8.8 8ڠ8fȭ8fȭ8fȭ8f` 8 88888 w3f j3fȑf 1`88 8899 89 @1 8 4< 8 9 8 9 8*,- 5L.4 : 89L.498989898 j38 8 3989898 98``88 88 8i9 @1 8 498 8L489L4` 8 88888 w3if j3fȑf8f8 1` 8 8 8 8 8 x`H8 8 8h Hh`  ɀɒ` m6 0L)  L6a { 8 L5A [i L m6L/L0EA [ i LI6 ۰8逍Ƀ  L5` % h8`&ɺ'6&;';&6'`Hhl;hl;JhHH#  Ȅhh` 7L6 7   ʭ Jݭ;ݭ;ݩ  J` 1 1+ - , 1.hh8.` +$ z+ 1 |8 798 `8$E<<0;==`  $<-= ~ / $<4   (8 $= 68`` 0`b)6 e6= `FG9<=`Fi FG9`98F FG`FHhH `h``F` ` 1 1 +5e35 e 0 0 8 , 1(`IH7 9 FJGK x9J 12 + W- жH} `H  r9J `78Hi HI7Я`HJI8jfJiK` 1L9 ,-8H , 1(h`c>d?>0 : : :L9 1 + `  W-8wOv?u> : :Ж : :>н?wж?vЬ>uХ6 :> :6L: 1 += 5e3>3i@?i=A>?e35@1A2?1e31e22 >1.?ɝ 8L9 ? +L[: b.L9> e>6?JJJe66?)6=<` ;` ,ɇ`) > ?Q y>? ;X)  .   i 5> ; ,-`) i  ` O88>?> ,-` ;) ` 9 `>a?`acƦ/b')%) 88 `89г 99>?()%) .() .`)`) `k ";)S)) *IIVVN:N:,D= C:=: R:=:S:U1:U2:B-P:PUIM-W M-Ww>0U SPUL @#4;AF0000 d> 999(       N Y N O N J N S  A B  0 1 8 9 10 11 SEQ PRG USR REL =iDKSDISK/PRINTER SETUPRUN A PROGRAM FORMAT A DISK CLEANUP A DISK COPY A DISK COPY FILES DELETE FILES RESTORE FILES RENAME FILES REORDER DIRECTORY COMMODORE DISK UTILITY SYSTEM$PRESS SPACE TO SELECT YOUR LANGUAGEENGLISH- PRESS F5 TO UN-SELECT / STOP TO CANCEL ) DRIVE: FREE !PRINTER DEVICE # = 4 5 6 NONE TURN ON THE DRIVE TO BE CHANGEDTURN OFF THE OTHER DRIVENEW DEVICE # = DONE... TURN ON THE OTHER DRIVEINSERT COPY DISK INTO DRIVE: FILE ALREADY EXISTS: LOADING PROGRAM: CHOOSE FILE TYPE: CANNOT RESTORE F @ 150`@" HIS PROGRAM IS A MODIFIED VERSION OF , WHICH IN TURN WAS AN"@"ADAPTION OF .C1 FOR THE =64 BY TEVE UNTER. ONVERTED TO THE"A("=128 BY UTCH HOMPSON AS .C1/128 AND MODIFIED EXTENSIVELY BY AMES"UA2"EHAN. ARIABLES REMAIN THE SAME AS , BUT MOST OF THE PROGRAM HAS BEEN"A<"MODIFIED OR COMPLETELY REPLACED TO INCORPORATE THE ADDITION OF FEATURES THAT"AF"MEET MY PERSONAL REQUIREMENTS. HOPE OTHERS ENJOY & FIND IT USEFUL AS WELL."FBZ"THER PEOPLE THAT HAVE CONTRIBUTED TO ARE ON ALETTES, OHN"iBd"OOLCOCK, AND ARC ILSON."Bn"";5);" ";(15);" ";(143);" TO EXIT PROGRAM"Bx""5)"ANY OTHER KEY FOR MENU"BA$"":A$:A$"E"65341B2207C15:57,255:58,31::2440:T(215):((T128)5):TM((T0)1)uC7226,0:7216,0:7217,32:7222,0:7223,32:7231,0:7230,0C1,(133):3,(134):5,(135):7,(136):2,(137):4,(138):6,(139):8,(140):7210,0 D5,2,0,(8)(0):#5,A$:BS255:1,8,15:T$(3):12312(DMT1:MT$"":WP700:FP60cD GN$(19),G5$(19),GG(19),GB(19),GR(19),ID$(19),PW$(19)DG1$(143),G2(143),G1(143)DTY$"PSU":T$(1)"ROGRAM":T$(2)"":T$(3)"SER":CS1.02273E6:DV8DBR$"1200":1030:B156577:B256579:B1,32:B2,32@E2240:MT1MTMT2:X019:GG(X)1::842,65:843,68:208,2uE5,"";(13);:4700:5,"7=15";(13);:#5,A$EA$"ANG UP":((B1)32)0A$"NSWER"EB2,32:I$"ENABLE ":(13824)I$"DISABLE"ETM6000:360F%:5,8: 0,0,79,24,1:(14);^F" "F" "(2);" "(130);""F" ";77);""-G" ";12);"A UNTER 10 ERMINAL ROGRAM BY ARY ATRICKS ";12);""kG " ";21)"PRESS TO EXIT OR FOR HELP";22);""~G " ";77);""G" "H3)" AUD ATE = "BR$;10)"RIVE UMBER ="DV;13)"LOCK IZE ="BSuH"" "H,11)" - END ILE(S) "14)" - ISK CONTROLLER"I611)" - ECIEVE ILE(S)"12)" - UFFER (";(64000((7216)(7217)256));"FREE)"QI@11)" - URSOR "I$;13)" - ODEM PARAMETERS"IE11)" - OGGLE BAUD RATE"11)" - CHO (O";:(7210)"N )":330IG"FF)"JJ11)" - IMIT BLOCK SIZE"11)" - UTO DIAL (16";:B$"50)":MT B$"70) JLB$GJO11)" - RAPHICS MODE (";:(7230)"ON )";:337TJP"OFF)";vJQ8)" - 40 COLUMN AGE"JR11)" - EFINE KEYS"16)" - "A$" PHONE"JT12)"^"32)"^" K^12)""(15);" RESS EY";(143)KhA$BKj(212)64209,0:208,0:10128:A$:220eKlA$"H"B1,((B1),32):4300KnA$"G"T(7230):T((T0)1):7230,T:220KpA$"P"(27)"X":T(TM0)1:TMT:220KqA$"E"7210,((7210),1):220LrX(A$"OT"):XX((A$"C")1)((A$"R")2)((A$"S")3)((A$"L")4)((A$"M")5)((A$"D")6)((A$"B")7)((A$"A")8)((A$"Z")9)((A$"K")10)LtXX((A$"T")11)((A$(13))12)((A$(27))13)LvA$"P" TMTM1:220M| X 2600,740,610,810,4100,400,1540,1120,1090,2500,850,850,20'M360hM""32TM27)" ":32TM27)""M5TM,2,39,24,1:"ĒIRECTORY":"ÒHANGE DEVICE # ("DV")":"ӒCRATCH FILE(S)":"ɒNITIALIZE DRIVE"PN"֒ALIDATE DISK":"ҒENAME FILE":"@ END COMMAND":"RETURN TO EXIT":284,DV:"TATUS:":""DS$""pNA$:A$(13)A$(27)220NX(A$"OTHER"):XX((A$"D")1)((A$"C")2)((A$"S")3)((A$"I")4)((A$"V")5)((A$"R")6)((A$"@")7)O X 550,500,470,520,560,570,530O430COA$"":" CRATCH WHAT?":910:A$I$]O(A$)16(A$)0410uO(A$),D0,U(DV):410O" NTER NEW DRIVE #":">";A$:(A$)8(A$)11500ODV(A$):410O15,DV,15,"I":15:410P" NTER COMMAND:":910:A$I$:A$""410+P15,DV,15,A$:15:410\P&40TM35,2,79TM40,24,1: U(DV):TM A$eP+410P015,DV,15,"V":15:410P:"ENAME WHAT?":910:B$I$:(B$)16(B$)0410PD"S WHAT?":910:GP$I$:(GP$)16(GP$)0410QN(B$)(GP$),U(DV)QX410'Qb8000:A$"Y"8100Qg""30TM15)"Ġ":30TM15)"":"ROGRAM AME? ";:910:I$""FL1220Ql"ILE YPE (, , OR )?  ";QvA$QA$(27)220QA$"P"SA0:T1:690RA$"S"SA2:T2:690RA$"U"SA0:T3:690#R630=RT$(T)"":2,DV,SA,I$URDS0DS$:2:615R" ̒ TWICE ABORTS":".........1.........2.........3.........4";:TM0".........5.........6.........7.........8"; S12309:14363,T:12300:(512)12:1460:8503S12309:14360,BS:12294:2:1460:850JS8000:A$"Y"7600S&:""28TM14)" ":28TM14)"":"AVE S? ";:910:I$""FL1220S12309:12297:(512)1850S"ILE YPE (, , OR )?  ";TA$TA$(27)220-TA$"P"SA0:T1:780GTA$"S"SA2:T2:780aTA$"U"SA0:T3:780jT762T T$","(TY$,T,1)",W"UT$(T)"":" ̒ TWICE ABORTS":".........1.........2.........3.........4";:TM0".........5.........6.........7.........8";>U2,DV,2,"@0:"I$T$:X11300:X::59074yU 12309:12291:2:X11500:X:2585,(2584):1460:850U*"LOCK IZE? ";:910:I$""220U4BS(I$):BS40BS40U>BS255BS255UH220'VRTM:0,0,39,24,1:"7ID 8PW Ò=EXIT ’=(OFF) ԒXMIT":860VT%:0,0,79,24:" Ò= ’= (OFF) Ԓ=MIT 7=.. 8=PASSWORD ";(130);V\(7231)128"N ";(130))WaTM0,1,39,24:"":10);"ERMINAL EADY";(14):4,1:0,1:&:890eWf0,1,79,24:"":30)(15);"ERMINAL EADY";(143)Wz:(14);:2584,0:2585,0:2586,0:2587,0W12309:12303W220WI$"":FL0W" ";WA$:A$""930WA$(13)1020XA$(20)1000XA$(27)FL1:1020.X(A$)20930FX((A$)127)32930]XA$;:I$I$A$:920nX(I$)0930X" ";:I$(I$,(I$)1):920X" ":XS(BR$):2576,6:S12002576,8XRCCSS:1080:15104,LO:15105,HIYS1200RCCSS.966:1080Y$2582,LO:2583,HIGY.RCCSS2100:1080:2578,LO:2579,HI:jY8HI(RC256):LO(RCHI256):YBBR$"300 "BR$"1200":1110YLBR$"300 "YV1030:220Y`:Zj"";:20TM20)"ULTIPLE UMBER IALER Ò TO XIT":20TM20)""QZtB2,32:B1,0:1410:40TM15,2,79TM40,24,1}Zy"SE UP/DW"(13)"OR ENTER BOARD#"Z~"Œ - TO EDIT":"Ē - TO DIAL":"ETURN = ON/OFF":"ϒ - ALL OFF":" - ALL ON"5["̒ - LOAD ":" NUMBERS":"Ӓ - SAVE ":" NUMBERS":"В FOR ELP"?[2080N[YX1:NT1n[YXYX1:YX20YX0:NTNT1["IALING #";YX1:[GG(YX)11190[D$G5$(YX):GB(YX)BR$"1200":1225[BR$"300 "[1030[B1,32:T99TM49 \TT1:T01240\2585,(2584):\B$"":#5,B$:B$""1244P\MT5,"";MT$;p\D(D$):X1D:N$(D$,X,1)\N$";" N$","\""N$"";:N(N$):N0N10\MT5,N$;:X:5,(13);:1290\1310:T1100TM50:T:X\:] :"TTEMPT #";NT:"Œ TO ND":13302]B1,32:B2,0:850D]N11N:B1,0](T0FP(TM(FP1.8)):T:B1,32:T013TM8:T:N1:T0120TM70:T:]2208,0: ZZWP(TM(WP1.8))01]<A$:A$" "5,"+++";:1140]FA$(27)850]P((B1)16)014804^UB$"":MT #5,B$:B$"" ((B1)16)16 1380<^ZZZI^_MT1330j^dB1,0:ZZ12000TM1000:ZZt^n1190^xZZ136::ZZ:^0,2,39,24,1:X019:" ";:X9" ";^X1;:GG(X)"";^GN$(X):^^1200^15:2'_(27);"G":L09:"";:T1130TM80:::1_I$""C_IS110TM5\_((B1)16)16 1370d_IS_"CONNECTED WITH:":""GN$(YX):7,ID$(YX)(13):8,PW$(YX)(13):7230,GR(YX):1460:GG(YX)0:1300_DQ$NW$"="OLD$_850f`0,0,79TM40,24,1:30TM25)" ":30TM25)"":30TM25,3,79TM40,24`"ŒDITOR":"גRITE":"ВRINT ":"ӒAVE ":"̒OAD ":"ڒERO":"ÒHANGE BYTE":"В FOR ELP"5a"Β TO EXIT":"YTES REE =";:Y(7216)(7217)256:64000Y:1:Y1,13:15Va" A$:A$(13)A$(27)220~a'(212)64209,0:10726:A$:1540a,A$"E"1700a6A$"P"1730a@A$"S"1910aJA$"L"1950aTA$"Z"2050aYA$"W"3000a^A$"C"1570bh((7216)((7217)256))81921550TbrA$"":"NTER VALUE TO CHANGE";A$:A$""1550sb|X(A$):X0 X255 1550bA$"":"HANGE TO WHAT";A$:A$""1550bY(A$):Y0Y2551550b7224,X:7225,Y:7235:1550Nc0,0,79TM40,24,1:TM"Ò-EXIT’-EDITŒ-TOPҒ-BOT Ԓ/̒":X39:3900:0,1,39,24:1710c"Ò-EXIT Œ-TOP ’-EDIT Ғ-BOTTOM ̒-DELETE Ԓ-INSERT Ғ-SCROLL UP/DN":0,1,79,24:X79:3900c((7217)256(7216))8192 7232c1540Md"ET PRINT SPEED (0 TO 9)"(13)"9=FASTEST ?":I$:T(I$):T0T9T5d" ̒ TO PAUSE":"Ò TO STOP":"ӒCREEN OR ВRINTER?"dA$:A$"S"1780dA$"P"1840dA$(27)1550d1740e0,2,79TM40,24,1:X((7217)256)(7216):X81921790:e9746,0:9759,37(T4):9728pe:30TM15)" Ғ";(143):A$:1540e00,2,79TM40,24,1:X((7217)256)(7216):X81921790e:9746,0:9759,37(T4):9,4,7:9:9728:9,:9:1540eD:eN:eX:eb:fl:4fv"AVE AS? ";:910:A$I$:A$""1550sf{"ВROGRAM OR ӒEQUENTIAL?":B$:B$"S"B$"P"1915f}A$A$","B$fX(7216)((7217)256)1:X81931550f(A$),U(DV),B1,P8192 P(X):""DS$:" ْ"fA$:1550gX8192:Y((7216)(7217)256)KgY63999"UFFER FULL!": 2:1550qg"ILE NAME? ";:910:A$I$gA$""1550gYX"PPEND TO CURRENT UFFER?":8)"(Y/N)":B$:B$ "Y"7216,0:7217,32h"ВROGRAM OR ӒEQUENTIAL?":B$:B$"S"B$"P"1990'hB$","B$",R"Xh9,DV,9,"0:"A$B$:B$",P,R":#9,A$:#9,A$eh7355:9|h15:"";DS$: 2h1550h".. TO ERASE BUFFER?":" (Y/N)":A$h  A$"Y"1550h7216,0:7217,32:1550i 0,2,39TM15,24:X0&i*"=> ";:A$:A$(27)2205i4" ";Yi>A$""A$;: XX1:X192080iHA$""A$;: XX1:X0X19:"";:2090iM(212)64209,0:11429:A$:1130iRA$"L"2240:1140i\A$"S"2260ifA$"E"2300jkA$"O"Y019:GG(Y)0::1140QjnA$"A"Y019:GG(Y)(GN$(Y)"")1::1140jpA$"D"ZZ0:Y019:ZZZZGG(Y):Y: ZZ 2420jzA$(13)2190jY(A$):Y0Y92181j2090jB$:B$(13)TY1:A$(13):2184jT(B$):T0T92090*kA$A$B$:T(A$)1:A$:A$(13)20908k"";:X0FkXT2170XkXX1::2185{kGG(X)GG(X)1:GG(X)2GG(X)0kGN$(X)""GG(X)0kA$"":GG(X)A$""k""A$;GN$(X);"":"";k20904l3,DV,3," NUMBER FILE,S,R":3,MT:Y019:3,GN$(Y),G5$(Y),ID$(Y),PW$(Y),GB(Y),GR(Y)::3qlY019:GN$(Y)"0"GN$(Y)"":G5$"":PW$(Y)"":ID$(Y)""l:DS15,8,15,"I":15lm"ODEM TYPE IS SAVED WITH LIST."(13)"O YOU WANT TO UTO IAL"(13)"PHONE LIST WHEN PROGRAM"(13)"IS FIRST RUN? (Y/N)"1mA$:A$"Y"MTMT2tmA$(13):3,DV,3,"@0: NUMBER FILE,S,W":3,MT;A$;:MT1MTMT2mY019mGN$(Y)""GN$(Y)"0":G5$"0":ID$(Y)"0":PW$(Y)"0"n3,GN$(Y);A$;G5$(Y);A$;ID$(Y);A$;PW$(Y);A$;GB(Y);A$;GR(Y);A$;::3:Y019:GN$(Y)"0"GN$(Y)""*nY:1140n"URRENT DATA:"(13)"#"X1;GN$(X);(13)"AUD ="GB(X)900300:"RAPHICS (";:A$"NO)":GR(X)A$"YES)"nA$:"NUMBER = "G5$(X):".. = "ID$(X):"PASSWORD = "PW$(X)&o "NTER NEW DATA OR Β"(13)"TO EXIT.":"NTER * TO ERASE:"Go A$"":"NAME";A$:A$""1140o A$"*"GN$(X)"":G5$(X)"":ID$(X)"":PW$(X)"":2300o (A$)15A$(A$,1,15)o GN$(X)A$o "AUD RATE (1=300 2=1200)":A$""o A$:A(A$):A1A22322p AA1:GB(X)A:"RAPHICS? (Y/N)":A$"":p A$:A$"Y"GR(X)1:2330Lp A$"N"2325Xp GR(X)0op A$"":"NUMBER? ";p B$:244,1:B$;:244,0:B$(20)(A$)0 Y(A$):YY1:A$(A$,Y):2332p B$","B$":"B$";"p B$(13)2340q A$A$B$:(A$)142332q$ A$""1140$q8 G5$(X)A$CqL ".. ? ";:910:ID$(X)I$dq` "PASSWORD?";:910:PW$(X)I$nqj 2300qt 40TM15,2,79TM40,24,1q~ 5,"+++": 1180q " "(ER)" ERROR":"HAS OCCURED":"O YOU WANT TO CONTINUE?"7r ZQ$:ZQ$"Y""ROGRAM IS RESUMING WHERE"(13)"THE ERROR OCCURED": =r r "EFINE UNCTION EYS (1-6)"(13)""r "URRENTLY:"::"NTER KEY NUMBER"(13)"OR Β TO EXIT:"r A$:Y(A$):A$(13)A$(27)220s Y1Y62520[s "NTER NEW DEFINITION:"(13)"(ALL KEYS MUST TOTAL LESS"(13)"THAN 241 CHARACTERS)"s 910:"DD $(13)?":B$:B$"Y"B$(13):2570s B$""s (Y),I$B$:2500s( TM ((13824)32)7657,240:7658,47t- (13824)13824,0:13829,0:13939,0:13949,0:220[t2 13824,32:13829,157:13939,175:13949,157:7657,210:7658,255:220st 0,2,79TM40,24,1t X(7216)(7217)256:Y0:X81929746,1:9759,1:9728t 1t "";:A$:(143);" ";u A$(27) 15:Y(X256):XXY256:7216,X:7217,Y:1540(u A$(20)3100Nu IFA$=CHR$(27)THENA$="":GOTO3020}u X,(A$):244,1:A$;:244,0:A$(13)Y1u YY1:XX1:Y79TM40 A$(20):3100u X64000:""15)"UFFER ULL":A$:A$(133): 3030u 3020v YY1:XX1:X8192X8192:Y0:30203v& Y0Y0:XX1:3020Bv0 A$;:3020v<8975,X:7763,X1:7781,X:7819,X1:9068,X:8885,15TM3:9841,15TM3:v5,"";(13);:4700v5,"7=15";(13);:MT$""\w"ET 1670 OPTIONS:"(13)"":" 1 - IAL PULSE"(13)" 2 - IAL TONE (DEF)"(13)" 3 - PEAKER OFF AT ALL TIMES"w" 4 - PEAKER ON DIALING ONLY (DEF)"(13)" 5 - PEAKER ON AT ALL TIMES"(13)" 6 - IME DELAY AFTER DIALING (DEF=15)"[x" 7 - INGS BEFORE ANSWERING (DEF=1)"(13)" 8 - ESET MODEM TO DEFAULTS"(13)" 9 - O INTO NSWER ODE"xA$"":A$:T(A$):T1T9#5,B$:220xT4051,4052,4053,4054,4055,4056,4057,4058,4059xMT$"":4005xMT$"":4005x5,"0";(13):4005y5,"1";(13):4005-y5,"2";(13):4005qy"NTER NUMBER OF SECONDS";A$:T(A$):5,"7=";T;(13):4005y"NTER ZERO TO DISABLE AUTO ANSWER":"NTER NUMBER OF RINGS";A$:T(A$):5,"0=";T;(13):4005y4000y5,"";(13):850z220^z"ET MODEM TYPE:":"":" 1 - 1650"(13)" 2 - 1670 (DEFAULT)"zA$"":A$:T(A$):T1T2220z"T25,"+++":T11000::MT1:4005z,MT0:"ET 1650 SPEED:"(13)"ƒAST OR ӒLOW ?":A$:FP60:A$"F"FP20N{6"ET 1650 WAIT TIME AFTER"(13)"DIALING: (SECONDS)":910:A(I$):A2A2Z{@WPA40c{^220{((B1)32)05,"+++";:4700:220{5,""(13);:220{\T12000:T:{p(27)"X"(27)"X"J|u&:0,1:4,1:0,0,39,24,1:(14);" ";|z" UNTER 10 ERM BY ARY ATRICKS":" RESS TO EXIT OR FOR HELP" }"":" AUD="BR$" RIVE#"DV" LOCK SIZE ="BSQ}"";p}8)" - END FILE(S)"}8)" - ECIEVE FILE(S)"}8)" - URSOR "I$}8)" - ISK ONTROLLER"~8)" - UFFER (";(64000((7216)(7217)256));"FREE)"4~8)" - ODEM PARAMETERS"W~8)" - OGGLE BAUD RATE"~8)" - CHO (O";:(7210)"N )":6100~"FF)"~8)" - IMIT BLOCK SIZE"~8)" - RAPHICS MODE (";:(7230)"ON )":6120~"OFF)"8)" - 80 COLUMN AGE"T8)" - UTO DIAL (16";:B$"50)":MTB$"70)"\B$y8)" - "A$" PHONE"8)" - EFINE KEYS"8)" ^"8)"  ْ":X"EADING DIRECTORY. . .":YH0%:4,13YYH "RESS ْ TO CHOOSE FILES"(13)"FROM THE LIST,":"OR Ò TO BORT":"RESS Œ TO END SCAN,":"OR ANY OTHER KEY TO SKIP FILE:"ZY0143:G1$(Y)""::3,DV,0,"$":Y0:B$"":X0ʀ[T031:#3,A$:\#3,A$,A$,A$,I$:ST7130]G1(Y)((I$)256)(A$)+^T027:#3,A$:A$(34)X1:Q1:AbXB$B$A$:QQ1Kl:X0]vA$(B$,18,1)sA$"P"T1:7120A$"S"T2:7120A$"U"T3:7120B$"":7004G2(Y)T:G1$(Y)(B$,((B$)Q)):B$"":YH7200YY1:70043:4,1:TM&Y144G1$(Y)"___")YH723037235F " ";G1$(Y);O.A$p0A$(27)G1$(0)"___":71301A$"E"G1$(Y)"":(27)"J"(27)"Q";:7130ς2A$"Y"G1$(Y)"":(27)"J"(27)"Q";:7004ۂ4:7125 >"RESS ^ TO REDO LIST";:A$:A$"^"7000GCG1$(0)"___""**** ****": 2:220H"  ̒ TWICE TO SKIP"(13)" "RY0:0,2,7940TM,24у\G1$(Y)""7400f"OW SENDING: ";G1$(Y);""kG1(Y);"LOCKS LONG."rp".........1.........2.........3.........4";:TM0".........5.........6.........7.........8";zSA0:G2(Y)2SA2Ԅ|TG2(Y):G1$(Y)G1$(Y)","(TY$,(T),1):2,DV,SA,G1$(Y):1,E$,EM$,T$,S$}(E$)0""E$","EM$","T$","S$:2:1460:74000~5," ";G1$(Y): 1d12309:14363,T:12300:(512)12:1460:740012309:14360,BS:12294:2:"";YY1:Y143 G1$(Y)"___"741072605," "(4):1460:850LL"EADING DIRECTORY. . . ":%:4,13:7000:4,1:&:G1$(0)"___""*** ***": 1:220VV7240&:" Ò TO STOP"(13)" "0,2,7940TM,24߆" AIT FOR SENDER TO VERIFY..."#5,A$:B$:A$""B$""7630B$(27)1460:850+A$" "76305I$""L#5,A$:A$""7670fA$" "A$(34)7670~ A$(4)1460:850B$:B$(27)7640A$(13)7730(I$I$A$:767022,DV,1,I$",W":DS05,(4):"";DS$:1460:7630<"OW RECEIVING: ";I$;""yF".........1.........2.........3.........4";:TM0".........5.........6.........7.........8";P12309:12297:(512)11460:7620ψZ12309:12291:2:"":2585,(2584):7620@" ULTIPLE FILES? (Y/N)":A$:<" END WHOLE DISK? (Y/N)":A$:A$"Y"YH0:7000SA$"N"YH1:7000\220