home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 12 / Tiger_Disk_012_19xx_Tiger-Crew-Disk_de_Side_A.d64 / tower (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  13KB  |  297 lines
  1. 0 poke50257,16:rem statuswert
  2. 1 rem *********************************
  3. 2 rem * - - - - - - tower - - - - - - *
  4. 3 rem *    regeln von vier-gewinnt    *
  5. 4 rem * fuer 2 spieler gegeneinander  *
  6. 5 rem *            oder               *
  7. 6 rem * fuer 1 spieler gegen den c-64 *
  8. 7 rem * - - - - - - - - - - - - - - - *
  9. 8 rem *                     (c) by hk *
  10. 9 rem *********************************
  11. 10 restore:print"[147]";:poke53280,11:poke53281,11:poke51,0:poke52,144
  12. 20 printchr$(9);chr$(142);chr$(8)
  13. 30 poke55,0:poke56,96:x=0:poke808,251
  14. 40 rn=rnd(ti):sp=int(rnd(rn)*2+1)
  15. 50 poke2,0:poke247,0:dima(7),b(7)
  16. 60 x=0:fori=40474to40952
  17. 70 reada:pokei,a:x=x+a
  18. 80 next:ifx<>44929thenprint"fehler in datenblock 1":end
  19. 90 sys40704:gosub1110:print"[147]";
  20. 100 fora=25088to25200:pokea,0:nexta
  21. 110 fora=1to7:a(a)=0:b(a)=0:poke25352+(a-1)*16,0:nexta
  22. 120 sys40752:q1=54272
  23. 130 print" splr[221] a [221] b [221] c [221] d [221] e [221] f [221] g [221]splr "
  24. 140 print" [163][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][221][163][163][163][163]"
  25. 150 print"     [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  26. 160 print" [176][192][174] [171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179] [176][192][174]"
  27. 170 print" [221] [221] [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221] [221] [221]"
  28. 180 print" [173][192][189] [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221] [173][192][189]"
  29. 190 print"     [171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]"
  30. 200 print"     [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  31. 210 print" zug [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221] zug"
  32. 220 print" [163][163][163][163][171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179][163][163][163][163]"
  33. 230 print"     [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  34. 240 print"     [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  35. 250 print"     [171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]"
  36. 260 print"     [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  37. 270 print"     [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  38. 280 print"     [171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]"
  39. 290 print"     [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  40. 300 print"     [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  41. 310 print"     [171][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][219][192][192][192][179]"
  42. 320 print"     [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  43. 330 print"     [221]   [221]   [221]   [221]   [221]   [221]   [221]   [221]"
  44. 340 print"     [173][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][177][192][192][192][189]"
  45. 350 print"[153] (1)  ";z1$;"[146]         ";z2$;"[146]  (2)"
  46. 360 print"                                       "
  47. 370 printtab(5);"[153]";z1tab(23);"[154]";z2;"[145]"
  48. 380 x1=5:x2=6:y1=162:y2=196:w1=177:w2=178
  49. 390 pokeco+y1,x1:pokeco+y2,x2
  50. 400 poke198,0
  51. 410 ifsp=1thenpoketx+y2,32:poketx+y1,w1
  52. 420 ifsp=2thenpoketx+y1,32:poketx+y2,w2
  53. 430 ifsp=2andz=1thengosub790:rem computer-zug
  54. 440 ifsp=1or(sp=2andz=0)thengosub520
  55. 450 zz=zz+1
  56. 460 poke247,sp:poke248,(t-1)*16:poke249,a(t)-1
  57. 470 sys 24576
  58. 480 ifpeek(247)=0andzz=49then1100
  59. 490 ifpeek(247)<>0then930:rem sieger
  60. 500 sp=sp+1:ifsp=3thensp=1
  61. 510 goto400
  62. 520 poke198,0
  63. 530 geta$:ifa$=""then530
  64. 540 ifa$<"a"ora$>"g"then530
  65. 550 z$="abcdefg"
  66. 560 fora=1to7
  67. 570 ifa$=mid$(z$,a,1)thent=a:a=7:goto580
  68. 580 nexta
  69. 590 ifa(t)=7then530
  70. 600 a(t)=a(t)+1
  71. 610 poke25352+(t-1)*16,a(t)
  72. 620 gosub650:rem zug anzeigen
  73. 630 poke25088+(a(t)-1)+(t-1)*16,sp
  74. 640 return
  75. 650 ifsp=1thenfa=x1
  76. 660 ifsp=2thenfa=x2
  77. 670 c1=co+882-a(t)*120+t*4
  78. 680 c2=tx+882-a(t)*120+t*4
  79. 690 fora=0to1
  80. 700 forb=0to2
  81. 710 pokec1+a*40+b,fa
  82. 720 pokec2+a*40+b,160
  83. 730 nextb
  84. 740 nexta
  85. 750 pokeq1+1,30:pokeq1+5,10:pokeq1+15,1:pokeq1+24,15
  86. 760 pokeq1+4,21:fori=1to300:next
  87. 770 pokeq1+4,20
  88. 780 return
  89. 790 sys25456:rem tower-logic $6370
  90. 800 ifpeek(247)<>0thent=peek(247):goto870
  91. 810 fora=1to7:b(a)=peek(25353+(a-1)*16):nexta
  92. 820 c=49
  93. 830 fora=1to7:ifa(a)=7then860
  94. 840 pe=peek(25344+(a-1)*16+a(a))
  95. 850 ifb(a)=1andpe<cthenc=pe:t=a
  96. 860 nexta
  97. 870 a(t)=a(t)+1
  98. 880 poke25352+(t-1)*16,a(t)
  99. 890 gosub650:rem zug anzeigen
  100. 900 poke25088+(a(t)-1)+(t-1)*16,2
  101. 910 fora=1to7:b(a)=1:nexta
  102. 920 return
  103. 930 print"";
  104. 940 print"                                       "
  105. 950 print"                                       "
  106. 960 print"                                    [145][145][145]"
  107. 970 ifn$="niemand  "then1000
  108. 980 ifpeek(247)=1thenn$=z1$:z1=z1+1
  109. 990 ifpeek(247)=2thenn$=z2$:z2=z2+1
  110. 1000 print"     [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  111. 1010 print"     ";n$;" hat gewonnen.nochmal?[146]";
  112. 1020 ifn$="niemand  "thenn$=""
  113. 1030 poke198,0:sys40704
  114. 1040 geta$:ifa$=""then1040
  115. 1050 ifa$="n"then90
  116. 1060 ifa$<>"j"then1040
  117. 1070 poke247,0:zz=0
  118. 1080 sp=sp+1:ifsp=3thensp=1
  119. 1090 print"";:goto100
  120. 1100 n$="niemand  ":goto930
  121. 1110 print"[147]"
  122. 1120 tx=1024:co=55296
  123. 1130 poke53280,.:poke53281,.:print"[150]";:rem farben stetzen
  124. 1140 print"  [175][175][175][175][175][175][175][175] [175][175][175][175][175][175] [175][175][175][175] [175][175][175][175][175][175] [175][175][175][175][175][175]"
  125. 1150 print" [206]       [169][146][206]     [169][146][206] [169][223][146] [205][223][146]     [205][223][146]     [205]"
  126. 1160 print" [207][183][183][183][183][183][183][208] [146][207][183][183][183][183][208] [146][207][208]  [146][207][208] [146][207][183][183][183][183][208] [146][207][183][183][183][183][208]"
  127. 1170 print" [204][175][175]  [175][175][186][169][165]    [167] [146][165][167]  [146][165][167] [146][165] [175][175][175][186] [146][165]    [167]"
  128. 1180 print"    [165][167] [146]   [165]  [146][208] [167] [146][165][167]  [146][165][167] [146][165][167] [205]   [146][165] [207][223] [167] [146]"
  129. 1190 print"    [165][167] [146]   [165]  [146][167] [167] [146][165][167]  [146][165][167] [146][165] [183][208]   [146][165] [163][163] [167]"
  130. 1200 print"    [165][167] [146]   [165]  [146][167] [167] [146][165][167]  [146][165][167] [146][165] [175][186]   [146][165]   [164][186]"
  131. 1210 print"    [165][167] [146]   [165] [169][208] [167] [146][165][167][169][223][165][167] [146][165] [165] [183][205] [146][165][167][205] [205]"
  132. 1220 print"    [165][167] [146]   [165] [183][183] [167] [146][165]    [167] [146][165] [183][183][183][208] [146][165][167] [205] [205]"
  133. 1230 print"    [204][186][169]   [204][175][175][175][175][186][169][204][175][206][205][175][186][223][204][175][175][175][175][186][223][204][186]  [205][186]"
  134. 1240 fora=1to13:print"                                       ":nexta
  135. 1250 print""
  136. 1260 forfa=6to2step-1
  137. 1270 fora=0to(11-(fa-2)*2)*40
  138. 1280 pokeco+a,fa
  139. 1290 nexta
  140. 1300 nextfa
  141. 1310 print"";:rem txt-farbe
  142. 1320 print""tab(11)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  143. 1330 print"       ***  von   m. schwi  ***"
  144. 1350 print""
  145. 1360 ifq=1goto1430
  146. 1370 x=0:fori=24576to24896
  147. 1380 reada:pokei,a:x=x+a
  148. 1390 next:ifx<>42376thenprint"fehler in datenblock 2":end
  149. 1400 x=0:fori=25344to26224
  150. 1410 reada:pokei,a:x=x+a
  151. 1420 next:q=1:ifx<>94355thenprint"fehler in datenblock 3":end
  152. 1430 print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  153. 1440 print"  brauchst du eine anleitung? (j/n)  [146] ";:poke204,0:poke198,0
  154. 1450 geta$:ifa$=""then1450
  155. 1460 ifa$="j"then1490
  156. 1470 poke204,1:print"[147]";:goto1740
  157. 1480 printtab(12)"[221] [221] [221] [221] [221] [221][160][221] [221]"
  158. 1490 poke204,1:print"[147]"
  159. 1500 print" bei diesem spiel muessen zwei    "
  160. 1510 print" spieler versuchen 4 ihrer chips in"
  161. 1520 print" horizontaler, vertikaler oder   "
  162. 1530 print" diagonaler anordnung auf dem feld"
  163. 1540 print" zu plazieren. wer das schafft, ist "
  164. 1550 print" der sieger."
  165. 1560 print
  166. 1570 printtab(19)" a b c d e f g"
  167. 1580 fora=1to6
  168. 1590 printtab(19)"[171][192][219][192][219][192][219][192][219][192][219][192][219][192][179]"
  169. 1600 nexta
  170. 1610 printtab(19)"[173][192][177][192][177][192][177][192][177][192][177][192][177][192][189]"
  171. 1620 print"[145][145][145][145][145] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  172. 1630 print"  das spielfeld "
  173. 1640 print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  174. 1650 print" druecke eine taste !"
  175. 1660 poke198,0
  176. 1670 geta$:ifa$=""then1670
  177. 1680 print"[147]"spc(15)"[164][164][164][164][164][164][164][164][164]"
  178. 1690 printspc(15)"t o w e r[146]"
  179. 1700 print"";
  180. 1710 print" zur bestimmung der chip-position "
  181. 1720 print" drueckst du die  entsprechende taste"
  182. 1730 print" deines c-64. viel spass!"
  183. 1740 print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  184. 1750 print" hast du einen spielpartner ? (j/n)[146] ";:poke204,0
  185. 1760 poke198,0:open1,0
  186. 1770 geta$:ifa$=""then1770
  187. 1780 z=0:ifa$="n"thenz=1:goto1810
  188. 1790 ifa$="j"then1810
  189. 1800 goto1770
  190. 1810 poke204,1:print" [159]":ifz=1thenprint" ok,ich bin ein fairer partner!"
  191. 1820 print" wie heisst du : ";:input#1,z1$:print:z1$=left$(z1$+"        ",9)
  192. 1830 ifz=0thenprint" & dein partner : ";:input#1,z2$:print:z2$=left$(z2$+"        ",9)
  193. 1840 ifz=1thenz2$="c b m    "
  194. 1850 z1$="[153]"+z1$:z2$="[154]"+z2$
  195. 1860 print" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  196. 1870 print"  druecke eine taste [146]"
  197. 1880 poke198,0
  198. 1890 geta$:ifa$=""then1890
  199. 1900 close1:return
  200. 1910 rem von 40474 bis 40952
  201. 1920 data  0,  0,  0,  0,  8,  0, 10,101,  0,  0,  0,  0,  0, 11, 80,  0,  0,  0
  202. 1930 data  0,  0,  0,240,  0,  0,  0,  0,  0,162, 14, 20,162, 14, 40,109, 16, 20
  203. 1940 data103, 17, 40,237, 21, 20,137, 19, 20,162, 14, 40,103, 17, 40, 69, 29, 20
  204. 1950 data 69, 29, 40, 69, 29, 20, 20, 26, 30,237, 21, 10,137, 19, 20,237, 21,100
  205. 1960 data 69, 29, 20, 69, 29, 40, 69, 29, 20, 20, 26, 30,237, 21, 10,137, 19, 29
  206. 1970 data137, 19,  1,162, 14, 20,162, 14, 10,162, 14, 20,103, 17, 40,162, 14, 20
  207. 1980 data162, 14, 40,237, 21, 20,237, 21, 20,137, 19, 30,103, 17, 10,162, 14,100
  208. 1990 data  0,247, 10, 80, 10, 13, 60,162, 14, 60,103, 17, 60,237, 21, 60,207, 34
  209. 2000 data 60,109, 16,120,247, 10, 60, 10, 13, 60,162, 14, 60,103, 17, 60,247, 10
  210. 2010 data 60,109, 16, 60,247, 10,120,  0,  0,181,  8, 80,248, 10, 60, 79, 12, 60
  211. 2020 data163, 14, 60,208, 34, 60,238, 21, 60,197,  9,120,181,  8, 60,248, 10, 60
  212. 2030 data 79, 12, 60,163, 14, 60,248, 10, 60,110, 16, 60,248, 10, 50,248, 10, 10
  213. 2040 data110, 16, 10,104, 17, 10,110, 16, 10,248, 10, 10,  0,  0,169,  1,141, 21
  214. 2050 data158,141, 16,158,141, 17,158,169,253,141, 18,158,141, 19,158,141, 20,158
  215. 2060 data162, 24,189, 27,158,157,  0,212,202, 16,247,120,169, 72,141, 20,  3,169
  216. 2070 data159,141, 21,  3, 88, 96, 96, 96,162, 24,169,  0,157,  0,212,202, 16,250
  217. 2080 data120,169, 49,141, 20,  3,169,234,141, 21,  3, 88, 96, 96,169, 15,141, 24
  218. 2090 data212,234,206, 21,158,208, 72,238, 18,158,238, 18,158,238, 18,158,173, 18
  219. 2100 data158,201, 99,240, 32,170,169, 64,141,  4,212,189, 53,158,141,  0,212,189
  220. 2110 data 54,158,141,  1,212,189, 55,158,141, 21,158,169, 65,141,  4,212, 24,144
  221. 2120 data 24,169,253,141, 18,158,141, 19,158,141, 20,158,169,  1,141, 21,158,141
  222. 2130 data 16,158,141, 17,158,208, 90,206, 16,158,208, 40,169, 32,141, 11,212,238
  223. 2140 data 19,158,238, 19,158,238, 19,158,174, 19,158,189,153,158,141,  7,212,189
  224. 2150 data154,158,141,  8,212,189,155,158,141, 16,158,169, 33,141, 11,212,206, 17
  225. 2160 data158,208, 40,169, 16,141, 18,212,238, 20,158,238, 20,158,238, 20,158,174
  226. 2170 data 20,158,189,197,158,141, 14,212,189,198,158,141, 15,212,189,199,158,141
  227. 2180 data 17,158,169, 17,141, 18,212, 76, 49,234,  0
  228. 2190 rem von 24576 bis 24896 datenblock 2
  229. 2200 data162,  0,169, 98,141, 14, 96,165,248,141, 13, 96,173,255,255,197,247,240
  230. 2210 data 12,232,224,  4,240, 39, 24,238, 13, 96, 76, 12, 96,160,  0,173, 13, 96
  231. 2220 data141, 49, 96,169, 98,141, 50, 96,238, 49, 96,200,173,255,255,197,247,208
  232. 2230 data220,192,  3,240,  3, 76, 44, 96, 96,162,  0,169, 98,141, 77, 96,165,249
  233. 2240 data141, 76, 96,173,255,255,197,247,240, 17,232,224,  4,240, 50, 24,173, 76
  234. 2250 data 96,105, 16,141, 76, 96, 76, 75, 96,160,  0,173, 76, 96,141,123, 96,169
  235. 2260 data 98,141,124, 96, 24,173,123, 96,105, 16,141,123, 96,200,173,255,255,197
  236. 2270 data247,208,209,192,  3,240,  3, 76,112, 96, 96,162,  0,169, 98,141,151, 96
  237. 2280 data169,  0,141,150, 96,173,255,255,197,247,240, 30,232,224,  4,240,  7, 24
  238. 2290 data238,150, 96, 76,149, 96, 24,173,150, 96,105, 13,201, 64,240, 46,141,150
  239. 2300 data 96,162,  0, 76,149, 96,160,  0,173,150, 96,141,210, 96,169, 98,141,211
  240. 2310 data 96, 24,173,210, 96,105, 17,141,210, 96,200,173,255,255,197,247,208,196
  241. 2320 data192,  3,240,  3, 76,199, 96, 96,162,  0,169, 98,141,238, 96,169,  6,141
  242. 2330 data237, 96,173,255,255,197,247,240, 30,232,224,  4,240,  7, 24,206,237, 96
  243. 2340 data 76,236, 96, 24,173,237, 96,105, 19,201, 70,240, 46,141,237, 96,162,  0
  244. 2350 data 76,236, 96,160,  0,173,237, 96,141, 41, 97,169, 98,141, 42, 97, 24,173
  245. 2360 data 41, 97,105, 15,141, 41, 97,200,173,255,255,197,247,208,196,192,  3,240
  246. 2370 data  3, 76, 30, 97, 96,169,  0,133,247, 96,170,119,145,191,  0
  247. 2380 rem von 25344 bis 26224 datenblock 3
  248. 2390 data 15, 21, 29, 35, 42, 46, 47,170,170,170,170,170,170,170,170,170,  7, 12
  249. 2400 data 20, 26, 34, 39, 43,170,170,170,170,170,170,170,170,170,  2,  6, 11, 17
  250. 2410 data 25, 31, 38,170,170,170,170,170,170,170,170,170,  0,  1,  4,  9, 16, 23
  251. 2420 data 30,170,170,170,170,170,170,170,170,170,  3,  5, 10, 18, 24, 32, 37,170
  252. 2430 data170,170,170,170,170,170,170,170,  8, 13, 19, 27, 33, 40, 44,170,170,170
  253. 2440 data170,170,170,170,170,170, 14, 22, 28, 36, 41, 45, 48,170,170,170,170,170
  254. 2450 data170,170,170,170,169,  0,141,111, 99,141, 95, 99,141,107, 99,173, 95, 99
  255. 2460 data 10, 10, 10, 10,170,189,  8, 99,201,  7,240, 55, 24,133,249,142,156, 99
  256. 2470 data109,156, 99,141,156, 99,141,168, 99,169,  2,141,255, 98,133,247,134,248
  257. 2480 data 32,  0, 96,169,  0,141,255, 98,165,247,201,  2,208, 17, 24,173, 95, 99
  258. 2490 data105,  1,141,111, 99,169,  7,141, 95, 99, 76,196, 99,238, 95, 99,169,  7
  259. 2500 data205, 95, 99,240,  3, 76,123, 99,173,111, 99,201,  0,240,  3,133,247, 96
  260. 2510 data169,  0,141, 95, 99,173, 95, 99, 10, 10, 10, 10,170,169,  0,157,  9, 99
  261. 2520 data169,  7,157, 10, 99,238, 95, 99,169,  7,205, 95, 99,208,228,169,  0,141
  262. 2530 data 95, 99,173, 95, 99, 10, 10, 10, 10,170,189,  8, 99,141,109, 99,201,  7
  263. 2540 data208, 11,169,  0,157,  9, 99,157, 10, 99, 76, 14,101,142, 49,100, 24,168
  264. 2550 data109, 49,100,141, 49,100,141,254,100,200,152,157,  8, 99,169,  2,141,255
  265. 2560 data 98,169,  0,141,107, 99,173,107, 99, 10, 10, 10, 10,170,189,  8, 99,141
  266. 2570 data110, 99,201,  7,208,  3, 76,238,100,142,101,100, 24,168,133,249,109,101
  267. 2580 data100,141,101,100,141,221,100,200,152,157,  8, 99,169,  1,141,255, 98,133
  268. 2590 data247,134,248, 32,  0, 96,173, 95, 99, 10, 10, 10, 10,170,165,247,201,  1
  269. 2600 data208,  9, 56,189, 10, 99,233,  1,157, 10, 99,169,  0,141,108, 99,173,108
  270. 2610 data 99, 10, 10, 10, 10,170,189,  8, 99,201,  7,240, 55,142,171,100, 24,133
  271. 2620 data249,109,171,100,141,171,100,141,183,100,169,  2,141,255, 98,133,247,134
  272. 2630 data248, 32,  0, 96,169,  0,141,255, 98,165,247,201,  2,208, 17,173, 95, 99
  273. 2640 data 10, 10, 10, 10,170, 24,189,  9, 99,105,  1,157,  9, 99,238,108, 99,169
  274. 2650 data  7,205,108, 99,208,176,169,  0,141,255, 98,173,107, 99, 10, 10, 10, 10
  275. 2660 data170, 24,173,110, 99,157,  8, 99,238,107, 99,169,  7,205,107, 99,240,  3
  276. 2670 data 76, 56,100,169,  0,141,255, 98,173, 95, 99, 10, 10, 10, 10,170,173,109
  277. 2680 data 99,157,  8, 99,238, 95, 99,169,  7,205, 95, 99,240,  3, 76,254, 99,169
  278. 2690 data  0,133,247,234,169,  0,141,107, 99,141,108, 99,173, 10, 99,141,110, 99
  279. 2700 data169,  1,141, 95, 99,173, 95, 99, 10, 10, 10, 10,170,189, 10, 99,205,110
  280. 2710 data 99,240,  8,176,  3, 76, 75,101,141,110, 99,238, 95, 99,169,  7,205, 95
  281. 2720 data 99,240,  3, 76, 51,101,169,  0,141,109, 99,141, 95, 99,173, 95, 99, 10
  282. 2730 data 10, 10, 10,170, 24,189, 10, 99,109,109, 99,141,109, 99,238, 95, 99,169
  283. 2740 data  7,205, 95, 99,240,  3, 76, 96,101,173,109, 99,201,  0,208, 31,169,  0
  284. 2750 data141, 95, 99,173, 95, 99, 10, 10, 10, 10,170,169,  1,157, 10, 99,238, 95
  285. 2760 data 99,169,  7,205, 95, 99,240,  3, 76,139,101,169,  0,141,108, 99,141, 95
  286. 2770 data 99,173, 95, 99, 10, 10, 10, 10,170,189,  9, 99,205,108, 99,240, 19,176
  287. 2780 data  3, 76,208,101,189, 10, 99,205,110, 99,208,  6,189,  9, 99,141,108, 99
  288. 2790 data238, 95, 99,169,  7,205, 95, 99,240,  3, 76,173,101,169,  0,141, 95, 99
  289. 2800 data173, 95, 99, 10, 10, 10, 10,170,189,  9, 99,205,108, 99,208, 16,189, 10
  290. 2810 data 99,205,110, 99,208,  8,169,  1,157,  9, 99, 76,  7,102,169,  0,157,  9
  291. 2820 data 99,238, 95, 99,169,  7,205, 95, 99,240,  3, 76,226,101,169,  0,141,109
  292. 2830 data 99,141, 95, 99,173, 95, 99, 10, 10, 10, 10,170, 24,189,  9, 99,109,109
  293. 2840 data 99,141,109, 99,238, 95, 99,169,  7,205, 95, 99,240,  3, 76, 28,102,173
  294. 2850 data109, 99,201,  0,208, 31,169,  0,141, 95, 99,173, 95, 99, 10, 10, 10, 10
  295. 2860 data170,169,  1,157,  9, 99,238, 95, 99,169,  7,205, 95, 99,240,  3, 76, 71
  296. 2870 data102, 96,  0,170,170,170,170,  0, 69, 69,  0,186, 69,217,  0,  5,  0
  297.