This is Tic-Tac-Toe 81 v1.1 By Chad Kuboviak.  It is fully functional.  However, it uses all three of the 81's matricies.  But, it is still pretty neat.  I am trying to shorten it up just a bit.  I have designed a 1 and 2 player version, but I have not gotten the chance tto put it on the site.  Please note the note at the end.  You can distribute the program as much as you like, as long as the about screen stays with it.   stands for theta.   stands for the Sto> key.  Have fun!

Prgm1:GO.EXE
Norm
Rad
Function
Grid Off
[C](5,1)Xmin
[C](5,2)Xmax
0Xscl
[C](5,3)Ymin
[C](5,4)Ymax
0Yscl
1Xres
Lbl 1
ClrHome
Disp "    Welcome "
Disp "      To"
Disp " Tic-Tac-Toe 81"
Pause
Lbl 5
0[A]
0[B]
ClrHome
Disp "Main Menu-"
Disp "1-PLAY GAME"
Disp "2-INSTRUCTIONS"
Disp "3-ABOUT"
Disp "4-END"
Input A
If A=4
End
If A=1
Goto 2
If A=3
Goto 3
If A=2
Goto 4
Goto 5
Lbl 4
ClrHome
Disp "TO PLAY, ENTER  THE NUMBER OF   THE SQUARE YOU  WANT TO PLAY IN."
Pause
ClrHome
Disp "THE SQUARES ARE NUMBERED-"
Disp "123"
Disp "456"
Disp "789"
Pause
Goto 5
Lbl 3
ClrHome
Disp "TIC-TAC-TOE 81"
Disp "    V1.1"
Disp "BY-CHAD KUBOVIAK"
Disp "    11/14/97"
Pause
Goto 5
Lbl 2
ClrDraw
Line([C](2,3),[C](2,4),[C](2,5),[C](2,6)
Line([C](3,1),[C](3,2),[C](3,3),[C](3,4)
Line([C](3,5),[C](3,6),[C](4,1),[C](4,2)
Line([C](4,3),[C](4,4),[C](4,5),[C](4,6)
Prgm2
Goto 5



Prgm2:TURN
DispGraph
Pause
1X
Lbl A
0[B](4,1
[C](1,1A
[C](1,2B
[C](1,3C
[C](1,4D
CE
BF
AG
DH
[C](1,5I
[C](1,6J
IK
[C](2,1L
IM
LN
[C](2,2O
LP
OQ
NR
OS
JT
OU
JV
IW
JZ
ClrHome
If X=1
Disp "PLAYER 1"
If X=1
Goto C
Disp "PLAYER 2"
Lbl C
DispHome
Disp "ENTER SQUARE"
Input 
If =1
Prgm4
If =2
Prgm5
If =3
Prgm6
If =4
Prgm7
If =5
Prgm8
If =6
Prgm9
If =7
Prgm0
If =8
PrgmA
If =9
PrgmB
Lbl Z
If [B](4,1=1
Goto A
0[B](4,1
A+YA
B+B
C+YC
D+D
E+YE
F+F
G+YG
H+H
I+YI
J+J
K+YK
L+L
M+YM
N+N
O+YO
P+P
Q+YQ
R+R
S+YS
T+T
U+YU
V+V
W+YW
Z+Z
If X=2
Goto Y
Line(A,B,C,D
Line(E,F,G,H
Pause
2X
Prgm3
If =5
End
Goto A
Lbl Y
Line(I,J,K,L
Line(M,N,O,P
Line(Q,R,S,T
Line(U,V,W,Z
Pause
1X
Prgm3
If =5
End
Goto A



Prgm3:WIN
0
[A](1,1A
[A](1,2B
[A](1,3C
[A](2,1D
[A](2,2E
[A](2,3F
[A](3,1G
[A](3,2H
[A](3,3I
If A+D+G=9
Goto 1
If A+D+G=9
Goto 2
If B+E+H=9
Goto 1
If B+E+H=9
Goto 2
If C+F+I=9
Goto 1
If C+F+I=9
Goto 2
If A+B+C=9
Goto 1
If A+B+C=9
Goto 2
If D+E+F=9
Goto 1
If D+E+F=9
Goto 2
If G+H+I=9
Goto 1
If G+H+I=9
Goto 2
If A+E+I=9
Goto 1
If A+E+I=9
Goto 2
If C+E+G=9
Goto 1
If C+E+G=9
Goto 2
If [B](1,1)+[B](1,2)+[B](1,3)+[B](2,1)+[B](2,2)+[B](2,3)+[B](3,1)+[B](3,2)+[B](3,3)=9
Goto 3
End
Lbl 1
ClrHome
Disp "PLAYER 1 WINS!"
0[B]
0[A]
Pause
5
End
Lbl 2
ClrHome
Disp "PLAYER 2 WINS!"
0[B]
0[A]
5
Pause
End
Lbl 3
ClrHome
Disp "CAT!"
Pause
5



Prgm4:ONE
If [B](1,1)=1
Goto 1
1[B](1,1
3[A](1,1
If X=2
3[A](1,1
0Y
0
End
Lbl 1
1[B](4,1



Prgm5:TWO
If [B](1,2)=1
Goto 1
1[B](1,2
.42Y
0
3[A](1,2
If X=2
3[A](1,2
End
Lbl 1
1[B](4,1



Prgm6:THREE
If [B](1,3)=1
Goto 1
1[B](1,3
.86Y
0
3[A](1,3
If X=2
3[A](1,3
End
Lbl 1
1[B](4,1


Prgm7:FOUR
If [B](2,1)=1
Goto 1
1[B](2,1
0Y
.43
3[A](2,1
If X=2
3[A](2,1
End
Lbl 1
1[B](4,1



Prgm8:FIVE
If [B](2,2)=1
Goto 1
1[B](2,2
.42Y
.43
3[A](2,12
If X=2
3[A](2,2
End
Lbl 1
1[B](4,1



Prgm9:SIX
If [B](2,3)=1
Goto 1
1[B](2,3
.86Y
.43
3[A](2,3
If X=2
3[A](2,3
End
Lbl 1
1[B](4,1


Prgm0:SEVEN
If [B](3,1)=1
Goto 1
1[B](3,1
0Y
.87
3[A](3,1
If X=2
3[A](3,1
End
Lbl 1
1[B](4,1


PrgmA:EIGHT
If [B](3,2)=1
Goto 1
1[B](3,2
.42Y
.87
3[A](3,2
If X=2
3[A](3,2
End
Lbl 1
1[B](4,1



Prgm=B:NINE
If [B](3,3)=1
Goto 1
1[B](3,3
.86Y
.87
3[A](3,3
If X=2
3[A](3,3
End
Lbl 1
1[B](4,1

Note:This program uses all of the TI-81's matices.  The following numbers must be put into matrix [C] for the program to run:

1,1:1.5460526
1,2:2.9861111
1,3:1.2039474
1,4:3.3034524
1,5:1.5065789
1,6:3.0059524
2,1:3.3035714
2,2:1.2565789
2,3:1.5732684
2,4:3.3630952
2,5:1.5723684
2,6:2.1130952
3,1:2.0197368
3,2:2.1130952
3,3:2.0197368
3,4:3.3630952
3,5:2.4407895
3,6:2.9465286
4,1:1.1907895
4,2:2.9465286
4,3:1.1907895
4,4:2.5099206
4,5:2.4407895
4,6:2.5099206
5,1:1.190789474
5,2:2.440789474
5,3:2.113095238
5,4:3.363095238
