reversi .0C REVERSI  Gordon Stevens .31475z:23659k\,0:2000  d(4) Sd(1)=2:d(2)=66B:d(3)=64@:d(4)=68D #b5:5:0:0:0:0:23659k\,2::23659k\,0 2,23659k\,2::23659k\,0 4 7 r=70F <a(3,3) Aa(1,1)=1:a(2,2)=1.5@:a(1,3)=2:a(3,1)=2:a(2,3)=2.5 :a(3,2)=2.5 :a(3,3)=3 Ff(8,8) Kf(1,1)=15:f(3,3)=10 :f(1,2)=1:f(1,3)=12 :f(1,4)=8:f(2,3)=6:f(2,4)=6:f(3,4)=10 Na=18 Ob=18 P8x=4.5-(a-4.5):y=4.5-(b-4.5) Rxy85U Sx=y Ty=4.5-(a-4.5) Uf(a,b)=f(x,y) Vb Wa Y t=0 Zgrid2=31493{ dmode=31498 { imode+1,64@ nspace=31495{ xwhite=31496{ black=31497 { dfile=32000} " 1 2 3 4 5 6 7 8" a=19 a+a,0;a b=19 5a+a-1,b+b-1;"+-";a+a,b+b-1;":." b -a+a-1,18;" ";a+a,18;" " +a:18,0;" " 88,8;"O:O";10 ,8;"O:O" 1700 8co=32001}:x=017:y=017 s$=(x,y) L(x=8y=8)(x=10 y=10 )co+(33!*x)+y,180 K(x=8y=10 )(x=10 y=8)co+(33!*x)+y,524 $s$="."co+(33!*x)+y,27 y:x '19,1;"PLEASE ENTER MOVE" /23659k\,2:a$:23659k\,0 >19,1;" "," " a$="N"a$="n"515 a$2250 "`a$(1)<"1"a$(1)>"8"a$(2)<"1"a$(2)>"8".5,-10 :250 ,x=a$(1) 6y=a$(2) J"pos=dfile+y*66B+x+x+1 |.pos27.5,-10 :250 print=1 home=524 away=180  800  'valid.5,-10 :250  r=r-1 home=180 away=524  ha=black & aa=white 0mode,133 ? 1400x Nmax700 Xa$="n"a$="N"1300 bG20,1;"I can't go":.25~,0:.25~,-5  250  pos=best print=1  800   r=r-1 .5,-10 :250  valid=0 * s=1 4a=14 9d=d(a) H 1040 Rp=home1105Q \!q=(p27)*2+(paway) f d=-d(a) p 1040 zprint940 p=home1105Q &p=a(q,(p27)*2+(paway)) t=t+p ps=2 a  valid grid=pos-dfile y=(grid/66B) %x=(grid-y*66B-1)/2 t=(t+f(x,y)*r/25)/s  print +x1x8y1y8 xd=(4-x) yd=(4-y) f(x,y+yd)=9 f(x+xd,y)=9 /f(x+xd,y+yd)=5+(home=180)*3 f(x+3*xd,y)=10 f(x,y+yd*3)=10  b=17 p=(pos+b*d) $ p=awayb ) b=1 .p=home1090B 3p=away 8 Bvalid=1 Gprint1140t Lt=t+b+(a>2) Q ext=pos+b*d Vb=17 [p=(ext+b*d) ` p=homeb j tc=0b-1 ~pos+c*d,home e=13 pos1=(pos+c*d)-dfile Bxpos=(pos1/66B):ypos=(pos1-xpos*66B-1)/2 &xpos=xpos*2:ypos=ypos*2 xpos,ypos;"X":5 3xpos,ypos;0+(home=180);"O":5 e c p=away  pos=69E+dfile  wh=0  bl=0 %21,0;"COUNTING SCORE:" a=07 (b=07 2c=(pos+a*2+b*66B) <bl=bl+(c=180) Fwh=wh+(c=524) K621,20;wh;21,25;1;bl Pb Za dc21,0;" ";21,0;"WHITE: ";wh;" BLACK ";bl n-1,0:1:0:20 xprint=0 } max=0 grid2,45- grid2+1,0 31512{ 5pos=dfile+grid2+256*(grid2+1)-1  t=0  800  valid1440 "t=t+ ,tmax1440 ^max=t h best=pos r 1440 Instructions $0,18;" REVERSI " $2,18;"Reversi is set" $3,18;"up on an 8x8 " $4,18;"grid. The aim " $5,18;"is to sandwich" $6,18;"the computer's" $7,18;"black pieces " $8,18;"between two of" $9 ,18;"yours. " $11 ,18;"Enter your go" $12 ,18;"as column-row" $13 ,18;"E.G. '43' " $15,18;"Enter 'n' if " $16,18;"you cannot go"  i=03 4a$(4-i)=(a-16*(a/16)+28) a=(a/16) &i 0 6:x=0115s:byte:31500 {+x,byte:x: 32,68D,66B,64@,254,188,190,192,23,23,23,23,33!,535,2,237,91[,5,123{,167,237,82R,77M,68D,33!,0,125},235,25,213,209,62>,27,237,177,224,213,167,229,237,82R,34",5,123{,225,197,229,33!,7,123{,546,0,35#,546,0,35#,546,0,33!,11 ,123{,6,9 ,546,16,11 ,42*,10 ,123{,126~,225,193,167,40(,211,209,201,209,213,27,229,110n,38&,0,203,125},40(,1,37%,25,209,126~,33!,7,123{,254,27,32 ,1,524,35#,254,524,32 ,1,524,35#,254,180,32 ,1,524,235,24,204,0 tsytB@DU