%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2035
File Name:J-pui4\@5F2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Cree par Xavier IZARD
xizard@enib.fr"\Disp\Lbl D
0\->A~Z
\Identity 7\->\Mat A
\Fill(0,\Mat A)
\If \Mat Y[1,1]=0
\Then 49\->E:\GotoU
\Else "VOULEZ VOUS REPRENDRELA PARTIE PRECEDENTE"
"0\->NON"
"1\->OUI"?\->J
\If J=0
\Then 49\->E
\Else \Mat Z\->\Mat A
\IfEnd
\Lbl U
\BG-None
\CoordOff
\GridOff
\AxesOff
\LabelOff
\ViewWindow 0,126,1,0,62,1
\For 0\->Y \To 63 \Step 9
\Vertical Y
\F-Line 0,Y,62,Y
\Next 
\For 0\->O \To 54 \Step 9
\Text 3,4+O,1+O\ab/c9
\Next 
\Text 58,113,"SVG"
\F-Line 107,7,126,7
\F-Line 107,0,107,7
4.5\->M~W
0\->N
0\->S~T
J=1\=>\GotoW
\Lbl 2
A=\(-)1\=>0\->A
1-A\->A
A=0\=>\(-)1\->A
\Lbl 0
9\->D
A=1\=>\Text 12,65,"    JOUEUR\(-)1   "
A=\(-)1\=>\Text 12,65,"    JOUEUR\(-)2   "
\Getkey=29\=>\GotoX
\If \Getkey=72
\Then U>58.5\=>\GotoH
1+((U-4.5)\ab/c9)\->H
1\->I
U\->G
4.5\->L
U+9\->U
\Goto1
\IfEnd
\If \Getkey=62
\Then V>58.5\=>\GotoH
1+((V-4.5)\ab/c9)\->H
2\->I
V\->G
13.5\->L
V+9\->V
\Goto1
\IfEnd
\If \Getkey=52
\Then W>58.5\=>\GotoH
1+((W-4.5)\ab/c9)\->H
3\->I
W\->G
22.5\->L
W+9\->W
\Goto1
\IfEnd
\If \Getkey=73
\Then P>58.5\=>\GotoH
1+((P-4.5)\ab/c9)\->H
4\->I
P\->G
31.5\->L
P+9\->P
\Goto1
\IfEnd
\If \Getkey=63
\Then Q>58.5\=>\GotoH
1+((Q-4.5)\ab/c9)\->H
5\->I
Q\->G
40.5\->L
Q+9\->Q
\Goto1
\IfEnd
\If \Getkey=53
\Then R>58.5\=>\GotoH
1+((R-4.5)\ab/c9)\->H
6\->I
R\->G
49.5\->L
R+9\->R
\Goto1
\IfEnd
\If \Getkey=74
\Then M>58.5\=>\GotoH
1+((M-4.5)\ab/c9\->H
7\->I
M\->G
58.5\->L
M+9\->M
\Goto1
\IfEnd
\Goto0
\Lbl 1
\If A=1
\Then \Orange \F-Line L-3.5,G+3.5,L+3.5,G-3.5
\Orange \F-Line L+3.5,G+3.5,L-3.5,G-3.5
\Else \Green \F-Line L-3.5,G+3.5,L+3.5,G-3.5
\Green \F-Line L+3.5,G+3.5,L-3.5,G-3.5
\IfEnd
S=\Pi\=>\GotoV
A\->\Mat A[1+((G-4.5)\ab/c9),1+((L-4.5)\ab/c9]
\For 0\->Z \To 1
\Text 12,65,"JE REFLECHIS..."
\Next 
\Dsz E:\GotoY:\GotoZ
\Lbl Y
E>42\=>\Goto2
H\->B
I-3\->C
C\<=0\=>1\->C
I\->K
I+3>7\=>4\->K
\For C\->C \To K
\Mat A[B,C]+\Mat A[B,C+1]+\Mat A[B,C+2]+\Mat A[B,C+3]
\Ans=\(-)4\=>\Goto3
\Ans=+4\=>\Goto4
\Next 
H-3\->B
B\<=0\=>\GotoS
\Mat A[B,I]+\Mat A[B+1,I]+\Mat A[B+2,I]+\Mat A[B+3,I]
\Ans=\(-)4\=>\Goto3
\Ans=4\=>\Goto4
\Lbl S
\(-)3\->F
F+H<1\=>\(-)(H-1)\->F
F+I<1\=>\(-)(I-1)\->F
0\->K
H+3>7\=>\(-)(H-4)\->K
K+I+3>7\=>\(-)(I-4)\->K
F>K\=>\GotoT
\For F\->F \To K
\Mat A[F+H,F+I]+\Mat A[F+H+1,F+I+1]+\Mat A[F+H+2,F+I+2]+\Mat A[F+H+3,F+I+3]
\Ans=\(-)4\=>\Goto3
\Ans=4\=>\Goto4
\Next 
\Lbl T
\(-)3\->F
H+F<1\=>\(-)(H-1)\->F
I-F>7\=>\(-)(7-I)\->F
0\->K
H+3>7\=>\(-)(H-4)\->K
I-K-3<1\=>\(-)(4-I)\->K
F>K\=>\Goto2
\For F\->F \To K
\Mat A[H+F,I-F]+\Mat A[H+F+1,I-F-1]+\Mat A[H+F+2,I-F-2]+\Mat A[H+F+3,I-F-3]
\Ans=4\=>\Goto4
\Ans=\(-)4\=>\Goto3
\Next 
\Goto2
\Lbl H
\Text 12,65,"COLONE COMPLETE"
\Dsz D:\GotoH:\Goto0
\Lbl 3
S=1\=>\Fill(0,\Mat Y)
\Green \Text 30,69,"LE JOUEUR\(-)2 A"
\Green \Text 39,86,"GAGNE"\Disp\GotoD
\Lbl 4
S=1\=>\Fill(0,\Mat Y)
\Orange \Text 30,69,"LE JOUEUR\(-)1 A"
\Orange \Text 39,86,"GAGNE"\Disp\GotoD
\Lbl Z
S=1\=>\Fill(0,\Mat Y)
\Text 30,77,"MATCH NUL"\Disp\GotoD
\Lbl W
\Pi\->S
\For 1\->X \To 7
\For 1\->Y \To 7
\Mat A[Y,X]
\Ans=0\=>\GotoV
\Ans\->A
(Y-1)*9+4.5\->G
(X-1)*9+4.5\->L
G+9\->G
X=1\=>G\->U
X=2\=>G\->V
X=3\=>G\->W
X=4\=>G\->P
X=5\=>G\->Q
X=6\=>G\->R
X=7\=>G\->M
G-9\->G
\Goto1
\Lbl V
\Next 
\Next 
\Mat Y[1,1]\->A
1\->S
\Goto0
\Lbl X
\Mat A\->\Mat Z
A\->\Mat Y[1,1]
\Stop
%End