0 rad
5 xe%=scw(0):ye%=sch(0):xc%=xe%/2:yc%=ye%/2
6 rast=30:grad=10.2
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",xc%-10+(rast*X-rast*Y),yc%-10+(rast*Y+rast*X)

28 if left(0) th grad=grad-0.1
29 if right(0) th grad=grad+0.1
30 if up(0) th rast=rast-cos(grad-10.2):grad=grad+sin(grad)


39 cls
40 pr "gradus=":pr grad
41 pr "cos=":pr cos(grad)
42  pr "sin=":pr sin(grad)


54 X=sin(grad):Y=cos(grad)
60 sleep 50:GOTO 26