+---------------------------------------------+
|		Minesweeper v1.1	      |
|		By Kerm Martian		      |
|		Kerm_Martian@yahoo.com	      |
+---------------------------------------------+

PLEASE NOTE THAT THIS IS FOR AN OLDER VERSION - IF YOU CAN, DOWNLOAD THE CURRENT VERSION,
MINES2.8xp, TO YOUR CALCULATOR WITH LINKING SOFTWARE.  OTHERWISE, TYPE THIS IN BY HAND.
Notes:
	'-->' is the [sto>] key
	'@' is a square in the Catalog 3x3 pixels, after the Z section, near the bottom
	'LMNSW' is the *LIST* with name MNSW.  The L is [2nd][stat][>][alpha][B]
Questions?  Comments?  Bugs?	Email me at <Kerm_Martian@yahoo.com>.  Thanks!


<start code>
Lbl AZ
Menu("MINESWEEPER","PLAY",AA,"CHEAT",CA,"HELP",H,"QUIT",QQ
Lbl QQ
ClrDraw
AxesOn
ZStandard
ClrHome
Disp "Minesweeper v1.0","BY KERM MARTIAN
Return
Lbl H
ClrHome
Disp "USE THE ARROW","KEYS TO MOVE","AROUND THE BOARD","ENTER TO TEST"
Pause
Goto AZ
Lbl CA
31187-->C
Lbl AA
0-->T
ClrHome
Disp "BUILDING LEVEL
For(X,1,49
0-->LMNSW(X
randInt(0,30)-->Y
If Y=0
Then
1-->LMNSW(X
T+1-->T
End
If int(X/7)=X/7
Output(2,X/7,".
End
0-->Xmin:94-->Xmax
0-->Ymin:62-->Ymax
ClrDraw
AxesOff
For(X,30,65,5
For(A,X,X+3
For(Z,7,55,7
For(B,Z,Z+5
Pxl-On(B,A
End:End:End:End
Text(1,1,"TIME:
Text(20,1,"DONE:
-1-->P			<--This is the negative, not subtract
Text(27,5,"I%		<--Under 'Finance' ([2nd][x-1] on the 83)
Text(27,5,"[3 spaces]
If C=31187:Then
For(X,1,49
IF LMNSW(X)=1
Text(7(X-7int(X/7))+7,5int(X/7)+30,"[1 space]@[a square in the Catalog near the bottom, 3x3 pixels]
End:End
0-->C:1-->X:0-->H
Pt-Off(31,47
Lbl A
P+1-->P
Text(8,1,P
1-->A
Lbl A2
A+1-->A
If A=25:Goto A
getKey-->K
If K=0:Goto A2
Pt-Change(5int(X/7)+31,62-(7(X-7int(X/7))+8)
If K=24 and X>7
X-7-->X
If K=25 and X>1
X-1-->X
If K=26 and X<43
X+7-->X
If K=34 and X<49
X+1-->X
If K=105:Goto S
If K=21:Goto AZ
Pt-Change(5int(X/7)+31,62-(7(X-7int(X/7))+8)
Goto A2
Lbl S
If LMNSW(X)=1
Goto YL
0-->D
If LMNSW(X)=2
Goto A2
2--> LMNSW(X
For(E,-1,1
For(F,-1,1
If X+E+7F<1 or X+E+7F>49 or int((X+E+7F)/7)=( X+E+7F)/7
Goto S1
If LMNSW(X+E+7F)=1
D+1-->D
Lbl S1
End:End
Text(7(X-7int(X/7))+7,30+5int(X/7),"[1 space]",D
Pt-On(5int(X/7)+31,62-(7(X-7int(X/7))+8)
C+1-->C
If C=49-T
Goto YW
int(100(C/(49-T)))-->H
Text(27,0,H
Goto A2
Lbl YL
For(X,1,49
If LMNSW(X)=1
Text(7(X-7int(X/7))+7,30+5int(X/7)," [1 space]@[a square in the Catalog near the bottom, 3x3 pixels]
End
Pause
ClrHome
Disp "SORRY!","YOU LOSE!
Pause
DelVar LMNSW
Goto AZ
Lbl YW
ClrHome
Disp "GOOD JOB!
Pause
Goto AZ
