_________________________________________________________________________

           Title: 5X5-BOARD
          Author: Mats Forson
      Written by: Mats Forson

     Description: Draws a 5 by 5 grid and allows placement of markers.
                  Can be used for 3,4 and 5 in a row

         Remarks: Version 1.0 for fx7700-GE. I first tried to include
                  testing so you couldn+t place a marker on another. But
                  then the game took over 1500 bytes of memory, i tried it
                  another way but then it needs 26 program slots!

            Size: 895 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)


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

 Program:

'5x5 BOARD'
Range 1,95,0,1,63,0
Plot 1,60
Plot 60,60
Line
Plot 60,1
Line
Plot 1,1
Line
Plot 1,60
Line                 ;Draws the edge
12->A
Lbl 1
Plot A,1
Plot A,60
Line
Plot 1,A
Plot 60,A
Line
A>=60=>Goto 2        ;Greater or equal
A+12->A
Goto 1
Lbl 2
Line_                ;Disp!
0->A~Z
1->B
Lbl 3
B=1=>" PLAYER 1"
B=2=>" PLAYER 2"
"CHOOSE AREA:"
"(01-02-03-04-05)"
"(06-07-08-09-10)"
"(11-12-13-14-15)"
"(16-17-18-19-20)"
"(21-22-23-24-25)"
?->A
A=1=>1->S                ;Sets where to place the marker
A=1=>5->T
A=2=>2->S
A=2=>5->T
A=3=>3->S
A=3=>5->T
A=4=>4->S
A=4=>5->T
A=5=>5->S
A=5=>5->T
A=6=>1->S
A=6=>4->T
A=7=>2->S
A=7=>4->T
A=8=>3->S
A=8=>4->T
A=9=>4->S
A=9=>4->T
A=10=>5->S
A=10=>4->T
A=11=>1->S
A=11=>3->T
A=12=>2->S
A=12=>3->T
A=13=>3->S
A=13=>3->T
A=14=>4->S
A=14=>3->T
A=15=>5->S
A=15=>3->T
A=16=>1->S
A=16=>2->T
A=17=>2->S
A=17=>2->T
A=18=>3->S
A=18=>2->T
A=19=>4->S
A=19=>2->T
A=20=>5->S
A=20=>2->T
A=21=>1->S
A=21=>1->T
A=22=>2->S
A=22=>1->T
A=23=>3->S
A=23=>1->T
A=24=>4->S
A=24=>1->T
A=25=>5->S
A=25=>1->T
A<1=>Goto 3
A>25=>Goto 3
B=2=>Goto 6
Plot S*12,T*12           ;Draws the X
Plot S*12-11,T*12-11
Line
Plot S*12,T*12-11
Plot S*12-11,T*12
Line_                    ;Disp!
2->B
Goto 3
Lbl 6
Plot S*12-8,T*12-8       ;Draws the O
Plot S*12-8,T*12-2
Line
Plot S*12-2,T*12-2
Line
Plot S*12-2,T*12-8
Line
Plot S*12-8,T*12-8
Line_                    ;Disp!
1->B
Goto 3

______________________________________________________________________

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

E-Mail :  5tsforsm@mail.ava.taby.se
   WWW :  http://www.ava.taby.se/elev/5tsforsm/homepage/home.htm
_________________________________________________________________________