home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8503c.d64 / risiko (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  22KB  |  678 lines
  1. 1 REM  ********************************
  2. 2 REM  *                              *
  3. 3 REM  *            RISIKO            *
  4. 4 REM  *                              *
  5. 5 REM  * GESCHRIEBEN VON BERND HORNIG *
  6. 6 REM  *                              *
  7. 7 REM  *   ABSENDER:                  *
  8. 8 REM  *             BERND HORNIG     *
  9. 9 REM  *             BISMARCKSTR.77   *
  10. 10 REM *        4100 DUISBURG 1       *
  11. 11 REM *                              *
  12. 12 REM ********************************
  13. 15 GOSUB 55000
  14. 20 S=0:DIML$(45):DIMM$(45)
  15. 30 DIMQ(45):DIMLA(45,6):DIMW$(6):DIMS$(6):DIMN$(45)
  16. 40 DIMWV(13):DIMWU(13):DIMWE$(6,5):DIMKO(6):DIMKL(6):DIMDD(6)
  17. 100 WE$(6,1)="[213][195][195][195][201]"
  18. 110 WE$(6,2)="[221][209] [209][221]"
  19. 120 WE$(6,3)="[221][209] [209][221]"
  20. 130 WE$(6,4)="[221][209] [209][221]"
  21. 140 WE$(6,5)="[202][195][195][195][203]"
  22. 150 WE$(1,1)=WE$(6,1):WE$(1,2)="[221]   [221]":WE$(1,3)="[221] [209] [221]":WE$(1,4)=WE$(1,2)
  23. 160 WE$(1,5)=WE$(6,5)
  24. 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]"
  25. 180 WE$(2,5)=WE$(6,5)
  26. 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)
  27. 200 WE$(3,5)=WE$(6,5)
  28. 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)
  29. 220 WE$(4,5)=WE$(6,5)
  30. 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)
  31. 240 WE$(5,5)=WE$(6,5)
  32. 250 DIMA(7):DIMB(7)
  33. 260 A(1)=4:A(2)=8:A(3)=6:A(4)=9:A(5)=6:A(6)=7:A(7)=5
  34. 270 B(1)=0:B(2)=4:B(3)=12:B(4)=18:B(5)=27:B(6)=33:B(7)=40
  35. 280 ER=45:AR=4:DIMXS(6):FORI=1TO6:XS(I)=0:DD(I)=0:NEXT:C=1:WT=1:GF=0
  36. 900 GOSUB20000:PRINT"[147][154] SPIELANLEITUNG ?  [J/N]"
  37. 910 GETA$:IFA$=""THEN910
  38. 920 IFA$="J"THENGOSUB60000
  39. 1000 POKE53281,0:POKE53280,0
  40. 1010 PRINT"[147]WIEVIELE SPIELER ? (2-6)"
  41. 1020 GETS$:IFS$=""THEN1020
  42. 1030 IFS$="2"THENL=22:S=2
  43. 1040 IFS$="3"THENL=15:S=3
  44. 1050 IFS$="4"THENL=11:S=4
  45. 1055 IFS$="5"THENL=9:S=5
  46. 1060 IFS$="6"THENL=7:S=6
  47. 1070 IFS=0THEN1020
  48. 1080 PRINT"[145][145][145][145][145][145][145][145][145][145][145][145][145][145][145][145]"
  49. 1090 FORW=1TOS
  50. 1100 PRINT"NAME DES ";:PRINTW;:PRINT". SPIELERS ";:INPUTW$(W)
  51. 1101 S$(W)=LEFT$(W$(W),2)
  52. 1102 IFW>=2THENY=0:GOTO1104
  53. 1103 GOTO1108
  54. 1104 FORI=1TOW:IFS$(W)=S$(I)THENY=Y+1
  55. 1105 NEXTI
  56. 1107 IFY<>1THEN1100
  57. 1108 NEXTW
  58. 1109 PRINT"[147]BITTE GEDULD ICH LOSE DIE LAENDER AUS"
  59. 1110 FORX=1TO45:READL$(X),ZA,ZB,ZC,ZD,ZE,ZF
  60. 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
  61. 1118 N$(X)="OO":M$(X)="O":Q(X)=1:NEXTX
  62. 1120 FORV=1TOL
  63. 1130 FORP=1TOS
  64. 1140 X=INT(ER*RND(1))+1
  65. 1145 IFN$(X)<>"OO"THEN1140
  66. 1150 N$(X)=S$(P):M$(X)=W$(P)
  67. 1160 IFX=ERTHENER=ER-1
  68. 1170 NEXTP:NEXTV
  69. 1180 FORKL=1TO45
  70. 1190 IFN$(KL)="OO"THENN$(KL)="CO":M$(KL)="COMPUTER"
  71. 1200 NEXTKL
  72. 1500 GOSUB20000
  73. 1505 PRINT"[147]FELDHEER ";:PRINTW$(C)
  74. 1510 PRINT"SIE BEKOMMEN ";:PRINT"";:PRINTAR;:PRINT" ARMEEN DAZU"
  75. 1515 FORI=1TO1500:NEXTI
  76. 1520 PRINT"WO SOLLEN DIE ARMEEN HIN ?":FORI=1TO750:NEXTI
  77. 1530 GOSUB52400
  78. 1540 GOSUB20000
  79. 1550 A$="":PRINT"[147]";
  80. 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
  81. 1552 FORX=15TO0STEP-.1:PRINT" ANGRIFF ";
  82. 1553 POKEL,X:POKEA,15:POKEH,74:POKEFH,140:POKEW,129
  83. 1554 NEXT
  84. 1555 POKEW,0:POKEA,0
  85. 1560 IFA$="N"THEN1580
  86. 1565 GOSUB15000
  87. 1567 IFA$="N"THEN1580
  88. 1570 GOTO1565
  89. 1580 GOSUB20000
  90. 1590 PRINT"[147][156]"
  91. 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
  92. 1592 FORX=1TO10:FORI=15TO0STEP-1:PRINT" VERSCHIEBEN ";:FORY=1TO2:NEXTY
  93. 1593 POKEL,15:POKEA,102:POKEH,1:POKEFH,I*10:POKEFL,I*15:POKEW,33
  94. 1594 NEXTI
  95. 1595 POKEW,0:POKEA,0
  96. 1600 NEXTX:POKEW,0:POKEA,0
  97. 1610 QY=0:QZ=0
  98. 1620 GOSUB20010
  99. 1621 PRINT"[147]FELDHERR ";:PRINTW$(C);:PRINT" IHRE LAENDER"
  100. 1630 Y=0
  101. 1640 FORI=1TO45
  102. 1650 IFN$(I)=S$(C)THENPRINTTAB(Y)"[158]";I;".";TAB(5+Y)"";L$(I);:GOTO1655
  103. 1654 GOTO1660
  104. 1655 PRINTTAB(15+Y)"";Q(I);:Y=Y+20:IFY=40THENY=0:PRINT
  105. 1660 NEXTI
  106. 1670 PRINT:PRINT"[158]VON NUMMER: ";:INPUTTS$
  107. 1675 IFTS$="X"THENGOTO1810
  108. 1676 IFTS$="@"THENGOSUB53000:GOTO1620
  109. 1690 QY=VAL(TS$)
  110. 1700 IFN$(QY)<>S$(C)THEN1620
  111. 1720 PRINT"[147]":GOSUB20020
  112. 1721 PRINT"VERSCHIEBEN VON ";L$(QY);"[146]  [156]";Q(QY)
  113. 1722 LE=QY:GOSUB30120:PRINT:GOSUB20020
  114. 1725 PRINT"[153]NACH LAND NR";:INPUTY$
  115. 1726 IFY$="X"THEN1810
  116. 1727 IFY$="@"THENGOSUB53000:GOTO1720
  117. 1728 Y=VAL(Y$):QZ=0
  118. 1729 FORI=1TO6:IFY=LA(QY,I)THENQZ=Y
  119. 1730 NEXTI
  120. 1732 IFQZ=0THEN1720
  121. 1735 IFN$(QZ)<>S$(C)THEN1720
  122. 1760 PRINT"[150]WIEVIELE ARMEEN";:INPUTER
  123. 1770 IFER>Q(QY)-1THEN1760
  124. 1780 Q(QZ)=Q(QZ)+ER
  125. 1790 Q(QY)=Q(QY)-ER
  126. 1800 GOTO1620
  127. 1810 GOSUB 13000
  128. 1811 C=C+1:IFC>STHENC=1
  129. 1815 FORX=1TOGF:IFDD(X)=CTHENC=C+1
  130. 1816 NEXTX
  131. 1817 IFC>STHENC=1:GOTO1815
  132. 1820 IFXS(C)<5THEN1840
  133. 1830 X=XS(C)/5:X=INT(X):XS(C)=XS(C)-5*X:WT=WT+1:AR=X*WT
  134. 1840 AR=AR+4
  135. 1850 FORY=1TO7:FORX=1TOA(Y)
  136. 1860 IFN$(B(Y)+X)=S$(C)THENC(Y)=C(Y)+1
  137. 1870 NEXTX
  138. 1880 IFC(Y)=A(Y)THENAR=AR+C(Y)
  139. 1885 C(Y)=0
  140. 1890 NEXTY
  141. 1900 GOTO1500
  142. 13000 FORX=1TOS:KL(X)=0:KO(X)=0:NEXTX
  143. 13010 FORY=1TOS
  144. 13020 FORX=1TO45
  145. 13030 IFN$(X)=S$(Y)THENKL(Y)=1
  146. 13040 NEXTX
  147. 13050 IFKL(Y)<>1THENKO(1)=Y
  148. 13060 NEXTY
  149. 13070 IFKO(1)=0THENRETURN
  150. 13080 GOSUB20000:PRINT"[147]":GOSUB20020
  151. 13090 PRINT"EINE TRAURIGE NACHRICHT !!!"
  152. 13100 PRINT"FELDHERR [159]";W$(KO(1));" MIT SEINER "
  153. 13110 PRINT"LETZEN ARMEE IN DEN KAMPF GEZOGEN,"
  154. 13120 PRINT"UND WURDE TOEDLICH GETOFFEN"
  155. 13130 FORX=1TO5000:NEXTX
  156. 13140 GF=GF+1:DD(GF)=KO(1)
  157. 13150 GOTO13000
  158. 15000 GOSUB20000:Z=0
  159. 15002 GOSUB40000
  160. 15003 PRINT"ANGRIFF VON WELCHEM KONTINENT AUS ?"
  161. 15010 PRINT"[159]1. MINILAND"
  162. 15020 PRINT"[159]2. JUMBOLAND"
  163. 15030 PRINT"[159]3. BONGOLAND"
  164. 15040 PRINT"[159]4. WANGOLAND"
  165. 15050 PRINT"[159]5. ZULULAND"
  166. 15060 PRINT"[159]6. YUNGOLAND"
  167. 15070 PRINT"[159]7. XYLOLAND"
  168. 15080 PRINT"[158]NUMMER ?[146]"
  169. 15090 GETA$:IFA$=""THEN15090
  170. 15100 IFA$="1"THENZ=1
  171. 15110 IFA$="2"THENZ=2
  172. 15120 IFA$="3"THENZ=3
  173. 15130 IFA$="4"THENZ=4
  174. 15140 IFA$="5"THENZ=5
  175. 15150 IFA$="6"THENZ=6
  176. 15160 IFA$="7"THENZ=7
  177. 15165 IFA$="X"THEN:A$="N":RETURN
  178. 15167 IFA$="@"THENGOSUB53000
  179. 15180 IFZ=0THEN15000
  180. 15200 GOSUB20010:PRINT"[147]"
  181. 15210 PRINT"[147][156]ANGRIFF VON LAND NR: "
  182. 15220 FORI=1TOA(Z)
  183. 15230 PRINT"[154]";B(Z)+I;". [158]";L$(B(Z)+I);
  184. 15240 PRINTTAB(27)"";N$(B(Z)+I);
  185. 15250 PRINTTAB(35)"";Q(B(Z)+I)
  186. 15260 NEXT
  187. 15270 PRINT"[154]NUMMER :";:INPUTLE$
  188. 15280 IFLE$="@"THENGOSUB53000:GOTO15200
  189. 15290 IFLE$="X"THENA$="J":RETURN
  190. 15300 LE=VAL(LE$)
  191. 15310 IFLE<1ORLE>45THEN15200
  192. 15320 IFN$(LE)<>S$(C)THEN15200
  193. 15330 GOSUB30000:RETURN
  194. 16000 POKE53281,2:POKE53280,8:X=0
  195. 16002 GOSUB41000
  196. 16003 PRINT"INFORMATIONEN UEBER KONTINENT ?"
  197. 16010 PRINT"[159]1.[158] MINILAND"
  198. 16020 PRINT"[159]2.[158] JUMBOLAND"
  199. 16030 PRINT"[159]3.[158] BONGOLAND"
  200. 16040 PRINT"[159]4.[158] WANGOLAND"
  201. 16050 PRINT"[159]5.[158] ZULULAND"
  202. 16060 PRINT"[159]6.[158] YUNGALAND"
  203. 16070 PRINT"[159]7.[158] XYLOLAND"
  204. 16080 PRINT"[144]NUMMER ?[146]"
  205. 16090 GETA$:IFA$=""THEN16090
  206. 16100 IFA$="1"THENX=1
  207. 16110 IFA$="2"THENX=2
  208. 16120 IFA$="3"THENX=3
  209. 16130 IFA$="4"THENX=4
  210. 16140 IFA$="5"THENX=5
  211. 16150 IFA$="6"THENX=6
  212. 16160 IFA$="7"THENX=7
  213. 16165 IFA$="X"THEN:A$="":RETURN
  214. 16167 IFA$="@"THENGOSUB53000
  215. 16180 IFX=0THEN16000
  216. 16190 POKE53281,8:POKE53280,9
  217. 16200 PRINT"[147]";:GOSUB20020:PRINT""
  218. 16210 FORI=1TOA(X)
  219. 16230 PRINT"";B(X)+I;"[144]";L$(B(X)+I);TAB(29)"[149]";N$(B(X)+I);"[151]";:
  220. 16240 PRINTQ(B(X)+I)
  221. 16250 NEXTI
  222. 16260 PRINT:GOSUB20020
  223. 16270 PRINT" TASTE [146]"
  224. 16280 GETA$:IFA$=""THEN16280
  225. 16300 RETURN
  226. 20000 POKE53281,0:POKE53280,0:RETURN
  227. 20010 POKE53281,0:POKE53280,11:RETURN
  228. 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
  229. 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
  230. 30000 GOSUB20010:PRINT"[147]"
  231. 30100 PRINT" ";:PRINTL$(LE);:PRINT" [146]ARMEEN:";:PRINTQ(LE)
  232. 30105 PRINT:GOSUB20030:PRINT
  233. 30110 PRINT"[159]ANGRIFF AUF :":GOSUB30120:GOTO30305
  234. 30120 PRINT"";:PRINTLA(LE,1);". [154]";L$(LA(LE,1));TAB(23)"[156]";
  235. 30130 PRINTN$(LA(LE,1));"[150]";Q(LA(LE,1))
  236. 30140 PRINT"";LA(LE,2);". [154]";L$(LA(LE,2));TAB(23)"[156]";
  237. 30150 PRINTN$(LA(LE,2));"[150]";Q(LA(LE,2))
  238. 30160 IFLA(LE,3)=0THENGOTO30300
  239. 30170 PRINT"";LA(LE,3);". [154]";L$(LA(LE,3));TAB(23)"[156]";
  240. 30180 PRINTN$(LA(LE,3));"[150]";Q(LA(LE,3))
  241. 30190 IFLA(LE,4)=0THENGOTO30300
  242. 30200 PRINT"";LA(LE,4);". [154]";L$(LA(LE,4));TAB(23)"[156]";
  243. 30210 PRINTN$(LA(LE,4));"[150]";Q(LA(LE,4))
  244. 30220 IFLA(LE,5)=0THENGOTO30300
  245. 30230 PRINT"";LA(LE,5);". [154]";L$(LA(LE,5));TAB(23)"[156]";
  246. 30240 PRINTN$(LA(LE,5));"[150]";Q(LA(LE,5))
  247. 30250 IFLA(LE,6)=0THENGOTO30300
  248. 30260 PRINT"";LA(LE,6);". [154]";L$(LA(LE,6));TAB(23)"[156]";
  249. 30270 PRINTN$(LA(LE,6));"[150]";Q(LA(LE,6))
  250. 30300 RETURN
  251. 30305 PRINT"[153]ANGRIFF AUF NUMMER :";:
  252. 30310 INPUTLS$
  253. 30311 IFLS$="@"THENGOSUB53000:GOTO30000
  254. 30312 IFLS$="X"THENA$="J":RETURN
  255. 30313 LS=VAL(LS$)
  256. 30315 Y=0:FORI=1TO6:IFLA(LE,I)=LSTHENY=1
  257. 30316 NEXT:IFY<>1THEN30000
  258. 30317 IFN$(LS)=S$(C)THEN30000
  259. 30320 PRINT"[150]MIT WIE VIELEN ARMEEN :";:INPUTAQ
  260. 30330 IFAQ>Q(LE)-1THEN30000
  261. 30335 Q(LE)=Q(LE)-AQ
  262. 30400 IFAQ>3THENWU=4:GOTO30410
  263. 30405 WU=AQ
  264. 30410 IFQ(LS)>3THENWV=4:GOTO30420
  265. 30415 WV=Q(LS)
  266. 30420 FORI=1TOWU:WU(4+I)=INT(6*RND(1))+1:NEXT
  267. 30430 FORI=1TOWV:WV(4+I)=INT(6*RND(1))+1:NEXT
  268. 30450 IFWU<=3THENWU(8)=0
  269. 30460 IFWU<=2THENWU(7)=0
  270. 30470 IFWU<=1THENWU(6)=0
  271. 30480 IFWV<=3THENWV(8)=0
  272. 30490 IFWV<=2THENWV(7)=0
  273. 30500 IFWV<=1THENWV(6)=0
  274. 30510 WX=0
  275. 30550 IFWU(8)>=WU(7)ANDWU(8)>=WU(6)ANDWU(8)>=WU(5)THENWX=WX+1:WU(WX)=WU(8):WU(8)=-1
  276. 30560 IFWU(7)>=WU(8)ANDWU(7)>=WU(6)ANDWU(7)>=WU(5)THENWX=WX+1:WU(WX)=WU(7):WU(7)=-1
  277. 30570 IFWU(6)>=WU(8)ANDWU(6)>=WU(7)ANDWU(6)>=WU(5)THENWX=WX+1:WU(WX)=WU(6):WU(6)=-1
  278. 30580 IFWU(5)>=WU(8)ANDWU(5)>=WU(7)ANDWU(5)>=WU(6)THENWX=WX+1:WU(WX)=WU(5):WU(5)=-1
  279. 30590 IFWU(9)<>-1THEN30550
  280. 30600 WX=0
  281. 30610 IFWV(8)>=WV(7)ANDWV(8)>=WV(6)ANDWV(8)>=WV(5)THENWX=WX+1:WV(WX)=WV(8):WV(8)=-1
  282. 30620 IFWV(7)>=WV(8)ANDWV(7)>=WV(6)ANDWV(7)>=WV(5)THENWX=WX+1:WV(WX)=WV(7):WV(7)=-1
  283. 30630 IFWV(6)>=WV(8)ANDWV(6)>=WV(7)ANDWV(6)>=WV(5)THENWX=WX+1:WV(WX)=WV(6):WV(6)=-1
  284. 30640 IFWV(5)>=WV(8)ANDWV(5)>=WV(7)ANDWV(5)>=WV(6)THENWX=WX+1:WV(WX)=WV(5):WV(5)=-1
  285. 30650 IFWV(9)<>-1THEN30610
  286. 30660 WV(9)=0:WU(9)=0
  287. 30670 POKE53280,11:POKE53281,15:PRINT"[147]"
  288. 30680 PRINT"ANGREIFER[144]VERTEIDIGER"
  289. 30690 FORI=1TOWU:FORY=1TO5
  290. 30700 PRINT"";WE$(WU(I),Y)
  291. 30710 NEXTY:PRINT;:NEXTI
  292. 30715 PRINT""
  293. 30720 FORI=1TOWV:FORY=1TO5
  294. 30730 PRINTTAB(32)"[144]";WE$(WV(I),Y)
  295. 30740 NEXTY:PRINT;:NEXTI
  296. 30745 FORY=1TO1500:NEXTY
  297. 30750 Y=0:FORI=1TO4
  298. 30760 IFWU(I)=0ORWV(I)=0THENGOTO30810
  299. 30770 IFWV(I)>=WU(I)THENAQ=AQ-1:GOTO30810
  300. 30780 Q(LS)=Q(LS)-1
  301. 30810 NEXTI
  302. 30820 IFAQ<>0ANDQ(LS)<>0THEN30400
  303. 30830 GOSUB40000
  304. 30840 IFQ(LS)=0THENPRINT"";W$(C);" SIE HABEN ";L$(LS)" EROBERT":GOTO30860
  305. 30850 GOTO30900
  306. 30860 PRINT"ES SIND NUN";AQ;"ARMEEN IN DIESEM LAND"
  307. 30870 PRINT"[154]";M$(LS);" SIE HABEN ";L$(LS);"[154] VERLOREN"
  308. 30880 Q(LS)=AQ:N$(LS)=S$(C):XS(C)=XS(C)+1:M$(LS)=M$(LE):GOTO31000
  309. 30900 PRINT"[154]";M$(LS);" SIE HABEN ";L$(LS)
  310. 30910 PRINT"[154]ERFOLGREICH VERTEIDIGT"
  311. 30920 PRINT"";M$(LE);" HAT SEINE ANGREIFENDEN"
  312. 30930 PRINT"TRUPPEN VERLOREN"
  313. 31000 FORI=1TO5000:NEXT
  314. 31010 PRINT"[147]":POKE53280,0:POKE53281,0
  315. 31020 PRINT"[156]NOCH EIN ANGRIFF ";W$(C);" ?"
  316. 31030 GETA$:IFA$=""THEN31030
  317. 31050 RETURN
  318. 40000 POKE53280,11:POKE53281,0:PRINT"[147]"
  319. 40010 FORWJ=1024TO1063:POKEWJ,102:NEXT
  320. 40020 FORWJ=1984TO2023:POKEWJ,102:NEXT
  321. 40030 FORWJ=1064TO1944STEP40:POKEWJ,102:NEXT
  322. 40040 FORWJ=1103TO1983STEP40:POKEWJ,102:NEXT
  323. 40050 FORWJ=55296TO55335:POKEWJ,6:NEXT
  324. 40060 FORWJ=56256TO56295:POKEWJ,6:NEXT
  325. 40070 FORWJ=55336TO56216STEP40:POKEWJ,6:NEXT
  326. 40080 FORWJ=55375TO56255STEP40:POKEWJ,6:NEXT
  327. 40090 PRINT"";:RETURN
  328. 41000 PRINT"[147]"
  329. 41010 FORWJ=1024TO1063:POKEWJ,42:NEXT
  330. 41020 FORWJ=1984TO2023:POKEWJ,42:NEXT
  331. 41030 FORWJ=1064TO1944STEP40:POKEWJ,42:NEXT
  332. 41040 FORWJ=1103TO1983STEP40:POKEWJ,42:NEXT
  333. 41050 FORWJ=55296TO55335:POKEWJ,1:NEXT
  334. 41060 FORWJ=56256TO56295:POKEWJ,1:NEXT
  335. 41070 FORWJ=55336TO56216STEP40:POKEWJ,1:NEXT
  336. 41080 FORWJ=55375TO56255STEP40:POKEWJ,1:NEXT
  337. 41090 PRINT"";:RETURN
  338. 43996 IFA$="\"THENEND
  339. 45000 POKE53280,0:POKE53281,6
  340. 45010 PRINT"[147] PLANET GURUNGO [146]"
  341. 45020 PRINT"[144]          [146]"
  342. 45030 PRINT"               [146]"
  343. 45040 PRINT"  JUMBO                [146]"
  344. 45050 PRINT"                  WANGO   [146]"
  345. 45060 PRINT"         [146][192]  MINI  [146][206]       [146]"
  346. 45070 PRINT"                      [146]"
  347. 45080 PRINT"             [146][175] [146][192]      [146]"
  348. 45090 PRINT"     [146][205]         [146]"
  349. 45100 PRINT"[146][206][146][205]    [146][170][146]"
  350. 45110 PRINT"              [146]"
  351. 45120 PRINT"                     [146]"
  352. 45130 PRINT"       [146][192][192][192]   ZULU           [146]"
  353. 45140 PRINT" XYLO            BONGA [146][205] [146]"
  354. 45150 PRINT"[195]                     [146][195][195][195][195][195][195]"
  355. 45160 PRINT"[145]         [146][205]   [146][183][183][146]"
  356. 45170 PRINT"            [146][175][175] [146]"
  357. 45180 PRINT"      [146]"
  358. 45190 PRINT"  YUNGA [146]"
  359. 45200 PRINT"        [146]"
  360. 45210 PRINT"[146][206]     [146]"
  361. 45215 PRINT"     [146]"
  362. 45216 PRINT" [146][192][192][192]  [158]TASTE[146]"
  363. 45230 GETA$:IFA$=""THEN45230
  364. 45250 A$="":RETURN
  365. 46000 POKE53280,0:POKE53281,6
  366. 46010 PRINT"[147] MINILAND [146]"
  367. 46020 PRINT"[144]"
  368. 46030 PRINT"       [146]"
  369. 46040 PRINT"            [146]"
  370. 46050 PRINT"[175][175]  MOIRA   [207]  [146]"
  371. 46060 PRINT"   [205]        [206]     [146]"
  372. 46070 PRINT" ";N$(2);" [205]  ";N$(1);"  [206]       [146]"
  373. 46080 PRINT"[156]J[192][192][192][192][144]      [205][175][175][175][175][206]  ";N$(3);"    [146]"
  374. 46090 PRINT"  MUR [205]            [160][146]"
  375. 46100 PRINT"      [205]  MARISUAN [175][175][146]"
  376. 46110 PRINT"     [186]     [175][175][175][175][175][206]  [146]"
  377. 46120 PRINT"     [146]       [206]       [146]"
  378. 46130 PRINT"   [146]       [206]        [146]"
  379. 46140 PRINT"  [206] MESIGO [146]"
  380. 46150 PRINT"         [146]"
  381. 46160 PRINT"   ";N$(4);" [146]"
  382. 46170 PRINT"    [146][156][192][192][192][192][192][192]W[144]"
  383. 46220 PRINT"[158]TASTE[146]"
  384. 46230 GETA$:IFA$=""THEN46230
  385. 46250 A$="":RETURN
  386. 47000 POKE53280,0:POKE53281,6
  387. 47010 PRINT"[147] JUMBOLAND [146]"
  388. 47020 PRINT"[144]     [146]"
  389. 47030 PRINT"       [146]                 [146]"
  390. 47040 PRINT" JUISU   [146]                 [146]"
  391. 47050 PRINT"           [146]          JOSUAH  [146]"
  392. 47060 PRINT" [183][205]       [206][183]   [146]                [146]
  393. 47070 [153]"     (null)  ";N$(5);" +   ";N$(7);"   +             WAIT"
  394. 47080 [153]"   ";N$(6);"  (null)    +        +ANDANDANDAND     ";N$(8);"  WAIT"
  395. 47090 [153]"        (null)   WAIT   JEDIP +    (null)       WAIT
  396. 47100 PRINT"        [183][183][146]   [175][175][175][175][175][175][175][206] ";N$(9);"  [205][175][175][175][175][175][146]"
  397. 47110 PRINT"  JUKLIA [146]          [205]           [146]"
  398. 47120 PRINT"         [146]          [205][175][175]  JIDU [146][156][192][192][192][192]M[144]"
  399. 47130 PRINT"      [146]             [205]     [146]"
  400. 47140 PRINT"  [146]      JUXARIO [206][183][183][183][183][183][146]"
  401. 47150 PRINT"[205]        [206]JANIAN [146]"
  402. 47160 PRINT"[205] [205]  ";N$(10);"  [206]        [146]"
  403. 47170 PRINT"     [205]    [206]   ";N$(11);"   [146]"
  404. 47180 PRINT"    ";N$(12);"   [205]  [170]        [146][156][205][144]"
  405. 47190 PRINT"           [183][183][183][205]   [146]     [156][205][144]"
  406. 47200 PRINT"  JODELIA     [146][156]Z[144]"
  407. 47205 PRINT"[156][206][144]         [146]"
  408. 47210 PRINT"[156]X[206][144]     [158]TASTE[146]"
  409. 47230 GETA$:IFA$=""THEN47230
  410. 47250 A$="":RETURN
  411. 48000 POKE53280,0:POKE53281,6
  412. 48010 PRINT"[147] BONGALAND [146]"
  413. 48020 PRINT"[144][156][194]W[144]"
  414. 48030 PRINT"  [146]              [156][194][144]"
  415. 48040 PRINT"    [146]              [146]"
  416. 48050 PRINT"      [205]   [146]          [146]"
  417. 48060 PRINT"        [180]     [146]        [146]"
  418. 48070 PRINT"  BOUYA  [180]             [146]"
  419. 48080 PRINT"          [180]BUNGA  [175][175][175][175][175][175][146]"
  420. 48090 PRINT"   ";N$(13);"    [206]       [206]     [146]"
  421. 48100 PRINT"        [206][205]   ";N$(14);" [206]      [146]"
  422. 48110 PRINT"[175][175][175][175][175][175][206]  [183][183][205][175][175][206]  ";N$(16);"  [146][206]   [146]"
  423. 48120 PRINT"          [170]         [146][206]     [146]"
  424. 48130 PRINT"   BIFIAN[170] BALINGO [146][206]     [146]"
  425. 48140 PRINT"       [170]         [146]  ";N$(18);" [146]"
  426. 48150 PRINT"  ";N$(15);"  [205][175][175]     [146]     [146]"
  427. 48160 PRINT"     [170]  [205]    [146]      [146]"
  428. 48170 PRINT"[175][175][175][175][206] ";N$(17);"[205][175][175][146]  BEYU [146]"
  429. 48180 PRINT"         [146][192][192][192][192][192]       [146]"
  430. 48190 PRINT"  BOAN [146]      [146][156][195][195]X[144]"
  431. 48200 PRINT"[156]Y[192][192][192][192][192][192][192][192][192][192][144]      [146]    [146]"
  432. 48210 PRINT"  [146]  [146]"
  433. 48220 PRINT"[158]TASTE[146]"
  434. 48230 GETA$:IFA$=""THEN48230
  435. 48250 A$="":RETURN
  436. 49000 POKE53280,0:POKE53281,6
  437. 49010 PRINT"[147] WANGOLAND [146]"
  438. 49020 PRINT"[144]  [205]       [205]  [146]"
  439. 49030 PRINT"     [205]       [205]    [146]"
  440. 49040 PRINT"   ";N$(20);"  [170] WIUMBO[170]     [146]"
  441. 49050 PRINT"        [170]       [206]WOKIO [146]"
  442. 49060 PRINT"  WAGURIU[170]  ";N$(19);"  [206]     [206][183] [146]"
  443. 49070 PRINT"         [170][175][175][175][175][175][206]  ";N$(22);" [206]    [146]"
  444. 49080 PRINT"        [206]     [205]    [206]  ";N$(23);" [146]"
  445. 49090 PRINT"     [206]       [205][175][175][206]      [146]"
  446. 49100 PRINT"   [146][206]  [206]  WEFIA [170]        [146]"
  447. 49110 PRINT"  ";N$(26);"  [146][206]       [170] WIGUA [146]"
  448. 49120 PRINT"         ";N$(21);" [206][205][175][175]   [146]"
  449. 49130 PRINT"  WANZAN[175][175][175][175][206] ";N$(24);" [205][175][175][146]"
  450. 49140 PRINT"      [206]      [205]       [146]"
  451. 49150 PRINT"    [206]         [205]WUGA [146]"
  452. 49160 PRINT"  [206] WEGOS  ";N$(25);" [205][175][175][175][175][146]"
  453. 49170 PRINT"         [146][192][192][192][192][192]        [146]"
  454. 49175 PRINT"[156]M[192][192][192][192][192][144] ";N$(27);"    WASPO [146]"
  455. 49180 PRINT"          [146]"
  456. 49190 PRINT"    [146]"
  457. 49220 PRINT"[156][194]B[158]TASTE[146]"
  458. 49230 GETA$:IFA$=""THEN49230
  459. 49250 A$="":RETURN
  460. 50000 POKE53280,0:POKE53281,6
  461. 50005 PRINT"[147] ZULULAND [146]"
  462. 50007 PRINT"[156]J[144]"
  463. 50010 PRINT"[144][156][205][144]        [206]        [146]"
  464. 50020 PRINT"[156][205][144]  ZUGA   [180] ZILUBO   [146]"
  465. 50030 PRINT"         [206][205]           [146]"
  466. 50040 PRINT"[175]   ";N$(28);"   [206]  [205]    ";N$(29);"     [146]"
  467. 50050 PRINT"  [205][175][175][175][175][175][175][206]    [205][175][175][175][175][175][175][175][175][175][206][183][146]"
  468. 50060 PRINT"   ";N$(30);"     [170]           [206]      [146]"
  469. 50070 PRINT"             [205] ZANGUAN [206]       [146]"
  470. 50080 PRINT"[156]X[192][192][192][144]  ZULAMBOGA   [205]        [180] ZAGI [146]"
  471. 50090 PRINT"             [170]        [180]      [146]"
  472. 50100 PRINT"     [175][175][175][206]  ";N$(31);"   [206]      [146]"
  473. 50110 PRINT"[175][175][206]   [205]         ";N$(32);" [146]"
  474. 50120 PRINT"      [205][175][175][175][175][175]     [146]"
  475. 50130 PRINT"               [146][156][205][144]"
  476. 50140 PRINT" ZELAMBIE [146][156][205][144]"
  477. 50150 PRINT"         [146][156][205][144]"
  478. 50160 PRINT"       [146][156][205][144]"
  479. 50170 PRINT"  ";N$(33);"  [146][156]Y[144]"
  480. 50180 PRINT"      [146]"
  481. 50190 PRINT"      [146]"
  482. 50200 PRINT"    [158]TASTE[146]"
  483. 50230 GETA$:IFA$=""THEN50230
  484. 50250 A$="":RETURN
  485. 51000 POKE53281,0:POKE53281,6:PRINT"[147] YUNGALAND [146]"
  486. 51003 PRINT"[156]Z[205][144]"
  487. 51005 PRINT"[144]        [170]    [146]"
  488. 51010 PRINT"         [175][175][206]       [146]"
  489. 51020 PRINT"   YUNKAN [206]  [205] YEDUIN  [146][156][192][192][192][192]B[144]"
  490. 51030 PRINT"  ";N$(34);"       [206]    [205][175][175][175]      [146]"
  491. 51040 PRINT"  [205][175][175][175][175][175][175][175][175][175][206]         [205] ";N$(35);"   [146]"
  492. 51050 PRINT"           [180]  YUPONDEI  [205][175][175][175][175][175][175][146]"
  493. 51060 PRINT"           [205]                [206]   [146]"
  494. 51070 PRINT"   YIUNAK [205][175][175][175][175]   ";N$(36);"     [206] ";N$(38);" [146]"
  495. 51080 PRINT"[206]             [205]      [206][183][183]    [146]"
  496. 51090 PRINT"   [146][206]     ";N$(37);"     [205][175][175][175][175][206]     [146]"
  497. 51100 PRINT"     [146][206]       [206][183][205][206]        [146]"
  498. 51110 PRINT"  ";N$(40);"       [206]  [206]  YETI [146]"
  499. 51120 PRINT"        [180]  [204][175][175][175][175][175][175][175][146]"
  500. 51130 PRINT"                  [146]"
  501. 51140 PRINT"                   [146]"
  502. 51150 PRINT"  YUNGO [146][192][192][192][192][192][192][192][192] YASAFKIJU [146]"
  503. 51160 PRINT"               [146]"
  504. 51170 PRINT"      ";N$(39);"   [146]"
  505. 51180 PRINT"     [146]
  506. 51220 [153]"SYSTASTEWAIT"
  507. 51230 [161]A$:[139]A$[178]""[167]51230
  508. 51250 A$[178]"":[142]
  509. 52000 [151]53280,0:[151]53281,6
  510. 52010 [153]"LOAD XYLOLAND WAIT"
  511. 52015 [153]"STOPCLR(null)JSTOP"
  512. 52020 [153]"STOP    SGN      WAIT"
  513. 52030 [153]"       SGN   ";N$(42);"    WAIT"
  514. 52040 [153]"        (null)            WAIT"
  515. 52050 [153]"   XEKTRA SGNXIPALOINGU  WAIT"
  516. 52060 [153]"           (null)           WAIT"
  517. 52070 [153]"  ";N$(41);" (null)USRUSRUSRUSRUSRUSR(null)        WAITCLRTANTANTANTANTANTANTANZSTOP"
  518. 52080 [153]"ANDANDANDANDAND(null)        (null)ANDANDANDAND  WAIT"
  519. 52090 [153]"     +  XENTRIA (null)   (null)WAIT"
  520. 52100 [153]"CLRBLENLENLENLENSTOP       (null)         +  WAIT"
  521. 52110 [153]"       SGN  ";N$(43);"    (null) WAIT"
  522. 52120 [153]"  ";N$(44);" (null)ANDANDANDANDANDANDAND(null)  WAIT"
  523. 52130 [153]"         (null)        WAIT"
  524. 52140 [153]"           (null)   ";N$(45);"    WAIT"
  525. 52150 [153]"  XAMBESIAN +          WAIT"
  526. 52160 [153]"           (null)XYLAMBOAN  WAIT"
  527. 52170 [153]"       (null)          WAIT"
  528. 52180 [153]"ANDANDAND(null)         WAIT"
  529. 52190 [153]"        WAIT"
  530. 52220 [153]"SYSTASTEWAIT"
  531. 52230 [161]A$:[139]A$[178]""[167]52230
  532. 52250 A$[178]"":[142]
  533. 52400 [151]53281,0:[151]53280,14:Y[178]0
  534. 52410 [153]"LOADCONTFELDHERR ";:[153]W$(C);:[153]" IHRE LAENDER"
  535. 52420 [153]""
  536. 52430 [129]I[178]1[164]45
  537. 52440 [139]N$(I)[178]S$(C)[167][153][163]Y)"SYS";I;".";[163]5[170]Y)"";L$(I);:[137]52445
  538. 52443 [137]52450
  539. 52445 [153][163]15[170]Y)"";Q(I);:Y[178]Y[170]20:[139]Y[178]40[167]Y[178]0:[153]
  540. 52450 [130]I:[153]
  541. 52560 [153]"SYSNUMMER DES LANDES ";:[133]T$
  542. 52565 [139]T$[178]"@"[167][141]53000:[137]52400
  543. 52566 [139]T$[178][199](13)[167]52400
  544. 52567 T[178]0
  545. 52570 T[178][197](T$)
  546. 52580 [139]N$(T)[179][177]S$(C)[167]52400
  547. 52590 [153]:[153]"CLRWIEVIELE ARMEEN  [MAX";AR;"]";:[133]ER
  548. 52600 [139]ER[177]AR[167]52590
  549. 52610 AR[178]AR[171]ER:Q(T)[178]Q(T)[170]ER:[139]AR[178]0[167]T[178]0:[142]
  550. 52620 [137]52410
  551. 53000 [151]53280,0:[151]53281,0
  552. 53010 [153]"LOADCONTF1WAIT : ";B$
  553. 53020 [153]"CONTF3WAIT : ";C$
  554. 53030 [153]"CONTF5WAIT : ";D$
  555. 53040 [153]"CONTF7WAIT : ";E$
  556. 53050 [153]"CONTF2WAIT : ";F$
  557. 53060 [153]"CONTF4WAIT : ";G$
  558. 53070 [153]"CONTF6WAIT : ";H$
  559. 53080 [153]"CONTF8WAIT : ";I$
  560. 53090 [153]"CONTIWAIT  : INFORMATION UEBER KONTINENTE"
  561. 53100 [153]"CONT^WAIT  : SPIESTAND/SPIELENDE"
  562. 53105 [153]"CONTXWAIT  : ZURUECK ZUM SPIELSCHRITT"
  563. 53110 [153]"TASTEWAIT"
  564. 53130 [161]A$:[139]A$[178]""[167]53130
  565. 53140 [139]A$[178]"INPUT"[167][141]45000
  566. 53150 [139]A$[178]"DIM"[167][141]46000
  567. 53160 [139]A$[178]"READ"[167][141]47000
  568. 53170 [139]A$[178]"LET"[167][141]48000
  569. 53180 [139]A$[178]"GOTO"[167][141]49000
  570. 53190 [139]A$[178]"RUN"[167][141]50000
  571. 53200 [139]A$[178]"IF"[167][141]51000
  572. 53210 [139]A$[178]"RESTORE"[167][141]52000
  573. 53220 [139]A$[178]"X"[167][142]
  574. 53230 [139]A$[178]"^"[167][141]54000
  575. 53240 [139]A$[178]"I"[167][141]16000
  576. 53250 [137]53000
  577. 54000 [151]53281,8:[151]53280,9
  578. 54010 [153]"LOAD";:[141]20020:[153]""
  579. 54015 [129]X[178]1[164]S:KL(X)[178]0:KO(X)[178]0:[130]X
  580. 54020 [129]I[178]1[164]S
  581. 54030 [129]X[178]1[164]45
  582. 54040 [139]N$(X)[178]S$(I)[167]KL(I)[178]KL(I)[170]1
  583. 54050 [130]X
  584. 54060 [129]X[178]1[164]7
  585. 54070 [129]Y[178]1[164]A(X)
  586. 54080 [139]N$(B(X)[170]Y)[178]S$(I)[167]DF[178]DF[170]1
  587. 54090 [130]Y:[139]DF[178]A(X)[167]KO(I)[178]KO(I)[170]DF
  588. 54100 DF[178]0:[130]X
  589. 54110 [153]"";W$(I);[163]25)"POKE";KO(I)[170]KL(I);[163]30)"STOPPUNKTE"
  590. 54120 [130]I
  591. 54130 [153]"":[141]20020:[153]"STOPTASTEWAIT"
  592. 54140 [161]A$:[139]A$[178]""[167]54140
  593. 54150 [153]"LOADSTOPSPIELENDE [J/N]"
  594. 54160 [161]A$:[139]A$[178]""[167]54160
  595. 54170 [139]A$[178]"J"[167][158]64738
  596. 54180 [142]
  597. 55000 [151]53280,0:[151]53281,0:[153]"LOADCONT"
  598. 55010 [153]"STEP  (null)  STEP        STEP  (null)"
  599. 55020 [153]"     WAITSTEP   STEPWAITSTEP  "
  600. 55030 [153]" STEPWAITSTEP   (null)   STEPWAITSTEP  "
  601. 55040 [153]" STEPWAITSTEP  WAIT(null)   (null)      "
  602. 55050 [153]" WAIT(null)(null)  WAIT(null)    WAIT(null)(null)  "
  603. 55060 [153]" WAIT(null)(null)  STEP    WAIT(null)(null)  "
  604. 55070 [153]"        WAITSTEP    WAIT(null)  WAITSTEP"
  605. 55080 [153]"CLRCREATED/WRITTEN/IDEA/SOUND/GRAFIK"
  606. 55090 [153]" ALL BY BERND HORNIG WAIT"
  607. 55100 [129]I[178]1[164]3500:[130]:[142]
  608. 60000 [151]53280,1:[151]53281,12:[153]"LOAD"
  609. 60010 [153]" SPIELANLEITUNG WAIT"
  610. 60020 [153]"STOPSIE BEFINDEN SICH IN EINER FERNEN GA-"
  611. 60030 [153]"LAXIE AUF DEM PLANETEN GURUNGO, MIT "
  612. 60040 [153]"SEINEN 7 KONTINENTEN. SIE SIND FEDLHERR"
  613. 60050 [153]"AUF DIESEM PLANETEN UND BESITZEN EINE"
  614. 60060 [153]"ANZAHL VON LAENDERN, DIE SIE VERGROES-"
  615. 60070 [153]"SERN UND VERTEIDIGEN SOLLEN. JEDEN MO-":[143]15
  616. 60080 [153]"NAT BEKOMMEN SIE ARMEEN DAZU. DIE AN-"
  617. 60090 [153]"ZAHL RICHTET SICH NACH VOLLSTAENDIG BE-"
  618. 60100 [153]"SETZTEN KONTINENTEN UND NEU EROBERTEN"
  619. 60110 [153]"LAENDERN.                  TASTE WAIT"
  620. 60120 [161]A$:[139]A$[178]""[167]60120
  621. 60130 [153]"LOADSTOPBEI ANGRIFFEN, ODER BEI VERSCHIEBEN VON"
  622. 60140 [153]"ARMEEN, MUSS MINDESTENS EINE ARMEE IM"
  623. 60150 [153]"HEIMATLAND STEHEN BLEIBEN."
  624. 60160 [153]"MIT DER @WAITSTOP-TASTE KOMMEN SIE ZUM UNTER-"
  625. 60170 [153]"MENU, VON DEM SIE DIE KARTEN USW. ER-"
  626. 60180 [153]"REICHEN KOENNEN."
  627. 60190 [153]"MIT DER XWAITSTOP-TASTE KOENNEN SIE DIE ROU-"
  628. 60200 [153]"TINEN BEENDEN.     VIEL SPASS !!!!!!!"
  629. 60210 [153]" TASTE WAIT"
  630. 60220 [161]A$:[139]A$[178]""[167]60220
  631. 60230 [142]
  632. 62000 [142]
  633. 63001 [131]MOIRA,2,3,0,0,0,0
  634. 63002 [131]MUR,1,3,9,0,0,0
  635. 63003 [131]MARISUAN,1,2,4,0,0,0
  636. 63004 [131]MESIGO,3,27,0,0,0,0
  637. 63005 [131]JUISU,6,7,0,0,0,0
  638. 63006 [131]JUKLIA,5,12,0,0,0,0
  639. 63007 [131]JEDIP,5,8,9,10,0,0
  640. 63008 [131]JOSUAH,7,9,0,0,0,0
  641. 63009 [131]JIDU,7,8,10,11,2,0
  642. 63010 [131]JUXARIO,7,9,11,12,0,0
  643. 63011 [131]JANIAN,9,10,12,2,0,0
  644. 63012 [131]JODELIA,6,10,11,42,0,0
  645. 63013 [131]BOUYA,14,15,0,0,0,0
  646. 63014 [131]BUNGA,13,15,16,25,0,0
  647. 63015 [131]BIFIAN,13,15,16,17,0,0
  648. 63016 [131]BALINGO,14,15,17,18,0,0
  649. 63017 [131]BOAN,15,16,18,35,0,0
  650. 63018 [131]BEYU,16,17,44,0,0,0
  651. 63019 [131]WIUMBO,20,21,22,0,0,0
  652. 63020 [131]WAGURIO,19,21,26,0,0,0
  653. 63021 [131]WEFIA,19,20,22,23,24,25
  654. 63022 [131]WOKIO,19,21,23,0,0,0
  655. 63023 [131]WIGUA,21,22,24,0,0,0
  656. 63024 [131]WUGA,21,23,25,0,0,0
  657. 63025 [131]WASPO,21,24,27,0,0,0
  658. 63026 [131]WANZAN,20,27,0,0,0,0
  659. 63027 [131]WEGOS,25,26,4,0,0,0
  660. 63028 [131]ZUGA,29,30,31,11,0,0
  661. 63029 [131]ZILUBO,28,31,32,0,0,0
  662. 63030 [131]ZULAMBOGA,28,31,33,42,0,0
  663. 63031 [131]ZANGUAN,28,29,30,32,33,0
  664. 63032 [131]ZAGI,29,31,34,0,0,0
  665. 63033 [131]ZELAMBIE,30,31,0,0,0,0
  666. 63034 [131]YUNKAN,35,36,37,32,0,0
  667. 63035 [131]YEDUIN,34,36,38,17,0,0
  668. 63036 [131]YUPONDEI,34,35,37,38,0,0
  669. 63037 [131]YIUNAK,34,36,38,39,40,0
  670. 63038 [131]YETI,35,36,37,39,0,0
  671. 63039 [131]YASAFKIJU,37,38,40,0,0,0
  672. 63040 [131]YUNGO,37,39,0,0,0,0
  673. 63041 [131]XEKTRA,42,43,44,0,0,0
  674. 63042 [131]XIPALOINGO,41,43,45,30,12,0
  675. 63043 [131]XENTRIA,41,42,44,45,0,0
  676. 63044 [131]XAMBESIAN,41,43,45,18,0,0
  677. 63045 [131]XYLAMBOAN,42,43,44,0,0,0
  678.