!*! Updated on 02-Jun-93 at 10:57 AM by Jim Randazzo; edit time: 0:01:47
!*! Created on 02-Jun-93 at 10:54 AM by Jim Randazzo; edit time: 0:05:48
20 print "enter the size patameter"
30 input size
40 c=15
60 for x = 1 to 300
70 for y = 1 to 300
80 px = x*size/300
90 py = y*size/300
100 pz = int(px*px+py*py)
110 if (pz mod 2)=1 then pset=(x+20,y+20),c
120 next x
130 c = (x mod 6)+1
140 next x
150 end