SuperStrict

Framework brl.blitz
Import brl.standardio
Import brl.glmax2d

Graphics(800, 600, 0)

While AppTerminate() = False And KeyHit(KEY_ESCAPE) = False
    Cls()
    DrawRect(MouseX() - 32, MouseY() - 32, 64, 64)
    DrawText("FPS: " + GetFPS(), 0, 0)
    Flip()
End While

Function GetFPS:Int()
    Global frame:Int, time:Int, fps:Int
    frame:+ 1
    If MilliSecs() > time
        time = MilliSecs() + 1000 ' 1 second
        fps = frame
        frame = 0
    End If
    Return fps
End Function