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
w=400
h=800

run:

gr.cls

for a=0 to 240 step 80

for I=0 to 360 step 30

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

Gr.Color a, 153, 0, 201,1

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

gr.render

next I

next a

goto run