Produced by: Quick Edge

Because the TI uses symbols that wordprossesors dont use,
I made a key for all those strange symbols you see..

Key:
ü=STO ->
Á=THETA (the O with a line through it)
ö=little T (under MATRX)
ù=greater than or equal to
÷=less than or equal to
ø=not equal to
ú=negative sign
á=mini "L" (under LIST)


prgmTHUMBWAR starts here=========================
:
AxesOff
ClrDraw
RecallPic 1
For(A,0,20
Text(A,5,"THUMB WAR
End
For(A,90,44,ú2
Text(20,A,"BY DANIEL SIMS
End
Text(50,28,"PRESS ENTER
Pause 
Menu("CHOOSE:::::::::","PLAY",1,"INSTRUCTIONS",2,"INFO",3,"EXIT",Z
Lbl 3
ClrHome
Disp "CREATED BY:","DANIEL SIMS","5-12-98","","RAPTUREDAN AT","AOL.COM
Pause 
ClrHome
Disp "THIS GAME USES","PICS 1-5","SO IF YOU SEND","THIS GAME, SEND","THE PICS TOO.
Pause 
Lbl 2
ClrHome
Disp "PLAYER1::","2nd=MOVE","ALPHA=DEFENSE","","PLAYER2::","CLEAR=MOVE","^=DEFENSE
Pause 
ClrHome
Disp "IF YOUR PINNED,","PRESS THE","DEFENSE BUTTON","RAPIDLY.","IF THE TIMER","REACHES 10, YOU","LOOSE.
Pause 
Lbl 1
ClrHome
ClrDraw
RecallPic 1
0üA
0üB
10üJ
0üT
0üI
10üH
Lbl A
getKeyüK
If Kø0:ClrDraw
If K=21 and A=1:2üA
If K=21 and A=0:1üA
If A=2:0üA
If K=21 and B=1:Goto P1
If K=45 and B=0:2üB
If K=45 and B=1:0üB
If K=45 and A=1:Goto P2
If B=2:1üB
If A=0 and B=0
RecallPic 1
If A=1 and B=0:Then
RecallPic 2
End
If B=1 and A=0:Then
RecallPic 3
End
Goto A

Lbl P1
RecallPic 4
0üT
0üI
J+2üJ
Repeat I=J
T+1üT
Text(1,90,T
If T=100:Goto W1
getKeyüK
If K=55:I+1üI
End
0üA
0üB
Goto A

Lbl P2
RecallPic 5
0üT
0üI
H+2üH
Repeat I=H
T+1üT
Text(1,90,T
If T=100:Goto W2
getKeyüK
If K=31:I+1üI
End
0üA
0üB
Goto A

Lbl W1
Disp "PLAYER 1 WINS
Stop
Lbl W2
Disp "PLAYER 2 WINS
Stop
Lbl Z
Disp "GOODBYE