+-------------------------------------------------------+
| Othello by Lionel Baboud                              |
| casio site: http://perso.wanadoo.fr/duobab/index.htm  |
| e-mail: roland.baboud@wanadoo.fr                      |
+-------------------------------------------------------+

2ÞE~F
{™1,™1,™1,0,1,1,1,0}ÞList 2
{™1,0,1,1,1,0,™1,™1}ÞList 3
{0,0,0,0,0,0,0,0}ÞList 1
Identity 10ÞMat A
Fill(0,Mat A
™1ÞMat A[5,5]
™1ÞMat A[6,6]
1ÞMat A[5,6]
1ÞMat A[6,5]
AxesOff
ViewWindow ™8.8,9.2,1,0.2,9,1
Text 3,20,"OTHELLO"
For 0ÞA To 0.95 Step 0.14
F-Line ™6,2.3™A,™2.4,2.3™A
F-Line ™7.4,1.2™A,™0.8,1.2™A
Next
Orange Text 49,22,"BABOUD"
Orange Text 57,12,"PRODUCTIONS"
For 1ÞA To 9
F-Line 1,A,9,A
F-Line A,1,A,9
Next
For 4ÞA To 5
For 4ÞB To 5
For B‰0.3ÞZ To B‰0.8 Step 0.15
If Mat A[B‰1,A‰1]=™1
Then Green F-Line A‰0.3,Z,A‰0.8,Z
Else Orange F-Line A‰0.3,Z,A‰0.8,Z
IfEnd
Next
Next:Next
1ÞG~N
F-Line N‰0.5,0.3,N‰0.5,0.8
F-Line 0.3,M‰0.5,0.8,M‰0.5
1ÞP
Green Text 20,15,"PLAYER 1:"
Orange Text 30,15,"PLAYER 2:"
0ÞL
Lbl 1
Text 20,8," "
Text 30,8," "
Text 20,55,E
Text 30,55,F
Text 25™5P,8,"Þ"
Do
If Gá(58™7M)
Then Text G,65," "
F-Line 0.3,M‰0.5,0.8,M‰0.5
Else Text 58,H," "
F-Line N‰0.5,0.3,N‰0.5,0.8
IfEnd
Do:GetkeyÞK
LpWhile K=0
58™7MÞG:7N‰65ÞH
K=27ãN<8ãN‰1ÞN
K=28ãM<8ãM‰1ÞM
K=37ãM>1ãM™1ÞM
K=38ãN>1ãN™1ÞN
LpWhile Ká31 And Ká79
If K=31 And Mat A[M‰1,N‰1]=0
Then 0ÞO
Text 57,3,"#"
F-Line 2,2,2,3
For 1ÞA To 8
0ÞZ
List 2[A]ÞU
List 3[A]ÞV
While Mat A[M‰1‰U(Z‰1),N‰1‰V(Z‰1)]=P
Z‰1ÞZ
WhileEnd
Mat A[M‰1‰U(Z‰1),N‰1‰V(Z‰1)]á‡Pã0ÞZ
ZÞList 1[A]
Zá0ã1ÞO
Next
If O=1
Then ™PÞP
0ÞL
0ÞD
For M‰0.3ÞA To M‰0.8 Step 0.15
P=™1ãGreen F-Line N‰0.3,A,N‰0.8,A
P=1ãOrange F-Line N‰0.3,A,N‰0.8,A
Next
PÞMat A[M‰1,N‰1]
For 1ÞT To 8
List 1[T]ÞZ
List 2[T]ÞA
List 3[T]ÞB
If Zá0
Then MÞU:NÞV
For 1ÞW To Z
D‰1ÞD
U‰AÞU:V‰BÞV
PÞMat A[U‰1,V‰1]
Orange Text 58™7U,7V‰65," "
For U‰0.3ÞC To U‰0.8 Step 0.15
P=™1ãGreen F-Line V‰0.3,C,V‰0.8,C
P=1ãOrange F-Line V‰0.3,C,V‰0.8,C
Next
Next
IfEnd
Next
If P=™1
Then D‰E‰1ÞE:F™DÞF
Else D‰F‰1ÞF:E™DÞE
IfEnd
IfEnd
Text 57,3," "
IfEnd
If K=79
Then ™PÞP
L‰1ÞL
IfEnd
Lá2 And (E‰F)á64ãGoto 1
ClrText
E>Fã"THE PLAYER 1 WINS«"
F>Eã"THE PLAYER 2 MINS«"
E=Fã"DRAW GAME«"