blob: 75e2a2bc3ceeb9365b28e30a3467ac45c110017f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
21000 REM ===========================
21001 REM Copy the contents of a
21002 REM directory to another
21003 REM directory
21004 REM INPUT - SRCD$ Source dir
21005 REM DESTD$ Destination
21006 REM ===========================
21010 DIREC$ = SRCD$
21020 GOSUB 15000
21030 FOR ICF = 1 TO LC
21040 FULLFILE$ = SRCD$ + "\" + FL$[ICF]
21050 SHELL "COPY "+FULLFILE$+" "+DESTD$
21060 NEXT ICF
21070 RETURN
|
