10 REM *** CLONE-A-MATIC *** BUCK CHILDRESS ***
20 REM *** P.O. BOX 13575, SALEM, OR  97309 ***
30 PRINT"[147]LOADING DATA...":FORJ=53000TO53182:READA:POKEJ,A:X=X+A:NEXTJ
40 IFX<>28499THENPRINT"ERROR IN DATA...":END
50 POKE808,234:POKE52,32:POKE56,32
60 CLR:PRINT"[147]INSERT SOURCE DISK";:GOSUB250
70 PRINT"NAME OF FILE (PRESS $ FOR"
80 INPUT"THE DIRECTORY)";N$
90 IFN$="$"THENSYS53087:GOTO70
100 IFLEN(N$)<1ORLEN(N$)>16THENPRINT"1 TO 16 CHARACTERS...":GOTO70
110 INPUT"TYPE OF FILE - PRG/SEQ/USR (P/S/U)";T$
120 IFT$<>"P"ANDT$<>"S"ANDT$<>"U"THEN110
130 GOSUB290:IFER=1THEN220
140 OPEN5,8,5,N$+","+T$+",R":GOSUB300:IFER=1THEN220
150 PRINT"READING...":SYS53000:GOSUB300:CLOSE5:CLOSE15:IFER=1THEN220
160 IFPEEK(252)>206THENPRINT"FILE TOO LONG TO COPY...":GOTO220
170 PRINT"INSERT BACKUP DISK";:POKE198,0:GOSUB250
180 GOSUB290:IFER=1THEN220
190 OPEN5,8,5,N$+","+T$+",W":GOSUB300:IFER=1THEN220
200 PRINT"WRITING...":SYS53043:GOSUB300:CLOSE5:CLOSE15:IFER=1THEN220
210 PRINT"COPY COMPLETE..."
220 INPUT"COPY ANOTHER FILE (Y/N)";F$
230 IFF$="Y"THEN60
240 GOTO280
250 PRINT", THEN PRESS RETURN.":PRINT"PRESS Q TO QUIT."
260 GETA$:IFA$=CHR$(13)THENRETURN
270 IFA$<>"Q"THEN260
280 POKE52,160:POKE56,160:CLR:POKE808,237:END
290 OPEN15,8,15:PRINT#15,"I"
300 INPUT#15,EN$,EM$,ET$,ES$:IFEN$="00"THENRETURN
310 PRINT""EN$","EM$","ET$","ES$:CLOSE5:CLOSE15:ER=1:RETURN
320 DATA169,0,162,32,133,251,133,253,134,252,134,254
330 DATA162,5,32,198,255,32,207,255,160,0,145,251
340 DATA165,144,208,12,230,251,208,241,230,252,165,252
350 DATA201,207,144,233,76,204,255,169,54,133,1,162
360 DATA5,32,201,255,160,0,177,253,32,210,255,165
370 DATA253,197,251,208,13,165,254,197,252,208,7,169
380 DATA55,133,1,76,204,255,230,253,208,226,230,254
390 DATA76,60,207:REM END COPY ROUTINE...BEGIN DIRECTORY
400 DATA169,147,32,210,255,169,36,133,251,169,5,162
410 DATA8,160,0,32,186,255,169,1,162,251,160,0
420 DATA32,189,255,32,192,255,162,5,32,198,255,32
430 DATA207,255,32,207,255,32,207,255,32,207,255,32
440 DATA207,255,72,32,207,255,168,104,170,165,144,240
450 DATA8,32,204,255,169,5,76,195,255,152,32,205
460 DATA189,169,32,32,210,255,32,225,255,240,234,32
470 DATA207,255,208,243,169,13,32,210,255,184,80,201