home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_86-08_1986_Verlag_Heinz_Weise_de.d64 / gobang (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  22KB  |  803 lines
  1. 0 ifpeek(50307)<>120then2
  2. 1 poke50257,16
  3. 2 printchr$(142):printchr$(8)
  4. 3 u=54272:fori=0to24:pokeu+i,0:next:pokeu+1,130:pokeu+5,9:pokeu+15,30
  5. 4 poke646,14:gosub1512
  6. 10 dimb(35,36):d=0:dimt(11):dimtc(80):dimtb(80)
  7. 12 print"[144][147]":y=122:x=100
  8. 14 goto28
  9. 16 gosub34:q1=2:print""spc(28)"der 1. zug"
  10. 18 printspc(28)"beginnt in"
  11. 20 printspc(28)"der mitte"
  12. 22 printspc(28)"des feldes[146]"
  13. 24 poke53265,peek(53265)or16:poke53281,14:poke53280,0 :return
  14. 28 poke53265,peek(53265)and239:print"";:fori=1to24
  15. 30 print"[208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208]            ":nexti
  16. 32 print"[208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208][208]";:v=53248:goto44
  17. 34 ifq1=0thenprint"";:goto38
  18. 36 return
  19. 38 print"";: forq=1to24
  20. 40 printspc(26)"[155]              [146]";
  21. 42 nextq:printspc(26)"             [146][157][145]":poke2023,224
  22. 43 poke2023,160:poke56295,15:print"";:return:rem   #
  23. 44 pokev+29,1:pokev+23,1:poke2040,13:pokev+39,0:pokev,x:pokev+1,y
  24. 46 fori=0to62:reads:poke832  +i,s:next
  25. 52 fori=1to100:nexti
  26. 54 pokev+21,1
  27. 56 ifd=0thengosub16:a=peek(56320):a=abs(127-a):getj$:goto70
  28. 58 ifd=2thengosub34:q1=2:d=3:gosub1800
  29. 60 a=peek(56320):a=abs(127-a)
  30. 61 getj$
  31. 62 j1=j1+1:ifj1>08thenpokev+21,1andnotpeek(v+21):j1=0
  32. 64 ifa=1orj$=chr$(145)goto74
  33. 65 ifa=8orj$=chr$(29)goto78
  34. 66 ifa=2orj$=chr$(17)goto82
  35. 68 ifa=4orj$=chr$(157)goto86
  36. 70 ifa>10orj$=chr$(13)thenpokev+21,0:gosub1900:goto90
  37. 72 goto56
  38. 74 y=y-8:ify<34theny=34
  39. 76 pokev+1,y:goto52
  40. 78 x=x+8:ifx>204thenx=204
  41. 80 pokev,x:goto52
  42. 82 y=y+8:ify>226theny=226
  43. 84 pokev+1,y:goto52
  44. 86 x=x-8:ifx<4 thenx=4
  45. 88 pokev,x:goto52
  46. 90 z=1024+int(x/8)+40*((y-34)/8)
  47. 92 ifpeek(z)=80then96
  48. 94 goto52
  49. 96 pokez+54272,1:pokez,81
  50. 98 e=int((z-983)/40)
  51. 100 f=z-(983+(e*40))
  52. 102 e=e+5:f=f+5:b(e,f)=1
  53. 104 d=d+1
  54. 106 gosub110:goto130
  55. 110 ifd=1thene1=e:e2=e:f1=f:f2=f:goto128
  56. 112 ife>e1ore=e1then116
  57. 114 e1=e:goto120
  58. 116 ife<e2ore=e2then120
  59. 118 e2=e
  60. 120 iff>f1orf=f1then124
  61. 122 f1=f:goto128
  62. 124 iff<f2orf=f2then128
  63. 126 f2=f
  64. 128 return
  65. 130 fore=e1toe2:forf=f1tof2
  66. 132 ifb(e,f)>0thengosub184
  67. 133 nextf:nexte
  68. 134 forwx=11to1step-1
  69. 136 ift(wx)>0thenko=ko+1:goto142
  70. 138 nextwx
  71. 140 goto 52
  72. 142 e=int((t(wx)-983)/40):f=t(wx)-(983+(e*40)):e=e+5:f=f+5:b(e,f)=8
  73. 144 d=2:gosub110
  74. 146 forj=1to3
  75. 148 poket(wx),80:poket(wx)+54272,0
  76. 150 fori=1to500:next
  77. 152 poket(wx),87:poket(wx)+54272,0
  78. 154 fori=1to500:next
  79. 156 nextj
  80. 158 pokeu+24,14:pokeu+4,0:pokeu+4,21
  81. 160 ee=int((z-983)/40):ff=z-(983+(ee*40))
  82. 162 ife<eetheny=y-((ee-e)*8):goto166
  83. 164 y=y+((e-ee)*8)
  84. 166 iff<ffthenx=x-((ff-f)*8):goto170
  85. 168 x=x+((f-ff)*8)
  86. 170 x=x-40:y=y-40:pokev+1,y:pokev,x
  87. 172 ifwx=11thengosub682
  88. 174 forwx=11to0step-1
  89. 176 t(wx)=0:tc(wx)=0:tb(wx)=0:nextwx
  90. 178 bl=0:bx=0:cl=0:cx=0:k3=0:goto52
  91. 184 :
  92. 186 g=0:fori=0to4:g=g+b(e,f+i):nexti
  93. 188 onggoto234,224,216,204,198
  94. 190 on(g-7)goto232,236,226,222,206
  95. 192 on(g-15)goto228,230,236,220
  96. 194 on(g-23)goto208,214,212
  97. 196 on(g-31)goto200,202
  98. 198 gosub696
  99. 200 we=11:gosub406:goto236
  100. 202 we=11:gosub536:goto236
  101. 204 we=10:gosub406:goto236
  102. 206 we=10:gosub468:goto236
  103. 208 we=9 :gosub434
  104. 210 we=8:gosub710:goto236
  105. 212 we=8:gosub746:goto236
  106. 214 we=8:gosub778:goto236
  107. 216 we=6:gosub1208
  108. 218 we=7:gosub434:goto236
  109. 220 we=6:gosub936:goto236
  110. 222 we=6:gosub968:goto236
  111. 224 we=6:gosub858:goto236
  112. 226 we=6:gosub1328:goto236
  113. 228 we=5:gosub560:goto236
  114. 230 we=5:gosub1120:goto236
  115. 232 we=3:gosub624:goto236
  116. 234 we=2:et=e:ft=f+1:gosub640
  117. 236 :
  118. 238 g=0:fori=0to4
  119. 240 g=g+b(e-i,f)
  120. 242 nexti
  121. 244 onggoto290,280,272,260,254
  122. 246 on(g-7) goto288,292,282,278,262
  123. 248 on(g-15)goto284,286,292,276
  124. 250 on(g-23)goto264,270,268
  125. 252 on(g-31)goto256,258
  126. 254 gosub696
  127. 256 we=11:gosub412:goto292
  128. 258 we=11:gosub542:goto292
  129. 260 we=10:gosub412:goto292
  130. 262 we=10:gosub484:goto292
  131. 264 we=9:gosub442
  132. 266 we=8:gosub718:goto292
  133. 268 we=8:gosub754:goto292
  134. 270 we=8:gosub798:goto292
  135. 272 we=6:gosub1238
  136. 274 we=7:gosub442:goto292
  137. 276 we=6:gosub944:goto292
  138. 278 we=6:gosub1006:goto292
  139. 280 we=6:gosub878:goto292
  140. 282 we=6:gosub1374:goto292
  141. 284 we=5:gosub576:goto292
  142. 286 we=5:gosub1142:goto292
  143. 288 we=3:gosub628:goto292
  144. 290 we=2:et=e-1:ft=f:gosub640
  145. 292 :
  146. 294 g=0:fori=0to4:rem ---------------------diagonal nach rechts oben-----------
  147. 296 g=g+b(e-i,f+i)
  148. 298 nexti
  149. 300 on   g  goto346,336,328,316,310
  150. 302 on(g-7) goto344,348,338,334,318
  151. 304 on(g-15)goto340,342,348,332
  152. 306 on(g-23)goto320,326,324
  153. 308 on(g-31)goto312,314
  154. 310 gosub696
  155. 312 we=11:gosub418:goto348
  156. 314 we=11:gosub548:goto348
  157. 316 we=10:gosub418:goto348
  158. 318 we=10:gosub500:goto348
  159. 320 we=9:gosub450
  160. 322 we=8:gosub726:goto348
  161. 324 we=8:gosub762:goto348
  162. 326 we=8:gosub818:goto348
  163. 328 we=6:gosub1268
  164. 330 we=7:gosub450:goto348
  165. 332 we=6:gosub952:goto348
  166. 334 we=6:gosub1044:goto348
  167. 336 we=6:gosub898:goto348
  168. 338 we=6:gosub1420:goto348
  169. 340 we=5:gosub592:goto348
  170. 342 we=5:gosub1164:goto348
  171. 344 we=3:gosub632:goto348
  172. 346 we=2:et=e-1:ft=f+1:gosub640
  173. 348 :
  174. 350 g=0:fori=0to4
  175. 352 g=g+b(e-i,f-i)
  176. 354 nexti
  177. 356 onggoto402,388,382,372,366
  178. 358 on(g-7)goto400,404,392,394,374
  179. 360 on(g-15)goto396,398,404,390
  180. 362 on(g-23)goto376,384,380
  181. 364 on(g-31)goto368,370
  182. 366 gosub696
  183. 368 we=11:gosub424:return
  184. 370 we=11:gosub554:return
  185. 372 we=10:gosub424:return
  186. 374 we=10:gosub516:return
  187. 376 we=9:gosub458
  188. 378 we=8:gosub734
  189. 380 we=8:gosub770:return
  190. 382 we=6:gosub1298:goto386
  191. 384 we=8:gosub838:return
  192. 386 we=7:gosub458:return
  193. 388 we=6:gosub918:return
  194. 390 we=6:gosub960:return
  195. 392 we=6:gosub1466:return
  196. 394 we=6:gosub1082:return
  197. 396 we=5:gosub608:return
  198. 398 we=5:gosub1186:return
  199. 400 we=3:gosub636:return
  200. 402 we=2:et=e-1:ft=f-1:gosub640
  201. 404 return
  202. 406 ifb(e,f-1)=0andb(e,f+4)=0thenet=e:ft=f-1:gosub640:return
  203. 407 forh=0to4
  204. 408 ifb(e,f+h)=0thenet=e:ft=f+h:gosub640
  205. 410 nexth:return
  206. 412 ifb(e+1,f)=0andb(e-4,f)=0thenet=e+1:ft=f:gosub640:return
  207. 413 forh=0to4
  208. 414 ifb(e-h,f)=0thenet=e-h:ft=f:gosub640
  209. 416 nexth:return
  210. 418 ifb(e+1,f-1)=0andb(e-4,f+4)=0thenet=e+1:ft=f-1:gosub640:return
  211. 419 forh=0to4
  212. 420 ifb(e-h,f+h)=0thenet=e-h:ft=f+h:gosub640
  213. 422 nexth:return
  214. 424 ifb(e+1,f+1)=0andb(e-4,f-4)=0thenet=e+1:ft=f+1:gosub640:return
  215. 425 forh=0to4
  216. 426 ifb(e-h,f-h)=0thenet=e-h:ft=f-h:gosub640
  217. 428 nexth:return
  218. 434 ifb(e,f-1)+b(e,f+4)+b(e,f+3)=0thenet=e:ft=f+3:gosub640:return
  219. 436 ifb(e,f-1)+b(e,f+1)+b(e,f+4)=0thenet=e:ft=f+1:gosub640:return
  220. 438 ifb(e,f-1)+b(e,f+2)+b(e,f+4)=0thenet=e:ft=f+2:gosub640:return
  221. 440 return
  222. 442 ifb(e+1,f)+b(e-4,f)+b(e-3,f)=0thenet=e-3:ft=f:gosub640:return
  223. 444 ifb(e+1,f)+b(e-1,f)+b(e-4,f)=0thenet=e-1:ft=f:gosub640:return
  224. 446 ifb(e+1,f)+b(e-2,f)+b(e-4,f)=0thenet=e-2:ft=f:gosub640:return
  225. 448 return
  226. 450 ifb(e+1,f-1)+b(e-4,f+4)+b(e-3,f+3)=0then et=e-3:ft=f+3:gosub640:return
  227. 452 ifb(e+1,f-1)+b(e-1,f+1)+b(e-4,f+4)=0then et=e-1:ft=f+1:gosub640:return
  228. 454 ifb(e+1,f-1)+b(e-2,f+2)+b(e-4,f+4)=0then et=e-2:ft=f+2:gosub640:return
  229. 456 return
  230. 458 ifb(e+1,f+1)+b(e-3,f-3)+b(e-4,f-4)=0then et=e-3:ft=f-3:gosub640:return
  231. 460 ifb(e+1,f+1)+b(e-1,f-1)+b(e-4,f-4)=0then et=e-1:ft=f-1:gosub640:return
  232. 462 ifb(e+1,f+1)+b(e-2,f-2)+b(e-4,f-4)=0then et=e-2:ft=f-2:gosub640:return
  233. 464 return
  234. 468 ifb(e,f-1)+b(e,f+4)=8thenet=e:ft=f-1:gosub640:return
  235. 470 ifb(e,f-1)+b(e,f+3)=8goto480
  236. 472 ifb(e,f+1)=8andb(e,f+5)=0goto476
  237. 474 return
  238. 476 ifb(e,f+6)=0thenwe=6:et=e:ft=f+6:gosub640:et=e:ft=f+5:gosub640:return
  239. 478 return
  240. 480 ifb(e,f-2)=0thenwe=6:et=e:ft=f-2:gosub640:et=e:ft=f-1:gosub640:return
  241. 482 return
  242. 484 ifb(e+1,f)+b(e-4,f)=8thenet=e+1:ft=f:gosub640:return
  243. 486 ifb(e+1,f)+b(e-3,f)=8goto496
  244. 488 ifb(e-1,f)=8andb(e-5,f)=0goto492
  245. 490 return
  246. 492 ifb(e-6,f)=0thenwe=6:et=e-6:ft=f:gosub640:et=e-5:ft=f:gosub640:return
  247. 494 return
  248. 496 ifb(e+2,f)=0thenwe=6:et=e+2:ft=f:gosub640:et=e+1:ft=f:gosub640:return
  249. 498 return
  250. 500 ifb(e+1,f-1)+b(e-4,f+4)=8thenet=e+1:ft=f-1:gosub640:return
  251. 502 ifb(e+1,f-1)+b(e-3,f+3)=8goto512
  252. 504 ifb(e-1,f+1)=8andb(e-5,f+5)=0goto508
  253. 506 return
  254. 508 ifb(e-6,f+6)=0thenwe=6:et=e-6:ft=f+6:gosub640:et=e-5:ft=f+5:gosub640:return
  255. 510 return
  256. 512 ifb(e+2,f-2)=0thenwe=6:et=e+2:ft=f-2:gosub640:et=e+1:ft=f-1:gosub640:return
  257. 514 return
  258. 516 ifb(e+1,f+1)+b(e-4,f-4)=8thenet=e+1:ft=f+1:gosub640:return
  259. 518 ifb(e+1,f+1)+b(e-3,f-3)=8goto528
  260. 520 ifb(e-1,f-1)=8andb(e-5,f-5)=0goto524
  261. 522 return
  262. 524 ifb(e-6,f-6)=0thenwe=6:et=e-6:ft=f-6:gosub640:et=e-5:ft=f-5:gosub640:return
  263. 526 return
  264. 528 ifb(e+2,f+2)=0thenwe=6:et=e+2:ft=f+2:gosub640:et=e+1:ft=f+1:gosub640:return
  265. 530 return
  266. 536 ifb(e,f-1)+b(e,f+4)=1thenet=e:ft=f-1:gosub640:return
  267. 538 ifb(e,f-1)+b(e,f+3)=1thenwe=8:et=e:ft=f-1:gosub640
  268. 540 return
  269. 542 ifb(e+1,f)+b(e-4,f)=1thenet=e+1:ft=f:gosub640:return
  270. 544 ifb(e+1,f)+b(e-3,f)=1thenwe=8:et=e+1:ft=f:gosub640
  271. 546 return
  272. 548 ifb(e+1,f-1)+b(e-4,f+4)=1thenet=e+1:ft=f-1:gosub640:return
  273. 550 ifb(e+1,f-1)+b(e-3,f+3)=1thenwe=8:et=e+1:ft=f-1:gosub640
  274. 552 return
  275. 554 ifb(e+1,f+1)+b(e-4,f-4)=1thenet=e+1:ft=f+1:gosub640:return
  276. 556 ifb(e+1,f+1)+b(e-3,f-3)=1thenwe=8:et=e+1:ft=f+1:gosub640
  277. 558 return
  278. 560 ifb(e,f-1)<>0thenreturn
  279. 562 ifb(e,f+1)=8thenet=e:ft=f+2:gosub640:et=e:ft=f+3:gosub640:goto568
  280. 564 ifb(e,f+2)=8thenet=e:ft=f+1:gosub640:et=e:ft=f+3:gosub640:goto568
  281. 566 ifb(e,f+3)=8thenet=e:ft=f+1:gosub640:et=e:ft=f+2:gosub640
  282. 568 ifb(e,f-2)<>0thenreturn
  283. 570 ifb(e,f+1)orb(e,f+2)=8thenet=e:ft=f-1:gosub640
  284. 572 ifb(e,f-3)andb(e,f+1)=8thenet=e:ft=f-2:gosub640
  285. 574 return
  286. 576 ifb(e+1,f)<>0thenreturn
  287. 578 ifb(e-1,f)=8thenet=e-2:ft=f:gosub640:et=e-3:ft=f:gosub640:goto584
  288. 580 ifb(e-2,f)=8thenet=e-1:ft=f:gosub640:et=e-3:ft=f:gosub640:goto584
  289. 582 ifb(e-3,f)=8thenet=e-1:ft=f:gosub640:et=e-2:ft=f:gosub640
  290. 584 ifb(e+2,f)<>0thenreturn
  291. 586 ifb(e-1,f)orb(e-2,f)=8thenet=e+1:ft=f:gosub640
  292. 588 ifb(e+3,f)andb(e-1,f)=8thenet=e+2:ft=f:gosub640
  293. 590 return
  294. 592 ifb(e+1,f-1)<>0thenreturn
  295. 594 ifb(e-1,f+1)=8thenet=e-2:ft=f+2:gosub640:et=e-3:ft=f+3:gosub640:goto600
  296. 596 ifb(e-2,f+2)=8thenet=e-1:ft=f+1:gosub640:et=e-3:ft=f+3:gosub640:goto600
  297. 598 ifb(e-3,f+3)=8thenet=e-1:ft=f+1:gosub640:et=e-2:ft=f+2:gosub640
  298. 600 ifb(e+2,f-2)<>0thenreturn
  299. 602 ifb(e-1,f+1)orb(e-2,f+2)=8thenet=e+1:ft=f-1:gosub640
  300. 604 ifb(e+3,f-3)andb(e-1,f+1)=8thenet=e+2:ft=f-2:gosub640
  301. 606 return
  302. 608 ifb(e+1,f+1)<>0thenreturn
  303. 610 ifb(e-1,f-1)=8thenet=e-2:ft=f-2:gosub640:et=e-3:ft=f-3:gosub640:goto616
  304. 612 ifb(e-2,f-2)=8thenet=e-1:ft=f-1:gosub640:et=e-3:ft=f-3:gosub640:goto616
  305. 614 ifb(e-3,f-3)=8thenet=e-1:ft=f-1:gosub640:et=e-2:ft=f-2:gosub640
  306. 616 ifb(e+2,f+2)<>0thenreturn
  307. 618 ifb(e-1,f-1)orb(e-2,f-2)=8thenet=e+1:ft=f+1:gosub640
  308. 620 ifb(e+3,f+3)andb(e-1,f-1)=8thenet=e+2:ft=f+2:gosub640
  309. 622 return
  310. 624 ifb(e,f-1)=0thenet=e:ft=f+1:gosub640:return
  311. 626 return
  312. 628 ifb(e+1,f)=0thenet=e-1:ft=f:gosub640:return
  313. 630 return
  314. 632 ifb(e+1,f-1)=0thenet=e-1:ft=f+1:gosub640:return
  315. 634 return
  316. 636 ifb(e+1,f+1)=0thenet=e-1:ft=f-1:gosub640:return
  317. 638 return
  318. 640 ifb(et,ft)<>0thenreturn
  319. 641 print""spc(28)""et:ifet<6oret>30orft<6orft>31thenreturn
  320. 642 onwegoto1706,646,648,1706,652,664,643,676,678,644,680
  321. 643 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
  322. 644 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
  323. 646 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
  324. 648 ifk3=5thenreturn
  325. 650 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
  326. 652 ifbx=8then return
  327. 654 bl=bl+1:tb(bl)=983+(et*40)+ft:tb(bl)=tb(bl)-205
  328. 656 fori=bl-1to0step-1
  329. 658 iftb(bl)=tb(i)thent(we)=tb(bl):bx=8
  330. 660 nexti:ifbx=8thenreturn
  331. 662 t(we)=tb(bl):return
  332. 664 ifcx=8thenreturn
  333. 666 cl=cl+1:tc(cl)=983+(et*40)+ft:tc(cl)=tc(cl)-205:t(3)=tc(cl):k3=5
  334. 668 fori=cl-1to0step-1
  335. 670 iftc(cl)=tc(i)thent(we)=tc(cl):cx=8
  336. 672 nexti:ifcx=8thenreturn
  337. 674 t(we)=0:return
  338. 676 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
  339. 678 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
  340. 680 t(we)=983+(et*40)+ft:t(we)=t(we)-205:return
  341. 682 q1=0:pokeu+24,15:pokeu+4,21:poke198,0
  342. 684 print"[144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  343. 686 print"[194]sie haben verloren[144][194]"
  344. 688 print"[144][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  345. 690 ifpeek(56320)<112goto708
  346. 692 print"[154]";:geta$:ifa$=""then690
  347. 694 run
  348. 696 q1=0:pokeu+24,15:pokeu+4,21:poke198,0
  349. 698 print"[144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  350. 700 print"[194]sie haben gewonnen[144][194]"
  351. 702 print"[144][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  352. 704 ifpeek(56320)<112goto708
  353. 706 print"[154]";:geta$:ifa$=""then704
  354. 708 run
  355. 710 ifb(e,f-1)=1andb(e,f+4)+b(e,f+3)=0then et=e:ft=f+3:gosub640:return
  356. 712 ifb(e,f-1)=1andb(e,f+1)+b(e,f+4)=0then et=e:ft=f+1:gosub640:return
  357. 714 ifb(e,f-1)=1andb(e,f+2)+b(e,f+4)=0then et=e:ft=f+2:gosub640:return
  358. 716 return
  359. 718 ifb(e+1,f)=1andb(e-4,f)+b(e-3,f)=0then et=e-3:ft=f:gosub640:return
  360. 720 ifb(e+1,f)=1andb(e-1,f)+b(e-4,f)=0then et=e-1:ft=f:gosub640:return
  361. 722 ifb(e+1,f)=1andb(e-2,f)+b(e-4,f)=0then et=e-2:ft=f:gosub640:return
  362. 724 return
  363. 726 ifb(e+1,f-1)=1andb(e-4,f+4)+b(e-3,f+3)=0then et=e-3:ft=f+3:gosub640:return
  364. 728 ifb(e+1,f-1)=1andb(e-1,f+1)+b(e-4,f+4)=0then et=e-1:ft=f+1:gosub640:return
  365. 730 ifb(e+1,f-1)=1andb(e-2,f+2)+b(e-4,f+4)=0then et=e-2:ft=f+2:gosub640:return
  366. 732 return
  367. 734 ifb(e+1,f+1)=1andb(e-3,f-3)+b(e-4,f-4)=0then et=e-3:ft=f-3:gosub640:return
  368. 736 ifb(e+1,f+1)=1andb(e-1,f-1)+b(e-4,f-4)=0then et=e-1:ft=f-1:gosub640:return
  369. 738 ifb(e+1,f+1)=1andb(e-2,f-2)+b(e-4,f-4)=0then et=e-2:ft=f-2:gosub640:return
  370. 740 return
  371. 746 ifb(e,f-1)+b(e,f-2)=0goto750
  372. 748 return
  373. 750 ifb(e,f+3)+b(e,f+4)=2thenet=e:ft=f-1:gosub640
  374. 752 return
  375. 754 ifb(e+1,f)+b(e+2,f)=0goto758
  376. 756 return
  377. 758 ifb(e-3,f)+b(e-4,f)=2thenet=e+1:ft=f:gosub640
  378. 760 return
  379. 762 ifb(e+1,f-1)+b(e+2,f-2)=0goto766
  380. 764 return
  381. 766 ifb(e-3,f+3)+b(e-4,f+4)=2thenet=e+1:ft=f-1:gosub640
  382. 768 return
  383. 770 ifb(e+1,f+1)+b(e+2,f+2)=0goto774
  384. 772 return
  385. 774 ifb(e-3,f-3)+b(e-4,f-4)=2thenet=e+1:ft=f+1:gosub640
  386. 776 return
  387. 778 ifb(e,f-1)=0goto782
  388. 780 return
  389. 782 ifb(e,f+4)=1goto786
  390. 784 goto794
  391. 786 ifb(e,f-2)+b(e,f+3)=0thenet=e:ft=f-1:we=9:gosub640:return
  392. 788 ifb(e,f+1)=0thenet=e:ft=f+1:gosub640:return
  393. 790 ifb(e,f+2)=0thenet=e:ft=f+2:gosub640:return
  394. 792 ifb(e,f+3)=0thenet=e:ft=f+3:gosub640:return
  395. 794 ifb(e,f+4)+b(e,f-2)=0andb(e,f+3)=1thenet=e:ft=f-1:gosub640:return
  396. 796 return
  397. 798 ifb(e+1,f)=0goto802
  398. 800 return
  399. 802 ifb(e-4,f)=1goto806
  400. 804 goto814
  401. 806 ifb(e+2,f)+b(e-3,f)=0thenet=e+1:ft=f:we=9:gosub640:return
  402. 808 ifb(e-1,f)=0thenet=e-1:ft=f:gosub640:return
  403. 810 ifb(e-2,f)=0thenet=e-2:ft=f:gosub640:return
  404. 812 ifb(e-3,f)=0thenet=e-3:ft=f:gosub640:return
  405. 814 ifb(e-4,f)+b(e+2,f)=0andb(e-3,f)=1thenet=e+1:ft=f:gosub640:return
  406. 816 return
  407. 818 ifb(e+1,f-1)=0goto822
  408. 820 return
  409. 822 ifb(e-4,f+4)=1goto826
  410. 824 goto834
  411. 826 ifb(e+2,f-2)+b(e-3,f+3)=0thenet=e+1:ft=f-1:we=9:gosub640:return
  412. 828 ifb(e-1,f+1)=0thenet=e-1:ft=f+1:gosub640:return
  413. 830 ifb(e-2,f+2)=0thenet=e-2:ft=f+2:gosub640:return
  414. 832 ifb(e-3,f+3)=0thenet=e-3:ft=f+3:gosub640:return
  415. 834 ifb(e-4,f+4)+b(e+2,f-2)=0andb(e-3,f+3)=1thenet=e+1:ft=f-1:gosub640:return
  416. 836 return
  417. 838 ifb(e+1,f+1)=0goto842
  418. 840 return
  419. 842 ifb(e-4,f-4)=1goto846
  420. 844 goto854
  421. 846 ifb(e+2,f+2)+b(e-3,f-3)=0thenet=e+1:ft=f+1:we=9:gosub640:return
  422. 848 ifb(e-1,f-1)=0thenet=e-1:ft=f-1:gosub640:return
  423. 850 ifb(e-2,f-2)=0thenet=e-2:ft=f-2:gosub640:return
  424. 852 ifb(e-3,f-3)=0thenet=e-3:ft=f-3:gosub640:return
  425. 854 ifb(e-4,f-4)+b(e+2,f+2)=0andb(e-3,f-3)=1thenet=e+1:ft=f+1:gosub640:return
  426. 856 return
  427. 858 ifb(e,f-1)=0goto862
  428. 860 return
  429. 862 ifb(e,f+1)=1andb(e,f-2)+b(e,f-3)=0thenet=e:ft=f-2:gosub640:goto872
  430. 864 ifb(e,f+1)=1andb(e,f-2)=0goto872
  431. 866 ifb(e,f+2)=1andb(e,f-2)=0thengoto874
  432. 868 ifb(e,f+3)=1thenet=e:ft=f+1:gosub640:et=e:ft=f+2:gosub640:return
  433. 870 return
  434. 872 et=e:ft=f-1:gosub640:et=e:ft=f+3:gosub640:et=e:ft=f+2:gosub640:return
  435. 874 et=e:ft=f-1:gosub640:et=e:ft=f+3:gosub640:et=e:ft=f+1:gosub640:return
  436. 878 ifb(e+1,f)=0goto882
  437. 880 return
  438. 882 ifb(e-1,f)=1andb(e+2,f)+b(e+3,f)=0thenet=e+2:ft=f:gosub640:goto892
  439. 884 ifb(e-1,f)=1andb(e+2,f)=0goto892
  440. 886 ifb(e-2,f)=1andb(e+2,f)=0goto894
  441. 888 ifb(e-3,f)=1thenet=e-1:ft=f:gosub640:et=e-2:ft=f:gosub640:return
  442. 890 return
  443. 892 et=e+1:ft=f:gosub640:et=e-3:ft=f:gosub640:et=e-2:ft=f:gosub640:return
  444. 894 et=e+1:ft=f:gosub640:et=e-3:ft=f:gosub640:et=e-1:ft=f:gosub640:return
  445. 898 ifb(e+1,f-1)=0goto902
  446. 900 return
  447. 902 ifb(e-1,f+1)=1andb(e+2,f-2)+b(e+3,f-3)=0thenet=e+2:ft=f-2:gosub640:goto912
  448. 904 ifb(e-1,f+1)=1andb(e+2,f-2)=0goto912
  449. 906 ifb(e-2,f+2)=1andb(e+2,f-2)=0goto914
  450. 908 ifb(e-3,f+3)=1thenet=e-2:ft=f+2:gosub640:et=e-1:ft=f+1:gosub640:return
  451. 910 return
  452. 912 et=e+1:ft=f-1:gosub640:et=e-3:ft=f+3:gosub640:et=e-2:ft=f+2:gosub640:return
  453. 914 et=e+1:ft=f-1:gosub640:et=e-3:ft=f+3:gosub640:et=e-1:ft=f+1:gosub640:return
  454. 918 ifb(e+1,f+1)=0goto922
  455. 920 return
  456. 922 ifb(e-1,f-1)=1andb(e+2,f+2)+b(e+3,f+3)=0thenet=e+2:ft=f+2:gosub640:goto932
  457. 924 ifb(e-1,f-1)=1andb(e+2,f+2)=0goto932
  458. 926 ifb(e-2,f-2)=1andb(e+2,f+2)=0goto934
  459. 928 ifb(e-3,f-3)=1thenet=e-2:ft=f-2:gosub640:et=e-1:ft=f-1:gosub640:return
  460. 930 return
  461. 932 et=e+1:ft=f+1:gosub640:et=e-3:ft=f-3:gosub640:et=e-2:ft=f-2:gosub640:return
  462. 934 et=e+1:ft=f+1:gosub640:et=e-3:ft=f-3:gosub640:et=e-1:ft=f-1:gosub640:return
  463. 936 ifb(e,f-1)+b(e,f-2)=0goto940
  464. 938 return
  465. 940 ifb(e,f+3)+b(e,f+4)=16thenet=e:ft=f-1:gosub640:et=e:ft=f-2:gosub640:return
  466. 942 return
  467. 944 ifb(e+1,f)+b(e+2,f)=0goto948
  468. 946 return
  469. 948 ifb(e-3,f)+b(e-4,f)=16thenet=e+1:ft=f:gosub640:et=e+2:ft=f:gosub640:return
  470. 950 return
  471. 952 ifb(e+1,f-1)+b(e+2,f-2)=0goto956
  472. 954 return
  473. 956 ifb(e-3,f+3)+b(e-4,f+4)=16thenet=e+1:ft=f-1:gosub640:et=e+2:ft=f-2:gosub640:return
  474. 958 return
  475. 960 ifb(e+1,f+1)+b(e+2,f+2)=0goto964
  476. 962 return
  477. 964 ifb(e-3,f-3)+b(e-4,f-4)=16thenet=e+1:ft=f+1:gosub640:et=e+2:ft=f+2:gosub640:return
  478. 966 return
  479. 968 ifb(e,f)=8andb(e,f+1)=0andb(e,f+5)=1thenwe=10:et=e:ft=f+1:gosub640:return
  480. 969 ifb(e,f-1)=0goto972
  481. 970 return
  482. 972 ifb(e,f+4)=8goto976
  483. 974 goto996
  484. 976 ifb(e,f-2)+b(e,f+3)=0thenet=e:ft=f-1:we=7:gosub640:return
  485. 978 ifb(e,f+1)=0thenet=e:ft=f+1:gosub640:ft=f-1:gosub640:return
  486. 980 ifb(e,f+2)=0thenet=e:ft=f+2:gosub640:ft=f-1:gosub640:goto984
  487. 982 goto988
  488. 984 ifb(e,f-2)+b(e,f-3)=0thenet=e:ft=f-2:gosub640:return
  489. 986 return
  490. 988 ifb(e,f+3)=0thenet=e:ft=f+3:gosub640:ft=f-1:gosub640:goto1002
  491. 990 ifb(e,f+2)+b(e,f-2)=0andb(e,f+3)=8thenet=e:ft=f-1:goto994
  492. 992 goto996
  493. 994 gosub640:ifb(e,f-3)=0thenet=e:ft=f-2:gosub640:return
  494. 996 ifb(e,f+4)+b(e,f-2)=0andb(e,f+3)=8thenet=e:ft=f-1:goto1000
  495. 998 return
  496. 1000 gosub640:et=e:ft=f-2:gosub640:return
  497. 1002 ifb(e,f-2)=0thenet=e:ft=f-2:gosub640:return
  498. 1004 return
  499. 1006 ifb(e,f)=8andb(e-1,f)=0andb(e-5,f)=1thenwe=10:et=e-1:ft=f:gosub640:return
  500. 1007 ifb(e+1,f)=0goto1010
  501. 1008 return
  502. 1010 ifb(e-4,f)=8goto806
  503. 1012 goto1034
  504. 1014 ifb(e+2,f)+b(e-3,f)=0thenet=e+1:ft=f:we=7:gosub640:return
  505. 1016 ifb(e-1,f)=0thenet=e-1:ft=f:gosub640:et=e+1:gosub640:return
  506. 1018 ifb(e-2,f)=0thenet=e-2:ft=f:gosub640:et=e+1:gosub640:goto1022
  507. 1020 goto1026
  508. 1022 ifb(e+2,f)+b(e+3,f)=0thenet=e+2:ft=f:gosub640:return
  509. 1024 return
  510. 1026 ifb(e-3,f)=0thenet=e-3:ft=f:gosub640:et=e+1:gosub640:goto1040
  511. 1028 ifb(e-2,f)+b(e+2,f)=0andb(e-3,f)=8thenet=e+1:ft=f:goto1032
  512. 1030 goto1034
  513. 1032 gosub640:ifb(e+3,f)=0thenet=e+2:ft=f:gosub640:return
  514. 1034 ifb(e-4,f)+b(e+2,f)=0andb(e-3,f)=8thenet=e+1:ft=f:goto1038
  515. 1036 return
  516. 1038 gosub640:et=e+2:ft=f:gosub640:return
  517. 1040 ifb(e+2,f)=0thenet=e+2:ft=f:gosub640:return
  518. 1042 return
  519. 1044 ifb(e,f)=8andb(e-1,f+1)=0andb(e-5,f+5)=1thenwe=10:et=e-1:ft=f+1:gosub640:return
  520. 1046 ifb(e+1,f-1)=0goto1048
  521. 1047 return
  522. 1048 ifb(e-4,f+4)=8goto1052
  523. 1050 goto1072
  524. 1052 ifb(e+2,f-2)+b(e-3,f+3)=0thenet=e+1:ft=f-1:we=7:gosub640:return
  525. 1054 ifb(e-1,f+1)=0thenet=e-1:ft=f+1:gosub640:et=e+1:ft=f-1:gosub640:return
  526. 1056 ifb(e-2,f+2)=0thenet=e-2:ft=f+2:gosub640:et=e+2:ft=f-2:gosub640:goto1060
  527. 1058 goto1064
  528. 1060 ifb(e+2,f-2)+b(e+3,f-3)=0thenet=e+2:ft=f-2:gosub640:return
  529. 1062 return
  530. 1064 ifb(e-3,f+3)=0thenet=e-3:ft=f+3:gosub640:et=e+3:ft=f-3:gosub640:goto1078
  531. 1066 ifb(e-2,f+2)+b(e+2,f-2)=0andb(e-3,f+3)=8thenet=e+1:ft=f-1:goto1070
  532. 1068 goto1072
  533. 1070 gosub640:ifb(e+3,f-3)=0thenet=e+2:ft=f-2:gosub640:return
  534. 1072 ifb(e-4,f+4)+b(e+2,f-2)=0andb(e-3,f+3)=8thenet=e+1:ft=f-1:goto1076
  535. 1074 return
  536. 1076 gosub640:et=e+2:ft=f-2:gosub640:return
  537. 1078 ifb(e+2,f-2)=0thenet=e+2:ft=f-2:gosub640:return
  538. 1080 return
  539. 1082 ifb(e,f)=8andb(e-1,f-1)=0andb(e-5,f-5)=1thenwe=10:et=e-1:ft=f-1:gosub640:return
  540. 1083 ifb(e+1,f+1)=0goto1086
  541. 1084 return
  542. 1086 ifb(e-4,f-4)=8goto1090
  543. 1088 goto1110
  544. 1090 ifb(e+2,f+2)+b(e-3,f-3)=0thenet=e+1:ft=f+1:we=7:gosub640:return
  545. 1092 ifb(e-1,f-1)=0thenet=e-1:ft=f-1:gosub640:et=e+1:ft=f+1:gosub640:return
  546. 1094 ifb(e-2,f-2)=0thenet=e-2:ft=f-2:gosub640:et=e+2:ft=f+2:gosub640:goto1098
  547. 1096 goto1102
  548. 1098 ifb(e+2,f+2)+b(e+3,f+3)=0thenet=e+2:ft=f+2:gosub640:return
  549. 1100 return
  550. 1102 ifb(e-3,f-3)=0thenet=e-3:ft=f-3:gosub640:et=e+3:ft=f+3:gosub640:goto1116
  551. 1104 ifb(e-2,f-2)+b(e+2,f+2)=0andb(e-3,f-3)=8thenet=e+1:ft=f+1:goto1108
  552. 1106 goto1110
  553. 1108 gosub640:ifb(e+3,f+3)=0thenet=e+2:ft=f+2:gosub640:return
  554. 1110 ifb(e-4,f-4)+b(e+2,f+2)=0andb(e-3,f-3)=8thenet=e+1:ft=f+1:goto1114
  555. 1112 return
  556. 1114 gosub640:et=e+2:ft=f+2:gosub640:return
  557. 1116 ifb(e+2,f+2)=0thenet=e+2:ft=f+2:gosub640:return
  558. 1118 return
  559. 1120 ifb(e,f-1)=0goto1124
  560. 1122 return
  561. 1124 ifb(e,f+4)=1goto1130
  562. 1126 ifb(e,f+3)=1andb(e,f+1)=8goto1136
  563. 1128 return
  564. 1130 ifb(e,f+1)=8thenet=e:ft=f+2:gosub640:goto1136
  565. 1132 ifb(e,f+2)=8thenet=e:ft=f+1:gosub640:goto1138
  566. 1134 return
  567. 1136 ifb(e,f-2)+b(e,f-3)=0thenet=e:ft=f-1:gosub640:et=e:ft=f-2:gosub640:return
  568. 1138 ifb(e,f-2)=0thenet=e:ft=f-1:gosub640:return
  569. 1140 return
  570. 1142 ifb(e+1,f)=0goto1146
  571. 1144 return
  572. 1146 ifb(e-4,f)=1goto1152
  573. 1148 ifb(e-3,f)=1andb(e-1,f)=8goto1158
  574. 1150 return
  575. 1152 ifb(e-1,f)=8thenet=e-2:ft=f:gosub640:goto1158
  576. 1154 ifb(e-2,f)=8thenet=e-1:ft=f:gosub640:goto1160
  577. 1156 return
  578. 1158 ifb(e+2,f)+b(e+3,f)=0thenet=e+1:ft=f:gosub640:et=e+2:ft=f:gosub640:return
  579. 1160 ifb(e+2,f)=0thenet=e+1:ft=f:gosub640:return
  580. 1162 return
  581. 1164 ifb(e+1,f-1)=0goto1168
  582. 1166 return
  583. 1168 ifb(e-4,f+4)=1goto1174
  584. 1170 ifb(e-3,f+3)=1andb(e-1,f+1)=8goto1180
  585. 1172 return
  586. 1174 ifb(e-1,f+1)=8thenet=e-2:ft=f+2:gosub640:goto1180
  587. 1176 ifb(e-2,f+2)=8thenet=e-1:ft=f+1:gosub640:goto1182
  588. 1178 return
  589. 1180 ifb(e+2,f-2)+b(e+3,f-3)=0thenet=e+1:ft=f-1:gosub640:et=e+2:ft=f-2:gosub640:return
  590. 1182 ifb(e+2,f-2)=0thenet=e+1:ft=f-1:gosub640:return
  591. 1184 return
  592. 1186 ifb(e+1,f+1)=0goto1190
  593. 1188 return
  594. 1190 ifb(e-4,f-4)=1goto1196
  595. 1192 ifb(e-3,f-3)=1andb(e-1,f-1)=8goto1202
  596. 1194 return
  597. 1196 ifb(e-1,f-1)=8thenet=e-2:ft=f-2:gosub640:goto1202
  598. 1198 ifb(e-2,f-2)=8thenet=e-1:ft=f-1:gosub640:goto1204
  599. 1200 return
  600. 1202 ifb(e+2,f+2)+b(e+3,f+3)=0thenet=e+1:ft=f+1:gosub640:et=e+2:ft=f+2:gosub640:return
  601. 1204 ifb(e+2,f+2)=0thenet=e+1:ft=f+1:gosub640:return
  602. 1206 return
  603. 1208 gosub406
  604. 1210 ifb(e,f+1)=0goto1222
  605. 1212 ifb(e,f-1)<>0thenreturn
  606. 1214 ifb(e,f-2)<>0thenreturn
  607. 1216 et=e:ft=f-1:gosub640
  608. 1218 ifb(e,f-3)<>0then return
  609. 1220 et=e:ft=f-2:gosub640:return
  610. 1222 ifb(e,f+2)=0goto1230
  611. 1224 ifb(e,f-2)+b(e,f-1)<>0goto1228
  612. 1226 et=e:ft=f-1:gosub640
  613. 1228 ifb(e,f+5)+b(e,f+6)=0thenet=e:ft=f+5:gosub640:return
  614. 1230 ifb(e,f+5)+b(e,f+6)=0thenet=e:ft=f+5:gosub640:goto1234
  615. 1232 return
  616. 1234 ifb(e,f+7)=0thenet=e:ft=f+6:gosub640:return
  617. 1236 return
  618. 1238 gosub412
  619. 1240 ifb(e-1,f)=0goto1252
  620. 1242 ifb(e-1,f)<>0thenreturn
  621. 1244 ifb(e+2,f)<>0thenreturn
  622. 1246 et=e+1:ft=f:gosub640
  623. 1248 ifb(e+3,f)<>0then return
  624. 1250 et=e+2:ft=f:gosub640:return
  625. 1252 ifb(e-2,f)=0goto1260
  626. 1254 ifb(e+2,f)+b(e+1,f)<>0goto1258
  627. 1256 et=e+1:ft=f:gosub640
  628. 1258 ifb(e-5,f)+b(e-6,f)=0thenet=e-5:ft=f:gosub640:return
  629. 1260 ifb(e-5,f)+b(e-6,f)=0thenet=e-5:ft=f:gosub640:goto1264
  630. 1262 return
  631. 1264 ifb(e-7,f)=0thenet=e-6:ft=f:gosub640:return
  632. 1266 return
  633. 1268 gosub418
  634. 1270 ifb(e-1,f+1)=0goto1282
  635. 1272 ifb(e+1,f-1)<>0thenreturn
  636. 1274 ifb(e+2,f-2)<>0thenreturn
  637. 1276 et=e+1:ft=f-1:gosub640
  638. 1278 ifb(e+3,f-3)<>0then return
  639. 1280 et=e+2:ft=f-2:gosub640:return
  640. 1282 ifb(e-2,f+2)=0goto1290
  641. 1284 ifb(e+2,f-2)+b(e+1,f-1)<>0goto1288
  642. 1286 et=e+1:ft=f-1:gosub640
  643. 1288 ifb(e-5,f+5)+b(e-6,f+6)=0thenet=e-5:ft=f+5:gosub640:return
  644. 1290 ifb(e-5,f+5)+b(e-6,f+6)=0thenet=e-5:ft=f+5:gosub640:goto1294
  645. 1292 return
  646. 1294 ifb(e-7,f+7)=0thenet=e-6:ft=f+6:gosub640:return
  647. 1296 return
  648. 1298 gosub424
  649. 1300 ifb(e-1,f-1)=0goto1312
  650. 1302 ifb(e+1,f+1)<>0thenreturn
  651. 1304 ifb(e+2,f+2)<>0thenreturn
  652. 1306 et=e+1:ft=f+1:gosub640
  653. 1308 ifb(e+3,f+3)<>0then return
  654. 1310 et=e+2:ft=f+2:gosub640:return
  655. 1312 ifb(e-2,f-2)=0goto1320
  656. 1314 ifb(e+2,f+2)+b(e+1,f+1)<>0goto1318
  657. 1316 et=e+1:ft=f+1:gosub640
  658. 1318 ifb(e-5,f-5)+b(e-6,f-6)=0thenet=e-5:ft=f-5:gosub640:return
  659. 1320 ifb(e-5,f-5)+b(e-6,f-6)=0thenet=e-5:ft=f-5:gosub640:goto1324
  660. 1322 return
  661. 1324 ifb(e-7,f-7)=0thenet=e-6:ft=f-6:gosub640:return
  662. 1326 return
  663. 1328 ifb(e,f)=8andb(e,f+1)=0goto1360
  664. 1330 ifb(e,f)=1andb(e,f+1)=1andb(e,f+2)=0goto1334
  665. 1332 goto1348
  666. 1334 ifb(e,f-1)<>0thenreturn
  667. 1336 ifb(e,f-2)<>0goto1340
  668. 1338 et=e:ft=f-1:gosub640
  669. 1340 ifb(e,f+4)<>8goto1344
  670. 1342 et=e:ft=f+2:gosub640
  671. 1344 ifb(e,f-3)andb(e,f-2)<>0thenreturn
  672. 1346 et=e:ft=f-2:gosub640:return
  673. 1348 ifb(e,f+1)+b(e,f+3)<>0thenreturn
  674. 1350 ifb(e,f)+b(e,f+2)<>2thenreturn
  675. 1352 ifb(e,f-1)<>0thenreturn
  676. 1354 et=e:ft=f+1:gosub640
  677. 1356 ifb(e,f-2)<>0thenreturn
  678. 1358 et=e:ft=f-1:gosub640:return
  679. 1360 ifb(e,f+4)+b(e,f+5)<>0goto1368
  680. 1362 et=e:ft=f+4:gosub640
  681. 1364 ifb(e,f+6)<>0thenreturn
  682. 1366 et=e:ft=f+5:gosub640:return
  683. 1368 ifb(e,f+3)+b(e,f+5)<>0thenreturn
  684. 1370 et=e:ft=f+3:gosub640:goto1364
  685. 1374 ifb(e,f)=8andb(e-1,f)=0goto1406
  686. 1376 ifb(e,f)=1andb(e-1,f)=1andb(e-2,f)=0goto1380
  687. 1378 goto1394
  688. 1380 ifb(e+1,f)<>0thenreturn
  689. 1382 ifb(e+2,f)<>0goto1386
  690. 1384 et=e+1:ft=f:gosub640
  691. 1386 ifb(e-4,f)<>8goto1390
  692. 1388 et=e-2:ft=f:gosub640
  693. 1390 ifb(e+3,f)andb(e+2,f)<>0thenreturn
  694. 1392 et=e+2:ft=f:gosub640:return
  695. 1394 ifb(e-1,f)+b(e-3,f)<>0thenreturn
  696. 1396 ifb(e,f)+b(e-2,f)<>2thenreturn
  697. 1398 ifb(e+1,f)<>0thenreturn
  698. 1400 et=e-1:ft=f:gosub640
  699. 1402 ifb(e+2,f)<>0thenreturn
  700. 1404 et=e+1:ft=f:gosub640:return
  701. 1406 ifb(e-4,f)+b(e-5,f)<>0goto1414
  702. 1408 et=e-4:ft=f:gosub640
  703. 1410 ifb(e-6,f)<>0thenreturn
  704. 1412 et=e-5:ft=f:gosub640:return
  705. 1414 ifb(e-3,f)+b(e-5,f)<>0thenreturn
  706. 1416 et=e-3:ft=f:gosub640:goto1410
  707. 1420 ifb(e,f)=8andb(e-1,f+1)=0goto1452
  708. 1422 ifb(e,f)=1andb(e-1,f+1)=1andb(e-2,f+2)=0goto1426
  709. 1424 goto1440
  710. 1426 ifb(e+1,f-1)<>0thenreturn
  711. 1428 ifb(e+2,f-2)<>0goto1432
  712. 1430 et=e+1:ft=f-1:gosub640
  713. 1432 ifb(e-4,f+4)<>8goto1436
  714. 1434 et=e-2:ft=f+2:gosub640
  715. 1436 ifb(e+3,f-3)andb(e+2,f-2)<>0thenreturn
  716. 1438 et=e+2:ft=f-2:gosub640:return
  717. 1440 ifb(e-1,f+1)+b(e-3,f+3)<>0thenreturn
  718. 1442 ifb(e,f)+b(e-2,f+2)<>2thenreturn
  719. 1444 ifb(e+1,f-1)<>0thenreturn
  720. 1446 et=e-1:ft=f+1:gosub640
  721. 1448 ifb(e+2,f-2)<>0thenreturn
  722. 1450 et=e+1:ft=f-1:gosub640:return
  723. 1452 ifb(e-4,f+4)+b(e-5,f+5)<>0goto1460
  724. 1454 et=e-4:ft=f+4:gosub640
  725. 1456 ifb(e-6,f+6)<>0thenreturn
  726. 1458 et=e-5:ft=f+5:gosub640:return
  727. 1460 ifb(e-3,f+3)+b(e-5,f+5)<>0thenreturn
  728. 1462 et=e-3:ft=f+3:gosub640:goto1456
  729. 1466 ifb(e,f)=8andb(e-1,f-1)=0goto1498
  730. 1468 ifb(e,f)=1andb(e-1,f-1)=1andb(e-2,f-2)=0goto1472
  731. 1470 goto1486
  732. 1472 ifb(e+1,f+1)<>0thenreturn
  733. 1474 ifb(e+2,f+2)<>0goto1478
  734. 1476 et=e+1:ft=f+1:gosub640
  735. 1478 ifb(e-4,f-4)<>8goto1482
  736. 1480 et=e-2:ft=f-2:gosub640
  737. 1482 ifb(e+3,f+3)andb(e+2,f+2)<>0thenreturn
  738. 1484 et=e+2:ft=f+2:gosub640:return
  739. 1486 ifb(e-1,f-1)+b(e-3,f-3)<>0thenreturn
  740. 1488 ifb(e,f)+b(e-2,f-2)<>2thenreturn
  741. 1490 ifb(e+1,f+1)<>0thenreturn
  742. 1492 et=e-1:ft=f-1:gosub640
  743. 1494 ifb(e+2,f+2)<>0thenreturn
  744. 1496 et=e+1:ft=f+1:gosub640:return
  745. 1498 ifb(e-4,f-4)+b(e-5,f-5)<>0goto1506
  746. 1500 et=e-4:ft=f-4:gosub640
  747. 1502 ifb(e-6,f-6)<>0thenreturn
  748. 1504 et=e-5:ft=f-5:gosub640:return
  749. 1506 ifb(e-3,f-3)+b(e-5,f-5)<>0thenreturn
  750. 1508 et=e-3:ft=f-3:gosub640:goto1502
  751. 1512 poke53280,0:poke53281,0
  752. 1514 print"[147][158]";
  753. 1516 print"[159][169]   [223][146]  [169]   [223][146]      [223][146]   [169] [223][146]   [223][146]    [146]  [169]   [223]";
  754. 1518 print"[153] [146]    [146]   [146][169] [223] [146]    [146] [223] [146]  [169][146][169] [223][223][146]   [223][146]   [146]   [146]    [146]";
  755. 1520 print" [146]       [146]    [146]    [146] [169][146][169]   [146]    [146]   [146][223][223][146]  [146]   [146]    ";
  756. 1522 print"[158] [146]    [146]   [146]    [146]      [223][146]       [146]   [146] [223][223] [146]   [146]    ";
  757. 1524 print"[159] [146]    [146]   [146]    [146]    [146] [223] [146]   [146]    [146]   [146]  [223] [146]  [146] [146]    ";
  758. 1526 print"[153] [146]    [146]   [223][146] [169] [146]    [146] [169] [146]   [146]    [146]   [146]    [146]   [146]    ";
  759. 1528 print"[146][223]   [146][169]  [223]   [146][169]      [146][169]   [146]    [146]   [146]    [146]  [223]   [146][169]";
  760. 1530 print"";:a=4
  761. 1534 fori=1587to1619:readm:pokei,m:pokeu+4,0:nexti
  762. 1584 i=0:a=154
  763. 1588 print"[158]drucken sie";
  764. 1590 poke1626+160,34   :poke1626+54272,1
  765. 1592 poke1684+a,134:poke1684+a+54272,12
  766. 1594 poke1685+a,177:poke1685+a+54272,12
  767. 1596 poke1643+a,108:poke1643+a+54272,12
  768. 1598 poke1644+a,98 :poke1644+a+54272,12
  769. 1600 poke1645+a,98 :poke1645+a+54272,12
  770. 1602 poke1646+a,123:poke1646+a+54272,12
  771. 1604 poke1683+a,225:poke1683+a+54272,12
  772. 1606 poke1686+a,97 :poke1686+a+54272,12
  773. 1608 poke1723+a,124:poke1723+a+54272,12
  774. 1610 poke1724+a,226:poke1724+a+54272,12
  775. 1612 poke1725+a,226:poke1725+a+54272,12
  776. 1614 poke1726+a,126:poke1726+a+54272,12
  777. 1620 print"[158]und das spiel startet"
  778. 1636 poke198,0
  779. 1638 geta$
  780. 1640 ifa$=chr$(133)thenti$="000000":print"[147]":return
  781. 1644 ifa$=""goto1638
  782. 1646 goto1638
  783. 1720 data16,18,15,7,18,1,13,13,9,5,18,20,32,22,15,14,32,20,8,15,18,19,20,5,14,32
  784. 1730 data2,1,18,20,5,12,20
  785. 1740 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,68,0,0,40,0,0,16,0,0
  786. 1750 data40,0,0,68,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  787. 1800 ifko=1thengosub38
  788. 1805 print""spc(27)"die anzahl"
  789. 1810 printspc(27)"der gesetzten"
  790. 1820 printspc(27)"[145]steine >[146]"ko
  791. 1821 print
  792. 1822 print
  793. 1823 print
  794. 1830 printspc(27)"ihre "
  795. 1835 printspc(27)"spielzeit"
  796. 1838 printspc(27)"betraegt:"
  797. 1839 printspc(27)""mid$(ti$,1,2)"  stunden"
  798. 1841 printspc(27)""mid$(ti$,3,2)"  minuten"
  799. 1842 printspc(27)""mid$(ti$,5,2)"  sekunden"
  800. 1850 return
  801. 1900 ifd=0thengosub38
  802. 1910 return
  803.