Graphics 800,600
SetBuffer BackBuffer()

Global BX
Global BY =30
Global xspeed =2
Global yspeed =1
Global acc = 3

Global timer1=CreateTimer(60)

Global FPS ; für Zählung
timer = MilliSecs()
Anfang = MilliSecs()

While Not KeyDown(1)

If MilliSecs() - timer >999 ; für FPS Messung
FPSAnzeige = FPS
Timer = MilliSecs()
FPS = 0
EndIf

Ballbewegung()

Text 100,220,"FPS = "+FPSAnzeige

Oval BX,BY,20,20,1

If KeyDown(20) Then WaitTimer(timer1)
Flip
Cls

FPS = FPS+1
Wend

End

Function Ballbewegung()
BX = BX + xspeed*acc
BY = BY + yspeed*acc

If BX >=780
xspeed = -2
yspeed = -1
End If

If BX<= 20
xspeed = 2
yspeed = 1
End If

End Function