Tim Swan's SNAKE2 in ti-Basic

ClrHome
4→X
4→Y
{8,16→dim([A]
Fill(0,[A]
DelVar L₁
DelVar L₂
15→L
For(A,1,L
X→L₁(A
Y→L₂(A
End
L→M
0→D
1→C
While 1
randInt(0,9→B
If not(B
Then
randInt(1,8→T
randInt(1,16→S
If [A](T,S)=0
Then
2→[A](T,S
Output(T,S,".
End
End
Output(Y,X,"O
1→[A](Y,X
getKey→A
If A=26
0→D
If A=24
1→D
If A=34
2→D
If A=25
3→D
If D=0
X+1→X
If D=1
X-1→X
If D=2
Y+1→Y
If D=3
Y-1→Y
If X=17
1→X
If X=0
16→X
If Y=9
1→Y
If Y=0
8→Y
X→L₁(C
Y→L₂(C
If [A](Y,X)=1
Then
Disp "DEATH
Disp "LENGTH:
Disp M
Stop
End
If [A](Y,X)=2
Then
M+1→M
End
If C>L
C→L
C+1→C
C→F
If F>L
1→F
If C>M
1→C
Output(L₂(F),L₁(F),"
0→[A](L₂(F),L₁(F)
End