Есть разные варианты измерения FPS, но этот, по-моему, самый приемлемый. Этот код можно вставить прямо перед командой
Flip
vFPS=MilliSecs()
If vFPS-vLastFPS>1000
vShowFPS=vCurFPS
vLastFPS=vFPS
vCurFPS=0
Else
vCurFPS=vCurFPS+1
End If
Text 5,5,"FPS: "+vShowFPS