T 8L?.!\D:\0-,2-vor,3,-3,2-vor,1,1,-1,-1 ҷ3,5,4,-1,7,4,-1,0,0,2-vor,-1,-1,2-vor,-3,-3,2-vor,-2,-2,-2,-2 ܷ3,5,4,-1,7,4,-1,0,0,2-vor,-2,-2,2-vor,-3,-3,2-vor,-1,-1,-1,-1 ޲3,5,3,-1,1,5,1,0,0,1+vor,1,-1,1+vor,2,-2,1+vor,-1,3,1,-3 ߵ3,5,3,-1,7,3,-1,0,0,1+vor,-1,-1,1+vor,-2,-2,1+vor,-3,1,-3,1 3,1,5,1,1,5,1,0,0,1+vor,1,0,1+vor,2,0,1+vor,-1,3,0,0 131,5,3,-1,1,7,1,0,0,1+vor,0,-1,1+vor,0,-2,1+vor,0,0,-3,1 5,2,4,1,1,5,1,1,0,1+vor,2,0,1+vor,0,0,0,0,-1,1+vor,0,1,1+vor,0,0,0,0 5,2,4,1,1,5,1,0,0,1+vor,1,0,1+vor,2,0,0,2,-1,1+vor,2,1,1+vor,2,2,0,0 5,1,3,1,1,5,1,0,0,1+vor,1,0,0,2,0,1+vor,1,1,1+vor,1,2,1+vor,1,1,0,0 5,1,3,1,1,5,1,1,0,1+vor,1,1,1+vor,1,2,0,1,2,1+vor,2,2,1+vor,1,1,2,2 5,2,4,1,1,5,1,1,0,2-vor,2,0,2-vor,0,0,0,0,-1,2-vor,0,1,2-vor,0,0,0,0 5,2,4,1,1,5,1,0,0,2-vor,1,0,2-vor,2,0,0,2,-1,2-vor,2,1,2-vor,2,2,0,0 5,1,3,1,1,5,1,0,0,2-vor,1,0,0,2,0,2-vor,1,1,2-vor,1,2,2-vor,1,1,0,0 5,1,3,1,1,5,1,1,0,2-vor,1,1,2-vor,1,2,0,1,2,2-vor,2,2,2-vor,1,1,2,2 5,1,5,1,1,3,1,0,0,0,1,0,2-vor,2,0,2-vor,3,0,0,4,0,0,3,3,0,0 5,1,5,1,1,3,1,0,0,0,1,0,0,2,0,2-vor,3,0,2-vor,4,0,0,1,1,0,0 5,1,1,1,1,7,1,0,0,0,0,1,2-vor,0,2,2-vor,0,3,0,0,4,0,0,0,3,3 5,1,1,1,1,7,1,0,0,0,0,1,0,0,2,2-vor,0,3,2-vor,0,4,0,0,0,1,1  5,5,5,1,1,3,1,0,0,0,1,-1,2-vor,2,-2,2-vor,3,-3,0,4,-4,0,3,3,-3,-3  5,5,5,1,1,3,1,0,0,0,1,-1,0,2,-2,2-vor,3,-3,2-vor,4,-4,0,1,1,-1,-1  5,1,1,1,1,3,1,0,0,0,1,1,2-vor,2,2,2-vor,3,3,0,4,4,0,3,3,3,3  5,1,1,1,1,3,1,0,0,0,1,1,0,2,2,2-vor,3,3,2-vor,4,4,0,1,1,1,1  5,1,5,1,1,3,1,0,0,0,1,0,1+vor,2,0,1+vor,3,0,0,4,0,0,3,3,0,0 5,1,5,1,1,3,1,0,0,0,1,0,0,2,0,1+vor,3,0,1+vor,4,0,0,1,1,0,0 5,1,1,1,1,7,1,0,0,0,0,1,1+vor,0,2,1+vor,0,3,0,0,4,0,0,0,3,3 5,1,1,1,1,7,1,0,0,0,0,1,0,0,2,1+vor,0,3,1+vor,0,4,0,0,0,1,1 5,5,5,1,1,3,1,0,0,0,1,-1,1+vor,2,-2,1+vor,3,-3,0,4,-4,0,3,3,-3,-3 5,5,5,1,1,3,1,0,0,0,1,-1,0,2,-2,1+vor,3,-3,1+vor,4,-4,0,1,1,-1,-1 5,1,1,1,1,3,1,0,0,0,1,1,1+vor,2,2,1+vor,3,3,0,4,4,0,3,3,3,3 5,1,1,1,1,3,1,0,0,0,1,1,0,2,2,1+vor,3,3,1+vor,4,4,0,1,1,1,1 3,1,5,1,1,5,1,0,0,2-vor,2,0,2-vor,1,0,0,1,1,0,0 131,1,3,1,1,7,1,0,0,2-vor,0,2,2-vor,0,1,0,0,0,1,1 3,1,3,1,1,5,1,0,0,2-vor,2,2,2-vor,1,1,0,1,1,1,1 3,1,3,1,5,3,-1,0,0,2-vor,-2,2,2-vor,-1,1,0,-1,-1,1,1 3,1,5,1,1,5,1,0,0,1+vor,2,0,1+vor,1,0,0,1,1,0,0  131,1,3,1,1,7,1,0,0,1+vor,0,2,1+vor,0,1,0,0,0,1,1 "3,1,3,1,1,5,1,0,0,1+vor,2,2,1+vor,1,1,0,1,1,1,1 ,3,1,3,1,5,3,-1,0,0,1+vor,-2,2,1+vor,-1,1,0,-1,-1,1,1 ^2,5,2,-1,1,6,1,0,0,1+vor,1,-1,1+vor,-1,2,1,-2 h2,5,2,-1,7,2,-1,0,0,1+vor,-1,-1,1+vor,-2,1,-2,1 r2,1,5,1,1,6,1,0,0,1+vor,1,0,1+vor,-1,2,0,0 |130,5,2,-1,1,7,1,0,0,1+vor,0,-1,1+vor,0,0,-2,1 2,5,2,-1,1,6,1,0,0,2-vor,1,-1,2-vor,-1,2,1,-2 2,5,2,-1,7,2,-1,0,0,2-vor,-1,-1,2-vor,-2,1,-2,1 2,1,5,1,1,6,1,0,0,2-vor,1,0,2-vor,-1,2,0,0 130,5,2,-1,1,7,1,0,0,2-vor,0,-1,2-vor,0,0,-2,1 N 255 X figuren  bx=17 ly=15 v)stein=a(x,y):stein=07100 \stein=1y*4-1,x*4-1;"";y*4,x*4-1;"" \stein=2y*4-1,x*4-1;"";y*4,x*4-1;"" y:x: @ gewonnen ?  E 7000X Jy=15:x=14:a(x,y)0a(x,y)=a(x+1,y)a(x,y)=a(x+2,y)a(x,y)=a(x+3,y)gew=a(x,y):85004! Tx:y ^y=12:x=17:a(x,y)0a(x,y)=a(x,y+1)a(x,y)=a(x,y+2)a(x,y)=a(x,y+3)gew=a(x,y):85004! hx:y ry=54-1:x=14:a(x,y)0a(x,y)=a(x+1,y-1)a(x,y)=a(x+2,y-2)a(x,y)=a(x+3,y-3)gew=a(x,y):85004! |x:y y=54-1:x=74-1:a(x,y)0a(x,y)=a(x-1,y-1)a(x,y)=a(x-2,y-2)a(x,y)=a(x-3,y-3)gew=a(x,y):85004! x:y zug35# N9 ,0;1;1,," Keiner hat gewonnen ! ",,,:8510>!  7y=15:x=17:a(x,y);:x::y  !4_9 ,0;1;1,," ";(q$gew=1);(w$gew=2);" hat gewonnen.",,, !>>1,35#:"Noch einmal ? (*/n) ";n$:n$="n"n$="N" !H ! aufgegeben  !u0,0;(q$spielm=1);(w$spielm=2);" wollen Sie"'"aufgeben ? ";a$:a$="j"a$="J"8630! ! 2020 !)spielm=2gew=1:85004! !gew=2:85004! #' #( u.d.g.  #--"a"=255ƾ("a"+1)=128 #2T9000(#:f="a""h"+7:g:f,255*(f"e")-g+g*2*(f<"e"):f: #UU?_ow{}~޾~~}{wo_?~>>BB<DHpHDB@~BfZBBBBbRJFB~~~<<B~~  罽   BBBbDBf@@BB@BBBFFF(FDf8@   BBRBBZ||@BRRRRBB< �   @DBFDBB @BBBBBBbbbbDBDB Á߁   ~BBBx~~<<<<<|<<<<><x>B<<     L<<@~<<<<@<<||>B<|<>BB~|<~$B~BB~$<<||>B<|<||>JJJ@@<JBBRB|BRB|B<|Z|RB|JBBRB| |B@~>JB@|@B@JB@Dxx ,H!@b@@(D >bbbB@Bb@DFBBF$@DB@B@FB@@b@DFBBBBDBB>Bx@@ Bx@@ ,D!~<~~8 <><<<~<>><@B>BB|<>B~B<~>B~B<~>~<@B>BB|<|B>><@8< < <@8< < ,Bo 6 @ @Q8888  # <@@PT8&\\\}\{{{|}}}\m X![ PP!!88"W K SR P   *   * *   *  by S.Slabihoud *   * *   * Gustav-Ohm-Str.72 *   * *   * 4250 Bottrop *   * *   * Tel.: 02041/23488 *   * *   *      9000(# a(7,5)  vor=0 d n#9 ;1;" M E N U E : " x0''3;1;" 1 = Spieler - Spieler " 0''3;1;" 2 = Spieler - Computer " 0''3;1;" 3 = Demo " ^''''" 00 => Aufgeben"''" ? oder c => Zugvorschlag "'" * oder b => Zugvorschlag+Ziehen" ~#0;0,0;" 4 Gewinnt - mit Kuenstlicher Intelligenz  by S.Slabihoud SOFTWARE 1986 " i$=:i$<"1"i$>"3"200 modus=i$ .1}L,10  Amodus=3anf=1:q$="Spectrum":w$="C 64":400 ,:"Name (Spieler 1) : ";q$:q$>16q$=q$(16) 6Vmodus=1anf=1:"Name (Spieler 2) : ";w$:w$>16w$=w$(16) @kmodus=2w$="Spectrum":"Wollen Sie anfangen ? ";m$:anf=0:m$="j"m$="J"m$=""anf=1 Jq$=""q$="Spieler 1" Tw$=""w$="Spieler 2" 1000:spielfeld  zug=0 anf=0530  spielschleife  spielm=1:2000  8000@ +modus=1spielm=2:2000 ^modus=2spielm=2:vor=0:set=0:6000p:0,0;"00" +modus=3spielm=2:2000  8000@ & 500   40,0;" A B C D E F G " f=1624032 f,0:0,168 f @f=016832 :16,f:224,0:f @f=3214:f,0;(f/4)+1:f $  spieler 1  .1}L,0 2x1=0:y1=0:set=0:vor=0 modus=3="s"Ŧ="S" 0modus=3vor=1:a$="*":2021 l0,0;("ZUG (";(q$spielm=1);(w$spielm=2);") : "'"===> ");a$:a$="00"8600! a$="*"a$="b"set=1 Ka$="?"a$="c"set=1vor=1:6000p:0,0;"00" vor=1x1=0y1=0#0;1,0;" Kein Zugvorschlag !":1,25:1:0:set=0:vor=0:2020 vor=1x$=(64@+x1):y$=y1:#0;0,0;" Zugvorschlag : ";x$;y$,(" Automatischen ziehen ! "set=1);(" >DEMO<"modus=3):.75@,10 :1:0+1*(set=1):vor=0:2020+5*(set=1) "":set=1a$=x$+y$ &set=0:a$22020  x$=a$(1):y$=a$(2) $x$"0"x$"9"h$=x$:x$=y$:y$=h$ #x$"a"x$"z"x$=(x$-32 )  kx$<"A"x$>"Z"y$<"0"y$>"9"#0;1,0;" Falsche Eingabe ! ":1,0:2020 y=y$  x=x$-64@ %wx<1x>7y<1y>5#0;1,0;" Falsche Eingabe ! ":1,0:2020 *^a(x,y)0#0;1,0;" Falsche Eingabe ! ":1,0:2020 4 zug=zug+1:a(x,y)=spielm >   setzen bei xxx  9x1<1x2<1x1>7x2>7g-10 9y1<1y2<1y1>5y2>5g-10 \x21x27y21y25a(x2,y2)=0x1=x2:y1=y2:5060 &x1<1x1=x2:y1=y2:5050 &y1<1y1=y2:x1=x2:5050 &x1>7x1=x2:y1=y2:5050 &y1>5x1=x2:y1=y2:5050 9x1<1x1>7y1<1y1>5g-10 pos=a(x1,y1) pos0g-10 0vor1zug=zug+1:a(x1,y1)=2 "": p computer logical  q6500d:da=6500d rvor=1#0;0,0;" Zugvorschlag : (";(q$spielm=1);(w$spielm=2);")"'(" Automatisches Ziehen ! "set=1);(" >DEMO<"modus=3):.1}L,25 uNvor1#0;1,0;" Computer Zug ! ":.1}L,20 w1zug=1zug=06500d:6400 z anz:anz=2556400 gda=da+10 :aa=(da-6500d)/10 :0,0;("0"aa<10 );aa:.01z# =,0 modus=3="s"Ŧ="S" anz=36100 anz=1316150 anz=262008 anz=1306250j anz=56300 ]9 ,0;1;1,," Error im Computer-Logical ! ",,:1,0:  3 daten - y,x  Dyv,yb,ys,xv,xb,xs,xa1,ya1,z1,xa2,ya2,z2,xa3,ya3,z3,xx1,xx2,yy1,yy2 y=yvybys:x=xvxbxs:a(xa1+x,ya1+y)=z1 a(xa2+x,ya2+y)=z2 a(xa3+x,ya3+y)=z3x1=x+xx1:x2=x+xx2:y1=y+yy1:y2=y+yy2:g=6140:5000 x:y  6010z  3 daten - x,y  Dyv,yb,ys,xv,xb,xs,xa1,ya1,z1,xa2,ya2,z2,xa3,ya3,z3,xx1,xx2,yy1,yy2 x=xvxbxs:y=yvybys:a(xa1+x,ya1+y)=z1 a(xa2+x,ya2+y)=z2 a(xa3+x,ya3+y)=z3x1=x+xx1:x2=x+xx2:y1=y+yy1:y2=y+yy2:g=6190.:5000 $y:x . 6010z 8 2 daten - y,x  B9yv,yb,ys,xv,xb,xs,xa1,ya1,z1,xa2,ya2,z2,xx1,xx2,yy1,yy2 Ly=yvybys:x=xvxbxs:a(xa1+x,ya1+y)=z1 a(xa2+x,ya2+y)=z2x1=x+xx1:x2=x+xx2:y1=y+yy1:y2=y+yy2:g=6240`:5000 Vx:y ` 6010z j 2 daten - x,y  t9yv,yb,ys,xv,xb,xs,xa1,ya1,z1,xa2,ya2,z2,xx1,xx2,yy1,yy2 ~x=xvxbxs:y=yvybys:a(xa1+x,ya1+y)=z1 a(xa2+x,ya2+y)=z2x1=x+xx1:x2=x+xx2:y1=y+yy1:y2=y+yy2:g=6290:5000 y:x  6010z  5 daten - y,x  Zyv,yb,ys,xv,xb,xs,xa1,ya1,z1,xa2,ya2,z2,xa3,ya3,z3,xa4,ya4,z4,xa5,ya5,z5,xx1,xx2,yy1,yy2 y=yvybys:x=xvxbxs:a(xa1+x,ya1+y)=z1 a(xa2+x,ya2+y)=z2 a(xa3+x,ya3+y)=z3 a(xa4+x,ya4+y)=z4 a(xa5+x,ya5+y)=z5x1=x+xx1:x2=x+xx2:y1=y+yy1:y2=y+yy2:g=6340:5000 x:y  6010z  random logical  Yzug=0x1=(*3)+3:y1=(*3)+2:x2=x1:y2=y1:5000  x=17:y=15:a(x,y)=1+vor-vor*(modus=3spielm=2)x1=x+(*2)-1:x2=x+(*2)-1:y1=y+(*2)-1:y2=y+(*2)-1:x1=x1-1*(x1>7):x2=x2-1*(x2>7):x1=x1+1*(x1<1):x2=x2+1*(x2>1):y1=y1-1*(y1>5):y2=y2-1*(y2>5):y1=y1+1*(y1<1):y2=y2+1*(y2<1):g=6430:5000 y:x 2f=1100d:.01z# =,30:x=(*7)+1:y=(*5)+1:a(x,y)=0a(x,y)=2*(vor=0):x1=x:y1=y:zug=zug+1*(vor=0): 7f <'vor=1x1=0:y1=0: F`9 ,0;1;1,,;" ";q$;" hat gewonnen."," Ich gebe auf ! ",,,:8510>! d logical list  n3,5,3,-1,1,5,1,0,0,2-vor,1,-1,2-vor,2,-2,2-vor,-1,3,1,-3 x3,5,3,-1,7,3,-1,0,0,2-vor,-1,-1,2-vor,-2,-2,2-vor,-3,1,-3,1 3,1,5,1,1,5,1,0,0,2-vor,1,0,2-vor,2,0,2-vor,-1,3,0,0 131,5,3,-1,1,7,1,0,0,2-vor,0,-1,2-vor,0,-2,2-vor,0,0,-3,1 3,1,5,1,1,4,1,0,0,2-vor,1,0,2-vor,3,0,2-vor,2,2,0,0 3,1,5,1,1,4,1,0,0,2-vor,2,0,2-vor,3,0,2-vor,1,1,0,0 3,1,2,1,1,7,1,0,0,2-vor,0,1,2-vor,0,3,2-vor,0,0,2,2 3,1,2,1,1,7,1,0,0,2-vor,0,2,2-vor,0,3,2-vor,0,0,1,1 3,5,4,-1,1,4,1,0,0,2-vor,1,-1,2-vor,3,-3,2-vor,2,2,-2,-2 Ȳ3,5,4,-1,1,4,1,0,0,2-vor,2,-2