Add tasks for all the new languages

This commit is contained in:
Tina Müller 2016-12-05 23:44:36 +01:00
parent 9dc3c2bb62
commit bba7bfd280
13208 changed files with 134745 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