Abacus
A pretty funny joke turned into a TI-Basic program! I heard you like math tools, so here is an ancient math tool in a modern math tool. Control it using the directional keys, and exit using Y=. Uses A,B,C,H,L1,GDB1. I wish I could upload this to the site, along with the more official-looking documentation, but I think I was given a dead link.
Here is the optimized code:
StoreGDB 1
ClrDraw
AxesOff
⁻10→Ymin
10→Ymax
⁻10→Xmin
10→Xmax
4→H
{0,0,0,0→L₁
Horizontal 7.5
Horizontal ⁻8
Text(1,0,"ABACUS- TATERTOMORROW
Text(57,0,"EXIT COUNT:
Line(⁻6,Ymin,⁻6,⁻8.5
For(A,1,4)
For(B,20,80)
Pxl-On(12A+3,B
End
For(B,1,9)
For(C,1,5)
Pxl-On(12A+C,20+2B
End
End
End
Lbl A
Text(12H,8,">
Text(57,45,L₁(1),L₁(2),L₁(3),L₁(4
0→A
While not(A
getKey→A
End
Text(12H,8," "
If A=11
Goto D
If A=25
H-1→H
If A=34
H+1→H
If not(H
4→H
If H>4
1→H
If A=26 and 9>L₁(H
Then
1+L₁(H→L₁(H
If 0≠L₁(H
Then
For(A,12H-2,12H+2)
If 12H≠A
Then
Pxl-Off(A+3,40-L₁(H)2
Pxl-On(A+3,80-L₁(H)2
End
End
End
End
If A=24 and 0≠L₁(H
Then
⁻1+L₁(H→L₁(H
For(A,12H-2,12H+2)
If 12H≠A
Then
Pxl-On(A+3,40-L₁(H)2-2
Pxl-Off(A+3,80-L₁(H)2-2
End
End
End
Goto A
Lbl D
ClrDraw
RecallGDB 1
DelVar GDB1"
Tuber Today, Tater Tomorrow! *rainbow emoji*