0010 ! ACOPY - AN ADITIVE COPY ROUTINE FOR MASS STORAGE DEVICES 0020 ! ADDS ALL FILES ON :M2 TO :M1 UNLESS A NAME DUPLICATION OCCURS 0025 ! ROLAND WHITE (8885) - (206) 821-0660 0030 ON ERROR GOTO 90 0040 I=NUM(DEVAID$(':M1')) 0050 IF I#16 THEN DISP 'NO MASS STORAGE AT :M1' @ BEEP @ END 0060 I=NUM(DEVAID$(':M2')) 0070 IF I#16 THEN DISP 'NO MASS STORAGE AT :M2' @ BEEP @ END 0080 OFF ERROR @ GOTO 100 0090 OFF ERROR @ DISP 'STORAGE DEVICES :M1,:M2 REQUIRED' @ BEEP @ END 0100 FOR I=1 TO 453 0110 S$=TCAT$(':M2',I) 0120 IF S$='' THEN GOTO 290 0130 FOR J=1 TO 9 0140 IF S$[J,J]=' ' THEN GOTO 160 0150 NEXT J 0160 S$=S$[1,J-1] 0170 ON ERROR GOTO 230 0180 CAT S$&':M1' 0190 OFF ERROR 0200 DISP 'DUPLICATE FILE NAME '&S$ 0210 BEEP 800 0220 GOTO 280 0230 OFF ERROR 0240 DISP 'COPYING '&S$&' FROM :M2 TO :M1' 0250 ON ERROR GOTO 310 0260 COPY S$&':M2' TO S$&':M1' 0270 OFF ERROR 0280 NEXT I 0290 DISP 'COPYING DONE' @ BEEP 500 @ BEEP 300 @ BEEP 500 0300 END 0310 OFF ERROR 0320 DISP 'ERROR OCCURED IN COPY OF '&S$ 0330 BEEP @ END