2nd lock + arrow keys allows you to navigate quickly.
I actually have all of my little programlets on this computer, had to evacuate them here because our calculators get wiped before exams...
(Well, it's just three of them :v, and they're pretty simple. Not larger than 450 bytes)
E: Alright, here they are. Exported to my PC via TI-Connect and then text-ified by TokensIDE.
randInt(0,3)->A
randInt(0,50)->B
randInt(1,50)->C
Disp B
Disp C
If A=0
Then
Disp "/"
Prompt D
D=B/C->E
End
If A=1
Then
Disp "*"
Prompt D
B*C=D->E
End
If A=2
Then
Disp "-"
Prompt D
B-C=D->E
End
If A=3
Then
Disp "+"
Prompt D
B+C=D->E
End
If E
Then
Disp "JUIST =)"
End
If E!=1
Then
Disp "FOUT =("
End
This is the most complex one, and I'm a little bit proud of it.
Lbl I
0->A
4->Y
8->X
6->Z
1->theta
0->S
ClrHome
While 1
0->A
ClrHome
Output(Y,X,"O"
Z+randInt(~1,1)->Z
theta+randInt(~1,1)->theta
If Z<1
Then
16->Z
End
If Z>16
Then
1->Z
End
If theta<1
Then
8->theta
End
If theta>8
Then
1->theta
End
Output(theta,Z,"Q"
If theta=Y and X=Z
Then
Goto M
End
S+1->S
While A=0
getKey->A
End
If A=25
Then
Y-1->Y
End
If A=34
Then
Y+1->Y
End
If A=26
Then
X+1->X
End
If A=24
Then
X-1->X
End
If X>16
Then
1->X
End
If X<1
Then
16->X
End
If Y>8
Then
1->Y
End
If Y<1
Then
8->Y
End
End
Lbl M
Output(3,4,"SCORE:"
Output(3,10,S
Output(4,4,"GAME OVER"
Output(5,4,"CONTINUE?"
0->L
While L<=20*5
getKey->H
L+1->L
Output(6,8,5-iPart(L/20
If H
Then
Goto I
End
End
0->A
ClrHome
While 1
A+1->A
If A>8
Then
1->A
Output(randInt(1,8),3,"!RORRE!RORRE"
Output(randInt(1,8),randInt(1,16),"?")
Output(randInt(1,8),randInt(1,16),"?")
Output(randInt(1,8),randInt(1,16),",")
Output(randInt(1,8),randInt(1,16),",")
Output(randInt(1,8),randInt(1,16),"ERROR!ERROR!")
End
Output(A,2," ERROR!ERROR! ")
End