home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / WORLDWAR (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  20.0 KB  |  451 lines
  1. 3 REM"[141][147]
  2. 4 [137]1000
  3. 5 WJ[178]1:[139]NJ[178]1[167]7
  4. 6 [139]Y[173]2[178][181](Y[173]2)[167]WJ[178]2
  5. 7 JS[178][194](WJ[170]56319):B[178]JS[175]16
  6. 8 J[178]15[171](JS[175]15):[142]
  7. 20 [141]140:[141]400
  8. 21 TR[178]TR[170]1:Y[178]9:[141]90:[153]L2$"             TURN"TR:[129]X[178]1[164]500:[130]
  9. 25 [141]3000:[141]500:[137]21
  10. 70 [141]5:[139]B[178]0[167]70
  11. 71 [142]
  12. 80 [153]"CONTNEXT BONUS IS WORTH"B7[170]2"CMD   "
  13. 85 [153]"ONBONUS PTS ";:[129]X[178]1[164]NP:[153]BP(X)"CMD ";:[130]:[153]"    "
  14. 86 [129]X[178]1[164]NP:[151]56143[170](X[172]3),CC(X):[151]56144[170](X[172]3),CC(X):[130]:[142]
  15. 90 C[178]CC(Y):[151]56177,C:[151]56178,C:[151]56217,C:[151]56218,C:[151]56257,C:[151]56258,C
  16. 92 [151]1905,233:[151]1906,223:[151]1945,160:[151]1946,160:[151]1985,95:[151]1986,105
  17. 94 [153]L1$CL$L2$CL$L3$CL$;:[142]
  18. 99 [143]"GOSUBON                                                       PRINT MAP
  19. 100 PRINTCHR$(142)
  20. 101 PRINT"[147][155]  [165]  [165]  [146]     [165]  [165]  [165]  [186]  ";
  21. 102 PRINT" [146]     [165]  [165]   [146]  [175][175]l[175][175]l[175]o[183][146] ";
  22. 103 PRINT"/  [165] op o[183]l[175]l[175]   [146]--[175][175][165][175]oo";
  23. 104 PRINT"[183][183][183] [146]   [186]  [186]   [146]/   [183][183]  p  ";
  24. 105 PRINT"    [146]       p  [165]   [146]   [167]  [167]";
  25. 106 PRINT" [146]                /       ";
  26. 107 PRINT" [146]          [167][183][183]o  [146]       [165]";
  27. 108 PRINT"  [167]  l  [186]  [165] [146] /    [165]  [167] [146] ";
  28. 109 PRINT"[183]p  l [146]        [183]p[175][186][175][175][186][175][186]  ";
  29. 110 PRINT" p  [146]    [175]o[183]p[183] [146]   p[175][175][146]     ";
  30. 111 PRINT"      l  [167]   o[183]p[183][183]p [146]     ";
  31. 112 PRINT" [167]  [146] [186][183][183]  [165][146]          [167]   ";
  32. 113 PRINT"p[175][175][165] [167]  [167]  [146]  [183][183][183]p[183][183][146]  [183][183]lo";
  33. 114 PRINT"  [146]      [208]  [167]   [167]  [208]  [208] [167] ";
  34. 115 PRINT"[146] [205]   [207][183]  [146]     [165] [146] [205]   [146]   [183]";
  35. 116 PRINT"[183]p[183][183][183]p   [183]p[183][183]p[183] [146]  [183][183]o[183]o[183][146] ";
  36. 117 PRINT"           [146]m    [146]    [167][164][164][164] ";
  37. 118 PRINT"[167]  o [146]    o  [165] [146]           ";
  38. 119 PRINT"[146]     [146]        [167][183][183][183][183][165]  [146]  [183]p";
  39. 120 PRINT"[183]p  [146]     [146] /   [146]           ";
  40. 121 PRINT"      [175][175]l[175][146]    [167]  [183][183][146] [160] [186][183] ";
  41. 122 PRINT"[146]   m                 [165]   ";
  42. 123 PRINT"[146]    o   [146]       [146]      [165]  [165]";
  43. 124 PRINT"  [146]          /        /   ";
  44. 125 PRINT"  [183][183][146]       [165] [175]l[175][175][186][146]      [165]";
  45. 126 PRINT"  [146]       [165]  [146]       [146]     [167]";
  46. 127 PRINT"[183][183]p  [186]  [146]--- [164]o[165] [186]  [165]  [165] l";
  47. 128 PRINT"[175][186]  [146]   [183][183][146]        [186][175][175]l[175][175][146]  ";
  48. 129 PRINT"    [165][186][167]  [165] op [165]    [146]     o";
  49. 130 PRINT"[183][146]        [186]   [146]      p  p[183]p";
  50. 131 PRINT"[183]  p[183][183][183][183][183][146]    o  [146]        [165]";
  51. 132 PRINT"   [146]         [207]  [208]  [167]     [146] "
  52. 135 POKE1479,49:POKE1480,56:POKE1116,55:POKE1270,55:POKE1062,53:POKE1582,55:POKE1704,51:POKE1754,54:POKE1807,56
  53. 136 POKE55751,7:POKE55752,7:POKE55388,7:POKE55542,7:POKE55334,7:POKE55854,7:POKE55976,7:POKE56026,7:POKE56079,7
  54. 138 FORX=1TONP:POKE56137+(X*4),CC(X):POKE56138+(X*4),CC(X):NEXT:RETURN
  55. 139 REM"[141][158]
  56. 140 [141]1200:WJ[178]1:[153]"CONT LEFT$OW (null)ANY (null)LAYERS?SYS     ":K[178]52
  57. 141 [151]1124,K:[141]5:[139]J[178]8[167]K[178]K[170]1
  58. 142 [139]J[178]4[167]K[178]K[171]1
  59. 143 [139]K[177]56[167]K[178]56
  60. 144 [139]K[179]49[167]K[178]49
  61. 145 [139]B[178]0[167]NP[178]K[171]48:[141]4000:[137]148
  62. 146 [137]141
  63. 148 [141]70:[139]NP[177]1[167][141]270
  64. 149 [139]NP[178]1[167]CP[178]1:[141]281:NJ[178]1:[137]155
  65. 150 [141]70:[153]"CONT LEFT$OW (null)ANY MID$OYSTICKS?SYS      ":K[178]50
  66. 151 [151]1445,K:[141]5:[139]J[178]8[167]K[178]50
  67. 152 [139]J[178]4[167]K[178]49
  68. 153 [139]B[178]0[167]NJ[178]K[171]48:[141]4000:[137]155
  69. 154 [137]151
  70. 155 X[178]10:[153]"LOAD":[129]Y[178]1[164]NP:[153]"PRINT       (null)(null)ATN(null)VAL(null) #"Y:[153]"       (null)ICK (null)OUR LENOLOR"
  71. 156 [153]"":[129]Z[178]1[164]10:[153][163]10)CL$(Z):[130]:[153][200](L5$,X[170]7)[163]10)""CL$(X):[139]Y[178]12[167]175
  72. 157 [141]5:[139]B[177]0[175]J[178]0[167]157
  73. 162 [139]J[178]1[167]X9[178]X:X[178]X[171]1
  74. 163 [139]J[178]2[167]X9[178]X:X[178]X[170]1
  75. 164 [139]X[177]10[167]X[178]1
  76. 165 [139]X[179]1[167]X[178]10
  77. 166 [139]Y[178]1[167]172
  78. 167 [139][195](CL$(X))[178]9[167]173
  79. 172 [139]B[178]0[167]CC(Y)[178]X:CL$(X)[178][200](CL$(X),1)[170]"PLAYER"[170][196](Y):[141]4000:[130]:Y[178]12:[137]156
  80. 173 [153][200](L5$,X9[170]7)[163]10)CL$(X9):[153][200](L5$,X[170]7)[163]10)""CL$(X)
  81. 174 [141]4010:[137]157
  82. 175 [129]X[178]1[164]NP:Z[178][181]([187](1)[172]NP)[170]1:Y[178]CC(X):CC(X)[178]CC(Z):CC(Z)[178]Y:[130]
  83. 176 [141]70:[141]100:A$[178]"":[139]NP[178]1[167]J1[178]1:[137]192
  84. 180 [153]L5$A$H1$:[153]B$H2$:[141]5:[139]B[178]0[167]190
  85. 181 [139]J[178]0[167]180
  86. 182 [139]J[178]1[167]J1[178]1:J2[178]0:A$[178]"":B$[178]"":[141]4010
  87. 183 [139]J[178]2[167]J1[178]0:J2[178]1:A$[178]"":B$[178]"":[141]4010
  88. 185 [137]180
  89. 190 [141]4000:[153]L5$H3$:[153]H3$
  90. 191 [139]J2[178]1[167][141]300
  91. 192 [139]J1[178]1[167][141]350
  92. 195 PR[178]NP[170]CP
  93. 197 [129]X[178]1[164]80:NC(OW(X))[178]NC(OW(X))[170]1:[130]
  94. 198 O$[178]"CONT                                        "
  95. 199 [153]L5$O$;:[153]O$:[141]80:[142]
  96. 200 T[178][194](P):[151]P,102
  97. 202 [141]5:[139]J[178]0[175]B[177]0[167]202
  98. 204 [139]B[178]0[167][151]P,T:Q[178]LC(P[171]1023):[142]
  99. 205 TM[178]P:P[178]P[170]D(J):[139]P[179]1024[176]P[177]1823[167]P[178]TM:[137]202
  100. 210 [151]TM,T:[137]200
  101. 250 [141]90:[153]L2$"  TURN IN BONUS PTS";:UR[178]2:[139]BP(Y)[177]4[167][153]:[129]I[178]1[164]200:[130]:[137]255
  102. 251 [153]"? YWAIT OR N":[141]491
  103. 252 [139]UR[178]1[167][142]
  104. 255 BP(Y)[178]BP(Y)[171]3:B7[178]B7[170]2:[141]80:B1[178]B7:[141]853:[142]
  105. 270 [153]" LENAN RIGHT$ (null)LAY (null)OO? SYS(null)WAIT ORSYS (null)":CP[178]1
  106. 271 [141]5:[139]J[178]8[167]CP[178]0:[151]1201,89:[151]1206,206
  107. 272 [139]J[178]4[167]CP[178]1:[151]1201,217:[151]1206,78
  108. 273 [139]B[178]0[167][141]4000:[137]280
  109. 275 [137]271
  110. 280 [139]CP[178]0[167]CL[178]3:[142]
  111. 281 [153]"CONT (null)HAT (null)EVEL (null)HOULD RIGHT$ (null)LAY ATNT?"
  112. 282 [153]" EASYSYS  1 2 3 4 5WAIT 6 7 8 9  HARD":X[178]1359:XX[178]X:[141]70
  113. 283 [141]5:[139]B[178]0[167]290
  114. 284 [139]J[178]0[167]283
  115. 285 [139]J[179]5[167]XX[178]X:X[178]X[171]2
  116. 286 [139]J[177]4[167]XX[178]X:X[178]X[170]2
  117. 287 [139]X[179]1351[167]X[178]1367
  118. 288 [139]X[177]1367[167]X[178]1351
  119. 289 [151]X,[194](X)[170]128:[151]XX,[194](XX)[171]128:[141]4010:[137]283
  120. 290 [141]4000:CL[178](X[171]1349)[173]2
  121. 299 [142]
  122. 300 W[178][181](80[173](NP[170]CP)):[129]X[178]1[164]W:[129]Y[178]1[164]NP:[141]90:[153]L2$"   PICK A COUNTRY"
  123. 301 [141]200
  124. 305 [139]OW(Q)[178]0[167]OW(Q)[178]Y:[141]4000:[137]310
  125. 306 [141]4005:[137]301
  126. 310 [129]Z[178]1[164]SP(Q):[151]CS(Q,Z)[170]55295,CC(Y):[130]:[130]:[130]:[142]
  127. 350 [153]L2$"CONT           SHUFFLING":HV[178]0:[139]CP[178]0[167]HV[178]1
  128. 351 S[178]0:W[178][181](80[173](NP[170]CP)):[129]X[178]1[164]W:[129]Y[178]HV[164]NP:S[178]S[170]1:OW(S)[178]Y:[130]:[130]
  129. 353 [139]S[178]80[167]355
  130. 354 S[178]S[170]1:Y[178][181]([187](1)[172]NP)[170]1:OW(S)[178]Y:[137]353
  131. 355 [129]X[178]1[164]80:Z[178][181]([187](1)[172]80)[170]1:T[178]OW(X):OW(X)[178]OW(Z):OW(Z)[178]T:[130]
  132. 360 [153]L2$CL$:[129]X[178]1[164]80:[129]Z[178]1[164]SP(X)
  133. 361 [151]CS(X,Z)[170]55295,CC(OW(X)):[130]:[130]
  134. 370 [142]
  135. 400 CO[178][181](120[173]NP)[170]10:M[178][181](CO[173]4):CO[178]M[172]4
  136. 405 [129]X[178]1[164]80:NA(X)[178]1:[139]OW(X)[178]0[167]NA(X)[178][181]([187](1)[172](CL[172]1.5))[170]NP
  137. 410 X1[178]X:[141]770:[130]
  138. 420 [141]4000:[129]X[178]1[164]4:[129]Y[178]1[164]NP:V[178]M:P[178]1564
  139. 421 [141]90:[153]L1$;CO[171](M[172]X)[170]V"ARMIES REMAINING":[153]L2$" PLACE"V"ARMIES"
  140. 423 [141]200:[139]OW(Q)[179][177]Y[167][141]4005:[137]421
  141. 424 [141]70:[141]4000:K[178]V:[139]NA(Q)[170]K[177]99[167]K[178]99[171]NA(Q)
  142. 425 [153]L3$" HOW MANY THERE";:[151]57299,4:[151]57300,4
  143. 427 T1[178][181](K[173]10):T2[178]K[171](T1[172]10):[151]2004,T1[170]48:[151]2005,T2[170]48
  144. 430 [141]5:[139]J[178]8[167]K[178]K[170]1
  145. 433 [139]J[178]4[167]K[178]K[171]1
  146. 435 [139]K[177]V[167]K[178]0
  147. 436 [139]K[179]0[167]K[178]V
  148. 437 [139]B[178]0[167]NA(Q)[178]NA(Q)[170]K:[141]4000:X1[178]Q:[141]770:[137]440
  149. 438 [137]427
  150. 440 V[178]V[171]K:[139]V[177]0[167]421
  151. 445 [130]:[130]
  152. 450 [142]
  153. 490 [141]70:[141]90:[153]L2$"     END YOUR TURN? OPEN YWAIT OR N":UR[178]2
  154. 491 [141]5:[139]J[178]0[175]B[177]0[167]491
  155. 492 [139]B[178]0[167][141]4000:[142]
  156. 493 [139]J[178]4[167][151]1969,153:[151]1974,14:UR[178]2:[137]491
  157. 494 [139]J[178]8[167][151]1969,25:[151]1974,142:UR[178]1:[137]491
  158. 495 [137]491
  159. 500 [129]Y[178]1[164]NP:OP[178]0:[139]NC(Y)[179]1[167]550
  160. 510 [141]800:[139]BP(Y)[177]2[167][141]250
  161. 511 [141]94:[153]L1$"   ATTACK WHERE?  "
  162. 513 [153]L2$"OPEN"OP"DEFEATED SO FAR"
  163. 515 UR[178]0:[141]200:DF[178]Q:[141]4000:[139]OW(Q)[178]Y[167][141]490:[139]UR[178]1[167]511
  164. 516 [139]UR[178]2[167][141]900:[137]550
  165. 517 [139]Q[178]0[167]515
  166. 520 [141]94:[153]L2$"      ATTACK FROM?"
  167. 522 [141]200:AT[178]Q:[139]OW(Q)[179][177]Y[167][141]4005:[137]522
  168. 523 [139]NA(Q)[178]1[167][141]4005:[137]511
  169. 530 Z[178]0:[129]X[178]1[164]6:[139]AJ(AT,X)[178]DF[167]Z[178]1
  170. 531 [130]
  171. 532 [139]Z[178]0[167][153]L2$"      NOT ADJACENT":[141]4005:[129]I[178]1[164]500:[130]:[137]511
  172. 540 [141]4000:[141]600:[137]511
  173. 550 [130]:[141]2000:[142]
  174. 600 XA[178]NA(AT)[171]1:[139]XA[177]3[167]XA[178]3
  175. 601 XD[178]1:[139]NA(DF)[177]1[167]XD[178]2
  176. 610 A1[178][181]([187](1)[172]6)[170]1:A2[178]0:[139]XA[177]1[167]A2[178][181]([187](1)[172]6)[170]1
  177. 611 A3[178]0:[139]XA[177]2[167]A3[178][181]([187](1)[172]6)[170]1
  178. 615 D1[178][181]([187](1)[172]6)[170]1:D2[178]0:[139]XD[177]1[167]D2[178][181]([187](1)[172]6)[170]1
  179. 620 [139]D2[177]D1[167]DT[178]D2:D2[178]D1:D1[178]DT
  180. 625 [139]A3[177]A2[167]A4[178]A3:A3[178]A2:A2[178]A4
  181. 626 [139]A2[177]A1[167]A4[178]A2:A2[178]A1:A1[178]A4
  182. 627 [139]A3[177]A2[167]A4[178]A3:A3[178]A2:A2[178]A4
  183. 637 [139]Y[177]0[167][153]L2$"CONT  PRESS BUTTON TO END ATTACK"
  184. 640 [141]4040:[139]A1[177]D1[167]NA(DF)[178]NA(DF)[171]1:[137]645
  185. 642 NA(AT)[178]NA(AT)[171]1
  186. 645 [139]A2[178]0[176]D2[178]0[167]650
  187. 646 [139]A2[177]D2[167]NA(DF)[178]NA(DF)[171]1:[137]650
  188. 647 NA(AT)[178]NA(AT)[171]1
  189. 650 X1[178]DF:[141]770:X1[178]AT:[141]770
  190. 651 [139]NA(DF)[178]0[167]700
  191. 652 [139]NA(AT)[178]1[167][142]
  192. 655 [139]OW(AT)[178]0[167]600
  193. 658 [141]5:[139]B[178]0[167][141]4000:[141]70:[142]
  194. 659 [137]600
  195. 700 OP[178]OP[170]1:ZZ[178]OW(DF):NC(ZZ)[178]NC(ZZ)[171]1:OW(DF)[178]Y
  196. 702 NC(Y)[178]NC(Y)[170]1
  197. 710 [129]Z[178]1[164]SP(DF):[151]CS(DF,Z)[170]55295,CC(Y):[130]
  198. 717 [139]OW(AT)[178]0[167]K[178]NA(AT)[171]1:[137]744
  199. 719 [139]NA(AT)[179]5[167]K[178]NA(AT)[171]1:[137]744
  200. 720 [141]70:[141]94:[153]L2$"MOVE HOW MANY?OPEN           ":K[178]NA(AT)[171]1:Z[178]K
  201. 722 T1[178][181](K[173]10):T2[178]K[171](T1[172]10):[151]1963,T1[170]48:[151]1964,T2[170]48
  202. 724 [141]5:[139]J[178]8[167]K[178]K[170]1
  203. 730 [139]J[178]4[167]K[178]K[171]1
  204. 731 [139]K[179]3[167]K[178]Z
  205. 733 [139]K[177]Z[167]K[178]3
  206. 734 [139]B[178]0[167][141]4000:[137]744
  207. 735 [137]722
  208. 744 NA(AT)[178]NA(AT)[171]K:NA(DF)[178]NA(DF)[170]K
  209. 745 X1[178]DF:[141]770:X1[178]AT:[141]770
  210. 750 [139]NC(ZZ)[178]0[167][141]950
  211. 755 [142]
  212. 765 [139]NA(X1)[177]99[167]NA(X1)[178]99
  213. 770 T1[178][181](NA(X1)[173]10):T2[178]NA(X1)[171](T1[172]10):[151]1023[170]WC(X1),176[170]T1:[151]1024[170]WC(X1),T2[170]176:[142]
  214. 800 B1[178][181](NC(Y)[173]3):[139]B1[179]3[167]B1[178]3
  215. 810 B5[178]0:[129]X[178]1[164]12:[139]OW(X)[178]Y[167]B5[178]B5[170]1
  216. 811 [130]:[139]B5[178]12[167]B1[178]B1[170]7
  217. 820 B5[178]0:[129]X[178]13[164]19:[139]OW(X)[178]Y[167]B5[178]B5[170]1
  218. 821 [130]:[139]B5[178]7[167]B1[178]B1[170]7
  219. 825 B5[178]0:[129]X[178]20[164]25:[139]OW(X)[178]Y[167]B5[178]B5[170]1
  220. 826 [130]:[139]B5[178]6[167]B1[178]B1[170]5
  221. 830 B5[178]0:[129]X[178]26[164]43:[139]OW(X)[178]Y[167]B5[178]B5[170]1
  222. 831 [130]:[139]B5[178]18[167]B1[178]B1[170]18
  223. 835 B5[178]0:[129]X[178]45[164]55:[139]OW(X)[178]Y[167]B5[178]B5[170]1
  224. 836 [130]:[139]B5[178]11[167]B1[178]B1[170]7
  225. 840 B5[178]0:[129]X[178]56[164]60:[139]OW(X)[178]Y[167]B5[178]B5[170]1
  226. 841 [130]:[139]B5[178]5[167]B1[178]B1[170]3
  227. 845 B5[178]0:[129]X[178]61[164]68:[139]OW(X)[178]Y[167]B5[178]B5[170]1
  228. 846 [130]:[139]B5[178]8[167]B1[178]B1[170]6
  229. 850 B5[178]0:[129]X[178]69[164]80:[139]OW(X)[178]Y[167]B5[178]B5[170]1
  230. 851 [130]:[139]B5[178]12[167]B1[178]B1[170]8
  231. 853 [141]90:[141]4000:[153]L2$"PLACE"B1"ARMIES  ";:P[178]1564:[141]200:[139]OW(Q)[179][177]Y[167][141]4005:[137]853
  232. 855 [141]70:LO[178]0:[141]4000:[153]L3$"HOW MANY THEREOPEN          ";:K[178]B1:[139]NA(Q)[170]K[177]99[167]K[178]99[171]NA(Q):LO[178]B1[171]K:[139]K[178]0[167]853
  233. 856 B1[178]K
  234. 857 T1[178][181](K[173]10):T2[178]K[171](T1[172]10):[151]2003,T1[170]48:[151]2004,T2[170]48
  235. 858 [141]5:[139]J[178]8[167]K[178]K[170]1
  236. 859 [139]J[178]4[167]K[178]K[171]1
  237. 860 [139]K[177]B1[167]K[178]0
  238. 861 [139]K[179]0[167]K[178]B1
  239. 865 [139]B[178]0[167][141]4000:[137]869
  240. 866 [137]857
  241. 869 B1[178]B1[171]K:NA(Q)[178]NA(Q)[170]K:X1[178]Q:[141]770
  242. 870 B1[178]B1[170]LO:[139]B1[178]0[167][142]
  243. 875 [137]853
  244. 900 [141]94:[141]70:[153]L2$"  MAKE A SHIFT MOVE?OPEN YWAIT OR N":UR[178]2:[141]491
  245. 910 [139]UR[178]1[167][153]L1$CL$:[137]940
  246. 912 [141]70
  247. 915 [141]94:[153]L2$"FROM WHICH COUNTRY?":[141]200:FR[178]Q:[139]OW(Q)[179][177]Y[167][141]4005:[137]900
  248. 917 [139]NA(Q)[179]2[167][141]4005:[137]900
  249. 919 [141]4000:[141]70
  250. 920 [153]L2$"  TO WHICH COUNTRY?":[141]200:TG[178]Q:[139]OW(Q)[179][177]Y[167][141]4005:[137]900
  251. 923 [141]4000:[139]TG[178]FR[167]920
  252. 925 Z[178]0:[129]X[178]1[164]6:[139]AJ(FR,X)[178]TG[167]Z[178]1
  253. 926 [130]:[139]Z[178]0[167]920
  254. 930 K[178]NA(FR)[171]1:Z[178]K:[153]L2$CL$:[153]L2$"     HOW MANY?OPEN      ":[139]NA(TG)[170]K[177]99[167]K[178]99[171]NA(TG):Z[178]K
  255. 931 T1[178][181](K[173]10):T2[178]K[171](T1[172]10):[151]1963,T1[170]48:[151]1964,T2[170]48
  256. 932 [141]5:[139]J[178]8[167]K[178]K[170]1
  257. 933 [139]J[178]4[167]K[178]K[171]1
  258. 934 [139]K[179]0[167]K[178]Z
  259. 935 [139]K[177]Z[167]K[178]0
  260. 936 [139]B[178]0[167]NA(TG)[178]NA(TG)[170]K:[141]4000:X1[178]TG:[141]770:NA(FR)[178]NA(FR)[171]K:X1[178]FR:[141]770:[137]939
  261. 937 [137]931
  262. 939 [139]K[178]0[167]900
  263. 940 [139]OP[177]0[167]BP(Y)[178]BP(Y)[170]1
  264. 941 [139]OP[177]10[167]BP(Y)[178]BP(Y)[170]1
  265. 942 [141]80:[142]
  266. 950 PR[178]PR[171]1:[139]PR[178]1[167]980
  267. 951 [139]ZZ[178]0[167]BP(ZZ)[178][181]([187](1)[172]4)[170]1:CP[178]0
  268. 955 BP(Y)[178]BP(Y)[170]BP(ZZ):BP(ZZ)[178]0:[141]4000:[141]80:[139]BP(Y)[177]5[167][141]250
  269. 960 [142]
  270. 980 [141]94:[153]L3$"SYSPRESS BUTTON TO PLAY AGAIN";:[141]70
  271. 981 [153]L2$"       THE WINNER ":[129]X[178]1[164]100:[130]:[153]L2$"       THE WINNER "
  272. 982 [129]X[178]1[164]200:[130]:[141]5:[139]B[177]0[167]981
  273. 983 [138]
  274. 1000 [151]53281,0:[151]53280,0:[141]1210
  275. 1005 L5$[178]"":L1$[178]L5$[170]"":L2$[178]L1$[170]"":L3$[178]L2$[170]""
  276. 1006 CL$[178]"                                  ":CC(0)[178]15:CC(10)[178]0:[129]X[178]1[164]10
  277. 1009 [135]D(X):[130]:P[178]1564:[134]OW(80):OW(0)[178]9:[134]NA(80),G(16):TR[178]0:[134]BP(10)
  278. 1010 SO[178]54272:[134]CL$(10):[129]X[178]1[164]10:[135]CL$(X):[130]
  279. 1011 [134]LC(800):[129]Q[178]1[164]800:[135]LC(Q):[130]
  280. 1012 [134]SP(80):[129]Z[178]1[164]80:[135]SP(Z):[130]
  281. 1013 [134]CS(80,15):[129]X[178]1[164]80:[129]Y[178]1[164]SP(X):[135]CS(X,Y):[130]:[130]
  282. 1014 [134]WC(80):[129]J[178]1[164]80:[135]WC(J):[130]
  283. 1015 [134]AJ(80,6):[129]W[178]1[164]80:[129]K[178]1[164]6:[135]AJ(W,K):[130]:[130]
  284. 1018 DF[178]0:NP[178]0:UR[178]0:AT[178]0:XA[178]0:XD[178]0:A1[178]0:A2[178]0:A3[178]0:D1[178]0:D2[178]0:NP[178]0:B1[178]0:B5[178]0:FR[178]0:TG[178]0:T1[178]0:T2[178]0:DT[178]0:A4[178]0:X1[178]0:ZZ[178]0:NJ[178]0:WJ[178]0:TM[178]0:F$[178]"":A$[178]"":J$[178]"":B7[178]8:X9[178]0
  285. 1020 H1$[178]"RANDOM DISTRIBUTION OF COUNTRIES":H2$[178]"PLAYERS PICK THIER COUNTRIES":J1[178]1:J2[178]0:H3$[178]"                                      "
  286. 1100 [141]1200
  287. 1110 [153]"OPEN     (USE JOYSTICK IN PORT 2)"
  288. 1120 [153]"SYS STR$O YOU NEED RIGHT$NSTRUCTIONS? (null) SYSOR (null)":UR[178]1
  289. 1125 [141]5
  290. 1130 [139]B[178]0[167][141]4000:[137]1150
  291. 1135 [139]J[178]4[167][151]1171,217:[151]1176,78:UR[178]2:[137]1125
  292. 1140 [139]J[178]8[167][151]1171,89:[151]1176,206:UR[178]1:[137]1125
  293. 1145 [137]1125
  294. 1150 [139]UR[178]1[167][137]20
  295. 1155 [141]1200:[153]"  (null)HIS GAME IS SIMILAR TO THE BOARD GAME(null)RIGHT$(null)(null) WITH SOME MO
  296. 1157 PRINT"  PLAYERS GAIN 1 BONUS PT FOR TAKING    OVER AT LEAST 1 TERRITORY AND A SECOND  PT IF 11 OR MORE ARE TAKEN IN THE SAME"
  297. 1159 PRINT"TURN.[201]F A PLAYER IS KNOCKED OUT OF THE  GAME THEN THE PLAYER WHO TOOK HIS LAST  TERRITORY GETS HIS BONUS PTS. [194]ONUS PTS";
  298. 1161 PRINT" MUST BE TURNED IN IF A PLAYER HAS 5 OR  MORE AT THE BEGINNING OF HIS TURN.
  299. 1165 [153]"  (null)NLY 99 ARMIES CAN BE PLACED IN ANY   ONE TERRITORY.(null)O PLACE ARMIES USE THE   JOYSTICK TO MOVE THE CUSOR TO THE       TERRITORY AND PRESS THE BUTTON."
  300. 1168 [153]"  (null)HE NUMBERS PRINTED IN YELLOW NEXT TO EACH CONTINENT IS THE AMOUNT OF ARMIES APLAYER GETS FOR CONTROLLING THAT ENTIRE CONTINENT. ONE ARMY IS ALSO GAINED
  301. 1169 PRINT"FOR EVERY THREE COUNTRIES OWNED"
  302. 1170 PRINT"[158]        [208][210][197][211][211][160][194][213][212][212][207][206][160][212][207][160][195][207][206][212][201][206][213][197]"
  303. 1171 GOSUB5:IFB>0THEN1171
  304. 1175 GOSUB1200:PRINT"   [212]O END YOUR TURN PICK YOUR OWN       TERRITORY WHEN ASKED WHERE YOU WANT TO  ATTACK. [212]O WIN THE GAME YOU MUST TAKE"
  305. 1176 PRINT"OVER THE ENTIRE BOARD."
  306. 1180 PRINT"  [212]HE COMPUTER ATTACKS MOSTLY AT RANDOM AND THE LEVEL THE COMPUTER PLAYS AT     CONTROLS HOW MANY PIECES IT GETS EACH"
  307. 1181 PRINT"TURN. [193] GOOD STRATEGY IN A MULTI PLAYER GAME WITH THE COMPUTER PLAYING IS TO    HELP EACH OTHER AND KNOCK OUT THE"
  308. 1182 PRINT"COMPUTER AND THEN ATTACK EACH OTHER."
  309. 1188 PRINT"[158]      [208][210][197][211][211][160][194][213][212][212][207][206][160][212][207][160][195][207][206][212][201][206][213][197]"
  310. 1189 GOSUB5:IFB>0THEN1189
  311. 1199 GOTO20
  312. 1200 PRINT"[147]"CHR$(14)"<<<<<<<<<<<<  [215][207][210][204][196] [193][212] [215][193][210]  >>>>>>>>>>>>":RETURN
  313. 1210 PRINTCHR$(142)"[147]         [158][169]                 "
  314. 1211 PRINT"                          [158] "
  315. 1212 PRINT"           WORLD AT WAR   [158] "
  316. 1214 PRINT"                          [158][146][169]"
  317. 1216 PRINT"       [169]                     "
  318. 1217 PRINT"                            [158] "
  319. 1218 PRINT"          BY DARREN DUFFY   [158] "
  320. 1219 PRINT"                            [158][146][169]"
  321. 1230 PRINT"[158]    [169]                            "
  322. 1231 PRINT"[154]                                [158] "
  323. 1232 PRINT"[154]          SETTING UP MAP        [158] "
  324. 1233 PRINT"[154]           PLEASE WAIT..        [158] "
  325. 1234 PRINT"[154]                                [158][146][169]"
  326. 1250 RETURN
  327. 2000 IFNC(0)<1THENRETURN
  328. 2005 Y=0:GOSUB90:PRINTL2$" BUILDING UP":FORX=1TO80:IFOW(X)=YTHENGOSUB2007
  329. 2006 NEXT:GOSUB2100:FV=1:GOTO2050
  330. 2007 FF=0:FORZ=1TO6:IFOW(AJ(X,Z))>0ANDOW(AJ(X,Z))<9THENFF=1
  331. 2008 NEXT:IFFF=0THENRETURN
  332. 2010 NA(X)=NA(X)+INT(RND(1)*(CL+TR))
  333. 2011 X1=X:GOSUB765:RETURN
  334. 2050 FORKB=1TO80:DF=0:B=KB:BM=0:PRINTL2$" THINKING...    ":IFOW(B)=0THENGOSUB2060
  335. 2051 IFDF>0ANDOW(DF)=0THENB=DF:IFNA(B)>1THENGOSUB2060:BM=BM+1:IFBM<CL*2THEN2051
  336. 2055 NEXT:GOSUB2080:RETURN
  337. 2060 IFNA(B)<2THENRETURN
  338. 2061 GR=INT(RND(1)*6)+1:Z=GR
  339. 2062 Z=Z+1:IFZ=7THENZ=1
  340. 2065 DF=AJ(B,Z):IFDF=0OROW(DF)=0THEN2067
  341. 2066 IFOW(DF)>0ANDOW(DF)<9THENGOSUB2070:RETURN
  342. 2067 IFZ=GRTHENRETURN
  343. 2068 GOTO2062
  344. 2070 PRINTL2$" ATTACKING  ":AT=B:GOSUB2075:GOSUB600:RETURN
  345. 2075 FORRX=1TO3:FORZ=1TOSP(DF):POKECS(DF,Z)+55295,0:NEXT:FORZ=1TOSP(AT):POKECS(AT,Z)+55295,0:NEXT
  346. 2078 FORZ=1TOSP(DF):POKECS(DF,Z)+55295,CC(OW(DF)):NEXT:FORZ=1TOSP(AT):POKECS(AT,Z)+55295,15:NEXT:NEXT:RETURN
  347. 2080 CX=0:PRINTL2$" SHIFT MOVE ":OG=0:FORXC=1TO80:IFOW(XC)>0THEN2085
  348. 2081 IFNA(XC)=1THEN2085
  349. 2082 NX=0:FORB=1TO6:IFOW(AJ(XC,B))>0ANDOW(AJ(XC,B))<9THENNX=1
  350. 2083 NEXT:IFNX=1THEN2085
  351. 2084 IFNA(XC)>OGTHENOG=NA(XC):CX=XC
  352. 2085 NEXT:K=1:IFCX=0THENRETURN
  353. 2086 DF=AJ(CX,K):IFDF=0THENK=K+1:GOTO2086
  354. 2087 AT=CX:GOSUB2075
  355. 2090 RE=0:NA(DF)=NA(DF)+(NA(CX)-1):IFNA(DF)>99THENRE=NA(DF)-99:NA(DF)=99
  356. 2091 NA(CX)=1+RE:X1=CX:GOSUB770:X1=DF:GOSUB770:RETURN
  357. 2100 B5=0:FORX=1TO12:IFOW(X)=YTHENB5=B5+1
  358. 2111 NEXT:IFB5=12THENNA(6)=NA(6)+3:X1=6:GOSUB765:NA(12)=NA(12)+4:X1=12:GOSUB765
  359. 2120 B5=0:FORX=13TO19:IFOW(X)=YTHENB5=B5+1
  360. 2121 NEXT:IFB5=7THENNA(19)=NA(19)+3:X1=19:GOSUB765:NA(13)=NA(13)+2:X1=13:GOSUB765:NA(17)=NA(17)+2:X1=17:GOSUB765
  361. 2125 B5=0:FORX=20TO25:IFOW(X)=YTHENB5=B5+1
  362. 2126 NEXT:IFB5=6THENNA(23)=NA(23)+3:X1=23:GOSUB765:NA(20)=NA(20)+2:X1=20:GOSUB765
  363. 2130 B5=0:FORX=26TO43:IFOW(X)=YTHENB5=B5+1
  364. 2131 NEXT:IFB5=18THENFORX=26TO43:IFAJ(X,1)=0THENNA(X)=NA(X)+4:X1=X:GOSUB765:NEXT
  365. 2135 B5=0:FORX=45TO55:IFOW(X)=YTHENB5=B5+1
  366. 2136 NEXT:IFB5=11THENNA(51)=NA(51)+4:X1=51:GOSUB765:NA(55)=NA(55)+3:X1=55:GOSUB765
  367. 2140 B5=0:FORX=56TO60:IFOW(X)=YTHENB5=B5+1
  368. 2141 NEXT:IFB5=5THENNA(57)=NA(57)+3:X1=57:GOSUB765
  369. 2145 B5=0:FORX=61TO68:IFOW(X)=YTHENB5=B5+1
  370. 2146 NEXT:IFB5=8THENNA(61)=NA(61)+3:X1=61:GOSUB765:NA(66)=NA(66)+3:X1=66:GOSUB765
  371. 2150 B5=0:FORX=69TO80:IFOW(X)=YTHENB5=B5+1
  372. 2151 NEXT:IFB5=12THENNA(70)=NA(70)+3:X1=70:GOSUB765:NA(74)=NA(74)+3:X1=74:GOSUB765:NA(69)=NA(69)+2:X1=69:GOSUB765
  373. 2160 RETURN
  374. 3000 QW=3:X=INT(RND(1)*4):IFX>0THENRETURN
  375. 3010 Y=10:GOSUB90:X=INT(RND(1)*QW)+1
  376. 3015 ONXGOSUB3050,3075,3100,3125,3150
  377. 3020 RETURN
  378. 3050 PRINTL2$"PLAGUE STRIKES! SUFFER CASUALTIES"
  379. 3052 FORX=1TO80
  380. 3053 Z=INT(RND(1)*4):Z5=INT((NA(X)/10)*Z):NA(X)=NA(X)-Z5:X1=X:GOSUB770:NEXT:RETURN
  381. 3075 IFNC(0)>0THEN3100
  382. 3076 PRINTL1$"ENEMY INFILTRATORS ATTEMPT":PRINTL2$"TO TAKEOVER"
  383. 3077 FORX=1TO80:IFOW(X)=0THENNEXT:RETURN
  384. 3079 IFNA(X)>1THENNEXT:RETURN
  385. 3080 Z=INT(RND(1)*6):IFZ>0THENNEXT:RETURN
  386. 3082 IFNC(OW(X))<4THENNEXT:RETURN
  387. 3085 OO=OW(X):OW(X)=0:NA(X)=INT(RND(1)*5)+2
  388. 3090 FORZ=1TOSP(X):POKECS(X,Z)+55295,15:NEXT:X1=X:GOSUB770:NC(OO)=NC(OO)-1:NC(0)=NC(0)+1:IFCP=0THENCP=1:CL=3:PR=PR+1
  389. 3091 NEXT:RETURN
  390. 3100 PRINTL1$"ECONOMIC SETBACKS CAUSE AN":PRINTL2$"INCREASE IN NEW RECRUITS"
  391. 3105 FORX=1TO80:NA(X)=NA(X)+INT(RND(1)*6):X1=X:GOSUB765:NEXT:RETURN
  392. 4000 S=54272:POKES+24,15:POKES+12,67:POKES+13,67:POKES+7,22:POKES+8,32
  393. 4001 POKES+11,33:FORI=1TO50:NEXT:POKES+11,0:RETURN
  394. 4005 S=54272:POKES+24,15:POKES+12,67:POKES+13,67:POKES+7,12:POKES+8,6
  395. 4006 POKES+11,33:FORI=1TO200:NEXT:POKES+11,0:RETURN
  396. 4010 S=54272:POKES+24,15:POKES+5,64 :POKES+6,240:POKES+1,153:POKES,153:POKES+4,33
  397. 4011 FORI=1TO10:NEXT:POKES+4,128:RETURN
  398. 4040 S=54272:POKES+24,9:POKES+12,15:POKES+13,252:POKES+7,12:POKES+8,4
  399. 4042 POKES+11,129:FORI=1TO150:NEXT:POKES+11,128:RETURN
  400. 4900 DATA-40,40,0,-1,-41,39,0,1,-39,41
  401. 4950 DATA"WHITE ","RED   ","[159]CYAN  ","[156]PURPLE","GREEN ","BLUE  ","[158]YELLOW","[129]ORANGE","[149]BROWN ","[150]PINK  "
  402. 5000 DATA1,1,2,2,2,3,3,3,0,0,0,13,13,14,14,14,15,15,15,16,16,16,16,17,17,17,0,0,0,20,20,21,21,21,22,22,22,22,0,0
  403. 5001 DATA1,1,2,2,2,3,3,6,6,0,0,13,13,14,14,18,18,15,19,19,16,16,17,17,17,17,17,0,0,20,20,21,21,24,25,25,25,25,25,0
  404. 5002 DATA4,4,4,5,5,5,6,6,6,0,0,0,0,18,18,18,18,18,19,19,19,19,19,19,0,0,0,0,0,23,23,23,24,24,25,25,25,25,0,0
  405. 5003 DATA4,4,5,5,5,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,23,0,0,0,0,0,0,0,0,0
  406. 5004 DATA4,4,7,7,8,8,8,0,0,0,0,0,0,0,26,26,26,26,27,27,28,28,28,28,29,29,30,30,0,0,0,0,45,45,46,46,46,46,48,0
  407. 5005 DATA9,9,7,7,8,8,0,0,0,0,0,0,0,0,31,31,26,26,27,27,27,28,28,29,29,29,29,30,30,0,0,0,45,45,47,47,47,48,48,0
  408. 5006 DATA9,9,9,7,7,0,0,0,0,0,0,0,31,31,31,31,32,32,32,32,33,33,33,34,34,34,35,35,35,36,0,0,0,47,47,47,47,48,48,0
  409. 5007 DATA9,10,10,10,10,12,0,0,0,0,0,0,0,31,31,31,31,32,32,32,32,33,33,34,34,34,35,35,35,36,36,0,0,49,49,49,49,50,50,0
  410. 5008 DATA11,11,11,10,12,12,12,0,0,0,0,0,0,37,31,31,31,32,32,32,32,39,39,39,34,34,34,35,35,36,0,0,0,49,49,50,50,50,50,0
  411. 5009 DATA11,11,11,11,12,12,0,0,0,44,44,0,0,37,37,37,37,38,38,38,38,39,39,39,39,39,40,40,40,41,41,0,51,51,51,52,52,53,53,0
  412. 5010 DATA0,0,0,0,0,0,0,44,44,44,44,0,0,37,37,37,0,38,38,38,38,39,39,39,39,39,40,40,41,41,0,0,51,51,52,52,52,53,53,0
  413. 5011 DATA0,0,0,0,0,0,44,44,44,44,0,0,37,37,37,0,0,38,38,38,38,38,38,38,42,42,42,42,41,41,41,0,0,54,54,55,55,53,53,0
  414. 5012 DATA0,56,56,56,0,0,0,44,44,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,42,42,42,42,41,41,0,0,54,54,54,55,55,55,55,0
  415. 5013 DATA56,56,56,57,57,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,42,43,43,43,43,0,0,0,54,55,55,55,55,0,0
  416. 5014 DATA0,0,57,57,57,0,0,0,0,61,61,62,62,62,63,63,63,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  417. 5015 DATA0,58,58,58,0,0,0,0,0,61,61,62,62,62,63,63,63,63,0,0,0,0,69,69,70,70,70,0,0,0,0,0,73,73,74,74,74,0,0,0
  418. 5016 DATA0,58,58,58,0,0,0,0,0,61,64,64,64,65,65,65,66,66,0,0,0,69,69,75,70,70,70,71,71,72,72,72,73,73,74,74,74,79,79,0
  419. 5017 DATA0,0,59,59,0,0,0,0,0,0,64,64,64,65,65,66,66,66,0,0,0,0,75,75,70,70,76,71,71,72,72,78,78,73,79,79,79,79,79,0
  420. 5018 DATA0,0,59,59,60,60,0,0,0,0,0,0,67,67,67,68,68,68,0,0,0,0,75,75,75,76,76,76,77,77,78,78,78,78,80,80,80,80,80,0
  421. 5019 DATA0,0,59,60,60,60,0,0,0,0,0,0,67,67,68,68,68,68,0,0,0,0,0,0,0,76,76,77,77,77,77,78,78,78,80,80,80,80,80,0
  422. 5090 DATA 4,6,5,7,6,5,6,6,6,5,7,6,4,5,4,6,8,7,8,4,5,4,4,3,9,6,5,6,6,4,13,12,5,9,8,4,11,15,13,5
  423. 5091 DATA9,9,4,12,4,4,7,5,6,6,5,5,6,6,10,6,5,6,5,5,5,6,7,6,5,5,5,7,4,8,4,5,5,6,6,6,6,9,7,10
  424. 5101 DATA1,2,41,42,3,4,5,43,44,45,6,7,8,46,47,81,82,83,121,122,161,162,84,85,86,123,124,125,48,49,87,88,89,163,164,203,204,244,245,126,165,166,167,205,206
  425. 5102 DATA201,202,241,242,243,281,282,283,284,285,324,321,322,323,361,363,362,364,286,325,326,327,365,366
  426. 5103 DATA12,13,52,53,14,15,16,54,55,17,18,19,58,20,21,22,23,61,62,24,25,26,63,64,65,66,67,56,57,94,95,96,97,98,59,60,99,100,102,101,103,104
  427. 5104 DATA30,31,70,71,32,33,34,72,73,35,36,37,38,110,111,112,151,113,114,74,75,76,77,78,115,116,117,118,79
  428. 5105 DATA175,176,177,178,217,218,179,180,219,220,221,181,182,183,184,222,223,185,186,224,225,226,227,187,188,228,229,215,216,253,254,255,256,294,295,296,297
  429. 5106 DATA335,336,337,257,258,259,260,298,299,300,301,338,339,340,341,261,262,263,302,303,264,265,266,304,305,306,345,346,347
  430. 5107 DATA267,268,269,307,308,309,348,349,270,310,311,350,334,374,375,376,377,414,415,416,453,455,454,378,379,380,381,418,419,420,421,458,459,460,461,462,463
  431. 5108 DATA464,342,343,344,382,383,384,385,386,422,423,424,425,426,387,388,389,427,428,390,391,429,430,469,470,471,509,510,465,466,467,468,505,506,507,508,546
  432. 5109 DATA547,548,549,550,370,371,408,409,410,411,447,448,449,450,488,489,193,194,233,234,195,196,197,198,235,236,237,274,275,276,277,199,238,239,278,279
  433. 5110 DATA314,315,316,317,354,355,318,319,356,357,358,359,393,394,395,433,434,396,397,435,436,437,438,439,398,399,478,479,474,475,513,514,515,554,555,556,557
  434. 5111 DATA558,516,517,518,519,476,477,482,483,484,521,522,523,524,525,563,564,565,602,603,604,642,643,644,684,683,723,724,763,725,726,764,765,766
  435. 5112 DATA570,571,610,611,650,572,573,574,612,613,614,575,576,577,615,616,617,618,651,652,653,691,692,693,654,655,656,694,695,696,697,698,657,658
  436. 5113 DATA733,734,735,773,774,775,776,777,778,736,737,738,623,624,662,663,625,626,627,665,666,667,705,706,668,669,708,709,670,671,672,710,711,714,673,674,633
  437. 5114 DATA634,635,636,637,675,676,677,664,703,704,743,745,744,707,746,747,748,786,787,749,750,788,789,790,791,792,793,794,751,752,753,754,712,713
  438. 5115 DATA715,716,717,718,719,678,679,755,756,757,758,759,795,796,797,798,799
  439. 5200 DATA1,4,7,81,84,88,203,166,241,284,361,326,12,15,18,21,65,96,100,30,33,36,110,113,116,176,179,182,185,228,295,299,262,345,307,310,414,419,383,427,470,505
  440. 5201 DATA548,448,193,196,275,278,354,358,433,436,478,513,516,482,564,642,723,765,570,573,576,691,654,657,773,776,623,626,668,671,633,636,743,786,789,792,717
  441. 5202 DATA797
  442. 5252 DATA2,4,0,0,0,0,3,4,5,1,0,0,6,5,2,0,0,0,5,7,9,2,1,0,6,8,7,3,2,4,0,3,5,13,0,0,10,8,5,9,4,0,7,5,0,0,0,0,10,11,7,4,0,0,12,7,11,9,0,0,12,10,9,0,0,0
  443. 5253 DATA44,11,10,0,0,0,0,6,14,0,0,0,13,15,18,0,0,0,19,16,18,14,0,0,19,17,15,0,0,0,0,16,19,20,0,0,19,15,14,0,0,0,0,15,16,17,18,28,0,17,21,23,0,0
  444. 5254 DATA20,22,23,24,0,0,21,25,0,0,0,0,0,20,21,24,30,0,23,21,25,0,0,0,24,22,0,0,0,0,27,31,32,0,0,0,28,26,32,33,0,0,0,27,29,33,19,0,28,30,34,35,0,0
  445. 5255 DATA0,23,29,35,0,0,37,32,26,0,0,0,31,27,33,39,38,26,28,27,32,34,39,0,40,33,35,39,29,0,36,30,34,40,29,0,0,35,41,51,0,0,0,31,44,38,0,0,37,32,39,42,0,0
  446. 5256 DATA42,34,40,33,38,32,42,35,41,39,34,0,43,40,42,36,0,0,43,39,40,41,38,0,0,42,41,70,0,0,0,12,37,57,61,0,47,46,0,0,0,0,47,45,48,0,0,0,49,46,48,45,0,0,50,47
  447. 5257 DATA46,0,0,0,51,50,47,0,0,0,53,49,52,48,0,0,0,49,52,54,36,0,51,50,53,54,55,0,55,52,50,0,0,0,51,52,55,0,0,0,0,52,53,54,74,0,57,0,0,0,0,0,44,56,58,0,0,0
  448. 5258 DATA57,59,0,0,0,0,58,60,0,0,0,0,59,0,0,0,0,0,44,62,64,0,0,0,61,64,65,63,0,0,66,65,62,0,0,0,61,62,65,67,0,0,66,63,64,62,67,0,0,63,65,68,69,0
  449. 5259 DATA64,65,68,0,0,0,66,67,0,0,0,0,0,66,70,75,0,0,0,43,69,75,71,76,70,76,77,72,0,0,73,77,78,71,0,0,74,78,72,79,0,0,0,55,73,79,0,0,69,70,76,0,0,0
  450. 5260 DATA70,71,75,77,0,0,71,72,76,78,0,0,73,72,77,80,0,0,74,73,80,0,0,0,79,78,0,0,0,0
  451.