%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1346
File Name:Othello
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
\Locate 2,1,"www.casioexpert.com"
\Locate 7,3,"prese\Cntte"
\Locate 8,5,"othello"
\Locate 6,7,"[Press EXE]"
\Do:\LpWhile \Getkey\<>31
\ClrText
"Nouveau jeu"
"1\->Oui"
"2\->Non"
?\->Q
Q=2\=>0\->Q
\Dsz Q
\Goto1
0\->A~Z
\ViewWindow 1,127,0,1,63,0
\Seq(0,X,1,64,1)\->\List 3
\Seq(0,X,1,2,1)\->\List 4
28\->L
37\->M
1\->J
2\->\List 3[28]
1\->\List 3[29]
1\->\List 3[36]
2\->\List 3[37]
2\->S~T
\Lbl 1
\ClrText
\Cls
12\->A~B
\Lbl 0
\F-Line A,12,A,59
\F-Line 12,B,60,B
A+6\->A
B+6\->B
A\<=60\=>\Goto0
L-1\->Z
\Lbl 3
\Isz Z
Z>M\=>\Goto2
\List 3[Z]=0\=>\Goto3
54-6\Int ((64-Z)/8\->B
6Z-8B+102\->A
\Plot A+3,B+1
\Plot A+2,B+2
\Plot A+4,B+2
\List 3[Z]=2\=>\Line
\Plot A+1,B+3
\Plot A+5,B+3
\List 3[Z]=2\=>\Line
\Plot A+2,B+4
\Plot A+4,B+4
\List 3[Z]=2\=>\Line
\Plot A+3,B+5
\Goto3
\Lbl 2
\Text 10,70,"Pts noirs:"
2+\List 4[2]\->T
\Text 10,115,T
\Text 20,70,"Pts blancs:"
2+\List 4[1]\->S
\Text 20,115,S
S+T=50\=>\Goto9
\If S=0\ Or T=0
\Then \Goto9
\IfEnd
1\->K
J>2\=>1\->J
J=2\=>\(-)1\->K
0\->I
\Text 40,70,"Joueur:"
J=1\=>\Text 40,100,"blanc"
J=2\=>\Text 40,100,"noir"
\Text 50,75,"        "
\Plot 36,36\DispX-3\->X
Y-3\->Y
X\->A
Y\->B
A=65\=>B=12\=>S+T<50\=>\Goto2
A=65\=>B=12\=>\Isz J
A=65\=>B=12\=>\Goto2
(A+8B-102)/6\->V~W
\Frac V=0\=>\List 3[Z]=0\=>\Goto4
\Text 40,70,"Impossible   "
\Text 50,75,"rejouez"
\Goto2
\Lbl 4
W<L\=>W\->L
W>M\=>W\->M
1+\List 4[J]\->\List 4[J]
J\->\List 3[W]
1\->E
\Lbl 5
V+E\->V
V<1\=>\Goto6
V>64\=>\Goto6
54-6\Int ((64-V)/8\->D
6V-8D+102\->C
\Abs (A-C)>6\=>\Goto6
\Abs (B-D)>6\=>\Goto6
C\->A
D\->B
\List 3[V]=0\=>\Goto6
\List 3[V]=J\=>\List 3[V-E]\<>J+K\=>\Goto6
\List 3[V]=J+K\=>\Goto5
\Lbl 7
1\->I
V-E\->V
V=W\=>\Goto6
J\->\List 3[V]
\List 4[J]+1\->\List 4[J]
\List 4[J+K]-1\->\List 4[J+K]
\Goto7
\Lbl 6
W\->V
X\->A
Y\->B
\(-)E\->E
E<0\=>\Goto5
E=1\=>6\->E
\Isz E
E\<=9\=>\Goto5
I=1\=>\Isz J
I=1\=>\Goto1
\Text 40,70,"Impossible   "
\Text 50,75,"rejouez"
\List 4[J]-1\->\List 4[J]
0\->\List 3[W]
\Goto2
\Lbl 9
S\<>T\=>\Text 40,68,"Winner:"
S>T\=>\Text 40,100," blanc"
S<T\=>\Text 40,100," noir"
S=T\=>\Text 40,70,"  egalite    "
%End