TI-84 Plus CE | Snake

Lbl P
0→Xmin
264→Xmax
­164→Ymin
0→Ymax
BackgroundOn BLACK
1→W

Lbl L
If W>dim(⌊SNAKE)/4:Return
ClrDraw
5→L:5→A:5→B:1→C:0→D
A+C→G:B+D→H
10→J
L→dim(L₁
L→dim(L₂
Fill(A,L₁
Fill(B,L₂

For(X,1,4
⌊SNAKE(4W-4+X→N
If N>0:Then
int(N/16→P
N-P*16→N
int(N/14→Q
N-Q*14→N
int(N/12→R
N-R*12→N
int(N→S
For(U,P,R
For(V,Q,S
Pt-On(6U,­6V,2,12
Pt-On(6U,­6V,20
End:End
End:End
W+1→W

getKey→K
Lbl GL
While 1
getKey→K
If K≠0:Then
If K=24 and C=0
Then:­1→C:0→D:End
If K=26 and C=0
Then:1→C:0→D:End
If K=25 and D=0
Then:­1→D:0→C:End
If K=34 and D=0
Then:1→D:0→C:End
End
A+C→A:B+D→B
If A>43:1→A
If A<1:43→A
If B>27:1→B
If B<1:27→B

If A=G and B=H:Then
L+1→L
Pt-Off(6G,­6H
If L≥20:Goto L
Lbl GH
randInt(1,43→G
randInt(1,26→H
If pxl-Test(6H,6G) or pxl-Test(6H-2,6G-2):Goto GH
Pt-On(6G,­6H,11
Else
If pxl-Test(6B-2,6A-2:Goto E
End

J+4→J
If J>14:10→J
Pt-On(6A,­6B,2,J
Pt-Off(6E,­6F,2

augment({A},L₁)→L₁
augment({B},L₂)→L₂
L→dim(L₁
L→dim(L₂
L₁(L→E
L₂(L→F

End

Lbl E
Pt-On(6A,­6B,11
TextColor(RED
Text(70,95," GAME OVER
Text(84,95," SCORE:             "
Text(84,143,15(W-2)+L-6
Pause
Goto P