Menu(1,"Old",SSS,5,"New",OOO)
Lbl SSS
DispG 
Goto Z
Lbl OOO
ClLCD
"                   Super demineur\(-)\fb\(-)\  ...                    \#\
"\->\D2
Outpt(4,1,"\LC-phi\                   \LC-phi\")
For(I,3,5,2)
Outpt(I,2,"\LC-phi\\LC-phi\\LC-phi\\LC-phi\\LC-phi\\LC-phi\\LC-phi\\LC-phi\\#\
\LC-phi\\LC-phi\\LC-phi\\LC-phi\\LC-phi\\LC-phi\\LC-phi\\LC-phi\\LC-phi\\#\
\LC-phi\\LC-phi\")
End
For(D,1,44)
sub(D2,D,19)\->\D3
Outpt(4,2,D3)
For(I,1,35):End
End
ClLCD:Input "Difficult\LC-e'\e:",DI
ClLCD
\(-)\1\->\X5:\(-)\1\->\XX:\(-)\1\->\Y4:\(-)\1\->\YY
\LC-alpha\BITMAP
ClDrw
RcPic demimg1
{20,12}\->\dim MAT
Fill(0,MAT)
0\->\I
For(I,1,DI)
int (rand*18)+2\->\X
int (rand*10)+2\->\Y
1\->\MAT(X,Y)
End
2\->\XM
2\->\YM
60\->\Y
2\->\X
24\->\K
Goto Z
Lbl CCC
getKy\->\K
Lbl Z
If K\<>\0:Then
If ((K\<>\26)(K\<>\24)(K\<>\34)(K\<>\25)):Then:Goto EEE:End
If K==26:Then:X+7\->\X:XM+1\->\XM:End
If K==24:Then:X-7\->\X:XM-1\->\XM:End
If K==25:Then:Y+6\->\Y::YM-1\->\YM:End
If K==34:Then:Y-6\->\Y:YM+1\->\YM:End
If X\<=\\(-)\5:Then:X+7\->\X:XM+1\->\XM:End
If X\>=\127:Then:X-7\->\X:XM-1\->\XM:End
If Y\<=\1:Then:Y+6\->\Y:YM-1\->\YM:End
If Y\>=\66:Then:Y-6\->\Y:YM+1\->\YM:End
Goto DDD
End
Goto CCC
Lbl DDD
PtChg(X+5,Y):PtChg(X+5,Y-4):PtChg(X,Y-4):PtChg(X,Y)
PtChg(X5,YY)
PtChg(X5,Y4)
PtChg(XX,Y4)
PtChg(XX,YY)
X+5\->\X5:Y-4\->\Y4:X\->\XX:Y\->\YY
Goto CCC
Lbl EEE
If K==31
Then
PtChg(X+2,Y-1)
PtChg(X+3,Y-1)
PtChg(X+1,Y-2)
PtChg(X+2,Y-2)
PtChg(X+3,Y-2)
PtChg(X+4,Y-2)
PtChg(X+2,Y-3)
PtChg(X+3,Y-3)
Goto CCC
End
If (K==23)
Then
If MAT(XM,YM)==1
Then
PtOn(1,62)
For(I,1,50)
End
PtOff(1,62)
End
End
If Ans==21
Then
If (MAT(XM,YM))==0:Then
MAT(XM,YM+1)+MAT(XM,YM-1)+MAT(XM-1,YM-1)+MAT(XM-1,YM+1)+MAT(XM-1,YM)+MA\#\
T(XM+1,YM-1)+MAT(XM+1,YM+1)+MAT(XM+1,YM)\->\CH
0\->\YD
For(YD,0,4)
0\->\XD
For(XD,0,5)
PtOff(X+XD,Y-YD)
End
End
PtChg(X+5,Y):PtChg(X+5,Y-4):PtChg(X,Y-4):PtChg(X,Y)
If CH==0:Then:Goto CCC:End
If CH==1:Then
"1,0,1,4,0,1,0,1,0,4,2,4,4"
Goto W
End
If CH==2:Then
"0,0,1,0,2,1,0,3,0,4,2,4,4"
Goto W
End
If CH==3:Then
"0,0,1,0,2,1,2,1,1,2,2,3,0,4,1,4,4"
Goto W
End
If CH==4:Then
"0,0,0,2,1,2,1,2,2,1,2,4,4"
Goto W
End
If CH==5:Then
"1,0,2,0,0,0,0,1,0,2,1,2,2,3,2,3,0,4,1,4,4"
Goto W
End
If CH==6:Then
"1,0,2,0,0,1,0,4,1,2,2,2,2,3,2,3,1,4,2,4,4"
Goto W
End
If CH==7:Then
"0,0,2,0,2,1,2,1,1,2,1,4,4"
Goto W
End
If CH==8:Then
"0,0,2,0,0,1,0,4,2,1,2,4,1,2,1,2,1,4,1,4,4"
Goto W
End
Lbl W
"{"+Ans\->\EE:\St>Eq\(EE,EE
EE\->\EE:dimL EE\->\LE:1\->\EC
Lbl WC1:If EC\<>\LE:Then
Line(X+1+EE(EC),Y-EE(EC+1),X+1+EE(EC+2),Y-EE(EC+3))
4+EC\->\EC:Goto WC1
End
Else
0\->\I
For(I,1,100)
End
StPic demimg2
0\->\XX
For(XX,2,19)
0\->\YY
For(YY,2,11)
If MAT(XX,YY)==1
Then
(2+((XX-2)*7))\->\X
(60-((YY-2)*6))-2\->\Y
PtChg(X+1,Y
PtChg(X+2,Y
PtChg(X+3,Y
PtChg(X+4,Y
End
End
End
Stop
End
End
Goto CCC
\STOP\