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.oval kr,X,80,40,100

gr.oval kr,X-5,80,40,100 %ДВОЙНИК
q
gr.oval kr,X,180,40,100

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

gr.render

NEXT X

end