%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:2234
File Name:MsweEpEr
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
1\->Z
3\->\r
\Prog "GU"
\Locate 11,6,"30\slash12\slash96"
\Locate 14,4,"2.50"
\Locate 6,2,"MiNe SwEepER"
1\->\r
\Prog "GU"
0\->A~Y
"How Many BomB(5-50):"?\->V
V>50\ Or V<5\=>5\->V
\Lbl G
9\->\r
58\->\theta
0\->Q
0\->H
0\->O
\Cls
1\->W
\Identity 10\->\Mat A
\Fill(0,\Mat A
\ClrText
\Locate 7,4,"LoadING..."
[[-1,-1][-1,0][-1,1][0,1][1,1][1,0][1,-1][0,-1\->\Mat R
\For 1\->I \To V
\Do
\Intg (8\Ran#+2\->R
\Intg (8\Ran#+2\->S
\LpWhile 0\<>\Int \Mat A[S,R
1+\Mat A[S,R\->\Mat A[S,R
\For 1\->C \To 8
S+\Mat R[C,1\->D
R+\Mat R[C,2\->E
.1+\Mat A[D,E\->\Mat A[D,E
\Next 
\Next 
\For 1\->A \To 9
\F-Line 10A-6,5,10A-6,61
\F-Line 4,7A-2,84,7A-2
\Next 
\Text 40,90,"UnknOW:"
\Text 1,94,"[MenU]"
\Text 10,108,"MaRK"
\Text 20,102,"NEw"
\Text 10,89,"OpEn"
57\->P
126\->T
47\->R
\F-Line 87,P,T,P
\F-Line T,P,T,R
\F-Line T,R,87,R
\F-Line 87,R,87,P
\F-Line 106,R,106,P
\F-Line 98,R,98,38
\F-Line 98,38,119,38
\F-Line 120,38,120,R
2\->R~S
V\->U
1\->P
0\->T
\Do
\Lbl 6
\If P=1
\Then \Text 47,100,"   "
\Text 47,100,U
0\->P
\IfEnd
\Lbl Y
\Do
\PlotOn 44,33
\Plot \r,\theta\DispX\->\r
Y\->\theta
X\->I
Y\->J
\PlotOn 44,33
I\->X
J\->Y
\For 1\->A \To 8
X>10A-6\ And X<10A+4\=>A+1\->R
Y>7A-2\ And Y<7A+5\=>10-A\->S
\Next 
0\->A
R>1\ And R<11\ And S>1\ And S<11\=>1\->A
\LpWhile A\<>1
Z=1\=>1=\Int \Mat A[S,R\=>\PlotOn 93,20
\Lbl Q
0\->K
\Do
\Plot 106,47\Disp\If Y<57\ And Y>47
\Then X>87\ And X<106\=>1\->K
X>106\ And X<126\=>2\->K
\IfEnd
X>98\ And X<118\ And Y>38\ And Y<47\=>3\->K
\LpWhile K\<>1\ And K\<>2\ And K\<>3
\PlotOff 93,20
W>2\=>K=2\=>\GotoQ
W>1\=>\GotoX
K=3\=>\GotoY
\Int \Mat A[S,R\->I
\If K=1
\Then \If I=0\ Or I=1\ Or I=4\ Or I=5
\Then \If \Frac (I/2)=0
\Then 2\->L
\GotoO
\Else 2\->T
1\->P
5+\Frac \Mat A[S,R\->\Mat A[S,R
8\->Q
\GotoS
\IfEnd
\IfEnd
\IfEnd
\If K=2
\Then \If I<4
\Then \If I=2\ Or I=3
\Then I-2+\Frac \Mat A[S,R\->\Mat A[S,R
\Isz U
\Else U>0\=>I+2+\Frac \Mat A[S,R\->\Mat A[S,R
U>0\=>U-1\->U
\IfEnd
1\->P
\IfEnd
7\->Q
\GotoS
\Lbl 7
\IfEnd
3\->L
\Lbl 2
64-H=V\ Or U=0\=>\GotoC
\LpWhile T=0
\Lbl N
8\->Q
\If T=1
\Then \Text 40,89,"FinIsH : "
\Text 47,89,"  GOOD "
\Else \Text 40,85," GamE OvEr "
\Text 47,85,"       "
\IfEnd
\Text 10,89,"Ne\Xt "
\Text 10,108,"ShoW"
\Text 20,102,"EXit"
2\->W
\GotoQ
\Lbl X
K=1\=>\GotoG
K=2\ And W=3\=>\GotoQ
8\->O
8\->Q
\If K=2\ And W=2
\Then \For 2\->R \To 9
\For 2\->S \To 9
\If T=1
\Then \If \Frac (\Int (\Mat A[S,R])/2)=0.5
\Then 1=\Int \Mat A[S,R\=>3+\Frac \Mat A[S,R\->\Mat A[S,R
5=\Int \Mat A[S,R\=>7+\Frac \Mat A[S,R\->\Mat A[S,R
\IfEnd
0=\Int \Mat A[S,R\=>4+\Frac \Mat A[S,R\->\Mat A[S,R
\Else 4\<>\Int \Mat A[S,R\=>4+\Mat A[S,R\->\Mat A[S,R
\IfEnd
\GotoS
\Lbl 4
\Next 
\Next 
3\->W
\GotoQ
\IfEnd
2\->\r
\Prog "GU"
\Locate 11,5,"29\slash06\slash97"
\Locate 5,2,"MiNe  SWeePEr"
\Stop
\Lbl C
0\->A
0\->F
\For 2\->I \To 9
\For 2\->J \To 9
\Int \Mat A[I,J]=0\ Or 2=\Int \Mat A[I,J\=>\Isz F
3=\Int \Mat A[I,J\=>\Isz A
\Next 
\Next 
\If F=0\ Or A=V
\Then 1\->T
\GotoN
\IfEnd
\Goto6
\Lbl S
10\Frac \Mat A[S,R\->A
\Int \Mat A[S,R\->I
I=2\ Or I=3\ Or I=7\=>\Text 7S-10,10R-13,"#"
I=4\=>\Text 7S-10,10R-13,A
Q=8\ And I=5\=>\Text 7S-10,10R-13,"\aster"
Q=8\ And I=6\=>\Text 7S-10,10R-13,"X"
Q\<>8\ And I<2\=>\Text 7S-10,10R-13," "
O\<>8\=>\PlotOn X,Y+1
O=8\=>\Goto4
Q=7\=>\Goto7
Q=8\=>\GotoN
Q=9\=>\Goto9
Q=10\=>\GotoR
\Lbl O
\If \Int \Mat A[S,R]<4\ And R\>=2\ And R\<=9\ And S\>=2\ And S\<=9
\Then 4+\Mat A[S,R\->\Mat A[S,R
L\->G
9\->Q
\Isz H
\GotoS
\Lbl 9
G\->L
10\Frac \Mat A[S,R\->A
\If A=0
\Then \For 1\->C \To 8
S\->M
R\->N
S+\Mat R[C,1\->S
R+\Mat R[C,2\->R
\If R\>=2\ And R\<=9\ And S\>=2\ And S\<=9\ And \Mat A[S,R]<4
\Then 4+\Mat A[S,R\->\Mat A[S,R
10\->Q
\Isz H
0\->O
\GotoS
\Lbl R
\IfEnd
M\->S
N\->R
\Next 
\IfEnd
\IfEnd
\IfEnd
\Goto2
%End
%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:343
File Name:GU
Group Name:
Password:
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\Identity 1\->\Mat A
\Mat A\->\Mat R
\Mat A\->\Mat X
\r\<>1\=>\ClrGraph
0:\ClrList
\If \r=3\ Or \r=2
\Then \Norm
\ClrText
\CoordOff
\Locate 1,1,"\aster\aster\aster\aster\aster\aster\aster\aster[NaM]\aster\aster\aster\aster\aster\aster\aster\aster"
\For 2\->I \To 6
\Locate 1,I,"\aster"
\Locate 21,I,"\aster"
\Next 
\Locate 1,7,"\aster\aster\aster\aster\aster\aster[TeLECoM]\aster\aster\aster\aster\aster\aster"
\IfEnd
\If \r=3
\Then 0\->\r
\ViewWindow 1,127,0,1,63,0
\Locate 5,4,"VeRsiOn"
\Locate 4,6,"sInCe,"
\IfEnd
\If \r=1
\Then 0\->\r
\For 1\->I \To 500
\Next 
\ClrText
\IfEnd
\If \r=2
\Then 0\->\r
\Locate 3,3,"Ac  tO eXiT"
\Locate 3,4,"eXE To pLAy AgAiN"
\Locate 4,5,"UpdAtE"
\Locate 7,6,"ThAnK You"
\IfEnd
%End