
new

10  cls:forx=0to56:fory=0to38
20 c=sqr(x*x+y*y)/3:plot56+x,38+y,c
30 plot56+x,38-y,c:plot56-x,38+y,c:plot56-x,38-y,c
40 next:next
50 fora=0to255
60 forb=0to7:forc=0to7:ford=0to7:colora,b,c,d
70 next:next:next:next
