Graphics 640, 480, 16, 2
AppTitle "Jump Demo by Eikon" ; Updated 07/07/04
SetBuffer BackBuffer()

Local X = 1: Y# = 440 ; Players Position
Local J = 0, G# = 3   ; Are we Jumping? + Gravity
Local IG# = 3         ; Float for user gravity variation

While Not KeyDown(1)

Color 255, 255, 255: Oval X, Y, 20, 20, 1 ; Draw Player
Color 0, 255, 0: Rect 0, 460, 640, 20, 1  ; Draw Floor

; Statistics
Color 255, 255, 255: Text 1, 1, "Player Position: " + X + ", " + Y
Text 1, 16, "Jumping: " + J
Text 1, 32, "Gravity: " + IG
Color 255, 255, 0: Text 1, 48, "Arrow Keys for Movement and Space to Jump"
Text 1, 64, "Use Home + End to adjust Gravity"

; Input
If KeyDown(203) Then X = X - 3; Move Left
If KeyDown(205) Then X = X + 3; Move Right
If KeyDown(199) Then IG = IG + .1 ; User Gravity Modification
If KeyDown(207) Then IG = IG - .1
If KeyDown(57) And J = 0 Then J = 1: G = IG ; Begin Jump
	
If J = 1 Then ; Jump
	Y = Y - G
	G = G - .05
	If Y >= 440 Then J = 0: Y = 440
EndIf

If X <= 0 Then X = 0 ; Screen Borders
If X >= 620 Then X = 620 

Flip: Cls
Wend: End