
10 for j=0 to 255
20 poke 512+j,j
25 poke 768+j,j
30 next j
40 for j=0to1999:next j
50 poke 8193,60
60 for j=0to1999:next j
70 for j=0 to 255
80 poke j,j
90 poke j+256,j
100 next
110 rem go to multicolor graphics
120 poke 8194,158
140 for j=0to1999:next j
150 rem go to mono graphics
160 poke 8194,222
170 for j=0to1999:next j
180 rem return to basic
190 poke 8194,30:poke 8193,52
