.Enable 15 MHz full speed mode
Full
.Disable memory access delays (adds 1 FPS)
Fullʳ

.Flush key presses
While getKey(0)
End

.Setup
0→F
0→N
Fix 5
fnInt(FPS,6)

Repeat getKey(0)
 NOISE()
 F++
 .Reset the FPS counter before it overflows
 F>606?0→F→N
 Text(0,0,F*108/N▶Dec)
 DispGraph
End

.Clean up
LnRegʳ
Fix 4
Return

.Draws random noise to the buffer
Lbl NOISE
ClrDraw
For(I,0,5)
 For(J,0,63)
  rand→{J*12+(I*2)+L₆}ʳ
 End
End
Return

.Increments the tick counter
Lbl FPS
N++
Return