Tim Swan's HANOI in ti-Basic

If 0:⌊θ        1. FLAG         2. NUM PIECES   3. RET VAL MOVES   NEGATIVE WHEN   LOSE         4. MIN MOVES FOR   AUTO QUIT
0→K
0→J
0→Z
If ⌊θ(1)=1
Then
0→⌊θ(1)
⌊θ(2)→J
⌊θ(4)→K
0→⌊θ(2)
0→⌊θ(3)
0→⌊θ(4)
End
ClrHome
Disp "":Disp "
While 1
If J=0
Then
Input "LEVEL:",A
While A<1>8≠int(A)
ClrHome
Disp "":Disp "
Disp "PLEASE ENTER AN
Disp "INTEGER (1-8):
Input "",A
End
ClrHome
Disp "":Disp "[ENTER] FOR AUTO
Disp "OTHER KEY FOR   MANUAL
getKey→R
Repeat R
getKey→R
End
If R=105
1→Z
Else
J→A
End
ClrHome
0→B
0→C
For(D,1,A,1
Output(8-A+D,5,D
A-D+1→L₁(D)
End
A→D
D→W
D→E
5→S
5→T
2→G
2→H
0→I
While B<W and C<W
If K>0
Then
If I>K
Then
–I→⌊θ(3)
Return
End
End
Output(9-E,T-H,"
Output(9-E,T+H,"
Output(9-D,S-G,"[
Output(9-D,S+G,"]
If G=1
Then
If H=1
Output(9-E,T,"
Output(9-D,S,M
End
S→T
G→H
D→E
getKey→F
Repeat F
getKey→F
End
If F=24
Then
S-3→S
If S=2
11→S
End
If F=26
Then
S+3→S
If S=14
5→S
End
If F=21
Then
If G=1
Then
If S=5
Then
If A=0
Then
1→A
2→G
I+1→I
M→L₁(1)
Else
If L₁(A)>M
Then
A+1→A
2→G
I+1→I
M→L₁(A)
End
End
End
If S=8
Then
If B=0
Then
1→B
2→G
I+1→I
M→L₂(1)
Else
If L₂(B)>M
Then
B+1→B
2→G
I+1→I
M→L₂(B)
End
End
End
If S=11
Then
If C=0
Then
1→C
2→G
I+1→I
M→L₃(1)
Else
If L₃(C)>M
Then
C+1→C
2→G
I+1→I
M→L₃(C)
End
End
End
Else:If 0:G=2
If S=5 and A>0
Then
L₁(A)→M
A-1→A
1→G
End
If S=8 and B>0
Then
L₂(B)→M
B-1→B
1→G
End
If S=11 and C>0
Then
L₃(C)→M
C-1→C
1→G
End
End
End
If S=5
A→D
If S=8
B→D
If S=11
C→D
If G=1
D+1→D
If D=0
1→D
End
ClrHome
If J
Then
I→⌊θ(3)
Return
End
Disp "":Disp "
Disp "    YOU WIN!
Disp "MOVES:
Disp I
Disp "MINIMUM:
Disp 2^D-1
Disp "":Disp "
End