REM Start of BASIC!Program

gr.open 0, 0, 0, 0
gr.orientation 1
gr.screen w,h

gr.set.antialias 0
gr.set.stroke 1

x=200
y=400
k=0
n=0
p=0

run:

for a=1 to 7 step 1

for I=0 to 360 step 30

x=190*sin(I/180*3.14)
y=190*cos(I/180*3.14)

if a=1 then gr.color255,227,0,41,1


if a=2 then gr.color255,255,160,32,1


if a=3 then gr.color255,255,230,11,1


if a=4 then gr.color255,110,255,10,1


if a=5 then gr.color255,0,239,228,1


if a=6 then gr.color255,10,0,246,1


if a=7 then gr.color255,250,0,236,1

gr.circle nc,w/2+x/2,h/2-y/2,25

gr.render

next I

next a


goto run