D BBI-COPY6.3 *************QQ$(34){ :"";:N$(300),F$(300):700:800""53280,.:53281,.:""<"","RIVE TO RIVE ":," " FDR.:X811:144,.:1,X,15:100:Z090J P1:1,X,15,"UI":1,A$,B$,C$,D$:U(DR)X:U$(DR)(B$,4):DRDR1Y Z1:X:110 d144,.:780,X:65457:780,111:65427:65448:ZST:65454: nDR2"OU ONLY HAVE 1 DRIVE HOOKED UP!":: x"RIVES ONLINE:":" X0DR1:""U$(X)" DRIVE, UNIT #"((U(X)),2)".":XM :"NTER OURCE #>";:150:200r 190:(A$)8(A$)12180:150 X0DR:(A$)U(X)X:180:150 V(A$): X2(A$):" ";:X:X2(A$):"";:X: X(211):1,.:1,A$::1:""X);:I SOX:DR2DEX1:::"ESTINATION RIVE: "U$(DE)" #:"U(DE):230o :"NTER ESTINATION #>"; 150:DEX:SODE220 :"NSERT ISKETTES AND RESS ":198,. A$:A$(13)240 X0DR1:1,U(X),15,"I0":1:X/ "EADING IRECTORY."f U$(DE)"1581"U81U(DE):1,U(DE),15,"/":1:20000 U$(SO)"1581"U81U(SO):1,U(SO),15,"/":1:20000 30000:FI.,"O FILES!":DL03000:DL: "1000! , COPY ROUTINE ************X -" COPYING" :Q01200::53265,11e 6FZ0FI @(N$(FZ),1)"" 375 TN$(FZ)(N$(FZ),((N$(FZ))1)) h2:1:2,U(DE),4,N$(FZ)","F$(FZ)",W"r1,U(SO),4,N$(FZ)","F$(FZ)",R":500:2:1wFZ:53265,27O|," ILES COPIED."::,"RESS A PACE TO RESTART"|}" Ē FOR A DESTINATION DISK DIRECTORY"~G$:G$""382G$" " G$"D" 382""1:1,U(DE),0,"$":#1,A$,A$#1,L$,L1$:ST641:4452#1,LB$:#1,HB$:LN(LB$(0))256(HB$(0)):6)LN;Q#1,A$:A$""(13);:410_A$;:420qA$:A$""z445 550">"; :N$""A$:A$""465A$""N$(N$,(N$)1)A$;: A$(13)480N$N$A$:46515,U(DE),15,N$:15:800C:" OPYING: "N$(FZ):,,,"ILE YPE:"F$(FZ)P49240:q& INPUT DEVICE NO. ROUTINE0" DEVICE NUMBER";U(DE):U(DE)8 U(DE)12 "":560DXA$"00"360b:"AD ISK....."::"RY GAIN?":340%(49152)166X(186):49000+O 53280,8 :53281,9:"";: MENUY!"";""";#"ݒ ݒ";$"ݒ ݒ";+%"ݒ ݒ";`&"ݒ ݒ";'""(" $ DIRECTORY)" P PRINT DIRECTORY*" C COPY+" S SCRATCH4," / CREATE PARTITIONW-" > DISK FUNCTIONj4A$:A$""8209A$"$":550:53281,13:53280,5:"": 390>A$"P"550:"":53280,15:53281,15:950CA$"C" "":53280,14:53281,6:15&HA$"S" 550: 53280,2:53281,15: "":900XMA$"/" "":53280,14:53281,6:550: 2000iRA$">" 450rf8201,U(DE),0,"$":#1,A$,B$:30010:100015,U(DE),15: N0FI1(N$(N),1)"" 940N$(N)(N$(N),(N$(N))10)15,"S0:"N$(N):15:=1,U(DE),0,"$":#1,A$,B$:30010:1000^4:4,4,6:4,N$(0):N1FI1x(N$(N),1)"" 9904,F$(N),(N$(N),(N$(N))1):4: SELECTOR ********P0:T$" ":EFI6"";g" B BEGIN (+-) PAGING CURSORS U/D ";" SPACE OR RETURN TO SELECT ";" PAGE";P191 :V018:T$;N$(PV)::V0:"":T$;""N$(PV)$A$3.A$""V0""T$;N$(PV):VV1:""T$""N$(PV)k3A$""V0""T$;N$(PV):VV1:""T$""N$(PV)8A$""V18(PV)E1""T$;N$(PV):VV1:T$;""N$(PV)BA$"+"PE18PP19:1020LA$"-"P0PP19:1020VA$" "A$(13) 1140` A$"B"j1060_t MARK FILE NAME --------------n~N$N$(PV)(N$,1)""N$(N$,(N$)1):1180(N$,1)""N$""N$""T$""N$" ":N$(PV)N$ A$(13)V18PV1E T$""N$:VV1:T$""N$(PV)' PARTITIONERG" PARTITIONER"i"INPUT PARTITION NAME-" ;~ N$ :N$N$",""STARTING TRACK";T S0"NUMBER OF TRACKS (40 BLOCKS PER TRACK)": I:I(I1)40 " WORKING "*GT(I256):LTIGT256!>15,U(DE),15MH15,"/0:"N$(T)(S)(LT)(GT)",C"j\"  DONE " :2330f" FORMAT PARTITION?""SUBDIRECTORY ID.";A$ (A$)2" ":218015,U(DE),15,"/0:"N$15,"N0:"N$","A$)15,"/" :1582330:800O 15: 15,U(DE),15d$ 15,E1,E2$,E3,E4t. E1015:8 " ERROR "E1;E2$,E3,E4B 15,"I"L 15:800'49152:F$"":(702)X0(702)1:F$F$((704X)):X'BS(700)(701)256: ,:BS.F$"";14);F$;32)((703))7:BS.:] N1,U81,0,"$:*=C":#1,A$,A$:OK.:t*N10000:BS.200104N15000:ST020010>N1:OK1HN1::"NTER OF > ROOT";RN1,.:1,A$::1:(A$,1)""A$(A$,(A$)1))\N(A$,1)" "A$(A$,(A$)1):20060BfNA$"""":20040SpNA$"ROOT"zN1,U81,15,"/0:"A$:1,A$,B$,C$,D$:1:A$"62"20000N:"OT FOUND!!!!!!!!":200400u1,U(SO),0,"$":#1,A$,A$:OK.::FI.:u10000:BS.(703)8230010DuST030040:30010 Nu1:GXuN$(FI)F$:F$(FI)((703)):FIFI1bbuG$"D" BS,F$,F$(FI)hluh ML STUFF ********rD49152:63997 :166,184,32,198,255,32228,255,32,228,255,32  228,255,141,188,2,32'228,255,141,189,2,165B144,208,53,32,228,255\201,34,208,245,162,0w$165,144,208,40,32,228*255,240,29,201,34,24008,157,192,2,232,224617,48,235,165,144,208<19,32,228,255,41,127B201,33,48,243,141,191 H2,138,141,190,2,76. N204,255,169,0,240,246A T0,0,0,0,169,0^ Z133,247,133,249,169,193y `133,248,133,250,162,1 f32,198,255,32,228,255 l160,0,145,247,230,247 r208,2,230,248,164,144 x208,6,165,248,201,208!~208,233,132,254,32,204!255,162,2,32,201,2556!160,0,165,247,197,249Q!208,6,165,248,197,250l!240,13,177,249,32,210!255,230,249,208,233,230!250,208,229,32,204,255!165,254,41,64,240,170!76,204,255,0,0,0!0,0,0,0,0,0,-1#": R&P ROUTINE.FIRST SET D=TO DEST THEN GOSUB 63997P"D%D256:254,D%:253,DD%256: A: D,A" (46)256(45) 118 :: FIND 1ST BYTE OF M/L""ȄbcdABAAiA,B(,# - AiAB`80cbdcddb Ȋbc ecebed