<#{[ A{6:\"6zEz12345a$:a$;:1:"_";:0:a1=a1+1:z=17:z #x #a$=:a$=""9120# #a$=75 #Va$=12 9200#:b$=b$(̱b$-1):a1=a1-1:a5=1:90102# #a$13 9120# #x8;" ";:0:c$="":a$="":a1=0:a7=0:a2=0:z=115:z:rf=013 # #98;8;1;"_";0;" ";8;: @9  gxxRvanwsI C012aB2#A"" <#} BEAN $&$:]M32M_<#_{}<#b > _82@X:{ XhhX0000X0P@@P0Xh0@BC@ hh0@CB@0h "xx  5KHD>\\,C]}xЮ x؞ذк!<''w#!XO2O2GN(+]T!<>2J~O( ~('O(#:FĮG( ~(O(:FĮG(:J<2Jbk#*H:GĻ(2:O<2O{2Gs#:Jw[K#s#ry:JSK#>w##"H++4+++:JĆw*Kq#:Jw#"K!E(>2F!x"H!x"K0:OO!E(>2F!x"H!x"K:v( 0!x"ẃͶ:OO͍:PG:QO:OķG!P:QĆ2y*w^ >ZC_ >:>0 >N8 ((yDO( (͂> >KO y???#G:OĀG####p#— N(%:FĮG(5 ~O( ( :FĮG(>> ~(N( :FĮG >>  ~($O( :FĮG ~(N( :FĮG(>>0 ((0(0( >2> >>(>w#w+22 ͍.868 >2v>2!v4!1@_G(6X6+6 6#!:v<'G6#:v2:Ʒ >2vs!x"H!x"Kį2:!vľ4:O0:2v͑!{4#0!&K{! [Hs#r! [Ks#r!& ^#VSw:Ow˯2ź4̷w#!v:{ľ()ͳK{!! ^#V###s#rK{!! ^#VÀͳ!{40!&K{! [Hs#r! [Ks#r!& ^#VSw:O#w >2́:O4F w#!:v+N 0+:{G:FĨG(R>gK{!! +++V+^; %! +V+^; ^! +r+s:{(J:{x*;:2:v'O!>2:!xo~  8 !:{x*ù:Pķ(4G:Qķ(6@( !zO4>y(C$:ķɯ2FʐOx0 (!:Po!:QO}o!Àx*À:e2O!x:o#6! P~( O(G(#z2P{2QĂ*$| !++++:Fķ PQQP <+!K{! s#r|(^:Fw :F2F##^#V#~N#F#Y{(~w= 'O~:($:{ ! ^#Vz(6+6 "$ůNwy!& ^#VF+~8O]T+yS$!}!}:Fķ>(####s#r###= 2{!!d2z+!&K{! ^#VSH! ^#VSKK{!! ^#V|((#:Fķ(PQQP =+^ :F2F+:{2{R("#|(++|(#R:FĬ?0>> 88????BB~BBB!nX!n@!   6#>6=# 6R >j>f@(qGxGcx =G(=͠G##zN>I( A @ #H !=!!! ~7#>8>2!>6#>86# 6w#w$#@!@>;L;L;$=     @X:{g^> G XhhX0000X0P@@P0Xh0@BC@ hh0@CB@0hX0P@@P0X0000XhhX *=\|^> 2G >8 >8 P P P 88MOO\GWq !hv>>BB<DHpHDB@~BfZBBBBbRJFB@DTDD@DTD>BDD D@DTD>BDD DBDD m@Dx DDDDR<,R@DTD(@DTD|BDTx(BDTx>@D<@ (BDTx@>@D<@ (@D<@ m~D < 8@ 88D< > ~,<<8T@<8T@>@ << <8T@~@ << @ << t@ 1@@8@888888# # <@_<#<#8\\\}\}\ - X![!@P !::h K SR P  49000h 7000X O bb=is:wp=(bb/256):bp=(((bb/256)-(bb/256))*256) 4rf=1:f$="COMP.":g$=f$:n=060< n=2502 (w=0f$=d$ *w0g$=d$ - 60< 2w=0f$=d$:g$=e$ 7w0g$=d$:f$=e$ <*h$=((g$+" ")( 16)+f$) A:db FD21,0;"Black Men = ";20,0;"White Men = "; G/wp<10 20,12 ;wp;:73I H20,11 ;wp; I/bp<10 21,12 ;bp;:75K J21,11 ;bp; K$3,0;"No.Black White"; L,n22,20;"Level = ";l; P2,3;h$; U?wb=-1nq,np+1;mn;:np=np+4:mn=mn+1 Zpa=0is dwb=-1105i f!mn<10 nq,np+1;mn; gmn>9 nq,np;mn; hmn=mn+1:np=np-2 inp=np+6 nn=22000 xn=01000 $n=1wbw-11000 2000  Dwp+bp>45-n=0wb=-1ƾmp>0mp,(mp)-1 $n00,0;i$;i$; 30,1;"Please be quiet I am thinking"; i2,0;"*";:50980$,-wb:xx=cm:2,0;" ";:n=0l<41020 $1,20:1,12 ad=ms:xx>0pa=0 #xx=0a=0:1100L a=bm:a=01100L a=11060$ a=(*a)+1 $mo=(bm+a):z=1xx .(bm+a)=ad1100L 8ad=ad+6 Bz L?a=0nq,np;"Pass";:pa=pa+1:wb=-wb:2120H QKnq,np;(mo-((mo/10 )*10 )+64@)+(9 -(mo/10 )) S(*5)+30 V 2110>  50929,-wb:xx=gl 0,0;i$;i$; ^0,0;"Please enter your move,'P'= pass";1,5;"'R'=recommended move"; Onq,np;"";:tt=1:6000p:tt=0:mo=a0:mo=02090* imo=(bo+((mo/8.1)*2)+mo):mo=(((mo/256)-(mo/256))*256+0.5):ad=ms xx0pa=0 xx=02080  a=1xx mo=ad2110>  ad=ad+6 a  b0,0;i$;0,4;"Illegal move - try again";1,0;i$;:2025 *bxx00,0;"You cannot pass, you have a move";1,0;i$;:2025 44nq,np;"Pass";:pa=pa+1:wb=-wb:2120H > 3000 HFwb=0nq=nq+1:np=0:nq>18sc:nq=18 R=pa=2wp+bp=64@wp=0bp=02150f \ 90Z f10,0;i$;i$;:wp=bpb$="Drawn game" pwp>bpb$="White wins" zwp12 a1=a1-256 &m=m+a1:a2=m 0wb=031255 2&(a2/2)=a2/23150N 3 3130: 58((a2/2-(a2/2))*2)(wb)3150N :?m,(a2/2)*2+((a2/2-(a2/2))*2) ?y=120:y Ddb:3110& Nof=of+2:z S j$=bp:j$=1j$=" "+j$ T k$=wp:k$=1k$=" "+k$ U.21,11 ;j$;20,11 ;k$; X wb=-wb ](*5)+20 b pCc$="a":a7=1:rf=1:a=2:9000(#:rf=0 u7tt=1b$="R"a0=0:6500d:6000p z!tt=1b$="P"a0=0: !tt=0b$="E"a0=0: (b$)26100 "pp=b$(11)-64@ #pp<1pp>86100 Epq=b$(22)-491:pq<0pq>76100  a0=((7-pq)*8)+pp: a0=100d: d\q0=mp:mp,2:50980$,-wb:2,0;"*";:xy=cm:2,0;" "; na=bm:a=06700, x!ad=ms:mo=(bm+a):z=1xy mo=ad6700, ad=ad+6:z ,=1,0;i$;1,9 ;"Reccomended move = "; 6Da=01:1,28;"Pass";:0:6730J @h1:1,28;(mo-((mo/10 )*10 )+64@)+(9 -(mo/10 )):0 Jmp,q0:nq,np;"";: X 8000@ b"Enter option 0/1/2 ? "::"0 = Comp. v Comp.":"1 = Player v Comp.":"2 = Player v Player":0,21;"";:c$="012":a=1:rf=1:9000(#:rf=0:n=b$:5,0;"";:651529 ba ln=0:7310 vV:"Enter your name:":" - max.5 letters ? ";:c$="a":a=5:9000(#:d$=b$ :"Black or White B/W ? ";:c$="BW":a=1:9000(# b$="W"w=0 b$"W"w=1  wb=0 n=17310 W"Your opponents name":" - max.5 letters ? ";:c$="a":a=5:9000(#:e$=b$ :"Any handicaps Y/N ? ";:c$="YN":a=1:9000(# b$="N"7200  ]"Colour to be":" handicapped W/B ? ";:c$="WB":a=1:9000(#:b$="B"b=2 b$"B"b=3 Q"Number of":" corners 1/2/3/4 ? ";:c$="1234":a=1:9000(#:ch=b$ Sx=1ch:a=bo+((c(x)/8.1)*2)+c(x):a,(a/4)*4+b:x   Z"Do you wish to set":" the board up Y/N ? ";:c$="YN":a=1:9000(#:b$="N" *:db 4o0,0;"Enter a square to be changed";1,0;" eg:- 'A5' or 'E' to Exit :- ";:6000p 9a0=07500L ;pa0>64@2,0;7;2;"Error - Enter correct square";:1,0.5:72204 >l2,0;"White, Black, Empty W/B/E :- ";:c$="WBE":a=1:rf=1:9000(#:rf=0 H!b$="E"b=252:7260\ Rb$="B"b=3 Wb$"B"b=2 \#a=bo+((a0/8.1)*2)+a0 f2b=252a,(a/4)*4:7290z pa,(a/4)*4+b zdb 90,0;i$;i$;i$;0,0;:72204 "Level of play 0-10 ? ";:wb=0:c$="b":a7=1:a=2:9000(#:l=b$:l>10 "Enter correct level":11 ,0;"";:7310 mp,l  7080 L-0,0;i$;i$;i$;0,0; V{1,0;"(Black usually starts)";0,0;"Enter colour to move W/B ? ";:c$="WB":a=1:9000(# `b$="B"7550~ jb$="W"wb=-1 ~0,0;i$;i$;i$;0,0;"Do you want to change";1,2;"piece/square colours Y/N ? ";:c$="YN":a=1:9000(#:b$="N" _0,0;i$;i$;i$;:l$="dark squares":7700:z1<8q2,z1*8+66B Dl$="light squares":7700:z1<8q1,z1*8+66B 2l$="black pieces":7700:z1<8q3,z1 2l$="white pieces":7700:z1<8q4,z1 zdb:0,0;i$;i$;0,0;"Are the colours alright Y/N ? ";:a=1:c$="YN":9000(#:b$="Y"  7600 db:1,7;"'8' = No change";0,0;i$;0,0;"Colour of ";l$;" 0-8 ? ";:a=1:c$="812345670":9000(#:z1=b$: @0:0:7:7:0:0::c(4):bo=53258 :c(1)=1:c(2)=64@:c(3)=579:c(4)=8 B$a7=0:a5=0:a2=0 Eib=50698 :db=52659:is=51047g:ba=0:gl=50921:ms=53368x:os=55416x:sc=53010:cm=50972:bm=50258R:mp=50294v:sb=28257an:q1=52760:q2=52763:q3=52855w:q4=52851s Jib Tamn=1:wb=-1:np=0:nq=4:cp=0:rf=0:pa=0:tt=0 Y'i$=" " ^ #(Ka1=0:b$="":2:1;"_";0;:a>4a2=1 #2 x=1a #7a5=1x=a:a5=0 #<a$=:a$=""9020<# #=a$=75 #>:a4=a$:a4>96`a4<123{a4=a4-32 :a$=a4 #A$a4=13 a2=19140# #C/a4=13 a7=1a1>09140# #Faa4=12 a1>09200#:b$=b$(̱b$-1):x=x-2:a1=a1-1:9110# #Kc$"b"c$"a"9060d# #P4c$="b"a4>47/a4<58:9100# #Z-c$="a"a4>31a4<123{9100# #_ 9020<# #dy=1̱c$ #na$=c$(yy)y=c$:9100# #sy #x 9020<# #W8;:b$=b$+