Thanks again, I managed to locate snippet of code from coders workshop which works a treat :-
;-------------------------------------------------------------- ;fps checker routine fpschecker=fpschecker+1 If MilliSecs()>fpstimer+1000 fpstimer=MilliSecs() fps=fpschecker fpschecker=0 EndIf Color 100,100,100 Text 200,200,"FPS:=" + fps Flip ;end of fps timer