Generate a random black and white   320x240   image continuously,
showing FPS (frames per second).



A sample image
 


.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