Risiko

Werden Sie Feldherr auf dem Planeten »Gurungo«. Vernichten Sie die feindlichen Armeen, um die Macht auf diesem Planeten an sich zu reißen.

Bei dem Spiel Risiko handelt es sich um eine Variante des bekannten Strategiespiels gleichen Namens. Das Programm kann auf Kassette und Diskette abgespeichert werden. Die Spieler, deren Anzahl zwischen zwei und sechs liegen darf, befinden sich in einer fernen Galaxis auf dem Planeten »Gurungo« mit seinen sieben Kontinenten. Jeder Spieler ist Feldherr auf diesem Planeten und besitzt eine Anzahl von Ländern, die am Anfang des Spieles ausgelost werden.

Die Aufgabe der Spieler ist es, möglichst viele Länder zu erobern beziehungsweise die eigenen Länder zu verteidigen. Gelingt es einem Spieler einen ganzen Kontinent zu erobern, um so besser für ihn, denn die Anzahl der Truppen, die jeden Monat vom Heimatplaneten kommen, um die auf dem Planeten »Gurungo« stationierten Armeen aufzufüllen, richtet sich nach den komplett eroberten Kontinenten.

Programmablauf

Nach dem Laden und Starten des Programms wird gefragt, ob die Spielregeln schon bekannt sind. Bei der Eingabe von »j« erscheint die Anleitung auf dem Bildschirm. Weitergeblättert wird mit einer beliebigen Taste. Nachdem die Anzahl der Spieler und deren Namen eingegeben wurden, lost der C 64 die Länder aus und verteilt sie gleichmäßig an jeden Spieler. Sollte sich die Anzahl der Länder nicht durch die Anzahl der Spieler teilen lassen, werden die restlichen Länder per Zufall verlost. Daher kann es passieren, daß ein Spieler mehr Länder bekommt als ein anderer. Der Spieler, der als erster in der Namensliste aufgeführt ist wird aufgefordert, die Armeen (mindestens 4), die jeden Monat seine Streitmacht auffüllen, auf seine Länder zu verteilen.

Ist dies geschehen, erfolgt ein Angriff. Dazu muß der angreifende Spieler den Kontinent, das Land und die Anzahl der Armeen, mit denen angegriffen werden soll, dem C 64 über ein Menü mitteilen. Anschließend muß noch angegeben werden, welches Land angegriffen werden soll. Der Verteidiger setzt alle im Land stationierten Armeen ein, um sich vor dem Angreifer zu schützen. Der Angreifer muß aber mindestens eine Armee im angreifenden Land stehen lassen.

Jetzt wird gewürfelt. Jeder an der Schlacht teilnehmenden Armee wird ein Würfel zugeordnet. Zieht der Angreifer mit mehr Armeen in die Schlacht als Armeen auf der zu verteidigenden Seite stehen, geht die gleiche Anzahl von Würfeln in die Wertung ein wie bei dem Verteidiger. Es werden aber die Würfel mit den meisten Würfelaugen genommen. Jetzt werden die einzelnen Würfel miteinander verglichen. Abhängig von der Anzahl der Würfelaugen, verliert der Angreifer beziehungsweise der Verteidiger bei jedem Vergleich eine Armee. Ist die Anzahl von Würfelaugen bei dem Angreifer und Verteidiger identisch, verliert der Angreifer eine Armee. Dies wiederholt sich so lange bis entweder der Verteidiger alle Armeen verloren hat, dann ist das Land erobert worden, oder die Armeen des Angreifers auf eine zusammengeschrumpft sind, dann ist das Land erfolgreich verteidigt worden.

Hin und wieder kommt es vor, daß ein Spieler nur noch wenige Armeen besitzt. Um diese Armeen und die neu hinzugekommenen nicht zu gefährden, ist es manchmal besser niemanden anzugreifen. Dazu gibt der Spieler, wenn die Frage auf dem Bildschirm erscheint »Angriff von welchem Kontinent aus?« einfach ein »x« ein. Mit der Taste »x« kann aus jedem Spielstadium heraus eine Routine beendet werden.

Unabhängig davon ob ein Angriff stattgefunden hat oder nicht, wird dem Spieler die Gelegenheit gegeben, seine Armeen zu verschieben. Dazu muß dem C 64 mitgeteilt werden, wieviele Armeen verschoben werden sollen, von welchem Kontinent und welchem Land zu welchem Land geschoben werden soll. Dabei kann kein Land übersprungen werden. Das Programm bietet jedoch die Möglichkeit, die Verschieberoutine genauso wie die Angriffsroutine so häufig zu wiederholen bis das Ergebnis zufriedenstellend ist.

Da das Spielfeld nicht permanent angezeigt wird, ist, um sich einen Überblick über die Land- und Kontinentaufteilung zu machen, die Taste »@« zu drücken. Diese Taste kann aus jeder Spielsituation angesprochen werden. Es erscheint ein weiteres Menü auf dem Bildschirm. Wird die F1-Taste gedrückt, kann auf dem Bildschirm die »Planetenkarte« betrachtet werden. Auf ihr sind alle Kontinente und die Verbindungen von einem zum anderen Kontinent eingetragen. Möchte man sich ein genaues Bild über einen bestimmten Kontinent verschaffen, ist zuerst eine beliebige Taste zu drücken, um in das Menü zu gelangen. Anschließend ist eine der sieben Funktionstasten zu drücken; denn jeder dieser sieben Funktionstasten ist ein Kontinent zugeordnet. Nun erscheint der Kontinent auf dem Bildschirm. Auf dieser Karte sind die Länder und deren Eigentümer verzeichnet Soll das Spiel fortgesetztwerden, kann das »Landkarten-Menü« mit der Taste »x« verlassen werden.

(Bernd Hornig / ah)

petcat | Checksummer

1 rem  ********************************
2 rem  *                              *
3 rem  *            risiko            *
4 rem  *                              *
5 rem  * geschrieben von bernd hornig *
6 rem  *                              *
7 rem  *   absender:                  *
8 rem  *             bernd hornig     *
9 rem  *             bismarckstr.77   *
10 rem *        4100 duisburg 1       *
11 rem *                              *
12 rem ********************************
15 gosub 55000
20 s=0:diml$(45):dimm$(45)
30 dimq(45):dimla(45,6):dimw$(6):dims$(6):dimn$(45)
40 dimwv(13):dimwu(13):dimwe$(6,5):dimko(6):dimkl(6):dimdd(6)
100 we$(6,1)="UCCCI"
110 we$(6,2)="{SHIFT--}Q Q{SHIFT--}"
120 we$(6,3)="{SHIFT--}Q Q{SHIFT--}"
130 we$(6,4)="{SHIFT--}Q Q{SHIFT--}"
140 we$(6,5)="JCCCK"
150 we$(1,1)=we$(6,1):we$(1,2)="{SHIFT--}   {SHIFT--}":we$(1,3)="{SHIFT--} Q {SHIFT--}":we$(1,4)=we$(1,2)
160 we$(1,5)=we$(6,5)
170 we$(2,1)=we$(6,1):we$(2,2)="{SHIFT--}Q  {SHIFT--}":we$(2,3)=we$(1,2):we$(2,4)="{SHIFT--}  Q{SHIFT--}"
180 we$(2,5)=we$(6,5)
190 we$(3,1)=we$(6,1):we$(3,2)=we$(2,2):we$(3,3)=we$(1,3):we$(3,4)=we$(2,4)
200 we$(3,5)=we$(6,5)
210 we$(4,1)=we$(6,1):we$(4,2)=we$(6,2):we$(4,3)=we$(2,3):we$(4,4)=we$(6,4)
220 we$(4,5)=we$(6,5)
230 we$(5,1)=we$(6,1):we$(5,2)=we$(6,2):we$(5,3)=we$(1,3):we$(5,4)=we$(6,4)
240 we$(5,5)=we$(6,5)
250 dima(7):dimb(7)
260 a(1)=4:a(2)=8:a(3)=6:a(4)=9:a(5)=6:a(6)=7:a(7)=5
270 b(1)=0:b(2)=4:b(3)=12:b(4)=18:b(5)=27:b(6)=33:b(7)=40
280 er=45:ar=4:dimxs(6):fori=1to6:xs(i)=0:dd(i)=0:next:c=1:wt=1:gf=0
900 gosub20000:print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{lblu} spielanleitung ?  [j/n]"
910 geta$:ifa$=""then910
920 ifa$="j"thengosub60000
1000 poke53281,0:poke53280,0
1010 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{grn}{rght}{rght}{rght}{rght}{rght}{rght}wieviele spieler ? (2-6)"
1020 gets$:ifs$=""then1020
1030 ifs$="2"thenl=22:s=2
1040 ifs$="3"thenl=15:s=3
1050 ifs$="4"thenl=11:s=4
1055 ifs$="5"thenl=9:s=5
1060 ifs$="6"thenl=7:s=6
1070 ifs=0then1020
1080 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}"
1090 forw=1tos
1100 print"{down}name des ";:printw;:print". spielers ";:inputw$(w)
1101 s$(w)=left$(w$(w),2)
1102 ifw>=2theny=0:goto1104
1103 goto1108
1104 fori=1tow:ifs$(w)=s$(i)theny=y+1
1105 nexti
1107 ify<>1then1100
1108 nextw
1109 print"{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{grn}{rght}bitte geduld ich lose die laender aus"
1110 forx=1to45:readl$(x),za,zb,zc,zd,ze,zf
1111 la(x,1)=za:la(x,2)=zb:la(x,3)=zc:la(x,4)=zd:la(x,5)=ze:la(x,6)=zf
1118 n$(x)="oo":m$(x)="o":q(x)=1:nextx
1120 forv=1tol
1130 forp=1tos
1140 x=int(er*rnd(1))+1
1145 ifn$(x)<>"oo"then1140
1150 n$(x)=s$(p):m$(x)=w$(p)
1160 ifx=erthener=er-1
1170 nextp:nextv
1180 forkl=1to45
1190 ifn$(kl)="oo"thenn$(kl)="co":m$(kl)="computer"
1200 nextkl
1500 gosub20000
1505 print"{grn}{clr}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}feldheer ";:printw$(c)
1510 print"{down}{down}{rght}{rght}{rght}{rght}{rght}sie bekommen ";:print"{red}";:printar;:print"{grn} armeen dazu"
1515 fori=1to1500:nexti
1520 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}wo sollen die armeen hin ?":fori=1to750:nexti
1530 gosub52400
1540 gosub20000
1550 a$="":print"{clr}{red}";
1551 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w=si+4:a=si+5:h=si+6:l=si+24
1552 forx=15to0step-.1:print" angriff ";
1553 pokel,x:pokea,15:pokeh,74:pokefh,140:pokew,129
1554 next
1555 pokew,0:pokea,0
1560 ifa$="n"then1580
1565 gosub15000
1567 ifa$="n"then1580
1570 goto1565
1580 gosub20000
1590 print"{clr}{pur}"
1591 si=54272:fl=si:fh=si+1:tl=si+2:th=si+3:w=si+4:a=si+5:h=si+6:l=si+24
1592 forx=1to10:fori=15to0step-1:print" verschieben ";:fory=1to2:nexty
1593 pokel,15:pokea,102:pokeh,1:pokefh,i*10:pokefl,i*15:pokew,33
1594 nexti
1595 pokew,0:pokea,0
1600 nextx:pokew,0:pokea,0
1610 qy=0:qz=0
1620 gosub20010
1621 print"{clr}{rght}{rght}{rght}{rght}{rght}{blu}feldherr ";:printw$(c);:print" ihre laender{down}"
1630 y=0
1640 fori=1to45
1650 ifn$(i)=s$(c)thenprinttab(y)"{yel}";i;".";tab(5+y)"{grn}";l$(i);:goto1655
1654 goto1660
1655 printtab(15+y)"{red}";q(i);:y=y+20:ify=40theny=0:print
1660 nexti
1670 print:print"{down}{yel}{rght}{rght}{rght}{rght}{rght}von nummer: ";:inputts$
1675 ifts$="x"thengoto1810
1676 ifts$="@"thengosub53000:goto1620
1690 qy=val(ts$)
1700 ifn$(qy)<>s$(c)then1620
1720 print"{clr}":gosub20020
1721 print"{home}{down}{down}{down}{rght}{rght}{red}verschieben von {rvon}";l$(qy);"{rvof}  {pur}";q(qy)
1722 le=qy:gosub30120:print:gosub20020
1725 print"{down}{rght}{rght}{rght}{lgrn}nach land nr";:inputy$
1726 ify$="x"then1810
1727 ify$="@"thengosub53000:goto1720
1728 y=val(y$):qz=0
1729 fori=1to6:ify=la(qy,i)thenqz=y
1730 nexti
1732 ifqz=0then1720
1735 ifn$(qz)<>s$(c)then1720
1760 print"{down}{rght}{rght}{lred}wieviele armeen";:inputer
1770 ifer>q(qy)-1then1760
1780 q(qz)=q(qz)+er
1790 q(qy)=q(qy)-er
1800 goto1620
1810 gosub 13000
1811 c=c+1:ifc>sthenc=1
1815 forx=1togf:ifdd(x)=cthenc=c+1
1816 nextx
1817 ifc>sthenc=1:goto1815
1820 ifxs(c)<5then1840
1830 x=xs(c)/5:x=int(x):xs(c)=xs(c)-5*x:wt=wt+1:ar=x*wt
1840 ar=ar+4
1850 fory=1to7:forx=1toa(y)
1860 ifn$(b(y)+x)=s$(c)thenc(y)=c(y)+1
1870 nextx
1880 ifc(y)=a(y)thenar=ar+c(y)
1885 c(y)=0
1890 nexty
1900 goto1500
13000 forx=1tos:kl(x)=0:ko(x)=0:nextx
13010 fory=1tos
13020 forx=1to45
13030 ifn$(x)=s$(y)thenkl(y)=1
13040 nextx
13050 ifkl(y)<>1thenko(1)=y
13060 nexty
13070 ifko(1)=0thenreturn
13080 gosub20000:print"{clr}":gosub20020
13090 print"{down}{red}{rght}{rght}{rght}{rght}{rght}{rght}eine traurige nachricht !!!"
13100 print"{down}{blu}{rght}{rght}feldherr {cyn}";w$(ko(1));" {blu}mit seiner "
13110 print"{down}{rght}{rght}letzen armee in den kampf gezogen,"
13120 print"{down}{rght}{rght}und wurde toedlich getoffen"
13130 forx=1to5000:nextx
13140 gf=gf+1:dd(gf)=ko(1)
13150 goto13000
15000 gosub20000:z=0
15002 gosub40000
15003 print"{down}{down}{rght}{rght}{wht}angriff von welchem kontinent aus ?"
15010 print"{cyn}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}1.{grn} miniland"
15020 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}2.{grn} jumboland"
15030 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}3.{grn} bongoland"
15040 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}4.{grn} wangoland"
15050 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}5.{grn} zululand"
15060 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}6.{grn} yungoland"
15070 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}7.{grn} xyloland"
15080 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{yel}{rvon}nummer ?{rvof}"
15090 geta$:ifa$=""then15090
15100 ifa$="1"thenz=1
15110 ifa$="2"thenz=2
15120 ifa$="3"thenz=3
15130 ifa$="4"thenz=4
15140 ifa$="5"thenz=5
15150 ifa$="6"thenz=6
15160 ifa$="7"thenz=7
15165 ifa$="x"then:a$="n":return
15167 ifa$="@"thengosub53000
15180 ifz=0then15000
15200 gosub20010:print"{clr}"
15210 print"{clr}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}angriff von land nr: "
15220 fori=1toa(z)
15230 print"{down}{rght}{rght}{rght}{rght}{lblu}";b(z)+i;". {yel}";l$(b(z)+i);
15240 printtab(27)"{grn}";n$(b(z)+i);
15250 printtab(35)"{red}";q(b(z)+i)
15260 next
15270 print"{lblu}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}nummer :";:inputle$
15280 ifle$="@"thengosub53000:goto15200
15290 ifle$="x"thena$="j":return
15300 le=val(le$)
15310 ifle<1orle>45then15200
15320 ifn$(le)<>s$(c)then15200
15330 gosub30000:return
16000 poke53281,2:poke53280,8:x=0
16002 gosub41000
16003 print"{down}{down}{rght}{rght}{rght}{rght}{wht}informationen ueber kontinent ?"
16010 print"{cyn}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}1.{yel} miniland"
16020 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}2.{yel} jumboland"
16030 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}3.{yel} bongoland"
16040 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}4.{yel} wangoland"
16050 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}5.{yel} zululand"
16060 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}6.{yel} yungaland"
16070 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{cyn}7.{yel} xyloland"
16080 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{blk}{rvon}nummer ?{rvof}"
16090 geta$:ifa$=""then16090
16100 ifa$="1"thenx=1
16110 ifa$="2"thenx=2
16120 ifa$="3"thenx=3
16130 ifa$="4"thenx=4
16140 ifa$="5"thenx=5
16150 ifa$="6"thenx=6
16160 ifa$="7"thenx=7
16165 ifa$="x"then:a$="":return
16167 ifa$="@"thengosub53000
16180 ifx=0then16000
16190 poke53281,8:poke53280,9
16200 print"{clr}";:gosub20020:print"{home}"
16210 fori=1toa(x)
16230 print"{down}{rght}{rght}{rght}{red}";b(x)+i;"{rght}{rght}{blk}";l$(b(x)+i);tab(29)"{brn}";n$(b(x)+i);"{rght}{rght}{rght}{rght}{rght}{gry1}";:
16240 printq(b(x)+i)
16250 nexti
16260 print:gosub20020
16270 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} taste {rvof}"
16280 geta$:ifa$=""then16280
16300 return
20000 poke53281,0:poke53280,0:return
20010 poke53281,0:poke53280,11:return
20020 print"{rght}{wht}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":return
20030 print"{rght}{blu}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}":return
30000 gosub20010:print"{clr}"
30100 print"{red}{rght}{rght}{rght}{rvon} ";:printl$(le);:print" {rvof}{rght}{rght}{rght}armeen:";:printq(le)
30105 print:gosub20030:print
30110 print"{down}{cyn}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}angriff auf :":gosub30120:goto30305
30120 print"{down}{down}{rght}{rght}{grn}";:printla(le,1);". {lblu}";l$(la(le,1));tab(23)"{pur}";
30130 printn$(la(le,1));"{rght}{rght}{lred}";q(la(le,1))
30140 print"{down}{rght}{rght}{grn}";la(le,2);". {lblu}";l$(la(le,2));tab(23)"{pur}";
30150 printn$(la(le,2));"{rght}{rght}{lred}";q(la(le,2))
30160 ifla(le,3)=0thengoto30300
30170 print"{down}{rght}{rght}{grn}";la(le,3);". {lblu}";l$(la(le,3));tab(23)"{pur}";
30180 printn$(la(le,3));"{rght}{rght}{lred}";q(la(le,3))
30190 ifla(le,4)=0thengoto30300
30200 print"{down}{rght}{rght}{grn}";la(le,4);". {lblu}";l$(la(le,4));tab(23)"{pur}";
30210 printn$(la(le,4));"{rght}{rght}{lred}";q(la(le,4))
30220 ifla(le,5)=0thengoto30300
30230 print"{down}{rght}{rght}{grn}";la(le,5);". {lblu}";l$(la(le,5));tab(23)"{pur}";
30240 printn$(la(le,5));"{rght}{rght}{lred}";q(la(le,5))
30250 ifla(le,6)=0thengoto30300
30260 print"{down}{rght}{rght}{grn}";la(le,6);". {lblu}";l$(la(le,6));tab(23)"{pur}";
30270 printn$(la(le,6));"{rght}{rght}{lred}";q(la(le,6))
30300 return
30305 print"{down}{down}{lgrn}{rght}{rght}{rght}{rght}{rght}{rght}{rght}angriff auf nummer :";:
30310 inputls$
30311 ifls$="@"thengosub53000:goto30000
30312 ifls$="x"thena$="j":return
30313 ls=val(ls$)
30315 y=0:fori=1to6:ifla(le,i)=lstheny=1
30316 next:ify<>1then30000
30317 ifn$(ls)=s$(c)then30000
30320 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{lred}mit wie vielen armeen :";:inputaq
30330 ifaq>q(le)-1then30000
30335 q(le)=q(le)-aq
30400 ifaq>3thenwu=4:goto30410
30405 wu=aq
30410 ifq(ls)>3thenwv=4:goto30420
30415 wv=q(ls)
30420 fori=1towu:wu(4+i)=int(6*rnd(1))+1:next
30430 fori=1towv:wv(4+i)=int(6*rnd(1))+1:next
30450 ifwu<=3thenwu(8)=0
30460 ifwu<=2thenwu(7)=0
30470 ifwu<=1thenwu(6)=0
30480 ifwv<=3thenwv(8)=0
30490 ifwv<=2thenwv(7)=0
30500 ifwv<=1thenwv(6)=0
30510 wx=0
30550 ifwu(8)>=wu(7)andwu(8)>=wu(6)andwu(8)>=wu(5)thenwx=wx+1:wu(wx)=wu(8):wu(8)=-1
30560 ifwu(7)>=wu(8)andwu(7)>=wu(6)andwu(7)>=wu(5)thenwx=wx+1:wu(wx)=wu(7):wu(7)=-1
30570 ifwu(6)>=wu(8)andwu(6)>=wu(7)andwu(6)>=wu(5)thenwx=wx+1:wu(wx)=wu(6):wu(6)=-1
30580 ifwu(5)>=wu(8)andwu(5)>=wu(7)andwu(5)>=wu(6)thenwx=wx+1:wu(wx)=wu(5):wu(5)=-1
30590 ifwu(9)<>-1then30550
30600 wx=0
30610 ifwv(8)>=wv(7)andwv(8)>=wv(6)andwv(8)>=wv(5)thenwx=wx+1:wv(wx)=wv(8):wv(8)=-1
30620 ifwv(7)>=wv(8)andwv(7)>=wv(6)andwv(7)>=wv(5)thenwx=wx+1:wv(wx)=wv(7):wv(7)=-1
30630 ifwv(6)>=wv(8)andwv(6)>=wv(7)andwv(6)>=wv(5)thenwx=wx+1:wv(wx)=wv(6):wv(6)=-1
30640 ifwv(5)>=wv(8)andwv(5)>=wv(7)andwv(5)>=wv(6)thenwx=wx+1:wv(wx)=wv(5):wv(5)=-1
30650 ifwv(9)<>-1then30610
30660 wv(9)=0:wu(9)=0
30670 poke53280,11:poke53281,15:print"{clr}"
30680 print"{rght}{rght}{rght}{red}angreifer{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{blk}verteidiger{down}"
30690 fori=1towu:fory=1to5
30700 print"{red}{rght}{rght}{rght}{rght}";we$(wu(i),y)
30710 nexty:print;:nexti
30715 print"{home}{down}{down}"
30720 fori=1towv:fory=1to5
30730 printtab(32)"{blk}";we$(wv(i),y)
30740 nexty:print;:nexti
30745 fory=1to1500:nexty
30750 y=0:fori=1to4
30760 ifwu(i)=0orwv(i)=0thengoto30810
30770 ifwv(i)>=wu(i)thenaq=aq-1:goto30810
30780 q(ls)=q(ls)-1
30810 nexti
30820 ifaq<>0andq(ls)<>0then30400
30830 gosub40000
30840 ifq(ls)=0thenprint"{down}{down}{down}{down}{down}{down}{rght}{rght}{grn}";w$(c);" sie haben ";l$(ls)" erobert":goto30860
30850 goto30900
30860 print"{down}{rght}{rght}es sind nun{red}";aq;"{grn}armeen in diesem land"
30870 print"{down}{down}{down}{rght}{rght}{lblu}";m$(ls);" sie haben {red}";l$(ls);"{lblu} verloren"
30880 q(ls)=aq:n$(ls)=s$(c):xs(c)=xs(c)+1:m$(ls)=m$(le):goto31000
30900 print"{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{lblu}";m$(ls);" sie haben {red}";l$(ls)
30910 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{lblu}erfolgreich verteidigt"
30920 print"{down}{down}{down}{grn}{rght}{rght}{rght}{rght}{rght}{rght}";m$(le);" hat seine angreifenden"
30930 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}truppen verloren"
31000 fori=1to5000:next
31010 print"{clr}":poke53280,0:poke53281,0
31020 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{pur}noch ein angriff ";w$(c);" ?"
31030 geta$:ifa$=""then31030
31050 return
40000 poke53280,11:poke53281,0:print"{clr}"
40010 forwj=1024to1063:pokewj,102:next
40020 forwj=1984to2023:pokewj,102:next
40030 forwj=1064to1944step40:pokewj,102:next
40040 forwj=1103to1983step40:pokewj,102:next
40050 forwj=55296to55335:pokewj,6:next
40060 forwj=56256to56295:pokewj,6:next
40070 forwj=55336to56216step40:pokewj,6:next
40080 forwj=55375to56255step40:pokewj,6:next
40090 print"{home}";:return
41000 print"{clr}"
41010 forwj=1024to1063:pokewj,42:next
41020 forwj=1984to2023:pokewj,42:next
41030 forwj=1064to1944step40:pokewj,42:next
41040 forwj=1103to1983step40:pokewj,42:next
41050 forwj=55296to55335:pokewj,1:next
41060 forwj=56256to56295:pokewj,1:next
41070 forwj=55336to56216step40:pokewj,1:next
41080 forwj=55375to56255step40:pokewj,1:next
41090 print"{home}";:return
43996 ifa$="\"thenend
45000 poke53280,0:poke53281,6
45010 print"{clr}{wht}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} planet gurungo {rvof}{down}"
45020 print"{blk}{rvon}{rght}{rght}{rght}{rght}{rght}  {rght}   {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}     {rght}{rght}{rght}{rght}{rght}{rght}{rvof}"
45030 print"{rvon}{rght}{rght}{rght}{rght}{rght}       {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}        {rght}{rght}{rght}{rght}{rvof}"
45040 print"{rvon}{rght}{rght}{rght}{rght}  jumbo  {rght}{rght}{rght}{rght}    {rght}{rght}{rght}{rght}{rght}          {rght}{rght}{rght}{rvof}"
45050 print"{rvon}{rght}{rght}{rght}{rght}          {rght}{rght}      {rght}{rght}{rght}{rght}  wango   {rght}{rght}{rght}{rvof}"
45060 print"{rvon}{rght}{rght}{rght}{rght}  {rght}       {rvof}{SHIFT-*}{rvon}  mini  {rght}{rght}{rght}{rght}{rvof}N{rvon}       {rght}{rght}{rght}{rght}{rvof}"
45070 print"{rvon}{rght}{rght}{rght}{rght}  {rght}{rght}     {rght}{rght}        {rght}{rght}{rght} {rght}      {rght}{rght}{rght}{rght}{rght}{rvof}"
45080 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}     {rght}{rght}{rght}{rght}        {rght}{rvof}{CBM-P}{rvon} {rvof}{SHIFT-*}{rvon}      {rght}{rght}{rght}{rght}{rght}{rvof}"
45090 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}     {rght}{rvof}M{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}     {rght}{rght}{rght}{rght}    {rght}{rght}{rght}{rght}{rght}{rght}{rvof}"
45100 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}N{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}M{rvon}{rght}    {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}{CBM-N}{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}"
45110 print"{rvon}{rght}{rght}{rght}    {rght}{rght}{rght}{rght}{rght}{rght}{rght}      {rght}{rght}{rght}{rght}{rght}{rght}{rght}  {rght}  {rght}{rght}{rght}{rght}{rght}{rght}{rvof}"
45120 print"{rvon}{rght}{rght}      {rght}{rght}{rght}{rght}         {rght}{rght}{rght}{rght}{rght}      {rght}{rght}{rght}{rght}{rght}{rvof}"
45130 print"{rvon}{rght}       {rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvon}   zulu    {rght}{rght}{rght}       {rght}{rght}{rght}{rght}{rght}{rvof}"
45140 print"{rvon}{rght} xylo {rght}{rght}{rght}{rght}         {rght} {rght}{rght}{rght} bonga {rvof}M{rvon} {rght}{rght}{rght}{rvof}"
45150 print"C{rvon}       {rght}{rght}{rght}{rght}{rght}       {rght} {rght}{rght}{rght}{rght}     {rght}{rght} {rvof}CCCCCC"
45160 print"{up}{rvon}{rght}{rght}     {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}    {rght}{rght}{rght}{rvof}M{rvon}{rght}{rght}{rght}{rght}   {rght}{rvof}{CBM-Y}{CBM-Y}{rvon}{rght}{rght}{rght}{rght}{rvof}"
45170 print"{rvon}{rght}{rght}{rght}    {rght}{rght}{rght}{rght}{rght}{rght}{rght}    {rght}{rght}{rght}    {rght}{rvof}{CBM-P}{CBM-P}{rvon} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}"
45180 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}      {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}"
45190 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}  yunga {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}"
45200 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}        {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}"
45210 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}N{rvon}     {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}"
45215 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rght}{rght}    {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}"
45216 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvon}  {rght}{rght}{rght}{rght}{yel}taste{rght}{rght}{rvof}"
45230 geta$:ifa$=""then45230
45250 a$="":return
46000 poke53280,0:poke53281,6
46010 print"{clr}{down}{wht}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} miniland {rvof}{down}"
46020 print"{blk}{down}{down}"
46030 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}       {rvof}"
46040 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}            {rvof}"
46050 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-P}{CBM-P}  moira   O  {rvof}"
46060 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}   M        N     {rvof}"
46070 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} ";n$(2);" M  ";n$(1);"  N       {rvof}"
46080 print"{rght}{pur}j{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{blk}{rvon}      M{CBM-P}{CBM-P}{CBM-P}{CBM-P}N  ";n$(3);"    {rvof}"
46090 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  mur M            {$a0}{rvof}"
46100 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}      M  marisuan {CBM-P}{CBM-P}{rvof}"
46110 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}     {SHIFT-@}     {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N  {rvof}"
46120 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}     {rvof}  {rvon}     N       {rvof}"
46130 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}   {rvof}   {rvon}    N        {rvof}"
46140 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  N mesigo {rvof}"
46150 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}         {rvof}"
46160 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}   ";n$(4);" {rvof}"
46170 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}    {rvof}{pur}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}w{blk}"
46220 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{yel}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}taste{rvof}"
46230 geta$:ifa$=""then46230
46250 a$="":return
47000 poke53280,0:poke53281,6
47010 print"{clr}{down}{wht}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} jumboland {rvof}{down}"
47020 print"{blk}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}     {rvof}"
47030 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}       {rvof}              {rvon}   {rvof}"
47040 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} juisu   {rvof}           {rvon}      {rvof}"
47050 print"{rght}{rght}{rght}{rght}{rght}{rght}{rvon}           {rvof}         {rvon} josuah  {rvof}"
47060 print"{rght}{rght}{rght}{rght}{rght}{rvon} {CBM-Y}M       N{CBM-Y}   {rvof}    {rvon}            {rvof}
47070 print"{rght}{rght}{rght}{rvon}     M  ";n$(5);" {CBM-N}   ";n$(7);"   {CBM-N}             {rvof}"
47080 print"{rght}{rght}{rvon}   ";n$(6);"  M    {CBM-N}        {CBM-N}{CBM-P}{CBM-P}{CBM-P}{CBM-P}     ";n$(8);"  {rvof}"
47090 print"{rght}{rght}{rvon}        M   {rvof}  {rvon} jedip {CBM-N}    M       {rvof}
47100 print"{rght}{rght}{rght}{rvon}        {CBM-Y}{CBM-Y}{rvof}   {rvon}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N ";n$(9);"  M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{rvof}"
47110 print"{rght}{rght}{rght}{rght}{rvon}  juklia {rvof}    {rvon}      M           {rvof}"
47120 print"{rght}{rght}{rght}{rght}{rght}{rvon}         {rvof}    {rvon}      M{CBM-P}{CBM-P}  jidu {rvof}{pur}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}m{blk}"
47130 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}      {rvof}    {rvon}         M     {rvof}"
47140 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  {rvof}    {rvon}  juxario N{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{rvof}"
47150 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}M{rght}{rght}{rght}{rght}{rght}{rvon}        Njanian {rvof}"
47160 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}M{rght}{rght}{rght}{rvon} M  ";n$(10);"  N        {rvof}"
47170 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}     M    N   ";n$(11);"   {rvof}"
47180 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}    ";n$(12);"   M  {CBM-N}        {rvof}{pur}M{blk}"
47190 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}           {CBM-Y}{CBM-Y}{CBM-Y}M   {rvof}     {pur}M{blk}"
47200 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  jodelia     {rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}z{blk}"
47205 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}N{blk}{rvon}         {rvof}"
47210 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}xN{blk}{rght}{rght}{rght}{rvon}     {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{yel}taste{rvof}"
47230 geta$:ifa$=""then47230
47250 a$="":return
48000 poke53280,0:poke53281,6
48010 print"{clr}{down}{wht}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} bongaland {rvof}{down}"
48020 print"{blk}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}Bw{blk}"
48030 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  {rvof}              {pur}B{blk}"
48040 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}    {rvof}            {rvon}  {rvof}"
48050 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}      M   {rvof}     {rvon}     {rvof}"
48060 print"{rght}{rght}{rght}{rght}{rght}{rght}{rvon}        {CBM-H}     {rvof} {rvon}       {rvof}"
48070 print"{rght}{rght}{rght}{rght}{rght}{rvon}  bouya  {CBM-H}             {rvof}"
48080 print"{rght}{rght}{rght}{rght}{rvon}          {CBM-H}bunga  {CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{rvof}"
48090 print"{rght}{rght}{rght}{rght}{rvon}   ";n$(13);"    N       N     {rvof}"
48100 print"{rght}{rght}{rght}{rght}{rvon}        NM   ";n$(14);" N      {rvof}"
48110 print"{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N  {CBM-Y}{CBM-Y}M{CBM-P}{CBM-P}N  ";n$(16);"  {rvof}{rght}{rght}N{rvon}   {rvof}"
48120 print"{rght}{rght}{rght}{rght}{rght}{rght}{rvon}          {CBM-N}         {rvof}{rght}N{rght}{rvon}     {rvof}"
48130 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}   bifian{CBM-N} balingo {rvof}N{rght}{rght}{rght}{rvon}     {rvof}"
48140 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}       {CBM-N}         {rvof}{rght}{rght}{rght}{rght}{rvon}  ";n$(18);" {rvof}"
48150 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  ";n$(15);"  M{CBM-P}{CBM-P}     {rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}     {rvof}"
48160 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}     {CBM-N}  M    {rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}      {rvof}"
48170 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N ";n$(17);"M{CBM-P}{CBM-P}{rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  beyu {rvof}"
48180 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}         {rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvon}       {rvof}"
48190 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  boan {rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}      {rvof}{pur}CCx{blk}"
48200 print"{rght}{rght}{rght}{rght}{rght}{rght}{pur}y{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{blk}{rvon}      {rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}    {rvof}"
48210 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  {rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  {rvof}"
48220 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{yel}{rvon}taste{rvof}"
48230 geta$:ifa$=""then48230
48250 a$="":return
49000 poke53280,0:poke53281,6
49010 print"{clr}{down}{wht}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} wangoland {rvof}{down}{down}"
49020 print"{blk}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  M       M  {rvof}"
49030 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}     M       M    {rvof}"
49040 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}   ";n$(20);"  {CBM-N} wiumbo{CBM-N}     {rvof}"
49050 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}        {CBM-N}       Nwokio {rvof}"
49060 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  waguriu{CBM-N}  ";n$(19);"  N     N{CBM-Y} {rvof}"
49070 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}         {CBM-N}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N  ";n$(22);" N    {rvof}"
49080 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}        N     M    N  ";n$(23);" {rvof}"
49090 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}     N       M{CBM-P}{CBM-P}N      {rvof}"
49100 print"{rght}{rght}{rght}{rght}{rvon}   {rvof}{rght}{rght}{rght}N{rght}{rght}{rvon}  N  wefia {CBM-N}        {rvof}"
49110 print"{rght}{rght}{rght}{rvon}  ";n$(26);"  {rvof}N{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}       {CBM-N} wigua {rvof}"
49120 print"{rght}{rght}{rght}{rvon}       {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}  ";n$(21);" NM{CBM-P}{CBM-P}   {rvof}"
49130 print"{rght}{rght}{rvon}  wanzan{CBM-P}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-P}{CBM-P}{CBM-P}N ";n$(24);" M{CBM-P}{CBM-P}{rvof}"
49140 print"{rght}{rght}{rght}{rvon}      N   {rght}{rght}{rght}{rght}{rght}{rght}{rght}   M       {rvof}"
49150 print"{rght}{rght}{rght}{rght}{rvon}    N     {rght}{rght}{rght}{rght}{rght}{rght}    Mwuga {rvof}"
49160 print"{rght}{rght}{rght}{rght}{rght}{rvon}  N wegos {rght}{rght}{rght}{rght}{rght}{rght} ";n$(25);" M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{rvof}"
49170 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}         {rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvon}        {rvof}"
49175 print"{rght}{rght}{rght}{pur}m{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{blk}{rvon} ";n$(27);"   {rght}{rght}{rght}{rght}{rght}{rght}{rght} waspo {rvof}"
49180 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}    {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}      {rvof}"
49190 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}    {rvof}"
49220 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}Bb{rght}{rght}{rght}{rght}{yel}{rvon}taste{rvof}"
49230 geta$:ifa$=""then49230
49250 a$="":return
50000 poke53280,0:poke53281,6
50005 print"{clr}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{wht}{rvon} zululand {rvof}{down}"
50007 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}j{blk}"
50010 print"{blk}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}M{blk}{rght}{rght}{rvon}        N        {rvof}"
50020 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}M{blk}{rvon}  zuga   {CBM-H} zilubo   {rvof}"
50030 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}         NM           {rvof}"
50040 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-P}   ";n$(28);"   N  M    ";n$(29);"     {rvof}"
50050 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N    M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N{CBM-Y}{rvof}"
50060 print"{rght}{rght}{rght}{rght}{rght}{rght}{rvon}   ";n$(30);"     {CBM-N}           N      {rvof}"
50070 print"{rght}{rght}{rght}{rght}{rvon}             M zanguan N       {rvof}"
50080 print"{pur}x{SHIFT-*}{SHIFT-*}{SHIFT-*}{blk}{rvon}  zulamboga   M        {CBM-H} zagi {rvof}"
50090 print"{rght}{rght}{rght}{rght}{rght}{rvon}             {CBM-N}        {CBM-H}      {rvof}"
50100 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}     {CBM-P}{CBM-P}{CBM-P}N  ";n$(31);"   N      {rvof}"
50110 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-P}{CBM-P}N   M       {rght}  ";n$(32);" {rvof}"
50120 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}      M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{rght}{rght}     {rvof}"
50130 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}            {rght}{rght}{rght}   {rvof}{pur}M{blk}"
50140 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} zelambie {rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}M{blk}"
50150 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}         {rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}M{blk}"
50160 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}       {rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}M{blk}"
50170 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  ";n$(33);"  {rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}y{blk}"
50180 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}      {rvof}"
50190 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}      {rvof}"
50200 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}    {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{yel}taste{rvof}"
50230 geta$:ifa$=""then50230
50250 a$="":return
51000 poke53281,0:poke53281,6:print"{clr}{down}{wht}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} yungaland {rvof}{down}"
51003 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}{rght}zM{blk}"
51005 print"{blk}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}        {CBM-N}    {rvof}"
51010 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}         {CBM-P}{CBM-P}N       {rvof}"
51020 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}   yunkan N  M yeduin  {rvof}{pur}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}b{blk}"
51030 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  ";n$(34);"       N    M{CBM-P}{CBM-P}{CBM-P}      {rvof}"
51040 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N         M ";n$(35);"   {rvof}"
51050 print"{rght}{rght}{rght}{rght}{rght}{rght}{rvon}           {CBM-H}  yupondei  M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{rvof}"
51060 print"{rght}{rght}{rght}{rght}{rght}{rght}{rvon}           M                N   {rvof}"
51070 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}   yiunak M{CBM-P}{CBM-P}{CBM-P}{CBM-P}   ";n$(36);"     N ";n$(38);" {rvof}"
51080 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}N{rvon}             M      N{CBM-Y}{CBM-Y}    {rvof}"
51090 print"{rght}{rght}{rght}{rvon}   {rvof}{rght}{rght}N{rght}{rght}{rght}{rvon}     ";n$(37);"     M{CBM-P}{CBM-P}{CBM-P}{CBM-P}N     {rvof}"
51100 print"{rght}{rght}{rvon}     {rvof}N{rght}{rght}{rght}{rght}{rght}{rght}{rvon}       N{CBM-Y}MN        {rvof}"
51110 print"{rght}{rght}{rvon}  ";n$(40);"  {rght}{rght}{rght}{rght}{rght}{rght}{rght}     N  N  yeti {rvof}"
51120 print"{rght}{rght}{rght}{rvon}      {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}  {CBM-H}  L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{rvof}"
51130 print"{rght}{rght}{rght}{rght}{rght}{rvon}      {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}            {rvof}"
51140 print"{rght}{rght}{rght}{rght}{rght}{rght}{rvon}       {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}            {rvof}"
51150 print"{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  yungo {rvof}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{rvon} yasafkiju {rvof}"
51160 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}     {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}          {rvof}"
51170 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}   {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}   ";n$(39);"   {rvof}"
51180 print"{rvon}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}     {rvof}
51220 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{yel}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}taste{rvof}"
51230 geta$:ifa$=""then51230
51250 a$="":return
52000 poke53280,0:poke53281,6
52010 print"{clr}{down}{wht}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} xyloland {rvof}{down}"
52015 print"{blk}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{pur}Nj{blk}"
52020 print"{blk}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}    {CBM-H}      {rvof}"
52030 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}       {CBM-H}   ";n$(42);"    {rvof}"
52040 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}        N            {rvof}"
52050 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}   xektra {CBM-H}xipaloingu  {rvof}"
52060 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}           M           {rvof}"
52070 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  ";n$(41);" N{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}M        {rvof}{pur}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}z{blk}"
52080 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N        M{CBM-P}{CBM-P}{CBM-P}{CBM-P}  {rvof}"
52090 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}     {CBM-N}  xentria M   M{rvof}"
52100 print"{rght}{rght}{pur}bCCCC{blk}{rvon}       M         {CBM-N}  {rvof}"
52110 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}       {CBM-H}  ";n$(43);"    N {rvof}"
52120 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  ";n$(44);" M{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}N  {rvof}"
52130 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}         M        {rvof}"
52140 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}           M   ";n$(45);"    {rvof}"
52150 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}  xambesian {CBM-N}          {rvof}"
52160 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}           Nxylamboan  {rvof}"
52170 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}       N          {rvof}"
52180 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{CBM-P}{CBM-P}{CBM-P}N         {rvof}"
52190 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}        {rvof}"
52220 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{yel}{rvon}taste{rvof}"
52230 geta$:ifa$=""then52230
52250 a$="":return
52400 poke53281,0:poke53280,14:y=0
52410 print"{clr}{down}{rght}{rght}{rght}{rght}{rght}{lblu}feldherr ";:printw$(c);:print" ihre laender"
52420 print"{down}{down}"
52430 fori=1to45
52440 ifn$(i)=s$(c)thenprinttab(y)"{yel}";i;".";tab(5+y)"{grn}";l$(i);:goto52445
52443 goto52450
52445 printtab(15+y)"{red}";q(i);:y=y+20:ify=40theny=0:print
52450 nexti:print
52560 print"{down}{yel}{rght}nummer des landes ";:inputt$
52565 ift$="@"thengosub53000:goto52400
52566 ift$=chr$(13)then52400
52567 t=0
52570 t=val(t$)
52580 ifn$(t)<>s$(c)then52400
52590 print:print"{down}{rght}{rght}{pur}wieviele armeen  [max";ar;"]";:inputer
52600 ifer>arthen52590
52610 ar=ar-er:q(t)=q(t)+er:ifar=0thent=0:return
52620 goto52410
53000 poke53280,0:poke53281,0
53010 print"{clr}{down}{rght}{rght}{rght}{lblu}{rvon}f1{rvof} :{blu} ";b$
53020 print"{down}{lblu}{rght}{rght}{rght}{rvon}f3{rvof} :{blu} ";c$
53030 print"{down}{lblu}{rght}{rght}{rght}{rvon}f5{rvof} :{blu} ";d$
53040 print"{down}{lblu}{rght}{rght}{rght}{rvon}f7{rvof} :{blu} ";e$
53050 print"{down}{lblu}{rght}{rght}{rght}{rvon}f2{rvof} :{blu} ";f$
53060 print"{down}{lblu}{rght}{rght}{rght}{rvon}f4{rvof} :{blu} ";g$
53070 print"{down}{lblu}{rght}{rght}{rght}{rvon}f6{rvof} :{blu} ";h$
53080 print"{down}{lblu}{rght}{rght}{rght}{rvon}f8{rvof} :{blu} ";i$
53090 print"{down}{lblu}{rght}{rght}{rght}{rvon}i{rvof}  :{blu} information ueber kontinente"
53100 print"{down}{lblu}{rght}{rght}{rght}{rvon}^{rvof}  :{blu} spiestand/spielende"
53105 print"{down}{lblu}{rght}{rght}{rght}{rvon}x{rvof}  :{blu} zurueck zum spielschritt"
53110 print"{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{red}{rvon}taste{rvof}"
53130 geta$:ifa$=""then53130
53140 ifa$="{f1}"thengosub45000
53150 ifa$="{f3}"thengosub46000
53160 ifa$="{f5}"thengosub47000
53170 ifa$="{f7}"thengosub48000
53180 ifa$="{f2}"thengosub49000
53190 ifa$="{f4}"thengosub50000
53200 ifa$="{f6}"thengosub51000
53210 ifa$="{f8}"thengosub52000
53220 ifa$="x"thenreturn
53230 ifa$="^"thengosub54000
53240 ifa$="i"thengosub16000
53250 goto53000
54000 poke53281,8:poke53280,9
54010 print"{clr}";:gosub20020:print"{home}{down}"
54015 forx=1tos:kl(x)=0:ko(x)=0:nextx
54020 fori=1tos
54030 forx=1to45
54040 ifn$(x)=s$(i)thenkl(i)=kl(i)+1
54050 nextx
54060 forx=1to7
54070 fory=1toa(x)
54080 ifn$(b(x)+y)=s$(i)thendf=df+1
54090 nexty:ifdf=a(x)thenko(i)=ko(i)+df
54100 df=0:nextx
54110 print"{down}{rght}{rght}{red}";w$(i);tab(25)"{gry1}";ko(i)+kl(i);tab(30)"{blk}punkte"
54120 nexti
54130 print"{down}":gosub20020:print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{blk}{rvon}taste{rvof}"
54140 geta$:ifa$=""then54140
54150 print"{clr}{down}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{blk}spielende [j/n]"
54160 geta$:ifa$=""then54160
54170 ifa$="j"thensys64738
54180 return
55000 poke53280,0:poke53281,0:print"{clr}{lblu}"
55010 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rvon}{SHIFT-POUND}  {CBM-*}{rght}{rght}  {rght}{rght}{SHIFT-POUND}    {rght}{rght}  {rght}{rght} {rght}{rght} {rght}{rght}{SHIFT-POUND}  {CBM-*}"
55020 print"{rght}{rght}{rght}{rght}{rvon} {rght}{rght} {rght}{rght}  {rght}{rght} {rvof}{SHIFT-POUND}{rvon}{rght}{rght}{rght}{rght}{rght}  {rght}{rght} {rght}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{rght}{rght} {rght}{rght} "
55030 print"{rght}{rght}{rght}{rght}{rvon} {rght}{SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{rght}{rght}  {rght}{rght} {CBM-*}{rght}{rght}{rght}{rght}{rght}  {rght}{rght} {SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{rght}{rght}{rght} {rght}{rght} "
55040 print"{rght}{rght}{rght}{rght}{rvon} {SHIFT-POUND}{rvof}{SHIFT-POUND}{rvon}{rght}{rght}{rght}  {rght}{rght}{rvof}{CBM-*}{rvon}   {CBM-*}{rght}{rght}  {rght}{rght}  {rght}{rght}{rght}{rght} {rght}{rght} "
55050 print"{rght}{rght}{rght}{rght}{rvon} {rvof}{CBM-*}{rvon}{CBM-*}{rght}{rght}{rght}  {rght}{rght}{rght}{rght}{rght}{rvof}{CBM-*}{rvon} {rght}{rght}  {rght}{rght} {rvof}{CBM-*}{rvon}{CBM-*}{rght}{rght}{rght} {rght}{rght} "
55060 print"{rght}{rght}{rght}{rght}{rvon} {rght}{rvof}{CBM-*}{rvon}{CBM-*}{rght}{rght}  {rght}{rght}{rght}{rght}{rght}{SHIFT-POUND} {rght}{rght}  {rght}{rght} {rght}{rvof}{CBM-*}{rvon}{CBM-*}{rght}{rght} {rght}{rght} "
55070 print"{rght}{rght}{rght}{rght}{rvon} {rght}{rght} {rght}{rght}  {rght}{rght}    {rvof}{SHIFT-POUND}{rvon}{rght}{rght}  {rght}{rght} {rght}{rght} {rght}{rght}{rvof}{CBM-*}{rvon}  {rvof}{SHIFT-POUND}{rvon}"
55080 print"{down}{down}{down}{down}{rght}{rght}{rght}{pur}created/written/idea/sound/grafik"
55090 print"{down}{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon}{red} all by bernd hornig {rvof}"
55100 fori=1to3500:next:return
60000 poke53280,1:poke53281,12:print"{clr}"
60010 print"{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{red}{rvon} spielanleitung {rvof}"
60020 print"{down}{rght}{blk}sie befinden sich in einer fernen ga-"
60030 print"{down}{rght}laxie auf dem planeten gurungo, mit "
60040 print"{down}{rght}seinen 7 kontinenten. sie sind fedlherr"
60050 print"{rght}auf diesem planeten und besitzen eine"
60060 print"{down}{rght}anzahl von laendern, die sie vergroes-"
60070 print"{down}{rght}sern und verteidigen sollen. jeden mo-":rem15
60080 print"{down}{rght}nat bekommen sie armeen dazu. die an-"
60090 print"{down}{rght}zahl richtet sich nach vollstaendig be-"
60100 print"{rght}setzten kontinenten und neu eroberten"
60110 print"{down}{rght}laendern.                 {down}{down}{rvon}{red} taste {rvof}"
60120 geta$:ifa$=""then60120
60130 print"{clr}{down}{blk}{rght}bei angriffen, oder bei verschieben von"
60140 print"{rght}armeen, muss mindestens eine armee im"
60150 print"{down}{rght}heimatland stehen bleiben."
60160 print"{down}{rght}mit der {red}{rvon}@{rvof}{blk}-taste kommen sie zum unter-"
60170 print"{down}{rght}menu, von dem sie die karten usw. er-"
60180 print"{down}{rght}reichen koennen."
60190 print"{down}{rght}mit der {red}{rvon}x{rvof}{blk}-taste koennen sie die rou-"
60200 print"{down}{rght}tinen beenden.     {down}{down}viel spass !!!!!!!"
60210 print"{down}{down}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{red}{rvon} taste {rvof}"
60220 geta$:ifa$=""then60220
60230 return
62000 return
63001 datamoira,2,3,0,0,0,0
63002 datamur,1,3,9,0,0,0
63003 datamarisuan,1,2,4,0,0,0
63004 datamesigo,3,27,0,0,0,0
63005 datajuisu,6,7,0,0,0,0
63006 datajuklia,5,12,0,0,0,0
63007 datajedip,5,8,9,10,0,0
63008 datajosuah,7,9,0,0,0,0
63009 datajidu,7,8,10,11,2,0
63010 datajuxario,7,9,11,12,0,0
63011 datajanian,9,10,12,2,0,0
63012 datajodelia,6,10,11,42,0,0
63013 databouya,14,15,0,0,0,0
63014 databunga,13,15,16,25,0,0
63015 databifian,13,15,16,17,0,0
63016 databalingo,14,15,17,18,0,0
63017 databoan,15,16,18,35,0,0
63018 databeyu,16,17,44,0,0,0
63019 datawiumbo,20,21,22,0,0,0
63020 datawagurio,19,21,26,0,0,0
63021 datawefia,19,20,22,23,24,25
63022 datawokio,19,21,23,0,0,0
63023 datawigua,21,22,24,0,0,0
63024 datawuga,21,23,25,0,0,0
63025 datawaspo,21,24,27,0,0,0
63026 datawanzan,20,27,0,0,0,0
63027 datawegos,25,26,4,0,0,0
63028 datazuga,29,30,31,11,0,0
63029 datazilubo,28,31,32,0,0,0
63030 datazulamboga,28,31,33,42,0,0
63031 datazanguan,28,29,30,32,33,0
63032 datazagi,29,31,34,0,0,0
63033 datazelambie,30,31,0,0,0,0
63034 datayunkan,35,36,37,32,0,0
63035 datayeduin,34,36,38,17,0,0
63036 datayupondei,34,35,37,38,0,0
63037 datayiunak,34,36,38,39,40,0
63038 datayeti,35,36,37,39,0,0
63039 datayasafkiju,37,38,40,0,0,0
63040 datayungo,37,39,0,0,0,0
63041 dataxektra,42,43,44,0,0,0
63042 dataxipaloingo,41,43,45,30,12,0
63043 dataxentria,41,42,44,45,0,0
63044 dataxambesian,41,43,45,18,0,0
63045 dataxylamboan,42,43,44,0,0,0

  1 REM  ******************************** 
  2 REM  *                              * 
  3 REM  *            RISIKO            * 
  4 REM  *                              * 
  5 REM  * GESCHRIEBEN VON BERND HORNIG * 
  6 REM  *                              * 
  7 REM  *   ABSENDER:                  * 
  8 REM  *             BERND HORNIG     * 
  9 REM  *             BISMARCKSTR.77   * 
 10 REM *        4100 DUISBURG 1       * 
 11 REM *                              * 
 12 REM ******************************** 
 15 GOSUB 55000 
 20 S=0:DIM L$(45):DIM M$(45) 
 30 DIM Q(45):DIM LA(45,6):DIM W$(6):DIM S$(6):DIM N$(45) 
 40 DIM WV(13):DIM WU(13):DIM WE$(6,5):DIM KO(6):DIM KL(6):DIM DD(6) 
 100 WE$(6,1)="UCCCI" 
 110 WE$(6,2)="-Q Q-" 
 120 WE$(6,3)="-Q Q-" 
 130 WE$(6,4)="-Q Q-" 
 140 WE$(6,5)="JCCCK" 
 150 WE$(1,1)=WE$(6,1):WE$(1,2)="-{3SPACE}-":WE$(1,3)="- Q -":WE$(1,4)=WE$(1,2) 
 160 WE$(1,5)=WE$(6,5) 
 170 WE$(2,1)=WE$(6,1):WE$(2,2)="-Q{2SPACE}-":WE$(2,3)=WE$(1,2):WE$(2,4)="-{2SPACE}Q-" 
 180 WE$(2,5)=WE$(6,5) 
 190 WE$(3,1)=WE$(6,1):WE$(3,2)=WE$(2,2):WE$(3,3)=WE$(1,3):WE$(3,4)=WE$(2,4) 
 200 WE$(3,5)=WE$(6,5) 
 210 WE$(4,1)=WE$(6,1):WE$(4,2)=WE$(6,2):WE$(4,3)=WE$(2,3):WE$(4,4)=WE$(6,4) 
 220 WE$(4,5)=WE$(6,5) 
 230 WE$(5,1)=WE$(6,1):WE$(5,2)=WE$(6,2):WE$(5,3)=WE$(1,3):WE$(5,4)=WE$(6,4) 
 240 WE$(5,5)=WE$(6,5) 
 250 DIM A(7):DIM B(7) 
 260 A(1)=4:A(2)=8:A(3)=6:A(4)=9:A(5)=6:A(6)=7:A(7)=5 
 270 B(1)=0:B(2)=4:B(3)=12:B(4)=18:B(5)=27:B(6)=33:B(7)=40 
 280 ER=45:AR=4:DIM XS(6):FOR I=1 TO6:XS(I)=0:DD(I)=0:NEXT :C=1:WT=1:GF=0 
 900 GOSUB 20000:PRINT"{CLR,13DOWN,8RIGHT,LIG.BLUE,SPACE}SPIELANLEITUNG ?{2SPACE}[J/N]" 
 910 GET A$:IF A$="" THEN910 
 920 IF A$="J" THENGOSUB 60000 
 1000 POKE 53281,0:POKE 53280,0 
 1010 PRINT"{CLR,12DOWN,2RIGHT,GREEN,6RIGHT}WIEVIELE SPIELER ? (2-6)" 
 1020 GET S$:IF S$="" THEN1020 
 1030 IF S$="2" THENL=22:S=2 
 1040 IF S$="3" THENL=15:S=3 
 1050 IF S$="4" THENL=11:S=4 
 1055 IF S$="5" THENL=9:S=5 
 1060 IF S$="6" THENL=7:S=6 
 1070 IF S=0 THEN1020 
 1080 PRINT"{24DOWN,16UP}" 
 1090 FOR W=1 TOS 
 1100 PRINT"{DOWN}NAME DES ";:PRINTW;:PRINT". SPIELERS ";:INPUTW$(W) 
 1101 S$(W)=LEFT$ (W$(W),2) 
 1102 IF W>=2 THENY=0:GOTO 1104 
 1103 GOTO 1108 
 1104 FOR I=1 TOW:IF S$(W)=S$(I) THENY=Y+1 
 1105 NEXT I 
 1107 IF Y<>1 THEN1100 
 1108 NEXT W 
 1109 PRINT"{CLR,9DOWN,GREEN,RIGHT}BITTE GEDULD ICH LOSE DIE LAENDER AUS" 
 1110 FOR X=1 TO45:READ L$(X),ZA,ZB,ZC,ZD,ZE,ZF 
 1111 LA(X,1)=ZA:LA(X,2)=ZB:LA(X,3)=ZC:LA(X,4)=ZD:LA(X,5)=ZE:LA(X,6)=ZF 
 1118 N$(X)="OO":M$(X)="O":Q(X)=1:NEXT X 
 1120 FOR V=1 TOL 
 1130 FOR P=1 TOS 
 1140 X=INT (ER*RND (1))+1 
 1145 IF N$(X)<>"OO" THEN1140 
 1150 N$(X)=S$(P):M$(X)=W$(P) 
 1160 IF X=ER THENER=ER-1 
 1170 NEXT P:NEXT V 
 1180 FOR KL=1 TO45 
 1190 IF N$(KL)="OO" THENN$(KL)="CO":M$(KL)="COMPUTER" 
 1200 NEXT KL 
 1500 GOSUB 20000 
 1505 PRINT"{GREEN,CLR,9DOWN,5RIGHT}FELDHEER ";:PRINTW$(C) 
 1510 PRINT"{2DOWN,5RIGHT}SIE BEKOMMEN ";:PRINT"{RED}";:PRINTAR;:PRINT"{GREEN,SPACE}ARMEEN DAZU" 
 1515 FOR I=1 TO1500:NEXT I 
 1520 PRINT"{3DOWN,5RIGHT}WO SOLLEN DIE ARMEEN HIN ?":FOR I=1 TO750:NEXT I 
 1530 GOSUB 52400 
 1540 GOSUB 20000 
 1550 A$="":PRINT"{CLR,RED}"; 
 1551 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6:L=SI+24 
 1552 FOR X=15 TO0STEP -.1:PRINT" ANGRIFF "; 
 1553 POKE L,X:POKE A,15:POKE H,74:POKE FH,140:POKE W,129 
 1554 NEXT 
 1555 POKE W,0:POKE A,0 
 1560 IF A$="N" THEN1580 
 1565 GOSUB 15000 
 1567 IF A$="N" THEN1580 
 1570 GOTO 1565 
 1580 GOSUB 20000 
 1590 PRINT"{CLR,PURPLE}" 
 1591 SI=54272:FL=SI:FH=SI+1:TL=SI+2:TH=SI+3:W=SI+4:A=SI+5:H=SI+6:L=SI+24 
 1592 FOR X=1 TO10:FOR I=15 TO0STEP -1:PRINT" VERSCHIEBEN ";:FOR Y=1 TO2:NEXT Y 
 1593 POKE L,15:POKE A,102:POKE H,1:POKE FH,I*10:POKE FL,I*15:POKE W,33 
 1594 NEXT I 
 1595 POKE W,0:POKE A,0 
 1600 NEXT X:POKE W,0:POKE A,0 
 1610 QY=0:QZ=0 
 1620 GOSUB 20010 
 1621 PRINT"{CLR,5RIGHT,BLUE}FELDHERR ";:PRINTW$(C);:PRINT" IHRE LAENDER{DOWN}" 
 1630 Y=0 
 1640 FOR I=1 TO45 
 1650 IF N$(I)=S$(C) THENPRINTTAB( Y)"{YELLOW}";I;".";TAB( 5+Y)"{GREEN}";L$(I);:GOTO 1655 
 1654 GOTO 1660 
 1655 PRINTTAB( 15+Y)"{RED}";Q(I);:Y=Y+20:IF Y=40 THENY=0:PRINT 
 1660 NEXT I 
 1670 PRINT:PRINT"{DOWN,YELLOW,5RIGHT}VON NUMMER: ";:INPUTTS$ 
 1675 IF TS$="X" THENGOTO 1810 
 1676 IF TS$="@" THENGOSUB 53000:GOTO 1620 
 1690 QY=VAL (TS$) 
 1700 IF N$(QY)<>S$(C) THEN1620 
 1720 PRINT"{CLR}":GOSUB 20020 
 1721 PRINT"{HOME,3DOWN,2RIGHT,RED}VERSCHIEBEN VON{SPACE,RVSON}";L$(QY);"{RVOFF,2SPACE,PURPLE}";Q(QY) 
 1722 LE=QY:GOSUB 30120:PRINT:GOSUB 20020 
 1725 PRINT"{DOWN,3RIGHT,LIG.GREEN}NACH LAND NR";:INPUTY$ 
 1726 IF Y$="X" THEN1810 
 1727 IF Y$="@" THENGOSUB 53000:GOTO 1720 
 1728 Y=VAL (Y$):QZ=0 
 1729 FOR I=1 TO6:IF Y=LA(QY,I) THENQZ=Y 
 1730 NEXT I 
 1732 IF QZ=0 THEN1720 
 1735 IF N$(QZ)<>S$(C) THEN1720 
 1760 PRINT"{DOWN,2RIGHT,LIG.RED}WIEVIELE ARMEEN";:INPUTER 
 1770 IF ER>Q(QY)-1 THEN1760 
 1780 Q(QZ)=Q(QZ)+ER 
 1790 Q(QY)=Q(QY)-ER 
 1800 GOTO 1620 
 1810 GOSUB 13000 
 1811 C=C+1:IF C>S THENC=1 
 1815 FOR X=1 TOGF:IF DD(X)=C THENC=C+1 
 1816 NEXT X 
 1817 IF C>S THENC=1:GOTO 1815 
 1820 IF XS(C)<5 THEN1840 
 1830 X=XS(C)/5:X=INT (X):XS(C)=XS(C)-5*X:WT=WT+1:AR=X*WT 
 1840 AR=AR+4 
 1850 FOR Y=1 TO7:FOR X=1 TOA(Y) 
 1860 IF N$(B(Y)+X)=S$(C) THENC(Y)=C(Y)+1 
 1870 NEXT X 
 1880 IF C(Y)=A(Y) THENAR=AR+C(Y) 
 1885 C(Y)=0 
 1890 NEXT Y 
 1900 GOTO 1500 
 13000 FOR X=1 TOS:KL(X)=0:KO(X)=0:NEXT X 
 13010 FOR Y=1 TOS 
 13020 FOR X=1 TO45 
 13030 IF N$(X)=S$(Y) THENKL(Y)=1 
 13040 NEXT X 
 13050 IF KL(Y)<>1 THENKO(1)=Y 
 13060 NEXT Y 
 13070 IF KO(1)=0 THENRETURN 
 13080 GOSUB 20000:PRINT"{CLR}":GOSUB 20020 
 13090 PRINT"{DOWN,RED,6RIGHT}EINE TRAURIGE NACHRICHT !!!" 
 13100 PRINT"{DOWN,BLUE,2RIGHT}FELDHERR{SPACE,CYAN}";W$(KO(1));"{SPACE,BLUE}MIT SEINER " 
 13110 PRINT"{DOWN,2RIGHT}LETZEN ARMEE IN DEN KAMPF GEZOGEN," 
 13120 PRINT"{DOWN,2RIGHT}UND WURDE TOEDLICH GETOFFEN" 
 13130 FOR X=1 TO5000:NEXT X 
 13140 GF=GF+1:DD(GF)=KO(1) 
 13150 GOTO 13000 
 15000 GOSUB 20000:Z=0 
 15002 GOSUB 40000 
 15003 PRINT"{2DOWN,2RIGHT,WHITE}ANGRIFF VON WELCHEM KONTINENT AUS ?" 
 15010 PRINT"{CYAN,2DOWN,7RIGHT}1.{GREEN,SPACE}MINILAND" 
 15020 PRINT"{DOWN,7RIGHT,CYAN}2.{GREEN,SPACE}JUMBOLAND" 
 15030 PRINT"{DOWN,7RIGHT,CYAN}3.{GREEN,SPACE}BONGOLAND" 
 15040 PRINT"{DOWN,7RIGHT,CYAN}4.{GREEN,SPACE}WANGOLAND" 
 15050 PRINT"{DOWN,7RIGHT,CYAN}5.{GREEN,SPACE}ZULULAND" 
 15060 PRINT"{DOWN,7RIGHT,CYAN}6.{GREEN,SPACE}YUNGOLAND" 
 15070 PRINT"{DOWN,7RIGHT,CYAN}7.{GREEN,SPACE}XYLOLAND" 
 15080 PRINT"{2DOWN,17RIGHT,YELLOW,RVSON}NUMMER ?{RVOFF}" 
 15090 GET A$:IF A$="" THEN15090 
 15100 IF A$="1" THENZ=1 
 15110 IF A$="2" THENZ=2 
 15120 IF A$="3" THENZ=3 
 15130 IF A$="4" THENZ=4 
 15140 IF A$="5" THENZ=5 
 15150 IF A$="6" THENZ=6 
 15160 IF A$="7" THENZ=7 
 15165 IF A$="X" THEN:A$="N":RETURN 
 15167 IF A$="@" THENGOSUB 53000 
 15180 IF Z=0 THEN15000 
 15200 GOSUB 20010:PRINT"{CLR}" 
 15210 PRINT"{CLR,DOWN,9RIGHT,PURPLE}ANGRIFF VON LAND NR: " 
 15220 FOR I=1 TOA(Z) 
 15230 PRINT"{DOWN,4RIGHT,LIG.BLUE}";B(Z)+I;".{SPACE,YELLOW}";L$(B(Z)+I); 
 15240 PRINTTAB( 27)"{GREEN}";N$(B(Z)+I); 
 15250 PRINTTAB( 35)"{RED}";Q(B(Z)+I) 
 15260 NEXT 
 15270 PRINT"{LIG.BLUE,DOWN,11RIGHT}NUMMER :";:INPUTLE$ 
 15280 IF LE$="@" THENGOSUB 53000:GOTO 15200 
 15290 IF LE$="X" THENA$="J":RETURN 
 15300 LE=VAL (LE$) 
 15310 IF LE<1OR LE>45 THEN15200 
 15320 IF N$(LE)<>S$(C) THEN15200 
 15330 GOSUB 30000:RETURN 
 16000 POKE 53281,2:POKE 53280,8:X=0 
 16002 GOSUB 41000 
 16003 PRINT"{2DOWN,4RIGHT,WHITE}INFORMATIONEN UEBER KONTINENT ?" 
 16010 PRINT"{CYAN,2DOWN,7RIGHT}1.{YELLOW,SPACE}MINILAND" 
 16020 PRINT"{DOWN,7RIGHT,CYAN}2.{YELLOW,SPACE}JUMBOLAND" 
 16030 PRINT"{DOWN,7RIGHT,CYAN}3.{YELLOW,SPACE}BONGOLAND" 
 16040 PRINT"{DOWN,7RIGHT,CYAN}4.{YELLOW,SPACE}WANGOLAND" 
 16050 PRINT"{DOWN,7RIGHT,CYAN}5.{YELLOW,SPACE}ZULULAND" 
 16060 PRINT"{DOWN,7RIGHT,CYAN}6.{YELLOW,SPACE}YUNGALAND" 
 16070 PRINT"{DOWN,7RIGHT,CYAN}7.{YELLOW,SPACE}XYLOLAND" 
 16080 PRINT"{2DOWN,17RIGHT,BLACK,RVSON}NUMMER ?{RVOFF}" 
 16090 GET A$:IF A$="" THEN16090 
 16100 IF A$="1" THENX=1 
 16110 IF A$="2" THENX=2 
 16120 IF A$="3" THENX=3 
 16130 IF A$="4" THENX=4 
 16140 IF A$="5" THENX=5 
 16150 IF A$="6" THENX=6 
 16160 IF A$="7" THENX=7 
 16165 IF A$="X" THEN:A$="":RETURN 
 16167 IF A$="@" THENGOSUB 53000 
 16180 IF X=0 THEN16000 
 16190 POKE 53281,8:POKE 53280,9 
 16200 PRINT"{CLR}";:GOSUB 20020:PRINT"{HOME}" 
 16210 FOR I=1 TOA(X) 
 16230 PRINT"{DOWN,3RIGHT,RED}";B(X)+I;"{2RIGHT,BLACK}";L$(B(X)+I);TAB( 29)"{BROWN}";N$(B(X)+I);"{RIGHT,4RIGHT,GREY1}";: 
 16240 PRINTQ(B(X)+I) 
 16250 NEXT I 
 16260 PRINT:GOSUB 20020 
 16270 PRINT"{DOWN,9RIGHT,RVSON,SPACE}TASTE{SPACE,RVOFF}" 
 16280 GET A$:IF A$="" THEN16280 
 16300 RETURN 
 20000 POKE 53281,0:POKE 53280,0:RETURN 
 20010 POKE 53281,0:POKE 53280,11:RETURN 
 20020 PRINT"{RIGHT,WHITE}++++++++++++++++++++++++++++++++++++++":RETURN 
 20030 PRINT"{RIGHT,BLUE}++++++++++++++++++++++++++++++++++++++":RETURN 
 30000 GOSUB 20010:PRINT"{CLR}" 
 30100 PRINT"{RED,3RIGHT,RVSON,SPACE}";:PRINTL$(LE);:PRINT"{SPACE,RVOFF,3RIGHT}ARMEEN:";:PRINTQ(LE) 
 30105 PRINT:GOSUB 20030:PRINT 
 30110 PRINT"{DOWN,CYAN,8RIGHT}ANGRIFF AUF :":GOSUB 30120:GOTO 30305 
 30120 PRINT"{2DOWN,2RIGHT,GREEN}";:PRINTLA(LE,1);".{SPACE,LIG.BLUE}";L$(LA(LE,1));TAB( 23)"{PURPLE}"; 
 30130 PRINTN$(LA(LE,1));"{2RIGHT,LIG.RED}";Q(LA(LE,1)) 
 30140 PRINT"{DOWN,2RIGHT,GREEN}";LA(LE,2);".{SPACE,LIG.BLUE}";L$(LA(LE,2));TAB( 23)"{PURPLE}"; 
 30150 PRINTN$(LA(LE,2));"{2RIGHT,LIG.RED}";Q(LA(LE,2)) 
 30160 IF LA(LE,3)=0 THENGOTO 30300 
 30170 PRINT"{DOWN,2RIGHT,GREEN}";LA(LE,3);".{SPACE,LIG.BLUE}";L$(LA(LE,3));TAB( 23)"{PURPLE}"; 
 30180 PRINTN$(LA(LE,3));"{2RIGHT,LIG.RED}";Q(LA(LE,3)) 
 30190 IF LA(LE,4)=0 THENGOTO 30300 
 30200 PRINT"{DOWN,2RIGHT,GREEN}";LA(LE,4);".{SPACE,LIG.BLUE}";L$(LA(LE,4));TAB( 23)"{PURPLE}"; 
 30210 PRINTN$(LA(LE,4));"{2RIGHT,LIG.RED}";Q(LA(LE,4)) 
 30220 IF LA(LE,5)=0 THENGOTO 30300 
 30230 PRINT"{DOWN,2RIGHT,GREEN}";LA(LE,5);".{SPACE,LIG.BLUE}";L$(LA(LE,5));TAB( 23)"{PURPLE}"; 
 30240 PRINTN$(LA(LE,5));"{2RIGHT,LIG.RED}";Q(LA(LE,5)) 
 30250 IF LA(LE,6)=0 THENGOTO 30300 
 30260 PRINT"{DOWN,2RIGHT,GREEN}";LA(LE,6);".{SPACE,LIG.BLUE}";L$(LA(LE,6));TAB( 23)"{PURPLE}"; 
 30270 PRINTN$(LA(LE,6));"{2RIGHT,LIG.RED}";Q(LA(LE,6)) 
 30300 RETURN 
 30305 PRINT"{2DOWN,LIG.GREEN,7RIGHT}ANGRIFF AUF NUMMER :";: 
 30310 INPUTLS$ 
 30311 IF LS$="@" THENGOSUB 53000:GOTO 30000 
 30312 IF LS$="X" THENA$="J":RETURN 
 30313 LS=VAL (LS$) 
 30315 Y=0:FOR I=1 TO6:IF LA(LE,I)=LS THENY=1 
 30316 NEXT :IF Y<>1 THEN30000 
 30317 IF N$(LS)=S$(C) THEN30000 
 30320 PRINT"{DOWN,7RIGHT,LIG.RED}MIT WIE VIELEN ARMEEN :";:INPUTAQ 
 30330 IF AQ>Q(LE)-1 THEN30000 
 30335 Q(LE)=Q(LE)-AQ 
 30400 IF AQ>3 THENWU=4:GOTO 30410 
 30405 WU=AQ 
 30410 IF Q(LS)>3 THENWV=4:GOTO 30420 
 30415 WV=Q(LS) 
 30420 FOR I=1 TOWU:WU(4+I)=INT (6*RND (1))+1:NEXT 
 30430 FOR I=1 TOWV:WV(4+I)=INT (6*RND (1))+1:NEXT 
 30450 IF WU<=3 THENWU(8)=0 
 30460 IF WU<=2 THENWU(7)=0 
 30470 IF WU<=1 THENWU(6)=0 
 30480 IF WV<=3 THENWV(8)=0 
 30490 IF WV<=2 THENWV(7)=0 
 30500 IF WV<=1 THENWV(6)=0 
 30510 WX=0 
 30550 IF WU(8)>=WU(7)AND WU(8)>=WU(6)AND WU(8)>=WU(5) THENWX=WX+1:WU(WX)=WU(8):WU(8)=-1 
 30560 IF WU(7)>=WU(8)AND WU(7)>=WU(6)AND WU(7)>=WU(5) THENWX=WX+1:WU(WX)=WU(7):WU(7)=-1 
 30570 IF WU(6)>=WU(8)AND WU(6)>=WU(7)AND WU(6)>=WU(5) THENWX=WX+1:WU(WX)=WU(6):WU(6)=-1 
 30580 IF WU(5)>=WU(8)AND WU(5)>=WU(7)AND WU(5)>=WU(6) THENWX=WX+1:WU(WX)=WU(5):WU(5)=-1 
 30590 IF WU(9)<>-1 THEN30550 
 30600 WX=0 
 30610 IF WV(8)>=WV(7)AND WV(8)>=WV(6)AND WV(8)>=WV(5) THENWX=WX+1:WV(WX)=WV(8):WV(8)=-1 
 30620 IF WV(7)>=WV(8)AND WV(7)>=WV(6)AND WV(7)>=WV(5) THENWX=WX+1:WV(WX)=WV(7):WV(7)=-1 
 30630 IF WV(6)>=WV(8)AND WV(6)>=WV(7)AND WV(6)>=WV(5) THENWX=WX+1:WV(WX)=WV(6):WV(6)=-1 
 30640 IF WV(5)>=WV(8)AND WV(5)>=WV(7)AND WV(5)>=WV(6) THENWX=WX+1:WV(WX)=WV(5):WV(5)=-1 
 30650 IF WV(9)<>-1 THEN30610 
 30660 WV(9)=0:WU(9)=0 
 30670 POKE 53280,11:POKE 53281,15:PRINT"{CLR}" 
 30680 PRINT"{3RIGHT,RED}ANGREIFER{14RIGHT,BLACK}VERTEIDIGER{DOWN}" 
 30690 FOR I=1 TOWU:FOR Y=1 TO5 
 30700 PRINT"{RED,4RIGHT}";WE$(WU(I),Y) 
 30710 NEXT Y:PRINT;:NEXT I 
 30715 PRINT"{HOME,2DOWN}" 
 30720 FOR I=1 TOWV:FOR Y=1 TO5 
 30730 PRINTTAB( 32)"{BLACK}";WE$(WV(I),Y) 
 30740 NEXT Y:PRINT;:NEXT I 
 30745 FOR Y=1 TO1500:NEXT Y 
 30750 Y=0:FOR I=1 TO4 
 30760 IF WU(I)=0OR WV(I)=0 THENGOTO 30810 
 30770 IF WV(I)>=WU(I) THENAQ=AQ-1:GOTO 30810 
 30780 Q(LS)=Q(LS)-1 
 30810 NEXT I 
 30820 IF AQ<>0AND Q(LS)<>0 THEN30400 
 30830 GOSUB 40000 
 30840 IF Q(LS)=0 THENPRINT"{6DOWN,2RIGHT,GREEN}";W$(C);" SIE HABEN ";L$(LS)" EROBERT":GOTO 30860 
 30850 GOTO 30900 
 30860 PRINT"{DOWN,2RIGHT}ES SIND NUN{RED}";AQ;"{GREEN}ARMEEN IN DIESEM LAND" 
 30870 PRINT"{3DOWN,2RIGHT,LIG.BLUE}";M$(LS);" SIE HABEN{SPACE,RED}";L$(LS);"{LIG.BLUE,SPACE}VERLOREN" 
 30880 Q(LS)=AQ:N$(LS)=S$(C):XS(C)=XS(C)+1:M$(LS)=M$(LE):GOTO 31000 
 30900 PRINT"{7DOWN,6RIGHT,LIG.BLUE}";M$(LS);" SIE HABEN{SPACE,RED}";L$(LS) 
 30910 PRINT"{DOWN,6RIGHT,LIG.BLUE}ERFOLGREICH VERTEIDIGT" 
 30920 PRINT"{3DOWN,GREEN,6RIGHT}";M$(LE);" HAT SEINE ANGREIFENDEN" 
 30930 PRINT"{DOWN,6RIGHT}TRUPPEN VERLOREN" 
 31000 FOR I=1 TO5000:NEXT 
 31010 PRINT"{CLR}":POKE 53280,0:POKE 53281,0 
 31020 PRINT"{12DOWN,3RIGHT,PURPLE}NOCH EIN ANGRIFF ";W$(C);" ?" 
 31030 GET A$:IF A$="" THEN31030 
 31050 RETURN 
 40000 POKE 53280,11:POKE 53281,0:PRINT"{CLR}" 
 40010 FOR WJ=1024 TO1063:POKE WJ,102:NEXT 
 40020 FOR WJ=1984 TO2023:POKE WJ,102:NEXT 
 40030 FOR WJ=1064 TO1944STEP 40:POKE WJ,102:NEXT 
 40040 FOR WJ=1103 TO1983STEP 40:POKE WJ,102:NEXT 
 40050 FOR WJ=55296 TO55335:POKE WJ,6:NEXT 
 40060 FOR WJ=56256 TO56295:POKE WJ,6:NEXT 
 40070 FOR WJ=55336 TO56216STEP 40:POKE WJ,6:NEXT 
 40080 FOR WJ=55375 TO56255STEP 40:POKE WJ,6:NEXT 
 40090 PRINT"{HOME}";:RETURN 
 41000 PRINT"{CLR}" 
 41010 FOR WJ=1024 TO1063:POKE WJ,42:NEXT 
 41020 FOR WJ=1984 TO2023:POKE WJ,42:NEXT 
 41030 FOR WJ=1064 TO1944STEP 40:POKE WJ,42:NEXT 
 41040 FOR WJ=1103 TO1983STEP 40:POKE WJ,42:NEXT 
 41050 FOR WJ=55296 TO55335:POKE WJ,1:NEXT 
 41060 FOR WJ=56256 TO56295:POKE WJ,1:NEXT 
 41070 FOR WJ=55336 TO56216STEP 40:POKE WJ,1:NEXT 
 41080 FOR WJ=55375 TO56255STEP 40:POKE WJ,1:NEXT 
 41090 PRINT"{HOME}";:RETURN 
 43996 IF A$="£" THENEND 
 45000 POKE 53280,0:POKE 53281,6 
 45010 PRINT"{CLR,WHITE,10RIGHT,RVSON,SPACE}PLANET GURUNGO{SPACE,RVOFF,DOWN}" 
 45020 PRINT"{BLACK,RVSON,5RIGHT,2SPACE,RIGHT,3SPACE,17RIGHT,5SPACE,6RIGHT,RVOFF}" 
 45030 PRINT"{RVSON,5RIGHT,7SPACE,15RIGHT,8SPACE,4RIGHT,RVOFF}" 
 45040 PRINT"{RVSON,4RIGHT,2SPACE}JUMBO{2SPACE,4RIGHT,4SPACE,5RIGHT,10SPACE,3RIGHT,RVOFF}" 
 45050 PRINT"{RVSON,4RIGHT,10SPACE,2RIGHT,6SPACE,4RIGHT,2SPACE}WANGO{3SPACE,3RIGHT,RVOFF}" 
 45060 PRINT"{RVSON,4RIGHT,2SPACE,RIGHT,7SPACE,RVOFF}*{RVSON,2SPACE}MINI{2SPACE,4RIGHT,RVOFF}N{RVSON,7SPACE,4RIGHT,RVOFF}" 
 45070 PRINT"{RVSON,4RIGHT,2SPACE,2RIGHT,5SPACE,2RIGHT,8SPACE,3RIGHT,SPACE,RIGHT,6SPACE,5RIGHT,RVOFF}" 
 45080 PRINT"{RVSON,7RIGHT,5SPACE,4RIGHT,8SPACE,RIGHT,RVOFF}P{RVSON,SPACE,RVOFF}*{RVSON,6SPACE,5RIGHT,RVOFF}" 
 45090 PRINT"{RVSON,6RIGHT,5SPACE,RIGHT,RVOFF}M{RVSON,7RIGHT,5SPACE,4RIGHT,4SPACE,6RIGHT,RVOFF}" 
 45100 PRINT"{RVSON,6RIGHT,RVOFF}N{RVSON,6RIGHT,RVOFF}M{RVSON,RIGHT,4SPACE,11RIGHT,RVOFF}N{RVSON,7RIGHT,RVOFF}" 
 45110 PRINT"{RVSON,3RIGHT,4SPACE,7RIGHT,6SPACE,7RIGHT,2SPACE,RIGHT,2SPACE,6RIGHT,RVOFF}" 
 45120 PRINT"{RVSON,2RIGHT,6SPACE,4RIGHT,9SPACE,5RIGHT,6SPACE,5RIGHT,RVOFF}" 
 45130 PRINT"{RVSON,RIGHT,7SPACE,RVOFF}***{RVSON,3SPACE}ZULU{4SPACE,3RIGHT,7SPACE,5RIGHT,RVOFF}" 
 45140 PRINT"{RVSON,RIGHT,SPACE}XYLO{SPACE,4RIGHT,9SPACE,RIGHT,SPACE,3RIGHT,SPACE}BONGA{SPACE,RVOFF}M{RVSON,SPACE,3RIGHT,RVOFF}" 
 45150 PRINT"C{RVSON,7SPACE,5RIGHT,7SPACE,RIGHT,SPACE,4RIGHT,5SPACE,2RIGHT,SPACE,RVOFF}CCCCCC" 
 45160 PRINT"{UP,RVSON,2RIGHT,5SPACE,8RIGHT,4SPACE,3RIGHT,RVOFF}M{RVSON,4RIGHT,3SPACE,RIGHT,RVOFF}YY{RVSON,4RIGHT,RVOFF}" 
 45170 PRINT"{RVSON,3RIGHT,4SPACE,7RIGHT,4SPACE,3RIGHT,4SPACE,RIGHT,RVOFF}PP{RVSON,SPACE,7RIGHT,RVOFF}" 
 45180 PRINT"{RVSON,20RIGHT,6SPACE,7RIGHT,RVOFF}" 
 45190 PRINT"{RVSON,19RIGHT,2SPACE}YUNGA{SPACE,7RIGHT,RVOFF}" 
 45200 PRINT"{RVSON,19RIGHT,8SPACE,10RIGHT,RVOFF}" 
 45210 PRINT"{RVSON,20RIGHT,RVOFF}N{RVSON,5SPACE,10RIGHT,RVOFF}" 
 45215 PRINT"{RVSON,19RIGHT,SPACE,2RIGHT,4SPACE,12RIGHT,RVOFF}" 
 45216 PRINT"{RVSON,19RIGHT,SPACE,RVOFF}***{RVSON,2SPACE,4RIGHT,YELLOW}TASTE{2RIGHT,RVOFF}" 
 45230 GET A$:IF A$="" THEN45230 
 45250 A$="":RETURN 
 46000 POKE 53280,0:POKE 53281,6 
 46010 PRINT"{CLR,DOWN,WHITE,14RIGHT,RVSON,SPACE}MINILAND{SPACE,RVOFF,DOWN}" 
 46020 PRINT"{BLACK,2DOWN}" 
 46030 PRINT"{10RIGHT,RVSON,7SPACE,RVOFF}" 
 46040 PRINT"{9RIGHT,RVSON,12SPACE,RVOFF}" 
 46050 PRINT"{8RIGHT,RVSON}PP{2SPACE}MOIRA{3SPACE}O{2SPACE,RVOFF}" 
 46060 PRINT"{7RIGHT,RVSON,3SPACE}M{8SPACE}N{5SPACE,RVOFF}" 
 46070 PRINT"{7RIGHT,RVSON,SPACE}";N$(2);" M{2SPACE}";N$(1);"{2SPACE}N{7SPACE,RVOFF}" 
 46080 PRINT"{RIGHT,PURPLE}J****{BLACK,RVSON,6SPACE}MPPPPN{2SPACE}";N$(3);"{4SPACE,RVOFF}" 
 46090 PRINT"{7RIGHT,RVSON,2SPACE}MUR M{12SPACE,SHIFT-SPACE,RVOFF}" 
 46100 PRINT"{8RIGHT,RVSON,6SPACE}M{2SPACE}MARISUAN PP{RVOFF}" 
 46110 PRINT"{9RIGHT,RVSON,5SPACE}@{5SPACE}PPPPPN{2SPACE,RVOFF}" 
 46120 PRINT"{7RIGHT,RVSON,5SPACE,RVOFF,2SPACE,RVSON,5SPACE}N{7SPACE,RVOFF}" 
 46130 PRINT"{8RIGHT,RVSON,3SPACE,RVOFF,3SPACE,RVSON,4SPACE}N{8SPACE,RVOFF}" 
 46140 PRINT"{15RIGHT,RVSON,2SPACE}N MESIGO{SPACE,RVOFF}" 
 46150 PRINT"{17RIGHT,RVSON,9SPACE,RVOFF}" 
 46160 PRINT"{21RIGHT,RVSON,3SPACE}";N$(4);"{SPACE,RVOFF}" 
 46170 PRINT"{24RIGHT,RVSON,4SPACE,RVOFF,PURPLE}******W{BLACK}" 
 46220 PRINT"{DOWN,25RIGHT,YELLOW,6RIGHT,RVSON}TASTE{RVOFF}" 
 46230 GET A$:IF A$="" THEN46230 
 46250 A$="":RETURN 
 47000 POKE 53280,0:POKE 53281,6 
 47010 PRINT"{CLR,DOWN,WHITE,13RIGHT,RVSON,SPACE}JUMBOLAND{SPACE,RVOFF,DOWN}" 
 47020 PRINT"{BLACK,8RIGHT,RVSON,5SPACE,RVOFF}" 
 47030 PRINT"{7RIGHT,RVSON,7SPACE,RVOFF,14SPACE,RVSON,3SPACE,RVOFF}" 
 47040 PRINT"{7RIGHT,RVSON,SPACE}JUISU{3SPACE,RVOFF,11SPACE,RVSON,6SPACE,RVOFF}" 
 47050 PRINT"{6RIGHT,RVSON,11SPACE,RVOFF,9SPACE,RVSON,SPACE}JOSUAH{2SPACE,RVOFF}" 
 47060 PRINT"{5RIGHT,RVSON,SPACE}YM{7SPACE}NY{3SPACE,RVOFF,4SPACE,RVSON,12SPACE,RVOFF} 
 47070 PRINT"{3RIGHT,RVSON,5SPACE}M{2SPACE}";N$(5);" N{3SPACE}";N$(7);"{3SPACE}N{13SPACE,RVOFF}" 
 47080 PRINT"{2RIGHT,RVSON,3SPACE}";N$(6);"{2SPACE}M{4SPACE}N{8SPACE}NPPPP{5SPACE}";N$(8);"{2SPACE,RVOFF}" 
 47090 PRINT"{2RIGHT,RVSON,8SPACE}M{3SPACE,RVOFF,2SPACE,RVSON,SPACE}JEDIP N{4SPACE}M{7SPACE,RVOFF} 
 47100 PRINT"{3RIGHT,RVSON,8SPACE}YY{RVOFF,3SPACE,RVSON}PPPPPPPN ";N$(9);"{2SPACE}MPPPPP{RVOFF}" 
 47110 PRINT"{4RIGHT,RVSON,2SPACE}JUKLIA{SPACE,RVOFF,4SPACE,RVSON,6SPACE}M{11SPACE,RVOFF}" 
 47120 PRINT"{5RIGHT,RVSON,9SPACE,RVOFF,4SPACE,RVSON,6SPACE}MPP{2SPACE}JIDU{SPACE,RVOFF,PURPLE}****M{BLACK}" 
 47130 PRINT"{8RIGHT,RVSON,6SPACE,RVOFF,4SPACE,RVSON,9SPACE}M{5SPACE,RVOFF}" 
 47140 PRINT"{11RIGHT,RVSON,2SPACE,RVOFF,4SPACE,RVSON,2SPACE}JUXARIO NYYYYY{RVOFF}" 
 47150 PRINT"{12RIGHT}M{5RIGHT,RVSON,8SPACE}NJANIAN{SPACE,RVOFF}" 
 47160 PRINT"{13RIGHT}M{3RIGHT,RVSON,SPACE}M{2SPACE}";N$(10);"{2SPACE}N{8SPACE,RVOFF}" 
 47170 PRINT"{14RIGHT,RVSON,5SPACE}M{4SPACE}N{3SPACE}";N$(11);"{3SPACE,RVOFF}" 
 47180 PRINT"{11RIGHT,RVSON,4SPACE}";N$(12);"{3SPACE}M{2SPACE}N{8SPACE,RVOFF,PURPLE}M{BLACK}" 
 47190 PRINT"{10RIGHT,RVSON,11SPACE}YYYM{3SPACE,RVOFF,5SPACE,PURPLE}M{BLACK}" 
 47200 PRINT"{10RIGHT,RVSON,2SPACE}JODELIA{5SPACE,RVOFF,10RIGHT,PURPLE}Z{BLACK}" 
 47205 PRINT"{10RIGHT,PURPLE}N{BLACK,RVSON,9SPACE,RVOFF}" 
 47210 PRINT"{8RIGHT,PURPLE}XN{BLACK,3RIGHT,RVSON,5SPACE,14RIGHT,YELLOW}TASTE{RVOFF}" 
 47230 GET A$:IF A$="" THEN47230 
 47250 A$="":RETURN 
 48000 POKE 53280,0:POKE 53281,6 
 48010 PRINT"{CLR,DOWN,WHITE,13RIGHT,RVSON,SPACE}BONGALAND{SPACE,RVOFF,DOWN}" 
 48020 PRINT"{BLACK,25RIGHT,PURPLE}BW{BLACK}" 
 48030 PRINT"{9RIGHT,RVSON,2SPACE,RVOFF,14SPACE,PURPLE}B{BLACK}" 
 48040 PRINT"{8RIGHT,RVSON,4SPACE,RVOFF,12SPACE,RVSON,2SPACE,RVOFF}" 
 48050 PRINT"{7RIGHT,RVSON,6SPACE}M{3SPACE,RVOFF,5SPACE,RVSON,5SPACE,RVOFF}" 
 48060 PRINT"{6RIGHT,RVSON,8SPACE}H{5SPACE,RVOFF,SPACE,RVSON,7SPACE,RVOFF}" 
 48070 PRINT"{5RIGHT,RVSON,2SPACE}BOUYA{2SPACE}H{13SPACE,RVOFF}" 
 48080 PRINT"{4RIGHT,RVSON,10SPACE}HBUNGA{2SPACE}PPPPPP{RVOFF}" 
 48090 PRINT"{4RIGHT,RVSON,3SPACE}";N$(13);"{4SPACE}N{7SPACE}N{5SPACE,RVOFF}" 
 48100 PRINT"{4RIGHT,RVSON,8SPACE}NM{3SPACE}";N$(14);" N{6SPACE,RVOFF}" 
 48110 PRINT"{5RIGHT,RVSON}PPPPPPN{2SPACE}YYMPPN{2SPACE}";N$(16);"{2SPACE,RVOFF,2RIGHT}N{RVSON,3SPACE,RVOFF}" 
 48120 PRINT"{6RIGHT,RVSON,10SPACE}N{9SPACE,RVOFF,RIGHT}N{RIGHT,RVSON,5SPACE,RVOFF}" 
 48130 PRINT"{7RIGHT,RVSON,3SPACE}BIFIANN BALINGO{SPACE,RVOFF}N{3RIGHT,RVSON,5SPACE,RVOFF}" 
 48140 PRINT"{9RIGHT,RVSON,7SPACE}N{9SPACE,RVOFF,4RIGHT,RVSON,2SPACE}";N$(18);"{SPACE,RVOFF}" 
 48150 PRINT"{11RIGHT,RVSON,2SPACE}";N$(15);"{2SPACE}MPP{5SPACE,RVOFF,6RIGHT,RVSON,5SPACE,RVOFF}" 
 48160 PRINT"{12RIGHT,RVSON,5SPACE}N{2SPACE}M{4SPACE,RVOFF,6RIGHT,RVSON,6SPACE,RVOFF}" 
 48170 PRINT"{13RIGHT,RVSON}PPPPN ";N$(17);"MPP{RVOFF,6RIGHT,RVSON,2SPACE}BEYU{SPACE,RVOFF}" 
 48180 PRINT"{15RIGHT,RVSON,9SPACE,RVOFF}*****{RVSON,7SPACE,RVOFF}" 
 48190 PRINT"{16RIGHT,RVSON,2SPACE}BOAN{SPACE,RVOFF,6RIGHT,RVSON,6SPACE,RVOFF,PURPLE}CCX{BLACK}" 
 48200 PRINT"{6RIGHT,PURPLE}Y**********{BLACK,RVSON,6SPACE,RVOFF,7RIGHT,RVSON,4SPACE,RVOFF}" 
 48210 PRINT"{19RIGHT,RVSON,2SPACE,RVOFF,9RIGHT,RVSON,2SPACE,RVOFF}" 
 48220 PRINT"{23RIGHT,YELLOW,RVSON}TASTE{RVOFF}" 
 48230 GET A$:IF A$="" THEN48230 
 48250 A$="":RETURN 
 49000 POKE 53280,0:POKE 53281,6 
 49010 PRINT"{CLR,DOWN,WHITE,14RIGHT,RVSON,SPACE}WANGOLAND{SPACE,RVOFF,2DOWN}" 
 49020 PRINT"{BLACK,14RIGHT,RVSON,2SPACE}M{7SPACE}M{2SPACE,RVOFF}" 
 49030 PRINT"{12RIGHT,RVSON,5SPACE}M{7SPACE}M{4SPACE,RVOFF}" 
 49040 PRINT"{10RIGHT,RVSON,3SPACE}";N$(20);"{2SPACE}N WIUMBON{5SPACE,RVOFF}" 
 49050 PRINT"{9RIGHT,RVSON,8SPACE}N{7SPACE}NWOKIO{SPACE,RVOFF}" 
 49060 PRINT"{8RIGHT,RVSON,2SPACE}WAGURIUN{2SPACE}";N$(19);"{2SPACE}N{5SPACE}NY{SPACE,RVOFF}" 
 49070 PRINT"{8RIGHT,RVSON,9SPACE}NPPPPPN{2SPACE}";N$(22);" N{4SPACE,RVOFF}" 
 49080 PRINT"{9RIGHT,RVSON,8SPACE}N{5SPACE}M{4SPACE}N{2SPACE}";N$(23);"{SPACE,RVOFF}" 
 49090 PRINT"{11RIGHT,RVSON,5SPACE}N{7SPACE}MPPN{6SPACE,RVOFF}" 
 49100 PRINT"{4RIGHT,RVSON,3SPACE,RVOFF,3RIGHT}N{2RIGHT,RVSON,2SPACE}N{2SPACE}WEFIA N{8SPACE,RVOFF}" 
 49110 PRINT"{3RIGHT,RVSON,2SPACE}";N$(26);"{2SPACE,RVOFF}N{7RIGHT,RVSON,7SPACE}N WIGUA{SPACE,RVOFF}" 
 49120 PRINT"{3RIGHT,RVSON,7SPACE,9RIGHT,2SPACE}";N$(21);" NMPP{3SPACE,RVOFF}" 
 49130 PRINT"{2RIGHT,RVSON,2SPACE}WANZANP{9RIGHT}PPPN ";N$(24);" MPP{RVOFF}" 
 49140 PRINT"{3RIGHT,RVSON,6SPACE}N{3SPACE,7RIGHT,3SPACE}M{7SPACE,RVOFF}" 
 49150 PRINT"{4RIGHT,RVSON,4SPACE}N{5SPACE,6RIGHT,4SPACE}MWUGA{SPACE,RVOFF}" 
 49160 PRINT"{5RIGHT,RVSON,2SPACE}N WEGOS{SPACE,6RIGHT,SPACE}";N$(25);" MPPPP{RVOFF}" 
 49170 PRINT"{7RIGHT,RVSON,9SPACE,RVOFF}*****{RVSON,8SPACE,RVOFF}" 
 49175 PRINT"{3RIGHT,PURPLE}M*****{BLACK,RVSON,SPACE}";N$(27);"{3SPACE,7RIGHT,SPACE}WASPO{SPACE,RVOFF}" 
 49180 PRINT"{10RIGHT,RVSON,4SPACE,8RIGHT,6SPACE,RVOFF}" 
 49190 PRINT"{23RIGHT,RVSON,4SPACE,RVOFF}" 
 49220 PRINT"{25RIGHT,PURPLE}BB{4RIGHT,YELLOW,RVSON}TASTE{RVOFF}" 
 49230 GET A$:IF A$="" THEN49230 
 49250 A$="":RETURN 
 50000 POKE 53280,0:POKE 53281,6 
 50005 PRINT"{CLR,DOWN,15RIGHT,WHITE,RVSON,SPACE}ZULULAND{SPACE,RVOFF,DOWN}" 
 50007 PRINT"{8RIGHT,PURPLE}J{BLACK}" 
 50010 PRINT"{BLACK,9RIGHT,PURPLE}M{BLACK,2RIGHT,RVSON,8SPACE}N{8SPACE,RVOFF}" 
 50020 PRINT"{10RIGHT,PURPLE}M{BLACK,RVSON,2SPACE}ZUGA{3SPACE}H ZILUBO{3SPACE,RVOFF}" 
 50030 PRINT"{10RIGHT,RVSON,9SPACE}NM{11SPACE,RVOFF}" 
 50040 PRINT"{9RIGHT,RVSON}P{3SPACE}";N$(28);"{3SPACE}N{2SPACE}M{4SPACE}";N$(29);"{5SPACE,RVOFF}" 
 50050 PRINT"{8RIGHT,RVSON,2SPACE}MPPPPPPN{4SPACE}MPPPPPPPPPNY{RVOFF}" 
 50060 PRINT"{6RIGHT,RVSON,3SPACE}";N$(30);"{5SPACE}N{11SPACE}N{6SPACE,RVOFF}" 
 50070 PRINT"{4RIGHT,RVSON,13SPACE}M ZANGUAN N{7SPACE,RVOFF}" 
 50080 PRINT"{PURPLE}X***{BLACK,RVSON,2SPACE}ZULAMBOGA{3SPACE}M{8SPACE}H ZAGI{SPACE,RVOFF}" 
 50090 PRINT"{5RIGHT,RVSON,13SPACE}N{8SPACE}H{6SPACE,RVOFF}" 
 50100 PRINT"{10RIGHT,RVSON,5SPACE}PPPN{2SPACE}";N$(31);"{3SPACE}N{6SPACE,RVOFF}" 
 50110 PRINT"{12RIGHT,RVSON}PPN{3SPACE}M{7SPACE,RIGHT,2SPACE}";N$(32);"{SPACE,RVOFF}" 
 50120 PRINT"{13RIGHT,RVSON,6SPACE}MPPPPP{2RIGHT,5SPACE,RVOFF}" 
 50130 PRINT"{13RIGHT,RVSON,12SPACE,3RIGHT,3SPACE,RVOFF,PURPLE}M{BLACK}" 
 50140 PRINT"{15RIGHT,RVSON,SPACE}ZELAMBIE{SPACE,RVOFF,7RIGHT,PURPLE}M{BLACK}" 
 50150 PRINT"{15RIGHT,RVSON,9SPACE,RVOFF,9RIGHT,PURPLE}M{BLACK}" 
 50160 PRINT"{16RIGHT,RVSON,7SPACE,RVOFF,11RIGHT,PURPLE}M{BLACK}" 
 50170 PRINT"{16RIGHT,RVSON,2SPACE}";N$(33);"{2SPACE,RVOFF,13RIGHT,PURPLE}Y{BLACK}" 
 50180 PRINT"{15RIGHT,RVSON,6SPACE,RVOFF}" 
 50190 PRINT"{13RIGHT,RVSON,6SPACE,RVOFF}" 
 50200 PRINT"{12RIGHT,RVSON,4SPACE,17RIGHT,YELLOW}TASTE{RVOFF}" 
 50230 GET A$:IF A$="" THEN50230 
 50250 A$="":RETURN 
 51000 POKE 53281,0:POKE 53281,6:PRINT"{CLR,DOWN,WHITE,14RIGHT,RVSON,SPACE}YUNGALAND{SPACE,RVOFF,DOWN}" 
 51003 PRINT"{16RIGHT,PURPLE,RIGHT}ZM{BLACK}" 
 51005 PRINT"{BLACK,16RIGHT,RVSON,8SPACE}N{4SPACE,RVOFF}" 
 51010 PRINT"{13RIGHT,RVSON,9SPACE}PPN{7SPACE,RVOFF}" 
 51020 PRINT"{11RIGHT,RVSON,3SPACE}YUNKAN N{2SPACE}M YEDUIN{2SPACE,RVOFF,PURPLE}****B{BLACK}" 
 51030 PRINT"{9RIGHT,RVSON,2SPACE}";N$(34);"{7SPACE}N{4SPACE}MPPP{6SPACE,RVOFF}" 
 51040 PRINT"{7RIGHT,RVSON,2SPACE}MPPPPPPPPPN{9SPACE}M ";N$(35);"{3SPACE,RVOFF}" 
 51050 PRINT"{6RIGHT,RVSON,11SPACE}H{2SPACE}YUPONDEI{2SPACE}MPPPPPP{RVOFF}" 
 51060 PRINT"{6RIGHT,RVSON,11SPACE}M{16SPACE}N{3SPACE,RVOFF}" 
 51070 PRINT"{8RIGHT,RVSON,3SPACE}YIUNAK MPPPP{3SPACE}";N$(36);"{5SPACE}N ";N$(38);"{SPACE,RVOFF}" 
 51080 PRINT"{9RIGHT}N{RVSON,13SPACE}M{6SPACE}NYY{4SPACE,RVOFF}" 
 51090 PRINT"{3RIGHT,RVSON,3SPACE,RVOFF,2RIGHT}N{3RIGHT,RVSON,5SPACE}";N$(37);"{5SPACE}MPPPPN{5SPACE,RVOFF}" 
 51100 PRINT"{2RIGHT,RVSON,5SPACE,RVOFF}N{6RIGHT,RVSON,7SPACE}NYMN{8SPACE,RVOFF}" 
 51110 PRINT"{2RIGHT,RVSON,2SPACE}";N$(40);"{2SPACE,7RIGHT,5SPACE}N{2SPACE}N{2SPACE}YETI{SPACE,RVOFF}" 
 51120 PRINT"{3RIGHT,RVSON,6SPACE,9RIGHT,2SPACE}H{2SPACE}LPPPPPPP{RVOFF}" 
 51130 PRINT"{5RIGHT,RVSON,6SPACE,9RIGHT,12SPACE,RVOFF}" 
 51140 PRINT"{6RIGHT,RVSON,7SPACE,8RIGHT,12SPACE,RVOFF}" 
 51150 PRINT"{6RIGHT,RVSON,2SPACE}YUNGO{SPACE,RVOFF}********{RVSON,SPACE}YASAFKIJU{SPACE,RVOFF}" 
 51160 PRINT"{8RIGHT,RVSON,5SPACE,9RIGHT,10SPACE,RVOFF}" 
 51170 PRINT"{RVSON,9RIGHT,3SPACE,11RIGHT,3SPACE}";N$(39);"{3SPACE,RVOFF}" 
 51180 PRINT"{RVSON,25RIGHT,5SPACE,RVOFF} 
 51220 PRINT"{25RIGHT,YELLOW,8RIGHT,RVSON}TASTE{RVOFF}" 
 51230 GET A$:IF A$="" THEN51230 
 51250 A$="":RETURN 
 52000 POKE 53280,0:POKE 53281,6 
 52010 PRINT"{CLR,DOWN,WHITE,15RIGHT,RVSON,SPACE}XYLOLAND{SPACE,RVOFF,DOWN}" 
 52015 PRINT"{BLACK,24RIGHT,PURPLE}NJ{BLACK}" 
 52020 PRINT"{BLACK,18RIGHT,RVSON,4SPACE}H{6SPACE,RVOFF}" 
 52030 PRINT"{15RIGHT,RVSON,7SPACE}H{3SPACE}";N$(42);"{4SPACE,RVOFF}" 
 52040 PRINT"{13RIGHT,RVSON,8SPACE}N{12SPACE,RVOFF}" 
 52050 PRINT"{11RIGHT,RVSON,3SPACE}XEKTRA HXIPALOINGU{2SPACE,RVOFF}" 
 52060 PRINT"{10RIGHT,RVSON,11SPACE}M{11SPACE,RVOFF}" 
 52070 PRINT"{10RIGHT,RVSON,2SPACE}";N$(41);" NYYYYYYM{8SPACE,RVOFF,PURPLE}*******Z{BLACK}" 
 52080 PRINT"{9RIGHT,RVSON}PPPPPN{8SPACE}MPPPP{2SPACE,RVOFF}" 
 52090 PRINT"{8RIGHT,RVSON,5SPACE}N{2SPACE}XENTRIA M{3SPACE}M{RVOFF}" 
 52100 PRINT"{2RIGHT,PURPLE}BCCCC{BLACK,RVSON,7SPACE}M{9SPACE}N{2SPACE,RVOFF}" 
 52110 PRINT"{8RIGHT,RVSON,7SPACE}H{2SPACE}";N$(43);"{4SPACE}N{SPACE,RVOFF}" 
 52120 PRINT"{10RIGHT,RVSON,2SPACE}";N$(44);" MPPPPPPPN{2SPACE,RVOFF}" 
 52130 PRINT"{9RIGHT,RVSON,9SPACE}M{8SPACE,RVOFF}" 
 52140 PRINT"{8RIGHT,RVSON,11SPACE}M{3SPACE}";N$(45);"{4SPACE,RVOFF}" 
 52150 PRINT"{7RIGHT,RVSON,2SPACE}XAMBESIAN N{10SPACE,RVOFF}" 
 52160 PRINT"{8RIGHT,RVSON,11SPACE}NXYLAMBOAN{2SPACE,RVOFF}" 
 52170 PRINT"{11RIGHT,RVSON,7SPACE}N{10SPACE,RVOFF}" 
 52180 PRINT"{14RIGHT,RVSON}PPPN{9SPACE,RVOFF}" 
 52190 PRINT"{17RIGHT,RVSON,8SPACE,RVOFF}" 
 52220 PRINT"{DOWN,32RIGHT,YELLOW,RVSON}TASTE{RVOFF}" 
 52230 GET A$:IF A$="" THEN52230 
 52250 A$="":RETURN 
 52400 POKE 53281,0:POKE 53280,14:Y=0 
 52410 PRINT"{CLR,DOWN,5RIGHT,LIG.BLUE}FELDHERR ";:PRINTW$(C);:PRINT" IHRE LAENDER" 
 52420 PRINT"{2DOWN}" 
 52430 FOR I=1 TO45 
 52440 IF N$(I)=S$(C) THENPRINTTAB( Y)"{YELLOW}";I;".";TAB( 5+Y)"{GREEN}";L$(I);:GOTO 52445 
 52443 GOTO 52450 
 52445 PRINTTAB( 15+Y)"{RED}";Q(I);:Y=Y+20:IF Y=40 THENY=0:PRINT 
 52450 NEXT I:PRINT 
 52560 PRINT"{DOWN,YELLOW,RIGHT}NUMMER DES LANDES ";:INPUTT$ 
 52565 IF T$="@" THENGOSUB 53000:GOTO 52400 
 52566 IF T$=CHR$ (13) THEN52400 
 52567 T=0 
 52570 T=VAL (T$) 
 52580 IF N$(T)<>S$(C) THEN52400 
 52590 PRINT:PRINT"{DOWN,2RIGHT,PURPLE}WIEVIELE ARMEEN{2SPACE}[MAX";AR;"]";:INPUTER 
 52600 IF ER>AR THEN52590 
 52610 AR=AR-ER:Q(T)=Q(T)+ER:IF AR=0 THENT=0:RETURN 
 52620 GOTO 52410 
 53000 POKE 53280,0:POKE 53281,0 
 53010 PRINT"{CLR,DOWN,3RIGHT,LIG.BLUE,RVSON}F1{RVOFF,SPACE}:{BLUE,SPACE}";B$ 
 53020 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON}F3{RVOFF,SPACE}:{BLUE,SPACE}";C$ 
 53030 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON}F5{RVOFF,SPACE}:{BLUE,SPACE}";D$ 
 53040 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON}F7{RVOFF,SPACE}:{BLUE,SPACE}";E$ 
 53050 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON}F2{RVOFF,SPACE}:{BLUE,SPACE}";F$ 
 53060 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON}F4{RVOFF,SPACE}:{BLUE,SPACE}";G$ 
 53070 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON}F6{RVOFF,SPACE}:{BLUE,SPACE}";H$ 
 53080 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON}F8{RVOFF,SPACE}:{BLUE,SPACE}";I$ 
 53090 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON}I{RVOFF,2SPACE}:{BLUE,SPACE}INFORMATION UEBER KONTINENTE" 
 53100 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON}↑{RVOFF,2SPACE}:{BLUE,SPACE}SPIESTAND/SPIELENDE" 
 53105 PRINT"{DOWN,LIG.BLUE,3RIGHT,RVSON}X{RVOFF,2SPACE}:{BLUE,SPACE}ZURUECK ZUM SPIELSCHRITT" 
 53110 PRINT"{DOWN,30RIGHT,RED,RVSON}TASTE{RVOFF}" 
 53130 GET A$:IF A$="" THEN53130 
 53140 IF A$="{F1}" THENGOSUB 45000 
 53150 IF A$="{F3}" THENGOSUB 46000 
 53160 IF A$="{F5}" THENGOSUB 47000 
 53170 IF A$="{F7}" THENGOSUB 48000 
 53180 IF A$="{F2}" THENGOSUB 49000 
 53190 IF A$="{F4}" THENGOSUB 50000 
 53200 IF A$="{F6}" THENGOSUB 51000 
 53210 IF A$="{F8}" THENGOSUB 52000 
 53220 IF A$="X" THENRETURN 
 53230 IF A$="↑" THENGOSUB 54000 
 53240 IF A$="I" THENGOSUB 16000 
 53250 GOTO 53000 
 54000 POKE 53281,8:POKE 53280,9 
 54010 PRINT"{CLR}";:GOSUB 20020:PRINT"{HOME,DOWN}" 
 54015 FOR X=1 TOS:KL(X)=0:KO(X)=0:NEXT X 
 54020 FOR I=1 TOS 
 54030 FOR X=1 TO45 
 54040 IF N$(X)=S$(I) THENKL(I)=KL(I)+1 
 54050 NEXT X 
 54060 FOR X=1 TO7 
 54070 FOR Y=1 TOA(X) 
 54080 IF N$(B(X)+Y)=S$(I) THENDF=DF+1 
 54090 NEXT Y:IF DF=A(X) THENKO(I)=KO(I)+DF 
 54100 DF=0:NEXT X 
 54110 PRINT"{DOWN,2RIGHT,RED}";W$(I);TAB( 25)"{GREY1}";KO(I)+KL(I);TAB( 30)"{BLACK}PUNKTE" 
 54120 NEXT I 
 54130 PRINT"{DOWN}":GOSUB 20020:PRINT"{DOWN,DOWN,18RIGHT,BLACK,RVSON}TASTE{RVOFF}" 
 54140 GET A$:IF A$="" THEN54140 
 54150 PRINT"{CLR,6DOWN,7RIGHT,BLACK}SPIELENDE [J/N]" 
 54160 GET A$:IF A$="" THEN54160 
 54170 IF A$="J" THENSYS 64738 
 54180 RETURN 
 55000 POKE 53280,0:POKE 53281,0:PRINT"{CLR,LIG.BLUE}" 
 55010 PRINT"{3DOWN,4RIGHT,RVSON}£{2SPACE}*{2RIGHT,2SPACE,2RIGHT}£{4SPACE,2RIGHT,2SPACE,2RIGHT,SPACE,2RIGHT,SPACE,2RIGHT}£{2SPACE}*" 
 55020 PRINT"{4RIGHT,RVSON,SPACE,2RIGHT,SPACE,2RIGHT,2SPACE,2RIGHT,SPACE,RVOFF}£{RVSON,5RIGHT,2SPACE,2RIGHT,SPACE,RIGHT}£{RVOFF}£{RVSON,2RIGHT,SPACE,2RIGHT,SPACE}" 
 55030 PRINT"{4RIGHT,RVSON,SPACE,RIGHT}£{RVOFF}£{RVSON,2RIGHT,2SPACE,2RIGHT,SPACE}*{5RIGHT,2SPACE,2RIGHT,SPACE}£{RVOFF}£{RVSON,3RIGHT,SPACE,2RIGHT,SPACE}" 
 55040 PRINT"{4RIGHT,RVSON,SPACE}£{RVOFF}£{RVSON,3RIGHT,2SPACE,2RIGHT,RVOFF}*{RVSON,3SPACE}*{2RIGHT,2SPACE,2RIGHT,2SPACE,4RIGHT,SPACE,2RIGHT,SPACE}" 
 55050 PRINT"{4RIGHT,RVSON,SPACE,RVOFF}*{RVSON}*{RIGHT,2RIGHT,2SPACE,5RIGHT,RVOFF}*{RVSON,SPACE,2RIGHT,2SPACE,2RIGHT,SPACE,RVOFF}*{RVSON}*{RIGHT,2RIGHT,SPACE,2RIGHT,SPACE}" 
 55060 PRINT"{4RIGHT,RVSON,SPACE,RIGHT,RVOFF}*{RVSON}*{RIGHT,RIGHT,2SPACE,5RIGHT}£{SPACE,2RIGHT,2SPACE,2RIGHT,SPACE,RIGHT,RVOFF}*{RVSON}*{RIGHT,RIGHT,SPACE,2RIGHT,SPACE}" 
 55070 PRINT"{4RIGHT,RVSON,SPACE,2RIGHT,SPACE,2RIGHT,2SPACE,2RIGHT,4SPACE,RVOFF}£{RVSON,2RIGHT,2SPACE,2RIGHT,SPACE,2RIGHT,SPACE,2RIGHT,RVOFF}*{RVSON,2SPACE,RVOFF}£{RVSON}" 
 55080 PRINT"{4DOWN,3RIGHT,PURPLE}CREATED/WRITTEN/IDEA/SOUND/GRAFIK" 
 55090 PRINT"{3DOWN,9RIGHT,RVSON,RED,SPACE}ALL BY BERND HORNIG{SPACE,RVOFF}" 
 55100 FOR I=1 TO3500:NEXT :RETURN 
 60000 POKE 53280,1:POKE 53281,12:PRINT"{CLR}" 
 60010 PRINT"{12RIGHT,RED,RVSON,SPACE}SPIELANLEITUNG{SPACE,RVOFF}" 
 60020 PRINT"{DOWN,RIGHT,BLACK}SIE BEFINDEN SICH IN EINER FERNEN GA-" 
 60030 PRINT"{DOWN,RIGHT}LAXIE AUF DEM PLANETEN GURUNGO, MIT " 
 60040 PRINT"{DOWN,RIGHT}SEINEN 7 KONTINENTEN. SIE SIND FEDLHERR" 
 60050 PRINT"{RIGHT}AUF DIESEM PLANETEN UND BESITZEN EINE" 
 60060 PRINT"{DOWN,RIGHT}ANZAHL VON LAENDERN, DIE SIE VERGROES-" 
 60070 PRINT"{DOWN,RIGHT}SERN UND VERTEIDIGEN SOLLEN. JEDEN MO-":REM 15 
 60080 PRINT"{DOWN,RIGHT}NAT BEKOMMEN SIE ARMEEN DAZU. DIE AN-" 
 60090 PRINT"{DOWN,RIGHT}ZAHL RICHTET SICH NACH VOLLSTAENDIG BE-" 
 60100 PRINT"{RIGHT}SETZTEN KONTINENTEN UND NEU EROBERTEN" 
 60110 PRINT"{DOWN,RIGHT}LAENDERN.{17SPACE,2DOWN,RVSON,RED,SPACE}TASTE{SPACE,RVOFF}" 
 60120 GET A$:IF A$="" THEN60120 
 60130 PRINT"{CLR,DOWN,BLACK,RIGHT}BEI ANGRIFFEN, ODER BEI VERSCHIEBEN VON" 
 60140 PRINT"{RIGHT}ARMEEN, MUSS MINDESTENS EINE ARMEE IM" 
 60150 PRINT"{DOWN,RIGHT}HEIMATLAND STEHEN BLEIBEN." 
 60160 PRINT"{DOWN,RIGHT}MIT DER{SPACE,RED,RVSON}@{RVOFF,BLACK}-TASTE KOMMEN SIE ZUM UNTER-" 
 60170 PRINT"{DOWN,RIGHT}MENU, VON DEM SIE DIE KARTEN USW. ER-" 
 60180 PRINT"{DOWN,RIGHT}REICHEN KOENNEN." 
 60190 PRINT"{DOWN,RIGHT}MIT DER{SPACE,RED,RVSON}X{RVOFF,BLACK}-TASTE KOENNEN SIE DIE ROU-" 
 60200 PRINT"{DOWN,RIGHT}TINEN BEENDEN.{5SPACE,2DOWN}VIEL SPASS !!!!!!!" 
 60210 PRINT"{2DOWN,23RIGHT,RED,RVSON,SPACE}TASTE{SPACE,RVOFF}" 
 60220 GET A$:IF A$="" THEN60220 
 60230 RETURN 
 62000 RETURN 
 63001 DATA MOIRA,2,3,0,0,0,0 
 63002 DATA MUR,1,3,9,0,0,0 
 63003 DATA MARISUAN,1,2,4,0,0,0 
 63004 DATA MESIGO,3,27,0,0,0,0 
 63005 DATA JUISU,6,7,0,0,0,0 
 63006 DATA JUKLIA,5,12,0,0,0,0 
 63007 DATA JEDIP,5,8,9,10,0,0 
 63008 DATA JOSUAH,7,9,0,0,0,0 
 63009 DATA JIDU,7,8,10,11,2,0 
 63010 DATA JUXARIO,7,9,11,12,0,0 
 63011 DATA JANIAN,9,10,12,2,0,0 
 63012 DATA JODELIA,6,10,11,42,0,0 
 63013 DATA BOUYA,14,15,0,0,0,0 
 63014 DATA BUNGA,13,15,16,25,0,0 
 63015 DATA BIFIAN,13,15,16,17,0,0 
 63016 DATA BALINGO,14,15,17,18,0,0 
 63017 DATA BOAN,15,16,18,35,0,0 
 63018 DATA BEYU,16,17,44,0,0,0 
 63019 DATA WIUMBO,20,21,22,0,0,0 
 63020 DATA WAGURIO,19,21,26,0,0,0 
 63021 DATA WEFIA,19,20,22,23,24,25 
 63022 DATA WOKIO,19,21,23,0,0,0 
 63023 DATA WIGUA,21,22,24,0,0,0 
 63024 DATA WUGA,21,23,25,0,0,0 
 63025 DATA WASPO,21,24,27,0,0,0 
 63026 DATA WANZAN,20,27,0,0,0,0 
 63027 DATA WEGOS,25,26,4,0,0,0 
 63028 DATA ZUGA,29,30,31,11,0,0 
 63029 DATA ZILUBO,28,31,32,0,0,0 
 63030 DATA ZULAMBOGA,28,31,33,42,0,0 
 63031 DATA ZANGUAN,28,29,30,32,33,0 
 63032 DATA ZAGI,29,31,34,0,0,0 
 63033 DATA ZELAMBIE,30,31,0,0,0,0 
 63034 DATA YUNKAN,35,36,37,32,0,0 
 63035 DATA YEDUIN,34,36,38,17,0,0 
 63036 DATA YUPONDEI,34,35,37,38,0,0 
 63037 DATA YIUNAK,34,36,38,39,40,0 
 63038 DATA YETI,35,36,37,39,0,0 
 63039 DATA YASAFKIJU,37,38,40,0,0,0 
 63040 DATA YUNGO,37,39,0,0,0,0 
 63041 DATA XEKTRA,42,43,44,0,0,0 
 63042 DATA XIPALOINGO,41,43,45,30,12,0 
 63043 DATA XENTRIA,41,42,44,45,0,0 
 63044 DATA XAMBESIAN,41,43,45,18,0,0 
 63045 DATA XYLAMBOAN,42,43,44,0,0,0

Listing 1. Listing zum Programm »Risiko«.