%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1228
File Name:A
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->T
\Mat G\->\Mat A
0\->Z
1\->F
\Lbl Z
T=1\=>M\->W
T=2\=>N\->W
T=3\=>O\->W
T=4\=>P\->W
T=5\=>Q\->W
T=6\=>R\->W
T=7\=>S\->W
F\<>3\=>\GotoV
W=2\=>\GotoL
W-1\->W
0\->\r
\Lbl U
\r+1\->\r
\r=1\=>\Mat H\->\Mat A
\r=2\=>\Mat G\->\Mat A
\r=3\=>\GotoJ
\Lbl V
0\->U~V
W\<=1\=>\GotoC
0\->G~L
W\<=6\=>\Mat A[W,T]=0\=>\GotoB
W+2\<=6\=>\Mat A[W+2,T]\->G
W+1\<=6\=>\Mat A[W+1,T]\->H
W\<=6\=>\Mat A[W,T]\->I
GHI+HI+I\->U
0\->G~L
\Lbl B
T-3\>=1\=>\Mat A[W-1,T-3]\->G
T-2\>=1\=>\Mat A[W-1,T-2]\->H
T-1\>=1\=>\Mat A[W-1,T-1]\->I
T+1\<=7\=>\Mat A[W-1,T+1]\->J
T+2\<=7\=>\Mat A[W-1,T+2]\->K
T+3\<=7\=>\Mat A[W-1,T+3]\->L
GHI+HI+I+LKJ+KJ+J\->V
V>U\=>V\->U
0\->G~L
W+2\<=6\=>T-3\>=1\=>\Mat A[W+2,T-3]\->G
W+1\<=6\=>T-2\>=1\=>\Mat A[W+1,T-2]\->H
W\<=6\=>T-1\>=1\=>\Mat A[W,T-1]\->I
W-2\>=1\=>T+1\<=7\=>\Mat A[W-2,T+1]\->J
W-3\>=1\=>T+2\<=7\=>\Mat A[W-3,T+2]\->K
W-4\>=1\=>T+3\<=7\=>\Mat A[W-4,T+3]\->L
GHI+HI+I+LKJ+KJ+J\->V
V>U\=>V\->U
0\->G~L
W-4\>=1\=>T-3\>=1\=>\Mat A[W-4,T-3]\->G
W-3\>=1\=>T-2\>=1\=>\Mat A[W-3,T-2]\->H
W-2\>=1\=>T-1\>=1\=>\Mat A[W-2,T-1]\->I
W\<=6\=>T+1\<=7\=>\Mat A[W,T+1]\->J
W+1\<=6\=>T+2\<=7\=>\Mat A[W+1,T+2]\->K
W+2\<=6\=>T+3\<=7\=>\Mat A[W+2,T+3]\->L
GHI+HI+I+LKJ+KJ+J\->V
V>U\=>V\->U
\Lbl C
F=3\=>\r=1\=>U\->Z
F=3\=>\GotoU
F=1\=>U\->\Mat M[T,1]
F=2\=>U\->\Mat N[T,1]
T+1\->T
T\<>8\=>\GotoZ
F+1\->F
F=2\=>1\->T
F=2\=>\Mat H\->\Mat A
F=2\=>\GotoZ
\Lbl K
\Mat->List\Mat M,1)\->\List 1
\Mat->List\Mat N,1)\->\List 2
\Max(\List 1)\->X
\Max(\List 2)\->Y
Y\>=X\=>\GotoH
\Mat M[1,1]=X\=>1\->D
\Mat M[7,1]=X\=>7\->D
\Mat M[2,1]=X\=>2\->D
\Mat M[6,1]=X\=>6\->D
\Mat M[3,1]=X\=>3\->D
\Mat M[5,1]=X\=>5\->D
\Mat M[4,1]=X\=>4\->D
X\->Y
\GotoG
\Lbl H
\Mat N[1,1]=Y\=>1\->D
\Mat N[7,1]=Y\=>7\->D
\Mat N[2,1]=Y\=>2\->D
\Mat N[6,1]=Y\=>6\->D
\Mat N[3,1]=Y\=>3\->D
\Mat N[5,1]=Y\=>5\->D
\Mat N[4,1]=Y\=>4\->D
\Lbl G
D\->T
\GotoZ
\Lbl J
Z>U\=>Z\->U
Y\>=U\=>\GotoL
0\->\Mat M[D,1]
0\->\Mat N[D,1]
\GotoK
\Lbl L
\Return

%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1440
File Name:P4 IA
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Lbl 0
\Cls
\ViewWindow 1,127,1,1,63,1
1\->A~B
\For 1\->Z \To 8
Z\<>8\=>\Text 2,(Z-1)*9+4,Z
\Plot 1,A
\Plot 64,A
\Line
\Plot B,1
\Plot B,63
\Line
A+9\->A
B+9\->B
\Next 
\Lbl A
{6,7}\->\Dim \Mat A
{6,7}\->\Dim \Mat G
{6,7}\->\Dim \Mat H
{7,1}\->\Dim \Mat N
{7,1}\->\Dim \Mat M
\ClrList
0\->A~Z
7\->M~S
\Int (\Ran#*2+1)\->B
\Lbl B
\Fill(0,\Mat A
B-1\->B
B=0\=>2\->B
\Text 1,90,"JOUEUR"
\Text 1,120,B
B=1\=>\GotoG
\Prog "A"
\Lbl 9
\Fill(0,\Mat A
D=1\=>\Goto1
D=2\=>\Goto2
D=3\=>\Goto3
D=4\=>\Goto4
D=5\=>\Goto5
D=6\=>\Goto6
D=7\=>\Goto7
\Lbl G
\Getkey\->G
G=0\=>\GotoG
G=72\=>M\<>1\=>\Goto1
G=62\=>N\<>1\=>\Goto2
G=52\=>O\<>1\=>\Goto3
G=73\=>P\<>1\=>\Goto4
G=63\=>Q\<>1\=>\Goto5
G=53\=>R\<>1\=>\Goto6
G=74\=>S\<>1\=>\Goto7
\GotoG
\Lbl 1
M-1\->M
1\->\Mat A[M,1]
M\->J
1\->I
\Text 9M+3,4,B
\GotoM
\Lbl 2
N-1\->N
1\->\Mat A[N,2]
N\->J
2\->I
\Text 9N+3,13,B
\GotoM
\Lbl 3
O-1\->O
1\->\Mat A[O,3]
O\->J
3\->I
\Text 9O+3,22,B
\GotoM
\Lbl 4
P-1\->P
1\->\Mat A[P,4]
P\->J
4\->I
\Text 9P+3,31,B
\GotoM
\Lbl 5
Q-1\->Q
1\->\Mat A[Q,5]
\Text 9Q+3,40,B
Q\->J
5\->I
\GotoM
\Lbl 6
R-1\->R
1\->\Mat A[R,6]
R\->J
6\->I
\Text 9R+3,49,B
\GotoM
\Lbl 7
S-1\->S
1\->\Mat A[S,7]
S\->J
7\->I
\Text 9S+3,58,B
\GotoM
\Lbl M
B=1\=>\Mat A+\Mat G\->\Mat G
B=2\=>\Mat A+\Mat H\->\Mat H
B=1\=>\Mat G\->\Mat A
B=2\=>\Mat H\->\Mat A
J\<=3\=>\Mat A[J+1,I]\Mat A[J+2,I]\Mat A[J+3,I]=1\=>\GotoE
I\<=4\=>\Mat A[J,I+1]\Mat A[J,I+2]\Mat A[J,I+3]=1\=>\GotoE
I\<=5\=>I\>=2\=>\Mat A[J,I-1]\Mat A[J,I+1]\Mat A[J,I+2]=1\=>\GotoE
I\<=6\=>I\>=3\=>\Mat A[J,I-2]\Mat A[J,I-1]\Mat A[J,I+1]=1\=>\GotoE
I\>=4\=>\Mat A[J,I-3]\Mat A[J,I-2]\Mat A[J,I-1]=1\=>\GotoE
I\>=4\=>J\<=3\=>\Mat A[J+1,I-1]\Mat A[J+2,I-2]\Mat A[J+3,I-3]=1\=>\GotoE
I\>=3\=>I\<=6\=>J\>=2\=>J\<=4\=>\Mat A[J+1,I-1]\Mat A[J+2,I-2]\Mat A[J-1,I+1]=1\=>\GotoE
I\>=2\=>I\<=5\=>J\>=3\=>J\<=5\=>\Mat A[J+1,I-1]\Mat A[J-1,I+1]\Mat A[J-2,I+2]=1\=>\GotoE
I\<=4\=>J\>=4\=>\Mat A[J-1,I+1]\Mat A[J-2,I+2]\Mat A[J-3,I+3]=1\=>\GotoE
I\>=4\=>J\>=4\=>\Mat A[J-3,I-3]\Mat A[J-2,I-2]\Mat A[J-1,I-1]=1\=>\GotoE
I\>=3\=>I\<=6\=>J\>=3\=>J\<=5\=>\Mat A[J-1,I-1]\Mat A[J-2,I-2]\Mat A[J+1,I+1]=1\=>\GotoE
I\>=2\=>I\<=5\=>J\>=2\=>J\<=4\=>\Mat A[J-1,I-1]\Mat A[J+1,I+1]\Mat A[J+2,I+2]=1\=>\GotoE
I\<=4\=>J\<=3\=>\Mat A[J+1,I+1]\Mat A[J+2,I+2]\Mat A[J+3,I+3]=1\=>\GotoE
\GotoB
\Lbl E
\Text 10,90,"A GAGNE"\Disp\Goto0

%End