144" ";:A$:A$""7H#5,A$:A$""1ZA1(A$(0))k (F%(A1)); A$(34) 244,0A$"":1A$"": 5:1 A$"" 251 A$"" 329 A$(34) 244,0 A1(A$(0)) A105,(T%(A1)); A$"":2) %: 366> 808,100:5125,0r 15:58,192:::" NE OMENT PLEASE...."{ 244 U%(64),N$(64),T$(64),VT$(50),A%(255),C%(255):(14); R1%(20),R2%(18),R3%(17),R4%(16) D1124096: ADDRESS OF CP/M DIRECTORY INFO BANK 1B D2D12048: ADDRESS OF CP/M DISK RECORD MAPx D3D24080: ADDRESS OF CP/M DISK BLOCK ALLOC MAP I012:A%(0)0:I:A%(13)13:I1431:A%(I)0:I I3264:A%(I)I:I:I6590:A%(I)I128:I I9195:A%(I)I:I:A%(96)44:I97122:A%(I)I32:IT A%(123)179:A%(124)125:A%(125)171:A%(126)96:A%(127)0v I128255:A%(I)A%(I128):I I064:C%(I)I:I:I6590:C%(I)I32:I I91127:C%(I)I:I:I128255:C%(I)I128:I I050:VT$(I):VT$(I)"***"I50 I/ I020:R1%(I):I:I018:R2%(I):IY !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 / IRECTORY": '1,8,2,"#":15,8,15, (DD1:S29:15,"B-P";2;0L )SSR1%(S):15,"U1";2;0;1;SS] *I18:"."; +J132:#1,X$:X$""X$(0) ,1:D,(X$):DD1 -J,I,S:1:15 .DD2: BUILD RECORD MAP /T1:S220:SSR1%(S)01:D,T:D1,SS:D2,0:D3,T:D4,SS:D5,1281DD6:S=2T217:S020:SSR1%(S)q31:D,T:D1,SS:D2,0:D3,T:D4,SS:D5,1284DD6:S,T5T18:S118:SSR2%(S)61:D,T:D1,SS:D2,0:D3,T:D4,SS:D5,1287DD6:S8T1924:S018:SSR2%(S)/91:D,T:D1,SS:D2,0:D3,T:D4,SS:D5,128>:DD6:S,T];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:D5,128@DD6:S,T!AID32D3169:1:I,0:INB1:D3,255:D31,255: DIRECTORY BLOCKS|CDD1:I164:1:U%(I)(D):U%(I)22973DN$(I)"":J18:1:N$(I)N$(I)((DJ)):JET$(I)"":J911:1:T$(I)T$(I)((DJ)):JFJ1631:1:(DJ)072G1:X(DJ):D3X,IHJ+IDD32:I]J:"INISHED! REMOVE DISK FROM DRIVE"K:"UNLESS LOGGING A NEW ONE INTO THE SYSTEM."L:"PRESS ANY KEY FOR MENU":A$:227M"MALLTERM -- / TILITY"N"UNCTIONS ARE:"O" 1 - IST / IRECTORY"0P" 2 - IST / ILE"^Q" 3 - NITIALIZE FOR ANOTHER / ISK"R" 4 - ETURN TO MENU"S"RESS KEY FOR DESIRED FUNCTION"TA$:A$""84U(A$)45125,0V(A$)35125,1W(A$)89,107,16,251X773Y" "bZ"--- -------- --- --- ---- ----"w[B2:DD1:I164\1:(D)0102]U$(" "(U%(I)),2)^N$N$(I)_T$T$(I)`1:E(D12)1:E$(" "(E),2) a1:S(D15):S$(" "(S),3)2bK0:J1631:1:(DJ)0KK1IcK$(" "(K),3)VdJ:BBKe U$;" ";N$;" ";T$;" ";E$;" ";S$;" ";K$;"K"fDD32: Ig"---------------------------------------"h"";(170B);" 1 LOCKS VAILABLE "i"RESS ANY KEY FOR MENU"%jA$:77Bk4,3: DEFAULT TO SCREENsl"/ ILE RINT":"SER, ILE AME, "m U$,A$,B$nU%(U$):U%0U15"SER # ":150oX51:I050:B$VT$(I)XI:I50:113pVT$(I)"***"I50qI:X51"ILE ":1505rA$(A$" ",8)XsF0:E0:I164:U%(I)229117tU%U%(I)A$N$(I)B$T$(I)FI:I64uIvF0"ILE ":150wPR0:"CREEN (S) OR RINTER (P) S";A$xA$"P"4:4,4,7:PR1:123 yA$"S"123z119#{4,"";:BC0U|"RESS O CROLL KEY TO AUSE AND ESTART"t}"RESS \ KEY TO STOP":~1,8,2,"#":15,8,15DD1(F1)32EF0:KD16D31:1:B(K):B0KD31:145BD2(B)24 IBB186:1:T(I):S(I1):P(I2)15,"B-P";2;0415,"U1";2;0;T;SAJ1256oA$:A$"\"KD31:IB18:J256:EF1:143#1,X$:X$""X$(0)(X$)26J256:IB18:KD31:143(X$)9140X(BC8)8:XBCX:X8X:XX1X:4," ";:XXBCBCX:143(X$)124,"";:143J4,(A%((X$)));:A%((X$))0BCBC1](X$)13BC0dJkIrK1:15:EF150FFF:EE1:IF64:U%(I)2291491:U%U%(I)A$N$(I)B$T$(I)(D1((I1)32)12)EFI:I64I:FFF126 4:4*:"RESS ANY KEY FOR MENU"7A$:77"NPUT FILE NAME AND FILE TYPE. ILE NAME SHOULD BE NO MORE THAN 8 CHARACTERS. HEN ENTER THE TYPE OF FILE IE. COM, LBR, ASM, TXT, DOC ETC. ETC." U$"0":E0::"/ FILE NAME, TYPE -=> ";CP$,TY$4NR1:PF0:LF0:CP$""5,"":325p (CP$)8"FILE NAME TO LONG. 8 CHARACTERS MAX.":154X51:I050: TY$VT$(I)XI:I50:159VT$(I)"***"I50 I:X51"ILE YPE NVALID":154N0:I164:U%(I)229NI:I649I:N0": / IRECTORY ULL": 5:E21:?W1,8,2,"#":14,8,151:DD1(N1)32:D,(U$):ID1D8:I,32:II1(CP$):1:DI,((CP$,I,1)):II911:1:DI,((TY$,I8,1)):I:D12,E1:D13,0:D14,00U%(N)(U$):N$(N)(CP$" ",8):T$(N)TY$N1:NRD15:BAD16:NR,0jIBABA15:1:I,0:INB170:I0169:1:(D3I)0NBI:I169I:1:NB170D,229:": / ISK ULL":360:2071:D3NB,N:BA,NB:211R18 Y$""*X1Y$Y$(10):X0:181D#3,X$:X$""X$(0)_A(X$):Y$Y$(C%(A))iCSST{X$(13)X1Y(Y$):Y128185CS64X0184176IY1128:Y$Y$(26):I RAD2((NB)24)((R1)3):1:T(RA):S(RA1):P(RA2)-14,"U1";2;0;T;S:14,"B-P";2;P^1,Y$;:CS6414,"U2";2;0;T;S:14,"B-P";2;014,"U2";2;0;T;S:1:NR,((NR)1)CS64R8R:CS64196BABA11:(NR)128171N0:I164:U%(I)229NI:I64/ I:N0": / IRECTORY ULL":360:CS1: 6:207> EE1:164L 3:1:14t CS1::"RITING / IRECTORY": 14,8,15:14,"I0": 1,8,2,"#" DD1:S29:14,"B-P";2;0:SSR1%(S) I18:".";!X$"":J132:1:X(D):X$X$(X):DD1:J9!1,X$;:S7I8J3214,"U2";2;0;1;SS:14,"B-P";2,0@!IV!14,"U2";2;0;1;SS]!S|!14:1:5,(17);:CS1:325!3:1:14:5,"";!:"RESS ANY KEY FOR ERMINAL MODE."!A$!325!R18"E1.:336:E115,"":360:R8:R:CS1:325 "CS64215B"ICT1128:BF$BF$(26): I"RAD2((NB)24)((R1)3):1:T(RA):S(RA1):P(RA2)"14,"U1";2;0;T;S:14,"B-P";2;P"1,BF$;:CS6414,"U2";2;0;T;S:14,"B-P";2;0"14,"U2";2;0;T;S:1:NR,((NR)1) #CS64R8"#R:CS64358:191f# 2ZB,ASM,BAK,BAS,BIN,C,COM,CQM,DAT,DOC,DQC,HEX,HLP,I80,LBR,LQR# LIB,LST,MAC,PAS,PRN,PRT,SRC,SUB,SYM,SYS,TEX,TXT,***# 0,5,10,15,20,4,9,14,19,3,8,13,18,2,7,12,17,1,6,11,16$ 0,5,10,15,1,6,11,16,2,7,12,17,3,8,13,18,4,9,14B$ 0,5,10,15,2,7,12,17,4,9,14,1,6,11,16,3,8,13q$ 0,5,10,15,3,8,13,1,6,11,16,4,9,14,2,7,12$:(14):RE1230$5,2,3,(6)(0)$ 56579,38:56577,(56577)32$RS1:MH2:BU0:LM64000:BB44000:BPBB% KE1 8: KE,"":1%1,"":3,""::7,""(13):5,""(13)Y%F%(255),T%(255):J3264:T%(J)J:%T%(13)13:T%(20)8:T%(160)32:T%(15)15:T%(26)26:T%(3)3:T%(16)16:T%(19T)19:T%(17)17:XC1%T%(21)21:T%(22)22:T%(26)26:T%(24)24&J6590:T%(J)J32:&J9195:T%(J)J:6&J193218:T%(J)J128:[&T%(134)19:T%(135)17:T%(136)27q&J0255:HKT%(J)&HK0F%(HK)J:F%(HK128)J&& 251& 5:::"  OMETHING'S WRONG!!!! "&:(143):DS$':" RROR IN LINE NUMBER ";:EL: 3'' 251e':,10,10," LEASE CONFIRM EXIT COMMAND -=> () ",1' EX$: EX$"E" "": 251': 3:"":808,110:'(5125)177':A$""'"": 5'"  MALLTERM / ENU "P(" =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-="V((""(" "("  <> XIT THIS PROGRAM "4)" "m)"  <> CREEN REVERSE TOGGLE ")" ")"  <> ISK DIRECTORY (8) "*" "M* "  <> EAD SEQ FILE FROM DISK "* " "* "  <> ERMINAL MODE "* " "-+ "  <> / TILITIES "d+" "+" "+"",:"  ^ "(143)"  LEASE CHOOSE ONE! ", 208,0(, CH$v," ", CH$"C" 77, CH$"E" 248, CH$"S" RSRS1: 284,: RS2 RS1,: RS1 (27)"N"-: RS2 (27)"R"&- 253B- CH$"D" 289: 285^- CH$"R" 297: 286h- ...- CH$"T" 56577,((56577)32): 324: 251- 251-!(7)-":47,2,79,23,1-#"  "+.$ C71 19:"   ": C7U.%"  "h.&50,4,77,21,1o.' .( 1:"": 273.).*"".+"HAT IS THE NAME OF THE FILE -=> ";F$., F$"" 2513/-"HAT TYPE OF FILE IS THAT?";:" <>ROGRAM <>SER OR <>EQ"=/. O$O// O$"" 251^/0T$(O$,1)/1 O$"S" O$"P" O$"U"301/2"SE THE 'NO SCROLL' KEY TO PAUSE --- NY OTHER WILL STOP."03"---------------------------------------------------------"04 0,3,79,24'05 15,8,15G06 6,8,5,"0:"F$","O$",R"P07321[08#6,A$l09 ST0 3170: ST64 "-=*=- ND OF FILE -=*=-"0;: 1::::"  IT ANY KEY TO CONTINUE "0< Y$: 2511= A$(34):A$(39)1>(A$(0));@1? Q$: Q$"" 312: "TOPPED":315J1@ 312^1A15,A$,B$,C$,D$1B (A$)0 :"":A$,B$,C$,D$1C1D(7)1E"";1F" 1=PTIONS MENU 3=/ / ILE(S) 5=^0+RETURN 7=^+RETURN"C2G" "\2H 0,2,79,24,1:: 1x2I"":CP$"":TY$"":2J" ECIEVE XMODEM FILE. IT  '' DURING TRANSFER TO ABORT!"3K""::/3L153:E2325c3M:"TARTING DISK STATUS IS -=> ";DS$: 5::q3NBK1:XX13OTR0:AS0:5:363:5,(21);:1633PTT0:AS15,(6);3Q#5,A$:A$(4)BK15,(6);:"* OWNLOAD COMPLETED *":(7):CS64:4RA$(1)363:342U4STTTT1:TT400337:"++ TIMEOUT ERROR++ "w4TTRTR1:TR105,(21);:3364U"++ RANSFER ABORTED--TOO MANY ERRORS ":(7) :3574V AB$: AB$"A" 3574WCK0:BF$""4X#5,W$:W$""W$(0)5Y#5,C$:C$""C$(0)g5Z(W$)(255(C$))"++ INVALID BLOCK HEADER ++":J1400:#5,A$:J:3405[ (W$)BK "++ BLOCK SYNC LOST, ABORTING TRANSFER":5,"";:3575\CT05]#5,A$:A$""A$(0)5^CKCK(A$)6_BF$BF$A$:CTCT1:CT128349"6`#5,A$:A$""A$(0)U6a(CK 255)(A$) BKBK1:XXXX1:AS1: 356m6bBK255BK0:TR0:x6cTR0:6d"++ CHECKSUM ERROR ++":3406e:5,(6);:A$"":E11:6f:A$"":361:"OTAL / SPACE USED = ";(XX)"": 56g196 7h1:DD1(N1)32:D,229:15:G7iXXXX1281024:XX(XX)XXXX1:M7jq7k"ODEM OWNLOAD IN PROGRESS"7l"OWNLOADING -=> ";CP$"."TY$7m"ECEIVING BLOCK NUMBER -=>";XX:7n" ELCOME TO MALLTERM /"N8o" ITH THIS TERMINAL PROGRAM YOU CAN DIRECTLY TO YOUR 128"8p" CP/M DISKS PROVIDED THEY ARE 168K DISKS AND DOUBLE SIDED."8q" : 64 CP/M DISKS BE USED WITH THIS PROGRAM."-9r" HIS PROGRAM USES PROTOCOL FOR DOWNLOADS."q9s" ERMINAL PORTIONS BY OMBS WAY OFTWARE."9t" RANSFER CP/M RELATED PORTIONS BY IKE CAWHORN.":u" ACKED TOGETHER FOR ALL CP/M 128 OWNERS BY IM ROUGHTON."J:v" PRESS ANY KEY TO CONTINUE":A$: