home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8503c.d64
/
risiko
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
22KB
|
678 lines
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)="[213][195][195][195][201]"
110 WE$(6,2)="[221][209] [209][221]"
120 WE$(6,3)="[221][209] [209][221]"
130 WE$(6,4)="[221][209] [209][221]"
140 WE$(6,5)="[202][195][195][195][203]"
150 WE$(1,1)=WE$(6,1):WE$(1,2)="[221] [221]":WE$(1,3)="[221] [209] [221]":WE$(1,4)=WE$(1,2)
160 WE$(1,5)=WE$(6,5)
170 WE$(2,1)=WE$(6,1):WE$(2,2)="[221][209] [221]":WE$(2,3)=WE$(1,2):WE$(2,4)="[221] [209][221]"
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"[147][154] SPIELANLEITUNG ? [J/N]"
910 GETA$:IFA$=""THEN910
920 IFA$="J"THENGOSUB60000
1000 POKE53281,0:POKE53280,0
1010 PRINT"[147]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"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
1090 FORW=1TOS
1100 PRINT"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"[147]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"[147]FELDHEER ";:PRINTW$(C)
1510 PRINT"SIE BEKOMMEN ";:PRINT"";:PRINTAR;:PRINT" ARMEEN DAZU"
1515 FORI=1TO1500:NEXTI
1520 PRINT"WO SOLLEN DIE ARMEEN HIN ?":FORI=1TO750:NEXTI
1530 GOSUB52400
1540 GOSUB20000
1550 A$="":PRINT"[147]";
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"[147][156]"
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"[147]FELDHERR ";:PRINTW$(C);:PRINT" IHRE LAENDER"
1630 Y=0
1640 FORI=1TO45
1650 IFN$(I)=S$(C)THENPRINTTAB(Y)"[158]";I;".";TAB(5+Y)"";L$(I);:GOTO1655
1654 GOTO1660
1655 PRINTTAB(15+Y)"";Q(I);:Y=Y+20:IFY=40THENY=0:PRINT
1660 NEXTI
1670 PRINT:PRINT"[158]VON NUMMER: ";:INPUTTS$
1675 IFTS$="X"THENGOTO1810
1676 IFTS$="@"THENGOSUB53000:GOTO1620
1690 QY=VAL(TS$)
1700 IFN$(QY)<>S$(C)THEN1620
1720 PRINT"[147]":GOSUB20020
1721 PRINT"VERSCHIEBEN VON ";L$(QY);"[146] [156]";Q(QY)
1722 LE=QY:GOSUB30120:PRINT:GOSUB20020
1725 PRINT"[153]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"[150]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"[147]":GOSUB20020
13090 PRINT"EINE TRAURIGE NACHRICHT !!!"
13100 PRINT"FELDHERR [159]";W$(KO(1));" MIT SEINER "
13110 PRINT"LETZEN ARMEE IN DEN KAMPF GEZOGEN,"
13120 PRINT"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"ANGRIFF VON WELCHEM KONTINENT AUS ?"
15010 PRINT"[159]1. MINILAND"
15020 PRINT"[159]2. JUMBOLAND"
15030 PRINT"[159]3. BONGOLAND"
15040 PRINT"[159]4. WANGOLAND"
15050 PRINT"[159]5. ZULULAND"
15060 PRINT"[159]6. YUNGOLAND"
15070 PRINT"[159]7. XYLOLAND"
15080 PRINT"[158]NUMMER ?[146]"
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"[147]"
15210 PRINT"[147][156]ANGRIFF VON LAND NR: "
15220 FORI=1TOA(Z)
15230 PRINT"[154]";B(Z)+I;". [158]";L$(B(Z)+I);
15240 PRINTTAB(27)"";N$(B(Z)+I);
15250 PRINTTAB(35)"";Q(B(Z)+I)
15260 NEXT
15270 PRINT"[154]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"INFORMATIONEN UEBER KONTINENT ?"
16010 PRINT"[159]1.[158] MINILAND"
16020 PRINT"[159]2.[158] JUMBOLAND"
16030 PRINT"[159]3.[158] BONGOLAND"
16040 PRINT"[159]4.[158] WANGOLAND"
16050 PRINT"[159]5.[158] ZULULAND"
16060 PRINT"[159]6.[158] YUNGALAND"
16070 PRINT"[159]7.[158] XYLOLAND"
16080 PRINT"[144]NUMMER ?[146]"
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"[147]";:GOSUB20020:PRINT""
16210 FORI=1TOA(X)
16230 PRINT"";B(X)+I;"[144]";L$(B(X)+I);TAB(29)"[149]";N$(B(X)+I);"[151]";:
16240 PRINTQ(B(X)+I)
16250 NEXTI
16260 PRINT:GOSUB20020
16270 PRINT" TASTE [146]"
16280 GETA$:IFA$=""THEN16280
16300 RETURN
20000 POKE53281,0:POKE53280,0:RETURN
20010 POKE53281,0:POKE53280,11:RETURN
20020 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":RETURN
20030 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":RETURN
30000 GOSUB20010:PRINT"[147]"
30100 PRINT" ";:PRINTL$(LE);:PRINT" [146]ARMEEN:";:PRINTQ(LE)
30105 PRINT:GOSUB20030:PRINT
30110 PRINT"[159]ANGRIFF AUF :":GOSUB30120:GOTO30305
30120 PRINT"";:PRINTLA(LE,1);". [154]";L$(LA(LE,1));TAB(23)"[156]";
30130 PRINTN$(LA(LE,1));"[150]";Q(LA(LE,1))
30140 PRINT"";LA(LE,2);". [154]";L$(LA(LE,2));TAB(23)"[156]";
30150 PRINTN$(LA(LE,2));"[150]";Q(LA(LE,2))
30160 IFLA(LE,3)=0THENGOTO30300
30170 PRINT"";LA(LE,3);". [154]";L$(LA(LE,3));TAB(23)"[156]";
30180 PRINTN$(LA(LE,3));"[150]";Q(LA(LE,3))
30190 IFLA(LE,4)=0THENGOTO30300
30200 PRINT"";LA(LE,4);". [154]";L$(LA(LE,4));TAB(23)"[156]";
30210 PRINTN$(LA(LE,4));"[150]";Q(LA(LE,4))
30220 IFLA(LE,5)=0THENGOTO30300
30230 PRINT"";LA(LE,5);". [154]";L$(LA(LE,5));TAB(23)"[156]";
30240 PRINTN$(LA(LE,5));"[150]";Q(LA(LE,5))
30250 IFLA(LE,6)=0THENGOTO30300
30260 PRINT"";LA(LE,6);". [154]";L$(LA(LE,6));TAB(23)"[156]";
30270 PRINTN$(LA(LE,6));"[150]";Q(LA(LE,6))
30300 RETURN
30305 PRINT"[153]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"[150]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"[147]"
30680 PRINT"ANGREIFER[144]VERTEIDIGER"
30690 FORI=1TOWU:FORY=1TO5
30700 PRINT"";WE$(WU(I),Y)
30710 NEXTY:PRINT;:NEXTI
30715 PRINT""
30720 FORI=1TOWV:FORY=1TO5
30730 PRINTTAB(32)"[144]";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"";W$(C);" SIE HABEN ";L$(LS)" EROBERT":GOTO30860
30850 GOTO30900
30860 PRINT"ES SIND NUN";AQ;"ARMEEN IN DIESEM LAND"
30870 PRINT"[154]";M$(LS);" SIE HABEN ";L$(LS);"[154] VERLOREN"
30880 Q(LS)=AQ:N$(LS)=S$(C):XS(C)=XS(C)+1:M$(LS)=M$(LE):GOTO31000
30900 PRINT"[154]";M$(LS);" SIE HABEN ";L$(LS)
30910 PRINT"[154]ERFOLGREICH VERTEIDIGT"
30920 PRINT"";M$(LE);" HAT SEINE ANGREIFENDEN"
30930 PRINT"TRUPPEN VERLOREN"
31000 FORI=1TO5000:NEXT
31010 PRINT"[147]":POKE53280,0:POKE53281,0
31020 PRINT"[156]NOCH EIN ANGRIFF ";W$(C);" ?"
31030 GETA$:IFA$=""THEN31030
31050 RETURN
40000 POKE53280,11:POKE53281,0:PRINT"[147]"
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"";:RETURN
41000 PRINT"[147]"
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"";:RETURN
43996 IFA$="\"THENEND
45000 POKE53280,0:POKE53281,6
45010 PRINT"[147] PLANET GURUNGO [146]"
45020 PRINT"[144] [146]"
45030 PRINT" [146]"
45040 PRINT" JUMBO [146]"
45050 PRINT" WANGO [146]"
45060 PRINT" [146][192] MINI [146][206] [146]"
45070 PRINT" [146]"
45080 PRINT" [146][175] [146][192] [146]"
45090 PRINT" [146][205] [146]"
45100 PRINT"[146][206][146][205] [146][170][146]"
45110 PRINT" [146]"
45120 PRINT" [146]"
45130 PRINT" [146][192][192][192] ZULU [146]"
45140 PRINT" XYLO BONGA [146][205] [146]"
45150 PRINT"[195] [146][195][195][195][195][195][195]"
45160 PRINT"[145] [146][205] [146][183][183][146]"
45170 PRINT" [146][175][175] [146]"
45180 PRINT" [146]"
45190 PRINT" YUNGA [146]"
45200 PRINT" [146]"
45210 PRINT"[146][206] [146]"
45215 PRINT" [146]"
45216 PRINT" [146][192][192][192] [158]TASTE[146]"
45230 GETA$:IFA$=""THEN45230
45250 A$="":RETURN
46000 POKE53280,0:POKE53281,6
46010 PRINT"[147] MINILAND [146]"
46020 PRINT"[144]"
46030 PRINT" [146]"
46040 PRINT" [146]"
46050 PRINT"[175][175] MOIRA [207] [146]"
46060 PRINT" [205] [206] [146]"
46070 PRINT" ";N$(2);" [205] ";N$(1);" [206] [146]"
46080 PRINT"[156]J[192][192][192][192][144] [205][175][175][175][175][206] ";N$(3);" [146]"
46090 PRINT" MUR [205] [160][146]"
46100 PRINT" [205] MARISUAN [175][175][146]"
46110 PRINT" [186] [175][175][175][175][175][206] [146]"
46120 PRINT" [146] [206] [146]"
46130 PRINT" [146] [206] [146]"
46140 PRINT" [206] MESIGO [146]"
46150 PRINT" [146]"
46160 PRINT" ";N$(4);" [146]"
46170 PRINT" [146][156][192][192][192][192][192][192]W[144]"
46220 PRINT"[158]TASTE[146]"
46230 GETA$:IFA$=""THEN46230
46250 A$="":RETURN
47000 POKE53280,0:POKE53281,6
47010 PRINT"[147] JUMBOLAND [146]"
47020 PRINT"[144] [146]"
47030 PRINT" [146] [146]"
47040 PRINT" JUISU [146] [146]"
47050 PRINT" [146] JOSUAH [146]"
47060 PRINT" [183][205] [206][183] [146] [146]
47070 [153]" (null) ";N$(5);" + ";N$(7);" + WAIT"
47080 [153]" ";N$(6);" (null) + +ANDANDANDAND ";N$(8);" WAIT"
47090 [153]" (null) WAIT JEDIP + (null) WAIT
47100 PRINT" [183][183][146] [175][175][175][175][175][175][175][206] ";N$(9);" [205][175][175][175][175][175][146]"
47110 PRINT" JUKLIA [146] [205] [146]"
47120 PRINT" [146] [205][175][175] JIDU [146][156][192][192][192][192]M[144]"
47130 PRINT" [146] [205] [146]"
47140 PRINT" [146] JUXARIO [206][183][183][183][183][183][146]"
47150 PRINT"[205] [206]JANIAN [146]"
47160 PRINT"[205] [205] ";N$(10);" [206] [146]"
47170 PRINT" [205] [206] ";N$(11);" [146]"
47180 PRINT" ";N$(12);" [205] [170] [146][156][205][144]"
47190 PRINT" [183][183][183][205] [146] [156][205][144]"
47200 PRINT" JODELIA [146][156]Z[144]"
47205 PRINT"[156][206][144] [146]"
47210 PRINT"[156]X[206][144] [158]TASTE[146]"
47230 GETA$:IFA$=""THEN47230
47250 A$="":RETURN
48000 POKE53280,0:POKE53281,6
48010 PRINT"[147] BONGALAND [146]"
48020 PRINT"[144][156][194]W[144]"
48030 PRINT" [146] [156][194][144]"
48040 PRINT" [146] [146]"
48050 PRINT" [205] [146] [146]"
48060 PRINT" [180] [146] [146]"
48070 PRINT" BOUYA [180] [146]"
48080 PRINT" [180]BUNGA [175][175][175][175][175][175][146]"
48090 PRINT" ";N$(13);" [206] [206] [146]"
48100 PRINT" [206][205] ";N$(14);" [206] [146]"
48110 PRINT"[175][175][175][175][175][175][206] [183][183][205][175][175][206] ";N$(16);" [146][206] [146]"
48120 PRINT" [170] [146][206] [146]"
48130 PRINT" BIFIAN[170] BALINGO [146][206] [146]"
48140 PRINT" [170] [146] ";N$(18);" [146]"
48150 PRINT" ";N$(15);" [205][175][175] [146] [146]"
48160 PRINT" [170] [205] [146] [146]"
48170 PRINT"[175][175][175][175][206] ";N$(17);"[205][175][175][146] BEYU [146]"
48180 PRINT" [146][192][192][192][192][192] [146]"
48190 PRINT" BOAN [146] [146][156][195][195]X[144]"
48200 PRINT"[156]Y[192][192][192][192][192][192][192][192][192][192][144] [146] [146]"
48210 PRINT" [146] [146]"
48220 PRINT"[158]TASTE[146]"
48230 GETA$:IFA$=""THEN48230
48250 A$="":RETURN
49000 POKE53280,0:POKE53281,6
49010 PRINT"[147] WANGOLAND [146]"
49020 PRINT"[144] [205] [205] [146]"
49030 PRINT" [205] [205] [146]"
49040 PRINT" ";N$(20);" [170] WIUMBO[170] [146]"
49050 PRINT" [170] [206]WOKIO [146]"
49060 PRINT" WAGURIU[170] ";N$(19);" [206] [206][183] [146]"
49070 PRINT" [170][175][175][175][175][175][206] ";N$(22);" [206] [146]"
49080 PRINT" [206] [205] [206] ";N$(23);" [146]"
49090 PRINT" [206] [205][175][175][206] [146]"
49100 PRINT" [146][206] [206] WEFIA [170] [146]"
49110 PRINT" ";N$(26);" [146][206] [170] WIGUA [146]"
49120 PRINT" ";N$(21);" [206][205][175][175] [146]"
49130 PRINT" WANZAN[175][175][175][175][206] ";N$(24);" [205][175][175][146]"
49140 PRINT" [206] [205] [146]"
49150 PRINT" [206] [205]WUGA [146]"
49160 PRINT" [206] WEGOS ";N$(25);" [205][175][175][175][175][146]"
49170 PRINT" [146][192][192][192][192][192] [146]"
49175 PRINT"[156]M[192][192][192][192][192][144] ";N$(27);" WASPO [146]"
49180 PRINT" [146]"
49190 PRINT" [146]"
49220 PRINT"[156][194]B[158]TASTE[146]"
49230 GETA$:IFA$=""THEN49230
49250 A$="":RETURN
50000 POKE53280,0:POKE53281,6
50005 PRINT"[147] ZULULAND [146]"
50007 PRINT"[156]J[144]"
50010 PRINT"[144][156][205][144] [206] [146]"
50020 PRINT"[156][205][144] ZUGA [180] ZILUBO [146]"
50030 PRINT" [206][205] [146]"
50040 PRINT"[175] ";N$(28);" [206] [205] ";N$(29);" [146]"
50050 PRINT" [205][175][175][175][175][175][175][206] [205][175][175][175][175][175][175][175][175][175][206][183][146]"
50060 PRINT" ";N$(30);" [170] [206] [146]"
50070 PRINT" [205] ZANGUAN [206] [146]"
50080 PRINT"[156]X[192][192][192][144] ZULAMBOGA [205] [180] ZAGI [146]"
50090 PRINT" [170] [180] [146]"
50100 PRINT" [175][175][175][206] ";N$(31);" [206] [146]"
50110 PRINT"[175][175][206] [205] ";N$(32);" [146]"
50120 PRINT" [205][175][175][175][175][175] [146]"
50130 PRINT" [146][156][205][144]"
50140 PRINT" ZELAMBIE [146][156][205][144]"
50150 PRINT" [146][156][205][144]"
50160 PRINT" [146][156][205][144]"
50170 PRINT" ";N$(33);" [146][156]Y[144]"
50180 PRINT" [146]"
50190 PRINT" [146]"
50200 PRINT" [158]TASTE[146]"
50230 GETA$:IFA$=""THEN50230
50250 A$="":RETURN
51000 POKE53281,0:POKE53281,6:PRINT"[147] YUNGALAND [146]"
51003 PRINT"[156]Z[205][144]"
51005 PRINT"[144] [170] [146]"
51010 PRINT" [175][175][206] [146]"
51020 PRINT" YUNKAN [206] [205] YEDUIN [146][156][192][192][192][192]B[144]"
51030 PRINT" ";N$(34);" [206] [205][175][175][175] [146]"
51040 PRINT" [205][175][175][175][175][175][175][175][175][175][206] [205] ";N$(35);" [146]"
51050 PRINT" [180] YUPONDEI [205][175][175][175][175][175][175][146]"
51060 PRINT" [205] [206] [146]"
51070 PRINT" YIUNAK [205][175][175][175][175] ";N$(36);" [206] ";N$(38);" [146]"
51080 PRINT"[206] [205] [206][183][183] [146]"
51090 PRINT" [146][206] ";N$(37);" [205][175][175][175][175][206] [146]"
51100 PRINT" [146][206] [206][183][205][206] [146]"
51110 PRINT" ";N$(40);" [206] [206] YETI [146]"
51120 PRINT" [180] [204][175][175][175][175][175][175][175][146]"
51130 PRINT" [146]"
51140 PRINT" [146]"
51150 PRINT" YUNGO [146][192][192][192][192][192][192][192][192] YASAFKIJU [146]"
51160 PRINT" [146]"
51170 PRINT" ";N$(39);" [146]"
51180 PRINT" [146]
51220 [153]"SYSTASTEWAIT"
51230 [161]A$:[139]A$[178]""[167]51230
51250 A$[178]"":[142]
52000 [151]53280,0:[151]53281,6
52010 [153]"LOAD XYLOLAND WAIT"
52015 [153]"STOPCLR(null)JSTOP"
52020 [153]"STOP SGN WAIT"
52030 [153]" SGN ";N$(42);" WAIT"
52040 [153]" (null) WAIT"
52050 [153]" XEKTRA SGNXIPALOINGU WAIT"
52060 [153]" (null) WAIT"
52070 [153]" ";N$(41);" (null)USRUSRUSRUSRUSRUSR(null) WAITCLRTANTANTANTANTANTANTANZSTOP"
52080 [153]"ANDANDANDANDAND(null) (null)ANDANDANDAND WAIT"
52090 [153]" + XENTRIA (null) (null)WAIT"
52100 [153]"CLRBLENLENLENLENSTOP (null) + WAIT"
52110 [153]" SGN ";N$(43);" (null) WAIT"
52120 [153]" ";N$(44);" (null)ANDANDANDANDANDANDAND(null) WAIT"
52130 [153]" (null) WAIT"
52140 [153]" (null) ";N$(45);" WAIT"
52150 [153]" XAMBESIAN + WAIT"
52160 [153]" (null)XYLAMBOAN WAIT"
52170 [153]" (null) WAIT"
52180 [153]"ANDANDAND(null) WAIT"
52190 [153]" WAIT"
52220 [153]"SYSTASTEWAIT"
52230 [161]A$:[139]A$[178]""[167]52230
52250 A$[178]"":[142]
52400 [151]53281,0:[151]53280,14:Y[178]0
52410 [153]"LOADCONTFELDHERR ";:[153]W$(C);:[153]" IHRE LAENDER"
52420 [153]""
52430 [129]I[178]1[164]45
52440 [139]N$(I)[178]S$(C)[167][153][163]Y)"SYS";I;".";[163]5[170]Y)"";L$(I);:[137]52445
52443 [137]52450
52445 [153][163]15[170]Y)"";Q(I);:Y[178]Y[170]20:[139]Y[178]40[167]Y[178]0:[153]
52450 [130]I:[153]
52560 [153]"SYSNUMMER DES LANDES ";:[133]T$
52565 [139]T$[178]"@"[167][141]53000:[137]52400
52566 [139]T$[178][199](13)[167]52400
52567 T[178]0
52570 T[178][197](T$)
52580 [139]N$(T)[179][177]S$(C)[167]52400
52590 [153]:[153]"CLRWIEVIELE ARMEEN [MAX";AR;"]";:[133]ER
52600 [139]ER[177]AR[167]52590
52610 AR[178]AR[171]ER:Q(T)[178]Q(T)[170]ER:[139]AR[178]0[167]T[178]0:[142]
52620 [137]52410
53000 [151]53280,0:[151]53281,0
53010 [153]"LOADCONTF1WAIT : ";B$
53020 [153]"CONTF3WAIT : ";C$
53030 [153]"CONTF5WAIT : ";D$
53040 [153]"CONTF7WAIT : ";E$
53050 [153]"CONTF2WAIT : ";F$
53060 [153]"CONTF4WAIT : ";G$
53070 [153]"CONTF6WAIT : ";H$
53080 [153]"CONTF8WAIT : ";I$
53090 [153]"CONTIWAIT : INFORMATION UEBER KONTINENTE"
53100 [153]"CONT^WAIT : SPIESTAND/SPIELENDE"
53105 [153]"CONTXWAIT : ZURUECK ZUM SPIELSCHRITT"
53110 [153]"TASTEWAIT"
53130 [161]A$:[139]A$[178]""[167]53130
53140 [139]A$[178]"INPUT"[167][141]45000
53150 [139]A$[178]"DIM"[167][141]46000
53160 [139]A$[178]"READ"[167][141]47000
53170 [139]A$[178]"LET"[167][141]48000
53180 [139]A$[178]"GOTO"[167][141]49000
53190 [139]A$[178]"RUN"[167][141]50000
53200 [139]A$[178]"IF"[167][141]51000
53210 [139]A$[178]"RESTORE"[167][141]52000
53220 [139]A$[178]"X"[167][142]
53230 [139]A$[178]"^"[167][141]54000
53240 [139]A$[178]"I"[167][141]16000
53250 [137]53000
54000 [151]53281,8:[151]53280,9
54010 [153]"LOAD";:[141]20020:[153]""
54015 [129]X[178]1[164]S:KL(X)[178]0:KO(X)[178]0:[130]X
54020 [129]I[178]1[164]S
54030 [129]X[178]1[164]45
54040 [139]N$(X)[178]S$(I)[167]KL(I)[178]KL(I)[170]1
54050 [130]X
54060 [129]X[178]1[164]7
54070 [129]Y[178]1[164]A(X)
54080 [139]N$(B(X)[170]Y)[178]S$(I)[167]DF[178]DF[170]1
54090 [130]Y:[139]DF[178]A(X)[167]KO(I)[178]KO(I)[170]DF
54100 DF[178]0:[130]X
54110 [153]"";W$(I);[163]25)"POKE";KO(I)[170]KL(I);[163]30)"STOPPUNKTE"
54120 [130]I
54130 [153]"":[141]20020:[153]"STOPTASTEWAIT"
54140 [161]A$:[139]A$[178]""[167]54140
54150 [153]"LOADSTOPSPIELENDE [J/N]"
54160 [161]A$:[139]A$[178]""[167]54160
54170 [139]A$[178]"J"[167][158]64738
54180 [142]
55000 [151]53280,0:[151]53281,0:[153]"LOADCONT"
55010 [153]"STEP (null) STEP STEP (null)"
55020 [153]" WAITSTEP STEPWAITSTEP "
55030 [153]" STEPWAITSTEP (null) STEPWAITSTEP "
55040 [153]" STEPWAITSTEP WAIT(null) (null) "
55050 [153]" WAIT(null)(null) WAIT(null) WAIT(null)(null) "
55060 [153]" WAIT(null)(null) STEP WAIT(null)(null) "
55070 [153]" WAITSTEP WAIT(null) WAITSTEP"
55080 [153]"CLRCREATED/WRITTEN/IDEA/SOUND/GRAFIK"
55090 [153]" ALL BY BERND HORNIG WAIT"
55100 [129]I[178]1[164]3500:[130]:[142]
60000 [151]53280,1:[151]53281,12:[153]"LOAD"
60010 [153]" SPIELANLEITUNG WAIT"
60020 [153]"STOPSIE BEFINDEN SICH IN EINER FERNEN GA-"
60030 [153]"LAXIE AUF DEM PLANETEN GURUNGO, MIT "
60040 [153]"SEINEN 7 KONTINENTEN. SIE SIND FEDLHERR"
60050 [153]"AUF DIESEM PLANETEN UND BESITZEN EINE"
60060 [153]"ANZAHL VON LAENDERN, DIE SIE VERGROES-"
60070 [153]"SERN UND VERTEIDIGEN SOLLEN. JEDEN MO-":[143]15
60080 [153]"NAT BEKOMMEN SIE ARMEEN DAZU. DIE AN-"
60090 [153]"ZAHL RICHTET SICH NACH VOLLSTAENDIG BE-"
60100 [153]"SETZTEN KONTINENTEN UND NEU EROBERTEN"
60110 [153]"LAENDERN. TASTE WAIT"
60120 [161]A$:[139]A$[178]""[167]60120
60130 [153]"LOADSTOPBEI ANGRIFFEN, ODER BEI VERSCHIEBEN VON"
60140 [153]"ARMEEN, MUSS MINDESTENS EINE ARMEE IM"
60150 [153]"HEIMATLAND STEHEN BLEIBEN."
60160 [153]"MIT DER @WAITSTOP-TASTE KOMMEN SIE ZUM UNTER-"
60170 [153]"MENU, VON DEM SIE DIE KARTEN USW. ER-"
60180 [153]"REICHEN KOENNEN."
60190 [153]"MIT DER XWAITSTOP-TASTE KOENNEN SIE DIE ROU-"
60200 [153]"TINEN BEENDEN. VIEL SPASS !!!!!!!"
60210 [153]" TASTE WAIT"
60220 [161]A$:[139]A$[178]""[167]60220
60230 [142]
62000 [142]
63001 [131]MOIRA,2,3,0,0,0,0
63002 [131]MUR,1,3,9,0,0,0
63003 [131]MARISUAN,1,2,4,0,0,0
63004 [131]MESIGO,3,27,0,0,0,0
63005 [131]JUISU,6,7,0,0,0,0
63006 [131]JUKLIA,5,12,0,0,0,0
63007 [131]JEDIP,5,8,9,10,0,0
63008 [131]JOSUAH,7,9,0,0,0,0
63009 [131]JIDU,7,8,10,11,2,0
63010 [131]JUXARIO,7,9,11,12,0,0
63011 [131]JANIAN,9,10,12,2,0,0
63012 [131]JODELIA,6,10,11,42,0,0
63013 [131]BOUYA,14,15,0,0,0,0
63014 [131]BUNGA,13,15,16,25,0,0
63015 [131]BIFIAN,13,15,16,17,0,0
63016 [131]BALINGO,14,15,17,18,0,0
63017 [131]BOAN,15,16,18,35,0,0
63018 [131]BEYU,16,17,44,0,0,0
63019 [131]WIUMBO,20,21,22,0,0,0
63020 [131]WAGURIO,19,21,26,0,0,0
63021 [131]WEFIA,19,20,22,23,24,25
63022 [131]WOKIO,19,21,23,0,0,0
63023 [131]WIGUA,21,22,24,0,0,0
63024 [131]WUGA,21,23,25,0,0,0
63025 [131]WASPO,21,24,27,0,0,0
63026 [131]WANZAN,20,27,0,0,0,0
63027 [131]WEGOS,25,26,4,0,0,0
63028 [131]ZUGA,29,30,31,11,0,0
63029 [131]ZILUBO,28,31,32,0,0,0
63030 [131]ZULAMBOGA,28,31,33,42,0,0
63031 [131]ZANGUAN,28,29,30,32,33,0
63032 [131]ZAGI,29,31,34,0,0,0
63033 [131]ZELAMBIE,30,31,0,0,0,0
63034 [131]YUNKAN,35,36,37,32,0,0
63035 [131]YEDUIN,34,36,38,17,0,0
63036 [131]YUPONDEI,34,35,37,38,0,0
63037 [131]YIUNAK,34,36,38,39,40,0
63038 [131]YETI,35,36,37,39,0,0
63039 [131]YASAFKIJU,37,38,40,0,0,0
63040 [131]YUNGO,37,39,0,0,0,0
63041 [131]XEKTRA,42,43,44,0,0,0
63042 [131]XIPALOINGO,41,43,45,30,12,0
63043 [131]XENTRIA,41,42,44,45,0,0
63044 [131]XAMBESIAN,41,43,45,18,0,0
63045 [131]XYLAMBOAN,42,43,44,0,0,0