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 >
Wrap
Commodore BASIC
|
2022-10-26
|
953b
|
33 lines
10 rem (c) daz '90
20 rem ** raster bars example **
30 rem set ln to line number (50-241)
31 rem set le to length of colour data
32 rem
35 ln=66: le=73: a=a+1
40 ifa=1 then load "demo2.col",8,1
41 ifa=2 then load "rasterbars.mc",8,1
42 rem ===============================
43 rem ^^ read timing position vals ^^
44 rem ===============================
45 for a=0 to 7: read tm(a): next a
50 rem ================================
51 rem ^^ poke initialization values ^^
52 rem ================================
60 poke 52234, ln
70 poke 52265, tm (ln and7)
80 poke 52281, ((ln and7)+4)and7
90 poke 52288, le
91 rem =======================
92 rem ^^ call machine code ^^
93 rem =======================
100 sys 52224
101 rem ========================
102 rem ^^ message & key test ^^
103 rem ========================
104 print"[147][144]the bars of basic are broken!"
105 wait 198,1:end
107 rem ==========================
108 rem ^^ timing position data ^^
109 rem ==========================
110 data 15,14,14,7,7,15,15,15