%based on homer_simpson's code
setscreen ("graphics:max;max,nobuttonbar")
var t := 0.0
type projectile_t :
    record
        x, y, v, a, w, startx, starty : real
    end record

var shell : projectile_t
shell.x := 0
shell.y := 50
shell.startx := 0
shell.starty := 50
put "Enter shell's angle : " ..
get shell.a
put "Enter shell's velocity : " ..
get shell.v
put "Enter shell's weight : " ..
get shell.w



procedure Projectile (var obj : projectile_t, t : real)
    obj.x := (obj.v * cosd (obj.a) * t) + obj.startx
    obj.y := (obj.v * sind (obj.a) * t - (obj.w) * t ** 2 / 2) + obj.starty
end Projectile

setscreen ("offscreenonly")
loop
    cls
    t += 0.1
    Projectile (shell, t)

    drawfilloval (round (shell.x), round (shell.y), 10, 10, black)
    View.Update
    delay (10)

    exit when shell.y <= 0
end loop