Graphics 800,600,16,1
SetBuffer BackBuffer()

;// Die Variablen für die Positon :
Global x#,y#,sx#,sy#

;// Sonstige Variablen :
;Global timer = CreateTimer(60)

;// Konstanten für Schwerkraf etc. :
Const grav# = 0.01,speed# = 0.02

;// Images Laden :

;// Arrays :

;// Einstellungen :
HidePointer()
SeedRnd MilliSecs()


;//Schleife :
Repeat
;// Steuerung :
If KeyDown(200) Then sy = sy - speed Else  sy = sy + grav
If KeyDown(203) Then sx = sx - speed
If KeyDown(205) Then sx = sx + speed
;// Positionen Berechnen :
x = x + sx
y = y + sy
;// Grafik Malen :
Oval Int(x),Int(y),20,20
;// Grafik Updaten :
;WaitTimer(timer)
Flip
Cls
;// Schleifen beenden wenn Escape
Until KeyHit(1)
;// Programm beenden :
End