RG OR EQ" Q$:Q$"P" Q$"S"1540 /15,8,15,"I0":15 @ DS191575 `2,8,2,FF$","Q$",W":DS$ " DS20 XT("5900"):1580 '" RROR ATAL-RANSFER BORTED ! ":1590 ," = KEY ABORTS TRANSFER" ."OOD LOCKS AD LOCKS"; / XI: XT: C1(216)0"RANSFER BORTED":ՙ"RANSFER OMPLETE" Y62:1,TC,TL:1140 @:1,CC,CL:" ";XP$(X1);" PLOAD " JFI$"":" NTER ILENAME";FI$ T FI$""1,TC,TL:1140 YFF$(FI$,16) ^"
RG OR EQ" hQ$:Q$"P" Q$"S"1540 * r15,8,15,"I0":15 ; w DS191575 [ |2,8,2,FF$","Q$",R":DS$ DS20 XT("5903"):1580:1575 :1,CC,CL:" EXT PLOAD " FI$"":" NTER ILENAME";FI$ FI$""1,TC,TL:1140 FF$(FI$,16)
15,8,15,"I0":15 DS191575 9 2,8,2,FF$",S,R":DS$ X DS20XT("5909"):1583 b 1575 o 1,CC,CL :DC$"":">"; ""; Q$ Q$"$"(DC$)01,TC,TL:"$"::1800 Q$(20)(DC$)1" ";:DC$(DC$,(DC$)1):1811 Q$(13)(DC$)0 - Q$(13)1830 V Q$(32)(Q$(127)Q$(193))1812 p DC$DC$Q$:Q$;:1811 &" ":15,8,15,DC$ 01,TC,TL: DS$:15:1800 5:XX0 1,CC,CL " ":1,TC,TL
" 1 IAL FROM DIRECTORY" 4 " 2 NTER NUMBERS TO DIRECTORY" R " 3 OAD DIRECTORY" p " 4 AVE DIRECTORY" " 5 IAL FROM INPUT NUMBER" " 6 ETURN TO AIN ENU" 1,CC,CL " ELECT PTION " Q$:Q(Q$):Q1 Q62060 ) Q 2100,2200,2300,2400,2500,2600 ; 41,CC,CL:T30 c 5" ̠ ٠":1,TC,TL s 62104:2118 8"IR # NTRY ESCRIPTION" 9X19 ;" ";X;" = ";DD$(X); @20);" : ";DN$(X): !D" ELECT HOICE (0 TO ABORT)": "!FQ$:Q$"0" Q$"9"2118 8!HQ(Q$):Q02010 N!J(DD$(Q))62130 z!K" NVALID HOICE ! " !L" # ";Q$;" DOES NOT HAVE AN ENTRY" !M" RESS NY EY":Q$:2100 !RT2$DD$(Q): MT12160 "U" RESS [] KEY TO ABORT" 2"V1005:NC1:5,"A":T1500: ^"W" IALING ";T2$:XRD10:5,"ATDT";T2$ v"\#5,A$:A$"C"2147 "^SS$:SS$(27)5,"A":5:2153 "_T1200::XX1:X02140 "a5:" O NSWER - RYING GAIN ":2134 #c#5,A$,B$,C$,D$,E$,F$:A$"O"B$"N"C$"N"1050 /#dNC1NC0:2140 c#f1,CC,CL:5:" ID OT ONNECT - O ARRIER " #h" RESS NY EY":Q$ #iT302100:2500 #p #z #1,CC,CL #" NTER IRECTORY NFO ":1,TC,TL:2104 #Q$:Q$"0"Q$"9"2204 $Q(Q$):Q02010 -$" NTRY UMBER : ";Q$ P$" NTER HONE UMBER";DD$(Q) o$Z(DD$(Q)):Z6Z122220 $" UMBER MUST BE 7 TO 11 DIGITS LONG ":2215 $" NTER ESCRIPTION";DN$(Q) $DN$(Q)(DN$(Q),15):2200 $"":2310:2100 % 8,8,8,"PHONE PLUS,S,R" $% DS202330 9% LD18::2365 [% " OADING HONE IRECTORY" f%. X19 t%2 8,DD$(X) %3 8,DN$(X): %8 DS202370 %= " OAD RROR ! " %B DS$:8: %` " AVING HONE IRECTORY" %e 15,8,15,"I0":15 &j 8,8,8,"@0:PHONE PLUS,S,W" "&t DS202450 F&~ 8:" AVE BORTED ! ":DS$ h& " RESS NY EY":Q$:2010 s& X19 & DD$(X)""DD$(X)" " & DN$(X)""DN$(X)" " & 8,DD$(X):8,DN$(X): & 8:"";DS$ & DS20" AVE ": " AVE RROR ! " ' T11000::2010 '' 1,CC,CL:T31 H' " IRRECT IAL ":1,TC,TL g' " (ENTER A TO ABORT) ' " NTER UMBER";T2$ ' T2$"A"2010 ' Z(T2$):Z6Z122530 ' " UMBER MUST HAVE 7 TO 11 DIGITS ! ":2510 ' X1Z ( (T2$,X,1)"0"(T2$,X,1)"9"2550 ( 1( MT02133:2160 i( " UMBER MUST BE ALL DIGITS (0 THRU 9) ! ":2510 r((
200 ( 1,CC,CL ( " Ҡ " ( 1,TC,TL ( " 1 EARCH / ARK UFFER" ) " 2 AVE UFFER TO ISK" +) " 3 AVE UFFER TO RINTER" D) " 4 AIN ENU" Q) 1,CC,CL k) " ELECT PTION " ) Q$:Q(Q$):Q1Q43060 ) Q4200 ) Q 3100,3200,3300,3400 ) " Ԡ ELECT 000 AGE 000 ":(27)"T" *& 1,TC,TL:("548F") *0 Q$:(27)"N":3000 ?* " AVE UFFER TO ISK " L* 1,TC,TL o* " 1 AVE ELECTED EXT" * " 2 AVE LL EXT" * " 3 ISK IRECTORY" * " 4 BORT AVE":1,CC,CL * " ELECT PTION " + Q$:Q(Q$):Q1Q43240 + Q43000 @+ Q3:" RESS NY EY ":Q$:3200 d+ FF$"":" NTER ILENAME";FF$ u+ FF$""3000 + 8,8,8,FF$",S,W":DS203280 + 8:DS633276 + " ILENAME ALREADY EXISTS EPLACE (Y/N)" + Y$:Y$"N"3200 , Y$"Y"3274 , FF$"@0:"FF$:3270 L, " Ҡ - ! ":DS$ a, T1800::3200 v, " AVING ";FF$ , Q1("567D"):՞("5694") , DS20"AVE ":ՙ" AVE RROR ! " , DS$:8:T1800::3000 - " AVE UFFER TO RINTER"
- 1,TC,TL 1- " 1 RINT ELECTED EXT" O- " 2 RINT LL EXT" v-
" 3 BORT RINTOUT":1,CC,CL -
" ELECT PTION " -
Q$:Q(Q$):Q1Q33340 -
Q33000 -
Q23380 .
" RINTING ELECTED EXT":" ( [] KEY ABORTS )" .%
("4E9A") %.*
4:3000 ].4
" RINTING LL EXT":" ( [] KEY ABORTS )" l.9
("4EE1") y.>
4:3000 .H
" UFFER EROED" .R
219,0:220,66:T1800::3000 .1,CC,CL /" ͠Рՠ":1,TC,TL //" 1) CREEN OLOR ) AUD ------- ";BD$ `/" 2) CREEN UM ) TOP ITS ----- ";SB$ /" 3) ORDER OLOR ) ARITY -------- ";PY$ /" 4) ORDER UM ) ORD ENGTH --- ";WL$ /" 5) EXT OLOR ) RINTER .. -- "; *0PS$(PS):PS$(PS$,(PS$)1):(PS$)2PS$" "PS$ 30PS$ a0" 6) EXT UM ) RUE ---- "; v0TA0"":ՙ"" 0" 7) OMAND OLOR ) HAR ET - ";(CS$,6) 0" 8) OMAND UM ) ERM URSOR --- ";(CU) 1" ) AVE ETUP ) ANG ELAY ---- "; B1RD$(RD):RD$(RD$,(RD$)1):(RD$)2RD$" "RD$ K1RD$ q1" ) OAD ETUP ) AIN ENU" 1" ) ROTOCOL : ";XP$(X1) 11,CC,CL:" ELECT HANGE " 1Q$ 1Q$"Q"750:200 1Q$"1"4058 2SC15SCSC1:SC1 20,SC,SL:4052 -2Q$"3"4061 F2BC15BCBC1:BC1 Y24,BC,BL:4052 k2Q$"5"4064 2TC15TCTC1:TC1 24000 2Q$"7"4067 2CC15CCCC1:CC1 24000 2Q$"2"4070 2SL7SLSL1:SL0 30,SC,SL:4052 3Q$"4"4073 *3BL7BLBL1:BL0 =34,BC,BL:4052 O3Q$"6"4076 g3TL7TLTL1:TL0 q34000 3Q$"8"4079 3CL7CLCL1:CL0 34000 3Q$"B"4082 3BD$"1200"BD$"0300":BD$"1200":4000 3Q$"E"4085 4SB$"1"SB$"2":SB$"1":4000 ,4Q$"P"4090 h4" ONE VEN DD ARK PACE" q4Q$ 4Q$"N"Q$"E"Q$"O"Q$"M"Q$"S"4087 4PY$((Q$)128):4000 4Q$"W"4094 4Q(WL$):Q8QQ1:Q5 5WL$((Q),1):4000 5Q$"A"4097 W5" NTER ECONDARY DDRESS ";PS$:PS(PS$):214,PS:4000 i5Q$"T"4100 ~5TA0TA1:TA0 5213,TA:4000 5Q$"M"4103 5 4500:4000 5Q$"C"4106 5" NTER URSOR HARACTER" 5 Q$:CU(Q$):4000 6
Q$"H"4111 6 ""; H6 " NTER ELAY ACTOR ( 3 TO 15 )";Q$ 6
Q(Q$):Q3Q15" ETWEEN 3 AND 15 ! ":4108 6RDQ:4000 6Q$"L"4118 6" OADING ETUP ..." 6510:DS20" OAD ":ՙ" ! " 7DS$:8:T1800::4000 &7Q$"X"4900:4000 87Q$"S"4000 W7 8,8,8,"@0:SETUP PLUS,S,W" j7 DS20 4129 7 DS$:8:" - ! " 7 T1900::4000 7!" AVING ETUP ILE ...." 7"8,SC;"," 7#8,SL;"," 7$8,BC;","
8%8,BL;"," 8&8,TC;"," &8'8,TL;"," 48(8,CC;"," B8)8,CL;"," Q8*8,BD$;"," `8+8,SB$;"," o8,8,PY$;"," ~8-8,WL$;"," 8.8,PS;"," 8/8,TA;"," 818,CU;"," 828,RD;"," 838,CS$;"," 86DS20" AVE ":ՙ" AVE ! " 9;DS$:8:T1500::4000 J9T5$CS$:" NTER HAR ET ILENAME ";CS$:CS$T5$ k9CS$"STANDARD"("4F6B"): z98,8,0,CS$ 9DS204525 9"";DS$:8:T1800::CS$"STANDARD":("4F6B"): 98:" OADING ";CS$ 9CX1:CS$,8,1 9CX0: :$" ROTOCOL ELECT" 3:.X12:"";X;"- ";XP$(X): C:8" ELECT" \:BQ$:Q(Q$):QX1 p:LQ1 Q24030 :V4980:"LOADING ROTOCOL":X22:XP$(Q),8,1 :`DS$:DS0X13:X1Q :jX20:7010: :t4960 :1,CC,CL ;" ŠΠӠ":1,TC,TL +;:X18 M;" EY #";X;" = ";FK$(X): ;1,CC,CL:" EFINE HICH EY ( 0 TO END )" ;Q$:Q$"0"5200 ;Q$"1"Q$"8"5050 ;Q(Q$):" *** 20 HARACTERS AXIMUM ***" <" SE HE _ HARACTER FOR ETURNS" ?<" +----+----1----+----2" j<KF$"":1,TC,TL:" NTER TRING ";KF$ {<KF$""5000 <5100:5000 <FK$(Q)KF$ <T5$FK$(Q) <T3(T5$):X1T3 <(T5$,X,1)(95)(T5$,X,1)(13) < = T1Q1:T1(T121)819:T2T1T3:T2,0 +=
P1:XT1T1T31 J=X,((T5$,P,1)):PP1:: W=P1,CC,CL =Z" AVE UNCTION EYS ATA (Y/N) ?" =dY$:Y$"N"200 =nY$"Y"5220 =x" K AVING ATA ... =15,8,15,"I0":15:DS205270 >" Ҡ̠- Ǡ!":DS$ .>T1800::200 L>8,8,8,"@0:FKEY PLUS,S,W" g>X18:8,FK$(X);",": >8:DS20"AVE ":ՙ" AVE RROR ! " >:DS$:T1800::200 >p1,CC,CL >z" ˠӠ" ?1,TC,TL:" (NTER $ FOR IRECTORY)":1800:200 )?X2:(27)"N":("4FDB"): :?b("4FDB"): M?l END OF BASIC
!"#$%&'()*+,-./0123456789:;<=>?@[\]^^ ABCDEFGHIJKLMNOPQRSTUVWXYZ;<=>xX`x _X`TTTT O pV O ߥ `݅ޅۅ܅LN
!"#$%&'()*+,-./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^/ ` Ѕ )) ` ` ABCDEFGHIJKLMNOPQRSTUVWXYZ ) ԍ ` L{P ) N
2PL P
ܥ FP`8`
i$ ` 8
i# LNPdd" L[P ˥ CL Q L PɅɍLP
O L P8ii3 " O LP L P SQ L P XQ L P
HTA
OTAɬ ƍ L Pȍ L Pɥ" OL PǍ OL Pɹ ύ L Pɼ Í L Pɡ݅ۥޅܢ! L Pɭ `ɤ`ɲ`ɮ`ɸ`ɾ`ɫ`)L P)pL PɴL P\R L P
̠
= CLOSE TEXT BUFFER
= TOGGLE DUPLEX
= TOGGLE ASCII / GRAPHICS
= THIS HELP SCREEN
= KILL TEXT BUFFER (RESET)
= OPEN TEXT BUFFER
= DISK COMMANDS
= RECIEVE INARY D/L
= SEND INARY U/L
= SEND TEXT FILE FROM DISK
= VIEW DISK DIRECTORY
= RETURN TO MAIN MENU
= = MODEM ON LINE (ATO)
= - HANG UP MODEM (ATH)
= @ RETURN TO AUTODIAL
= * TOGGLE SCREEN COLOR
+++ TAKE MODEM OFF LINE
START OF SELECTED TEXT
END OF SELECTED TEXT
SKIP
BACKUP
DISPLAY OF SELECTED TEXT
RESUME GENERAL DISPLAY
݅ҥޅө ԦƩ ˅X`x ?>X`TTTTLV݅ޅۅ܅ pV L LAYLZ[L\L\ Y` X ` (YYC
IZ Z Y SZ( LY 6YYY Z SZY Y) YY Y SZY+ YY SZY Y YYY Y
Y%LoZI!Y #["Y#Y Z 6ZY YLZLMYLgYL^Y Lx X` 6Y `YYY` Z _C)LmZ_`hh L ` YYY Z` YY`hhhhYYLZY (ZLPYYLoZYLoZL[
ʩ Y YYL_ Y
LoZ Y Y Y ʭ Y Y _YLY` 6YQ
I!*ILM[&ץ` (YYY IZ Z SZLoZC=YL[ IZ Z SZLoZ [L\YL
Z ZY Y 6Y Y @YYYL[Y+ YYYYLR\ #["Y#Y ( YH) hI* l\"Y Y #Y
L[ 6YYqYY"YL\ 6YY+ YY` آ 奐@. O ) N C)LL N __+H) N h) N C)L0]C) H h O L\ NL ) `, _L(L+έ)`) ٭?8 )?` _9_x)?(H,8nN, H)OI@hX`