
10 for j=0 to 255
20 poke $c100+j,j
30 poke $c500+j,j
40 next

