home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / canada-remote-systems / c64 / utils / scratch.c64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  256 b   |  15 lines
  1. 10 PRINT"[147]"
  2. 20 PRINT:PRINT"WOULD YOU LIKE TO SCRATCH A FILE (Y/N)?"
  3. 30 GET A$
  4. 40 IF A$="Y" THEN 80
  5. 50 IF A$<>"N" THEN 30
  6. 60 PRINT:PRINT"BYE."
  7. 70 END
  8. 80 INPUT"FILE TO BE SCRATCHED";F$
  9. 90 OPEN 15,8,15
  10. 100 PRINT#15,"S0:";F$
  11. 110 INPUT#15,E,E$,F
  12. 120 CLOSE 15
  13. 130 PRINT:PRINT F;E$
  14. 140 GOTO 20
  15.