ANAMESSTRTLENGFILELINEFILEBUFINDEINFILOUTFILININBUFLENAMEOUTOUTINAPPNTMPCIOXISTAINDOULOCKRETRDRV2USEDUSEDNXTFILFILENFILESCIO2DN2DN1DNDNX@@ @ !"#$%&' + A@9;@,6.h V`9PLA/LDX #$10/JSR CIO/RTS9;@,6.h V`9PLA/LDX #$20/JSR CIO/RTS&&;@,;@,;@ ,*( (*( COPYFILES FAST AND EASY ( (,,($Have you formatted and written a DOS!(file on the new disk! 0Y( Use 2 drivesL-#(Enter source disk(DRIVE #)'-6-Q4 4Y0(Enter destination disk(DRIVE #)4VG6.D :*.**67@<@,.=:,G@@`ZZ;@($@,;@(,9@(,9@(,;@0,;@,9@(,a6/6-@P$P:+I:,&AV,'@P,6;,d.67@,. 67,. .67@,.e""(Enter Y to duplicate file:j6-t A~@(**7@<@,4SECTORSA3&7@<@,4 DOS SYS)(3 AP3&7@<@,4 DUP SYS)(3 AP3&7@<@,4 MEM SAV)(3 AP>+7@<@,4BAD AP>IGNORE BAD FILES( dupl(Y/N)? U#@@K:0)@;@B(>:,U@:Y,AP6-%@7767$@&@<$@,.7@<@,67,.7@<@, APSTART UP COPY6-&@@ B(3-@ 68,-/68,-3 6-@6-@6-77SET UP BUFFER FOR COPY FROM SOURCE TO DESTINATION6-@x!!A !NO MORE FILES}38,!A3CONTINUE PREVIOUS FILE4 B4FILENO IS SMALLEST(ALPHA) FILE INDEX 68,-&&6.7$@&@<$@,;;(INPUT: 7@<@, 7@ <@, BFIX FILE NAME67@<@,.=:, @@;8,!@-6-@;6-&@ 68,-68,-COPY FILE TO MEMORY6-) B)READ CHARACTERS INTO BUF$"A6A#!%@ ( READ ERROR#&@A; @6-%@1( ERROR - ; A/,($ERROR AFTER 5 RETRIES, COPY ABORTED./&@END-OF-FILEE (8,T@^6-%@h!!%@&A%Ar< A <BUFFER DOES NOT HAVE ROOM FOR ANOTHER SECTORBUFFER FULL(8,*@@%%COPY BUFFER TO DESTINATION DISK6-@&"@A0&BUFFER EMPTY+ 0Y'(Enter destination disk+ -@8," 6- FIND FILE IN LIST&&6.7$@&@<$@,::(OUTPUT: 7@<@, 7@ <@, BFIX FILE NAME67@<@,.=:,A! OPEN FILE FIRST TIME @@  A"4RE-OPEN FILE(APPEND)>C 0Y(@@ CAPPEND WHEN ONLY 1 DRIVECOPY FILES6- B WRITE OUT FILEV)0Y@VCLOSE ONLY IF FILE FINISHED, LEAVE OPEN FOR APPEND(2 DRV)6-%@  A 0 CHECK IF FINISHED !A@ & 0Y"(Enter source disk& A!!FINISHED, NOW PROTECT FILES4-@&7<,4*A@ * 4 AP/"@+(Enter destination disk/-@7<,4 AA&&6.7$@&@<$@,(LOCK:  BFIX FILE NAME67@<@,.=:,((@5@  DONE(Copy complete.-@A %'FIX FILE NAME' 6.$' 6.D :.'-@@8'7<,4 BB'67B:,%@,.7<,L' t'67B:,%@,..~'((67B:,%@,.7@ <@,'$*READ INTO BUF$+'AP@'READ CHARACTERS +6-C:7,,+;$AR&AV$P:'AV,;ASP:'AV, +6-%@&%+S6-A%$P:'A%,SDON'T READ A PARTIAL SECTOR AT THE END OF THE BUFFER*+;$AV&AV$P:'AV,;AWP:'AV,4+6-?:C:,,>+%%6-F:AV,%AV$F:AW,C++6-F:AQ,(!@*A6+$H+68,-8,%R+ 6-%f+$.WRITE FROM BUF$.(Af@(WRITE CHARACTERS.6-C:7,,.;$Ah&AV$P:'AV,;AiP:'AV,/ 6-8,/;$Ar&AV$P:'AV,;AsP:'AV,/6-?:C:,,&/.F:Ag,!@+( WRITE ERROR:.&0/6-%8,:/$ NGET NEXT(ALPHA) FILE NAME*N##FILENO = INDEX OF LOWEST NAME4N#6-6@#6. ||||||||||||>N-@HN8,B RN..27$@&@<$@,B \N&&6.7$@&@<$@,fN 6-Q Q$D:FILECOPY.BASv `{< Kw w !0 W0 W0 w` v !0 󩡛 w`xmbat