10 POKE 53265,PEEK(53265)AND 239
110 CODE=7*4096:VARS=5*4096+6*256
111 GR=PEEK(CODE+3)+PEEK(CODE+4)*256
112 PG=VARS
114 PS=VARS+7
116 RS=PS+268
118 AS=RS+80+512
120 ES=AS+560
122 PA=ES+200
150 AP=PEEK(PG+1)
200 DIM R(3),U(3)
1000 :
1001 REM BERE ***** UMWELTPREISE
1002 :
1003 AG=GR
1005 FOR Z=0 TO 8
1010 BP=0
1011 BU=0
1050 FOR Y=0 TO 5
1055 RS=PEEK(AG+2)
1060 S=RS AND 15
1065 P=INT(RS/16)
1070 IF S<>2 THEN 1090
1075 IF PEEK(PS+(P-1)*67+56)=255 THEN 1090
1080 U=PEEK(AG+27)
1082 R(P-1)=R(P-1)+1
1083 U(P-1)=U(P-1)+U
1085 IF (U>20) AND (BU<U) THEN BP=P:BU=U: REM !!! DIESER PLAYER IST BESSER
1090 AG=AG+31:NEXT Y
1100 :
1110 REM ***** UWPVERLEIH
1120 IF BU=0 THEN 1200
1124 B=PS+(BP-1)*67+58+Z
1125 POKE B,PEEK(B)+1   : REM UMP +1
1126 FT=69:SYS CODE,22,FT
1127 POKE 53265,PEEK(53265)AND 239
1128 FP=BP:OP=3:GOSUB 7200
1140 OP=13+2:FP=5+Z+1:GOSUB 7010
1150 AP=BP:GOSUB 20000
1160 K=K+100000:GOSUB 21000
1200 NEXT Z
1400 :
1401 :
1402 REM **** WELCHE ERDEN ???
1403 :
1404 :
1405 FOR Z=0 TO 3
1406 IF R(Z)=0 THEN GOTO 1499
1410 UD=U(Z)/R(Z)
1415 IF UD<0 THEN GOTO 1440:REM E5
1420 IF UD<10 THEN GOTO 1450:REM E4
1425 IF UD<35 THEN GOTO 1460:REM E3
1430 IF UD<60 THEN GOTO 1470:REM E2
1435 GOTO 1480: REM  E1
1440 FT=74:FP=Z+1:OP=3:GOSUB 7000
1445 SYS CODE,1,"L.ERDE3",8
1447 GOSUB 50000
1449 GOTO 1499
1450 FT=73:FP=Z+1:OP=3:GOSUB 7000
1455 SYS CODE,1,"L.ERDE3",8
1457 GOSUB 50000
1459 GOTO 1499
1460 FT=72:FP=Z+1:OP=3:GOSUB 7000
1465 SYS CODE,1,"L.ERDE2",8
1467 GOSUB 50000
1469 GOTO 1499
1470 FT=71:FP=Z+1:OP=3:GOSUB 7000
1475 SYS CODE,1,"L.ERDE1",8
1477 GOSUB 50000
1479 GOTO 1499
1480 FT=70:FP=Z+1:OP=3:GOSUB 7000
1485 SYS CODE,1,"L.ERDE1",8
1487 GOSUB 50000
1489 GOTO 1499
1495 :
1499 NEXT Z
1501 REM ***** CHECK GEWINN !
1502 :
1510 FOR Z=0 TO 3
1515 AC=0:AU=0
1516 B=PS+Z*67+58
1520 FOR Y=0 TO 8
1525 U=PEEK(B+Y)
1530 AU=AU+U
1535 IF U<>0 THEN AC=AC+1
1540 NEXT Y
1545 IF (AC>4) AND (AU>19) THEN 3000
1560 NEXT Z
2000 Z=PEEK(VARS+2):A$="L.CITY"+STR$(Z)
2001 SYS CODE,25,1:SYS CODE,1,A$,8
3000 :
3001 REM **** PLAYER Z HAT GEWONNEN
3002 :
3004 REM ** CHECK IF COMPI OR PLAY
3005 :
3006 :
3008 P=PEEK(PG)-1
3010 IF Z<=P THEN 3200
3100 :
3101 :
3102 REM **** COMPI WIN
3103 :
3105 FT=68:FP=Z+1:OP=3:GOSUB 7000
3106 SYS CODE,9:SYS CODE,1,"L.SAVE",8:SYS CODE,10
3107 SYS CODE,25,1
3110 SYS CODE,1,"L.SPLRZAHL",8
3200 :
3201 :
3202 REM **** PLAYER WIN
3203 :
3205 FT=67:FP=Z+1:OP=3:GOSUB 7000
3206 SYS CODE,9:SYS CODE,1,"L.SAVE",8:SYS CODE,10
3207 SYS CODE,25,1
3210 SYS CODE,1,"L.SPLRZAHL",8
7000 :
7001 REM ***** INIT FAX
7004 SYS CODE,22,FT
7005 POKE 53265,PEEK(53265)AND 239
7010 IF FP>0 THEN GOSUB 7200
7012 SYS CODE,1,"L.FAX",8
7014 SYS CODE,3
7015 SYS CODE,4,3,4,6
7020 SYS CODE,7,96,32,10
7030 SYS CODE,6,3
7040 SYS CODE,8
7050 RETURN
7200 :
7201 REM INSERT NAME
7205 SYS CODE,4,3,0,0
7206 SYS CODE,21,FP
7208 FOR X=0 TO 9
7210 POKE 25344+OP+X,PEEK(1024+X)
7212 NEXT X
7250 RETURN
20000 :
20001 REM GET KONTOSTAND
20002 :
20005 B=PS+(AP-1)*67+2
20010 X=PEEK(B+3) AND 128
20015 K=PEEK(B+0)
20020 K=K+PEEK(B+1)*256
20025 K=K+PEEK(B+2)*65536
20030 K=K+((PEEK(B+3) AND127)*16777216)
20035 IF X=128 THEN K=-K
20040 RETURN
21000 :
21001 REM STORE KONTOSTAND
21002 :
21005 B=PS+(AP-1)*67+2
21010 X=0:IF K<0 THEN K=K-K-K:X=128
21020 POKE B+3,INT(K/16777216)
21025 K=K-(INT(K/16777216)*16777216)
21030 POKE B+2,INT(K/65536)
21035 K=K-(INT(K/65536)*65536)
21040 POKE B+1,INT(K/256)
21045 K=K-(INT(K/256)*256)
21050 POKE B+0,K
21055 POKE B+3,PEEK(B+3) OR X
21060 RETURN
50000 POKE2,255
50010 IF PEEK(2)=255 THEN 50010
50020 RETURN