setscreen ("offscreenonly;graphics:400;340;position:100;100;nobuttonbar")


var Move : array char of boolean
var Radius := 8
var Aimerx := 50
var Aimery := 50
var Fire := 1
var Theta : int := 1
var Ballx, Bally : int := 200





procedure GuyAndMovement
    Mouse.Where (Aimerx, Aimery, Fire)
    Mouse.Where (Aimerx, Aimery, Fire)
    Draw.FillOval (Ballx, Bally, Radius, Radius, red)
    Draw.ThickLine (round (cosd (Theta) * Radius + Ballx - 8), round (tan (Theta) * Radius + Bally - 12),
        round (tan (Theta) * Aimerx), round (tan (Theta) * Aimery), 2, red)


end GuyAndMovement


loop
    colorback (7)
    cls


    GuyAndMovement



    delay (15)
    View.Update
end loop