Minelay 81
390 IF SC>HS THEN HS=SC:PRINT:PRINT:PEN 2:PRINT CHR$(24);"WELL	DONE ";
CHR$(24):PEN 6:PRINT CHR$(24);" A new hi gh score !!";CHR$(24);:PEN 1:GOTO 410 400 PRINT:PEN 6:PRINT:PRINT CHR$(24);" H igh score is";HS;CHR$(24);
410 LOCATE 1,20:PEN 3:PRINT"PRESS Cl] HA RD GAME PRESS [2] EASY GAME":PEN 1
420 X$=INKEY$:IF X$<>"" THEN 420
430 X$=INKEY$:IF X$<>"1" AND X$<>"2" THE
N	430
440 IF X$="1" THEN SK=0.7:B=8 ELSE SK= 0.85 :B=4
450 CLS
460 MODE 0:BORDER 0:INK 0,0:INK 1,16:IN
2,24:INK 3,20:INK 4,18:INK 5,8:INK 6,6 :INK 7,21:INK 8,0,24:PAPER 0:PEN 1 470 PEN 1: FOR F=1 TO 21:LOCATE 1,F+1:PR INT CHR$(231);:LOCATE 20,F+1:PRINT CHR$ ( 231);:NEXT F
480 FOR F=1 TO 18:LOCATE F+1,2:PRINT CHR
(231);:LOCATE F+1,22:PRINT CHR$(231);:N EXT
490 FOR G=1 TO B:S=INT(RND*9)+1:F=INT(S+ (RND*7)):X=2*INT (RND*4)+1:IF F>17 THEN F=17
500 FOR Y=S TO F:LOCATE Y+1,X+1:PRINT CH R$(231);
510 NEXT Y
520 S=INT(RND*17)+2:F=INT(S+(RND*10)):X= INT(RND*8.75)*2+2:IF F>20 THEN F=20
530 FOR Y=S TO F:LOCATE X+1,Y+1:PRINT CH R$(231);:NEXT Y:NEXT G
540 PEN 2:FOR F=1 TO 12
550 Y=INT(RND*I8)+2:X=INT(RND*17.5)+1 560 LOCATE X+1,Y+1:CALL 360: KY=PEEK(367 ):IF KY <> 32 THEN 550
570 LOCATE X+1,Y+1:PRINT CHR$ (235) ; : NEXT F
580 PEN 6: FOR F=1 TO 6
590 Y=(RND*18)+2:X=(RND*11.25)+2
600 LOCATE X+1,Y+1:CALL 360: KY=PEEK(367 ):IF KY <> 32 THEN 590
610 LOCATE X4-1,Y+1:PRINT CHR$(236);:NEXT