home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 44 / Commodore_Disc_44_19xx_-_de.d64 / europe war (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  13.8 KB  |  371 lines
  1. 10 rem europe-war=========c64/c128
  2. 20 rem (p) commodore disc
  3. 30 rem ===========================
  4. 40 rem (c) by eckhard schulz  v3.5
  5. 50 rem
  6. 60 rem
  7. 70 rem (v) a.mittelmeyer
  8. 80 rem c64 und c128/v2.0 und v7.0
  9. 90 rem ===========================
  10. 100 gosub 3500
  11. 110 gosub3430:ifltthenpoke53280,0:poke53281,0:goto120
  12. 111 (NULL)0,1:(NULL)4,1
  13. 120 printwh$
  14. 130 gosub 2950
  15. 140 printlg$he$left$(qd$,13)left$(qr$,14)rn$"**************"
  16. 150 printleft$(qr$,14)rn$"* europe war *
  17. 160 [153][200](qr$,14)rn$"**************":[141]3190
  18. 170 [153]cl$c4$c4$c4$"die zeit ist vorbei----eine periode"
  19. 180 [153]c4$"die in keinem geschichtsbuch steht.":[141]3410
  20. 190 [153]c4$c4$c4$"europa ist in 12 gebiete unterteilt."
  21. 200 [153]c4$"und jedes gebiet hat eine eigene armee."
  22. 210 :[141]3410
  23. 220 [153]cl$c4$c4$c4$"da ist superpower,(ich),"
  24. 230 [153]c4$"ich versuche jedes gebiet zu besetzen!"
  25. 240 [141]3410
  26. 250 [153]c4$c4$c4$"es ist deine aufgabe mich zurueck-"
  27. 260 [153]c4$"zuschlagen und deine gebiete, die
  28. 270 printc4$"bereits besetzt sind, wiederzubekommen.":gosub3410
  29. 280 printcl$c4$c4$c4$"wir beide haben am anfang 6 gebiete."
  30. 290 printc4$"(meine sind mit einem '#' gezeichnet)"
  31. 300 printc4$"wir beide muessen uns schlagen"
  32. 310 printc4$"denn einer muss gewinnen--und ich bin"
  33. 320 printc4$"bereit dich zu ueberlaufen.":printc4$"also pass auf!!"
  34. 330 printc4$c4$c4$rn$"druecke eine taste zum start.":gosub3190
  35. 340 dimp(12),c(12),fl(12),d(12),cd(12),cr(12),hd(12),hr(12)
  36. 350 gosub360:goto420
  37. 360 n$="abcdefghjklm"
  38. 370 ee$=" ":forx=1to39:e$=e$+ee$:eq$=eq$+ee$:next:eq$=he$+c4$+eq$:e$=he$+e$
  39. 380 forn=1to12:readcd(n),cr(n),hd(n),hr(n):next
  40. 390 xd$=c4$:forx=1to25:cd$=cd$+xd$:next
  41. 400 xr$=c3$:forx=1to39:cr$=cr$+xr$:next
  42. 410 return
  43. 420 printcl$c4$c4$c4$rn$"wuerfle wer anfaengt."b3$"<taste>"
  44. 430 p=rnd(rnd(0)):p=int((6*p)+1):gosub3190
  45. 440 printc4$c4$c4$"dein wurf ";:printp:gosub3190
  46. 450 printc4$c4$"mein wurf ";
  47. 460 c=rnd(rnd(0)):c=int((6*c)+1):ifc=pthen460
  48. 470 printc:gosub3190:ifp>cthenprintc4$c4$c4$"du faengst an---":fl=1:gosub3410
  49. 480 ifp<cthenprintc4$c4$c4$"ich fange an---":fl=2:gosub3410
  50. 490 gosub2950:gosub1460:iffl=1then620
  51. 500 goto970
  52. 510 ml=0:hg=0:lm=0:gh=0:al=0:ab=0:ba=0:bc=0:cd=0:dc=0:de=0:lj=0:lk=0:ed=0
  53. 520 jl=0:jk=0:jf=0:kl=0:kj=0:fe=0:fj=0:ef=0:ge=0:gf=0:gj=0:gk=0:jg=0
  54. 530 la=0:fg=0:eg=0:kg=0:return
  55. 540 m=rnd(rnd(0)):m=int(15*m)
  56. 550 ifm=1thenprinte$eq$:printhe$"5 neue divisionen kommen extra!":gosub3190
  57. 560 ifm=1theniffl=1thentp=5:goto610
  58. 570 ifm=1thentc=5:goto610
  59. 580 ifm=2thenprinte$eq$:printhe$"drei flugstaffeln sollen mir helfen":gosub3190
  60. 590 ifm=2theniffl=1thentp=3:goto610
  61. 600 ifm=2thentc=3
  62. 610 return
  63. 620 gosub540
  64. 630 gosub510:fl=1:fora=1to12:ifp(a)<>0thent1=t1+1
  65. 640 next:t1=int((t1/2)+.5)+tp:ift1<3thent1=2
  66. 650 ift1<>0then830
  67. 660 ift1=0thenprinte$eq$:printhe$"willst du angreifen (j/n)?"
  68. 670 gosub3210:ifa$="n"thenprinte$:goto970
  69. 680 ifa$<>"j"then660
  70. 690 printe$eq$:printhe$"angriff von wo ?";:gosub3210:fw$="":fw$=a$:aw=1
  71. 700 printc3$rn$fw$:fora=1to300:next:gosub920:ifaw=2then650
  72. 710 aw=0:ifp(n)<2thenaa=1
  73. 720 ifaa=1thenprinte$eq$:printhe$"du hast nicht genug armeen zum angriff"
  74. 730 ifaa=1thengosub3190:aa=0:goto650
  75. 740 printe$eq$:printhe$"nach wo ?";:gosub3210:tw$="":tw$=a$:printc3$rn$tw$
  76. 750 gosub1610:iffw=1thenfw=0:goto650
  77. 760 gosub1800:v=rnd(rnd(0)):v=int(25*v)
  78. 770 ifv=1thenprinte$eq$:printhe$"das muss ein panik-zug sein!!"
  79. 780 ifv=2thenprinte$eq$:printhe$"du kannst es besser machen!!"
  80. 790 ifv=3thenprinte$eq$:printhe$"ein fuenkchen hoffnung im zug!!"
  81. 800 fora=1to1500:next:gosub2600:fora=1to1500:next:gosub2720:gosub3250
  82. 810 pp=pp+1:ifpp=6then970
  83. 820 goto650
  84. 830 gosub860:p(n)=p(n)+1:t1=t1-1
  85. 840 gosub1570
  86. 850 printhe$nd$nr$p(n):goto650
  87. 860 printe$eq$:printhe$rn$"druecke buchstaben um armeen zu setzen"rf$
  88. 870 print"du hast"t1"armeen zum setzen.":in=0
  89. 880 gosub3210
  90. 890 fora=1to12:ifmid$(n$,a,1)<>a$thenin=in+1
  91. 900 next
  92. 910 ifin=12then860
  93. 920 n=0:fora=1to12:ifmid$(n$,a,1)=a$andc(a)=0thenn=a
  94. 930 next:ifn<>0thenreturn
  95. 940 printe$eq$:printhe$"das ist nicht dein gebiet!":gosub3190
  96. 950 ifaw=1thenaw=2:return
  97. 960 goto860
  98. 970 w=0:fl=2:b=0:t2=0:gosub510
  99. 980 gosub540
  100. 990 fora=1to12:ifc(a)<>0thent2=t2+1:b=b+1
  101. 1000 next:t2=int((t2/2)+.5)+tc:ift2<3thent2=2
  102. 1010 printe$eq$:printhe$"nun bin ich dran!":gosub3190
  103. 1020 v=rnd(rnd(0)):v=int((v*3)+1):ifv<>2then1080
  104. 1030 printe$eq$:ifb=11thenprinthe$+"kaempfen bis zum ende ?"
  105. 1040 ifb=9thenprinthe$+"ich fuehre nun!"
  106. 1050 ifb=6thenprinthe$+"wir sind beide gleich,aber nicht lange!"
  107. 1060 ifb=3thenprinthe$+"ich habe noch ein bischen aufzuholen!"
  108. 1070 ifb=1thenprinthe$+"meine letzte festung!!"
  109. 1080 gosub3190:printe$eq$:printhe$"ich setze"t2"armeen nach--":gosub3410
  110. 1090 goto1110
  111. 1100 t2=t2-1:gosub2570:ift2=0then2110
  112. 1110 ifc(12)>0and(c(12)-p(11))<0thenc(12)=c(12)+1:n2=12:goto1100
  113. 1120 b=c(11):ifb>0and(b-p(12))<0thenc(11)=c(11)+1:n2=11:goto1100
  114. 1130 ifb>0and(b-p(1))<0thenc(11)=c(11)+1:n2=11:goto1100
  115. 1140 ifb>0and(b-p(9))<0thenc(11)=c(11)+1:n2=11:goto1100
  116. 1150 ifb>0and(b-p(10))<0thenc(11)=c(11)+1:n2=11:goto1100
  117. 1160 b=c(1):ifb>0and(b-p(11))<0thenc(1)=c(1)+1:n2=1:goto1100
  118. 1170 ifb>0and(b-p(2))<0thenc(1)=c(1)+1:n2=1:goto1100
  119. 1180 b=c(2):ifb>2and(b-p(1))<0thenc(2)=c(2)+1:n2=2:goto1100
  120. 1190 ifb>0and(b-p(3))<0thenc(2)=c(2)+1:n2=2:goto1100
  121. 1200 b=c(3):ifb>0and(b-p(2))<0thenc(3)=c(3)+1:n2=3:goto1100
  122. 1210 ifb>0and(b-p(4))<0thenc(3)=c(3)+1:n2=3:goto1100
  123. 1220 b=c(4):ifb>0and(b-p(3))<0thenc(4)=c(4)+1:n2=4:goto1100
  124. 1230 ifb>0and(b-p(5))<0thenc(4)=c(4)+1:n2=4:goto1100
  125. 1240 b=c(5):ifb>0and(b-p(4))<0thenc(5)=c(5)+1:n2=5:goto1100
  126. 1250 ifb>0and(b-p(6))<0thenc(5)=c(5)+1:n2=5:goto1100
  127. 1260 ifb>0and(b-p(7))<0thenc(5)=c(5)+1:n2=5:goto1100
  128. 1270 b=c(9):ifb>0and(b-p(11))<0thenc(9)=c(9)+1:n2=9:goto1100
  129. 1280 ifb>0and(b-p(6))<0thenc(9)=c(9)+1:n2=9:goto1100
  130. 1290 ifb>0and(b-p(10))<0thenc(9)=c(9)+1:n2=9:goto1100
  131. 1300 ifb>0and(b-p(7))<0thenc(9)=c(9)+1:n2=9:goto1100
  132. 1310 b=c(10):ifb>0and(b-p(11))<0thenc(10)=c(10)+1:n2=10:goto1100
  133. 1320 ifb>0and(b-p(9))<0thenc(10)=c(10)+1:n2=10:goto1100
  134. 1330 ifb>0and(b-p(7))<0thenc(10)=c(10)+1:n2=10:goto1100
  135. 1340 b=c(6):ifb>0and(b-p(5))<0thenc(6)=c(6)+1:n2=6:goto1100
  136. 1350 ifb>0and(b-p(9))<0thenc(6)=c(6)+1:n2=6:goto1100
  137. 1360 ifb>0and(b-p(7))<0thenc(6)=c(6)+1:n2=6:goto1100
  138. 1370 ifc(8)>0and(c(8)-p(7))<0thenc(8)=c(8)+1:n2=8:goto1100
  139. 1380 b=c(7):ifb>0and(b-p(8))<0thenc(7)=c(7)+1:n2=7:goto1100
  140. 1390 ifb>0and(b-p(5))<0thenc(7)=c(7)+1:n2=7:goto1100
  141. 1400 ifb>0and(b-p(9))<0thenc(7)=c(7)+1:n2=7:goto1100
  142. 1410 ifb>0and(b-p(10))<0thenc(7)=c(7)+1:n2=7:goto1100
  143. 1420 ifb>0and(b-p(6))<0thenc(7)=c(7)+1:n2=7:goto1100
  144. 1430 v=rnd(rnd(0)):v=int((12*v)+1):ifc(v)=0then1430
  145. 1440 c(v)=c(v)+1:n2=v:goto1100
  146. 1450 gosub3250:goto620
  147. 1460 fora=1to12
  148. 1470 v=rnd(rnd(0)):v=int((12*v)+1):iffl(v)<>0then1470
  149. 1480 ifa>6thenc(v)=5:goto1500
  150. 1490 p(v)=5
  151. 1500 fl(v)=1:next
  152. 1510 fori=1to12:n=i
  153. 1520 ifp(i)=0then1540
  154. 1530 gosub1570:printhe$nd$nr$p(i):goto1550
  155. 1540 gosub1570:printhe$nd$nr$c(i):printhe$hd$hr$"#"
  156. 1550 next
  157. 1560 return
  158. 1570 nd$="":nr$="":hd$="":hr$=""
  159. 1580 nd$=left$(cd$,cd(n)):nr$=left$(cr$,cr(n))
  160. 1590 hd$=left$(cd$,hd(n)):hr$=left$(cr$,hr(n))
  161. 1600 return
  162. 1610 n=0:fora=1to12:ifmid$(n$,a,1)=tw$andc(a)<>0thenn=a
  163. 1620 next:ifn<>0then1650
  164. 1630 printe$eq$:printhe$"das ist schon dein gebiet,dummkopf!!":gosub3190:fw=1
  165. 1640 return
  166. 1650 iftw$="a"and(fw$="b"orfw$="l")then1790
  167. 1660 iftw$="b"and(fw$="a"orfw$="c")then1790
  168. 1670 iftw$="c"and(fw$="b"orfw$="d")then1790
  169. 1680 iftw$="d"and(fw$="c"orfw$="e")then1790
  170. 1690 iftw$="e"and(fw$="d"orfw$="f"orfw$="g")then1790
  171. 1700 iftw$="f"and(fw$="e"orfw$="g"orfw$="j")then1790
  172. 1710 iftw$="g"and(fw$="e"orfw$="f"orfw$="j"orfw$="k"orfw$="h")then1790
  173. 1720 iftw$="h"andfw$="g"then1790
  174. 1730 iftw$="j"and(fw$="f"orfw$="g"orfw$="k"orfw$="l")then1790
  175. 1740 iftw$="k"and(fw$="g"orfw$="j"orfw$="l")then1790
  176. 1750 iftw$="l"and(fw$="k"orfw$="j"orfw$="a"orfw$="m")then1790
  177. 1760 iftw$="m"andfw$="l"then1790
  178. 1770 printe$eq$:printhe$"du kannst "rn$fw$rf$" nicht angreifen ":fw=1
  179. 1780 gosub3190:goto1790
  180. 1790 return
  181. 1800 iffw$="m"and(tw$="l")thenml=ml+1:ifml>2then2100
  182. 1810 iffw$="h"and(tw$="g")thenhg=hg+1:ifhg>2then2100
  183. 1820 iffw$="l"and(tw$="m")thenlm=lm+1:iflm>2then2100
  184. 1830 iffw$="g"and(tw$="h")thengh=gh+1:ifgh>2then2100
  185. 1840 iffw$="a"and(tw$="l")thenal=al+1:ifal>2then2100
  186. 1850 iffw$="b"and(tw$="a")thenba=ba+1:ifba>2then2100
  187. 1860 iffw$="b"and(tw$="c")thenbc=bc+1:ifbc>2then2100
  188. 1870 iffw$="c"and(tw$="d")thencd=cd+1:ifcd>2then2100
  189. 1880 iffw$="d"and(tw$="c")thendc=dc+1:ifdc>2then2100
  190. 1890 iffw$="d"and(tw$="e")thende=de+1:ifde>2then2100
  191. 1900 iffw$="l"and(tw$="j")thenlj=lj+1:iflj>2then2100
  192. 1910 iffw$="l"and(tw$="k")thenlk=lk+1:iflk>2then2100
  193. 1920 iffw$="e"and(tw$="d")thened=ed+1:ifed>2then2100
  194. 1930 iffw$="j"and(tw$="l")thenjl=jl+1:ifjl>2then2100
  195. 1940 iffw$="j"and(tw$="k")thenjk=jk+1:ifjk>2then2100
  196. 1950 iffw$="j"and(tw$="f")thenjf=jf+1:ifjf>2then2100
  197. 1960 iffw$="k"and(tw$="l")thenkl=kl+1:ifkl>2then2100
  198. 1970 iffw$="k"and(tw$="j")thenkj=kj+1:ifkj>2then2100
  199. 1980 iffw$="f"and(tw$="e")thenfe=fe+1:iffe>2then2100
  200. 1990 iffw$="f"and(tw$="j")thenfj=fj+1:iffj>2then2100
  201. 2000 iffw$="e"and(tw$="f")thenef=ef+1:ifef>2then2100
  202. 2010 iffw$="g"and(tw$="e")thenge=ge+1:ifge>2then2100
  203. 2020 iffw$="g"and(tw$="f")thengf=gf+1:ifgf>2then2100
  204. 2030 iffw$="g"and(tw$="j")thengj=gj+1:ifgj>2then2100
  205. 2040 iffw$="g"and(tw$="k")thengk=gk+1:ifgk>2then2100
  206. 2050 iffw$="j"and(tw$="g")thenjg=jg+1:ifjg>2then2100
  207. 2060 iffw$="f"and(tw$="g")thenfg=fg+1:iffg>2then2100
  208. 2070 iffw$="e"and(tw$="g")theneg=eg+1:ifeg>2then2100
  209. 2080 iffw$="k"and(tw$="g")thenkg=kg+1:ifkg>2then2100
  210. 2090 return
  211. 2100 printe$eq$:printhe$"nimm einen anderen angriff!":gosub3190:goto650
  212. 2110 fora=1to12:y=c(a):pokexx+a,y:y=p(a):pokexx+a+12,y:next
  213. 2120 clr:gosub3500:dimp(12),c(12),fl(12),d(12),cd(12),cr(12),hd(12),hr(12)
  214. 2130 fora=1to12:d=peek(xx+a):c(a)=d:d=peek(xx+a+12):p(a)=d:next
  215. 2140 gosub360:goto2170
  216. 2150 cc=cc+1:ifcc=6then620
  217. 2160 fl=2:gosub2490
  218. 2170 ifml<2thenifc(12)>2andp(11)<>0thenfw$="m":tw$="l":ml=ml+1:goto2150
  219. 2180 ifhg<2thenifc(8)>2andp(7)<>0thenfw$="h":tw$="g":hg=hg+1:goto2150
  220. 2190 iflm<2thenifc(11)>2andp(12)<>0thenfw$="l":tw$="m":lm=lm+1:goto2150
  221. 2200 ifgh<2thenifc(7)>2andp(8)<>0thenfw$="g":tw$="h":gh=gh+1:goto2150
  222. 2210 ifal<2thenifc(1)>2andp(11)<>0thenfw$="a":tw$="l":al=al+1:goto2150
  223. 2220 ifab<2thenifc(1)>2andp(2)<>0thenfw$="a":tw$="b":ab=ab+1:goto2150
  224. 2230 ifba<2thenifc(2)>2andp(1)<>0thenfw$="b":tw$="a":ba=ba+1:goto2150
  225. 2240 ifbc<2thenifc(2)>2andp(3)<>0thenfw$="b":tw$="c":bc=bc+1:goto2150
  226. 2250 ifcd<2thenifc(3)>2andp(4)<>0thenfw$="c":tw$="d":cd=cd+1:goto2150
  227. 2260 ifdc<2thenifc(4)>2andp(3)<>0thenfw$="d":tw$="c":dc=dc+1:goto2150
  228. 2270 ifde<2thenifc(4)>2andp(5)<>0thenfw$="d":tw$="e":de=de+1:goto2150
  229. 2280 ifla<2thenifc(11)>2andp(1)<>0thenfw$="l":tw$="a":la=la+1:goto2150
  230. 2290 iflj<2thenifc(11)>2andp(9)<>0thenfw$="l":tw$="j":lj=lj+1:goto2150
  231. 2300 iflk<2thenifc(11)>2andp(10)<>0thenfw$="l":tw$="k":lk=lk+1:goto2150
  232. 2310 ifed<2thenifc(5)>2andp(4)<>0thenfw$="e":tw$="d":ed=ed+1:goto2150
  233. 2320 ifjl<2thenifc(9)>2andp(11)<>0thenfw$="j":tw$="l":jl=jl+1:goto2150
  234. 2330 ifjk<2thenifc(9)>2andp(10)<>0thenfw$="j":tw$="k":jk=jk+1:goto2150
  235. 2340 ifjf<2thenifc(9)>2andp(6)<>0thenfw$="j":tw$="f":jf=jf+1:goto2150
  236. 2350 ifkl<2thenifc(10)>2andp(11)<>0thenfw$="k":tw$="l":kl=kl+1:goto2150
  237. 2360 ifkj<2thenifc(10)>2andp(9)<>0thenfw$="k":tw$="j":kj=kj+1:goto2150
  238. 2370 iffe<2thenifc(6)>2andp(5)<>0thenfw$="f":tw$="e":fe=fe+1:goto2150
  239. 2380 iffj<2thenifc(6)>2andp(9)<>0thenfw$="f":tw$="j":fj=fj+1:goto2150
  240. 2390 ifef<2thenifc(5)>2andp(6)<>0thenfw$="e":tw$="f":ef=ef+1:goto2150
  241. 2400 ifge<2thenifc(7)>2andp(5)<>0thenfw$="g":tw$="e":ge=ge+1:goto2150
  242. 2410 ifgf<2thenifc(7)>2andp(6)<>0thenfw$="g":tw$="f":gf=gf+1:goto2150
  243. 2420 ifgj<2thenifc(7)>2andp(9)<>0thenfw$="g":tw$="j":gj=gj+1:goto2150
  244. 2430 ifgk<2thenifc(7)>2andp(10)<>0thenfw$="g":tw$="k":gk=gk+1:goto2150
  245. 2440 ifjg<2thenifc(9)>2andp(7)<>0thenfw$="j":tw$="g":jg=jg+1:goto2150
  246. 2450 iffg<2thenifc(6)>2andp(7)<>0thenfw$="f":tw$="g":fg=fg+1:goto2150
  247. 2460 ifeg<2thenifc(5)>2andp(7)<>0thenfw$="e":tw$="g":eg=eg+1:goto2150
  248. 2470 ifkg<2thenifc(10)>2andp(7)<>0thenfw$="k":tw$="g":kg=kg+1:goto2150
  249. 2480 goto620
  250. 2490 gosub3190:printe$eq$:printhe$"ich greife an von "rn$fw$rf$" nach "rn$tw$
  251. 2500 gosub3190:gosub2600:fora=1to2000:next:gosub2720:gosub3250
  252. 2510 ifp(n2)<1then2530
  253. 2520 goto2170
  254. 2530 v=rnd(rnd(0)):v=int((9*v)+1)
  255. 2540 ifc(n1)-v<2then2530
  256. 2550 c(n1)=c(n1)-v:c(n2)=c(n2)+v
  257. 2560 n=n1:gosub1570:printhe$nd$nr$c(n)
  258. 2570 n=n2:gosub1570:printhe$nd$nr$rn$c(n):gosub3190
  259. 2580 n=n2:gosub1570:printhe$nd$nr$c(n)
  260. 2590 gosub1570:printhe$hd$hr$"#":gosub3250:return
  261. 2600 v=rnd(rnd(0)):v=int((6*v)+1)
  262. 2610 iffl=1thenp=v:goto2630
  263. 2620 c=v
  264. 2630 v=rnd(rnd(0)):v=int((6*v)+1)
  265. 2640 iffl=1thenc=v:gosub2700:goto2680
  266. 2650 p=v:gosub2700
  267. 2660 ifp=>cthenprinte$eq$:printhe$"du hast meinen angriff abgewehrt!":return
  268. 2670 printe$eq$:printhe$"mein angriff war erfolgreich!":return
  269. 2680 ifc=>pthenprinte$eq$:printhe$"ich habe deinen angriff abgewehrt!":return
  270. 2690 printe$eq$:printhe$"dein angriff war erfolgreich!":return
  271. 2700 printe$eq$:printhe$"dein wurf ";:gosub3410:printp;:gosub3190
  272. 2710 printb3$"mein wurf ";:gosub3410:printc:gosub3190:return
  273. 2720 fora=1to12:ifmid$(n$,a,1)=fw$thenn1=a
  274. 2730 ifmid$(n$,a,1)=tw$thenn2=a
  275. 2740 next
  276. 2750 iffl=1andp>cthenc(n2)=c(n2)-1
  277. 2760 iffl=1andc=>pthenp(n1)=p(n1)-1
  278. 2770 iffl=2andp=>cthenc(n1)=c(n1)-1
  279. 2780 iffl=2andc>pthenp(n2)=p(n2)-1
  280. 2790 iffl=1thenn=n1:goto2810
  281. 2800 n=n2
  282. 2810 gosub1570:printhe$nd$nr$b3$:printhe$nd$nr$p(n)
  283. 2820 iffl=1thenn=n2:goto2840
  284. 2830 n=n1
  285. 2840 gosub1570:printhe$nd$nr$b3$:printhe$nd$nr$c(n):iffl=1then2860
  286. 2850 return
  287. 2860 ifc(n)>=1thenreturn
  288. 2870 printe$eq$:printhe$"anzahl der besetzenden armeen (1-9)?":gosub3210
  289. 2880 v=val(a$):e=0:ford=1to9:ifv=dthene=e+1
  290. 2890 next:ife=0then2860
  291. 2900 ifp(n1)-v<1then2860
  292. 2910 p(n1)=p(n1)-v:p(n2)=p(n2)+v
  293. 2920 n=n1:gosub1570:printhe$nd$nr$p(n)c1$" "
  294. 2930 n=n2:gosub1570:printhe$nd$nr$p(n)
  295. 2940 gosub1570:printhe$hd$hr$" ":return
  296. 2950 poke806,57:poke807,1
  297. 2960 print"[202]d[194]bbb[203]eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee"
  298. 2970 print"[194]c[195]aaaaaaaaaaaaaaaaaaa[202]c[195]aaa[205]o[195]aaaa[205]o[195]a[197]e[195]aa[203]f[195]aaaaa[203]h"
  299. 2980 print"[194]c[195]aaaaaaaaaaaaaaaaaa[202]c[203]j[195]aaa[203]f[197]d[203]h[194]c[195]aa[202]c[203]f[195]aaa[205]o[195]aaaaaa[203]h"
  300. 2990 print"[194]c[195]aaaaaaaaaaa[203]m[204]j[195]kkkkk[202]c[203]f[195]aa[203]ef[195]aa[206]p[194]c[195]a[206]p[202]c[203]ee[205]o[195]aaaaaaa[203]h"
  301. 3000 print"[194]c[195]a[197]b[198]e[197]mbo[198]e[197]jl[195]a[203]m[202]c[195]a[204]m[194]c[204]l[195]aaaa[202]c[203]f[197]c[194]c[203]j[206]p[202]c[195]aaa";
  302. 3010 print"[194]c[203]j[195]aaa[202]c[203]j[195]aaaaa[197]f[195]aa[203]h"
  303. 3020 print"[194]c[195]aaaaaaaa[203]eem[202]c[195]a[194]c[204]o[195]aaaaa[203]dd[195]a[203]h[202]c[195]aa[203]h[194]c[195]aaa[203]e[202]c[203]f[195]aaaaaaaa[203]h"
  304. 3030 print"[194]c[195]aaaaaa[203]h[202]c[203]d[195]a[203]h[194]c[204]g[202]c[195]a[204]g[194]c[195]a[197]op[198]c[197]e[195]naa[203]h[202]c[195]aa[194]c[203]j[195]aa[202]c[203]j[195]aaaaaaaaaa[203]h"
  305. 3040 print"[194]c[195]aaaaaa[202]c[195]aa[204]k[194]c[203]m[204]j[202]c[197]b[203]h[194]c[195]a[198]d[197]ff[195]a[203]h[202]c[203]d[206]p[194]c[195]a[206]p[203]j[195]aaa[206]p[202]c[195]aaaaaaaaaa[203]h"
  306. 3050 print"[194]c[195]aaaaaa[204]i[203]d[195]a[204]j[202]c[195]aaa[204]g[194]c[195]aa[203]ee[202]c[203]j[195]aa[203]d[206]p[194]c[203]e[202]c[203]jddd[205]n[203]ee[195]aaaaaaa[203]h"
  307. 3060 print"[194]c[195]aaaaaaaa[203]m[202]c[204]o[195]aaa[194]c[204]l[203]e[202]c[203]j[195]aaaaaa[203]h[195]aaaaaaaa[203]f[195]aaaaaa[203]h"
  308. 3070 print"[194]c[195]aaaaaaaaaaaka[202]c[203]j[205]n[195]aaa[197]k[195]aaa[205]o[195]aaa[197]g[195]aaaa[203]f[195]aaaaaa[203]h"
  309. 3080 print"[194]c[195]aaaaaaaa[206]p[202]c[203]dddd[195]aa[205]n[195]aaaaa[205]o[195]aaaaaaaa[205]o[195]aaaaaaa[203]h"
  310. 3090 print"[194]c[195]aaaaaaaaa[206]p[202]c[195]aa[197]m[195]aa[203]h[195]aaaaa[205]n[203]eee[195]aaaa[203]heee[195]aaaaa[203]h"
  311. 3100 print"[194]c[195]aaaaaaaaa[203]h[202]c[195]aaaaa[205]o[203]eeeee[205]o[195]aaa[205]n[203]eee[205]o[195]aa[203]h[195]aaaaa[203]h"
  312. 3110 print"[194]c[195]aa[203]h[202]c[203]ddd[206]p[194]c[203]ee[202]c[203]j[195]aaaaa[203]d[205]o[195]aaaa[203]f[195]aaaaaaaaaaa[205]n[194]c[203]jdddd"
  313. 3120 print"[194]c[195]aa[202]c[203]j[195]a[197]n[195]aaaa[205]n[195]aaaaaa[205]n[195]aaa[206]p[194]c[203]d[206]p[202]c[195]aaaaa[197]h[195]aaaaa[194]c[198]d[197]di[198]h[195]o"
  314. 3130 print"[194]c[195]a[202]c[203]j[195]aaaaaaaa[203]d[205]n[194]c[203]f[195]aaaaa[206]p[202]c[195]aa[206]p[194]c[195]a[206]p[202]c[195]aaaaaaaaaa[194]c[197]nff[198]c[195]a"
  315. 3140 print"[194]c[195]a[202]c[195]aaaaaaaaa[194]c[203]j[195]aaaaaaaa[206]p[202]c[195]a[197]l[206]p[194]c[195]aa[206]p[202]c[195]aaaaaaaa[206]p[194]c[195]aa[202]c[203]jh"
  316. 3150 print"[194]c[195]a[202]c[195]aaaaaaa[194]c[203]j[195]aaa[197]nj[198]ee[197]fm[195]aaa[206]p[202]c[195]aa[206]p[194]c[195]aa[202]c[195]aaaaaa[205]o[203]d[195]aa[197]i[203]h"
  317. 3160 print"[194]c[195]aa[206]p[202]c[195]aaaa[194]c[203]j[195]aaaaa[197]nff[198]c[195]aaaaaa[206]p[195]a[204]o[195]a[206]p[202]c[195]a[206]p[194]c[195]aaa[206]p[202]c[195]aaaa[203]h"
  318. 3170 print"[194]c[195]aaaaaaaaaaaaaaaaaaaaaaa[204]m[195]aaaa[206]p[202]c[195]a[206]p[194]c[195]aaa[206]p[202]c[203]eee[204]k"
  319. 3180 poke806,121:poke807,239
  320. 3181 ifltthenpoke806,202:poke807,241
  321. 3182 return
  322. 3190 ifltthenpoke198,0:wait198,1:return
  323. 3200 poke208,0:wait208,1:return
  324. 3210 geta$:ifa$=""then3210
  325. 3220 return
  326. 3230 data11,10,9,11,5,19,6,19,7,22,8,23,5,28,4,30,9,32,10,32,14,24,15,27,20,27
  327. 3240 data18,26,22,36,22,34,14,17,13,16,18,17,17,18,17,11,15,14,20,3,18,6
  328. 3250 s=0:t=0:fora=1to12:ifc(a)<>0thens=s+1
  329. 3260 ifp(a)<>0thent=t+1
  330. 3270 next:ifs=12then3300
  331. 3280 ift=12then3340
  332. 3290 return
  333. 3300 printcl$c4$c4$"aha! ich habe gewonnen--":gosub3410
  334. 3310 printc4$c4$"meine invasions-strategie war brilliant":printc4$"wie immer!!"
  335. 3320 gosub3410:printc4$c4$rn$"niemand"rf$" kann mich stoppen!":gosub3410
  336. 3330 printc4$rn$"heute europa----morgen die ganze welt!!!":gosub3410:goto3380
  337. 3340 printcl$c4$c4$"bah!-du hast gewonnen":gosub3410
  338. 3350 printc4$"das auch nur durch einen fehler"
  339. 3360 printc4$"in meiner konzentration!":gosub3410
  340. 3370 printc4$c4$"es passiert bestimmt nicht wieder!":gosub3410
  341. 3380 printc4$c4$"willst du noch einmal spielen (j/n)?"
  342. 3390 gosub3210:ifa$="n"thenend
  343. 3391 if a$<>"j"then3390
  344. 3400 run
  345. 3410 fortq=1to3000:next
  346. 3420 return
  347. 3430 fori=1to48:reada:next
  348. 3435 fori=313to341
  349. 3440 reada:pokei,a:next:restore
  350. 3441 ifltthenpoke340,202:poke341,241
  351. 3442 return
  352. 3450 data 201,013,240,022,201,193
  353. 3460 data 048,012,056,233,193,010
  354. 3470 data 010,010,010,141,056,001
  355. 3480 data 024,096,056,233,065,013
  356. 3490 data 056,001,076,121,239
  357. 3500 rem nachspann ===============
  358. 3510 rem * farbcodes/steuercodes *
  359. 3520 wh$=chr$(005):c4$=chr$(017)
  360. 3530 rn$=chr$(018):he$=chr$(019)
  361. 3540 c3$=chr$(029):rf$=chr$(146)
  362. 3550 cl$=chr$(147):lg$=chr$(153)
  363. 3560 c1$=chr$(157):lt=(peek(772)=124)
  364. 3561 xx=2816:ifltthenxx=832
  365. 3570 rem ********* zeichenfolgen *
  366. 3580 for q=1 to 40
  367. 3590 qd$=qd$+c4$:qr$=qr$+c3$
  368. 3600 nextq:b$=chr$(32)
  369. 3610 b3$=b$+b$+b$:return
  370. 3620 rem =programmende============
  371.