Graphics width,height
  SetBuffer BackBuffer()

timer=MilliSecs()

While Not KeyDown( 1 )
     Cls    
     FPS=FPS+1
    	           If MilliSecs()-timer >=1000 Then 
			maxi=FPS
			FPS=5 
			timer=MilliSecs()
	            End If	
       Text,1,1,\"FPS\"+maxi
  Flip
Wend
End

Graphics width,height
SetBuffer BackBuffer()

timer=MilliSecs()  ; überflüssig, die FPS bleiben max. 1 Sekunde bei Null, was niemandem auffallen dürfte

While Not KeyDown( 1 )
  Cls    

  ; anstatt jedesmal MilliSecs() aufzurufen, genügt es einmal am anfang der Schleife die akt. Zeit zu sichern
  ctime = MilliSecs()

  FPS=FPS+1
  If MilliSecs()-timer >=1000 Then ; >= ist sinnfrei, es wird höchst selten vorkommen dass Millisecs()-time = 1000 ist.

    maxi=FPS
    FPS=5    ; das ist Blödsinn, die temp. FPS müssen auf Null gesetzt werden
    timer=MilliSecs() ; hier anstatt MilliSecs() den zuvor gesicherten Wert ctime einsetzen
  End If	
  Text,1,1,\"FPS\"+maxi  ; wird nicht funktionieren, falscher Funktionsaufruf
  Flip
Wend
End

Graphics 640,480
SetBuffer BackBuffer()

Repeat
	Cls
	
	Text 2,2,Str(FPS())
	
	Flip
Until KeyHit(1)
End


;
; machst Du Funktion, kannst Du
; wieder usen ... guckst Du:
;
Global FPS_current
Global FPS_temp
Global FPS_time
	
Function FPS()
		
	ctime = MilliSecs()
	
	FPS_temp = FPS_temp + 1
	If ctime - FPS_time > 1000
		FPS_current = FPS_temp
		FPS_temp = 0
		FPS_time = ctime
	EndIf
	
	Return FPS_current
End Function

  If MilliSecs()-timer >=1000 Then

  ;FPS
  time# = MilliSecs()
  If time# - oldtime# <> 0 Then FPS# = Int(1000 / (time# - oldtime#))
  If FPS# = 0 Then FPS# = 1
  oldtime# = MilliSecs()

While Not KeyHit(1)
  UpdateGame()

  ;FPS
  time# = MilliSecs()
  If time# - oldtime# <> 0 Then FPS# = Int(1000 / (time# - oldtime#))
  If FPS# = 0 Then FPS# = 1
  oldtime# = MilliSecs()

  RenderWorld

  Text 0, 0,  \"FPS = \" + fps#
  Flip 0
Wend
End[/code]