start tok64 d64-BIAy8r
10 s=54272
20 FOR l=s TO s+24
25 POKE l,0:NEXT
30 POKE s+24,15
40 POKE s+5,8
50 POKE s+6,255
60 POKE s+4,23
70 POKE s+15,40
80 FOR a=1 TO 4
120 FOR lf=0 TO 255 STEP 20
130 POKE s+1,lf
135 FOR t=1 TO rt:NEXT t
140 NEXT lf
150 NEXT a
160 POKE s+4,0
stop tok64
(bastext 1.0)