FPS ReadOut

FPS% = 60
PERIOD% = 1000/FPS%
TIME% = MilliSecs() - PERIOD%

While Not KeyHit(1)
	Repeat
		ELAPSED% = MilliSecs() - TIME%
	Until ELAPSED%

	TICKS% = ELAPSED%/PERIOD%
	TWEEN# = Float(ELAPSED% Mod PERIOD%)/Float(PERIOD%)

	For C = 1 To TICKS%
		If C = TICKS% Then CaptureWorld
		TIME% = TIME% + PERIOD%
		UpdateWorld
	Next

	RenderWorld TWEEN#
	
	Flip
Wend

Global fps,timenext,frames

Function GetFPS(JustChecking = False)   ;pass True to JustChecking if you just want it to return the FPS and not increment the frames variable
                                        ;probably a good choice is to do is right after your RenderWorld GetFPS(False) and then somewhere else do Text X,Y,GetFPS(True)
	If Not JustChecking Then frames = frames+1

	If MilliSecs() > timenext Then
		timenext = MilliSecs()+1000
		fps = frames
		frames = 0
	EndIf

	Return fps
End Function

graphics 640,480
setbuffer backbuffer()

Global fps,frame

while not keyhit(1)
    cls

	If MilliSecs()<timer+1000 Then
				frame=frame+1
	Else
				fps=frame
				frame=0
				timer=MilliSecs()
	End If

    text 0,0,fps
    flip 0

wend
end