home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 January / 1994-01b.d64 / buffering.ml (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  556b  |  26 lines
  1. 10 clr:poke53280,6:poke53281,5:print"[147]"
  2. 100 data 162,1,32,198,255,160,0
  3. 110 data 140,0,34,32,228,255,172,0,34
  4. 120 data 153,0,33,166,144,208,3,200
  5. 130 data 208,237,142,1,34,32,204,255
  6. 140 data 162,2,32,201,255,160,255
  7. 150 data 200,185,0,33,32,210,255
  8. 160 data 204,0,34,208,244,32,204,255
  9. 170 data 174,1,34,240,197,96
  10. 200 for j=8192 to 8251
  11. 210 read x:t=t+x
  12. 220 poke j,x
  13. 230 next j
  14. 240 if t<>7628 then stop
  15. 400 print "buffering demo - jim butterfield"
  16. 410 print
  17. 420 input "name of disk (text) file";f$
  18. 430 print
  19. 440 print "(output to screen)"
  20. 450 open 1,8,2,f$
  21. 460 open 2,3
  22. 470 sys 8192
  23. 480 close 2
  24. 490 close 1
  25. 999 rem 2000-203b is 8192 to 8251
  26.