0 DIMF$(41,21):POKE53280,0:POKE53281,0:POKE646,3:GR=0.95:GOTO2
1 FORI=1TO40:FORJ=1TO20:PU=PU-((F$(I,J)=" ")*2)-((F$(I,J)="=")*3):NEXTJ:NEXTI
2 GR=GR-0.05:FORI=1TO40:FORJ=1TO20:F$(I,J)=" ":IFRND(TI)>GRTHENF$(I,J)="X"
3 NEXTJ:NEXTI:F$(1,1)="0":F$(1,2)=" ":F$(2,1)=" ":F$(2,2)=" ":X=1:Y=1
4 F$(40-INT(RND(TI)+.5),20-INT(RND(TI)+.5))=" ":F$(40,20)="*":PRINT"[147]":POKE1024,48
5 POKE1024,PEEK(1024)OR128:POKE1823,42:PO$=""
6 PRINTPO$;"PUNKTE: ";PU:POKE198,0:WAIT198,1:GETA$:IFA$="H"THENS=1:GOTO6
7 XN=X-(A$="M")-(A$="J")-(A$="U")+(A$="B")+(A$="G")+(A$="T")
8 YN=Y-(A$="B")-(A$="N")-(A$="M")+(A$="T")+(A$="Y")+(A$="U")
9 IF((XN>40)OR(XN<1)OR(YN>20)OR(YN<1))THENS=0:GOTO6
10 IF((S=1)AND(F$(XN,YN)="X"))THENF$(XN,YN)="=":S=0:POKE1024+(YN-1)*40+XN-1,61:GOTO6
11 IF((S=1)AND(F$(XN,YN)="="))THENF$(XN,YN)="X":S=0:POKE1024+(YN-1)*40+XN-1,32:GOTO6
12 IF((S=1)AND(F$(XN,YN)=" "))THENF$(XN,YN)="G":S=0:POKE1024+(YN-1)*40+XN-1,61:GOTO6
13 IF((S=1)AND(F$(XN,YN)="G"))THENF$(XN,YN)=" ":S=0:POKE1024+(YN-1)*40+XN-1,32:GOTO6
14 IF((S=1)OR(F$(XN,YN)="=")OR(F$(XN,YN)="G"))THENS=0:GOTO6
15 IFF$(XN,YN)="X"THENFORI=0TO39:FORJ=0TO19:POKE1024+J*40+I,ASC(F$(I+1,J+1)):NEXTJ:NEXTI:END
16 LA=1024+(Y-1)*40+X-1:AK=1024+(YN-1)*40+XN-1:IF(F$(XN,YN)="*")THENPOKE1823,32:GOTO1
17 FORI=-1TO1:FORJ=-1TO1:IF((F$(XN+I,YN+J)="X")OR(F$(XN+I,YN+J)="="))THENAN=AN+1
18 NEXTJ:NEXTI:POKELA,PEEK(LA)AND127:X=XN:Y=YN:IF(F$(X,Y)=" ")THENPU=PU+1
19 F$(X,Y)=CHR$(48+AN):POKE1024+(Y-1)*40+X-1,AN+48:POKEAK,PEEK(AK)OR128:AN=0:GOTO6