REM 
gr.open 255,0,0,0
gr.orientation 1
gr.screen w,h
gr.set.stroke 1

x=w/2
y=h/2

gr.color 180,255,255,0
gr.circle c1,x,y,100
gr.render
pause 1000

gr.color 180,0,255,0
gr.circle c2,x,y,100
gr.render
pause 1000

gr.color 180,255,0,0
gr.circle c3,x,y,100
gr.render
pause 1000

gr.color 180,0,0,255
gr.circle c4,x,y,100
gr.render
pause 1000

cicl:

for s=0 to 360 step 6

xc=190*sin(s/180*3.14)/4
yc=190*cos(s/180*3.14)/4

xx1=x+50+xc
yy1=y+50-yc

xx2=x-50-xc
yy2=y-50+yc

xx3=x+59-yc
yy3=y-50+xc

xx4=x-50+yc
yy4=y+50-xc

gr.modify c1,”x”,xx1,”y”,yy1

gr.modify c2,”x”,xx2,”y”,yy2

gr.modify c3,”x”,xx3,”y”,yy3

gr.modify c4,”x”,xx4,”y”,yy4

gr.render

next s

goto cicl