Fill(0,Mat Z
Cls
ClrText
"How many mines"
"1->50"?->N
Int N->N
N<=0 Or N>=51=>Prog "DEMINEUR"
N->T
LabelOff
GridOff
CoordOff
AxesOff
ViewWindow 0,126,0,0,62,0
ClrText
Locate 5,3,"asterasterasterasterasterasterasterasterasterasterasterasteraster"
Locate 5,4,"asterWait pleaseaster"
Locate 5,5,"aster"
Locate 17,5,"aster"
Locate 5,6,"asterasterasterasterasterasterasterasterasterasterasterasteraster"
Do
T=9=>Locate 11,5,"  "
Locate 11,5,T
Int (138Ran#)+2->S
Int (S/7)+1->V
S-(V-1)*7+1->U
1->Mat Z[U,V]
T-1->T
LpWhile T<>-1
ClrText
RclPict 1
Goto theta
5->W
Do
Plot 10,W
Plot 110,W
Line
W+5->W
LpWhile W<>45
10->X
Do
Plot X,5
Plot X,40
Line
X+5->X
LpWhile X<>115
Text 3,45,"DEMINEUR"
Horizontal 62
Horizontal 54
Text 14,5,"MINES :"
Text 14,80,"BY MADMANU"
Text 31,115,"F"
Text 38,115,"I"
Text 45,115,"N"
Lbl theta
0->Mat Z[1,1]
1->U
1->V
0->M
10->S
35->T
Lbl 0
0->M
V<>1=>Mat Z[V-1,U]+M->M
V<>1=>U<>1=>Mat Z[V-1,U-1]+M->M
V<>1=>U<>20=>Mat Z[V-1,U+1]+M->M
U<>1=>Mat Z[V,U-1]+M->M
U<>20=>Mat Z[V,U+1]+M->M
V<>7=>Mat Z[V+1,U]+M->M
V<>7=>U<>1=>Mat Z[V+1,U-1]+M->M
V<>7=>U<>20=>Mat Z[V+1,U+1]+M->M
Orange Text 14,40,M
Orange F-Line S+1,T+1,S+4,T+1
Orange F-Line S+1,T+2,S+4,T+2
Orange F-Line S+1,T+3,S+4,T+3
Orange F-Line S+1,T+4,S+4,T+4
Do
Getkey->K
LpWhile K=0 Or K=31
PlotOff S+2,T+2
PlotOff S+3,T+2
PlotOff S+2,T+3
PlotOff S+3,T+3
K=27=>S+5->S
K=27=>U+1->U
K=37=>T-5->T
K=37=>V+1->V
K=28=>T+5->T
K=28=>V-1->V
K=38=>S-5->S
K=38=>U-1->U
U=21=>Goto 1
Mat Z[V,U]=1=>Goto2
Goto 0
Lbl 1
Green Text 14,50,"YEAH!"
Goto 3
Lbl 2
Green Text 14,50,"BOOM!"
Goto 3
Lbl 3