+d "PLAIN BASIC RELATIVE FILE COPIER"Nn "DAVID WILLIAMS, 1984, 1990"Tx:w THIS PROGRAM COPIES RELATIVE FILES FROM ONE DISK TO ANOTHER USING A SINGLE DISK DRIVE (OR DRIVE ZERO, ONLY, OF A DUAL DRIVE).: IT MAY ALSO BE USABLE TO COPY< REL-FILES FROM ONE DRIVE TO_ ANOTHER, PROVIDING THEY HAVE DIFFERING UNIT (DEVICE) NUMBERS : THE PROGRAM SHOULD WORK ON ALL COMMODORE COMPUTERS AND DISK  DRIVES. : : "ARE YOU USING A COMMODORE 64"9 " "OR A C-128 IN C-64 MODE? (Y/N) > ";\ , X$: X$"Y" X$"N" 300 6 X$:C6%(X$"Y"): C6% 1430 @: J: "RELATIVE FILE COPYING IS MORE" T "RELIABLE IF DONE SLOWLY THAN IF DONE" ^ "FAST. HOWEVER, THE CHOICE IS UP TO YOU."; h "DO YOU WANT SLOW, SAFE COPYING, OR"h r "RAPID, RISKY COPYING? (S/R) > "; | X$: X$"S" X$"R" 380 SS%(X$"S"): X$  590  FAST RECORD  430 15,"P"(5)(RN 255)(RN256)(RP)   SLOW RECORD DE60: 490&  4100 DE10@  SS%0 Q TI$"000000"c  TIDE 510i   READ ERROR CHANNEL 15,E,E$,E1$,E2$ & C6% AX3 0E$(E)","E$","E1$","E2$ : C6% AX3 D N: "INPUT FILENAME";FI$5 X FI$"" (FI$)16 "ILLEGAL NAME":590t b: "UNIT/DEVICE NUMBER OF DRIVE (8-11) 8";DU:DU(DU) l DU8 DU11 "ILLEGAL ENTRY": 610 v15,DU,15:5,DU,5,"0:"FI$ 530: E E$:15:RP1:RN1: 410: 530: E E$: 15: 410: 530; E0 RN32767 RNRN1: 660MNRRN1(E0)n: "NUMBER OF RECORDS =";NRwRN1RP2 410: 530 E0 RP254 RPRP1: 720RLRP1(E0): "RECORD LENGTH =";RL C6% AX:FM256((52)(50))(51)(49): 780&FM(0)C AS((FM3000)(RL5))1s AS5 : "INSUFFICIENT MEMORY":5:15:  ASNR ASNR1*: "NUMBER OF BUFFERS =";AS14 A$(AS)>CI1: CURRENT INPUT RECORDHCO1: CURRENT OUTPUT RECORD R INPUT LOOP\AC0f:4pI0AS:A$(I)"":Kz C6% AX: 910VI(0)`RNCIjL$"" "READING RECORD";CI;" TO BUFFER";AC1;"" RP1 RL 410:#5,G$:G$""G$(0) C6% AX3L$L$G$: RPA$(AC)L$:ACAC1:CICI1* ACAS CINR 910159:M DUDV 1060x "INSERT OUTPUT DISK, PRESS RETURN" G$: G$"" 1040 G$: G$(13) 1050$ FO$"" 1200.: " *** PUT OUTPUT DISK INTO DRIVE ***":8 "OUTPUT FILENAME *";FO$+B FO$"*" FO$FI$aL FO$"" (FO$)16 "ILLEGAL FILENAME":1080uV: 35);DU;""` "UNIT/DEVICE NUMBER OF DRIVE (8-11)";DV:DV(DV)j DV8 DV11 "ILLEGAL ENTRY": 1110t: "INITIALIZING FILE"%~15:15,DV,15:5,DV,5,"0:"FO$",L,"(RL)? 530: E E$:15:TRP1:RNNR: 450c5,(255);j515:15,DV,15:5,DV,5,"0:"FO$ 530: E E$:15:: PRINT LOOPRP1 I0 AC1  "WRITING BUFFER";I1;" TO RECORD";CO;""RNCO: 450(5,A$(I);4 COCO1< IC5K(:s2 CONR "ALL DONE":15:: 1330< "MORE TO COME"F DUDV 1390P: "INSERT INPUT DISK, PRESS SPACE"Z G$: G$"" 1370d G$: G$" " 1380n15:15,DU,15:5,DU,5,"0:"FI$7x530: E E$:15:A 850G:s: "LOADING FAST GARBAGE COLLECTOR..." X,Y:AX256YX:XAX Y: Y X,Y:XX1: 1450 10,206,169,0,44,169,255,216,88,240,12,165,51,197,49,165/ 52,229,50,201,4,176,21,162,5,181,32,72,202,16,250,32k 53,206,162,0,104,149,32,232,224,6,208,248,96,165,1,41 254,133,1,165,55,141,246,207,141,251,207,165,56,141,247,207 141,252,207,169,0,141,255,207,173,246,207,141,244,207,56,1732 247,207,233,31,144,15,141,245,207,165,51,205,244,207,165,52u 237,245,207,144,13,206,255,207,165,51,141,244,207,165,52,141 245,207,173,242,207,133,34,173,243,207,133,35,32,92,207,173 244,207,141,253,207,173,245,207,141,254,207,165,34,141,244,207A 165,35,141,245,207,173,242,207,141,246,207,173,243,207,141,247" 207,173,251,207,133,34,173,252,207,133,35,32,92,207,173,255, 207,208,25,165,34,141,251,207,165,35,141,252,207,173,253,2076 141,246,207,173,254,207,141,247,207,76,80,206,165,34,133,51A@ 133,53,165,35,133,52,133,54,165,1,9,1,133,1,96,160J 0,177,32,208,8,200,145,32,200,145,32,208,75,141,248,207T 200,177,32,133,36,200,177,32,133,37,165,36,205,246,207,165^ 37,237,247,207,176,50,165,36,205,244,207,165,37,237,245,207Ah 144,38,56,165,34,237,248,207,133,34,176,2,198,35,172,248r 207,136,192,255,240,7,177,36,145,34,76,41,207,160,1,165| 34,145,32,200,165,35,145,32,96,32,73,207,133,32,134,33 96,24,101,32,72,138,101,33,170,104,96,160,3,177,32,1707 136,177,32,96,165,45,133,32,165,46,133,33,165,32,197,47r 165,33,229,48,176,41,160,0,177,32,48,5,200,177,32,48 10,162,0,169,7,32,65,207,76,100,207,162,0,169,2,32 65,207,32,231,206,162,0,169,5,32,65,207,76,100,207,165# 32,197,49,165,33,229,50,176,79,160,0,177,32,48,5,200^ 177,32,48,9,32,83,207,32,65,207,76,151,207,32,83,207 32,73,207,141,249,207,142,250,207,160,4,177,32,72,162,0 169,5,32,65,207,104,162,0,10,144,1,232,32,65,207,165 32,205,249,207,165,33,237,250,207,176,180,32,231,206,162,0M 169,3,32,65,207,76,215,207,96,44,0,192,0,0,0,0f 0,0,0,0,0,0,0,0,-1