%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:4047
File Name:batna2
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Green "Cree par Xavier IZARDxizard@enib.fr"\Disp\Cls
\Lbl 0
0\->F~U
0\->\r
\Pi\->A~E
.3\->I
\sqrt2\->R
2\->V~Z
CREE-PAR:XAVIER-IZARD
\Deg
\CoordOff
\GridOff
\AxesOff
\LabelOff
\BG-None
\ViewWindow 0,126,1,0,62,1
\Int \Ans\->M
\Identity 9\->\Mat A
\Identity 9\->\Mat B
\Fill(0,\Mat A)
\Fill(0,\Mat B)
0\->A~L
1\->J
0\->\theta
0\->N~Z
\Lbl 3
\Cls
0\->B
\For 7\->X \To 56 \Step 7
\For 7\->Y \To 56 \Step 7
\Green \PlotOn X,Y
\Next 
\Next 
66\->E
2\->F
58\->G
\(-)\Pi\->\r
D\<=2\=>\GotoH
\Lbl I
0\->E~G
21\->A
\Green \F-Line 0,0,0,62
\Green \F-Line 0,0,63,0
\Green \F-Line 63,0,63,62
\Green \Text 15,70,"[\->]:Rot bateau"
\Green \Text 22,70,"[EXE]:Confirme"
\Green \Text 1,66,"JOUEUR 2 PLACEZ"
\Green \Text 8,70,"VOS BATEAUX"
\StoPict 2
\Green \Text 1,96,"1"
\StoPict 1
\Lbl 1
18\->S
32\->T
\Do
\Cls
J=1\=>\RclPict 1
J=\(-)1\=>\RclPict 2
C=27\=>S+7\->S
C=28\=>T+7\->T
C=38\=>S-7\->S
C=37\=>T-7\->T
\If C=25
\Then A\->\r
B\->A
\r\->B
\IfEnd
S\<=4\=>4\->S
T\<=4\=>4\->T
S+A\>=60\=>60-A\->S
T+B\>=60\=>60-B\->T
\Int (A/25+0.99)\->U
\Int (B/25+0.99)\->V
\F-Line S-1-2U,T-3V,S+2-5V,T+2
\F-Line S-3U,T-1-2V,S+2,T+2-5U
A/7\->W
B\<>0\=>B/7\->W
\F-Line S+2+U,T-3+6V,S+2+A-6U,T-3+B-V
\F-Line S-3+6U,T+2+V,S-3+A-U,T+2+B-6V
\F-Line S+2+A-5U,T-3+B,S+2+A-2V,T-1+B+3V
\F-Line S-3+A,T+2+B-5V,S-1+A+3U,T+2+B-2U
\Lbl Z
\Getkey\->C
C=0\=>\GotoZ
\LpWhile C\<>31
J=\(-)1\=>\StoPict 2
J=1\=>\StoPict 1
0\->I
A/7\->C
A=0\=>B/7\->C
(S-4)/7+1\->D
(T-4)/7+1\->E
M=8\=>\GotoN
\theta=0\=>\GotoP
\Lbl M
\For 1\->Z \To 0
\Lbl O
A\->B
Z\->A
\Int B\->C
M\->E
\r\->M
\GotoO
\Lbl N
\If B=0
\Then \For D\->F \To D+C
\If J=1\ And \Mat A[E,F]\<>0
\Then \Fill(0,\Mat A)
\Pi\->I
\IfEnd
\If J=\(-)1\ And \Mat B[E,F]\<>0
\Then \Fill(0,\Mat B)
\Pi\->I
\IfEnd
I=\Pi\=>\Goto3
10\->H
F=D\=>2\->H
F=D+C\=>4\->H
J=1\=>H\->\Mat A[E,F]
J=\(-)1\=>H\->\Mat B[E,F]
\Next 
\Else \For E\->F \To E+C
\If J=1\ And \Mat A[F,D]\<>0
\Then \Fill(0,\Mat A)
\Pi\->I
\IfEnd
\If J=\(-)1\ And \Mat B[F,D]\<>0
\Then \Fill(0,\Mat B)
\Pi\->I
\IfEnd
I=\Pi\=>\Goto3
12\->H
F=E\=>6\->H
F=E+C\=>8\->H
J=1\=>H\->\Mat A[F,D]
J=\(-)1\=>H\->\Mat B[F,D]
\Next 
\IfEnd
G+1\->G
\If B=0
\Then G=1\ Or G=3\=>A-7\->A
\Else G=1\ Or G=3\=>B-7\->B
\IfEnd
0\->\r
G=6\=>0\->G
\If G=0
\Then J=\(-)1\=>\Pi\->\r
0\->I
\Green \Text 15,70,"              "
\Green \Text 22,70,"              "
J=1\=>\StoPict 1
J=\(-)1\=>\StoPict 2
\Green \Text 1,103,"ENTREZ"
\Green \Text 8,70,"CODE AVEC F1~6"
\Lbl A
\Getkey\->\theta
\theta=31\=>\GotoA
J=1\ And P=0\=>\theta\->P
J=\(-)1\ And Q=0\=>\theta\->Q
\theta\<>0\=>\Green \Text 15,92,"*"
\theta=P\ Or \theta=Q\ Or \theta=0\=>\GotoA
\Green \Text 15,97,"*"
J=1\=>\theta\->R
J=\(-)1\=>\theta\->S
\(-)J\->J
0\->G
21\->A
0\->B
\IfEnd
\r\<>\Pi\=>\Goto1
\Lbl C
\Cls
\Green \Text 1,66,"JOUEUR 1 FAITES"
J=\(-)1\=>\Green \Text 1,96,"2"
\Green \Text 8,70,"VOTRE CODE"
\Lbl D
\Green \Text 8,110,"   "
0\->T
\Lbl B
\Getkey\->\r
T=0\=>\r\->T
T\<>0\=>\Green \Text 8,110,"*"
\r=T\ Or \r=0\=>\GotoB
\Green \Text 8,116,"*"
J=1\=>T\<>P\ Or \r\<>R\=>\GotoD
J=\(-)1\=>T\<>Q\ Or \r\<>S\=>\GotoD
J=1\=>\RclPict 1
J=\(-)1\=>\RclPict 2
I\<>0\=>\Mat A[A,B]\->C
J=\(-)1\ And I\<>0\=>\Mat B[A,B]\->C
C<0\=>\Orange \F-Line D,E+5,D+5,E
0\->A
\Green \Text 1,103,"      "
\Green \Text 8,70,"QUELLE LIGNE? "
\Lbl 6
\Getkey\->\r
\r=0\=>\Goto6
(\r+14)/10\->L
L=\Int L\=>L\->A
\r=75\=>3\->A
\r=65\=>2\->A
\r=55\=>1\->A
A=0\=>\Goto6
94\->E
15\->F~G
\Lbl H
\For F\->D \To G \Step 7
\r=\(-)\Pi\=>9-(D-2)/7\->A
A=9\=>\Green \Text D,E,"A"
A=8\=>\Green \Text D,E,"B"
A=7\=>\Green \Text D,E,"C"
A=6\=>\Green \Text D,E,"D"
A=5\=>\Green \Text D,E,"E"
A=4\=>\Green \Text D,E,"F"
A=3\=>\Green \Text D,E,"G"
A=2\=>\Green \Text D,E,"H"
A=1\=>\Green \Text D,E,"I"
\Next 
\r=\(-)\Pi\=>\GotoI
0\->B
\Green \Text 22,66,"QUELLE COLONNE"
\Green \Text 29,74,"[\->]:N\Deg> colone"
\Lbl 7
\r\<>\Pi\=>\Getkey\->\r
\r=0\=>\Goto7
\If \r=25\ Or \Getkey=25
\Then \For 1\->D \To 9
25\->\r
7D-4\->E
\Orange \Text 2,E,D
\Next 
\IfEnd
\If \r\<>25
\Then \Orange \Text 1,3,"               "
\For 1\->D \To 9
7D-6\->E
J=1\ And \Mat A[9,D]<0\=>\Orange \F-Line E,62,E+5,57
J=\(-)1\ And \Mat B[9,D]<0\=>\Orange \F-Line E,62,E+5,57
\Next 
\r=\Pi\=>0\->\r
\IfEnd
\r=25\=>\Pi\->\r
\r=72\=>1\->B
\r=62\=>2\->B
\r=52\=>3\->B
\r=73\=>4\->B
\r=63\=>5\->B
\r=53\=>6\->B
\r=74\=>7\->B
\r=64\=>8\->B
\r=54\=>9\->B
B=0\=>\Goto7
7(A-1)+1\->E
7(B-1)+1\->D
\Mat A[A,B]\->G
\Mat B[A,B]\->F
\If J=1
\Then G\->U
F\->T
\Else G\->T
F\->U
\IfEnd
0\->\r
T<0\ Or U=1\ Or U=3\ Or U=5\ Or U=7\ Or U=9\ Or U=11\ Or U=13\=>\Pi\->\r
\Green \Text 29,74,"             "
\Green \Text 29,94,B
\If \r=\Pi
\Then \Green \Text 22,66,"   DEJA  JOUE  "
\Else \Green \Text 22,66," [EXE]:CONFIRME"
\Green \Text 29,70,"[\->]:REJOUER"
\IfEnd
\Lbl G
\Orange \Text 57,70," "
\If \Getkey=25\ Or \r=\Pi
\Then \Pi\->W
0\->A~B
\GotoF
\IfEnd
\Orange \Text 57,70,"."
\Getkey\<>31\=>\GotoG
\For \(-)4\->F \To 6
F-1\->T
\Int (F\x^2/4)\->G
\Int (T\x^2/4)\->U
\Orange \Text 50+U,90+4T," "
F\<=4\=>\Orange \Text 50+G,90+4F,"."
\Next 
\Mat B[A,B]\->G
\Mat A[A,B]\->F
\If J=1
\Then G\->U
F\->T
\Else G\->T
F\->U
\IfEnd
\If U\<>0\ And U\<>1
\Then \For 0\->W \To 360 \Step 30
\Orange \F-Line 106,6,106+\Int (5\cos W),6+\Int (5\sin W)
\Next 
\For 1\->W \To 2
\Green \Text 36,85,"TOUCHE"
\Green \Text 36,85,"      "
\Next 
J=1\=>\(-)U\->\Mat B[A,B]
J=\(-)1\=>\(-)U\->\Mat A[A,B]
\Orange \Text 52,101,"   "
\Orange \Text 58,101,"   "
\Else \Text 54,106,"V"
\F-Line 106,6,109,9
\F-Line 106,6,103,9
\For 1\->W \To 2
\Green \Text 36,76,"DANS L'EAU"
\Green \Text 36,76,"           "
\Next 
\Text 53,103,"  "
\Abs T\->K
K=1\ Or K=3\ Or K=5\ Or K=7\ Or K=9\ Or K=11\ Or K=13\=>\GotoE
\(-)1\->H
T\>=0\=>1\->H
J=1\=>T+H\->\Mat A[A,B]
J=\(-)1\=>T+H\->\Mat B[A,B]
\Lbl E
\IfEnd
\Mat A[A,B]\->F
\Mat B[A,B]\->G
\If J=1
\Then F\->T
G\->U
\Else G\->T
F\->U
\IfEnd
\If U<0
\Then \Pi\->I
\Green \F-Line D+1,E+1,D+4,E+1
\Green \F-Line D+4,E+1,D+4,E+4
\Green \F-Line D+4,E+4,D+1,E+4
\Green \F-Line D+1,E+4,D+1,E+1
\IfEnd
\Abs T\->K
\If K=1\ Or K=3\ Or K=5\ Or K=7\ Or K=9\ Or K=11\ Or K=13
\Then \For 2\->F \To 3
\For 2\->G \To 3
\Green \PlotOn D+F,E+G
\Next 
\Next 
\IfEnd
\(-)J\->J
0\->\r
\For 1\->X \To 9
\For 1\->Y \To 9
J=1\=>\Mat A[X,Y]\->C
J=\(-)1\=>\Mat B[X,Y]\->C
C>1\=>\Pi\->\r
C>1\=>\Break
C>1\=>\Break
\Next 
\Next 
\Lbl P
\r=0\=>1\->I
M=8\=>\GotoK
"Vous n'auriez jamais du effacer le nom du createur!"
\GotoM
\Lbl K
\r=0\ And J=1\=>\Orange \Text 43,70,"J.2 GAGNANT"
\r=0\ And J=\(-)1\=>\Orange \Text 43,78,"1"
\r\<>0\=>\GotoL
\Orange \Text 50,70,"\->:Autre grille"
\Lbl J
\Getkey\->W
W=0\=>\GotoJ
\ClrGraph
-I\->I
\If I=1
\Then \RclPict 1
\Else \RclPict 2
\IfEnd
W\<>31\=>\GotoK
0\->\r
\Lbl L
\r=0\=>\Goto0
\Lbl F
\Green \Text 15,94," "
\Green \Text 22,66,"               "
\Green \Text 29,70,"           "
W=\Pi\=>\Goto6
J=\(-)1\=>\StoPict 1
J=1\=>\StoPict 2
\Cls
M\<>8\=>\GotoM
\GotoC
%End