80 Minelay
170 IF KY=236 THEN 330
180 IF KY=237 THEN SOUND 1,30,3:A$=CHR$( 233)
190 LOCATE MX+1,MY+1:PRINT" ";:IF RND>(S K+0.1) THEN PEN 6: LOCATE MX1+1,MY1+1:PR INT CHR$(236);:PEN 1
200 MY1=MY:MX1=MX
210 MY=MY-0.5*(MY<Y)+0.5*(MY>Y):MX=MX-0. 5*(MX<X)+0.5*(MX>X)
220 LOCATE MX+1,MY+1:CALL 360:KZ=PEEK(36 7):IF KZ=232 THEN 330
230 LOCATE MX+1,MY+1:PEN 3:PRINT CHR$(23 4);:PEN 1
240 IF RND<0.2 THEN PEN 2: LOCATE INT(RN D*17+3),INT(RND*18+3):PRINT CHR$(235);:I F RND>0.9 THEN PEN 4:LOCATE INT(RND*17+3 ),INT(RND*18+3):PRINT CHR$(237);
250 PEN 1
260 GOTO 100
270 IF Y=1 OR Y=21 OR X=1 OR X=18 THEN 1 50
280 FOR VV=50 TO 0 STEP -5 :SOUND 1,10+5 *VV,4 :NEXT
290 A$=CHR$(232)
300 GOTO 160
310 LOCATE LI+9,1:PRINT" ";:LOCATE X+1,Y +1:PRINT" ":Y=2:X=1
320 MY=INT(RND*11)+10:MX=INT(RND*11)+8:G OTO 100
330 LOCATE MX+1,MY+1:PRINT" ":MY=INT (RN D*11)+10:MX=INT(RND*11)+8:MY1=MY:MX1=MX: IF A$=CHR$(233) THEN A$=CHR$(232):FOR F= 0 TO 40 STEP 5:SOUND 1,20+F,1:NEXT:GOTO 190
340 LOCATE X1+1,Y1+1:PRINT"' ":LOCATE X+1 ,Y+1:PEN 5:PRINT CHR$(232);:PEN 1:FOR F= 1 TO 9:SOUND 1,(200+F*10),3:NEXT
350 LI=LI-1:IF LI <>0 THEN 310
360 FOR G=1 TO 100:NEXT
370 CLS:LOCATE 1,5:PEN 5:PRINT CHR$(24); "GAME	0 V E R ";CHR$(24);:PEN 1
380 LOCATE 4,8:PEN 4:PRINT "You scored " ;SC;