
new

10 poke19215,25
20 cls
30 color0,1,2,4
40 forp=0to7
50 fora=0to113step5
60 forb=6to77step5
70 output"o",a,b,c
80 output"*",a,b,c+1
90 c=3*rnd(1)+1
100 poke6144,a
110 poke4096,p
120 next:next
130 next
140 goto40
