finding fps

Here's one I use ... not sure who wrote it but you can set the update frequency.

Global FPSlastupdatetime
Global FPSframecount
Global FPSlastcount#

Function FPS(frequency=200)

	time=MilliSecs()
	FPSframecount=FPSframecount+1
	elapsed#=time-FPSlastupdatetime
	If elapsed>=frequency
		FPSlastcount=FPSframecount/elapsed*1000.0
		FPSframecount=0
		FPSlastupdatetime=time 
	EndIf
	Return FPSlastcount
	
End Function