@FPS INC FP IF A$!=TIME$ THEN FPS=FP:FP=0:A$=TIME$ ENDIF WAIT LOCATE 0,0 PRINT FPS GOTO@FPS