FPS ReadOut

Mine is

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