
39900 CH=1024:POKE 53248+26,0:SYS52224:SYS1214,16384,"ANI.55.4000.3",8
39905 POKE50171,208:POKE50172,200:POKE50173,196:POKE50174,211:POKE50175,204
39906 POKE50170,192:POKE808,234
39907 FORX=0TO5:POKE5*4096+14*256+1+X,1:NEXT
39910 POKE24034,IN(D)+1:POKE24035,AL(D)+1:POKE24036,KA(D)+1
39920 POKE24037,IN(Q)+1:POKE24038,AL(Q)+1:POKE24039,KA(Q)+1
39940 POKE53248+22,PEEK(53248+22)OR16
40000 POKE53248+26,0:POKE53281,9:POKE53248+24,11:PRINTCHR$(8)
40001 POKE53248+21,0:SYS 50212,"PA.SOLDIER5",8:SYS50212,"CH.SOLDIER5",8
40002 POKE53248+4*2,40:POKE53248+34,9:POKE53248+35,15:POKE53280,0
40003 POKE 53248+28,252:POKE53248+37,0:POKE53248+38,8:SYS51048,0,0,31,16,40,1
40004 FORX=0TO2:POKE53248+41+X,14:POKE53248+44+X,6:NEXT
40008 POKE53248+3*2,30:POKE53248+6*2,240
40010 POKE53248+21,252:POKE53248,255:POKE53249,56:POKE172,2
40011 POKE 53248+7*2,255:POKE53281,8
40012 POKE 53248+4,30:POKE53248+5,4*16
40013 POKE 53248+6,30:POKE53248+7,6*16
40014 POKE 53248+8,30:POKE53248+9,8*16
40015 POKE 53248+10,240:POKE53248+11,4*16
40016 POKE 53248+12,240:POKE53248+13,6*16
40017 POKE 53248+14,240:POKE53248+15,8*16
40018 SYS 51048,0,16,40,9,0,11
40019 SYS1214,15*4096,"SOLDIER7",8:TI$="000000":POKE53248+17,27
40020 FORX=0TO6:SYS33778-16384:IFPEEK(24097)<>0THEN40100
40048 NEXT
40049 SYS 36055-16384:SYS36214-16384:SYS17450:IFPEEK(24097)<>0THEN40100
40055 GOTO40020

40100 SYSCH,13,21,"";PEEK(24034);"  ":SYSCH,13,22,PEEK(24035);"  "
40105 SYSCH,13,23,PEEK(24036);"  "
40110 SYSCH,32,21,PEEK(24037);"  ":SYSCH,32,22,PEEK(24038);"  "
40115 SYSCH,32,23,PEEK(24039);"  ":IFPEEK(24097)=2THENGOTO50800
40117 IFTI>26000THENGOTO50800
40120 GOTO40048


40500 REM  POKE53248+21,0:LOAD"B118",8
50000 PRINT"":SYS51048,0,3,40,1,0,11:POKE53248+21,0
50001 SYSCH,0,0,"                                        ";
50002 SYSCH,0,1,"                                        ";
50003 SYSCH,0,2,"                                        ";
50010 SYS 51048,0,4,1,20,71,7
50020 SYS 51048,39,4,1,20,72,7
50030 SYS 51048,0,24,40,1,0,19
50040 SYSCH,5,5,"   DER KRIEGSBERICHT   "
50050 B$="LANDESHERR "+NA$(C)
50060 SYSCH,20-.5*LEN(B$),7,"";B$
50080 A=ABS(INT(EI(C)*V*.03+23)):IFA>.5*EI(C)THENA=ABS(INT(.5*EI(C)))
50085 SYSCH,1,9,"";A;"TREUE UNTERTANEN OPFERTEN SICH"
50087 SYSCH,2,11,"IM KAMPFE DER SACHE IHRES HERREN!"
50090 EI(C)=INT(EI(C)-A)
50130 SYSCH,2,13,"SIE ";A$;"";TL;"STAATSANTEILE"
50140 SYSCH,2,15,"UND AU*ERDEM";L;"HA LAND!"
50150 IFA$="VERLOREN"THENSYSCH,2,17,"SIE ZAHLEN";INT(T);"T. ALS TRIBUT!"
50160 IFA$="GEWINNEN"THENSYSCH,2,17,"SIE ERHALTEN";INT(T);"T. ALS TRIBUT!"
50170 IFS=12THENGOTO50180
50175 SYSCH,2,19,"SIE ";A$;" DAS STADTRECHT"
50177 SYSCH,2,21,">BER ";BN$(S);"!"
50180 REM
50299 A=PEEK(56320):IF(AAND16)=16THEN50299
50300 RETURN
50500 A1=PEEK(24034)+PEEK(24035)+PEEK(24036)
50510 V1=IN(D)+KA(D)+AL(D)-A1
50515 V2=IN(Q)+KA(Q)+AL(Q)-A2
50520 A2=PEEK(24037)+PEEK(24038)+PEEK(24039)
50530 G=A1-A2
50540 IFG>=0THENGOSUB50600
50550 IFG<=0THENGOSUB50700
50599 RETURN

50600 A=ABS(G*.02):IFA>.5THENA=.5
50610 L=A*(AC(Q)+OD(Q)+WA(Q))
50620 AC(D)=INT(AC(D)+AC(Q)*A):AC(Q)=INT(AC(Q)*(1-A))
50630 OD(D)=INT(OD(D)+OD(Q)*A):OD(Q)=INT(OD(Q)*(1-A))
50640 WA(D)=INT(WA(D)+WA(Q)*A):WA(Q)=INT(WA(Q)*(1-A)):TL=INT(VA(Q,Q)*A*.25)
50650 VA(D,Q)=VA(D,Q)+TL
50655 VA(Q,Q)=VA(Q,Q)-TL
50660 IF(AC(Q)+OD(Q)+WA(Q))/1000>MU(Q)THENMU(Q)=INT((AC(Q)+OD(Q)+WA(Q))/1000)
50665 IF(AC(Q)+OD(Q)+WA(Q))/1000>SI(Q)THENSI(Q)=INT((AC(Q)+OD(Q)+WA(Q))/1000)
50670 T=INT(A*AC(Q)/1000*50000):T(D)=INT(T(D)+T):T(Q)=INT(T(Q)-T)
50680 S=12:FORX=0TO11
50682 IFA>.2ANDS=12ANDBM(X)=QTHENS=X:BM(X)=D
50685 NEXT
50699 RETURN

50700 A=ABS(G*.05):IFA>.5THENA=.5
50710 L=A*(AC(D)+OD(D)+WA(D))
50720 AC(Q)=INT(AC(Q)+AC(D)*A):AC(D)=INT(AC(D)*(1-A))
50730 OD(Q)=INT(OD(Q)+OD(D)*A):OD(D)=INT(OD(D)*(1-A))
50740 WA(Q)=INT(WA(Q)+WA(D)*A):WA(D)=INT(WA(D)*(1-A)):TL=INT(VA(D,D)*A*.25)
50750 VA(Q,D)=VA(Q,D)+TL
50755 VA(D,D)=VA(D,D)-TL
50760 IF(AC(D)+OD(D)+WA(D))/1000>MU(D)THENMU(D)=INT((AC(D)+OD(D)+WA(D))/1000)
50765 IF(AC(D)+OD(D)+WA(D))/1000>SI(D)THENSI(D)=INT((AC(D)+OD(D)+WA(D))/1000)
50770 T=INT(A*AC(D)/2000*50000):T(Q)=INT(T(Q)+T):T(D)=INT(T(D)-T)
50780 S=12:FORX=0TO11
50782 IFA>.2ANDS=12ANDBM(X)=DTHENS=X:BM(X)=Q
50785 NEXT
50799 RETURN


50800 GOSUB50500:IFG>=0THENA$="GEWINNEN":GOTO50810
50805 A$="VERLOREN"
50810 V=V1:C=D:GOSUB50000
50820 IFG>=0THENA$="VERLOREN":GOTO50830
50825 A$="GEWINNEN"
50830 V=V2:C=Q:GOSUB50000:GOSUB50900
50840 KR=1:PRINT"":POKE53281,0:SYS52224:LOAD"REX I",8,1
50900 IN(D)=PEEK(24034):AL(D)=PEEK(24035):KA(D)=PEEK(24036)
50910 IN(Q)=PEEK(24037):AL(Q)=PEEK(24038):KA(Q)=PEEK(24039):RETURN
