Вот мой вариант. Но он работает корявенько
GRAPHICS
'SET TOOLBAR OFF
PAGE 1 SET
SET ORIENTATION LANDSCAPE
RANDOMIZE
OPTION BASE 1
OPTION ANGLE DEGREES
OPTION TEXT POS CENTRAL
OPTION SPRITE POS CENTRAL
OPTION IMAGE POS CENTRAL
SET LISTS CUSTOM
SET BUTTONS CUSTOM
OPTION SORT DESCENDING
REFRESH OFF
maxx=SCREEN_WIDTH()
maxy=SCREEN_HEIGHT()
kof=maxy/768
kof1=maxx/1024
SHADOW OFFSET 2*.kof,2*.kof
SPRITE 1 BEGIN 20,20
GRAPHICS CLEAR 1,0,0
SPRITE END
SPRITE 1 AT -500,-500
SPRITE 1 SHOW
tim=100
DIM gor(tim)
DIM ver(tim)
verh=100
x1=100
y1=300
DRAW CIRCLE x1,y1+100 SIZE 5*.kof
x2=1000
y2=500
DRAW CIRCLE x2,y2 SIZE 5*.kof
REFRESH
x0=(x2-x1)/2
shag=((-x0+x0/tim/2)^2/(y1))
shag2=((-x0+x0/tim/2)^2/y2)
setx=x0/(tim/2)
FOR i=1 TO tim
IF i>tim/2 THEN
gor(i)=-x0+i*setx
ver(i)=GOr(i)^2/shag2
ELSE
gor(i)=-x0+i*setx
ver(i)=GOr(i)^2/shag
ENDIF
SPRITE 1 AT gor(i)+x0+x1,ver(i)
PAUSE .01
NEXT i
DEBUG PAUSE