REM Start of BASIC!Program
REM TEXT

gr.open 255, 0, 0, 0
gr.orientation 1
gr.screen w,h
    
 !!   gr.screen screenWidth, screenHeight
    scale_x = screenWidth / di_width
    scale_y = screenHeight / di_height
    gr.scale scale_x, scale_y
!!

gr.set.antialias 1
gr.set.stroke 6
gr.set.stroke 6

!!

input "введите хо",xo
input "введите уо",yo
input "введите а", a
input "введите g",g

!!

xo=300
yo=300
a=10
g=30

for f=1 to g step 0.1

r=a*f

x=xo+r*cos(f)
y=yo-r*sin(f)

gr.color 255,255,255,255

gr.point arh,x,y
gr.render


next f

touch:
gr.touch touched,x,y
if touched then end
goto touch