0 PRINT"[184]%[146]A)[187]E[146]A)[146]HE[191] [146]@9[146]@[208]Y[146]@0[200][208][183][174][146]OD[174][146]RD[198][191][208][171]%[146]AIDE[146]A[216])[146]\M[146]X";
1 PRINT"[208] [146] 9[146]:DY[191][146]2H[208][183]L[146]![208][146][160]<[190]YY[191]=[195][146][190]@@[190][191]+[191][191][191][146]XX[190][190]XXX<[189]?[183]?[189][183]=[191]":SYS4^5
2 O=53280:POKEO,0:M=2:X=19:P=1E3:FORL=1TO25:POKEO-15,0:DIMF(38,25):RESTORE:Y=24
3 READF$,T$:FORW=69-3*LTO159:A=37*RND(1)+1:B=20*RND(0)+3:F(A,B)=1:NEXT:F(A,B)=5
4 N=0:FORA=1TO8:READC,A$:FORB=1TOC:PRINTA$;:NEXT:NEXT:POKE1984+X,96:FORI=1TO37
5 F$=F$+"[163]":NEXT:V=-1:PRINT"":FORI=1TO22:PRINTF$:NEXT:FORI=0TOL:A=37*RND(0)+1
6 POKE211,A:POKE214,22*RND(1)+2:SYS58640:PRINT"[158][161]":NEXT:POKEO-15,27:DATA" [149][146]"
7 ON-(P<0)GOTO19:L$=RIGHT$(STR$(L+1E2),2):P$=RIGHT$(STR$(INT(P)+1E6),6)
8 P=P-.1:PRINT"[156]MINES:"N"[146]LEVEL:"L$"[156]SCORE:"P$" TOMS:"M:Q=FRE(0)
9 J=PEEK(56320):ON-(J=127)GOTO7:S=0:R=-1:ON-(J=123)GOTO11:R=1:ON-(J=119)GOTO11
10 R=0:S=-1:ON-(J=126)GOTO11:S=1:ON(J=125)+2GOTO11,7:DATA"GAME OVER",1,"[147]"
11 H=1024+40*(Y+S)+X+R:ON-(PEEK(H)=WORY+S>23)GOTO9:IFPEEK(H)=98THENP=P-50
12 POKE1024+40*Y+X,32:X=X+R:Y=Y+S:P=P+333*ABS(PEEK(H)=97):V=-V:POKEH,96
13 POKE54272+H,5:POKE54296,V+1:ON-(Y=1)GOTO17:P=P-1:IFF(X,Y)<>1THEN15
14 F(X,Y)=0:POKEH,98:POKE54272+H,15:X=19:Y=24:M=M-1:ONM+2GOTO19:POKE1984+X,96
15 N=F(X-1,Y)+F(X+1,Y)+F(X,Y-1)+F(X,Y+1):DATA18," ",2,"[146] ",18," ",23," [157]",19
16 N=N+5*(N>3):ON-(F(X,Y)<2)GOTO7:F(X,Y)=0:M=M+1:FORI=1TOW:POKEO,I/5:NEXT:GOTO7
17 POKE198,1:WAIT198,1:POKEO,1:P=P+2000:POKE49,PEEK(47):POKE50,PEEK(48):POKEO,0
18 NEXT:ON-(P<10^5)GOTO19:T$="[150][157][157][157][157]*CONGRATULATIONS*":DATA" [157][157]",2,"[157]",18," [157][157]"
19 PRINT"",""T$,,,"[159]PRESS ANY KEY!":POKE198,0:WAIT198,1:RUN2