82 Minelay
620 PEN 4: FOR F=1 TO 3:LOCATE INT(RND*1 1.25)+2,INT(RND*18)+3:PRINT CHR$(237);:N EXT F:PEN 1
630 Y=2:X=1:Y1=Y:X1=X:A$=CHR$(232)
640 MY=INT(RND*11)+10:MX=INT(MND*11.25) +7.5):MY1=MY:MX1=MX
650 SC=0:LOCATE 1,1:PEN 7:PRINT "Score " ;SC;:PEN I
660 GOTO 70
670 SYMBOL AFTER 230
680 SYMBOL 231,24,36,66,153,153,66,36,24 690 SYMBOL 232,28,28,73,62,8,28,20,54 700 SYMBOL 233,220,220,73,126,72,92,20,5 4
710 SYMBOL 234,195,36,24,36,126,90,129,0 720 SYMBOL 235,0,0,0,12,62,126,62,12
730 SYMBOL 236,0,0,8,73,42,26,62,127 740 SYMBOL 237,4,14,6,12,24,48,96,0
750 FOR X= 360 TO 366: READ A:POKE X,A:N EXT
760 DATA 205,96,187,50,111,1,201
770 LOCATE 13,1:PRINT CHR$(24)"MINE L A Y":PRINT CHR$(24)
7e0 LOCATE I,5:PRINT"Move about the maze
	picking up golden	eggs, avoiding the
	mines and also the	minelayer."
790 LOCATE 1,9:PRINT"If you pick up an a  xe you can destroy the maze walls,mine s,and the mine-layer."
800 LOCATE 1,12:PRINT"You begin with thr ee lives,but an extra life is given for every 500 points."
910 PRINT:PRINT
820 PEN 3:PRINT:PRINT"USE THE CURSOR ARR OWS TO MOVE ABOUT...":PEN 1
830 LOCATE 10,24:PEN 2:PRINT"PRESS ANY K EY TO START":PEN I
840 IF INKEY$<>"" THEN 840
850 IF INKEY$=""THEN 850 ELSE CLS
860 RETURN