home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1993 July / 1993-07.d64 / filecheck.ml (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  557b  |  21 lines
  1. 10 print"[147]":poke53280,6:poke53281,6
  2. 100 print"file end checker - jim butterfield"
  3. 110 data 162,1,32,198,255,169,0,141,0,33,32,228,255
  4. 120 data 164,144,240,246,141,1,33,76,204,255
  5. 160 data 72,32,204,255,162,2,32,201,255,174,0,33
  6. 200 for j=8704 to 8726
  7. 210 read x:t=t+x
  8. 220 poke j,x
  9. 230 next j
  10. 240 if t<>3010 then stop
  11. 300 input "name of file";f$
  12. 310 open 15,8,15
  13. 320 open 1,8,2,f$
  14. 330 input#15,e,e$:if e<>0 then print e$:stop
  15. 340 sys 8704
  16. 350 close 1
  17. 360 close 15
  18. 370 if peek(8449)<>13 then print"file does not end with <return>.": end
  19. 380 if peek(8448)<>13 then print"file ends with a single <return>.": end
  20. 390 print"file ends with multiple <return> chars."
  21.