home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #11 / Commodore_Disk_User_Vol.4_11_1991_-.d64 / rasterbars.bas (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  49 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=25:le=73: a=a+1
  7. 42 rem ===============================
  8. 43 rem ## read timing position vals ##
  9. 44 rem ===============================
  10. 45 for a=0 to 7: read tm(a): next a
  11. 50 rem ================================
  12. 51 rem ## poke initialization values ##
  13. 52 rem ================================
  14. 60 poke 52234, ln
  15. 70 poke 52265, tm (ln and7)
  16. 80 poke 52281, ((ln and7)+4)and7
  17. 90 poke 52288, le
  18. 91 rem =======================
  19. 92 rem ## call machine code ##
  20. 93 rem =======================
  21. 100 sys 52224
  22. 101 rem ========================
  23. 102 rem ## message & key test ##
  24. 103 rem ========================
  25. 105 goto 120
  26. 107 rem ==========================
  27. 108 rem ## timing position data ##
  28. 109 rem ==========================
  29. 110 data 15,14,14,7,7,15,15,15
  30. 120 for ln=30 to 230  step 10
  31. 130 poke 52234,ln
  32. 140 poke 52265, tm (ln and7)
  33. 150 poke 52281, ((ln and7)+4)and7
  34. 160 poke 52288, le
  35. 165 sys52224
  36. 166 next
  37. 170 geta$:if a$<>"" then end
  38. 180 for ln=230 to 30 step-10
  39. 190 poke 52234,ln
  40. 200 poke 52265, tm (ln and7)
  41. 210 poke 52281, ((ln and7)+4)and7
  42. 220 poke 52288, le
  43. 230 sys52224
  44. 240 next
  45. 245 geta$:if a$<>"" then end
  46. 250 goto 120
  47. 260 if ln=230 or ln=0 then  return
  48. 270 end
  49.