sync on
sync rate 70
x#=300
y#=300
a=0
v#=1
do
`cls

`print a mod 360

dot x#,y#
`rysuj wektorki
line x#,y#,x#-v#*cos(a),y#-v#*sin(a)
`line x#,y#,x#,y#+50*sin(a)
`line x#,y#,x#+50*cos(a),y#
`przesowaj
x#=x#+v#*cos(a)
y#=y#+v#*sin(a)

`zmieniaj kont i prendkosc
if rightkey() then a=a+5
if leftkey() then a=a-5
if upkey() then v#=v#+.1
if downkey() then v#=v#-.1
`zderzenia
if x#>640 then a=180-a
if x#<0 then a=180-a
if y#>480 then a=360-a
if y#<0 then a=360-a

sync
loop