-\r? 6X:\!<145580 K<45480+@ G=42384 G5060 T5047 XB=XH+(G-H)*XD YB=YH+(G-H)*YD  XL=XH+(G-H)*XD YL=YH+(G-H)*YD  S6=5  B31x5480+@  GW=2  7500j` h43650,F+B |42776a5580 ~T5550-p V5535, I=42867s I5540- "XA=43653:YA=43654  5580.` %XA=(I-1):YA=I:a=1  5580.` B=28`5555- "X0=43653:Y0=43654  5560- "X0=43651:Y0=43652  S2=3  ((S6S5)T)S2>2 0YP=0:S1=YP:S8=YP:XP=YP:43650,B K=42114 K59409 S95960:@ TS1=1 +K=16250CP 0 6200A 4425005950> 643650,B 943233 >S9TS1=1 BS9T6200A \42334^ f!S8=1:S6=S8:X5=X:Y5=Y: p(10 *X+Y+43921),J zV4+X,4+Y;7;2+((X+Y)/2-((X+Y)/2));"" =J=14+X,4+Y;1;0;"" 110,220;""; N<10 0;"0";  0;N  8:F0(B-2*(B/2)2)T6250CP ;XP=XH+6@*XD <YP=YH+6@*YD =;XP<1XP>10 YP<1YP>10 6250CP ?3(10 *XP+YP+43921)26250j B"X4=43653:Y4=43654 V S6=1 ` jT6800T nNR=NU  43681,(NU/10 ) 43729Ѫ,V K=42975ߧ  K>S2S2=K V=43729Ѫ S2=16900 "X0=43709:Y0=43710  "X0=43653:Y0=43654 "X1=43651:Y1=43652 & K GW=3@ LJ.2~L,-3:.18~8Q,1:.2~L,5:.73333,9 Q 17,1;"";:7 T.GW=2"B R A V O Sie haben gewonnen." V"GW=1"Ich habe gewonnen." Y19,1;""; ZN>10 S57525k( [,GW=2"Sie haben sehr gut gespielt." `&GW=1"Passen Sie besser auf." e,GW=3"Das Spiel ist unentschieden." gH=1100d:H jz17,1;"noch ein Spiel ?";4;" ";19,1;4;" " t=""7540k ~7560+(="j")*10 317,1;"Ich danke Ihnen fr das Spiel"    3 @ T1=0 JH=HU+1 T  J=X-1  H=Y-1  8400@ &K 0 J=J+1 : 8400@ DK N J=J+1 X 8400@ bK l H=H+1 v 8400@ K H=H+1 8400@ K J=J-1 8400@ K J=J-1 8400@ K H=H-1 K=0 7J<1H>10 J>10 H<18450 '(10 *J+H+43921)0 ! K=1 !  !4XXAYYA8505 !5 XA=0 !6 YA=0 !9XXBYYB8509 !: XB=0 !; YB=0 !=V8600` !>%J=43732ԪV+43730Ҫ2 !H!XɾJYɾ(J+1)85908 !MI=(J+51L) !RJ,(43730Ҫ+V) !\(J+1),(V+43731Ӫ) !f V=V-2 !p%I>14`I<1V85908 !u"(I+43730Ҫ),(V+43730Ҫ) !z"(I+43731Ӫ),(V+43731Ӫ) !|V=28585$ !}%H=43732ԪV+43728Ъ2 !!V=(H+51L)(H+51L),I !H ! V=V-2 !J !X5XY5Y8606x ! X5=0 ! Y5=0 ! S6=0 !U !%I=438339U+4383172 !!Xɾ(I-1)YɾI8640 !(I-1),(U+438306) !I,(U+438317) ! U=U-2 !I ! I"" X ^gom_mc {@3c2c33]I&R]Rv>!""": *"*"R *"*"R *"*"R *"*"R *"*"*"R *"*"Z *"*"R *"*"R *"*"R *"*"* (  > !:K y  y y y yO*yE( O{ !6#!:##w+:##w+*:g *K( (*K"C: !"v( !˦"v !զ"v!"v(!"v!:W{(*( :(0:('z!(= : }2Mz2:G zB :KyG zB *zB *}!O ^> O!6#: *"8 *"*", *"*"(*"*"*"Ҫ:Ѫo&   # +> ++>ҽ :Ҫ[(O!7 z {+ !: > !Ҫ44N!7 r+s:Ѫ(3O[!Ӫ z+ {(s[{# z(v[z+ {(y y !Ѫ4444:(44:ѪO!Ӫ [r+s+[r+s:(+[r+s:ѪO!W =w+:_w+r+sԨ2 :(+*1 :(%*2 :(*"ȨSÿȨSÿȨS!Ѫ55:ѪO!Ӫ V+^:(++si:*"*"*":ѪO!Ӫ T]:ҪO!7 +  !w#w+>7 >ӻ W ;9P;9P ;9P 88 MRrPGWq !v>$8>BB<DHpHDB@~BfZBBBBbRJFB8<< ~ @1 4131 1@(# # <@~ (UX\\\^\Y\]^^^\}X![!PP!11P3~[F}/r K SR P!"gom_mc"42114,1208 5:6:1: 2,7;"Scsibrany Software";6,10 ;"G O M O K U";4;7,10 ;" ";3;13 ,0;"whlen sie bitte aus:" 116,0;"Spielstrke (1 oder 2) ? "; i$=:i$"1"i$"2"10 ..1}L,9 :S5=(i$="1"):(S5)+1 B18,0;"wer beginnt (ch/ZX Spektr. ? "; i$=:i$"i"i$"z"17 8.1}L,0:S7=(i$="z"):(73I+S7*17) S:.1}L,2:.1}L,4:.1}L,6:.1}L,8:0 Q0,0;">>Gomoku Programm<<" xJ=120:1;"";4;" ";1;"":J "";1;7;"  1984 by Heinz Scsibrany ";6;"":a$="Gomoku Programm ***  1984 by Heinz Scsibrany *** " 2:3:4,4;1;" 0123456789 ":H=09 :J=(H/2-(H/2)):5+H,4;1;(H+65A); !&J"          "; "+J"          "; #2" ":H:15,4;" " (P1=21:P2=25:V=0:X=V:Y=V:X0=V:Y0=V:XU=V:YU=V:NR=V:X4=V:Y4=V:XB=V:YB=V:S6=V:X5=V:Y5=V:XA=V:YA=V:XG=V:YG=V:U=V:N=V 2I7:4:1:151,128:73I,0:0,-579:-74J,0:0,579:6,19;"Kommentar";10 ,21;"Zge:";11 ,22;"00";0;7;12 ,19;"<->":151,100d:72H,0:2:3:0 F42465 PS7S3=1:117u dl0;4;7,19;"Ihr Zug: ";1;8,22;"??":a=0:J=96` era=a+1:a=a-502*(a/513):a>36$7;0,8;a$(a)+a$(a-36$):103g f,7;0,8;a$(aa+14) g Y=-J:Y=217499K i&Y<1Y>10 Ŧ=""101e jOJ=96`X=Y:.1}L,X+2:0;8,22;(X+64@) mJ=47/112p oJ=47/:101e p:.1}L,Y+4:0;8,23;Y-1 q S3=0 rC(10 *X+Y+43921)0.3,502:100d s:N=N+1:7;0,8;"Gomoku Programm" tHXGXG,YG;0;2+((XG+YG)/2-((XG+YG)/2));"" vRL=0:a=L:S0=L:GW=L:S4=L:43659,L:43660,L:S1=L:S9=L:S8=L S3142 !0;7;"12",P1;"<" P1=P1-"1" -P1="18"7;12 ,19;"" P1="18"P1="21" MJ=2:X1=0:Y1=X1:NUM=X1:X3=XU:Y3=YU:T=1:T1=X1:S2=X1 S34500 6000p:YU=Y:XU=X N<24500 '85004!:X=XL:Y=YL:VS2=1 -43703,X:43704,Y:43690,T NR=190>S9375; ,NU=190:XD=0:YD=1:XH=X 9H=16:T18000@:H>6375w @F=60<:H<6F=32 *(10 *X+H+43926) :YH=H:43679,1:43649,H:B=425517 B=0275 4900 S13800m S84010 280 H=43649 H wNR=375wS9620l z,NU=375w:XD=1:YD=0:YH=Y EH=16:F=60<:T18000@:H>6620l 4H<6F=32 *(10 *H+Y+43971ë) 443649,H:43679,2:B=425517 B=0485r XH=H  4900 S13800m S84010  490u H=43649 H lNR=620S91200 q6NU=620l:XD=1:YD=1:YX900 {!Y-X+5 <01200 |ED=Y-X+6@ <H=1ED:F=60<:T18000@:H>ED1200 5HED1200 =F=60<:H11 1500 'X+Y<6@3000;+S9*1000z ED=X+Y-5 <H=1ED:F=60<:T18000@:H>ED1342> 0H3000;+S9*1000z 021(-X-Y<5 3000;+S9*1000z ?H=X+Y-10 6:T18000@:H>61645m  F=60p 5H<6F=32 *(9 *H+X+Y+43966) 443649,H:43679,5:B=425517 B=01630K XH=H  YH=X+Y-H  4900 S13800m S84010 , 1640M ^H=43649 hH m3000;+S9*1000z S65 2025} #X=XL:Y=YL:GW=1:T=1 "X=(.3+X):Y=(.3+Y) 7,19;1;5;"Mein Zug:";8,22;(X+64@);Y-1:.2~L,2+XU:.25~,YU-1:.1}L,X:.1}L,Y YG=Y+"4":XG=X+"4" N=22077 TXL=X:YL=Y TN=2X4=X:Y4=Y *TS2=2XL=X0:YL=Y0 >"S22X0XY0Y2150f H XL=X:YL=Y f 8500 k J=1 p!0;7;"12",P2;">" z P2=P2+"1" -P2="28"0;12 ,25;"" P2="28"P2="25"  6000; GWT7500L N=50H7499jX  100H S62600" X=X4 Y=Y4 2010{@ (X=X5 2Y=Y5 < 2010{@ X=XA Y=YA 2010{@ X=XB Y=YB  2010{@ T3014<` S33009< /S3=1:NR=0:X=X4:Y=Y4:187 .T=0:X=XU:Y=YU:NR=0:187 XB2800/ XAS2<32700 ((S6=1S4)S2<32500 5S2>1(V>2+(*3)S0)3020 U3700g@ S213630. S7N=50H7499jX 3500Z X=XL:Y=YL T=1 J=1 (*2)J=-1 X=X+J (*2)J=-J Y=Y+J 7X<1X>10 Y<1Y>10 3045>P 1(10 *X+Y+43921)=02010 & 3045>P X=((XU+X3)/2) Y=((YU+Y3)/2) 1(10 *X+Y+43921)=02010 "3030=`+10 *(*2) . T=1 1S2=13660L 3X=X0 8Y=Y0 =!X=0Y=03660d B 2010{@ L(X=(V+43730Ҫ):Y=(V+43731Ӫ) X 8200 ZKV2V=V-2 \KV23660d ` 2010{@ tS03785l yV3740i |43730Ҫ,U ~43729Ѫ,V 432633740 I=43704  3770k I=U+438317 X=(I-1) Y=I  K=0 S08200 KI438328I=I-2 KI4383283770  2010{@ I=S0+438317  3770 HU=H NUM=NU  S1=0 42372 N<3@4001z S=15 2 þ(43656+S)4000  X=(43656+S) Y=(43657+S)  S9=1 2 187; S X=XU Y=YU S9=- T1=/ NR=- 43703,X 43704,Y 43690,T NUM H=16@ X=5 +(*2) Y=5 +(*2) 1(10 *X+Y+43921)=02010 H þ436593045 X=43659 Y=43660  2010{@ $@43705,XD:43706,YD:43663,XH:43664,YH L42476  GW=0 K=42440ȥ  S8=0 K=1S9 TB21(S45011  S4=1 X4=43669 Y4=43670 S95029 F43730Ҫ,U:43694,(L/10 ):43680,(NU/10 ) 0XP=42911:U=43730Ҫ:XPS0S0=XP K>1S0S0=U L=NU:K=1  5580 "K=2B