----Master Mine----



By: Marcus Lundstr"m



What: It‹s a text based minesweeper game.



Size: 558 bytes, or 435 without the comments.



I made this program on my 7700GB calc but it probably will work on other.

-------------------------------------------------------------------------

 Command translation:

 ->      Single arrow (located on the keyboard)                   

 =>      Double arrow (press: [shift] [prgm] [f1] [f1])           

 _       Display, -Disp- (press: [shift] [prgm] [f5])

 <=      Less or equal (press: [shift] [prgm] [f2] [f6])

 >=      Greater or equal (press: [shift] [prgm] [f2] [f5])

-------------------------------------------------------------------------

"--MASTER MINE--"

" "

Int 17Ran#+1->A

Int 17Ran#+1->B

Int 17Ran#+1->I

A+1->M

A-1->N

B+1->O

B-1->P

I+1->Q

I-1->R

3->F

0->G

Lbl 0

G+1->G

"13-14-15-16"

"09-10-11-12"

"05-06-07-08"

"01-02-03-04"

"CHOOSE AREA"?->C

C=A=>Goto 3

C=B=>Goto 4

C=I=>Goto 5

C=M=>Goto 2

C=N=>Goto 2

C=O=>Goto 2

C=P=>Goto 2

C=Q=>Goto 2

C=R=>Goto 2

"MISS"

Goto 0

Lbl 3

F-1->F

A-A->A

"YES!"_

F=0=>Goto 1

M-M->M

N-N->N

Goto 0

Lbl 4

F-1->F

O-O->O

P-P->P

"YES!"_

B-B->B

F=0=>Goto 1

Goto 0

Lbl 5

"YES!"_

F-1=>F

Q-Q->Q

R-R->R

F=0=>Goto 1

I-I->I

Goto 0

Lbl 2

"CLOSE"_

Goto 0

Lbl 1

"ALL MINES TAKEN"_

" "

"TURNES:":G_

" "

"COMMENT:"       //You can skip the comments and spare 123 bytes.

" "

G<=5=>"MASTER"

G<=5=>Goto 6

G<=7=>"GREAT"

G<=7=>Goto 6

G<=10=>"NORMAL"

G<=10=>Goto 6

G<=15=>"WAKE UP"

G<=15=>Goto 6

G>=16=>"GO AND DIE"

Lbl 6:" "

------------------------------------------------------------------------

(c) Copyright 1997 Marcus Lundstr"m