1 RANDOMIZE : OVER 0: BORDER 2: INK 7: PAPER 4: BRIGHT 1: CLS : LET y=3: LET x=1: LET oy=5: LET ox=0: LET m=21+INT (RND*21): LET w=0: PRINT #0; PAPER 2;m;"MINEN": FOR z=1 TO m: PRINT AT 1+RND*20,RND*30; INK 4;"*": NEXT z: LET y2=INT ( 10+RND*11): LET x2=INT (15+RND*10): PRINT PAPER 3;AT y2,x2;"""";AT 0,25; PAPER 1;"AUSGANG"

2 RESTORE 2: IF w=1 AND y=1 AND x>24 THEN FOR z=1 TO 4: READ a,b: BEEP a,b: NEXT z: GO TO 1: DATA .3,5,.3,8,.2,11,.3,5

3 IF y=y2 AND x=x2 THEN BORDER 3: PRINT AT y2,x2; PAPER 7;"": LET w=1

4 LET x=x+(INKEY$="p")*(x<31)-(INKEY$="o")*(x>0): LET y=y+(INKEY$="a")*(y<21)-(INKEY$="q")*(y>1): IF ATTR (y,x-1)=100 OR ATTR (y,x+1)=100 OR ATTR (y-1,x)=100 OR ATTR (y+1,x)=100 THEN PRINT #0; PAPER 2;AT 1,13;"MEINS!": BEEP .4,44: PRINT #0;AT 1,13; PAPER 2;"      "
5 IF ATTR (y,x)=214 OR ATTR (y,x)=100 THEN PRINT AT oy,ox; INVERSE 1;"""": FOR z=0 TO 9: BORDER 0: BEEP .05,-22: BORDER 2: NEXT z: PAPER 7: INK 0: OVER 1: FOR z=0 TO 21: PRINT AT z,0,,: NEXT z: FOR z=0 TO 444: NEXT z: GO TO 1

6 IF oy<>y OR ox<>x THEN PRINT AT oy,ox; INK 0;" ";AT y,x; PAPER 7; INK 0;"""": LET oy=y: LET ox=x

7 LET z=RND*99: IF z>94 THEN PRINT AT y,x; PAPER 7;" ": FOR z=1 TO 9: NEXT z: PRINT AT y,x; INK 0; PAPER 7;""""

8 IF w=0 AND z<7 THEN PRINT AT y2,x2; PAPER 3;" ": FOR z=1 TO 9: NEXT z: PRINT AT y2,x2; INK 0; PAPER 3; INK 7;""""

9 LET z=RND*99: IF z>89 THEN PRINT AT RND*21,RND*31; PAPER 2; INK 6; FLASH 1;"\::"
10 GO TO 2
