(215)128%:100 &5d15:58,192::oiU%(64),N$(64),T$(64),VT$(50),A%(255),C%(255):(14);jR1%(20),R2%(18),R3%(17),R4%(16)nD1124096: ADDRESS OF CP/M DIRECTORY INFO BANK 1sD2D12048: ADDRESS OF CP/M DISK RECORD MAP2xD3D24080: ADDRESS OF CP/M DISK BLOCK ALLOC MAPg}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:I:A%(96)44:I97122:A%(I)I32:IA%(123)179:A%(124)125:A%(125)171:A%(126)96:A%(127)00I128255:A%(I)A%(I128):I^I064:C%(I)I:I:I6590:C%(I)I32:II91127:C%(I)I:I:I128255:C%(I)I128:II050:VT$(I):VT$(I)"***"I50II020:R1%(I):I:I018:R2%(I):II017:R3%(I):I:I016:R4%(I):IV"NSERT / ISK IN RIVE 9":"NSERT ISK IN RIVE 8""RESS ANY KEY TO CONTINUE WHEN DISKS ARE READY"A$15,8,15:15,"I0":14,9,15:14,"I0":14:15"EADING / IRECTORY":1,9,2,"#":15,9,15 DD1:S29:15,"B-P";2;0= SSR1%(S):15,"U1";2;0;1;SSN I18:".";p 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:D1,SS:D2,0:D3,T:D4,SS:D5,128!DD6:S.!T217:S020:SSR1%(S)b! 1:D,T:D1,SS:D2,0:D3,T:D4,SS:D5,128q!DD6:S,T!T18:S118:SSR2%(S)!1:D,T:D1,SS:D2,0:D3,T:D4,SS:D5,128!DD6:S!T1924:S018:SSR2%(S) "1:D,T:D1,SS:D2,0:D3,T:D4,SS:D5,128/"DD6:S,TN"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#&ID32D3169:1:I,0:I?#'1:D3,255:D31,255: DIRECTORY BLOCKSn#,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#;J1631:1:(DJ)0325 $@1:X(DJ):D3X,I$EJ$JDD32:IR$O:"INISHED!":"RESS ANY KEY TO GO TO MENU"[$TA$w$" -- / TILITY"$"UNCTIONS ARE:"$" 1 - IST / IRECTORY"$" 2 - IST / ILE"$" 3 - OPY FILE TO / FILE"%&" 4 - OPY / FILE TO FILE"I%D" 8 - NITIALIZE FOR ANOTHER / ISK"c%N" 9 - XIT TILITY"%X"RESS KEY FOR DESIRED FUNCTION"%bA$:A$""610%l(A$)1000,2000,3000,4000,500,500,500,100,640%v500%15:58,255::&" "M&"--- -------- --- --- ---- ----"b&B2:DD1:I164x&1:(D)01120&U$(" "(U%(I)),2)&N$N$(I)&T$T$(I)&$1:E(D12)1:E$(" "(E),2)&.1:S(D15):S$(" "(S),3)'8K0:J1631:1:(DJ)0KK15'BK$(" "(K),3)B'LJ:BBK~'V U$;" ";N$;" ";T$;" ";E$;" ";S$;" ";K$;"K"'`DD32: I'e"---------------------------------------"'j"";(170B);" 1 LOCKS VAILABLE "(t"RESS ANY KEY FOR MENU"(~A$:A$""1150!(500>(4,3: DEFAULT TO SCREENo("/ ILE RINT":"SER, ILE AME, "~( U$,A$,B$(U%(U$):U%0U15"SER # ":2400(X51:I050:B$VT$(I)XI:I50:2060(VT$(I)"***"I50) I:X51"ILE ":24004)A$(A$" ",8)X) 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 RINTER (P) S";A$)RA$"P"4:4,4,7:PR1:2160 *\A$"S"2160*f2120'*p4,"";:BC0Y*q"RESS O CROLL KEY TO AUSE AND ESTART"x*r"RESS \ KEY TO STOP":*z1,9,2,"#":15,9,15*DD1(F1)32*EF0:KD16D31:1:B(K):B0KD31:2350*BD2(B)24+IBB186:1:T(I):S(I1):P(I2)$+15,"B-P";2;09+15,"U1";2;0;T;SF+J1256u+A$:A$"\"KD31:IB18:J256:EF1:2330+#1,X$:X$""X$(0)+(X$)26J256:IB18:KD31:2330+(X$)92300+X(BC8)8:XBCX:X8X:XX1X:4," ";:XX ,BCBCX:2330),(X$)124,"";:2330T, 4,(A%((X$)));:A%((X$))0BCBC1g, (X$)13BC0n, Ju,$ I|,. K,8 1:15:EF2400,B FFF:EE1:IF64:U%(I)2292390,L 1:U%U%(I)A$N$(I)B$T$(I)(D1((I1)32)12)EFI:I64 -V I:FFF2170-` 4:47-j :"RESS ANY KEY FOR MENU"@-t A$I- 500n- "OPY A FILE TO / FILE"- " FILE NAME, TYPE (P OR S)": CB$,CT$- CT$"P"3020- CT$"S"3020- "NVALID FILE TYPE":3010. "/ USER, FILE NAME, TYPE": U$,CP$,TY$5. "DD LF AFTER CR (Y OR N)";LF$M. LF$"Y"LF1:3025j. LF$"N"LF0:PF0:3030. "NVALID RESPONSE":3021. "IST DURING TRANSFER (Y OR N)";PF$. PF$"Y"PF1:3030. PF$"N"PF0:3030/ "NVALID RESPONSE":3025-/ (U$)0(U$)15"NVALID SER":3020Z/ X51:I050: TY$VT$(I)XI:I50:3060q/ VT$(I)"***"I50/ I:X51"ILE YPE NVALID":3020/ N0:I164:U%(I)229NI:I64/ I:N0"/ IRECTORY ULL":35600 E0:3,8,3,"0:"CB$","CT$",R"90 DS0" ILE OT OUND":3:3560Q0& 1,9,2,"#":14,9,1500 1:DD1(N1)32:D,(U$):ID1D8:I,32:I0: I1(CP$):1:DI,((CP$,I,1)):I0D I911:1:DI,((TY$,I8,1)):I:D12,E0N 1:D13,0:D14,0*1X U%(N)(U$):N$(N)(CP$" ",8):T$(N)TY$H1b 1:NRD15:BAD16:NR,0d1l IBABA15:1:I,0:I1v NB170:I0169:1:(D3I)0NBI:I1691 I:1:NB170D,229:"/ ISK ULL":35501 1:D3NB,N:BA,NB:LF0TY$"COM"35901 R182 Y$""&2 X1Y$Y$(10):X0:3290@2 #3,X$:X$""X$(0)j2 A(X$):Y$Y$(C%(A)):PFX$;:3270t2 ".";~2 CSST2 X$(13)X12 Y(Y$):Y12833302 CS64X033202 32402 IY1128:Y$Y$(26): I#3 RAD2((NB)24)((R1)3):1:T(RA):S(RA1):P(RA2)F3 14,"U1";2;0;T;S:14,"B-P";2;Pw3 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)12831904R N0:I164:U%(I)229NI:I6424\ I:N0"/ IRECTORY ULL":3550B4f EE1:3120P4p 3:1:14s4z :"RITING / IRECTORY":4 14,9,15:14,"I0": 1,9,2,"#"4 DD1:S29:14,"B-P";2;0:SSR1%(S)4 I18:".";4 X$"":J132:1:X(D):X$X$(X):DD1:J85 1,X$;:S7I8J3214,"U2";2;0;1;SS:14,"B-P";2,0?5 IU5 14,"U2";2;0;1;SS\5 Sm5 14:1:3560{5 3:1:145 :"RESS ANY KEY FOR MENU"5 A$5 5005R185Y$""5#3,X$:X$""X$(0)5$Y$Y$X$:".";5.CSST68Y(Y$):Y1283680"6BCS643670,6L3610K6VIY1128:Y$Y$(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,Y$;:CS6414,"U2";2;0;T;S:14,"B-P";2;07~14,"U2";2;0;T;S:1:NR,((NR)1)7CS64R8&7R:CS643440073390U7"ILE NAME FOR OUTPUT";NF$p78,8,8,"0:"NF$",S,W"7DS0"NVALID ILE AME":8:43857"/ SER, ILE AME, "7 U$,A$,B$8U%(U$):U%0U15"SER # ":8:15:4385.8X51:I050:B$VT$(I)XI:I50:4080E8VT$(I)"***"I50u8I:X51"ILE ":8:15:43858A$(A$" ",8)8F0:E0:I164:U%(I)22921008U%U%(I)A$N$(I)B$T$(I)FI:I648 I 9"F0"ILE ":8:15:438519#"ROP LINEFEEDS (Y OR N)";LF$I9$LF$"Y"LF1:4140a9%LF$"N"LF0:41409&"NVALID RESPONSE":41319,"";:BC0:W2$""96 1,9,2,"#": 14,9,159@DD1(F1)329JKD16D31:1:B(K):B0KD31:4330:TBD2(B)24-:^IBB186:1:T(I):S(I1):P(I2)?:h14,"B-P";2;0T:r14,"U1";2;0;T;Sa:|J1256{:#1,X$:X$""X$(0):(X$)26J256:IB18:KD31:4310:LF(X$)104310:(X$)134307:(X$)94290;X(BC8)8:XBCX:X8X:XX1X:W2$W2$" ":" ";: XX-;BCBCX:4310j;W1$(A%((X$))):W2$W2$W1$:W1$;:A%((X$))0BCBC1~;(X$)134310;:8,W2$:5;BC.:W2$"";J;I;K;1:14;FFF:EE1:IF64:U%(I)2294370(<1:U%U%(I)A$N$(I)B$T$(I)(D1((I1)32)12)EFI:I64:<I:FFF4150E<8:15X<:"!"w