Well, kinda. This is more like the opposite of snake for Ti-83. The idea of the game is to dodge all the blocks that appear and your own tail which is never ending… The code is fairly alright although it was programed over sevral classes so it could be a little bit buggy. Most of the code is spent building the wars and detecting keystrokes, if anyone has a better way to do it please tell me. I find it hard to code clean on these things as  you can’t alot of code and it’s annoying to edit it. No copy and pasta on these things. Anyway here it is, I’ll proberly realse the pretyped up version inwhich you can upload using a link cable later tonight. Oh and same notation as snake, [sto] are the little arrow button and watch out for negatives and subractions.

ClrDraw

ClrTable

AxesOff

For(B,1,94)

Pxl-On(0,B)

End

For(C,1,61)

Pxl-On(C,94)

End

For(D,94,1,-1)

Pxl-On(62,0)

End

For(A,62,1,-1)

Pxl-On(A,1)

End

randInt(61,1)[sto]X

randInt(93,1)[sto]Y

0[sto]S

2[sto]D

26[sto]K

While 1

getKey[sto]K

If K=34

3[sto]D

If K=26

2[sto]D

If K=24

4[sto]D

If K=25

1[sto]D

If D=2

Y+1[sto]Y

If D=3

X+1[sto]X

If D=4

Y-1[sto]Y

If D=1

X-1[sto]X

S+1[sto]S

If pxl-Test(X,Y)=1

Then

AxesOn

ClrDraw

ClrHome

Disp “YOUR SCORE WAS”

Disp S

Stop

End

Pxl-On(X,Y)

Pxl-On(randInt(61,1),randInt(93,1))

End