COPY CBM TO CP/M( 56,64::E I828981: A: I,A: IlRB838:BS64096:BPBS:BEBS16383X1828: FILE POSITION(X2830: FILE END2X3832: BUFF START<X4834: BUFF ENDFX(BS256):YBS(256X): X3,Y: X31,X% PX(BE256):YBE(256X): X4,Y: X41,Xb i U%(64),N$(64),T$(64),VT$(20),A%(255),C%(255):59468,14 nD144096: ADDRESS OF CP/M DIRECTORY INFO sD2D12048: ADDRESS OF CP/M DISK RECORD MAP xD3D23264: ADDRESS OF CP/M DISK BLOCK ALLOC MAP1 } I012:A%(0)0: I:A%(13)13: I1431:A%(I)0: Ie I3264:A%(I)I: I: I6590:A%(I)I128: I I9195:A%(I)I: I:A%(96)44: I97122:A%(I)I32: I A%(123)179:A%(124)125:A%(125)171:A%(126)96:A%(127)0 I128255:A%(I)A%(I128): I6 I064:C%(I)I: I: I6590:C%(I)I32: Im I91127:C%(I)I: I: I128255:C%(I)I128: I I020: VT$(I): VT$(I)"***"I20 I (14)"";:DK1:DN0:800 15,8,15:15,"I0":15 "EADING / IRECTORY": 1,8,2,"#": 15,8,155 DD1: S07:15,"B-P";2;0J 15,"U1";2;0;3;S\ I18:"."; J132:#1,X$:X$""X$(0) D,(X$):DD1 J,I,S:1:15 DD2: BUILD RECORD MAP  T317: S016 D,T:D1,S:D2,0:D3,T:D4,S:D5,128 DD6: S,T-  T1935: S016[ D,T:D1,S:D2,0:D3,T:D4,S:D5,128k DD6: S,T "ID32D3135:I,0: I 'D3,255:D31,255: DIRECTORY BLOCKS ,DD1: I164:U%(I)(D):U%(I)229330 1N$(I)"": J18:N$(I)N$(I)((DJ)): J;6T$(I)"": J911:T$(I)T$(I)((DJ)): JZ; J1631: (DJ)0 325p@X(DJ): D3X,IxE JJDD32: IO:"INISHED!":"RESS ANY KEY TO GO TO MENU"TA$:A$""340Y500^BPBE365cX$((BP)): BPFE CS64hBPBP1:4mDN1:800:3,8,3,CB$",S,R"cr "EADING A 16 UFFER FROM ISK":RB~wFE(X2)((X21)256)|BPBS:3:15DN0:800:350" -- / TILITY""UNCTIONS ARE:"" 1 - IST / IRECTORY"" 2 - IST / ILE":" 3 - OPY FILE TO / FILE"hD" 8 - NITIALIZE FOR ANOTHER / ISK"N" 9 - XIT TILITY"X"RESS KEY FOR DESIRED FUNCTION"bA$:A$""610l (A$) 1000,2000,3000,500,500,500,500,5,640v 500  56,160::  DKDN L* DN0 :"NSERT / ISK IN RIVE":830o4:"NSERT ISK IN RIVE">"RESS [1] WHEN READY TO CONTINUE"CA$:A$""835HA$:"? ";MA$(133)840RZZ(0):DKDN:15,E1$,E2$,E3$,E4$DS(E1$):>" "TB2:DD1: I164i (D)0 1120U$(" "(U%(I)),2)N$N$(I)T$T$(I)$E(D12)1:E$(" "(E),2).S(D15):S$(" "(S),3)8K0: J1631: (DJ)0KK1BK$(" "(K),3)*L J:BBKfV U$;" ";N$;" ";T$;" ";E$;" ";S$;" ";K$;"K"u`DD32: Ij"";(136B);" 1 LOCKS VAILABLE "t"RESS ANY KEY FOR MENU"~A$:A$""11505004,3: DEFAULT TO SCREEN("/ ILE RINT":"SER, ILE AME, "7 U$,A$,B$hU%(U$):U%0U15"SER # ":2400X21: I020: B$VT$(I)XI:I20:2060VT$(I)"***"I20  I:X21"ILE ":2400A$(A$" ",8) F0:E0:I164:U%(I)2292100=*U%U%(I)A$N$(I)B$T$(I)FI:I64E4 Ig>F0"ILE ":2400HPR0:"CREEN (S) OR RINTER (P) S";A$RA$"P"7,4,7:7:7:4:4,4:PR1:2160\A$"S"2160f2120p4,"";:BC0zDN0:800: 1,8,2,"#": 15,8,15%DD1(F1)32OKD16D31:B(K):B0KD31:2350_BD2(B)24IBB186:T(I):S(I1):P(I2)15,"B-P";2;015,"U1";2;0;T;SJ1256#1,X$:X$""X$(0)(X$)26J256:IB18:KD31:2330(X$)92300CX(BC8)8:XBCX:X8X:XX1X:4," ";: XXUBCBCX:2330q(X$)124,"";:2330 4,(A%((X$)));:A%((X$))0BCBC1 (X$)13BC0 J$ I. K8 1:15B FFF:EE1:IF64:U%(I)22923908L U%U%(I)A$N$(I)B$T$(I)(D1((I1)32)12)EFI:I64KV I:FFF2170l` :"RESS ANY KEY FOR MENU"j A$:A$""2410t 4:4,""(141)"";:4~ PR10,4,10:10:10 500 "OPY A FILE TO / FILE" " FILE NAME ";CB$3 "/ USER, FILE NAME, TYPE": U$,CP$,TY$` (U$)0(U$)15"NVALID SER":3020 X21: I020: TY$VT$(I)XI:I20:3060 VT$(I)"***"I20 I:X21"ILE YPE NVALID":3020 N0: I164: U%(I)229 NI:I64% I: N0 "/ IRECTORY ULL":3560` E0:DN1:800:15,8,15:15,"I0":3,8,3,CB$",S,R":900 3:15:DS62 " ILE OT OUND":3560! BPBE1:FE0: X1,0: X11,0:"";0 DD1(N1)32:D,(U$):ID1D8:I,32: I: I1(CP$):DI,((CP$,I,1)): I<D I911:DI,((TY$,I8,1)): I:D12,EPN D13,0:D14,0X U%(N)(U$):N$(N)(CP$" ",8):T$(N)TY$b NRD15:BAD16:NR,0l IBABA15:I,0: Iv NB136:I0135:(D3I)0NBI:I135 I:NB136D,229:"/ ISK ULL":3560 D3NB,N2 BA,NB: R18< Y$""[ X1Y$Y$(10):X0:3290s 350:X$""X$(0) A(X$):Y$Y$(C%(A)):X$; X$(13)X1 Y(Y$):Y1283330 CS64X03320 3240 IY1128:Y$Y$(26): I4 RAD2((NB)24)((R1)3):T(RA):S(RA1):P(RA2)a DN0:800: 15,8,15:15,"I0": 1,8,2,"#" 15,"U1";2;0;T;S:15,"B-P";2;P 1,Y$;:CS6415,"U2";2;0;T;S:15,"B-P";2;0 15,"U2";2;0;T;S:NR,((NR)1):1:15* CS64R84 R:CS643450> BABA1"H (NR)1283190JR N0: I164: U%(I)229 NI:I64x\ I: N0 "/ IRECTORY ULL":3560f EE1:3120z :"RITING / IRECTORY": DN0:800: 15,8,15:15,"I0": 1,8,2,"#" DD1: S07:15,"B-P";2;0  I18:".";8 X$"": J132:X(D):X$X$(X):DD1: Jp 1,X$;:S7I8J3215,"U2";2;0;3;S:15,"B-P";2,0x I 15,"U2";2;0;3;S S:1:15 :"RESS ANY KEY FOR MENU" A$:A$""3570 500 (# 0,0,0,0,0,0,0,0,0,0,169,0,141,68,3,141,69,3,141,62,3,141,63,3b 2# 173,64,3,141,143,3,173,65,3,141,144,3,173,68,3,205,60,3,208,8 <# 173,69,3,205,61,3,240,22,162,3,32,198,255,32,228,255,32,204,255 F# 238,68,3,208,224,238,69,3,76,96,3,162,3,32,198,255,32,228,2550!P# 141,255,255,32,204,255,238,68,3,208,3,238,69,3,238,60,3,208,3r!Z# 238,61,3,32,183,255,201,64,240,30,173,66,3,205,143,3,208,11!d# 173,67,3,205,144,3,208,3,76,213,3,238,143,3,208,195,238,144,3!n# 76,134,3,173,143,3,141,62,3,173,144,3,141,63,3,968"' 2ZB,ASM,BAK,BAS,BIN,DAT,DOC,HEX,LIB,LST,MAC,PRN,PRT,SRC,SYM,TEX,TXTB"' ***  930* 6,16: 4,16: 0,16: 5,1f(14)