%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:1889
File Name:Demine
Group Name:ur
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
"Cree par Xavier IZARDxizard@enib.fr"
0\->A~Z
\CoordOff
\GridOff
\AxesOff
\LabelOff
\BG-None
\ViewWindow 0,126,1,0,62,1
"MODE DE JEU?
1\->UN JOUEUR
2\->DEUX JOUEURS"?\->J
J\<=1\=>0\->J
J>1\=>1\->J
\Lbl 3
"COMBIEN DE MINES? (DE 10 A 100)"?\->M
\Orange \Text 1,52,"PATIENTEZ..."
M<00\ Or M>112\=>\Goto3
\Lbl C
\For 1\->A \To 100 \Step 6
\F-Line A,1,A,57
\Next 
\For 1\->B \To 60 \Step 8
\F-Line 1,B,97,B
\Next 
J=2\=>\GotoD
[[0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0][0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9]]\->\Mat A
1\->B~C
\Lbl 1
3\->\Mat A[B,C]
\Int (5\Ran#)\->A
\If A=1\ And C<16\ Or A=1\ And C<16
\Then \Isz C
0\->D
\IfEnd
\If A=3\ And D\<>\(-)1\ And B<7
\Then \Isz B
1\->D
\IfEnd
\If A=2\ And D\<>1\ And B>1\ And C<16
\Then \Dsz B
\(-)1\->D
\IfEnd
B=7\ And C=16\=>\Goto2
\Goto1
\Lbl 2
\For 1\->C \To 16
\For 1\->B \To 7
\Int (112\Ran#)\->A
A\<=M\=>1\->A
\Mat A[B,C]<3\ And A=1\=>5\->\Mat A[B,C]
\Next 
\Next 
\Lbl D
1\->B~C
\Text 32,100,"NB. DE"
\Text 38,100,"MINE A"
\Text 44,100,"PROXI="
\Text 50,100,"MITE:"
1\->I
\(-)1\->N
0\->M
8\->D
4\->E
\Green \Text 1,1,"TEMPS:"
\Orange \Text 1,52,"JOUEZ       "
\Lbl A
J=1\=>\Orange \Text 1,69,"UR 1"
J=2\=>\Orange \Text 1,69,"UR 2"
\Do
I=1\=>\Goto5
\Lbl 4
\Getkey\->A
T+1\->T
\Green \Text 1,27,\Int (T/3.9)
A\<>27\ And A\<>28\ And A\<>37\ And A\<>38\=>\Goto4
63-8B\->D
6C-3\->E
\Orange \F-Line E,D,E,D-4
\Orange \F-Line E+1,D,E+1,D-4
\Orange \F-Line E+2,D,E+2,D-4
A=28\ And B>1\=>\Dsz B
A=27\ And C<16\=>\Isz C
A=37\ And B<7\=>\Isz B
A=38\ And C>1\=>\Dsz C
8B\->D
6C-2\->E
B=7\ And C=16\=>9\->A
A=9\ Or \Mat A[B,C]=5\=>1\->Z
Z=1\=>\Goto7
\(-)1\->N
0\->M
\Lbl 5
N=\(-)1\ And B>1\ Or N=1\ And B<7\=>\Mat A[B+N,C]=5\=>M+1\->M
N=\(-)1\ And C>1\ Or N=1\ And C<16\=>\Mat A[B,C+N]=5\=>M+1\->M
N=1\=>\Goto6
N+2\->N
\Goto5
\Lbl 6
\Orange \Text 50,122,M
\Orange \Text D,E,"\theta"
0\->I
T+6\->T
\Lbl 7
\LpWhile Z=0
0\->Z
J=1\=>A\->V
A\<>9\=>\Text 21,100,"BOOM..."
\For 1\->B \To 7
\For 1\->C \To 16
\Mat A[B,C]=5\=>\Orange \Text 8B,6C-2,"X"
\Next 
\Next 
J=2\=>\GotoF
J=1\=>\GotoB
5M\x^2\->M
A=9\=>1\->M
\Lbl 9
\Text 57,100,"     "
A\<>9\=>\Text 57,100,"PERDU"
A=9\=>\Orange \Text 57,104,"GAGNE"
\Dsz M:\Goto9
\Stop
\Lbl B
30\->Z
\Lbl E
\Dsz Z
Z\>=1\=>\GotoE
0\->Z
\Cls
2\->J
T\->U
0\->T
\Text 29,10,"APPUYEZ SUR LA TOUCHE [EXE]"
\Do
\LpWhile \Getkey\<>31
\Cls
\Green \Text 1,100,"TEMPS"
\Green \Text 7,100,"ADVERSE"
\If A=9
\Then \Green \Text 13,100,\Int (U/3.9)
\Else \Green \Text 13,100,"INFINI"
\IfEnd
\GotoC
\Lbl F
\Green \Text 1,100,"      "
\Green \Text 7,100,"       "
\Green \Text 13,100,"       "
3\->W
\If A=9\ And V=9
\Then U>T\=>2\->W
U<T\=>1\->W
\Else A=9\ And V\<>9\=>2\->W
A\<>9\ And V=9\=>1\->W
\IfEnd
W=3\=>\Orange \Text 1,78,"S EX\(-)AECO"
W=2\=>\Orange \Text 1,90,"GAGNANT"
W=1\=>\Orange \Text 1,82,"1 GAGNANT"
\Stop
%End