A: A0 EB(252)(253)256:10100áh'CP(252)(253)256:1: (CP)13 (CP)0 :((CP));:CPCP1::(250):CPCP1:C0:12ءj' A$(27) 12t' (0)0  0,1,39,24:7000:  0,0,79,24:7000F'1:CPCP1: (CP("1000")) CP("1  SBEB (("1000"))0 15:4:4:70001:T(EB1): EB1,0ؚ15: ("2A23"), ("2C"): ("2A00"),1,SB(SB256)256,(SB256)4:4:1: EB1,T:15:7000"":ISB71: SBEB (("1000"))0 15:7000S:#5,A$:A$ T$",A" I$(I$,(I$)2):B$"2":8050u580:'CP("1000"):SBCP:EBCP:C0:R$(13):T$""؞'" KEY - - ESCAPE TO MENU " '" - MOVE DOWN A LINE IN BUFFER"<'" - - MOVE UP A LINE IN BUFFER "n000"):10230d' (CP)13 10220:10200'CPCP1: (CP("1000")) CP("1000"):10230' (CP)13 10230:10220̢'15:CPCP1:C0:$(10) 100904f'4:4,3:15: ("2A23"),("4C"): ("2A00"),1,CP(CP256)256,(CP256):4ag' ;: A$""r1:5,((I));:II1:15 A$: A$"" IEB1:7430 IEB 5,(13):2170: 7410̛@1950:T$(I$,2)B I$"$" I$"$0" 8005 C DV8 U8,D0: U9,D0DI$"":81001E I$"$1" 8010PF DV8 U8,D1 '" - - SET START OF BLOCK "Ο'" - - SET END OF BLOCK ":" KEY - FAST SCROLL TEXT "'" KEY - TOGGLE FASTSCROLL ON/OFF"+' (0)0  0,8,39,23:  0,8,79,237'1: 6YB' : U9,D1`GI$"":8100J T$"8:" DV8:EC1:I$(I$,3):15:1062,56128:8000ޜT T$"9:" D9 DV9:EC3:I$(I$,3):15:1062,57128:8000Y T$"9:" D90 :"DRIVE 9 NOT PRESENT":I$"":8100N^ T$"$0" DV8 ((I$,4)),U8,D0:I A$"" CPCPC:C0:10010L' A$"" "WORKING..":1:10010V' A$(2) SBCP:EBCP:(7):12ˠ`' A$(5) EBCPC:(7):10100e' A$(10) 100904f'4:4,3:15: ("2A23"),("4C"): ("2A00"),1,CP(CP256)256,(CP256):4ag' $"":8100c T$"$1" DV8 ((I$,4)),U8,D1:I$"":8100h T$"$0" DV9 ((I$,4)),U9,D0:I$"":8100m T$"$1" DV9 ((I$,4)),U9,D1:I$"":8100oA$"1":B$A$1rT$(I$,2): T$",T" I$(I$,(I$)2):A$"2"j|T$(I$,2):  BP,32t 2D(D$) X1 DDD$(D$,X,1): DD$"0" DD10: DD(DD$)܌ (".,",DD$) 1:6160 DD0 6160""DD$; CK1 DD:BP,0T120:*BP,329 T120:B CKYA$: A$"H"X999j T1 A$) 3105: 3085  2170̅! 8,8,8,"PHONE.NUMBERS,S,W": DS DS$:8:2170# 8,"MT"((MT),2)4& I115: PN$(I)"" T$PN$(I)"/"PH$(I)"/"ID$(I)"/"PW$(I)"/":8,T$F0 :8:8:2170i MT3 BR$"300":BR$"1200" 960 2584,(2585)15::#5,A$: B$: A$"" B$"" B$"" 1,0,23,"ALL ABORTED... ",1:5,(13): 4:"":2170:#5,B$:A$A$B$: B$""CN$""; I1 (A$):B$(A$,I,1)O B$" " 6380 ("ABC 2:T$"+++":4800: 2:T$"ATH0":4800:5,(13):BD,0:403015::"[ ON HOOK ]";: MT2 MT0 BP,38:BD,0:4030:՗BD,32:BP,0:"[MOVE T-D SWITCH TO T]":4030- MT3 "????":217015:"[ OFF HOOK ]";: MT2 MT0 BP,0:BD,32:217 IVE 8":"THEN PRESS THE _ KEY":9)"RESS  TO ABORT" A$: A$"_" 6620: 2170"CGTERM-128 V3.3": DS DS$:2170"CGTERM/ML V3.3",B0,P10752 P14208: DS DS$%21708," 7":2170K"ESC 8":2170^"ES S [] TO ABORT ": 1!1: SBEB (("1000"))0 15:7000"1:T(EB): EB,0#15: ("2A23"), ("4C"): ("2A00"),1,SB(SB256)256,(SB256)%4:4:1: EB,T:15H&8)" PRESS A KEY ": A$:7000w* 150:r X X998 BP,0:2170ɍ1,0,23,"DIALING COMPLETE ",1: 1 $1,0,23,"WAITING FOR CARRIER... ",1:C0:T01.TT1 :15: ((BP) 16)0 CC1L8 ((BP) 16)1 C0lB A$: A$"H" :BR$(BR$" ",4): I1(BR$):1041I,((BR$,I,1))128: ͆H I1(ID$(D%(PH)))W 5,(ID$(D%(PH)),I,1);:T15::\ 5:1430 I1 (PW$(D%(PH)))A 5,(PW$(D%(PH)),I,1);:T15::N 5:1430x<"  EDIT USER.KEYS DEFGHIJKLMNOPQRSTUVWXZY",B$) B$((B$)128)CN$CN$B$CN$(CN$,7) CN$" " 1,0,23," -... ",1:PHPH1:6300U CN$"" 1,0,23," ٠ ",1:6300ђ 0:՗BD,32:BP,32:"[MOVE T-D SWITCH TO D]":2170Ɋ BR$"1200" 2170: T$"300":1030 C1 (T$):5,(T$,C,1);: D125:::p 1:15:BD,38:BP,0az"MOVE T-D SWITCH TO D":"PRESS SPACE BAR TO DIAL":" H TO HANGUP": A$t| C 9":2170X ((250)(251)2564095)0 :"BUFFER EMPTY"::2170]" EXT XTRACTION"4)" 1 - SET START AND END OF BLOCK "4)" 2 - SEND BLOCK TO SCREEN "H4)" 3 - SEND BLOCK TO DISK "u4)" 1: SBEB (("1000"))0 15:7000+"ILE NAME "DV"[]";:840: I$"" 2170Ƙ,8000: I$"" 7210. A$"1" 15: ("2EBB"),("4C"): ("2EBB"),("2C")\/ B$"1" 8,DV,1,I$",S,W":(EC),A: A63 :"FILE ALREADY ON BP,0:2170~LX("HTR",A$)ĎV C5 1,0,23,"ARRIER DETECTED ",1:1420` T2006190 : 1,0,23,"O CARRIER DECTECTED ",1:BP,0: 3 j12206 1: NC0 6320I PHNC PH1e NC0 D$PN$(D%  FILE "> " ====================="ćA I1 5: ""I"> ";UK$(I): F::"ENTER NUMBER TO EDIT >": A$: ("12345"(13),A$):I(A$)K I0 3940sP"";I;">";:840:UK$(I)I$:"CONTINUE EDITING [Y/N]": A$: ("Y",A$)  CN$"" (((BP) 16)CD) 1,0,23," ",1:1,25000,95,2,18000,6000 :2170I0:1,0,23," PRESS TO GOTO TERMINAL MODE ",1, II1:A$: A$"" 2170F I200 6300: 6410P6300pdIM BD,38:BP,38 A$"H" 2170 NC0 D$PN$(D%(PH))勅T$("DIALING "D$" ",40) NC0 D$PH$(D%(PH)) 1,0,22,T$,1[ 1,0,23," ",1: 1,0,23," ",1l POKE  4 - SEND BLOCK TO PRINTER "4)" 5 - SEND BLOCK TO MODEM "ϖ4)" 6 - RETURN TO TERMINAL MODE ": A$: ("123456"(13),A$)" (A$) 10000,7200,7210,7300,7400,2170,2170t "":4:4,3:"  PRES  DISK.":8:7210~1 B$"2" 8:8,8,2,I$",A"241:T(EB1): EB1,0:SBSB1ۙ915: ("2AF9"),SB(SB256)256,(SB256):8>1: EB1,T:15:2170A"":4:4,4,7:"  PRESS [] TO ABORT ": 1v1: (PH))T$("DIALING "D$" ",40) NC0 D$PH$(D%(PH))ԏ 1,0,22,T$,1T$"ATDT"D$(13):4800: 2#5,A$: A$"" 6342H 1,0,23," AITING FOR CARRIER (H=HANG UP) ",1kA$"":B$A$:15:  3910Z I1 5:""I">";UK$(I):ʈd:"SAVE USER KEYS [Y/N]": A$: A$"Y" 2170n "USER.KEYS": 8,8,8,"USER.KEYS,S,W" s DS DS$:8:2170:x I15: UK$(I)"" 8,"*": 8,UK$(I)I:8:2170 MT3 "[HANGING UP]...": L24: I5 II5:6600~fT$UK$(I)i I1 (T$)n#5,A$: A$"" A$;:6510ٓs5,(T$,I,1);: T110:::5:1430 I 6610,6700,6800,690021700:"O SAVE A COPY OF -128 PUT THE"v"DISK YOU WANT THE COPY ON IN DR w\2170wf I04:250I,(2682I)::wz#5,A$: A$"" 1420: A$;:2170w5,8x" 128 KEY OMMANDS "Mx""zx" @ UTO-DIAL  * IRECTORY"x" PEN BU [] ";:840: I$"" 2170p8000: I$"" 1750q A$"1" 15: ("2E82"),("4C"): ("2E82"),("2C")/q8: 8,DV,8,I$:(EC),I,A$Vq I "";(27)"Q";I;A$:8:1750tq" OADING FILE ";I$q (I$,1)"P" #8,A$:#8,A$q 0{ "O CHANGE MODEM TYPE USE AND THEN SELECT 0 - CHANGE MODEM TYPE FROM MENU"|$ :"HIS PROGRAM CAN USE DRIVES 8 OR 9 "A|) "T ANY FILE NAME PROMT YOU MAY ENTERd|. "8:FILENAME FOR DRIVE 8 OR"|3 "9:FILENAME FOR DRIVE 9 OR 70t ER30 t ER11 :""(ER);"ERROR IN LINE"EL:t (ER): 21706u" AKE SURE PRINTER SET ":" RESS SPACE BAR TO CONTINUE "KuA$:A$""1990ru"PRESS [] TO ABORT"uA$:A$""2010u A$(13 ,A$: I((4625)2)256 ((4625)2)256T 0:C$((I)):2575,2,2:5,C$;:2575,1,1 #5,A$: A$"" A$;:2570 A$: A$""I650001 :250,LO:251,HI:5:2170\ " EDIT PHONE.NUMBER FILE " " ================== >";PN$(EE):"PHONE # >";PH$(EE):"ID NUMBER >";ID$(EE):"PASSWORD >";PW$(EE): "ENTER _ TO LEAVE ITEM UNCHANGED"* "NAME >";:840: I$"_"PN$(EE)I$W "NUMBER >";:840: I$"_" PH$(EE)I$ "ACCOUNT(ID) NUMBER >";:84 FFER  LOSE BUFFER"x" ERO BUFFER  40/80 SCREEN " y" SCII MODE  RAPHIC MODE"LO(250):HI(251)v? ======" : 8);"SET FOR "MT$(MT)" MODEM"Ԁ 8);" 0 - CHANGE MODEM TYPE": I1 15$ PN$(I)"" I;"--------------";25)"---------------":3040> I;PN$(I);25);PH$(I)D o "NTER CHOICE # >";:840:EE(I$) I$"0" 0: I$"_" ID$(EE)I$ "PASSWORD >";:840: I$"_" PW$(EE)I$ "CONTINUE EDITING [Y/N]": A$: ("Y",A$) 3050 :" ";MT$(MT);" MODEM"% I1 15f PN$(I)"" I"--------------";25)"---------------":3083 I;PN$(I);  RINT BUFFER"y" OS COMMANDS PLOAD BUFFER"y" ^ HANGE BAUD  \ HANGE BLOCK"'z " + FF HOOK  - N HOOK"Xz " ULTI-RECEIV UIT TO "z " XTRACT TEXT DIT PHONE # " ,0:4,1r:A;B$:1730r"":4:4,3:"  PRESS [] TO ABORT ": 1,s&15: ("2A23"), ("4C"): ("2A00"),1,0,16 "LOSING WHAT'S ALREADY IN THE BUFFER OR"}? "TO APPEND BUFFER TO A FILE ALREADY ON"}@ "DISK USE FILENAME,A."/~A :"NY COMBINATION OF THE ABOVE SHOULD WORK"9~B 2170p~ :" FILE NAME";DV"[] ";:840: I$""2170~ 8000: I$"" (0)05:15: ("D600"),10:("D601"),96:(14);:("2C9F"),("60"):21153w@ (0)5 0:15: ("D600"),10: ("D601"),0:("2C9F"),("A4"):("2AF3"),0,0MwC250,LO:251,HI:1430gwH:I"BYTES IN BUFFER"wR("FE00")I("1000")"BYTES FREE"  "0 = 1660 NO CARRIER DETECT":"1 = 1650,ESTRIDGE":"2 = 1660 CARRIER DETECT/OLKS 6420":"3 = 1670/AYES COMPATIBLE"4 "ENTER TYPE # >";:840: I$"" ("0123",I$)0 3053P MT(I$):3200:3075:j EE1 EE15 3075ׂ :"NAME 25);PH$(I) "SAVE THIS LIST TO DISK [Y/N]": A$΄ ("Y",A$)0 3100 8,8,8,"PHONE.NUMBERS,S,R":8: DS0  "PHONE.NUMBERS":3105f :  "PHONE.NUMBER FILE NOT ON THIS DISK":"REATE FILE [Y/N]": A$ ("Y", z " = D #  = ASSWORD "z " SER KEYS  LEAR SCREEN"{ " ESSAGEAKER 6 OPY 128"Q{ ""{ :10)"ORE HELP? [Y/N]": A$: ("N",A$) 217  2170sR (250)(251)2564096 :"BUFFER EMPTY":2170sS"PRESS ANY KEY TO ABORT"tX#5,A$: I4096 (250)(251)256Otb1:C$((I)):0:2575,2,2:5,C$;:2575,1,1ptg#5,A$: A$"" A$;:1895tlA$:A$"" I65500tv:5:21  2500~ A$"1" 15: ("2E82"),("4C"): ("2E82"),("2C")~ 8:8,DV,8,I$",S,R":599: A B$:8:2500> LO(250):HI(251):250,255:251,(4625)1:254,0:("2AFC"):8x T(250)(251)256((4625)2)256: T3200 T3200 #5 \X15:" TRANSMIT FILE NAME"DV"[] ";:840:I$""FL12170&\Z8000: I$"" 600G\]2:2,DV,2,I$",P":599:2:r\b A0 SA0:T1:"PROGRAM FILE": 680\l A64 SA2:T2:"SEQUENTIAL FILE": 680\v B$:600\:2:2,DV,SA,I$: T$("DIALING "D$" ",40)g 1,0,22,T$,1Ig 1,0,23," ",1: 1,0,23," ",1eg NC0 D$PH$(D%(PH)){g15:BP,38:BD,0g T1 100:g15:BP,0:BD,32g T1 9074_" HOLD DOWN COMMODORE KEY TO ABORT ";+` "1234567890123456789012345678901234567890";\`12309:12291:2:X1500:X:2585,(2584):` (512)1 (7)"TRANSFER ABORTING PLEASE WAIT.. ":(EC),"S0:"I$: 5: "TRANSFER COMPLET : A$"H" CK9999j\j^ CK9998 1390j`T0kb MT21,0,23," AITING FOR CARRIER (H=HANG UP) ",1_kc MT01,0,23," PRESS T TO GO TO TERM MODE ",1xkd#5,A$: A$""1380kf A$:TT1ki MT0 ("T",A$) 1420 c  MT3 T$"ATE0":4800:5c2170d:" UTO - IALER ""MT$(MT)Kd. I1 15ad3 PN$(I)"" 1085d8""I"- ";PN$(I);25);""PH$(I)d= IdB"PRESS Ο TO RETURN TO TE 0,3500,3900m ML34 6500m ML34 300m2170m15:BP,38:BD,0: 5:T0n1220n2170nTn^nh:" BUFFER CONTAINS "(250)(251)256("0FFF")" CHARACTERS ": ((250)(251)256("0FFF"))0 2170nr" SAVE FILE N 599\ A B$:2:600 ]12309:14363,T:12300:(512)12:1420C]" HOLD DOWN COMMODORE KEY TO ABORT ";t]"1234567890123456789012345678901234567890";]12309:14360,BS:12294:2:^ (512)1 (7)"TRANSFER ABORTING PLEA 800:g I1(D$):DD$(D$,I,1): DD$"0" DD10: DD(DD$)h (".,",DD$) 1:1350)h ("PR",DD$) DT0h ("T",DD$) DT1:54276,16:54283,16:54277,0:54284,0:54278,240:54285,240:54295,0h DD0 1350h""DD$;h D ED":1,55000,55,2,40000,14005`2170a "LOCK IZE? ";:840:I$""2170(a*BS(I$):BS40BS40;a4BS255BS255Ea>2170TaHI$"":FL0kaR244,0:(250)"";ua\ A$afA$(13)950apA$(20)930azA$""FL1:950a(I$)3 kn("H",A$) 15:BD,0:BP,38:1050Clx15: ((BP) 16)CD 1,0,23,"ATA CARRIER DETECTED ",1:1,25000,125,2,16000,6000:2170l} T300 1380: 1,0,23,"O CARRIER DETECTED ",1:1465l1380m:14 RMINAL MODE "dL"OR ENTER MENU NUMBERS OR A PHONE NUMBER "VeV"FOR MULTIPLE DIALING ENTER MENU NUMBERS SEPARATED BY COMMAS(IE. 1,3,2) ":">";ne`840: I$"" 2170ee (I$,",")0 (I$)2 D$I$:NC0:1210et (I$)0 2170 AME ";DV;"[] ";:840: I$"" 2170nt8000: I$"" 1650#ov A$"1" 15: ("2EBB"),("4C"): ("2EBB"),("2C")Ro| B$"1" 8:8,DV,1,I$",S,W":599:1670yo~ B$"2" 8:8,DV,8,I$",A":599o A0 "SAVING "I$: A$:8:"B SE WAIT.. ": 15: "TRANSFER COMPLETED":1,55000,55,2,40000,14005^2170M^15:" SAVE AS?"DV"[] ";:840:I$""FL12170d^8000: I$"" 730^12309:12297:(512)11420^T$","(TY$,(14363),1)",W"^"ILE YPE: "T$((14 T0 h CK1 DD:15: BP,32: BP,32h( T1 20:h215: BP,4i< T1 16::'iF T1200::13703iH: ^iJ ("147*",DD$) 54272,117:54273,77iL ("2580",DD$) 54272,152:54273,85iN ("369#",DD$) 54272,161: 6(7);:860a((A$)127)32 860aA$;:I$I$A$:850 b(I$)0860,b" ";:I$(I$,(I$)1):8507b" ":[bS(BR$):2576,0:S3002576,6rb S1200 2576,8bRCCSS:1010:15104,LO:15105,HIbS1200RCCSS.966:1010b )"": D$"" " LAST CALL ":D%(PH);"- "PN$(D%(PH));" ";PH$(D%(PH)):D$""4m15:4616,0:("2AF3"),0,1: ("2AF0"): T,MLm ML 400,600,730,800,1020,590,1050,1640,1730,570,1820,1980,1870,2110,2180,570,580,7000,3000,4000,4010,340 e~NC0e: CP(I$,",")e CP0 (I$)0 fNCNC1:D%(NC)(I$) f CP I$(I$,CP1): &f/fPH0Af NC0 1235\fPHPH1: PHNC PH1ofD$PH$(D%(PH))f MT1 6000f MT3 6300f NC0 D$PN$(D%(PH))f UFFER NOT SAVED":2170o15: ("2AF9"),255,15:599:8::A;B$:1650p:(14);"PRESS [] TO EXIT"4p A$:A$"" 1720: A$"":zp" BUFFER CONTAINS"(250)(251)256("0FFF")" CHARACTERS "p" LOAD FILE NAME ";DV;" 363))^2:2,DV,1,"0:"I$T$:599: A %_: 2:"FILE EXISTS. OVERWRITE FILE [Y/N]": A$@_: ("N",A$) 730]_: ("Y",A$)0 766_: (EC),"S0:"I$:2,DV,1,"0:"I$T$__599: A A;B$:2:730_X1700:X::5 54273,94iP ("123",DD$) 54279,168:54280,44jR ("456",DD$) 54279,85:54280,491jT ("789",DD$) 54279,150:54280,54ZjV ("*0#",DD$) 54279,74:54280,60jX54276,17:54283,17:T125::54276,16:54283,16:T110:jZj[ A$ 2582,LO:2583,HIbRCCSS2100:1010:2578,LO:2579,HI:cHI(RC256):LO(RCHI256):ic"BAUD RATE>";:840:T$I$:BR(T$): BR150 (BR500 BR1200)2170ycBR$T$:960cBR$(BR$" ",4): I1(BR$):1041I,((BR$,I,1))128:(PN)I$:I$"":PNPN1:200: I$I$A$:255\JPNPN1:8:BF("FDFF")((250)(251)256):BF$(" "(BF),5)J  MT3 T$"ATS0=0":4800:5:BR$"1200":960:T$"ATX1":4800:5J#5,A$:"BF CLOSED GRAPHIC "BR$" BD FREE <8>";K (SAVED":420U I1C:8,LN$(I)::8:4201U:" DIT LINE # >";:840: I$"" 420OUJ(I$): J1 JC 460U 1,0,20,(27)"@":1,0,20,LN$(J)::" ENTER CHARACTERS TO REMOVE ":" /ALL TO ENTER NEW LINE TO EXIT ":U840: 6789012345678901234567890";0N12309:12291:2:X1500:X:2585,(2584):N (512)1 (7)"TRANSFER ABORTING PLEASE WAIT.. ":(EC),"S0:"I$: 5:5," ":2170N:"  FILE TRANSFERED ":305O""13)" ESSAGE AKER "::7) N$(J)" ":CC1Y: "##:";J;:"";:840: I$"" I$" "!YLN$(J)I$:420ZY::"OS EDGE ";DV;"[] ";:840: I$"" 579rY;8000: I$"" 570Y< I$"@" 599:A;B$;I:570Y=I(I$,":"): I0570: (I$,1)"F" 577: I$(I BP=USER PORT BD=DATA DIRECTION REGISTER=G15: (BP)16 CD0: CD16GI40964104:TT(I)::4105,2:4106T,27:4106T1,("H"): SET HELP KEY TO ESC HGBR$" 300":960H8:8,8,8,"PHONE.NUMBERS,S": DS (7);"PHONE.NUMBERS FILE NOT F ,440,480,450:420(R:"KILL MESSAGE [Y/N]": A$: ("Y",A$)0 420IRI140:LN$(I)""::C1:420zR: I1C1: "##";I;:"";LN$(I)::420R:"LOADING MESSAGE INTO BUFFER":T("1000"):1R I1 C: J 1 (LN$(I))R T,( "2AF6"): ZERO BUFFER PRINT BYTES FREELK 0,1,39,24,1:"FOR HELP SCREEN PRESS HELP KEY":1420wK,"  ULTI-ECEIVE "K1I$"":I0K6:#5,A$: B$:II1: A$(9) B$"" I700: B$"" 2170L8 I700 :"   I$"" 420U I$"/ALL" 475VI(LN$(J),I$): I0 420>VL$(LN$(J),I1):R$(LN$(J),I(I$))kV:" ENTER CHARACTERS TO ADD "::840VLN$(J)(L$I$R$,37):464V "##";J;:840:LN$(J)I$:420V:" FILENAME";DV"[]"CLEAR ALL LINES [Y/N]": A$: ("Y",A$)0 4022OC1: I140:LN$(I)"":dO" NTER COMMANDS ON A LINE BY THEMSELVES "O" /E EXIT TO ESSAGE AKER MENU "O" /A ABORT TO TERMINAL MODE "O" /B BACKUP$,I1)Y>8,DV,8,I$:599: A A;B$;I:8:570!Z?#8,A$: ST 8::570: A$;CZ@ A$: A$"" 575: 8:570`ZA(EC),I$:599:B$;I:570uZC599:B$;I:2170ZD"": ER0 EL65535 " ";(ER);" IN";EL [F" EXIT PROOUND":8: 2:270~H#8,A$,B$,C$:A$A$B$: A$"MT"8:MT2:(7);"RONG PHONE.NUMBER FILE FORMAT":"SE TO CREATE NEW FILE": 2:270HMT(C$)HPN1:I$""H#8,A$: ST 260H A$(13) 200H A$"/" PN$(PN)I$:I$"": I$I$(LN$(I),J,1)):TT1:S T,13:TT1:: T,0:154S250,T(T256)256:251,(T256)SI("FDFF")((250)(251)256):I$((I),2):I1(I$):0:1049I,((I$,I,1))128:SI16:1026I,(("CLOSED",I,1))64::0:("1800"),0:4,1:420 T +++ TIMEOUT +++ ":2170 L;:#5,A$: A$(9)`L@ A$(4) :"  ULTI-ECEIVE OMPLETE ":2170LE:I$I$A$:#5,A$: A$(13)LG12309:12297:(512)11420LJT$(I$,1):I$(I$,(I$)2)LOT("PS",T$): T0 T1MT";:840: I$"" 420V8000: I$"" 480+W A$"2" "NO TRANSLATION OF MESSAGES"EW8,DV,8,I$:(EC),A,B$W A0 "LOADING "I$: A$:8:"ESSAGE NOT LOADED":420WC1:I140:LN$(I)"":W#8,A$:TST: A$(13) T 488WLN$(C)L ONE LINE - RE-ENTER TEXT "4P" 40 LINES MAXIMUM ": 2eP C1 I1C1: "##";I;:""LN$(I):P "##";C;:"";:840P I$"/E" 420P I$"/A" 2170P I$"/B" C1 CC1:LN$(C)"":410P GRAM [Y/N]": A$: ("Y",A$)0 : ER0 2170: 2170:[I" ESET COMPUTER [Y/N]": A$: A$"Y" 15:("E000"):ՙ"TYPE GOTO 1420 TO RE-START":("0328"),110:4616,0[M[N1950: DV8 : U9[S2170[W(EC),A,B$,I:A$:200 I#8,A$: ST 260 I A$(13) 230QI A$"/" PH$(PN)I$:I$"": I$I$A$:230gI#8,A$: ST 260|I A$(13) 252I A$"/" ID$(PN)I$:I$"": I$I$A$:252I#8,A$: ST 260I A$(13) 255J A$"/" PW$:" FILENAME";DV"[]";:840: I$"" 420"T8000: I$"" 450OT A$"2" "NO TRANSLATION ON MESSAGES"}T B$"1" 8:8,DV,1,I$",S,W":599:458T B$"2" 8:8,DV,8,I$",A":599T A0 "SAVING "I$: A$:8:"ESSAGE NOT "ECEIVING ";: T1 SA0:"PROGRAM FILE ";:3556M^SA2:"SEQUENTIAL FILE ";AMc""I$aMh2,DV,1,I$","T$",W":599Mm A B$:2:5," ":2170MrX1700:X::59074Mw" HOLD DOWN COMMODORE KEY TO ABORT ";M|"123456789012345N$(C)A$:486XLN$(C)(LN$(C),37): C39 T 489: CC1:486X8:420fX C40 491: :"MAXIMUM OF 40 LINES ! < CAN'T INSERT >":420X:" INSERT AT LINE # >";:840:J(I$): J0 JC 420X I C J 1:LN$(I1)LN$(I)::L I$"" I$(32)QLN$(C)I$: C40 CC1:410Q:" []DIT []ONTINUE []IEW []ERM MODE ":"[]NSERT LINE []ILL []UFFER MESSAGE ":"[]OAD FROM DISK []AVE TO DISK "Q A$: ("ECVTIKBLS",A$) 460,410,430,2170,490,42512000:3110G&TT0H,A$:A$(4)5,(6);:"* OWNLOAD COMPLETED *":(7):CS64:*H&A$(1)12000:J1800::10020nH'TTTT1:TT4009970:"++ TIMEOUT ERROR++ "H'TRTR1:TR105,(21);:9960H'"++ RANSFER A"S" RSRS1: 8920@": RS2 RS1 A": RS1 (27)"N",A": RS2 (27)"R"7A" 8590UA" CH$"D" 8970: 8930sA" CH$"R" 9050: 8940}A" ...A" CH$"T" 56577,((56577)32): 9320: 8580A -=>";BK:K" ELCOME TO MALLTERM /"8L" ITH THIS TERMINAL PROGRAM YOU CAN DIRECTLY TO YOUR 128"L" CP/M DISKS PROVIDED THEY ARE 168K DISKS AND DOUBLE SIDED."L" :  -=*=-"D$: 1::::"  IT ANY KEY TO CONTINUE "E$ Y$: 8580 E"$ A$(34):A$(39)0E,$(A$(0));aE6$ Q$: Q$"" 9200: "TOPPED":9230lE@$ 9200EJ$15,A$,B$,C$,D$ET$ (A$)0 :"":A$,B$,C$,D$E^$ @ @19<@1:CPCP1: (CP("1000")) CP("1000"):5R@ (CP)13 3:1@CPCP1: (CP("1000")) CP("1000"):5@ (CP)13 5:3@15:CPCP1:C0:@A(CPC)@ A. EBCPC1:15:10100@ A13 (250):CC1:12 8 ".CB"  BY "[CD"  UTCH HOMPSON "CE"  "CF"  OVEMBER 6, 1986 "CG"  "CK5,6DP0:( BORTED--TOO MANY ERRORS "::10160H$'SRST 16:SR0J1100:JI.' AB$: AB$"A" 10160I8'CK0:BF$""8IB'#5,W$:W$""W$(0)iIL'#5,C$:C$""C$(0):(SD16)0J1200:JIV'(W$)(255(C$))"++ INVALID BLOCK HEADER ++":J #8580A #(7)A#:47,2,79,23,1B#"  "CB(# C71 19:"   ": C7mB2#"  "B<#50,4,77,21,1BF# BP# 1:"": 8800B64 CP/M DISKS BE USED WITH THIS PROGRAM."M" HIS PROGRAM USES PROTOCOL FOR DOWNLOADS."[M" ERMINAL PORTIONS BY OMBS WAY OFTWARE."M" RANSFER CP/M RELATED PORTIONS BY IKE CEh$(7)Er$"";F|$" 1=PTIONS MENU 3=/ / ILE(S) 5=^0+RETURN 7=^+RETURN"eF$" "F$ 0,2,79,24,1:: 10FH&"":CP$"":TY$"":FR&" E&A A147 "[CLEAR SCREEN]":CC1:6=A ""(A);:CC1:6SA A$:15:10050fA&:1:0:1950yA0,1:4,1:5,8A0,0,39,24,1A'1,3,6," ",1:A((14)"  OLOR RAPHIC ERMINAL 128 "B2" "3624"),27DZ"CGTERM/ML V3.3",B01Dd15: ("2F00")nDn 58,("0F"):57,("FF"):: SET TOP OF VAR BELOW BUFFERDx5,2,0,(8)(0):#5,A$:BS255:1,8,15:T$(3),PN$(15),PH$(15),ID$(15),PW$(15),D%(15),MT$(3),UK$(5),LN$(40)Dz12312E3,9,15: 1500:#5,A$:J:10000J`' (W$)BK "++ BLOCK SYNC LOST, ABORTING TRANSFER":5,"";:10160Jj'CT0CJt'#5,A$:A$""A$(0):(ST 16)0J1100:JSJ~'CKCK(A$)xJ'BF$BF$A$:CTCT1:CT12810100J'#5,A$:A$""A$(0)J'(CK 255)Z#Bd#""Bn#"HAT IS THE NAME OF THE FILE -=> ";F$Cx# F$"" 8580MC#"HAT TYPE OF FILE IS THAT?";:" <>ROGRAM <>SER OR <>EQ"WC# O$jC# O$"" 8580yC#T$(O$,1)C# O$"S" O$"P" O$"U"9090C#"SE THEAWHORN."M" ACKED TOGETHER FOR ALL CP/M 128 OWNERS BY IM ROUGHTON."4N" PRESS ANY KEY TO CONTINUE":A$: ACKED TOGETHER FOR ALL CP/M 128 OWNERS BY IM ROUGHTON."4N" L" : CIEVE XMODEM FILE. IT  '' DURING TRANSFER TO ABORT!"AG\&""::TGf&3000:E29330G&:"TARTING DISK STATUS IS -=> ";DS$: 5::G&BK1:5,(21);G&TR0:5: BY "KB<"  AVID RATTON & REG FOUNTZ "xB>"  "B?"  WITH URBO-SAVE BY EN AYS "B@"  "CA"  BASED ON ERMINAL.C1/12 DS DS$:D90: D9255ETY$"PSP":T$(1)"ROGRAM":T$(2)"":T$(3)"ORDRO":CS1.02273E6:0:250,255:251,("0F"): ("2FF3"),127EMT$(0)"1660 NO CD":MT$(1)"1650":MT$(2)"1660 CD/OLKS 6420":MT$(3)"1670/":DV8:EC1F [250,251] BUF(A$) BKBK1:J'"++ CHECKSUM ERROR ++":10000J':5,(6);:A$"":E11:-K':A$"":"OTAL / SPACE USED = ";(BK4)"": 57K'3440[K."ODEM OWNLOAD IN PROGRESS"K."OWNLOADING -=> ";CP$"."TY$K."ECEIVING BLOCK NUMBER 'NO SCROLL' KEY TO PAUSE --- NY OTHER WILL STOP."$D#"---------------------------------------------------------"5D# 0,3,79,24CD# 15,8,15cD# 6,8,5,"0:"F$","O$",R"mD#9290xD##6,A$D# ST0 9250D$ ST64 "-=*=- ND OF FILEFER POINTER $2FF3 0=ASCII 127=GRAPHIC@F--------------------------------xFA$"":8:8,8,8,"USER.KEYS,S,R": DS DS$:8:150FI1::T$""::#8,A$:TST: A$(13) FT$T$A$: T:UK$(I)T$:II1: (I6) TGBP56577:BD56579:T0:LBR, ASM, TXT, DOC ETC. ETC.",/ U$"0"::"/ FILE NAME, TYPE -=> ";CP$,TY$Q/ PF0:LF0:CP$""5,"":9330/ (CP$)8"FILE NAME TO LONG. 8 CHARACTERS MAX.":3020/ X51:I050: TY$VT$(I)XI:I50:3060/ VT$(I)"***"I50/ 19T%(21)21:T%(22)22:T%(26)26:T%(24)24 :J6590:T%(J)J32:":J9195:T%(J)J:?:J193218:T%(J)J128:d:T%(134)19:T%(135)17:T%(136)27z:J0255:HKT%(J):HK0F%(HK)J:F%(HK128)J:: 8580: 5:::"  I3 RAD2((NB)24)((R1)3):1:T(RA):S(RA1):P(RA2)53 14,"U1";2;0;T;S:14,"B-P";2;Pf3 1,Y$;:CS6414,"U2";2;0;T;S:14,"B-P";2;03 14,"U2";2;0;T;S:1:NR,((NR)1)3* CS64R834 R:CS6434403> BABA13H 1:(NR)1283 B0KD31:2350,BD2(B)24-,IBB186:1:T(I):S(I1):P(I2)?,15,"B-P";2;0T,15,"U1";2;0;T;Sa,J1256,A$:A$"\"KD31:IB18:J256:EF1:2330,#1,X$:X$""X$(0),(X$)26J256:IB18:KD31:2330,(X$) S:14,"B-P";2;07~14,"U2";2;0;T;S:1:NR,((NR)1) 75,(6);7CS64R867R:CS6410170:3390r7X 2ZB,ASM,BAK,BAS,BIN,C,COM,DAT,DOC,DQC,HEX,HLP,I80,LBR7b LIB,LST,MAC,PRN,PRT,SRC,SUB,SYM,SYS,TEX,TXT,***7l 0,5,10,15,20,4,9,14,19,3,  <> ISK DIRECTORY (8) "!>!" "Z>""  <> EAD SEQ FILE FROM DISK ">"" ">""  <> ERMINAL MOD I:X51"ILE YPE NVALID":3020 0 N0:I164:U%(I)229NI:I64K0 I:N0"/ IRECTORY ULL":E21:Q0 i0& 1,8,2,"#":14,8,1500 1:DD1(N1)32:D,(U$):ID1D8:I,32:I0: I1(CP$):1:DI,((CP$,I,1)):I0D I911:1 OMETHING'S WRONG!!!! ": :(143):DS$'; :" RROR IN LINE NUMBER ";:EL: 32; 8580p; :,10,10," LEASE CONFIRM EXIT COMMAND -=> () ",1; EX$: EX$"E" "": 8580; : 3:"":808,110:;!(5125)1501903R N0:I164:U%(I)229NI:I64+4\ I:N0"/ IRECTORY ULL":CS1: 6:3990;4f EE1:3120X4p 3:1:14:5,(13),(24)4z CS1::"RITING / IRECTORY":4 14,8,15:14,"I0": 1,8,2,"#"4 DD1:S29:14,"B-P";2;0:SSR1%(S)492300-X(BC8)8:XBCX:X8X:XX1X:4," ";:XX(-BCBCX:2330D-(X$)124,"";:2330o- 4,(A%((X$)));:A%((X$))0BCBC1- (X$)13BC0- J-$ I-. K-8 1:15:EF2400-B FFF:EE1:IF64:U%(I)2292390.L 1:8,13,18,2,7,12,17,1,6,11,168v 0,5,10,15,1,6,11,16,2,7,12,17,3,8,13,18,4,9,14J8 0,5,10,15,2,7,12,17,4,9,14,1,6,11,16,3,8,13y8 0,5,10,15,3,8,13,1,6,11,16,4,9,14,2,7,128J:(14):RE180408T5,2,3,(6)(0)8^ 56579,38:56577,(56577)E "?$"" ":?.""  <> / TILITIES "q?8"" "?L"" "?V"":DI,((TY$,I8,1)):I:D12,E1N 1:D13,0:D14,0B1X U%(N)(U$):N$(N)(CP$" ",8):T$(N)TY$`1b 1:NRD15:BAD16:NR,0|1l IBABA15:1:I,0:I1v NB170:I0169:1:(D3I)0NBI:I1691 I:1:NB170D,229:"/ ISK U0;!:A$"";!"": 5 XIT THIS PROGRAM "A=!" "z=!"  <> CREEN REVERSE TOGGLE "=!" "=!" 5 A$5 93305R1869960:E15,"":R8:R:CS1:9330$6$CS643680F6VICT1128:BF$BF$(26): I6`RAD2((NB)24)((R1)3):1:T(RA):S(RA1):P(RA2)6j14,"U1";2;0;T;S:14,"B-P";2;P6t1,BF$;:CS6414,"U2";2;0;T;[([ _________________________________O[_________ PHONE DIALER __________v[_________________________________[( ___ FOR 1670 MODEM[2[<260:UT(186)[F0,1:4,1::1,14,11,"HONE IALER" \P_ GRAPHIC5,1:PRINT" AME HONE # [[ MER 80/ " ";:A$:A$""40D#5,A$:A$""10VA1(A$(0))g (F%(A1)); A$(34) 244,0#A$"":10(A$"": 5:8340- A$"" 85802 A$"" 98007 A$(34) 244,0<A1(A$(0))A 018:SSR2%(S)5#1:D,T:D1,SS:D2,0:D3,T:D4,SS:D5,128D#DD6:S,Tc#T2530:S017:SSR3%(S)#1:D,T:D1,SS:D2,0:D3,T:D4,SS:D5,128# DD6:S,T#!T3135:S016:SSR4%(S)#"1:D,T:D1,SS:D2,0:D3,T:D4,SS )"***"I50 I5 I020:R1%(I):I:I018:R2%(I):I_ I017:R3%(I):I:I016:R4%(I):I "NSERT / ISK IN RIVE 8" "RESS ANY KEY TO CONTINUE WHEN DISK IS READY" A$ 14,8,15:14,"I0":14 "EADING / IRECT &"UNCTIONS ARE:""&" 1 - IST / IRECTORY">&" 2 - IST / ILE"l&D" 3 - NITIALIZE FOR ANOTHER / ISK"&N" 4 - ETURN TO MENU"&X"RESS KEY FOR DESIRED FUNCTION"&bA$:A$""610&c(A$)45125,0&d(A$)3 AME HONE #"!\Z2,2,2,(8)(0)1\d2,"0=0"9\n 1G\x2,"0"O\ 1_\2,"7=7"g\ 1\(215)128RT$(13):CL4:%:RT$"":CL12\" NTER THE NUMBER TO DIAL,";RT$;RT$;" THEN  RETURN OR  ENTER .":5, )j"";(170B);" 1 LOCKS VAILABLE ".)t"RESS ANY KEY FOR MENU"<)~A$:500Y)4,3: DEFAULT TO SCREEN)"/ ILE RINT":"SER, ILE AME, ") U$,A$,B$)U%(U$):U%0U15"SER # ":2400)X51:I050:B$VT$(A105,(T%(A1));FA$"":15.P%: 63900CZ808,100:5125,0wd15:58,192:::" NE OMENT PLEASE...."e8350iU%(64),N$(64),T$(64),VT$(50),A%(255),C%(255):(14);jR1%(20),R2%(18),R3%(17),R4%(16)nD1124096: ADDRESS OF:D5,128$#DD6:S,T'$&ID32D3169:1:I,0:IT$'1:D3,255:D31,255: DIRECTORY BLOCKS$,DD1:I164:1:U%(I)(D):U%(I)229330$1N$(I)"":J18:1:N$(I)N$(I)((DJ)):J$6T$(I)"":J911:1:T$(I)T$(I)((DJ)):J%;JORY":!1,8,2,"#":15,8,152!DD1:S29:15,"B-P";2;0R!SSR1%(S):15,"U1";2;0;1;SSc!I18:".";!J132:#1,X$:X$""X$(0)!1:D,(X$):DD1!J,I,S:1:15!DD2: BUILD RECORD MAP!T1:S220:SSR1%(S)"1:D,T:D5125,1'l(A$)1000,2000,100,8580'v500H'" "w'"--- -------- --- --- ---- ----"'B2:DD1:I164'1:(D)01120'U$(" "(U%(I)),2)'N$N$(I)'T$T$(I)'$1:E(D12)CL]PN$"":" ";PN$:PN$""2600]2,"";PN$8] 5s]" RESS THE  SPACE BAR TO RE-DIAL."]" RESS  RETURN OR  ENTER  TO DIAL"RT$;RT$;" A NEW NUMBER."]A$:A$(13)170 ^A$(32)5,CL:"I)XI:I50:2060 *VT$(I)"***"I505* I:X51"ILE ":2400O*A$(A$" ",8)s* F0:E0:I164:U%(I)2292100**U%U%(I)A$N$(I)B$T$(I)FI:I64*4I*>F0"ILE ":2400*HPR0:"CREEN (S) OR R CP/M DIRECTORY INFO BANK 1HsD2D12048: ADDRESS OF CP/M DISK RECORD MAP~xD3D24080: ADDRESS OF CP/M DISK BLOCK ALLOC MAP}I012:A%(0)0:I:A%(13)13:I1431:A%(I)0:II3264:A%(I)I:I:I6590:A%(I)I128:II9195:A%(I)I:1631:1:(DJ)0325%@1:X(DJ):D3X,I%%EJ3%JDD32:Ie%O:"INISHED! REMOVE DISK FROM DRIVE"%T:"UNLESS LOGGING A NEW ONE INTO THE SYSTEM."%^:"PRESS ANY KEY FOR MENU":A$:8010%RE1:"MALLTERM -- / TILITY"1,SS:D2,0:D3,T:D4,SS:D5,128%"DD6:SC"T217:S020:SSR1%(S)w" 1:D,T:D1,SS:D2,0:D3,T:D4,SS:D5,128"DD6:S,T"T18:S118:SSR2%(S)"1:D,T:D1,SS:D2,0:D3,T:D4,SS:D5,128"DD6:S#T1924:S1:E$(" "(E),2)"(.1:S(D15):S$(" "(S),3)H(8K0:J1631:1:(DJ)0KK1_(BK$(" "(K),3)l(LJ:BBK(V U$;" ";N$;" ";T$;" ";E$;" ";S$;" ";K$;"K"(`DD32: I(e"---------------------------------------". ";PN$:190^2"^"MENU",U(UT)"0=0"9\n 1G\x2,"0"O\ 1_\2,"7=7"g\ 1\(215)128RT$(13):CL4:%:RT$"":CL12\" NTER THE NUMBER TO DIAL,";RT$;RT$;" THEN  RETURN OR  ENTER .":5,INTER (P) S";A$+RA$"P"4:4,4,7:PR1:2160'+\A$"S"21601+f2120B+p4,"";:BC0t+q"RESS O CROLL KEY TO AUSE AND ESTART"+r"RESS \ KEY TO STOP":+z1,8,2,"#":15,8,15+DD1(F1)32+EF0:KD16D31:1:B(K):I:A%(96)44:I97122:A%(I)I32:IZA%(123)179:A%(124)125:A%(125)171:A%(126)96:A%(127)0|I128255:A%(I)A%(I128):II064:C%(I)I:I:I6590:C%(I)I32:II91127:C%(I)I:I:I128255:C%(I)I128:I I050:VT$(I):VT$(IA 4]TELECOM #2D)2A1670AUTODIALPHONE DIALERXMOD7.1283XMOD7.DOC----------------CGTERM-128 V3.3dCGTERM/ML V3.3PHONE.NUMBERS MALLTERM / FOR THE 128 MALLTERM CP/M IS A TERMINAL PROGRAM FOR THE C128 THAT WILL DOWNLOAD CP/M FILES WITH XMODEM PROTOCOL FROM OMPUSERVE, ELPHI OR ANY . T WILL DOWNLOAD FILES DIRECTLY TO YOUR C128 CP/M 168K (SINGLE SIDED) DISKS.INAL MODE. EY1 WILL TAKE YOU BACK TO THE MAIN MENU. EY3, WILL BEGIN THE DOWNLOAD PROCESS. EY5 WILL SEND A CONTROL + A RETURN TO THE HOST. HIS IS GREAT WHEN READING MESSAGES ON CIS, EITHER ON THE MESSAGE BOARDS OR IN THE DATA LIBRARIES. HEN THIS RES OUT THAT YOU ARE NO LONGER RECEIVING. / UTILITIES. HIS SHORT MENU WILL LET YOU 1. LOOK AT THE CP/M DISK DIRECTORY, 2. READ A TEXT FILE FROM A CP/M DISK AND 3. INITIALIZE ANOTHER CP/M DISK. HE THIRD CHOICE WILL ALLOW YOU TO DOWNLOAD FI CTORY THE OTHER IS A SEQUENTIAL FILE READER PRINTER. KNOWLEDGEMENTS. WOULD LIKE TO THANK OMBS WAY OFTWARE AND IKE CAWHORN FOR PORTIONS OF MALLTERM AND CPM168K TRANSFER RESPECTIVLY. OTES: T THE TIME THIS TERMINAL PROGRAM WAS  MAKE SURE THAT THE HOST SYSTEM IS READY TO SEND THEN HIT THE 3 KEY WHILE IN TERMINAL MODE. OU WILL THEN BE PROMPTED TO ENTER A FILENAME, TYPE. T WOULD LOOK LIKE THIS -=> MYFILE,COM SE A COMMA WHEN ENTERING THE FILE NAME AND THE FILE TYPE. HE FI ["DATA FOR DEFAULT1[PATDT5621342,1200F[QATDT5330174,300\[RATDT6543157,1200q[SATDT4760836,300[UATDT5621342,1200[ZEND[d"[n NEW PROTOCOL[x RELEASE 2: OCT 27 1984[} RELEASE 3: DEC 6 1985\ BY STEVE  T WILL NOT HOWEVER DOWNLOAD THEM TO THE DOUBLE SIDED DISKS NOR IS IT POSSIBLE TO USE IT WITH C64 CP/M DISKS. O USE SMALLTERM CP/M LOAD IT WHILE IN C128 NATIVE MODE AS IT IS WRITTEN IN BASIC 7.0 AND WORKS IN 80 COL. MODE . HEN WHEN THE LOAD KEY IS PRESSED (ON COMPUSERVE) IT WILL IMMEDIATLY SUSPEND OUTPUT TO YOU AND THEN GO THE NEXT MESSAGE OR PROGRAM DESCRIPTION. EY7 WILL SEND A CONTROL TO THE HOST. HIS WILL SUSPEND THE OUTPUT TO YOU FROM THE HOST AND AWAIT FURTHER COMMANDS FROM YOU. LES TO MORE THAN ONE DISK PER DOWNLOADING SESSION BY READING IN THE NEW DISKS DIRECTORY TRACK. F YOU TRY TO DOWNLOAD TO A FULL CP/M DISK IT WILL ABORT. T WILL ALSO ABORT IF THE DISK HAS HAD ITS MAXIMUM (64) DIRECTORY ENTRIES USED UP. F YOU CHOOSE PUT TOGETHER THE NEW BIOS FOR CP/M ON THE 128 IS NOT YET RELEASED UNTIL IT IS AND WE CAN BEGIN TO USE SOME / TERMIAL PROGRAMS USE THIS CAUSE ITS ALL WE GOT. AMES ROUGHTON. : 313-537-3174 OMPUSERVE: 74615,1362 ELPHI:LE TYPES ARE STORED IN DATA STATMENTS WITH IN THE PROGRAM AND START AT LINE 7000 YOU CAN ADD MORE FILE TYPES TO THE DATA STATMENTS AS YOU RUN ACROSS THEM. NCE YOU START THE DOWNLOADING PROCESS IT IS TOTALY AUTOMATIC AND ENDS WHEN THE PROGRAM HAS FINNIPUNTER \-\ HAYES AUTODIALER - T.SNYDER3\S\ MULTIDIAL, 1670 & OTHERSk\ RUDY MCDANIELt\"\53280,0:53281,0:646,1:"OADING / OUTINES TANDBY..."\(49152)169"TERM.C1 V2",8,1]5,2,0,(8):#5,A$:BS255:ING PROCCESS IS DONE PLACE A 168K CP/M DISK IN DRIVE UNIT #8 AND FOLLOW THE PROMPTS. : T IS A GOOD IDEA TO LEAVE THE CP/M DISK IN THE DRIVE AT ALL TIMES WHEN USING THIS PROGRAM. T IS VERY EASY TO PLACE THE WRONG DISK IN THE DRIVE, THIS CAN CAUSELSO ANY AYES COMPATIBLE MODEM CAN BE DIALED FROM THIS MODE. HE MAIN MENU. ROM THIS PART OF THE PROGRAM YOU CAN GO TO ANY OTHER FUNCTION. THERE ARE A FEW EXTRA FUNCTIONS THAT I LEFT IN FROM SMALLTERM. NE OF THEM IS TO READ A DISK(S) DIREOPTION 2 BE SURE THAT IT A FILE. ERMINAL MODE. HIS MODE IS USE WHEN TYPING IN COMMANDS TO THE HOST OR READING FILES FROM THE HOST. HEN IN THIS MODE THE FKEYS ARE ACTIVE AT TIMES. KEYS 1,3,5,7 HAVE SPECIAL FUNCTIONS WHILE IN TERM" L FILE READER PRINTER. KNOWLEDGEMENTS. WOULD LIKE TO THANK OMBS WAY OFTWARE AND IKE CAWHORN FOR PORTIONS OF MALLTERM AND CPM168K TRANSFER RESPECTIVLY. OTES: T THE TIME THIS TERMINAL PROGRAM WAS SHED REWRITTING THE DIRECTORY TRACK. O ABORT A DOWNLOAD ONCE IT HAS BEEN STARTED PRESS AND HOLD THE KEY UNTILL TERMINAL MODE REAPEARS. HIS MAY OR MAY NOT CAUSE THE HOST TO ABORT IMMEDIATLY. F NOT UP THE HOST WILL ABORT AS SOON AS IT FIGU1,8,15:T$(3):49176W]TY$"PSP":T$(1)"ROGRAM":T$(2)"":T$(3)"ORDRO":CS1.02273E6k]BR$"300":1410]"PTIONS:"]" - ETURN TO ENU"]" 1 - ERMINAL ODE"]" 2 - RANSMIT A ILE"]" 3 - ECEIVE A ILE" ^"" TRACK 1 TO BE OVERWRITTEN ON A NON CP/M DISK OR THE WRONG DIRECTORY TO BE WRITTEN TO A DIFFERENT CP/M DISK THEREBY MAKING THAT DISK UNUSABLE. (DONT ASK ME HOW I KNOW THIS!) OWNLOADING. OWNLOADING IS EASY WITH THIS PROGRAM ALL YOU HAVE TO DO IScR800 d\5,"":X1100"da#5,A$:A$""880-df:860JdpX1100:X:ZZZZ1:730Vdz CHECKkdA$"1":960:340td910d"WAKE UP SYSOPd" DJUST LOUDNESS. IT A KEY."d54296,15:54276,33:54277,9:54278,0 e54273,AUD ATE:  - 300"aN11)" - 1200"2aXA$:A$""600PabA$"A"BR$(Z)"300":640oalA$"B"BR$(Z)"1200":640xav600a1500:"":R1Z:""::" ";NB$(Z);a"UMBER ",,"AUD ATE ";BR$(Z)aZZ1:550b"BR$"300"BR$"1200":1490kBR$"300"k1410:240IkCL$" "nk""CL$:CL$tkk#2,A$,A$:A$""1610k"DISK COMMANDSk"ISK ODE"k"1 - CRATCH FILE(S)":"2 - O 4 - HANGE LOCK IZE ROM";BS;""L^," 5 - HANGE AUD ATE ROM "BR$""n^6" 6 - 1670 UTO ULTIIAL"^@" 7 - ISK OMMANDS"^JA$:A$""330^TA$"1""ERMINAL ODE:":5,"1":1250^^A$"2"1010^hA$"3"1140_rA 1300:X:2h::"123456789*123456789*123456789*123456789*":61310kh49173:49155:2:X11500:X:668,(667):960:1250h"LOCK IZE? ";:1280:I$""240hBS(I$):BS40BS40hBS255BS255h240h#5,A$:A$""1250 0n"ATIENCE........":15,"V":15:15,8,15:1550Jn"EW DISK NAME";Z1$:(Z1$)16Z1$(Z1$,16):1700kn(Z1$)16Z1$Z1$" ":1690n15,"I":8,8,8,"#":15,"U1:"8;0;18;0:15,"B-P"8;144n8,Z1$:15,"U2:"8;0;18;0:8:15,"I":1550n" 51:54272,97: D1200::54276,07eKE$:KE$""53280,0:53281,0:1000keT15::LL((0)15):53280,LL:53281,LL:960qee"ROGRAM AME? ";:1280:I$""FL1240e"ILE YPE (, , OR )?  ";eA$:A$""1030eA$"" HORN FOR SYSOPb"":9500b" ELAY 12";DL$`b(DL$)60(DL$)12"12 - 60 SEC!":690bDL$"0000"DL$:5,"":X11000:X:ZZ1b"ATH0 MODEM NOT IN OPERATIONbZZTNZZ1b"";NB$(ZZ):"IALING "c"RMAT DISK":"3 - ENAME FILE"@l""4 - ERIFY DISK":"5 - HANGE DISK NAME":"6 - HANGE DISK ID"l,"7 - NITIALIZE RIVE":"8 - IRECTORY":"9 - ETURN TO MAIN MENUl6"";:15,A$,B$,C$,D$:A$" "B$,C$" "D$l@A$:A$"0"A$"9"1600$"4"1210_|A$"5"1470#_A$"6"420>_A$"7"15,8,15:1540G_330w_"ԘYPE IN OR USE ĘEFAULT NUMBERS?"_A$:A$""430_A$"T"540_A$"D"465_430_KK1680:Z1_NB$(Z):NB$(Z)"END"TNZ1::KK1:680_hLL1200i49173:49167:240iI$"":FL0"i " ";6iA$:A$""1300IiA$(13)1390\i(A$(20)1370si2A$""FL1:1390i<(A$)201300iF((A$)127)321300iPA$;:I$I$A$:1290iZ(I$)01300id" ";:I$(I$,(I$EW DISK ID";Z1$:(Z1$)217202o15,"I":8,8,8,"#":15,"U1:"8;0;18;0:15,"B-P:"8;162ao8,Z1$;:15,"U2:"8;0;18;0:8:15,"I":1550so15,"I":1550o15,"I":"":9,8,0,"$0":#9,A$,A$o#9,A$,A$:A$""1810o#9,A$,B$:(A$(0))(B$240fA$"P"SA0:T1:1090#f$A$"S"SA2:T2:1090>f.A$"W"SA0:T3:1090Hf81030NfBwfLT$(T)"":2,8,SA,I$:1,E$,EM$,T$,S$fV(E$)0""E$","EM$","T$","S$:2:1020f[::"123456789*123456789*123456789*123456789*"g`491AUD ATE ";BR$(ZZ)c"Ҙ FOR !"4cBR$BR$(ZZ):1410Cc5,NB$(ZZ)TcTI$"000000"ec TI$DL$860c*"ATH HANGUP ON HOMEc4A$:A$""5,"":240c>T1200::"ELAY ";(TI$,2)cH#5,A$:AF(56577):AF127890mJ(A$)1630,1640,1650,1670,1680,1720,1750,1760mT15:240Rm^"CRATCH WHICH FILE(S)";Z1$:15,"S0:"Z1$:1550mh"ISK NAME,ID";Z1$,Z2$:15,"N0:"Z1$","Z2$:1550mr"LD FILENAME";Z1$:"EW FILENAME";Z2$:15,"R0:"Z2$"="Z1$m|155BR$(Z) `ZZ1:470*`"END OF DEFAULT INPUT7`"":Z1`&1500:"YPE ^TO QUIT!":"HONE UMBER";Z;`01280:I$"^"TNZ1:670`5NB$(Z)"ATDT"I$`:"ATH0 MODEM OFF THE HOOK aD1500:")1):1290in" ":jx"BAUD RATE SETUPS4jS(BR$):659,6:S1200659,8ZjRCCSS:1460:51968,LO:51969,HIyjS1200RCCSS.966:1460j665,LO:666,HIjRCCSS2100:1460:661,LO:662,HI:jHI(RC256):LO(RCHI256):jx(0))256;o#9,A$:A$"":1770pA$;:1790>p9:" RESS A KEY TO CONTINUE. ":198,.:198,1Hp1550(Z1$)16Z1$Z1$" ":1690n15,"I":8,8,8,"#":15,"U1:"8;0;18;0:15,"B-P"8;144n8,Z1$:15,"U2:"8;0;18;0:8:15,"I":1550n"73:51227,T:49164:(512)12:960:1250 5 = Q5;  @5 5<L'<<< wLF,= 5 Q5 Q5= Z5 @5=  L*L,L+L.88 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 8d5`H   H hhL#1hHh` H0 L8 8d8 *1 W0dLH1 *1 889 88 2 ` W0ɩ 8 *1 W0 8` 88 *1 W0885 8h88 j3ȱfȄhh` 7L6 7   ʭ Jݭ;ݭ;ݩ  J`x`H8 8 8h Hh`  ɀɒ` m6 0)  L6a { 8 L5A  ./0123456789:;<=>?@abcdefghijklmnopqrstuvwxyz[\]^_ABCDEFGHIJKLMNOPQRSTUVWXYZJTR\^*@SLDVPUXHOQEN-+K123456789M   L. - wLo. `  t L. - L. `L`!`LMT3 NO INK/778-2966/16/ZAPPR7/ SERS /743-6021/DOUG:ZIMMER/GOUD/ 83XMOD7.DOC----------------CGTERM-128 V3.3dCGTERM/ML V3.3 Lj.  R w/ -: 6/ ./ ), , w// , w w/ - L* +L* OL+CL,ZL+AL,GL,ɓLG.#`hh`/ / Т -`$-B- i9 @1 8 498 8L489L4` 8 88888 w3if j3fȑf8f8 1` 8 8 8 8 8 x`H8 8 8h Hh`  ɀɒ` m6 0)  L6a { 8 L5A  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 88 , p` /U J  / H/ H/(2/W/M - W (   ` H/L&/M - E    `   `HHɠ hLߝx` ' w/ Ў//` Ѝ/*-` ,wL* w`  .-// } BUFFER FULL-PRESS CONTROL Q... `I /`/`ɰ/ /``/4- [i"  "  m6 EA [ i LI6 ۰8逍Ƀ  L5` h8`&ɺ'6&;';&6'`Hhl;hl;JhHH#  8ОLd5`8I8 j38ifȭ8if  f 8HLK3HȩfLK3H 5 5 5f 8 w3hf 3`f8i9g`f8Ii9g`88888qf888Qf88*.8.8 8ڠ8fȭ8fȭ8fȭ8f` 8 888,,, , ,L0L5L6d83ed100i20L90LW0L4L3L4L5L5L6GOOBADACKS/BSYN888888 6 0X88888888,888H0 L088i8Le088Lm0888 888L`/;- `)H-w`ɀ`-w`   !'#$%&'()*+,-./0123456789:;<=>?@[\]^_ABCDEFGHIJKLMNOPQRSTUVWXYZ}   !"#$%&'()*+,-