setscreen ("offscreenonly")
var x, y : real := 100
var angle : real := 0
var chars : array char of boolean
var speed : real := 0
loop
    cls

    Input.KeyDown (chars)

    Draw.ThickLine (round (x), round (y + 10), round (x + cosd (angle) * 30), round (y + sind (angle)), 3, 7)
    Draw.ThickLine (round (x), round (y - 10), round (x + cosd (angle) * 30), round (y + sind (angle)), 3, 7)



    Draw.Arc (round (x - 100), round (y - 20), round (x + cosd (angle) * 3), round (y + 50 + sind (angle)), 4, 12, 7)


    drawfill (round (x + 10), round (y), 12, 7)


    if chars (KEY_RIGHT_ARROW) then

        angle += 2

    end if


    delay (3)
    View.Update
end loop

    drawfill (round (x + 10), round (y), 12, 7)
    Draw.Oval(round (x + 10), round (y),3,3,blue)