1 POKE53280,12:POKE53281,12:PRINT"[147]SPIELER:"TAB(20)"COMPUTER:":DIMA(8,8)
2 FORI=1TO8:FORJ=1TO8:A(I,J)=INT(RND(0)*99)+1:IFA(I,J)<10THENPRINT" ";:B=1021
3 PRINTA(I,J);:NEXT:PRINT"":NEXT:X=INT(RND(0)*8)+1:Y=INT(RND(0)*8)+1:F=55293
4 L=7:GOSUB19:GETJ$:IFJ$=CHR$(13)ANDA(Y,X)<>0THENS=S+A(Y,X):PRINT"[155]"TAB(8)S
5 IFJ$=CHR$(13)ANDA(Y,X)<>0THENA(Y,X)=0:L=6:GOSUB19:GOSUB20:GOTO9
6 IFJ$=""THENL=6:GOSUB19:Y=Y+1:IFY=9THENY=1
7 IFJ$="[145]"THENL=6:GOSUB19:Y=Y-1:IFY=0THENY=8
8 GOTO4
9 J=-100:FORI=1TO8:E=A(Y,I):IFE=0THEN15
10 H=0:FORM=1TO8:IFM=YTHEN14
11 Z=A(M,I):IFZ=0THEN14
12 IFZ>HTHENH=Z
13 G=E-H
14 NEXTM:IFG>JTHENJ=G:K=I
15 NEXTI:T=T+A(Y,K):A(Y,K)=0:PRINT"[155]"TAB(29)T:X=K:L=7:GOSUB19:FORI=1TO999:NEXT
16 GOSUB20:Q=0:FORI=1TO8:IFA(I,X)=0THENQ=Q+1
17 NEXT:IFQ=8THENEND
18 GOTO4
19 C=Y*80+X*4+F:POKEC,L:POKEC+1,L:RETURN
20 C=Y*80+X*4+B:POKEC,45:POKEC+1,45:RETURN