|}U 6CIO¤CIO2¤A¤DRV2¤NAMES¤LOCK¤STRT¨LENG¨LINE¤TMP¤FILE¤USED¨BUFLEÎBUF¤ÉFILEÓINFILÅOUTFILÅAPPNÄINDEØFILENÏINÁINÂRETRÙISTAÔOUTINÄÊ€€€€€€@@€€ € @ € d%%DISK DUPLICATE PROGRAM 06/25/81›n%%DUPLICATES D1 TO D1 OR D1 TO D2›xALPHABETIZES FILES›„9€;@,6€.h¢ Vä`9PLA/LDX #$10/JSR CIO/RTS›Ž9;@,6.h¢ Vä`9PLA/LDX #$20/JSR CIO/RTS›è‚;@,ƒ;@,ò2 (}2($Have you formatted and written a DOSü!(file on the new disk!‚ ‚0Y( Use 2 drivesƒL'#(Enter source disk(DRIVE 1)'‚Q4 ƒ4Y0(Enter destination disk(DRIVE 2)4‚V&&@@D:*.*`ee„;@($@,…;@(,†9@(,‡9@(,ˆ;@0,‰;@,Š;@,‹9@(,a6/6Œ-@P$P:+I:,&AV,'@P,6;Œ,ddŽ-@Œ@P`67B:,%@,.2 d Že""(Enter Y to duplicate file:j6-t A~@ˆƒ(ˆˆ**ˆ7@<@,4SECTORSA3&ˆ7@<@,4 DOS SYS)(3 APŽ3&ˆ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,AP›6-%@œ776„7$@&@<$@,.ˆ7@<@,¡6…7,.ˆ7@<@,¦ AP°START UP COPY›±6-&@µ@ B(º3Ž-@ 6†8Ž,-/6‹8Ž,-3 ŽÄ6-@6‘-@Î6’-77SET UP BUFFER FOR COPY FROM SOURCE TO DESTINATION›6“-@x!!A !NO MORE FILES›}3†8,!A3CONTINUE PREVIOUS FILE›‚4 B4FILENO IS SMALLEST(ALPHA) FILE INDEX›ƒ 6‹8”,-„&&6Š.„7”$@&@<”$@,‡;;(INPUT: Š7@<@, Š7@ <@,Œ BFIX FILE NAME›– @@Š ;†8,!@•–-6’-@;6‘-‘&@ª 6†8,-“6‡8,-ÜCOPY FILE TO MEMORY›á6—-æ) B)READ CHARACTERS INTO BUF$›ð˜"A6Aú#“!Œ%@ ( READ ERROR#&˜@A;— @6—-—%@1( ERROR - ˜; A/,($ERROR AFTER 5 RETRIES, COPY ABORTED./&@END-OF-FILE›E (‡8,T@^6-%@h!!Œ%@&“A%Ar< A <BUFFER DOES NOT HAVE ROOM FOR ANOTHER SECTOR›¤BUFFER FULL›©(‡8,*®@•–¸@Ð%%COPY BUFFER TO DESTINATION DISK›Õ6™-@Ú&“"@A0&BUFFER EMPTY›ä+ ƒ0Y'(Enter destination disk+‚î Ž-@‹8Ž,"‘ 6”-Žï ŽFIND FILE IN LIST›ð&&6Š.„7”$@&@<”$@,ó::(OUTPUT: Š7@<@, Š7@ <@,ø BFIX FILE NAME›ùE ƒ4Y6‰.Š7@,$6Š.D2:36Š7@,.‰ED2:XXXXXXXX.XXX›’A! OPEN FILE FIRST TIME› @@Š  A"4RE-OPEN FILE(APPEND)›>C ƒ0Y(@@ ŠCAPPEND WHEN ONLY 1 DRIVE›˜COPY FILES›¢6’-¬ B WRITE OUT FILE›ÔV‘)ƒ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 FILES›ª4Ž-@&…7Ž<Ž,4*A@ * Ž4 AP´/“"@+(Enter destination disk/‚¾š-@È…7š<š,4 AAÒ&&6Š.„7š$@&@<š$@,Ü(LOCK: Šæ BFIX FILE NAME›ë= ƒ4Y6‰.Š7@,$6Š.D2:36Š7@,.‰=USE D2:›ð((@5@Š šˆ DONE›’(Copy complete.œ&'FIX FILE NAME›' 6‰.Š$' 6Š.D:.'Ž-@@8'‰7Ž<Ž,4 BB'6Š7B:Š,%@,.‰7Ž<Ž,L' Žt'6Š7B:Š,%@,..~'((6Š7B:Š,%@,.‰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+6‡8,-‡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 NAME›4N#6”-6@#6Š. ||||||||||||>NŽ-@HN‹8Ž,B RN..Š2„7Ž$@&@<Ž$@,B \N&&6Š.„7Ž$@&@<Ž$@,fN 6”-Ž¤Q Ž®Q$€D:DUP2DRIV.BAS