Catch 22 for TI-83/+/s
By Kerm Martian

Please e-mail me with questions, comments, and suggestions at Kerm_Martian@yahoo.com.
Check out my other programs at my TICalc.org page,<http://www.ticalc.org/archives/files/authors/60/6077.html>.  Thanks!

Notes: "-->" is the [sto>] key.  Items in [brackets] are tips for you (don't type them in).

<--Code Starts Here-->
Lbl AZ
Menu("CATCH22 v1.0","PLAY",AA,"HELP",H,"QUIT",QQ
Lbl QQ
AxesOn:ClrHome
Disp "CATCH 22 v1.0","BY KERM MARTIAN
Return
Lbl AA
0-->S
45-->P
AxesOff:ClrDraw
Lbl A
randInt(4,88)-->A
For(X,3,62
Pxl-On(X,A
Pxl-Off(X-3,A
getKey-->K
If K=0
Goto A1
If K=21
Goto QQ
If K=24 and P>2
P-1-->P
If K=26 and P<90
P+1-->P
Text(56,P," u		[space],[2nd + 7 key]
Lbl A1
End
If P+1=A or P+2=A or P+3=A
S+1-->S
Text(0,0,"SCORE:   ",S
If S=22
Then
Text(22,22,"C a t c H   2 2 ! !
Pause
Goto AZ
End
Pxl-Off(X-1,A
Pxl-Off(X-2,A
Pxl-Off(X-3,A
Goto A
<--Code Ends Here-->

Kerm Martian
Kerm_Martian@yahoo.com