REM Start of BASIC! Program
gr.open 0, 0, 0, 255
gr.orientation 1
gr.screen w,h
gr.set.stroke 20
gr.color 255,50,50,50,1
gr.circle karter, 240, 500, 100
gr.color 255,75,75,75,1
gr.arc mahovik, 160, 420, 320, 580, 0, 180, 1
gr.line mahovic, 240,500,0,0
gr.circle os,240,500,20
gr.color 255,100,100,100,1
gr.circle kolinval, 240,50,25
gr.line shatun,0,0,0,0
gr.color 255,200,200,200,1
gr.rect porshen, 200,0,280,100
gr.color 255,150,150,150,1
gr.circle palec,0,0,10
gr.color 255,255,255,255,1
gr.line c1,190,110,190,320
gr.line c2,290,110,290,320
gr.line c3,180,100,300,100
x=240
y=50
do

for gradus =0 to 360 step 6
xr=50*cos(toradians(gradus))
yr=50*sin(toradians(gradus))
x=xr+240
y=yr+500
gr.modify mahovik, "start_angle", gradus+90
gr.modify kolinval, "x",x,"y",y
gr.modify mahovic, "x2",x,"y2",y
gr.modify shatun, "x1", x, "y1", y, "x2", 240,"y2", y-250
gr.modify palec,"x",240,"y",y-250
gr.modify porshen, "top", y-330,"bottom", y-230
gr.render
next gradus
until 0