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