home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Toolkit / READ-SEQ-FILE (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  768 b   |  21 lines
  1. 10 M=828:REM READ SEQ ML
  2. 12 READN:IFN=999THEN40
  3. 14 POKEM,N:M=M+1:GOTO12
  4. 16 DATA 165,251,162,151,160,003,032,189
  5. 18 DATA 255,169,003,162,008,160,004,032
  6. 20 DATA 186,255,032,192,255,162,003,032
  7. 22 DATA 198,255,032,183,255,041,100,208
  8. 24 DATA 012,032,207,255,032,210,255,032
  9. 26 DATA 114,003,076,086,003,169,003,032
  10. 28 DATA 195,255,032,204,255,096,166,203
  11. 30 DATA 224,048,208,005,104,104,076,105
  12. 32 DATA 003,224,060,208,006,166,251,240
  13. 34 DATA 003,198,251,096,230,251,134,198
  14. 36 DATA 166,198,240,252,162,064,228,203
  15. 38 DATA 208,250,096,000,000,000,000,999
  16. 40 PRINT"::READ SEQ FILE::KEVIN QUINN
  17. 42 [133]"FILE";F$:L[178][195](F$)
  18. 44 [151]251,L:M[178]919:[134]A$(20):[129]Q[178]M[164]M[170]L:[129]T[178]1[164]L:A$(T)[178][202](F$,T,1)
  19. 46 [151]Q,[198](A$(T)):Q[178]Q[170]1:[130]:[130]
  20. 48 [153]"::SPACE BAR TO HALT::\ TO QUIT":[129]T[178]1[164]1000:[130]:[158]828:[128]
  21.