Tim Swan's TAG in ti-Basic

ClrHome
1→B
0→Z
0→C
4→X
4→Y
8→N
8→O
X→S
Y→T
N→I
O→J
While 1
If X≠S≠T
Output(T,S,"
Output(Y,X,"θ
If N≠I≠J
Output(J,I,"
If C>0
Then
Output(O,N,"Z
Else
Output(O,N,"X
End
X→S
Y→T
N→I
O→J
getKey→A
If A=26
X+1→X
If A=24
X-1→X
If A=25
Y-1→Y
If A=34
Y+1→Y
If X=0
16→X
If X=17
1→X
If Y=0
8→Y
If Y=9
1→Y
N-X→U
O-Y→V
If randInt(0,3)=0
Then
If (8-abs(abs(U)-8)>8-abs(abs(V)-8)) xor B=–1
Then
If U*(abs(U)-8)<0
Then
N-B→N
If N=0
16→N
If N=17
1→N
Else
N+B→N
If N=0
16→N
If N=17
1→N
End
Else
If V*(abs(V)-8)<0
Then
O-B→O
If O=0
8→O
If O=9
1→O
Else
O+B→O
If O=9
1→O
If O=0
8→O
End
End
End
If X=N and Y=O and C=0
Then
20→C
If B=–1
1→Z
–1→B
End
If C
Then
If C=1 and Z
Then
1→B
0→Z
End
C-1→C
End
End