0 deg
5 xe%=scw(0):ye%=sch(0):xc%=xe%/2:yc%=ye%/2
6 rast=30:grad=0
10 GELLOAD "a","meteor.png"
11 sg "0","a"
20 GELLOAD "a","korabl.png"
21 sg "1","a"
22 sm "1",xc%-5,yc%-5



26 sm "0",x,y

28 if left(0) th grad=grad+1
29 if right(0) th grad=grad-1
30 if up(0) th y=y+1:grad=grad+cos(grad):rast=sqr(abs(xc%-x-10)*abs(xc%-x-10)+abs(yc%-y-10)*abs(yc%-y-10))

35 x=xc%-10+cos(grad)*rast:y=yc%-10+sin(grad)*rast

39 cls
40 pr "gradus=":pr grad
41 pr "x=":pr x
42 pr "y=":pr y
43 pr "rast=":pr rast

60 sleep 50:GOTO 26



dx=s*cos(a);
dy=s*sin(a);
x=x+dx;
y=y+dy;
s - единичное
перемещение. a - угол поворота.