1 FORX=0TO5:READFA(X):NEXT:DATA2,7,5,6,1,11:INPUT"[147]FARBE / SW ";A$:SW=(A$="S")
2 POKE53281,0:POKE53280,0:PRINT"[153][147]":FORX=2TO14STEP2:FORY=4TO16:POKE198,0
3 POKE1024+X+40*Y,160:POKE55296+X+40*Y,11:NEXTY,X:FORY=4TO16STEP2:FORX=3TO13
4 POKE1024+X+40*Y,160:POKE55296+X+40*Y,11:NEXTX,Y:FORF=1TO6:FORD=0TO5
5 X=INT(6*RND(1)):Y=INT(6*RND(1)):P=1227+2*X+80*Y:IFPEEK(P)<>32THEN5
6 FE(X,Y)=F:IFSW=0THENPOKEP,81:POKE54272+P,FA(F-1):NEXTD,F:GOTO8
7 POKEP,F+48:POKEP+54272,1:NEXTD,F
8 FORD=0TO35:SP=D-2*INT(D/2):PRINT"[151][152]SPIELER:"SP+1
9 XP=1707+P(0)*2:YP=1239+P(1)*80:POKEXP,30:POKEYP,31:POKEXP,32:POKEYP,32:GETA$
10 IFA$<>" "THENONABS(A$<>""ANDA$<>"")GOTO9:P(SP)=P(SP)+1+2*(A$="")
11 P(SP)=ABS(P(SP)):IFP(SP)>5THENP(SP)=4
12 ONABS(A$<>" ")GOTO9:ONABS(FE(P(0),P(1))=0)GOTO9:CO=FE(P(0),P(1))-1
13 BE(SP,CO)=BE(SP,CO)+1:FE(P(0),P(1))=0:POKE1227+2*P(0)+80*P(1),32
14 P=1644+SP*10+CO-40*BE(SP,CO):POKEP,CO+49:POKEP+54272,FA(CO)
15 IFSP=1THENFORC=0TO5:IFFE(C,SP(1))=0THENNEXT:WI=2:GOTO18
16 FORC=0TO5:IFFE(SP(0),C)=0THENNEXT:WI=1:GOTO18
17 NEXTD:GOTO19
18 IFWI>0THENPRINT"[150]GEWINNER:"WI"[157]DURCH MATT.":POKE198,0:WAIT198,1:RUN
19 FORS=0TO1:FORF=1TO6:S(S)=S(S)+2^BE(S,F-1):NEXTF,S:PRINT"[153]"S(0);
20 PRINTCHR$(60-2*(S(0)>S(1))-(S(0)=S(1)));S(1):POKE198,0:WAIT198,1:RUN