home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk UserVolume 4 #7 / Commodore_Disk_User_Vol.4_7_1991_-.d64 / rasterbars.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1991-01-01  |  953 b   |  33 lines
  1. 10 rem (c) daz '90
  2. 20 rem ** raster bars example **
  3. 30 rem set ln to line number (50-241)
  4. 31 rem set le to length of colour data
  5. 32 rem
  6. 35 ln=66: le=73: a=a+1
  7. 40 ifa=1 then load "demo2.col",8,1
  8. 41 ifa=2 then load "rasterbars.mc",8,1
  9. 42 rem ===============================
  10. 43 rem ^^ read timing position vals ^^
  11. 44 rem ===============================
  12. 45 for a=0 to 7: read tm(a): next a
  13. 50 rem ================================
  14. 51 rem ^^ poke initialization values ^^
  15. 52 rem ================================
  16. 60 poke 52234, ln
  17. 70 poke 52265, tm (ln and7)
  18. 80 poke 52281, ((ln and7)+4)and7
  19. 90 poke 52288, le
  20. 91 rem =======================
  21. 92 rem ^^ call machine code ^^
  22. 93 rem =======================
  23. 100 sys 52224
  24. 101 rem ========================
  25. 102 rem ^^ message & key test ^^
  26. 103 rem ========================
  27. 104 print"[147][144]the bars of basic are broken!"
  28. 105 wait 198,1:end
  29. 107 rem ==========================
  30. 108 rem ^^ timing position data ^^
  31. 109 rem ==========================
  32. 110 data 15,14,14,7,7,15,15,15
  33.