FOR fps = 30 TO 120 STEP 30 LIMITFPS fps x=0 WHILE x<640 PRINT "FPS: "+fps, 0,0 INC x, GETTIMER()/10 PRINT "X", x,20 SHOWSCREEN WEND NEXT