_________________________________________________________________________

           Title: Tic-Tac-Toe
          Author: Mats Forsén
      Written by: Mats Forsén

     Description: The classic game of Tic-Tac-Toe.

         Remarks: Version 1.0 for fx7700-GE. Can be expanded to not 
                  letting players place over each other. But that 
                  seems to me to be a waste of memory.

            Size: 558 Bytes
_________________________________________________________________________

Command translation:

->              Single arrow (located on the keyboard)
=>              Double arrow (press: [shift] [prgm] [f1] [f1])
_               Display, -Disp- (press: [shift] [prgm] [f4])
<=              Less or equal (A <= B)
>=              Greater or equal (A >= B)
<>              Not equal (A <> B)
^               Raised to the power of
/               Division or fraction (explain which with a comment)
2rt()           Root (2rt(7) is the square root of 7)
_________________________________________________________________________

Refer to the command standard used in R20_CASIO and set by Magnus
Werner on SilverSTone BBS (2:201/345@fidonet.org).

Everything after a ; is a comment and should not be in the code.
_________________________________________________________________________

Program: 

'TIC-TAC-TOE'
Range 1,96,96,1,64,64
Plot 2,64                 ; Drawing Grid
Plot 64,64
Line
Plot 64,2
Line
Plot 2,2
Line
Plot 2,64
Line
Plot 22,2
Plot 22,64
Line
Plot 43,2
Plot 43,64
Line
Plot 2,22
Plot 64,22
Line
Plot 2,43
Plot 64,43
Line
1->B
0->S
0->T
Lbl 1
" TIC-TAC-TOE"
B=1=>" PLAYER 1"
B=2=>" PLAYER 2"
" CHOOSE AREA"
" "
" 7 8 9"
" 4 5 6"
" 1 2 3"
?->A
A=1=>1->S                ;Placement of the marker
A=1=>1->T
A=2=>2->S
A=2=>1->T
A=3=>3->S
A=3=>1->T
A=4=>1->S
A=4=>2->T
A=5=>2->S
A=5=>2->T
A=6=>3->S
A=6=>2->T
A=7=>1->S
A=7=>3->T
A=8=>2->S
A=8=>3->T
A=9=>3->S
A=9=>3->T
B=2=>Goto 6               ; Drawing the markers
Plot S*21,T*21
Plot S*21-19,T*21-19
Line
Plot S*21,T*21-19
Plot S*21-19,T*21-19
Line_
2->B
Goto 1
Lbl 6
Plot S*21-16,T*21-16
Plot S*21-16,T*21-2
Line
Plot S*21-2,T*21-2
Line
Plot S*21-2,T*21-16
Line
Plot S*21-16,T*21-16
Line_
1->B
Goto 1

_________________________________________________________________________

If you need help or information concerning this file, please contact 
Mats Forsén at one of the following adresses.

E-Mail :  t95forsm@ava.taby.se
   WWW :  http://elev.ava.taby.se/~t95forsm/programming/
_________________________________________________________________________