Produced by

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)

prgmTICTACTO====================================

Lbl AA
{3,3}üdim([A]
Fill(0,[A]
[A]ü[B]
[B]ü[C]
ClrDraw
AxesOff
Text(20,27,"RAPöUREDAN
Text(27,39,"1997
Pause
Lbl M
ClrHome
Menu("TICTAC LINK GAME","PLAY",P,"INSTRUCTIONS",I,"EXIT",X
Lbl X
ClrHome
Disp "THANKS 4 PLAYING
Stop
Lbl I
ClrHome
Disp "BOTH PLAYERS","START THE GAME","CHOOSE WHO IS","PLAYER 1","AND WHO IS 2
Pause
ClrHome
Disp "TO FILL A BOX,","PRESS THE","CORRESPONDING","NUMBER
Pause
ClrHome
Disp "","","PLAYER 1= X","PLAYER 2= O","","PRESS 2ND TO END","THE GAME
Pause
ClrHome
Disp "THIS GAME WAS","CREATED BY","DANIEL SIMS","12-15-97
Pause
ClrHome
Goto M
Lbl P
ClrHome
Lbl Á
Disp "ARE YOU PLAYER","1 OR 2
Input Á
If Á<1 or Á>2
Goto Á
ClrHome
Disp "LINK THEN PRESS","ENTER.
Pause
ClrHome
If Á=1:Then
Disp "PLAYER 1, WHATS","YOUR NAME
Input Str1
End
If Á=2:Then
Disp "PLAYER 2, WHATS","YOUR NAME
Input Str2
End
ClrHome
Disp "PRESS ENTER WHEN","THE OTHER PLAYER","IS READY...
Pause
If Á=1:Get(Str2
If Á=2:Get(Str1
ClrHome
Disp "TIC TAC TOE...","",""
Disp Str1
Disp " VS
Disp Str2
Pause
ClrHome
If Á=2:Goto D
Lbl W
Output(2,2,"I
Output(2,4,"I
Output(3,1,"-----
Output(4,2,"I
Output(4,4,"I
Output(5,1,"-----
Output(6,2,"I
Output(6,4,"I

Output(2,11,"7I8I9
Output(3,11,"-----
Output(4,11,"4I5I6
Output(5,11,"-----
Output(6,11,"1I2I3

If Á=1:Then
Lbl A
getKeyüI
If I=92:Goto 1
If I=93:Goto 2
If I=94:Goto 3
If I=82:Goto 4
If I=83:Goto 5
If I=84:Goto 6
If I=72:Goto 7
If I=73:Goto 8
If I=74:Goto 9
If I=21:Goto 0
Goto A
Lbl 0
ClrHome
Disp "GAME-------ENDED
Pause
Goto AA

Lbl 1
If [A](3,1)=2:Goto A
1ü[A](3,1)
Goto B
Lbl 2
If [A](3,2)=2:Goto A
1ü[A](3,2)
Goto B
Lbl 3
If [A](3,3)=2:Goto A
1ü[A](3,3)
Goto B
Lbl 4
If [A](2,1)=2:Goto A
1ü[A](2,1
Goto B
Lbl 5
If [A](2,2)=2:Goto A
1ü[A](2,2
Goto B
Lbl 6
If [A](2,3)=2:Goto A
1ü[A](2,3
Goto B
Lbl 7
If [A](1,1)=2:Goto A
1ü[A](1,1
Goto B
Lbl 8
If [A](1,2)=2:Goto A
1ü[A](1,2
Goto B
Lbl 9
If [A](1,3)=2:Goto A
1ü[A](1,3
Goto B
Lbl B
ClrHome
1üR
Disp "PRESS ENTER WHEN
Disp Str2
Disp "FINISHES HIS","TURN...
Pause
Get(I
If I=21:Goto M
Lbl M
0üR
Get([A]

Goto E
End

If Á=2:Then
Lbl C
getKeyüI
If I=92:Goto Y
If I=93:Goto Z
If I=94:Goto X
If I=82:Goto T
If I=83:Goto U
If I=84:Goto V
If I=72:Goto O
If I=73:Goto P
If I=74:Goto Q
If I=21:Goto 0
Goto C
Lbl Y
If [A](3,1)=1:Goto C
2ü[A](3,1
Goto D
Lbl Z
If [A](3,2)=1:Goto C
2ü[A](3,2
Goto D
Lbl X
If [A](3,3)=1:Goto C
2ü[A](3,3
Goto D
Lbl T
If [A](2,1)=1:Goto C
2ü[A](2,1
Goto D
Lbl U
If [A](2,2)=1:Goto C
2ü[A](2,2
Goto D
Lbl V
If [A](2,3)=1:Goto C
2ü[A](2,3
Goto D
Lbl O
If [A](1,1)=1:Goto C
2ü[A](1,1
Goto D
Lbl P
If [A](1,2)=1:Goto C
2ü[A](1,2
Goto D
Lbl Q
If [A](1,3)=1:Goto C
2ü[A](1,3
Goto D
Lbl D
ClrHome
1üR
Disp "PRESS ENTER WHEN
Disp Str1
Disp "FINISHES HIS","TURN...
Pause
Get(I
If I=21:Goto 0
Lbl N
0üR
Get([A]
Goto E
End

Lbl E
ClrHome
If [A](3,1)=1
Output(6,1,"X
If [A](3,1)=2
Output(6,1,"O
If [A](3,2)=1
Output(6,3,"X
If [A](3,2)=2
Output(6,3,"O
If [A](3,3)=1
Output(6,5,"X
If [A](3,3)=2
Output(6,5,"O
If [A](2,1)=1
Output(4,1,"X
If [A](2,1)=2
Output(4,1,"O
If [A](2,2)=1
Output(4,3,"X
If [A](2,2)=2
Output(4,3,"O
If [A](2,3)=1
Output(4,5,"X
If [A](2,3)=2
Output(4,5,"O
If [A](1,1)=1
Output(2,1,"X
If [A](1,1)=2
Output(2,1,"O
If [A](1,2)=1
Output(2,3,"X
If [A](1,2)=2
Output(2,3,"O
If [A](1,3)=1
Output(2,5,"X
If [A](1,3)=2
Output(2,5,"O

Goto W