10 REM MENSCH AEGRERE DICH NICHT               TEIL III
100 REM DIMENSIONIEREN
110 POKE657,128:POKE774,226:POKE775,252
120 V=53248:POKEV+21,0
130 DIMS(4),NA$(4),ST(16),D(4),F$(4),F(4),DR(4),Z(16),B(16),ZF(16)
140 DIMPO(75),GE(75),FA(75)
150 PRINT"[147]"
160 FORI=1TO16:Z(I)=3:NEXT
170 D(1)=4:D(2)=4:D(3)=4:D(4)=4
180 REM ZEICHENVERSCHIEBUNG
190 FORI=51200TO51252
200 READX:POKEI,X:S=S+X:NEXT
210 DATA120,165,1,72,41,251,133,1,169,208,133,3
220 DATA169,48,133,5,160,0,132,2,132,4,162,32
230 DATA177,2,145,4,200,208,249,230,3,230,5,202
240 DATA208,242,104,133,1,173,24,208,41,241,9,12
250 DATA141,24,208,88,96
260 SYS51200
270 REM EINGABEMODUS
280 POKE53280,0:POKE53281,0:T=20
290 REM BUCHSTABENAENDERUNGEN
300 FORI=0TO2
310 READAS
320 FORX=0TO7
330 READDA
340 POKE12288+8*AS+X,DA
350 NEXTX:NEXTI
360 DATA27,219,60,102,126,102,102,102,0
370 DATA85,102,0,102,102,102,102,60,0
380 DATA29,102,60,102,102,102,102,60,0
390 N=0:C=0
400 FORI=1TO4:READF$(I),F(I):NEXT
410 DATA"YEL.",7,"BLUE",6,"GREEN",5,"RED",2
420 PRINT"[147]         WE [129]PRESENTS"
430 FORA=0TO20:GOSUB630:NEXT:T=700
440 PRINT"[155]       MENSCH [RGERE DICH NICHT"
450 FORA=0TO20:FORZ=1TO15:POKE1231+54272+INT(25*RND(1)),Z:NEXT:NEXT
460 PRINT"[158]              NOTATION:   "
470 PRINT"             [195][195][195][195][195][195][195][195][195][195][192][192]    "
480 PRINT" THIS GAME IS SET UP BY THE RULES,"
490 PRINT"            BY WHICH I"
500 PRINT"       MENSCH [RGERE DICH NICHT[158]"
510 PRINT"                PLAY"
520 PRINT" -THERE COULD BE DIFFERENT OPINIONS"
530 PRINT"SPACE[146]"
540 POKE198,0:WAIT198,1
550 PRINT"[147][155]              RE-MARKS "
560 PRINT"             [192][192][192][192][192][192][192][192][192][192][192][155]
570 [153]"*DICE ARE THROWN WITH SPACEWAIT."
580 [153]"*THE COMPUTER PLAYER THROWS AND DRAWS   BY IT-SELF...."
590 [153]"*THE PAWN IS CHOSEN WITH SPACEWAIT          AND DRAWN WITH RETURNWAIT"
600 [153]"THAT IS IT - THE REST IS DONE BY THE COMPUTER."
610 [153]"SPACEWAIT"
620 T[178]2000:[151]198,0:[146]198,1:[137]640
630 [129]B[178]0[164]T:[130]:[153]"";:[142]
640 [153]"LOAD"
650 N[178]0:C[178]0:A$[178]""
660 [129]I[178]1[164]4
670 [151]53280,F(I):[153]"LOAD   WOULD A PLAYER LIKE ";F$(I);"  YWAIT/NWAIT"
680 [161]A$:[139]A$[178]""[167]680
690 [139]A$[178]"Y"[167]N[178]N[170]1:S(I)[178]2:[137]810
700 [139]A$[178]"N"[167]720
710 [137]680
720 [153]"  SHALL THE COMPUTER TAKE PLAYERS":[153][166]9);"PLACE?? YWAIT/NWAIT
730 GETA$:IFA$=""THEN730
740 IFA$="Y"THENC=C+1:S(I)=1:ON C GOTO770,780,790,800
750 IFA$="N"THEN:S(I)=0:GOTO850
760 GOTO730
770 NA$(I)="COMPUTER 1":GOTO850
780 NA$(I)="COMPUTER 2":GOTO850
790 NA$(I)="COMPUTER 3":GOTO850
800 NA$(I)="COMPUTER 4":GOTO850
810 PRINT" PLEASE ENTER THE NAME OF PLAYER":PRINT"      ";
820 PRINT"-NOT MORE THEN 10 LETTERS!    "
830 POKE19,64:INPUTNA$:POKE19,0
840 NA$(I)=LEFT$(NA$,10)
850 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]":NEXT:POKE53280,0
860 IFN+C<2THENPRINT"[147]2 PLAYERS ARE NEEDED!!":YOU=1:GOTO880
870 PRINT"[147]":GOTO890
880 FORZ=1TO1000:NEXT:GOTO640
890 PRINT"[147]":FORQ=1TO4
900 IFS(Q)=0THENNA$(Q)="NOT USED"
910 PRINT"PLAYER";Q;": ";NA$(Q)
920 NEXT
930 PRINT"IS THIS CORRECT?? Y/N";
940 GETA$:IFA$=""THEN940
950 IFA$="Y"THENPRINT"[157][157][157][157][157]!    ":GOTO980
960 IFA$="N"THENRUN
970 GOTO940
980 REM ZEICHENAENDERUNGEN
990 FORI=0TO27
1000 READAS
1010 FORX=0TO7
1020 READDA
1030 POKE12288+8*AS+X,DA
1040 NEXTX:NEXTI
1050 DATA35,0,0,0,7,31,63,127,127
1060 DATA36,0,0,0,224,248,252,254,254
1070 DATA37,127,127,63,31,7,0,0,0
1080 DATA38,254,254,252,248,224,0,0,0
1090 DATA81,0,0,0,7,24,32,64,64
1100 DATA82,0,0,0,224,24,4,2,2
1110 DATA83,64,64,32,24,7,0,0,0
1120 DATA84,2,2,4,24,224,0,0,0
1130 DATA86,1,7,15,15,15,7,3,3
1140 DATA87,128,224,240,240,240,224,192,192
1150 DATA88,7,7,15,15,31,31,15,0
1160 DATA89,224,224,240,240,248,248,240,0
1170 DATA39,0,0,0,7,31,62,124,122
1180 DATA40,0,0,0,224,248,124,62,94
1190 DATA41,126,126,62,31,7,0,0,0
1200 DATA42,126,126,124,248,224,0,0,0
1210 DATA68,0,0,0,7,31,63,127,124
1220 DATA69,0,0,0,224,248,124,190,30
1230 DATA70,124,127,63,31,7,0,0,0
1240 DATA71,30,190,124,248,224,0,0,0
1250 DATA72,0,0,0,7,31,62,126,126
1260 DATA73,0,0,0,224,248,124,126,126
1270 DATA74,122,124,62,31,7,0,0,0
1280 DATA75,94,62,124,248,224,0,0,0
1290 DATA76,0,0,0,7,31,62,125,120
1300 DATA77,0,0,0,224,248,252,254,30
1310 DATA78,120,125,62,31,7,0,0,0
1320 DATA79,30,254,252,248,224,0,0,0
1330 REM BILDAUFBAU
1340 PRINT"[147]MENSCH";SPC(8);"[RGERE":PRINT"DICH";SPC(11);"NICHT"
1350 PRINT"":PO(0)=1532
1360 FORI=1TO16:READPO:READFA:PO(I)=PO:FA(I)=FA
1370 IFS(INT((I-1)/4)+1)=0THENGE(I)=35:GOTO1390
1380 GE(I)=86
1390 NEXT
1400 GE=81:FA=12
1410 FORI=17TO56:READPO:PO(I)=PO:GE(I)=GE:FA(I)=FA
1420 NEXT
1430 GE=35
1440 FORI=57TO72:READPO:READFA:PO(I)=PO:GE(I)=GE:FA(I)=FA
1450 NEXT
1460 GE(17)=72:FA(17)=7
1470 GE(27)=76:FA(27)=6
1480 GE(37)=39:FA(37)=5
1490 GE(47)=68:FA(47)=2
1500 FORI=1TO72
1510 POKEPO(I),GE(I):POKEPO(I)+54272,FA(I)
1520 POKEPO(I)+1,GE(I)+1:POKEPO(I)+54273,FA(I)
1530 POKEPO(I)+40,GE(I)+2:POKEPO(I)+54312,FA(I)
1540 POKEPO(I)+41,GE(I)+3:POKEPO(I)+54313,FA(I)
1550 NEXT
1560 FORI=1TO16:GE(I)=35:NEXT
1570 FORI=1090TO1930STEP40:POKEI,93:POKEI+54272,5:NEXT
1580 POKE1650,107:FORI=1651TO1663:POKEI,67:POKEI+54272,5:NEXT
1590 DATA1162,7,1165,7,1242,7,1245,7,1722,6,1725,6,1802,6,1805,6
1600 DATA1707,5,1710,5,1787,5,1790,5,1147,2,1150,2,1227,2,1230,2,1078
1610 DATA1158,1238,1318,1398,1400,1402,1404,1406,1486,1566,1564,1562,1560,1558
1620 DATA1638,1718,1798,1878,1876,1874,1794,1714,1634,1554,1552,1550,1548,1546
1630 DATA1466,1386,1388,1390,1392,1394,1314,1234,1154,1074,1076
1640 DATA1156,7,1236,7,1316,7,1396,7,1484,6,1482,6,1480,6,1478,6
1650 DATA1796,5,1716,5,1636,5,1556,5,1468,2,1470,2,1472,2,1474,2
1660 REM GRUNDSTELLUNGEN
1670 FORI=1TO16:ST(I)=I:NEXT
1680 V=53248:POKEV+16,126
1690 POKE2040,184:POKEV+39,1
1700 POKEV+23,126:POKEV+29,126
1710 FORZ=2TO12STEP2:POKEV+Z,15:POKEV+Z+1,195:POKEV+39+Z/2,15
1720 POKE2040+Z/2,184+Z/2:NEXT
1730 POKE211,30:POKE214,2:SYS58640:PRINT"MENSCH":PRINT"[157][157][157][157][157][157][157][157][157][157][152][RGERE"
1740 PRINT"[157][157][157][157][157][157][157][157][157][152]DICH":PRINT"[157][157][157][157][157][157][157][157][157][157][151]NICHT!";""
1750 PRINT
1760 FORZ=0TO6
1770 FORN=0TO62:READQ:POKE11776+Z*64+N,Q:NEXT:NEXT
1780 DATA63,255,252,32,0,4,32
1790 DATA0,4,32,0,4,32,0
1800 DATA4,32,0,4,32,0,4
1810 DATA32,0,4,32,0,4,32
1820 DATA0,4,32,0,4,32,0
1830 DATA4,32,0,4,32,0,4
1840 DATA32,0,4,32,0,4,32
1850 DATA0,4,32,0,4,32,0
1860 DATA4,32,0,4,63,255,252
1870 DATA7,255,254,15,255,253,31
1880 DATA255,251,63,255,247,127,255
1890 DATA239,0,0,31,127,255,223
1900 DATA127,255,223,127,255,223,127
1910 DATA255,223,127,255,223,127,255
1920 DATA223,127,31,223,127,31,223
1930 DATA127,31,223,127,255,223,127
1940 DATA255,222,127,255,220,127,255
1950 DATA216,127,255,208,127,255,192
1960 DATA7,255,254,15,255,253,31
1970 DATA255,251,63,255,247,127,255
1980 DATA239,0,0,31,127,255,223
1990 DATA127,248,223,127,248,223,127
2000 DATA248,223,127,255,223,127,255
2010 DATA223,127,255,223,127,255,223
2020 DATA127,255,223,127,255,223,127
2030 DATA255,222,99,255,220,99,255
2040 DATA216,99,255,208,127,255,192
2050 DATA7,255,254,15,255,253,31
2060 DATA255,251,63,255,247,127,255
2070 DATA239,0,0,31,127,255,223
2080 DATA127,248,223,127,248,223,127
2090 DATA248,223,127,255,223,127,255
2100 DATA223,127,31,223,127,31,223
2110 DATA127,31,223,127,255,223,127
2120 DATA255,222,99,255,220,99,255
2130 DATA216,99,255,208,127,255,192
2140 DATA7,255,254,15,255,253,31
2150 DATA255,251,63,255,247,127,255
2160 DATA239,0,0,31,127,255,223
2170 DATA99,248,223,99,248,223,99
2180 DATA248,223,127,255,223,127,255
2190 DATA223,127,255,223,127,255,223
2200 DATA127,255,223,127,255,223,127
2210 DATA255,222,99,248,220,99,248
2220 DATA216,99,248,208,127,255,192
2230 DATA7,255,254,15,255,253,31
2240 DATA255,251,63,255,247,127,255
2250 DATA239,0,0,31,127,255,223
2260 DATA99,248,223,99,248,223,99
2270 DATA248,223,127,255,223,127,255
2280 DATA223,127,31,223,127,31,223
2290 DATA127,31,223,127,255,223,127
2300 DATA255,222,99,248,220,99,248
2310 DATA216,99,248,208,127,255,192
2320 DATA7,255,254,15,255,253,31
2330 DATA255,251,63,255,247,127,255
2340 DATA239,0,0,31,127,255,223
2350 DATA99,248,223,99,248,223,99
2360 DATA248,223,127,255,223,127,255
2370 DATA223,99,248,223,99,248,223
2380 DATA99,248,223,127,255,223,127
2390 DATA255,222,99,248,220,99,248
2400 DATA216,99,248,208,127,255,192
2410 REM STECHEN
2420 REM IFPEEK(PO(K))<>18THENSYS64738
2430 POKE211,0:POKE214,24:SYS58640
2440 PRINT"LET'S THROW DICE TO BEGIN[145]":FORI=1TO1000:NEXT
2450 A=INT(RND(1)*4+3):G=INT(4*RND(1))+1
2460 IFS(G)=0THEN2450
2470 FORQ=1TO4:J=Q
2480 IFS(Q)=0THEN2550
2490 POKE646,F(Q):PRINT"    ";NA$(Q);" IS DUE!            [145]":POKEV+21,0
2500 IFS(Q)=1THENFORI=1TO1000:NEXT:GOTO2520
2510 POKE198,0:WAIT198,1
2520 IFQ=GTHENW=A:GOSUB2870:GOTO2550
2530 W=RND(1)*A:W=INT(W):IFW=0THENW=1
2540 GOSUB2870
2550 NEXT
2560 POKEV+21,0
2570 POKE646,F(G):PRINT"    ";NA$(G);" IS THE WINNER!        [145]"
2580 FORI=1TO800:NEXT
2590 J=G:GOTO2640
2600 REM SPIELSCHLEIFE
2610 J=0
2620 J=J+1:IFJ=5THENJ=1
2630 IFS(J)=0THEN2620
2640 IFD(J)=4THENGOSUB3360:GOTO2720
2650 IFD(J)<4ANDDR(J)>0ANDD(J)+DR(J)=4THEN2670
2660 GOTO2710
2670 SP=0:FORI=56+4*JTO56+4*J+1-DR(J)STEP-1
2680 IFPEEK(PO(I))=86THENSP=SP+1
2690 NEXT
2700 IFSP=DR(J)THENGOSUB3360:GOTO2720
2710 GOSUB2800:AS=0
2720 IFWU=6THENGOSUB3470
2730 IFWU=6THENGOSUB3470
2740 IFWU=6THENGOSUB3470
2750 IFAS=1THENAS=0:GOTO2620
2760 GOSUB2950
2770 IFS(J)=1THENGOSUB3700
2780 IFS(J)=2THENGOSUB3130
2790 GOTO2620
2800 REM WUERFELN
2810 POKE646,F(J):POKEV+21,0
2820 PRINT"                  [145]"
2830 PRINTNA$(J);" YOUR TURN!               [145]":W=INT(6*RND(1))+1
2840 WU=W
2850 IFS(J)=1THENFORI=1TO1200:NEXT:GOTO2870
2860 IFJ<>3THENPOKE198,0:WAIT198,1
2870 SI=54272:POKE54277,5:POKE54278,0:POKE54296,15
2880 FORZ=1TO8:FORT=1TO50:NEXT
2890 POKE54279,100:POKESI+8,8:POKESI+12,0:POKESI+11,129:POKESI+13,16:POKESI+4,0
2900 POKESI+1,6:POKESI+4,129:POKESI+24,15:POKESI+24,15:POKESI+11,0:NEXT
2910 POKEV+21,2^W
2920 POKE54276,0:POKE54277,0:POKE54278,0
2930 FORI=1TO1000:NEXT
2940 RETURN
2950 REM FIGUREN SPERREN
2960 FORI=(J-1)*4+1TOJ*4:Z(I)=3
2970 IFST(I)<17THENZ(I)=0:GOTO3110
2980 IFJ=1THEN3010
2990 IFST(I)+WU>56ANDST(I)<=56THENW=WU-40:GOTO3010
3000 IFST(I)+WU>J*10+6ANDST(I)<=J*10+6THENW=WU+46-6*J
3010 IFST(I)+W>56+J*4THENZ(I)=0:GOTO3110
3020 IFRS=1THENRETURN
3030 IFST(I)<=56ANDST(I)+W>56ANDST(I)+W<=56+J*4THENZ(I)=2
3040 FO=0:FORFI=1TO16
3050 IFST(I)+W=ST(FI)THENFO=FI
3060 NEXTFI:IFFO=0THEN3110
3070 F1=INT((I-1)/4)+1
3080 F2=INT((FO-1)/4)+1
3090 IFF(F1)=F(F2)THENZ(I)=0:GOTO3110
3100 IFST(I)+W<=56+J*4ANDZ(I)<>2THENZ(I)=1:ZF(I)=FO
3110 IFRS=1THENRETURN
3120 W=WU:NEXTI:RETURN
3130 REM EINGABE
3140 F=(J-1)*4
3150 IFZ(F+1)+Z(F+2)+Z(F+3)+Z(F+4)=0THEN4660
3160 S=0:FORQ=1TO4
3170 IFZ(F+Q)<>0THENS=S+5
3180 NEXT
3190 IFS>5THEN3220
3200 FORQ=1TO4:IFZ(F+Q)<>0THENA$=CHR$(13):F=(J-1)*4+Q:GOTO3300
3210 NEXT
3220 POKE646,F(J):PRINT"CHOOSE PAWN: SPACE[146]   MOVE : RETURN[146][145]"
3230 T=T+1:IFT>=5THENT=1
3240 F=(J-1)*4+T
3250 IFZ(F)=0THEN3230
3260 Y=(INT((PO(ST(F))-1024)/40)+1)*8
3270 X=(PO(ST(F))-983-5*Y)*8
3280 POKEV,X+12:POKEV+1,Y+40:POKEV+21,1+2^WU
3290 GETA$:IFA$=""THEN3290
3300 IFA$=CHR$(13)THENPOKEV+21,0:GOTO3330
3310 IFA$=" "THENW=WU:POKEV+21,2^WU:GOTO3230
3320 GOTO3290
3330 PRINT"           [145]":RS=1:I=F:GOSUB2980:RS=0
3340 GOSUB4190
3350 RETURN
3360 REM 3-MAL WUERFELN
3370 IFS(J)=1THENFORI=1TO1000:NEXT:GOTO3380
3380 POKEV+21,0
3390 POKE646,F(J):PRINTNA$(J);" CAN THROW 3 TIMES!     [145]"
3400 FORI=1TO1300:NEXT
3410 FORQ=1TO3
3420 GOSUB2800
3430 IFS(J)=1ORQ=3THENFORI=1TO1000:NEXT:GOTO3440
3440 IFW=6THENGOSUB3470:RETURN
3450 NEXT
3460 AS=1:RETURN
3470 REM ANSETZEN
3480 AS=1
3490 FORF=(J-1)*4+1TO4*J
3500 IFST(F)<17THEN3520
3510 NEXT
3520 IFD(J)=0THEN4460
3530 W=1
3540 GOSUB2950:IFS(J)=2ANDD(J)=0THENGOSUB3130
3550 IFS(J)=1ANDD(J)=0THENGOSUB3700
3560 D(J)=D(J)-1:W=1
3570 POKE646,F(J):PRINTNA$(J);" MUST START!          [145]"
3580 FORFI=1TO16
3590 IFST(FI)=J*10+7THENZ(F)=1:ZF(F)=FI:GOTO3610
3600 NEXT
3610 GOSUB4190
3620 IFD(J)=0THENGOSUB2800:GOTO4460
3630 PRINT"FREE THE ARROW!                  [145]":GOTO3640
3640 FORI=1TO1000:NEXT:GOSUB2800
3650 GOSUB2950:IFZ(F)=0ANDS(J)=2THENGOSUB3130:GOTO3680
3660 IFZ(F)=0ANDS(J)=1THENGOSUB3700:GOTO3680
3670 GOSUB4190
3680 IFWU=6THENGOSUB2800:AS=0
3690 RETURN
3700 REM DENKPHASE
3710 W=WU:WU=W:F=(J-1)*4+1:GF=0
3720 IFZ(F)+Z(F+1)+Z(F+2)+Z(F+3)=0THEN4660
3730 FORI=FTOF+3
3740 IFZ(I)=0THENB(I)=0:GOTO3870
3750 RS=1:GOSUB2980:RS=0:B(I)=0
3760 SV=0:SN=0
3770 IFST(I)+W=17ANDD(1)<>0THENB(I)=1:GOTO3870
3780 IFST(I)+W=27ANDD(2)<>0THENB(I)=1:GOTO3870
3790 IFST(I)+W=37ANDD(3)<>0THENB(I)=1:GOTO3870
3800 IFST(I)+W=47ANDD(4)<>0THENB(I)=1:GOTO3870
3810 IFST(I)=17ANDD(1)<>0THENB(I)=30:GOTO3870
3820 IFST(I)=27ANDD(2)<>0THENB(I)=30:GOTO3870
3830 IFST(I)=37ANDD(3)<>0THENB(I)=30:GOTO3870
3840 IFST(I)=47ANDD(4)<>0THENB(I)=30:GOTO3870
3850 IFZ(I)=1THEN3890
3860 GOTO3970
3870 NEXT
3880 GOTO4130
3890 REM SCHLAGEN
3900 FORFI=1TO16
3910 IFI=FITHEN3930
3920 IFST(FI)=ST(I)+WTHEN3940
3930 NEXT
3940 B(I)=ST(I)-J*10
3950 IFB(I)<0THENB(I)=B(I)+40
3960 GOTO3870
3970 REM LAGE VORHER
3980 FORFI=1TO16
3990 IFI=FITHEN4010
4000 IFST(FI)+6>=ST(I)ANDST(FI)<ST(I)THENSV=SV+1
4010 NEXT
4020 B(I)=SV*5
4030 IFZ(I)=2THENB(I)=B(I)+50:GOTO3870
4040 REM LAGE NACHER
4050 FORFI=1TO16
4060 IFI=FITHEN4080
4070 IFST(FI)+6>=ST(I)+WANDST(FI)<ST(I)+WTHENSN=SN+1
4080 NEXT
4090 IFSN>SVTHENB(I)=2:GOTO3870
4100 IFSN=SVTHENB(I)=3:GOTO3870
4110 B(I)=4+(SV-SN)*3
4120 GOTO3870
4130 REM AUSWAHL
4140 W=WU:F=(J-1)*4+1:C=F
4150 FORI=F+1TOF+3:IFB(C)<B(I)THENC=I
4160 NEXT
4170 F=C:I=F:RS=1:GOSUB2980:RS=0:GOSUB4190
4180 RETURN
4190 REM ZUGPHASE
4200 IFZ(F)=1THENGOSUB4530
4210 IFST(F)<=56ANDST(F)+W>56THENDR(J)=DR(J)+1:WP=W:GOSUB2950:W=WP
4220 Y=(INT((PO(ST(F))-1024)/40)+1)*8
4230 X=(PO(ST(F))-983-5*Y)*8
4240 POKEV,X+12:POKEV+1,Y+40:POKEV+21,1
4250 FORZ=1TO300:NEXT
4260 POKEPO(ST(F)),GE(ST(F))
4270 POKEPO(ST(F))+54272,FA(ST(F))
4280 POKEPO(ST(F))+1,GE(ST(F))+1
4290 POKEPO(ST(F))+54273,FA(ST(F))
4300 POKEPO(ST(F))+40,GE(ST(F))+2
4310 POKEPO(ST(F))+54312,FA(ST(F))
4320 POKEPO(ST(F))+41,GE(ST(F))+3
4330 POKEPO(ST(F))+54313,FA(ST(F))
4340 IFST(F)<17THENST(F)=J*10+6
4350 POKEV+21,0
4360 Y=(INT((PO(ST(F)+W)-1024)/40)+1)*8
4370 X=(PO(ST(F)+W)-983-5*Y)*8
4380 POKEV,X+12:POKEV+1,Y+40:POKEV+21,1
4390 POKEPO(ST(F)+W),86:POKEPO(ST(F)+W)+54272,F(J)
4400 POKEPO(ST(F)+W)+1,87:POKEPO(ST(F)+W)+54273,F(J)
4410 POKEPO(ST(F)+W)+40,88:POKEPO(ST(F)+W)+54312,F(J)
4420 POKEPO(ST(F)+W)+41,89:POKEPO(ST(F)+W)+54313,F(J)
4430 ST(F)=(ST(F)+W)
4440 IFDR(J)=4THENGOSUB4770
4450 FORZ=1TO300:NEXT:POKEV+21,0:RETURN
4460 REM NOCHMAL WUERFELN
4470 GOSUB2950
4480 IFS(J)=2THENGOSUB3130
4490 IFS(J)=1THENGOSUB3700
4500 IFWU=6ANDD(J)<>0THENGOSUB3470:GOTO2620
4510 IFWU=6THENGOSUB2800:WU=W:GOTO4460
4520 RETURN
4530 REM SCHLAGEN
4540 WS=W:FF=F:F=ZF(F)
4550 J=INT((F-1)/4)+1:D(J)=D(J)+1
4560 W=F-ST(F)
4570 POKE54276,0:POKE54277,0:POKE54278,0
4580 FORX=15TO0STEP-2
4590 POKE54296,X:POKE54277,15:POKE54278,0:POKE54273,16:POKE54272,80:POKE54276,129
4600 NEXT
4610 POKE54276,0:POKE54277,0:POKE54278,0
4620 GOSUB4220
4630 W=WS:F=FF
4640 J=INT((F-1)/4)+1
4650 RETURN
4660 REM NAECHSTER SPIELER
4670 POKE646,F(J):PRINTNA$(J);"CAN NOT DRAW!        "
4680 POKE54296,15
4690 POKE54277,25
4700 POKE54278,150
4710 POKE54273,3:POKE54272,100
4720 POKE54276,33
4730 FORT=1TO200:NEXT
4740 POKE54276,0:POKE54277,0:POKE54278,0
4750 FORI=1TO1000:NEXT
4760 RETURN
4770 REM SPIELENDE
4780 POKE646,F(J):PRINTNA$(J);" IS THE WINNER!!!!!    [145]"
4790 POKE54296,15:FORZ=1TO3
4800 POKE54277,25
4810 POKE54278,150
4820 POKE54273,7:POKE54272,193
4830 POKE54276,33
4840 FORT=1TO200:NEXT
4850 POKE54276,0:POKE54277,0:POKE54278,0:NEXT
4860 POKE54277,25:POKE54278,150:POKE54273,6:POKE54272,39:POKE54276,33
4870 FORT=1TO500:NEXT:POKE54276,0:POKE54277,0:POKE54278,0
4880 POKE198,0:WAIT198,1
4890 DR(J)=0:S(J)=0
4900 IFS(1)+S(2)+S(3)+S(4)=0THEN4960
4910 PRINT"  WANT TO PLAY AGAIN ???? Y/N [145]"
4920 GETA$:IFA$=""THEN4920
4930 IFA$="Y"THEN4970
4940 IFA$="N"THEN4960
4950 GOTO4920
4960 PRINT"     -------END OF GAME------[145]":POKE198,0:WAIT198,1:RUN
4970 PRINT"                                   [145]":RETURN