
new

10 poke19215,25
20 c0=0:c1=1:c2=2:c3=3
30 forj=0to255
40 poke16384+j,0
50 poke16640+j,85
60 poke16896+j,170
70 poke17152+j,255
80 next
110 forc2=0to7
120 poke4096,c0+8*c2
130 poke6144,c1+8*c3+64
140 forj=0to1000:next
150 next

