home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / SEQFILEREAD (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  42 lines
  1. 1 PRINT"[147]":POKE53280,2:POKE53281,7
  2. 2 PRINTTAB(9)"SEQUENTIAL FILE READER[146]"
  3. 3 PRINTTAB(12)"WRITTEN BY ZAX1[146]"
  4. 4 PRINT:PRINTTAB(9)"DISTRIBUTED AS [144]FREEWARE[146]"
  5. 5 PRINTTAB(10)"WITH THANKS TO SPOT[146]"
  6. 6 PRINT: PRINTTAB(6)"INSERT DISK AND PRESS RETURN":INPUTA$:IFA$=CHR$(13)THEN 7
  7. 7 GOSUB500
  8. 8 GOSUB1600
  9. 10 POKE53272,23:INPUT"[198]ILE [206]AME ";N$
  10. 15 PRINT"[208])RINTER OR [211])CREEN ?"
  11. 17 GETI$:IFI$=""THEN17
  12. 18 IFI$="P"THENPF=1:OPEN4,4
  13. 19 PRINT"[193]NY KEY TO PAUSE OR CONTINUE."
  14. 20 PRINT"[208]RESS [198]1 TO END READING.":PRINT
  15. 22 OPEN15,8,15:OPEN2,8,2,"0:"+N$+",S,R"
  16. 25 INPUT#15,EN$,EM$,ET$,ES$:IFEN$<>"00"THEN70
  17. 30 GET#2,D$:FLAG=ST:IFD$=""THEND$=D$+CHR$(0)
  18. 35 PRINTD$;
  19. 40 IFPFTHENPRINT#4,CHR$(17);D$;
  20. 45 IFFLAGTHEN80
  21. 50 GETI$:IFI$=""THEN30
  22. 55 IFI$="[133]"THEN80
  23. 60 GETI$:IFI$=""THEN60
  24. 65 IFI$<>"[133]"THEN30
  25. 66 GOTO80
  26. 70 PRINT"[147] I/O ERROR: "EN$" "EM$" "ET$" "ES$
  27. 80 CLOSE2:CLOSE4:CLOSE15:END
  28. 500 FORC=55296TO56295:POKEC,0:NEXT :FORD=1023TO2023:POKED,160:NEXT
  29. 501 FORD=2023TO1024STEP-3:POKED,96:NEXT
  30. 502 FORT=1025TO2023STEP3:POKET,96:NEXT
  31. 503 FORH=2022TO1024STEP-3:POKEH,96:NEXT
  32. 504 RETURN
  33. 1600 PRINT"[147]":POKE53280,0:POKE53281,0
  34. 1610 OPEN5,8,0,"$":GET#5,A$,A$
  35. 1620 GET#5,A$,A$:IFA$=""THENCLOSE5:GOTO1660
  36. 1625 GET#5,B$,L$
  37. 1630 LN$=STR$(ASC(B$+CHR$(0))+ASC(L$+CHR$(0))*256):PRINTLN$" ";
  38. 1640 GET#5,A$:PRINTL$;A$;:IFA$=""THENPRINT:GOTO1620
  39. 1650 GOTO1640
  40. 1655 CLOSE5
  41. 1660 RETURN
  42.