[Nafi]

Типа вот-так

timeold=MilliSecs()
While Not KeyDown( 1 )

time=MilliSecs()
dtime=time-timeold ; Curent dTime (ms)
timeold=time
fps#=1000./dtime
ifps% = fps#

; - MAIN PROGRAM LOOP

RenderWorld

Text 0,5, "FPS: " + ifps%

Flip
Wend

Как то лет 7 назад написал, с тех пор так и юзаю.