home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG009.ARK / COPCON.ASC < prev    next >
Text File  |  1984-04-29  |  1KB  |  36 lines
  1. 10 ' PROGRAM NAME "COPCON"
  2. 20 ' PROGRAMMED BY:     BUD SHAMBURGER    DECEMBER 1976
  3. 30 '                    #27 RED OAK DR
  4. 40 '                    CONWAY ARK  72032
  5. 50 '                    501-327-3641
  6. 60 '
  7. 70 ' A PROGRAM TO COPY CONSECTIVE FILES ONLY.  IT WILL WORK WITH ONE
  8. 90 '
  9. 100 '*******************************************************************
  10. 110 '
  11. 120 CLEAR 1000
  12. 130 PRINT "COPY ** BASIC ** CONSECTIVE FHLES **"
  13. 140 PRINT
  14. 150 INPUT "ENTER INPUT FILE NAME";INA$
  15. 160 INPUT "ENTER OUTPUT FILE NAME";OTNA$
  16. 170 INPUT "ENTER INPUT DR#";IDR
  17. 180 INPUT "ENTER OUTPUT DR#";ODR
  18. 190 PRINT "COPY '"INA$;"' ON DR# '";IDR;"' TO '";OTNA$;"' ON DR# '";68R"
  19. 200 INPUT "ENTER -C- TOO CONTINUE";XC$
  20. 210 IF XC$<>"C" THEN 150
  21. 220 INPUT "TO MOUNT THE FILES ENTER -Y-";XY$
  22. 230 IF XY$<>"Y" THEN 260
  23. 240 IF IDR=ODR THEN UNLOAD IDR:MOUNT IDR:GOTO 260
  24. 250 UNLOAD IDR,ODR:MOUNT IDR,ODR
  25. 260 OPEN "I",1,INA$,IDR
  26. 270 OPEN "O",2,OTNA$,ODR
  27. 280 IEF=EOF(1)
  28. 290 IF IEF=-1 THEN 330
  29. 300 INPUT #1,A$
  30. 310 PRINT #2,A$
  31. 320 GOTO 280
  32. 330 CLOSE 1,2
  33. 340 PRINT "EOJ"
  34. 350 LOAD "GLMENU",0,R
  35. 360 END
  36.