10 ' PROGRAM NAME "COPCON"
20 ' PROGRAMMED BY:     BUD SHAMBURGER    DECEMBER 1976
30 '                    #27 RED OAK DR
40 '                    CONWAY ARK  72032
50 '                    501-327-3641
60 '
70 ' A PROGRAM TO COPY CONSECTIVE FILES ONLY.  IT WILL WORK WITH ONE
90 '
100 '*******************************************************************
110 '
120 CLEAR 1000
130 PRINT "COPY ** BASIC ** CONSECTIVE FHLES **"
140 PRINT
150 INPUT "ENTER INPUT FILE NAME";INA$
160 INPUT "ENTER OUTPUT FILE NAME";OTNA$
170 INPUT "ENTER INPUT DR#";IDR
180 INPUT "ENTER OUTPUT DR#";ODR
190 PRINT "COPY '"INA$;"' ON DR# '";IDR;"' TO '";OTNA$;"' ON DR# '";68R"
200 INPUT "ENTER -C- TOO CONTINUE";XC$
210 IF XC$<>"C" THEN 150
220 INPUT "TO MOUNT THE FILES ENTER -Y-";XY$
230 IF XY$<>"Y" THEN 260
240 IF IDR=ODR THEN UNLOAD IDR:MOUNT IDR:GOTO 260
250 UNLOAD IDR,ODR:MOUNT IDR,ODR
260 OPEN "I",1,INA$,IDR
270 OPEN "O",2,OTNA$,ODR
280 IEF=EOF(1)
290 IF IEF=-1 THEN 330
300 INPUT #1,A$
310 PRINT #2,A$
320 GOTO 280
330 CLOSE 1,2
340 PRINT "EOJ"
350 LOAD "GLMENU",0,R
360 END