rem start basic! program

gr.open 255,200,200,200
gr.orientation 1
gr.screen w,h


! “ круг “

!gr.cls

gr.color 255,0,0,255,0

FOR X=0 TO 700 STEP 5

gr.CIRCLE kr,X,80,40 %,2,,,1.3

gr.CIRCLE kr,X-5,80,40 %,,,,1.3 ДВОЙНИК
q
gr.CIRCLE kr,X,180,40 %,2,,,1.3

gr.CIRCLE kr,X-5,180,40 %,,,,1.3 ДВОЙНИК

gr.render

NEXT X

pause 2000

end