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