0010 DESTROY ALL 
0015 DIM F$[43]
0020 INPUT "DEVICE SPECIFIER >";V$
0025 ON ERROR GOTO 120
0030 I=0
0040 I=I+1
0050 F$=CAT$(I,V$)
0060 IF F$="" THEN 180
0070 J=POS(F$," ")-1
0080 F$=F$[1,J]
0085 IF F$="CPY" THEN 40
0090 DISP "COPY "&F$&" Y/N >"; @ INPUT "","Y";A$
0100 IF A$[1,1]="Y" THEN COPY F$&V$ 
0110 GOTO 40
0120 IF ERRN=24 THEN 140
0130 IF ERRN=255030 THEN 150 ELSE PAUSE 
0140 BEEP @ DISP F$&" IS TOO LARGE" @ WAIT 3 @ GOTO 40
0150 BEEP @ DISP "OVERWRITE "&F$&" Y/N >"; @ INPUT "","N";A$
0160 IF A$[1,1]="Y" THEN PURGE F$
0170 GOTO 100
0180 DISP "END CPY"
0190 END 
