10 POKE530,1:DIMA(1):A(1)=32:A(0)=187 20 INPUT" WIEVIELE SPIELER";N:DIMF(4,4,N-1) 30 DIMP(N-1) 40 FORI=1TO28:PRINT:NEXTI 50 FORI=54112TO54271:POKEI,32:NEXTI 60 FORI=1TO3:READA,B,C 70 FORJ=ATOBSTEPC:POKEJ,161:NEXTJ,I 80 DATA54117,53344,-32,53349,53371,1,53371,54139,32 90 A=161:C=32:D=4.9:G=64:H=191:U=127:W=18 100 POKE54223,46 110 P=53479:Q=54150:R=53382:Z=57088:AA=54218 120 FORBB=1TO4 130 FORI=0TO4:FORJ=0TO4:S=P+G*I+4*J:FORK=STOS+2 140 POKEK,A(F(I,J,V)):NEXTK:POKEK,C:NEXTJ,I 150 POKE54224,V+49:X=INT(20*RND(1)):Y=12 160 POKE54222,48+BB 170 I=2*INT(2*RND(1))-1:J=1:B=9 180 FORK=Q+BTOQ+B+2:POKEK,A:NEXTK:POKER+C*Y+X,A:POKEK,C:POKEK-4,C 190 O=Y/2-1:T=X/4:L=O+(J-1)/4:M=T+(I-1)/8:E=0:F=0 200 A$=STR$(P(V)):FORK=1TO2 210 POKEAA-K,ASC(RIGHT$(A$,K)):NEXTK 220 IFI<0ANDX<1ORI>0ANDX>19THENE=1 230 IFY=23ANDABS(X-B-1)<2ORY=0THENF=1 240 IFL<0ORL>DORM>DGOTO320 250 IFM<0THENM=0 260 IFF(L,M,V)=1GOTO320 270 F(L,M,V)=1:S=P+G*INT(L)+4*INT(M) 280 P(V)=P(V)+5-INT(L) 290 FORK=STOS+2:POKEK,C:NEXTK 300 IFT=INT(T)THENE=1 310 IFO=INT(O)THENF=1 320 IFE=1THENI=-I:POKEZ,0:POKEZ,U 330 IFF=1THENJ=-J:POKEZ,0:POKEZ,U 340 POKEZ,H:K=PEEK(Z):IFK=UANDB>0THENB=B-1 350 IFK=HANDB28GOTO380 370 POKER+C*Y+X,C:X=X+I:Y=Y+J:GOTO180 380 V=V+1:BB=BB-1:IFV=NTHENV=0:BB=BB+1 390 FORK=Q+B-1TOQ+B+3:POKEK,C:NEXTK,BB 400 FORK=0TO28:PRINT:NEXT 410 FORK=54112TO54271:POKEK,C:NEXT 420 FORK=1TON 430 PRINT:PRINT"SPIELER"K"HAT"P(K-1)"PUNKTE" 440 NEXTK 450 PRINT:PRINT:PRINT:PRINT 999