home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Coverdisks / CDU / V4D11.D64 / rasterbars.bas (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.1 KB  |  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.