; Strengths
Const Gravity = 1
Const Thrust  = 3

; Ship position
Local X
Local Y

; Ship speed
Local speedY

; Ship image handle
Local Image

; Initial X coordinate (middle of screen width)
X = 320
; Initial Y coordinate (bottom of screen)
Y = 480

Graphics 640 , 480

Image = LoadImage ( "Ship Pre Final.PNG" )
MidHandle Image

; Now drawing to the invisible screen
SetBuffer BackBuffer ()

Repeat

    ; Thrust using space, upwards
    If KeyDown ( 57 ) Then speedY = speedY - Thrust

    ; Apply gravity
    speedY = speedY + Gravity

    ; Apply speed to position
    Y = Y + speedY

    ; Prevent ship from falling through the bottom
    If Y > 480
        Y = 480

        ; Stop the ship
        speedY = 0
    End If

    ; Display the ship
    DrawImage Image , X , Y

    ; Flip the invisible with the visible screen
    Flip
    ; Clear the invisible screen
    Cls

Until KeyHit ( 1 )  ; Escape

; Manual cleanup is not mandatory
FreeImage Image

End

;~IDEal Editor Parameters:
;~C#Blitz3D198