home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / UTILS / MAKE.COPY (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1987-07-16  |  1.3 KB  |  46 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 3 AP = 1: REM  AUTO-PROGRAM SWITCH ON. MAKE AP=0 TO TURN OFF
  2. 5  ONERR  GOTO 140
  3. 6  DIM P$(55)
  4. 7  PRINT  CHR$(4);"PR#3": PRINT 
  5. 10 D$ =  CHR$(4): TEXT : HOME : PRINT 
  6. 11  PRINT D$;"PREFIX": INPUT PF$
  7. 15  VTAB 1: POKE 36,32: INVERSE : PRINT " COPY PROGRAMS ": NORMAL 
  8. 16  IF AP >0  THEN  VTAB 1: POKE 36,60: PRINT "AUTO COPY is ON": GOTO 160
  9. 17  POKE 34,2
  10. 20  PRINT D$;"-COPY"
  11. 25  VTAB 3: POKE 36,45: PRINT "<RETURN> = Current Disk": VTAB 4: POKE 36,56: PRINT "( ";PF$;" )"
  12. 30  VTAB 3: INPUT "SOURCE DISK: ";S$
  13. 32  VTAB 4: CALL  -958
  14. 35  IF S$ = ""  THEN S$ = PF$: VTAB 3: POKE 36,14: PRINT PF$
  15. 36  IF  LEFT$(S$,1) < >"/"  THEN S$ = "/" +S$
  16. 37  IF  RIGHT$(S$,1) = "/"  THEN S$ =  LEFT$(S$, LEN(S$) -1)
  17. 40  VTAB 4: INPUT "TARGET DISK: ";T$
  18. 45  IF T$ = ""  THEN  PRINT  CHR$(7): GOTO 40
  19. 46  IF  LEFT$(T$,1) < >"/"  THEN T$ = "/" +T$
  20. 50  POKE 34,5:A = 1: VTAB 6
  21. 60  PRINT "PROGRAM "; SPC( A <10);A;: INPUT ":   ";P$(A)
  22. 65  IF P$(A) = "?"  THEN  PRINT D$;"CATALOG": GOTO 60
  23. 70  IF P$(A) = ""  OR P$(A) =  CHR$(13)  THEN A = A -1: GOTO 90
  24. 80 A = A +1: GOTO 60
  25. 90  PRINT : PRINT A;" PROGRAMS TO COPY": PRINT 
  26. 95  IF A = 0  THEN  GOTO 150
  27. 100  FOR Z = 1 TO A
  28. 105  PRINT  SPC( Z <10);Z;". COPY ";S$;"/";P$(Z);",";T$;"/";P$(Z)
  29. 110  PRINT D$;"COPY ";S$;"/";P$(Z);",";T$;"/";P$(Z)
  30. 120  NEXT Z
  31. 130  PRINT : PRINT "COPYING COMPLETED."; CHR$(7): FOR Z = 1 TO 2000: NEXT : HOME 
  32. 131  PRINT D$;"PREFIX";T$: PRINT D$;"CATALOG"
  33. 132  PRINT D$;"PREFIX";PF$: POKE 34,0: END 
  34. 140  PRINT : PRINT "ERROR #"; PEEK(222);" in Line "; PEEK(218) + PEEK(219) *256;".": POKE 34,0: END 
  35. 150  END 
  36. 160  POKE 216,0: ONERR  GOTO 180
  37. 161 T$ = "/RAM":S$ = PF$
  38. 162  POKE 34,2
  39. 165  IF  RIGHT$(S$,1) = "/"  THEN S$ =  LEFT$(S$, LEN(S$) -1)
  40. 170  FOR A = 1 TO 10: READ P$(A): NEXT 
  41. 180  POKE 216,0: ONERR  GOTO 140
  42. 185 A = A -1
  43. 190  GOTO 90
  44. 200  REM  <CTRL-0x0a><CTRL-0x0a>NAMES OF PROGRAMS FOR AUTO-COPY<CTRL-0x0a><CTRL-0x0a>
  45. 210  REM  Enter the names of programs you want auto-copied, in this           form:<CTRL-0x0a><CTRL-0x0a>
  46. 220  DATA  COPY, MAKE.COPY