Data commit

This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 7387c8f97b
commit cb5bb5e222
199093 changed files with 3378972 additions and 0 deletions

View file

@ -0,0 +1,43 @@
.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