home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1995 January / 1995-01b.d64 / scroll64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  1KB  |  41 lines
  1. 100 data 169,40,133,38,169,0,133,40,162,128,160,132,134,39,132,41
  2. 110 data 169,16,44,24,208,240,4,134,41,132,39,162,0,160,0
  3. 120 data 177,38,145,40,200,192,40,144,247,24,165,38,105,40,133,38
  4. 130 data 144,2,230,39,24,165,40,105,40,133,40,144,2,230,41,232
  5. 140 data 224,24,144,218,169,32,160,0,145,40,200,192,40,144,249
  6. 150 data 162,23,160,5,173,18,208,205,208,3,141,208,3,176,245
  7. 160 data 44,17,208,48,240,136,16,237,142,17,208,202,224,16,176,227
  8. 170 data 162,23,173,24,208,73,16,141,24,208,142,17,208,173,136,2
  9. 180 data 73,4,141,136,2,169,145,32,210,255,169,13,76,210,255
  10. 200 for j=828 to 967
  11. 210 read x
  12. 220 t=t+x
  13. 230 poke j,x
  14. 240 next j
  15. 250 if t<>16097 then stop
  16. 280 poke 55,0:poke 56,128:clr
  17. 300 poke 53265,23
  18. 310 poke 56576,5
  19. 320 poke 53272,4
  20. 330 poke 648,128
  21. 340 print chr$(147)
  22. 350 for j=1 to 22
  23. 360 print
  24. 370 next j
  25. 380 print "this is an example";
  26. 390 sys 828
  27. 400 print "of pixel scrolling";
  28. 410 sys 828
  29. 420 print "with double buffering";
  30. 430 sys 828
  31. 440 print "i hope you like it";
  32. 450 sys 828
  33. 460 for j=1 to 1000:next j
  34. 800 poke 648,4
  35. 810 print "end!"
  36. 820 poke 53272,20
  37. 830 poke 56576,7
  38. 840 poke 53265,27
  39. 850 rem next poke optional
  40. 860 poke 55,0:poke 56,160:clr
  41.