0 IFPEEK(50307)<>120THEN2
1 POKE50257,16
2 PRINTCHR$(142):PRINTCHR$(8)
3 U=54272:FORI=0TO24:POKEU+I,0:NEXT:POKEU+1,130:POKEU+5,9:POKEU+15,30
4 POKE646,14:GOSUB1512
10 DIMB(35,36):D=0:DIMT(11):DIMTC(80):DIMTB(80)
12 PRINT"[144][147]":Y=122:X=100
14 GOTO28
16 GOSUB34:Q1=2:PRINT""SPC(28)"DER 1. ZUG"
18 PRINTSPC(28)"BEGINNT IN"
20 PRINTSPC(28)"DER MITTE"
22 PRINTSPC(28)"DES FELDES[146]"
24 POKE53265,PEEK(53265)OR16:POKE53281,14:POKE53280,0 :RETURN
28 POKE53265,PEEK(53265)AND239:PRINT"";:FORI=1TO24
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
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
34 IFQ1=0THENPRINT"";:GOTO38
36 RETURN
38 PRINT"";: FORQ=1TO24
40 PRINTSPC(26)"[155]              [146]";
42 NEXTQ:PRINTSPC(26)"             [146][157][145]":POKE2023,224
43 POKE2023,160:POKE56295,15:PRINT"";:RETURN:REM   #
44 POKEV+29,1:POKEV+23,1:POKE2040,13:POKEV+39,0:POKEV,X:POKEV+1,Y
46 FORI=0TO62:READS:POKE832  +I,S:NEXT
52 FORI=1TO100:NEXTI
54 POKEV+21,1
56 IFD=0THENGOSUB16:A=PEEK(56320):A=ABS(127-A):GETJ$:GOTO70
58 IFD=2THENGOSUB34:Q1=2:D=3:GOSUB1800
60 A=PEEK(56320):A=ABS(127-A)
61 GETJ$
62 J1=J1+1:IFJ1>08THENPOKEV+21,1ANDNOTPEEK(V+21):J1=0
64 IFA=1ORJ$=CHR$(145)GOTO74
65 IFA=8ORJ$=CHR$(29)GOTO78
66 IFA=2ORJ$=CHR$(17)GOTO82
68 IFA=4ORJ$=CHR$(157)GOTO86
70 IFA>10ORJ$=CHR$(13)THENPOKEV+21,0:GOSUB1900:GOTO90
72 GOTO56
74 Y=Y-8:IFY<34THENY=34
76 POKEV+1,Y:GOTO52
78 X=X+8:IFX>204THENX=204
80 POKEV,X:GOTO52
82 Y=Y+8:IFY>226THENY=226
84 POKEV+1,Y:GOTO52
86 X=X-8:IFX<4 THENX=4
88 POKEV,X:GOTO52
90 Z=1024+INT(X/8)+40*((Y-34)/8)
92 IFPEEK(Z)=80THEN96
94 GOTO52
96 POKEZ+54272,1:POKEZ,81
98 E=INT((Z-983)/40)
100 F=Z-(983+(E*40))
102 E=E+5:F=F+5:B(E,F)=1
104 D=D+1
106 GOSUB110:GOTO130
110 IFD=1THENE1=E:E2=E:F1=F:F2=F:GOTO128
112 IFE>E1ORE=E1THEN116
114 E1=E:GOTO120
116 IFE<E2ORE=E2THEN120
118 E2=E
120 IFF>F1ORF=F1THEN124
122 F1=F:GOTO128
124 IFF<F2ORF=F2THEN128
126 F2=F
128 RETURN
130 FORE=E1TOE2:FORF=F1TOF2
132 IFB(E,F)>0THENGOSUB184
133 NEXTF:NEXTE
134 FORWX=11TO1STEP-1
136 IFT(WX)>0THENKO=KO+1:GOTO142
138 NEXTWX
140 GOTO 52
142 E=INT((T(WX)-983)/40):F=T(WX)-(983+(E*40)):E=E+5:F=F+5:B(E,F)=8
144 D=2:GOSUB110
146 FORJ=1TO3
148 POKET(WX),80:POKET(WX)+54272,0
150 FORI=1TO500:NEXT
152 POKET(WX),87:POKET(WX)+54272,0
154 FORI=1TO500:NEXT
156 NEXTJ
158 POKEU+24,14:POKEU+4,0:POKEU+4,21
160 EE=INT((Z-983)/40):FF=Z-(983+(EE*40))
162 IFE<EETHENY=Y-((EE-E)*8):GOTO166
164 Y=Y+((E-EE)*8)
166 IFF<FFTHENX=X-((FF-F)*8):GOTO170
168 X=X+((F-FF)*8)
170 X=X-40:Y=Y-40:POKEV+1,Y:POKEV,X
172 IFWX=11THENGOSUB682
174 FORWX=11TO0STEP-1
176 T(WX)=0:TC(WX)=0:TB(WX)=0:NEXTWX
178 BL=0:BX=0:CL=0:CX=0:K3=0:GOTO52
184 :
186 G=0:FORI=0TO4:G=G+B(E,F+I):NEXTI
188 ONGGOTO234,224,216,204,198
190 ON(G-7)GOTO232,236,226,222,206
192 ON(G-15)GOTO228,230,236,220
194 ON(G-23)GOTO208,214,212
196 ON(G-31)GOTO200,202
198 GOSUB696
200 WE=11:GOSUB406:GOTO236
202 WE=11:GOSUB536:GOTO236
204 WE=10:GOSUB406:GOTO236
206 WE=10:GOSUB468:GOTO236
208 WE=9 :GOSUB434
210 WE=8:GOSUB710:GOTO236
212 WE=8:GOSUB746:GOTO236
214 WE=8:GOSUB778:GOTO236
216 WE=6:GOSUB1208
218 WE=7:GOSUB434:GOTO236
220 WE=6:GOSUB936:GOTO236
222 WE=6:GOSUB968:GOTO236
224 WE=6:GOSUB858:GOTO236
226 WE=6:GOSUB1328:GOTO236
228 WE=5:GOSUB560:GOTO236
230 WE=5:GOSUB1120:GOTO236
232 WE=3:GOSUB624:GOTO236
234 WE=2:ET=E:FT=F+1:GOSUB640
236 :
238 G=0:FORI=0TO4
240 G=G+B(E-I,F)
242 NEXTI
244 ONGGOTO290,280,272,260,254
246 ON(G-7) GOTO288,292,282,278,262
248 ON(G-15)GOTO284,286,292,276
250 ON(G-23)GOTO264,270,268
252 ON(G-31)GOTO256,258
254 GOSUB696
256 WE=11:GOSUB412:GOTO292
258 WE=11:GOSUB542:GOTO292
260 WE=10:GOSUB412:GOTO292
262 WE=10:GOSUB484:GOTO292
264 WE=9:GOSUB442
266 WE=8:GOSUB718:GOTO292
268 WE=8:GOSUB754:GOTO292
270 WE=8:GOSUB798:GOTO292
272 WE=6:GOSUB1238
274 WE=7:GOSUB442:GOTO292
276 WE=6:GOSUB944:GOTO292
278 WE=6:GOSUB1006:GOTO292
280 WE=6:GOSUB878:GOTO292
282 WE=6:GOSUB1374:GOTO292
284 WE=5:GOSUB576:GOTO292
286 WE=5:GOSUB1142:GOTO292
288 WE=3:GOSUB628:GOTO292
290 WE=2:ET=E-1:FT=F:GOSUB640
292 :
294 G=0:FORI=0TO4:REM ---------------------DIAGONAL NACH RECHTS OBEN-----------
296 G=G+B(E-I,F+I)
298 NEXTI
300 ON   G  GOTO346,336,328,316,310
302 ON(G-7) GOTO344,348,338,334,318
304 ON(G-15)GOTO340,342,348,332
306 ON(G-23)GOTO320,326,324
308 ON(G-31)GOTO312,314
310 GOSUB696
312 WE=11:GOSUB418:GOTO348
314 WE=11:GOSUB548:GOTO348
316 WE=10:GOSUB418:GOTO348
318 WE=10:GOSUB500:GOTO348
320 WE=9:GOSUB450
322 WE=8:GOSUB726:GOTO348
324 WE=8:GOSUB762:GOTO348
326 WE=8:GOSUB818:GOTO348
328 WE=6:GOSUB1268
330 WE=7:GOSUB450:GOTO348
332 WE=6:GOSUB952:GOTO348
334 WE=6:GOSUB1044:GOTO348
336 WE=6:GOSUB898:GOTO348
338 WE=6:GOSUB1420:GOTO348
340 WE=5:GOSUB592:GOTO348
342 WE=5:GOSUB1164:GOTO348
344 WE=3:GOSUB632:GOTO348
346 WE=2:ET=E-1:FT=F+1:GOSUB640
348 :
350 G=0:FORI=0TO4
352 G=G+B(E-I,F-I)
354 NEXTI
356 ONGGOTO402,388,382,372,366
358 ON(G-7)GOTO400,404,392,394,374
360 ON(G-15)GOTO396,398,404,390
362 ON(G-23)GOTO376,384,380
364 ON(G-31)GOTO368,370
366 GOSUB696
368 WE=11:GOSUB424:RETURN
370 WE=11:GOSUB554:RETURN
372 WE=10:GOSUB424:RETURN
374 WE=10:GOSUB516:RETURN
376 WE=9:GOSUB458
378 WE=8:GOSUB734
380 WE=8:GOSUB770:RETURN
382 WE=6:GOSUB1298:GOTO386
384 WE=8:GOSUB838:RETURN
386 WE=7:GOSUB458:RETURN
388 WE=6:GOSUB918:RETURN
390 WE=6:GOSUB960:RETURN
392 WE=6:GOSUB1466:RETURN
394 WE=6:GOSUB1082:RETURN
396 WE=5:GOSUB608:RETURN
398 WE=5:GOSUB1186:RETURN
400 WE=3:GOSUB636:RETURN
402 WE=2:ET=E-1:FT=F-1:GOSUB640
404 RETURN
406 IFB(E,F-1)=0ANDB(E,F+4)=0THENET=E:FT=F-1:GOSUB640:RETURN
407 FORH=0TO4
408 IFB(E,F+H)=0THENET=E:FT=F+H:GOSUB640
410 NEXTH:RETURN
412 IFB(E+1,F)=0ANDB(E-4,F)=0THENET=E+1:FT=F:GOSUB640:RETURN
413 FORH=0TO4
414 IFB(E-H,F)=0THENET=E-H:FT=F:GOSUB640
416 NEXTH:RETURN
418 IFB(E+1,F-1)=0ANDB(E-4,F+4)=0THENET=E+1:FT=F-1:GOSUB640:RETURN
419 FORH=0TO4
420 IFB(E-H,F+H)=0THENET=E-H:FT=F+H:GOSUB640
422 NEXTH:RETURN
424 IFB(E+1,F+1)=0ANDB(E-4,F-4)=0THENET=E+1:FT=F+1:GOSUB640:RETURN
425 FORH=0TO4
426 IFB(E-H,F-H)=0THENET=E-H:FT=F-H:GOSUB640
428 NEXTH:RETURN
434 IFB(E,F-1)+B(E,F+4)+B(E,F+3)=0THENET=E:FT=F+3:GOSUB640:RETURN
436 IFB(E,F-1)+B(E,F+1)+B(E,F+4)=0THENET=E:FT=F+1:GOSUB640:RETURN
438 IFB(E,F-1)+B(E,F+2)+B(E,F+4)=0THENET=E:FT=F+2:GOSUB640:RETURN
440 RETURN
442 IFB(E+1,F)+B(E-4,F)+B(E-3,F)=0THENET=E-3:FT=F:GOSUB640:RETURN
444 IFB(E+1,F)+B(E-1,F)+B(E-4,F)=0THENET=E-1:FT=F:GOSUB640:RETURN
446 IFB(E+1,F)+B(E-2,F)+B(E-4,F)=0THENET=E-2:FT=F:GOSUB640:RETURN
448 RETURN
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
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
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
456 RETURN
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
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
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
464 RETURN
468 IFB(E,F-1)+B(E,F+4)=8THENET=E:FT=F-1:GOSUB640:RETURN
470 IFB(E,F-1)+B(E,F+3)=8GOTO480
472 IFB(E,F+1)=8ANDB(E,F+5)=0GOTO476
474 RETURN
476 IFB(E,F+6)=0THENWE=6:ET=E:FT=F+6:GOSUB640:ET=E:FT=F+5:GOSUB640:RETURN
478 RETURN
480 IFB(E,F-2)=0THENWE=6:ET=E:FT=F-2:GOSUB640:ET=E:FT=F-1:GOSUB640:RETURN
482 RETURN
484 IFB(E+1,F)+B(E-4,F)=8THENET=E+1:FT=F:GOSUB640:RETURN
486 IFB(E+1,F)+B(E-3,F)=8GOTO496
488 IFB(E-1,F)=8ANDB(E-5,F)=0GOTO492
490 RETURN
492 IFB(E-6,F)=0THENWE=6:ET=E-6:FT=F:GOSUB640:ET=E-5:FT=F:GOSUB640:RETURN
494 RETURN
496 IFB(E+2,F)=0THENWE=6:ET=E+2:FT=F:GOSUB640:ET=E+1:FT=F:GOSUB640:RETURN
498 RETURN
500 IFB(E+1,F-1)+B(E-4,F+4)=8THENET=E+1:FT=F-1:GOSUB640:RETURN
502 IFB(E+1,F-1)+B(E-3,F+3)=8GOTO512
504 IFB(E-1,F+1)=8ANDB(E-5,F+5)=0GOTO508
506 RETURN
508 IFB(E-6,F+6)=0THENWE=6:ET=E-6:FT=F+6:GOSUB640:ET=E-5:FT=F+5:GOSUB640:RETURN
510 RETURN
512 IFB(E+2,F-2)=0THENWE=6:ET=E+2:FT=F-2:GOSUB640:ET=E+1:FT=F-1:GOSUB640:RETURN
514 RETURN
516 IFB(E+1,F+1)+B(E-4,F-4)=8THENET=E+1:FT=F+1:GOSUB640:RETURN
518 IFB(E+1,F+1)+B(E-3,F-3)=8GOTO528
520 IFB(E-1,F-1)=8ANDB(E-5,F-5)=0GOTO524
522 RETURN
524 IFB(E-6,F-6)=0THENWE=6:ET=E-6:FT=F-6:GOSUB640:ET=E-5:FT=F-5:GOSUB640:RETURN
526 RETURN
528 IFB(E+2,F+2)=0THENWE=6:ET=E+2:FT=F+2:GOSUB640:ET=E+1:FT=F+1:GOSUB640:RETURN
530 RETURN
536 IFB(E,F-1)+B(E,F+4)=1THENET=E:FT=F-1:GOSUB640:RETURN
538 IFB(E,F-1)+B(E,F+3)=1THENWE=8:ET=E:FT=F-1:GOSUB640
540 RETURN
542 IFB(E+1,F)+B(E-4,F)=1THENET=E+1:FT=F:GOSUB640:RETURN
544 IFB(E+1,F)+B(E-3,F)=1THENWE=8:ET=E+1:FT=F:GOSUB640
546 RETURN
548 IFB(E+1,F-1)+B(E-4,F+4)=1THENET=E+1:FT=F-1:GOSUB640:RETURN
550 IFB(E+1,F-1)+B(E-3,F+3)=1THENWE=8:ET=E+1:FT=F-1:GOSUB640
552 RETURN
554 IFB(E+1,F+1)+B(E-4,F-4)=1THENET=E+1:FT=F+1:GOSUB640:RETURN
556 IFB(E+1,F+1)+B(E-3,F-3)=1THENWE=8:ET=E+1:FT=F+1:GOSUB640
558 RETURN
560 IFB(E,F-1)<>0THENRETURN
562 IFB(E,F+1)=8THENET=E:FT=F+2:GOSUB640:ET=E:FT=F+3:GOSUB640:GOTO568
564 IFB(E,F+2)=8THENET=E:FT=F+1:GOSUB640:ET=E:FT=F+3:GOSUB640:GOTO568
566 IFB(E,F+3)=8THENET=E:FT=F+1:GOSUB640:ET=E:FT=F+2:GOSUB640
568 IFB(E,F-2)<>0THENRETURN
570 IFB(E,F+1)ORB(E,F+2)=8THENET=E:FT=F-1:GOSUB640
572 IFB(E,F-3)ANDB(E,F+1)=8THENET=E:FT=F-2:GOSUB640
574 RETURN
576 IFB(E+1,F)<>0THENRETURN
578 IFB(E-1,F)=8THENET=E-2:FT=F:GOSUB640:ET=E-3:FT=F:GOSUB640:GOTO584
580 IFB(E-2,F)=8THENET=E-1:FT=F:GOSUB640:ET=E-3:FT=F:GOSUB640:GOTO584
582 IFB(E-3,F)=8THENET=E-1:FT=F:GOSUB640:ET=E-2:FT=F:GOSUB640
584 IFB(E+2,F)<>0THENRETURN
586 IFB(E-1,F)ORB(E-2,F)=8THENET=E+1:FT=F:GOSUB640
588 IFB(E+3,F)ANDB(E-1,F)=8THENET=E+2:FT=F:GOSUB640
590 RETURN
592 IFB(E+1,F-1)<>0THENRETURN
594 IFB(E-1,F+1)=8THENET=E-2:FT=F+2:GOSUB640:ET=E-3:FT=F+3:GOSUB640:GOTO600
596 IFB(E-2,F+2)=8THENET=E-1:FT=F+1:GOSUB640:ET=E-3:FT=F+3:GOSUB640:GOTO600
598 IFB(E-3,F+3)=8THENET=E-1:FT=F+1:GOSUB640:ET=E-2:FT=F+2:GOSUB640
600 IFB(E+2,F-2)<>0THENRETURN
602 IFB(E-1,F+1)ORB(E-2,F+2)=8THENET=E+1:FT=F-1:GOSUB640
604 IFB(E+3,F-3)ANDB(E-1,F+1)=8THENET=E+2:FT=F-2:GOSUB640
606 RETURN
608 IFB(E+1,F+1)<>0THENRETURN
610 IFB(E-1,F-1)=8THENET=E-2:FT=F-2:GOSUB640:ET=E-3:FT=F-3:GOSUB640:GOTO616
612 IFB(E-2,F-2)=8THENET=E-1:FT=F-1:GOSUB640:ET=E-3:FT=F-3:GOSUB640:GOTO616
614 IFB(E-3,F-3)=8THENET=E-1:FT=F-1:GOSUB640:ET=E-2:FT=F-2:GOSUB640
616 IFB(E+2,F+2)<>0THENRETURN
618 IFB(E-1,F-1)ORB(E-2,F-2)=8THENET=E+1:FT=F+1:GOSUB640
620 IFB(E+3,F+3)ANDB(E-1,F-1)=8THENET=E+2:FT=F+2:GOSUB640
622 RETURN
624 IFB(E,F-1)=0THENET=E:FT=F+1:GOSUB640:RETURN
626 RETURN
628 IFB(E+1,F)=0THENET=E-1:FT=F:GOSUB640:RETURN
630 RETURN
632 IFB(E+1,F-1)=0THENET=E-1:FT=F+1:GOSUB640:RETURN
634 RETURN
636 IFB(E+1,F+1)=0THENET=E-1:FT=F-1:GOSUB640:RETURN
638 RETURN
640 IFB(ET,FT)<>0THENRETURN
641 PRINT""SPC(28)""ET:IFET<6ORET>30ORFT<6ORFT>31THENRETURN
642 ONWEGOTO1706,646,648,1706,652,664,643,676,678,644,680
643 T(WE)=983+(ET*40)+FT:T(WE)=T(WE)-205:RETURN
644 T(WE)=983+(ET*40)+FT:T(WE)=T(WE)-205:RETURN
646 T(WE)=983+(ET*40)+FT:T(WE)=T(WE)-205:RETURN
648 IFK3=5THENRETURN
650 T(WE)=983+(ET*40)+FT:T(WE)=T(WE)-205:RETURN
652 IFBX=8THEN RETURN
654 BL=BL+1:TB(BL)=983+(ET*40)+FT:TB(BL)=TB(BL)-205
656 FORI=BL-1TO0STEP-1
658 IFTB(BL)=TB(I)THENT(WE)=TB(BL):BX=8
660 NEXTI:IFBX=8THENRETURN
662 T(WE)=TB(BL):RETURN
664 IFCX=8THENRETURN
666 CL=CL+1:TC(CL)=983+(ET*40)+FT:TC(CL)=TC(CL)-205:T(3)=TC(CL):K3=5
668 FORI=CL-1TO0STEP-1
670 IFTC(CL)=TC(I)THENT(WE)=TC(CL):CX=8
672 NEXTI:IFCX=8THENRETURN
674 T(WE)=0:RETURN
676 T(WE)=983+(ET*40)+FT:T(WE)=T(WE)-205:RETURN
678 T(WE)=983+(ET*40)+FT:T(WE)=T(WE)-205:RETURN
680 T(WE)=983+(ET*40)+FT:T(WE)=T(WE)-205:RETURN
682 Q1=0:POKEU+24,15:POKEU+4,21:POKE198,0
684 PRINT"[144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
686 PRINT"[194]SIE HABEN VERLOREN[144][194]"
688 PRINT"[144][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
690 IFPEEK(56320)<112GOTO708
692 PRINT"[154]";:GETA$:IFA$=""THEN690
694 RUN
696 Q1=0:POKEU+24,15:POKEU+4,21:POKE198,0
698 PRINT"[144][213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
700 PRINT"[194]SIE HABEN GEWONNEN[144][194]"
702 PRINT"[144][202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
704 IFPEEK(56320)<112GOTO708
706 PRINT"[154]";:GETA$:IFA$=""THEN704
708 RUN
710 IFB(E,F-1)=1ANDB(E,F+4)+B(E,F+3)=0THEN ET=E:FT=F+3:GOSUB640:RETURN
712 IFB(E,F-1)=1ANDB(E,F+1)+B(E,F+4)=0THEN ET=E:FT=F+1:GOSUB640:RETURN
714 IFB(E,F-1)=1ANDB(E,F+2)+B(E,F+4)=0THEN ET=E:FT=F+2:GOSUB640:RETURN
716 RETURN
718 IFB(E+1,F)=1ANDB(E-4,F)+B(E-3,F)=0THEN ET=E-3:FT=F:GOSUB640:RETURN
720 IFB(E+1,F)=1ANDB(E-1,F)+B(E-4,F)=0THEN ET=E-1:FT=F:GOSUB640:RETURN
722 IFB(E+1,F)=1ANDB(E-2,F)+B(E-4,F)=0THEN ET=E-2:FT=F:GOSUB640:RETURN
724 RETURN
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
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
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
732 RETURN
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
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
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
740 RETURN
746 IFB(E,F-1)+B(E,F-2)=0GOTO750
748 RETURN
750 IFB(E,F+3)+B(E,F+4)=2THENET=E:FT=F-1:GOSUB640
752 RETURN
754 IFB(E+1,F)+B(E+2,F)=0GOTO758
756 RETURN
758 IFB(E-3,F)+B(E-4,F)=2THENET=E+1:FT=F:GOSUB640
760 RETURN
762 IFB(E+1,F-1)+B(E+2,F-2)=0GOTO766
764 RETURN
766 IFB(E-3,F+3)+B(E-4,F+4)=2THENET=E+1:FT=F-1:GOSUB640
768 RETURN
770 IFB(E+1,F+1)+B(E+2,F+2)=0GOTO774
772 RETURN
774 IFB(E-3,F-3)+B(E-4,F-4)=2THENET=E+1:FT=F+1:GOSUB640
776 RETURN
778 IFB(E,F-1)=0GOTO782
780 RETURN
782 IFB(E,F+4)=1GOTO786
784 GOTO794
786 IFB(E,F-2)+B(E,F+3)=0THENET=E:FT=F-1:WE=9:GOSUB640:RETURN
788 IFB(E,F+1)=0THENET=E:FT=F+1:GOSUB640:RETURN
790 IFB(E,F+2)=0THENET=E:FT=F+2:GOSUB640:RETURN
792 IFB(E,F+3)=0THENET=E:FT=F+3:GOSUB640:RETURN
794 IFB(E,F+4)+B(E,F-2)=0ANDB(E,F+3)=1THENET=E:FT=F-1:GOSUB640:RETURN
796 RETURN
798 IFB(E+1,F)=0GOTO802
800 RETURN
802 IFB(E-4,F)=1GOTO806
804 GOTO814
806 IFB(E+2,F)+B(E-3,F)=0THENET=E+1:FT=F:WE=9:GOSUB640:RETURN
808 IFB(E-1,F)=0THENET=E-1:FT=F:GOSUB640:RETURN
810 IFB(E-2,F)=0THENET=E-2:FT=F:GOSUB640:RETURN
812 IFB(E-3,F)=0THENET=E-3:FT=F:GOSUB640:RETURN
814 IFB(E-4,F)+B(E+2,F)=0ANDB(E-3,F)=1THENET=E+1:FT=F:GOSUB640:RETURN
816 RETURN
818 IFB(E+1,F-1)=0GOTO822
820 RETURN
822 IFB(E-4,F+4)=1GOTO826
824 GOTO834
826 IFB(E+2,F-2)+B(E-3,F+3)=0THENET=E+1:FT=F-1:WE=9:GOSUB640:RETURN
828 IFB(E-1,F+1)=0THENET=E-1:FT=F+1:GOSUB640:RETURN
830 IFB(E-2,F+2)=0THENET=E-2:FT=F+2:GOSUB640:RETURN
832 IFB(E-3,F+3)=0THENET=E-3:FT=F+3:GOSUB640:RETURN
834 IFB(E-4,F+4)+B(E+2,F-2)=0ANDB(E-3,F+3)=1THENET=E+1:FT=F-1:GOSUB640:RETURN
836 RETURN
838 IFB(E+1,F+1)=0GOTO842
840 RETURN
842 IFB(E-4,F-4)=1GOTO846
844 GOTO854
846 IFB(E+2,F+2)+B(E-3,F-3)=0THENET=E+1:FT=F+1:WE=9:GOSUB640:RETURN
848 IFB(E-1,F-1)=0THENET=E-1:FT=F-1:GOSUB640:RETURN
850 IFB(E-2,F-2)=0THENET=E-2:FT=F-2:GOSUB640:RETURN
852 IFB(E-3,F-3)=0THENET=E-3:FT=F-3:GOSUB640:RETURN
854 IFB(E-4,F-4)+B(E+2,F+2)=0ANDB(E-3,F-3)=1THENET=E+1:FT=F+1:GOSUB640:RETURN
856 RETURN
858 IFB(E,F-1)=0GOTO862
860 RETURN
862 IFB(E,F+1)=1ANDB(E,F-2)+B(E,F-3)=0THENET=E:FT=F-2:GOSUB640:GOTO872
864 IFB(E,F+1)=1ANDB(E,F-2)=0GOTO872
866 IFB(E,F+2)=1ANDB(E,F-2)=0THENGOTO874
868 IFB(E,F+3)=1THENET=E:FT=F+1:GOSUB640:ET=E:FT=F+2:GOSUB640:RETURN
870 RETURN
872 ET=E:FT=F-1:GOSUB640:ET=E:FT=F+3:GOSUB640:ET=E:FT=F+2:GOSUB640:RETURN
874 ET=E:FT=F-1:GOSUB640:ET=E:FT=F+3:GOSUB640:ET=E:FT=F+1:GOSUB640:RETURN
878 IFB(E+1,F)=0GOTO882
880 RETURN
882 IFB(E-1,F)=1ANDB(E+2,F)+B(E+3,F)=0THENET=E+2:FT=F:GOSUB640:GOTO892
884 IFB(E-1,F)=1ANDB(E+2,F)=0GOTO892
886 IFB(E-2,F)=1ANDB(E+2,F)=0GOTO894
888 IFB(E-3,F)=1THENET=E-1:FT=F:GOSUB640:ET=E-2:FT=F:GOSUB640:RETURN
890 RETURN
892 ET=E+1:FT=F:GOSUB640:ET=E-3:FT=F:GOSUB640:ET=E-2:FT=F:GOSUB640:RETURN
894 ET=E+1:FT=F:GOSUB640:ET=E-3:FT=F:GOSUB640:ET=E-1:FT=F:GOSUB640:RETURN
898 IFB(E+1,F-1)=0GOTO902
900 RETURN
902 IFB(E-1,F+1)=1ANDB(E+2,F-2)+B(E+3,F-3)=0THENET=E+2:FT=F-2:GOSUB640:GOTO912
904 IFB(E-1,F+1)=1ANDB(E+2,F-2)=0GOTO912
906 IFB(E-2,F+2)=1ANDB(E+2,F-2)=0GOTO914
908 IFB(E-3,F+3)=1THENET=E-2:FT=F+2:GOSUB640:ET=E-1:FT=F+1:GOSUB640:RETURN
910 RETURN
912 ET=E+1:FT=F-1:GOSUB640:ET=E-3:FT=F+3:GOSUB640:ET=E-2:FT=F+2:GOSUB640:RETURN
914 ET=E+1:FT=F-1:GOSUB640:ET=E-3:FT=F+3:GOSUB640:ET=E-1:FT=F+1:GOSUB640:RETURN
918 IFB(E+1,F+1)=0GOTO922
920 RETURN
922 IFB(E-1,F-1)=1ANDB(E+2,F+2)+B(E+3,F+3)=0THENET=E+2:FT=F+2:GOSUB640:GOTO932
924 IFB(E-1,F-1)=1ANDB(E+2,F+2)=0GOTO932
926 IFB(E-2,F-2)=1ANDB(E+2,F+2)=0GOTO934
928 IFB(E-3,F-3)=1THENET=E-2:FT=F-2:GOSUB640:ET=E-1:FT=F-1:GOSUB640:RETURN
930 RETURN
932 ET=E+1:FT=F+1:GOSUB640:ET=E-3:FT=F-3:GOSUB640:ET=E-2:FT=F-2:GOSUB640:RETURN
934 ET=E+1:FT=F+1:GOSUB640:ET=E-3:FT=F-3:GOSUB640:ET=E-1:FT=F-1:GOSUB640:RETURN
936 IFB(E,F-1)+B(E,F-2)=0GOTO940
938 RETURN
940 IFB(E,F+3)+B(E,F+4)=16THENET=E:FT=F-1:GOSUB640:ET=E:FT=F-2:GOSUB640:RETURN
942 RETURN
944 IFB(E+1,F)+B(E+2,F)=0GOTO948
946 RETURN
948 IFB(E-3,F)+B(E-4,F)=16THENET=E+1:FT=F:GOSUB640:ET=E+2:FT=F:GOSUB640:RETURN
950 RETURN
952 IFB(E+1,F-1)+B(E+2,F-2)=0GOTO956
954 RETURN
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
958 RETURN
960 IFB(E+1,F+1)+B(E+2,F+2)=0GOTO964
962 RETURN
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
966 RETURN
968 IFB(E,F)=8ANDB(E,F+1)=0ANDB(E,F+5)=1THENWE=10:ET=E:FT=F+1:GOSUB640:RETURN
969 IFB(E,F-1)=0GOTO972
970 RETURN
972 IFB(E,F+4)=8GOTO976
974 GOTO996
976 IFB(E,F-2)+B(E,F+3)=0THENET=E:FT=F-1:WE=7:GOSUB640:RETURN
978 IFB(E,F+1)=0THENET=E:FT=F+1:GOSUB640:FT=F-1:GOSUB640:RETURN
980 IFB(E,F+2)=0THENET=E:FT=F+2:GOSUB640:FT=F-1:GOSUB640:GOTO984
982 GOTO988
984 IFB(E,F-2)+B(E,F-3)=0THENET=E:FT=F-2:GOSUB640:RETURN
986 RETURN
988 IFB(E,F+3)=0THENET=E:FT=F+3:GOSUB640:FT=F-1:GOSUB640:GOTO1002
990 IFB(E,F+2)+B(E,F-2)=0ANDB(E,F+3)=8THENET=E:FT=F-1:GOTO994
992 GOTO996
994 GOSUB640:IFB(E,F-3)=0THENET=E:FT=F-2:GOSUB640:RETURN
996 IFB(E,F+4)+B(E,F-2)=0ANDB(E,F+3)=8THENET=E:FT=F-1:GOTO1000
998 RETURN
1000 GOSUB640:ET=E:FT=F-2:GOSUB640:RETURN
1002 IFB(E,F-2)=0THENET=E:FT=F-2:GOSUB640:RETURN
1004 RETURN
1006 IFB(E,F)=8ANDB(E-1,F)=0ANDB(E-5,F)=1THENWE=10:ET=E-1:FT=F:GOSUB640:RETURN
1007 IFB(E+1,F)=0GOTO1010
1008 RETURN
1010 IFB(E-4,F)=8GOTO806
1012 GOTO1034
1014 IFB(E+2,F)+B(E-3,F)=0THENET=E+1:FT=F:WE=7:GOSUB640:RETURN
1016 IFB(E-1,F)=0THENET=E-1:FT=F:GOSUB640:ET=E+1:GOSUB640:RETURN
1018 IFB(E-2,F)=0THENET=E-2:FT=F:GOSUB640:ET=E+1:GOSUB640:GOTO1022
1020 GOTO1026
1022 IFB(E+2,F)+B(E+3,F)=0THENET=E+2:FT=F:GOSUB640:RETURN
1024 RETURN
1026 IFB(E-3,F)=0THENET=E-3:FT=F:GOSUB640:ET=E+1:GOSUB640:GOTO1040
1028 IFB(E-2,F)+B(E+2,F)=0ANDB(E-3,F)=8THENET=E+1:FT=F:GOTO1032
1030 GOTO1034
1032 GOSUB640:IFB(E+3,F)=0THENET=E+2:FT=F:GOSUB640:RETURN
1034 IFB(E-4,F)+B(E+2,F)=0ANDB(E-3,F)=8THENET=E+1:FT=F:GOTO1038
1036 RETURN
1038 GOSUB640:ET=E+2:FT=F:GOSUB640:RETURN
1040 IFB(E+2,F)=0THENET=E+2:FT=F:GOSUB640:RETURN
1042 RETURN
1044 IFB(E,F)=8ANDB(E-1,F+1)=0ANDB(E-5,F+5)=1THENWE=10:ET=E-1:FT=F+1:GOSUB640:RETURN
1046 IFB(E+1,F-1)=0GOTO1048
1047 RETURN
1048 IFB(E-4,F+4)=8GOTO1052
1050 GOTO1072
1052 IFB(E+2,F-2)+B(E-3,F+3)=0THENET=E+1:FT=F-1:WE=7:GOSUB640:RETURN
1054 IFB(E-1,F+1)=0THENET=E-1:FT=F+1:GOSUB640:ET=E+1:FT=F-1:GOSUB640:RETURN
1056 IFB(E-2,F+2)=0THENET=E-2:FT=F+2:GOSUB640:ET=E+2:FT=F-2:GOSUB640:GOTO1060
1058 GOTO1064
1060 IFB(E+2,F-2)+B(E+3,F-3)=0THENET=E+2:FT=F-2:GOSUB640:RETURN
1062 RETURN
1064 IFB(E-3,F+3)=0THENET=E-3:FT=F+3:GOSUB640:ET=E+3:FT=F-3:GOSUB640:GOTO1078
1066 IFB(E-2,F+2)+B(E+2,F-2)=0ANDB(E-3,F+3)=8THENET=E+1:FT=F-1:GOTO1070
1068 GOTO1072
1070 GOSUB640:IFB(E+3,F-3)=0THENET=E+2:FT=F-2:GOSUB640:RETURN
1072 IFB(E-4,F+4)+B(E+2,F-2)=0ANDB(E-3,F+3)=8THENET=E+1:FT=F-1:GOTO1076
1074 RETURN
1076 GOSUB640:ET=E+2:FT=F-2:GOSUB640:RETURN
1078 IFB(E+2,F-2)=0THENET=E+2:FT=F-2:GOSUB640:RETURN
1080 RETURN
1082 IFB(E,F)=8ANDB(E-1,F-1)=0ANDB(E-5,F-5)=1THENWE=10:ET=E-1:FT=F-1:GOSUB640:RETURN
1083 IFB(E+1,F+1)=0GOTO1086
1084 RETURN
1086 IFB(E-4,F-4)=8GOTO1090
1088 GOTO1110
1090 IFB(E+2,F+2)+B(E-3,F-3)=0THENET=E+1:FT=F+1:WE=7:GOSUB640:RETURN
1092 IFB(E-1,F-1)=0THENET=E-1:FT=F-1:GOSUB640:ET=E+1:FT=F+1:GOSUB640:RETURN
1094 IFB(E-2,F-2)=0THENET=E-2:FT=F-2:GOSUB640:ET=E+2:FT=F+2:GOSUB640:GOTO1098
1096 GOTO1102
1098 IFB(E+2,F+2)+B(E+3,F+3)=0THENET=E+2:FT=F+2:GOSUB640:RETURN
1100 RETURN
1102 IFB(E-3,F-3)=0THENET=E-3:FT=F-3:GOSUB640:ET=E+3:FT=F+3:GOSUB640:GOTO1116
1104 IFB(E-2,F-2)+B(E+2,F+2)=0ANDB(E-3,F-3)=8THENET=E+1:FT=F+1:GOTO1108
1106 GOTO1110
1108 GOSUB640:IFB(E+3,F+3)=0THENET=E+2:FT=F+2:GOSUB640:RETURN
1110 IFB(E-4,F-4)+B(E+2,F+2)=0ANDB(E-3,F-3)=8THENET=E+1:FT=F+1:GOTO1114
1112 RETURN
1114 GOSUB640:ET=E+2:FT=F+2:GOSUB640:RETURN
1116 IFB(E+2,F+2)=0THENET=E+2:FT=F+2:GOSUB640:RETURN
1118 RETURN
1120 IFB(E,F-1)=0GOTO1124
1122 RETURN
1124 IFB(E,F+4)=1GOTO1130
1126 IFB(E,F+3)=1ANDB(E,F+1)=8GOTO1136
1128 RETURN
1130 IFB(E,F+1)=8THENET=E:FT=F+2:GOSUB640:GOTO1136
1132 IFB(E,F+2)=8THENET=E:FT=F+1:GOSUB640:GOTO1138
1134 RETURN
1136 IFB(E,F-2)+B(E,F-3)=0THENET=E:FT=F-1:GOSUB640:ET=E:FT=F-2:GOSUB640:RETURN
1138 IFB(E,F-2)=0THENET=E:FT=F-1:GOSUB640:RETURN
1140 RETURN
1142 IFB(E+1,F)=0GOTO1146
1144 RETURN
1146 IFB(E-4,F)=1GOTO1152
1148 IFB(E-3,F)=1ANDB(E-1,F)=8GOTO1158
1150 RETURN
1152 IFB(E-1,F)=8THENET=E-2:FT=F:GOSUB640:GOTO1158
1154 IFB(E-2,F)=8THENET=E-1:FT=F:GOSUB640:GOTO1160
1156 RETURN
1158 IFB(E+2,F)+B(E+3,F)=0THENET=E+1:FT=F:GOSUB640:ET=E+2:FT=F:GOSUB640:RETURN
1160 IFB(E+2,F)=0THENET=E+1:FT=F:GOSUB640:RETURN
1162 RETURN
1164 IFB(E+1,F-1)=0GOTO1168
1166 RETURN
1168 IFB(E-4,F+4)=1GOTO1174
1170 IFB(E-3,F+3)=1ANDB(E-1,F+1)=8GOTO1180
1172 RETURN
1174 IFB(E-1,F+1)=8THENET=E-2:FT=F+2:GOSUB640:GOTO1180
1176 IFB(E-2,F+2)=8THENET=E-1:FT=F+1:GOSUB640:GOTO1182
1178 RETURN
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
1182 IFB(E+2,F-2)=0THENET=E+1:FT=F-1:GOSUB640:RETURN
1184 RETURN
1186 IFB(E+1,F+1)=0GOTO1190
1188 RETURN
1190 IFB(E-4,F-4)=1GOTO1196
1192 IFB(E-3,F-3)=1ANDB(E-1,F-1)=8GOTO1202
1194 RETURN
1196 IFB(E-1,F-1)=8THENET=E-2:FT=F-2:GOSUB640:GOTO1202
1198 IFB(E-2,F-2)=8THENET=E-1:FT=F-1:GOSUB640:GOTO1204
1200 RETURN
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
1204 IFB(E+2,F+2)=0THENET=E+1:FT=F+1:GOSUB640:RETURN
1206 RETURN
1208 GOSUB406
1210 IFB(E,F+1)=0GOTO1222
1212 IFB(E,F-1)<>0THENRETURN
1214 IFB(E,F-2)<>0THENRETURN
1216 ET=E:FT=F-1:GOSUB640
1218 IFB(E,F-3)<>0THEN RETURN
1220 ET=E:FT=F-2:GOSUB640:RETURN
1222 IFB(E,F+2)=0GOTO1230
1224 IFB(E,F-2)+B(E,F-1)<>0GOTO1228
1226 ET=E:FT=F-1:GOSUB640
1228 IFB(E,F+5)+B(E,F+6)=0THENET=E:FT=F+5:GOSUB640:RETURN
1230 IFB(E,F+5)+B(E,F+6)=0THENET=E:FT=F+5:GOSUB640:GOTO1234
1232 RETURN
1234 IFB(E,F+7)=0THENET=E:FT=F+6:GOSUB640:RETURN
1236 RETURN
1238 GOSUB412
1240 IFB(E-1,F)=0GOTO1252
1242 IFB(E-1,F)<>0THENRETURN
1244 IFB(E+2,F)<>0THENRETURN
1246 ET=E+1:FT=F:GOSUB640
1248 IFB(E+3,F)<>0THEN RETURN
1250 ET=E+2:FT=F:GOSUB640:RETURN
1252 IFB(E-2,F)=0GOTO1260
1254 IFB(E+2,F)+B(E+1,F)<>0GOTO1258
1256 ET=E+1:FT=F:GOSUB640
1258 IFB(E-5,F)+B(E-6,F)=0THENET=E-5:FT=F:GOSUB640:RETURN
1260 IFB(E-5,F)+B(E-6,F)=0THENET=E-5:FT=F:GOSUB640:GOTO1264
1262 RETURN
1264 IFB(E-7,F)=0THENET=E-6:FT=F:GOSUB640:RETURN
1266 RETURN
1268 GOSUB418
1270 IFB(E-1,F+1)=0GOTO1282
1272 IFB(E+1,F-1)<>0THENRETURN
1274 IFB(E+2,F-2)<>0THENRETURN
1276 ET=E+1:FT=F-1:GOSUB640
1278 IFB(E+3,F-3)<>0THEN RETURN
1280 ET=E+2:FT=F-2:GOSUB640:RETURN
1282 IFB(E-2,F+2)=0GOTO1290
1284 IFB(E+2,F-2)+B(E+1,F-1)<>0GOTO1288
1286 ET=E+1:FT=F-1:GOSUB640
1288 IFB(E-5,F+5)+B(E-6,F+6)=0THENET=E-5:FT=F+5:GOSUB640:RETURN
1290 IFB(E-5,F+5)+B(E-6,F+6)=0THENET=E-5:FT=F+5:GOSUB640:GOTO1294
1292 RETURN
1294 IFB(E-7,F+7)=0THENET=E-6:FT=F+6:GOSUB640:RETURN
1296 RETURN
1298 GOSUB424
1300 IFB(E-1,F-1)=0GOTO1312
1302 IFB(E+1,F+1)<>0THENRETURN
1304 IFB(E+2,F+2)<>0THENRETURN
1306 ET=E+1:FT=F+1:GOSUB640
1308 IFB(E+3,F+3)<>0THEN RETURN
1310 ET=E+2:FT=F+2:GOSUB640:RETURN
1312 IFB(E-2,F-2)=0GOTO1320
1314 IFB(E+2,F+2)+B(E+1,F+1)<>0GOTO1318
1316 ET=E+1:FT=F+1:GOSUB640
1318 IFB(E-5,F-5)+B(E-6,F-6)=0THENET=E-5:FT=F-5:GOSUB640:RETURN
1320 IFB(E-5,F-5)+B(E-6,F-6)=0THENET=E-5:FT=F-5:GOSUB640:GOTO1324
1322 RETURN
1324 IFB(E-7,F-7)=0THENET=E-6:FT=F-6:GOSUB640:RETURN
1326 RETURN
1328 IFB(E,F)=8ANDB(E,F+1)=0GOTO1360
1330 IFB(E,F)=1ANDB(E,F+1)=1ANDB(E,F+2)=0GOTO1334
1332 GOTO1348
1334 IFB(E,F-1)<>0THENRETURN
1336 IFB(E,F-2)<>0GOTO1340
1338 ET=E:FT=F-1:GOSUB640
1340 IFB(E,F+4)<>8GOTO1344
1342 ET=E:FT=F+2:GOSUB640
1344 IFB(E,F-3)ANDB(E,F-2)<>0THENRETURN
1346 ET=E:FT=F-2:GOSUB640:RETURN
1348 IFB(E,F+1)+B(E,F+3)<>0THENRETURN
1350 IFB(E,F)+B(E,F+2)<>2THENRETURN
1352 IFB(E,F-1)<>0THENRETURN
1354 ET=E:FT=F+1:GOSUB640
1356 IFB(E,F-2)<>0THENRETURN
1358 ET=E:FT=F-1:GOSUB640:RETURN
1360 IFB(E,F+4)+B(E,F+5)<>0GOTO1368
1362 ET=E:FT=F+4:GOSUB640
1364 IFB(E,F+6)<>0THENRETURN
1366 ET=E:FT=F+5:GOSUB640:RETURN
1368 IFB(E,F+3)+B(E,F+5)<>0THENRETURN
1370 ET=E:FT=F+3:GOSUB640:GOTO1364
1374 IFB(E,F)=8ANDB(E-1,F)=0GOTO1406
1376 IFB(E,F)=1ANDB(E-1,F)=1ANDB(E-2,F)=0GOTO1380
1378 GOTO1394
1380 IFB(E+1,F)<>0THENRETURN
1382 IFB(E+2,F)<>0GOTO1386
1384 ET=E+1:FT=F:GOSUB640
1386 IFB(E-4,F)<>8GOTO1390
1388 ET=E-2:FT=F:GOSUB640
1390 IFB(E+3,F)ANDB(E+2,F)<>0THENRETURN
1392 ET=E+2:FT=F:GOSUB640:RETURN
1394 IFB(E-1,F)+B(E-3,F)<>0THENRETURN
1396 IFB(E,F)+B(E-2,F)<>2THENRETURN
1398 IFB(E+1,F)<>0THENRETURN
1400 ET=E-1:FT=F:GOSUB640
1402 IFB(E+2,F)<>0THENRETURN
1404 ET=E+1:FT=F:GOSUB640:RETURN
1406 IFB(E-4,F)+B(E-5,F)<>0GOTO1414
1408 ET=E-4:FT=F:GOSUB640
1410 IFB(E-6,F)<>0THENRETURN
1412 ET=E-5:FT=F:GOSUB640:RETURN
1414 IFB(E-3,F)+B(E-5,F)<>0THENRETURN
1416 ET=E-3:FT=F:GOSUB640:GOTO1410
1420 IFB(E,F)=8ANDB(E-1,F+1)=0GOTO1452
1422 IFB(E,F)=1ANDB(E-1,F+1)=1ANDB(E-2,F+2)=0GOTO1426
1424 GOTO1440
1426 IFB(E+1,F-1)<>0THENRETURN
1428 IFB(E+2,F-2)<>0GOTO1432
1430 ET=E+1:FT=F-1:GOSUB640
1432 IFB(E-4,F+4)<>8GOTO1436
1434 ET=E-2:FT=F+2:GOSUB640
1436 IFB(E+3,F-3)ANDB(E+2,F-2)<>0THENRETURN
1438 ET=E+2:FT=F-2:GOSUB640:RETURN
1440 IFB(E-1,F+1)+B(E-3,F+3)<>0THENRETURN
1442 IFB(E,F)+B(E-2,F+2)<>2THENRETURN
1444 IFB(E+1,F-1)<>0THENRETURN
1446 ET=E-1:FT=F+1:GOSUB640
1448 IFB(E+2,F-2)<>0THENRETURN
1450 ET=E+1:FT=F-1:GOSUB640:RETURN
1452 IFB(E-4,F+4)+B(E-5,F+5)<>0GOTO1460
1454 ET=E-4:FT=F+4:GOSUB640
1456 IFB(E-6,F+6)<>0THENRETURN
1458 ET=E-5:FT=F+5:GOSUB640:RETURN
1460 IFB(E-3,F+3)+B(E-5,F+5)<>0THENRETURN
1462 ET=E-3:FT=F+3:GOSUB640:GOTO1456
1466 IFB(E,F)=8ANDB(E-1,F-1)=0GOTO1498
1468 IFB(E,F)=1ANDB(E-1,F-1)=1ANDB(E-2,F-2)=0GOTO1472
1470 GOTO1486
1472 IFB(E+1,F+1)<>0THENRETURN
1474 IFB(E+2,F+2)<>0GOTO1478
1476 ET=E+1:FT=F+1:GOSUB640
1478 IFB(E-4,F-4)<>8GOTO1482
1480 ET=E-2:FT=F-2:GOSUB640
1482 IFB(E+3,F+3)ANDB(E+2,F+2)<>0THENRETURN
1484 ET=E+2:FT=F+2:GOSUB640:RETURN
1486 IFB(E-1,F-1)+B(E-3,F-3)<>0THENRETURN
1488 IFB(E,F)+B(E-2,F-2)<>2THENRETURN
1490 IFB(E+1,F+1)<>0THENRETURN
1492 ET=E-1:FT=F-1:GOSUB640
1494 IFB(E+2,F+2)<>0THENRETURN
1496 ET=E+1:FT=F+1:GOSUB640:RETURN
1498 IFB(E-4,F-4)+B(E-5,F-5)<>0GOTO1506
1500 ET=E-4:FT=F-4:GOSUB640
1502 IFB(E-6,F-6)<>0THENRETURN
1504 ET=E-5:FT=F-5:GOSUB640:RETURN
1506 IFB(E-3,F-3)+B(E-5,F-5)<>0THENRETURN
1508 ET=E-3:FT=F-3:GOSUB640:GOTO1502
1512 POKE53280,0:POKE53281,0
1514 PRINT"[147][158]";
1516 PRINT"[159][169]   [223][146]  [169]   [223][146]      [223][146]   [169] [223][146]   [223][146]    [146]  [169]   [223]";
1518 PRINT"[153] [146]    [146]   [146][169] [223] [146]    [146] [223] [146]  [169][146][169] [223][223][146]   [223][146]   [146]   [146]    [146]";
1520 PRINT" [146]       [146]    [146]    [146] [169][146][169]   [146]    [146]   [146][223][223][146]  [146]   [146]    ";
1522 PRINT"[158] [146]    [146]   [146]    [146]      [223][146]       [146]   [146] [223][223] [146]   [146]    ";
1524 PRINT"[159] [146]    [146]   [146]    [146]    [146] [223] [146]   [146]    [146]   [146]  [223] [146]  [146] [146]    ";
1526 PRINT"[153] [146]    [146]   [223][146] [169] [146]    [146] [169] [146]   [146]    [146]   [146]    [146]   [146]    ";
1528 PRINT"[146][223]   [146][169]  [223]   [146][169]      [146][169]   [146]    [146]   [146]    [146]  [223]   [146][169]";
1530 PRINT"";:A=4
1534 FORI=1587TO1619:READM:POKEI,M:POKEU+4,0:NEXTI
1584 I=0:A=154
1588 PRINT"[158]DRUCKEN SIE";
1590 POKE1626+160,34   :POKE1626+54272,1
1592 POKE1684+A,134:POKE1684+A+54272,12
1594 POKE1685+A,177:POKE1685+A+54272,12
1596 POKE1643+A,108:POKE1643+A+54272,12
1598 POKE1644+A,98 :POKE1644+A+54272,12
1600 POKE1645+A,98 :POKE1645+A+54272,12
1602 POKE1646+A,123:POKE1646+A+54272,12
1604 POKE1683+A,225:POKE1683+A+54272,12
1606 POKE1686+A,97 :POKE1686+A+54272,12
1608 POKE1723+A,124:POKE1723+A+54272,12
1610 POKE1724+A,226:POKE1724+A+54272,12
1612 POKE1725+A,226:POKE1725+A+54272,12
1614 POKE1726+A,126:POKE1726+A+54272,12
1620 PRINT"[158]UND DAS SPIEL STARTET"
1636 POKE198,0
1638 GETA$
1640 IFA$=CHR$(133)THENTI$="000000":PRINT"[147]":RETURN
1644 IFA$=""GOTO1638
1646 GOTO1638
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
1730 DATA2,1,18,20,5,12,20
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
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
1800 IFKO=1THENGOSUB38
1805 PRINT""SPC(27)"DIE ANZAHL"
1810 PRINTSPC(27)"DER GESETZTEN"
1820 PRINTSPC(27)"[145]STEINE >[146]"KO
1821 PRINT
1822 PRINT
1823 PRINT
1830 PRINTSPC(27)"IHRE "
1835 PRINTSPC(27)"SPIELZEIT"
1838 PRINTSPC(27)"BETRAEGT:"
1839 PRINTSPC(27)""MID$(TI$,1,2)"  STUNDEN"
1841 PRINTSPC(27)""MID$(TI$,3,2)"  MINUTEN"
1842 PRINTSPC(27)""MID$(TI$,5,2)"  SEKUNDEN"
1850 RETURN
1900 IFD=0THENGOSUB38
1910 RETURN