
new

10 poke19215,25
20 cls
30 goto120
40 rem reset colors
50 a=8*c2+c0
60 b=8*C3+C1
70 poke4096,a
80 poke6144,b
90 return
100 rem pause loop
110 forh=1top:next:return
120 rem set colors
130 c0=0:c1=1:c2=2:c3=4
140 gosub50
150 rem draw 6 patterns
160 fora=3to36
170 forb=1to38
180 c=a*b/9.5
190 plota,b,c
200 plota+36,b,c
210 plota+72,b,c
220 plota,b+38,c
230 plota+36,b+38,c
240 plota+72,b+38,c
250 next:next
260 rem color roll
270 fori=0to384
280 t=c1:c1=c2:c2=c3:c3=t
290 gosub50
300 p=500:gosub110
310 next
320 goto20

