Ti-83 stuff

This is my TI-83, 84, 85 stuff

"Game 2" Source Code (v1.0)

Ok, so this code is actully a optemized version of "game 1" but I am not going to post that because the code is so long that it would take like a million years

:SETUP

6->X

5->Y

100->H

0->R

CLRHOME

:LOOP

While (1)

Lbl S

:PLAYER

Output(Y,X, "O")

:TOP

Output(1,1,H)

Output(1,4,"XXXXXXXXXXXXX")

:NPCS

If R=0

Then

Output(4,4,"*")

End

:CONTROLS

getKey->K

If K=26

Then

X+1->X

ClrHome

Goto W

End

If K=24

Then

X-1->X

ClrHome

Goto W

End

If K=25

Then

Y-1->Y

ClrHome

Goto W

End

If K=34

Then

Y+1->Y

ClrHome

Goto W

End

If K=23

Then

Goto N

End

:END

End

Lbl N

:NPCS

If X=4 and Y=4

Then

Output(2,1, "TO WIN KILL THE E")

End

Goto S

Lbl W

If X = 17

Then

1->X

R+1->R

End

If X=0

Then

16->X

R-1->R

End

If Y=1

Then

8->Y

R-100->R

End

Goto S

Lbl P

Goto S