PPO? Uݛ6D:\!=V?J(18,d*6-4;z$;:y$=z$ Kls=0592P L'ls>0n(ls,v)=ps=ls:603[ P2s=0:1;"?";8;:0:z$= Rz$="s"s=4 Tz$="h"s=3 Vz$="d"s=2  Xz$="c"s=1 Zs=0592P [s=2s=32 \s$(s):0 bn(s,v)p656 dd=1ls=s f!lssj(p,ls)>0656 p 908 ?l=l-1:21,24;"INVALID";:0.2~L,1 518,d*6-4;" ";8;8; <502:21,24;" ";:0.2~L,1  552( 21,15;"Computer" hi=0:lo=15:mn=0:c2=0:p4=p+2-4*(p>2):p5=p+1-4*(p>3):p6=p+3-4*(p>1):tp=t(1)+t(2):yc=0:p=dup=dcyc=1 lead=p767 'hc=win-100d*(win>100dls=t) j(p,ls)=0700 j(p,ls)>1686 3i=2m(ls):n(ls,i)=pv=i:s=ls:i=15 i:908 Fi=2m(ls):n(ls,i)=pc2=hi:hi=i:s=ls:i>hcmn=0mn=i n(ls,i)=plo=15lo=i i  709 t=5878n 5lead=p4(d=4hc>11 hc=m(ls))706 od=2((n(ls,m(ls))=p4(j(p5,ls)>0j(p5,t)=0))(j(p4,t)>0j(p4,ls)=0))876l  848P +d=4(d=3hc=m(ls))878n ]j(p,t)<13 -t(1)-t(2)(j(p5,ls)>0j(p5,t)+j(p6,t)=0)878n  848P mj(p,s)=2hi<11 t(1)+t(2)<7stt<5d=3pdcpduv=hi:908 hi0n(ls,i)p)ct=ct+1 fi:ct=0j(p,ls)>1hi=m(ls)j(p4,ls)=0j(p5,ls)1j(p6,ls)=0759 ct=0758 dup5735 hidh)+dh*(dh>hc):730 vv=dh:hc>dh758 hi>vv752 v(p4)>dd758 vv=dd:leadp4hc>ddvv=hc hi10 740 c210 dh>10 tp8r(p6)=ls755  759 &dh>hctp8r(p6)=ls758  759 lead=p4hc>9 748 2c28r(p6)ls759 Nr7=0:i=c2+1m(ls):x=n(ls,i):x>0xp4xpr7=r7+1 i:r7>1759  755 Nr7=0:i=hc+1m(ls):x=n(ls,i):x>0xpxp4r7=r7+1 #i:r7>1r(p6)ls759  758 'i=vv+1hi:n(ls,i)=pv=i:i=hi i:908 3v=c2:n(ls,v-1)=pc2=c2-1:755  908 v=c2:908 v=lo:908 3v=hi:n(ls,v-1)=phi=hi-1:759  908 lead=p4v=lo:908 v=mn:908 8v=0:s=0:h=0:tp>8844L t<5273 tp=0830> '783:v>0ls=s:908 `h=h+1:h=5(tp>8(yc=0t(p-2*(p>2))7-z))h=7  h=6t<5h=9 +h=9 t=5tp>8h=6 t=5770 &h=11 j(p,t)=0h=6  770 5i=lsls+3:v>0i=ls+4:787 8s=i-4*(i>4):s=tj(p,s)=0787 Sk(s)=0j(p,s)=1otr=0840H:v=hi:i=ls+5:787 +v=0788:790+3*h i: dym=(n(s,m(s))=p):pm=(n(s,m(s))=p4):yn=j(p,s):pn=j(p4,s):no=j(p5,s):oo=j(p6,s):k(s)=0 'ys=(n(s,k(s))=p):ps=(n(s,k(s))=p4): [otr=0(no+oo=0((ym=1pm=1)no+oo2))840H:8259  \ym=1ys=1(otr=0k(s)=13 (no>0oo>0))840H:v=hi  mpm=1ps=1(otr=0(no>0oo>0))840H:v=lo :hi<10 yc=0v=hi  yc=1(ym=1ys=1)(otr=0(no>0oo>0))(pm=1ps=1)(yn>1pn>1)840H:v=hi:ynpnv=lo ! "yk=(n(s,13 )=p):yq=(n(s,12 )=p):yj=(n(s,11 )=p):(otr=0(no>0oo>0))((yk=1yq=1)(yq=1yj=1))v=12 :yk=1v=13 # %pm=1k(s)-1>0(otr=0(no>0oo>0))n(s,k(s)-1)=p4840H:v=lo:hi<9 yc=0v=hi & (Yln=0:j=14:j(p,j)>0j(p,j)+j(p4,j)>lnln=j(p,j)+j(p4,j):s=j )pj:840H:v=lo*(hi10 )+hi*(hi<10 ):(du=p5du=p6)j(du,s)=1ym=1n(s,k(s))=duv=hi * +/pm=1840H:v=lo:hi<9 v=hi , .ym=1840H:v=hi / 1(yn=1yt>0840H:v=hi 2 4kpn=1pt>0840H:v=lo:(yc=0hi<11 )(yc=1ym=1ps=0)v=hi 5 7 430: 9%yn=1pn0yn1ps=1v=lo < >Epb=0:k=14:d(p4,k)=1j(p,k)>0pb=k ?k:pb=0836D @Ks=pb:840H:v=hi:j(p,s)3hi>10 n(s,hi-1)pv=lo Cls=s:908 DIs=l(p):ls=s:840H:hi>10 n(s,hi-1)=pv=hi:908 EZr7=0:k=m(s)2-1:n(s,k)=pr7=r7+1:r7=4v=k:k=1 Fk:ls=s:908 HEhi=0:lo=15:j=2m(s):n(s,j)=plo=j:j=15 I7j:j=m(s)2-1:n(s,j)=phi=j:j=1 Kj: Lts=0:ct=0:i=14:ct=ct+(j(p,i)>0):s=s+i*(j(p,i)>0):i:ct1768 M;840H:548$:v=hi:v0)lo=i R;win>100dn(t,i)=p(i+100d)>winmn=0mn=i Ti Vhi+100d0876l cv=lo:s=t:908 nt=5881q oHj(p,t)=13 -t(1)-t(2)s=t:840H:v=lo:908 pj(p,t)>0885u qv=0:x=14:xtxlsj(p,x)>0s=x:840H:j(p,x)>3(j(p,x)=3hi0908 uav=0:x=14:xtxlsj(p,x)=1s=x:840H:hi0908 xav=0:x=14:xtxlsj(p,x)=2s=x:840H:hi0908 ?tt=0:x=14:xtj(p,x)>tttt=j(p,x):ss=x x:s=ss:840H:v=lo d=1ls=s Onv=0+v*(ls=ss=t)+100d*(s=t):nv>winwin=nv:w$=p$(p):lead=p 'n(s,v)=0:j(p,s)=j(p,s)-1 nb8=1:1700:18,d*6-4;z$;u(p,1)-3,u(p,2)-6;z$;:y$=z$ s=2s=32 <s$(s,1);18,d*6-3;s$(s):0: (tp>8hi=m(ls))(du=p5j(p5,ls)=1hi=m(ls)n(ls,m(ls)-1)=p5)(n(ls,m(ls))=p4hi=k(ls)-1j(p4,ls)>0n(ls,k(ls))p4)966 j(p5,ls)=0968 dup5932 t=5926 2j(du,ls)=0lstj(du,t)>0964 ld>hi964 hihc)+hc*(hc>dh):c2>vv958 Tq9=0:i=11 14:q9=q9+(n(ls,i)=p4i>hc):i:q9>0940 3hc>9 n(ls,hi-1)=phi=m(ls)966 c210 964 hi<11 966  968 'i=vv+1hi:n(ls,i)=pv=i:i=hi i:908 4v=c2:n(ls,c2-1)=pc2=c2-1:960  908 v=lo:908 4v=hi:n(ls,hi-1)=phi=hi-1:966  908 v=mn:908 ^j=14:i=214:n(j,i)=n(j,i)+1:n(j,i)=5n(j,i)=1 i:j ̉j=14:x=j(4,j):j(4,j)=j(3,j):j(3,j)=j(2,j):j(2,j)=j(1,j):j(1,j)=x:j: ,w(4):h(4):d(4,5) Tb8=0:rd=0:nb=0:bv=0:pa=0:ho=0:hb=0 15,9 ; "i=03:p$(dl+i);" ";  p$(dl+i)="South"s1=i+1 i Wrd=rd+1:dn=15+rd-(rd>5)*(rd-5):dn,0;"Round ";rd;":"; 5nb=nb+1:nb>4nb=nb-5:990 "an=10 +6*(nb-1) ba=1nb=s1998 1126f:1138r +1126f:dn,an;1;"?";8; i0:z$=:z$="!"cs=1:j1=4:j2=1:sk=1:478:484:cs=0 /z$=" "" ";8;:1126f:1138r z$="n"z$="p" 1z$="p"pa=pa+1:dn,an;"No";:1056  ,z$="d"z$="Db":dn,an;"Db ";:1046 #z$="r"dn,an;"Re ";:1052 &z$480ůz$58:998 z=z$ $z=9 rd=1:"Rotate": z>7998 !dn,an;z;1;"?";8; 0:z$= z$="n"t=5:1030 z$="s"t=4:1030 z$="h"t=3:1030 z$="d"t=2:1030 z$="c"t=1:1030  1016 '0:t=2t=32 s$(t);:0:t$=z$ lb=10 *z+t:z1=z  +lb>hbdo=0:r2=0:1037   1054  Pw(p8)=1w(p7)=0h(p8)=15z1=2t<5x(p7)=1 lb-hb-10 *(hb=0)>10 ƺ(f(p7)/10 )<5(hb>0z13t=5)f(p7)=502+b(p7):f(p8)=f(p7) Chb=lb:h(p8)=lb:h(p7)=lb:dc=p7:pa=0:w(p7)=w(p7)+1 )d(p8,t)=0d(p7,t)=1:dc=p7 }d(p8,t)=1dc=p8:t<5bw=0e(p7)=t:e(p8)=t:tb(p7)f(p7)=f(p7)-b(p7)+t:f(p8)=f(p7):b(p7)=t:b(p8)=t  1056  7hb=h(p7)hb=0do=1r2=11054 9do=1:pa=0:w(p7)=w(p7)+1:1056  Ddo=1r2=0hb=h(p7)r2=1:pa=0:1056  r8;8;8;" ";8;8;8;:z$="n"" ";8;8;8;8; 0.25~,1:998  p=dl+nb:z$="" "$p>4p=p-4:1058" $pa=41064( & 1068, (n(4,14) * 344X: ,#pa=3hb>010742 . 992 2*du=dc+2:du>4du=du-4 4t=51088@ 6Gph=0:dh=0:i=10 14:n(t,i)=dcph=ph+1 8n(t,i)=dudh=dh+1 :i:dh>phph=dh <&ph>3ph=502*(ph-2) > 1096H @Lph=0:dh=0:i=14:n(i,14)=dcph=ph+1 B!n(i,14)=dudh=dh+1 Di:dh>phph=dh Fph=4ph=150 HVz=(hb/10 ):t=hb-10 *z:2,0;z;:t=2t=32 Is$(t);" ";:0:p$(dc) Jt((dc=1dc=3)g(1)=1)((dc=2dc=4)g(2)=1)3,5;"Vuln" N1r2=13,0;"Rdbl":1106R P$do=13,0;"Dbl" R)21,6;"Any key to continue" X0:a$= Y e(4) Z15,0; \%i=17:31;" ":i ^&p=dc+1:p>4p=p-4 `lead=p a-ple=dc+1-4*(dc+1>4) d f hd1=nb:nbs1d1=nb+4 j*p7=d1-s1-1:p7=0p7=4 l*p8=p7+2:p8>4p8=p8-4 m*q8=p7+3:q8>4q8=q8-4 n*q7=p7+1:q7>4q7=q7-4 o p rst=0:j=14:j(p7,j)<2(j(p7,j)=2q(p7,j)=3n(j,12 )=p7)(d(p8,j)=0(q(p7,j)=0j(p7,j)<5-q(p7,j)))st=1 tj v*ho=0:p7>1ho=h(p7-1) xp7=1ho=h(p7+1) y0hb=h(p7)(hb=45-hb=557)1498 z!w(p7)+w(p8)=01153 {w(p7)=01187 |)w(p7)=1w(p8)=11347C }w(p8)>01347C ~ 1156 p(p7)>12 1159 Ij(p7,l(p7))>6hb<30+l(p7)x1=l(p7):z1=3:1514  z$="p":1532:1056  &z1=1:x1=l(p7):jl=j(p7,l(p7)) Ejl>8z1=5+(jl>9 )+(n(x1,14)=p7):1514 5jl>6z1=3+(p(p7)>15):1514 ;n4=0:i=14:n4=n4+(j(p7,i)=1):i :nt=0:jl=4st=0n4=0nt=1 6ho>30(ho>20p(p7)20)1178 p(p7)>201184 3p(p7)<16nt=1x1=5:1174 !w(q7)+w(q8)=01180 &q1=10 *z1+x1:q1>hb1514 hx1<5d(q7,l(p7))=0d(q8,l(p7))=0(jl>4p(p7)>15)z1=2:1514 6z$="Db":w(p7)=w(p7)+1:1532:1056  j(p7,1)=jlx1=1  1514 Znt=1x1=5:z1=3+(p(p7)>29)+2*(p(p7)>35#):1514 [z1=2+2*(p(p7)>29)+2*(p(p7)>32 )+(p(p7)>35#):1514 ,z2=(h(p8)/10 ):q2=h(p8)-10 *z2 .z2<3z2>4q2=51193 4j(p7,q2)2p(p7)>11 x1=q2:1514  1204 'ho=0h(p8)>191244 *ho>0h(p8)-ho>10 1244 h(p8)>291244 ho=hbhb>f(p7)1204 q2=51214 q2>01203 ho>301204 xi=14:x3=l(p7)+i-4*(l(p7)+i>4):j(p7,x3)=j(p7,l(p7))d(q7,x3)=0d(q8,x3)=0x1=x3 i:q2=01238 p(p7)>51206  z$="p":1534:1056  p(p7)>81210  1296 p(p7)>10 1269  1322* (p(p7)>12 z1=3:1220 (p(p7)>10 z1=2:1236 Fj(p7,l(p7))>5x1=l(p7):z1=2:x(p7)=1:1238  z$="p":1534:1056  !j(p7,l(p7))<51236 l(p7)>21226  1236 ?vs=0:i=14:j(p7,i)<2vs=vs+1 i "vs>0x1=l(p7):1242  1236 x1=l(p7):1238  x1=5 q1=10 *z1+x1 q1>hb1514 'z1=z1+1:z1<81238 z1=7:1218 Kh(p8)=35#(p(p7)<6(l(p7)<3p(p7)<10 ))1374^ %qq=h(p8)-10 *(h(p8)/10 ) qq=51256 p(p7)>71250 1j(p7,qq)>3z1=3:x1=qq:1262 $z1=2:x1=5:1262 p(p7)>10 1253 "z1=2:x1=l(p7):1262 Uj(p7,qq)>3(j(p7,qq)>2q(p7,qq)>1)z1=4:x1=qq:1262 0st=0z1=3:x1=5:1262  1258 ?p(p7)>3hb<35#z1=3:x1=5:1262 z1=3:x1=l(p7) q1=10 *z1+x1 q1>hb1514 'z1=z1+1:z1<81262 z1=7:1204 1x1=0:qq=h(p8)-10 *(h(p8)/10 ) #j(p7,4)>3x1=4 ?j(p7,3)>3j(p7,3)>j(p7,4)x1=3 @qq<3x1>0z1=1+(p(p7)>12 ):1340< j(p7,qq)>31276  1280 /x1=qq:z1=3:p(p7)>12 z1=4  1340< !j(p7,l(p7))>41290  st=01286  1290  (z1=2:p(p7|:)>12 z1=3 x1=5:1340<  7l(p7)h(p8)-10 *(h(p8)/10 )z1=z1+1  +p(p7)>12 z1=z1+1:jb=1 x1=l(p7):1340<  =bs=h(p8)-10 *(h(p8)/10 ):bs>21310 "l(p7)>bshb<201308 j(p7,bs)>41320( ;j(p7,3)>3x1=3:bs<31340< ;j(p7,4)>3x1=4:bs<41340< hb151374^ x1=5:1340< x1=l(p7):1340< j(p7,bs)>31320(  j(p7,bs)<31300 "?vs=0:i=14:j(p7,i)<3vs=vs+1 $i &vs=01300 (z1=2:x1=bs:1340< * ,Vbs=h(p8)-10 *(h(p8)/10 ):j(p7,bs)>3z1=2:x1=bs:1340< -@bh=hb-10 *(hb/10 ):bh<3l(p7)>bh13302 .;bh<3j(p7,4)>3x1=4:1340 < /:bh<3j(p7,3)>3x1=3:1340< 1j(p7,bs)=313324 2x1=l(p7):1340< 4@vs=0:i=14::j(p7,i)<2vs=vs+1 6i 8+vs>0x1=bs:z1=2:1340< : 13302 <q1=10 *z1+x1 >q1>hb1514 @'z1=z1+1:z1<81340< Az1=7:1218 CBx(p8)=1(hb=h(p7)r2=1)(ho=hbhbf(p7))1374^ Dp9=p(p7)+p(p8) E`e(p7)>0h(p8)<25h(p8)-10 *(h(p8)/10 )=e(p7)p(p7)<151374^ FYgp=100d-s(2,2):p7=1p7=3gp=100d-s(1,2) H,a1=(h(p7)/10 ):a2=h(p7)-10 *a1 J$f=20:a2>2f=30 L%a3=f*a1:a2=5a3=a3+10 M/a3=a3+a3*(do=1)+2*a3*(r2=1) N'f=20:b(p7)>2f=30 Ra3h(p7)1376` V8w(p8)>0(p9>33!p(p7)>23)1496 Wa2=51374^ X'j(p7,a2)+j(p8,a2)<71376` ^ z$="p":1534:1056  `z3=(h(p7)/10 ) b0w(p7)+w(p8)>2p(p7)<13 1418 d#a2=5a2<31384h f,z1=a1:j(p7,a2)>3x1=a2:1404| h+j(p7,l(p7))>5x1=l(p7):1404| j<vs=0:i=14:j(p7,i)<2vs=1 li:vs=11398v n]st=0x1=5:z3=z3-1+((hb-(10 *(hb/10 )))/5):1404| p?nf=0:i=14:j(p7,i)>3nf=nf+1 ri:nf>11398v t4l(p7)a2j(p7,b(p7))<4x1=l(p7):1340< ux1=b(p7):1340< v;d(p7,l(p7))=0x1=l(p7):x2=j(p7,l(p7)):1403{ w(x2=0:i=41-1 x&il(p7)j(p7,i)>x2x1=i:x2=j(p7,i) zi {*z3=z3-1:x2<6z3=z3-1 |;z1=z3+((p(p7)-13 )/3):z1>4z1=4 ~vb=10 *z1+x1 vbhb1340< &z2=z1:1556:vcgp1414  1514 @vc-fgp10 *(z1-1)+x1>hbz1=z1-1:1410 M10 *z1+x1>f(p7)10 *(z1-1)+x1>hbz1=z1-1:1415  1514 Dz1=(hb/10 ):x1=hb-10 *z1:hb=hodo=11480 ]ho=hbh(q7)>f(q7)+15do=0z$="Db":w(p7)=w(p7)+1:1534:1056  (hb=f(p7)hb10 +f(p7)1480 5p9>33!(e(p7)>0hb>40()1496 !hb>f(p7)x1=51480 2hb>f(p7)hb<10 +f(p7)x1=b(p7):1482 ebb=j(p7,b(p7)):ll=j(p7,l(p7)):z1=(hb/10 ):x1=hb-10 *z1:ho01452 x1=51432 $ho31514 bb>41436 ,bb>2d(p8,b(p7))=11436 "ll>4x1=l(p7):1482 a1=(h(p8)/10 ) Eq1=10 *a1+b(p7)+10 :q1f(p7)q1>hbx1=b(p7):1482 8q1-10 f(p7)q1-10 >hbx1=b(p7):1482 +yy=0:i=14:xx=j(p7,i) xx>3ib(p7)yy=i i yy>0x1=yy:1482  1480 "30+e(p7)>f(p7)1462 @p(p7)>2345->hbz1=4:x1=5:1514 1p(p7)>12 40(+e(p7)f(p7)1466  z4=30 Ez4+e(p7)>hbz4+e(p7)f(p7)z1=(z4/10 ):x1=e(p7):1514 )z4=z4+10 :z45021458  1480 520+e(p7)>hbz1=2:x1=e(p7):1514  1480 540(+e(p7)>hbz1=4:x1=e(p7):1514 !ho21480 J502+e(p7)>hb502+e(p7)f(p7)z1=5:x1=e(p7):1514 Hho=hbdo=0z$="Db":w(p7)=w(p7)+1:1534:1056   z$="p":1532:1056  &q1=10 *z1+x1:q1>hb1514 z1=z1+1:1482 f(p7)<60<1500 hb=f(p7)1480 L45->hbp(p7)>16z1=4:x1=5:bw=1:1514 hb>44,1501  1424 hb>45-1504 @na=0:i=14:n(i,14)=p7na=na+1 Ki:z1=5:x1=na+1-4*(na=4):bw=1:1514 f(p7)65A1507 hb5571507 $z1=5:x1=5:1514 0hb=557do=0bw=1:1511 hbf(p7)1480 -e(p7)=0b(p7)=5:b(p8)=5 ,z1=(f(p7)/10 ):x1=b(p7):1514 @nk=0:i=14:n(i,13 )=p7nk=nk+1 *i:z1=6:x1=nk+1:bw=1 5q1=10 *z1+x1:q1hbz1=z1+1:1514 -q1>75Kz$="p":1534:1056  Xw(p7)=w(p7)+1:do=0:r2=0:d(p8,x1)=0d(p7,x1)=1:dc=p7 q1-hb-10 *(hb=0)>10 ƺ(f(p7)/10 )<5(hb>0z13x1=5)f(p7)=502+b(p7):f(p8)=f(p7) d(p8,x1)=1dc=p8:bw=0x1<5e(p7)=x1:e(p8)=x1:x1b(p7)f(p7)=f(p7)-b(p7)+x1:f(p8)=f(p7):b(p7)=x1:b(p8)=x1  h(p7)=q1:h(p8)=q1:1534  1056  0n2=0:e2=0:n3=0:e3=0 p=0:t(1)=0:t(2)=0:ot=0:ut=0:hb=0:lb=0:mn=0:me=0:mw=0:b1=0 <o(4):b(4):m(4):x(4):e(4) d(4,5) z$"p"1542 Jhb>0hb=h(q7)h(q7)>f(q7)+15do=0z$="Db":1542 Nhb>0hb=h(p7)f(p7)>h(p7)+15a32f=30 %vc=z2*f:x1=5vc=vc+10  n(4,14) n$="4 ":u=0::i=13:k=4:l=0:5*(i-1),0;p$(i);19,0;"Input card values. End each suit with '0' or 'ENTER'." '0:k=2k=32 -i*5-k-1,8;1;s$(k) ,i*5-k-1,9 ;" ";:0 0:z$=  z$=480ůz$=13 i*5-k-1,8;2*(k=2k=3);0;s$(k)::k=k-1:k>01563 !"k=0k=4:1563 ".z$>491Ưz$<58:v=z$:1572$ #.v=0:1600@:v=01566 $/n(k,v)>00.2~L,1:1566 &W1702:z$;" ";:n(k,v)=i:j(i,k)=j(i,k)+1:n$((14-v)*4+k)=(i) (l=l+1:l=13 i*5-k-1,8;2*(k=2k=3);0;s$(k):::0.1}L,1:0.1}L,2:0.1}L,3:1580, * 1566 ,i -19,0;27:27:15,0;p$(4):k=41-1:2*(k=2k=3):19-k,8;s$(k);:0:v=142-1 .xn(k,v)=01700:n(k,v)=4:j(4,k)=j(4,k)+1:n$((14-v)*4+k)="4":z$;" "; /v::k 1%20,0;"Dealer (1-4)? "; 260:a$=:a$<491ůa$>52415862 4)a=a$:a:dl=a:sk=1:u=1: @z$="t"v=10 Bz$="j"v=11 Dz$="q"v=12 Fz$="k"v=13 Hz$="a"v=14 J  z$=(v) v>9 z$=r$(v-9 )    s=0:0:a$=  0a$>47/Ưa$<58:a=(a$):1810  a$="t"a=10 :1810  a$="j"a=11 :1810  a$="q"a=12 :1810 "a=13 -t(1)-t(2) _a:t(1)=t(1)+a:t(2)=13 -t(1):lead=0:d=4:z$="W": u:0,0;"N-S:";t(1):"E-W:";t(2):2,0;z;:2*(t=2t=3):s$(t);" ";:0:p$(dc) v-al=0:bl=0:e$="":c$="":d$="" w@ph>99c4,0;"Honour Pts":0.25~,1 yN17,0;:i=14:" ";:i z#f=20:t>2f=30 |Eq=1:q1=2:dc=2dc=4q=2:q1=1 ~+ph>99cs(q,1)=s(q,1)+ph ot=(t(q)-6-z) t(q)>5+z2198  e$=B$(q1) mm=502:cc=0 g(q)=02190 &do=0mm=100d:2194 )mm=300,:cc=-100d:2194 do=02194 mm=200:cc=-100d (al=mm*ot+cc:r2=1al=2*al gs(q1,1)=s(q1,1)+al:12 ,0;"Contract FAILED by ";ot;" trick";:ot1"s" f6=f6+1:2230  e$=B$(q) Umm=f:cc=0:do=1mm=100d:cc=502:g(q)=1mm=200 r2=1mm=2*mm bl=f*z:al=mm*ot+cc t=5bl=bl+10 do=1bl=2*bl r2=1bl=2*bl Vs(q,2)=s(q,2)+bl:s(q,3)=s(q,2):s(q1,3)=s(q1,2) ns(q,2)100ds(q,2)=0:s(q1,2)=0:g(q)=g(q)+1:c$=" have made GAME" Sz>5al=al+500*(z-5):g(q)=2al=al+250*(z-5) hg(q)=2al=al+500+(1-g(q1))*200:g(q)=0:g(q1)=0:d$=" and RUBBER" xm6=m6+1:s(q,1)=s(q,1)+al:12 ,0;"Contract MADE with ";ot;" overtrick";:ot1"s" D14,0;e$;" score ";:bl>0bl;" below the line"; c$=""e$="" Cal>014+(bl>0),10 ;al;" above the line"; 16,0;e$;c$;d$ '100d,170:92\,0 80,-80P:-92\,0:0,80P '100d,155:92\,0 1,13 ;"You Me" (146,170:0,-80P '100d,125}:92\,0 ̕4,13 ;s(1,1);4,19;s(2,1);7,13 ;s(1,3);7,19;s(2,3) /g(1)=19 ,13 ;"Vuln." 0g(2)=19 ,19;"Vuln.";  344X 17,0;  6:6:::7,6;1;" CONTRACT BRIDGE ";3,6;0;"Highlight Software";11 ,6;" Norman Wells 1984" 9i=039':(65368X+i),(23375O[+i):i ba=0:otr=0:a3=0:gp=0:j1=4:j2=1:u=0:n$="":z$="":dc=0:du=0:do=0:r2=0:d=0:pp=0:p9=0:ls=1:win=0:l=0:lb=0:ple=0 ~p$(7,5):s$(5,2):m(4):r(4):v(4):p(4):l(4):f(4):w(4) n(4,14):j(4,4):q(4,4):h(4):b(4):d(4,5):k(4):t(2):g(2):x(4) Is(2,3):B$(2,3):u(4,2):e(4) "i$="123456789"+148+"JQKA" su(1,1)=9 :u(2,1)=10 :u(3,1)=11 :u(4,1)=10 tu(1,2)=19:u(2,2)=20:u(3,2)=19:u(4,2)=18 Tp$(1)="North":p$(2)=" East":p$(3)="South":p$(4)=" West" Kp$(5)=p$(1):p$(6)=p$(2):p$(7)=p$(3) lcs=0:f6=0:m6=0:bw=0:B$(1)="You":B$(2)=" I":r$=148+"JQKA" 4i=14:m(i)=14:k(i)=13 :i rs$(1)=144:S$(2)=145:S$(3)=146:s$(4)=147:s$(5)="NT" VH17,0;" What skill option (1 to 5)? ";:0.1}L,1 W60:x$=:x$<491ůx$>5352391W X8sk=x$:sk:16,0;:sk>52391W [0ba=0:sk=5sk=1:ba=1 \sk=41561 ] psk=sk: & tuill X4- a s  I tzpTea sh   lWNorthY3AjDfqEYoud2C have made GAME5xQSOUTHNZ(North EastSouth WestNorth EastSouth NTUQUQie   # You I-    I123456789JQKARJQKAn6:6::6JQKA+ cl P P M/3U3[MUPP>v[d>II>>$~~~<>>>LRRRRL~@|@@@>BB<DHpHDB@~BfZBBBBbRJFBx<~oB<@<@8@88D88nBBbBBBBBDB@o~0Dx0Dxx<~q88<BBB<<b8h8xB88(BBRD TDBD@B<(JD TBHFD TDDZ@B~BB8 T<<<B@ ~ <B@888(8x88x(88@BBx@00DD0DDD|BD<80DDDDDZDD(DxDDDB$D< x$8 8@ 88D> 8< @0p00 0! [=\s#r!' s#r!::\<( ( [!B\6#6#[::\<>2:\vII>>$~~~<>>>LRRRRL8# # <@Q W 0.$\\\\8M`UUU\89X![!>PP!00 `uW K SR PY23415w[,195:23300[:HIGHLIGHT SOFTWARECONTRACT BRIDGE  N D WELLS 1984 d@0:7:dl=0:2280:u=1107k j 356d k57:4::478:484:400 p$974:pa=4:106j r!z=9 970:107k va$="0"139:112p x@a$="9"139:sk=1:478:484:112p y a$="E" {^a$<524Ưa$>480sk=1:ab=(a$="2"):pskskpsk=sk:478:484 ~+142:536:147:z$="E" Bt(1)+t(2)=0j1=4:j2=1:106j 126~ L2,0;" ":3,0;" ":rd=0: 415,12 :i=pp+3:p$(i);" ";:i: z$="W"2165u z$="E" W21,0;"Winner: ";w$;30:l=0:pp=0:win=0:p=lead :lead=1lead=3t(1)=t(1)+1 :lead=2lead=4t(2)=t(2)+1 478:264 t(1)+t(2)>0i=03:plt=ple+i-4*(ple+i>4):v=v(plt):1700:17+i,28;(plt=lead);p$(plt,1+(plt=2plt=4));0;" ";z$;2*(r(plt)=2r(plt)=3);s$(r(plt),1):0:i 6ple=lead:t(1)+t(2)=13 2165u  Tm(4):k(4):j=14:ct=0:i=142-1  n(j,i)=0272  +ct=0m(j)=i:ct=1:272 ct=1k(j)=i:i=1 i:j: Hs=t:yt=j(p,t):pt=j(p4,t):otr=j(p5,t)+j(p6,t):tp=03084 $m(t)=0h=0:770 pt>0298* /297)*(yt=0)+295'*(yt>0) os=t:yt=13 -tp(yc=0j(du,t)=1n(t,m(t)-1)=dun(t,m(t))=p)840H:v=hi:908 .yt+1=13 -tpv=0:280  283 ci=14:j(p,i)>0its=i:840H:hi=m(i)otr=0v=hi:ls=s:i=5 i:v>0908 yt=yt+1:s=t:277  788 otr=0297) 4otr=1(n(t,m(t))=p5n(t,m(t))=p6)297) ts=yt+pt-otr:ts3(ym=1ys=1)(yt-no2yt-oo2)(otr=1ym=1(pt=0ts>1))(ts2(pn=0(no>0oo>0)))(pn=0no>0oo>0)288   297)  5s=t:840H:hi=m(t)ps=0v=hi:908 !fv=lo:(pt=0hi=m(t))(n(t,hi-1)=phi>10 )(ys=1pm=1pt>1)v=hi "!v>8pm=1908 #-i=10 lo-1:n(t,i)=pv=i:i=lo $i & 908 '\pdupdcj(p4,t)=0j(p5,t)>0j(p6,t)>0s=t:840H:v=lo:908 ( 277 )$h=0:ls=t+1:770 *Bv=0:m=14:s=m:j(p,s)=0s=t302. ,788:pn=0pt>0(oo>0otr=0)840H:v=lo*(ym=0)+hi*(ym=1):m=5:ls=s:hi<10 v=hi .m:v>0908 /s=t:276 4v=0:i=14:d(p4,i)=1j(p,i)>0s=i:i=5:840H:v=lo:(hi>11 n(s,hi-1)=p)j(p,s)<3(j(p,s)=3(hi=m(s)hi<11 ))v=hi 6i:v>0908 8 h=1 :'783:v>0ls=s:908 "h=4h=11 :314: Xyotr=0:bw=0:ls=1:n2=0:e2=0:n3=0:e3=0:jb=0:j1=4:j2=1 Zp=0:t(1)=0:t(2)=0:ot=0:ut=0:hb=0:lb=0:mn=0:me=0:mw=0:b1=0:dc=0:du=0:b8=0 \Db(4):h(4):w(4):x(4):d(4,5) ^z$="W"n(4,14) `Ne(4):r(4):i=14:m(i)=14:k(i)=13 :i: db8=0:4 fn$=""372t hI:"Press any key, 1-5 change skill,";:" 0 replays hand, 9 at skill 1." l0:z$= n/z$="0"dl=dl-1:win=0:372t p;z$="9"dl=dl-1:win=0:sk=1:372t q3n$="":z$>480Ưz$<546sk=z$-480 r1ba=0:sk=5sk=1:ba=1  s"sk=4psk=sk:1561: tc:" I am shuffling the cards now ":ms=1:psk=sk:dl=dl+1:dl>4dl=dl-4 xQj(4,4)::m=142-1:i=m:m<9 i=10 -m yj=14 z4z$="0"z$="9"x=n$(ms):ms=ms+1:384 |2x=(*4)+1:b(x)>12 380| 4b(x)=b(x)+1:n(j,i)=x:j(x,j)=j(x,j)+1 z$="0"z$="9"390  n$=n$+x j:m  ,z1=1:p(4):q(4,4) 2x=14:n2=0:j=14 *j(x,j)>4p(x)=p(x)+j(x,j)-4 j(x,j)n2l(x)=j:n2=j(x,j) 7y=n(x,j+10 ):q(y,x)=q(y,x)+j:p(y)=p(y)+j:j:x >k=12:n3=0:na=0:j=14 ^k2=j(k,j)+j(k+2,j):k2=k2+(j>2k2>7):k2n3b(k)=j:b(k+2)=j:n3=k2 8n(j,14)=kn(j,14)=k+2na=na+1 >j:pt=p(k)+p(k+2):n0=2+((pt-18)/4) B(n0=3pt<24)n0>3+nan0=n0-1:418 -f(k)=10 *n0+b(k):f(k+2)=f(k):k  Vsh=16:hs=15:k=14:t=kj(p,k)=0j(p,k)>sh434 tsp=2*(n(k,13 )=p)+1.5@*(n(k,12 )=p):j(p,k)+sp0d=3d=4)j1=r(k):j2=r(k): Qs3-5,t4-1;q$;:cs=0t(1)+t(2)>0518 dl=k"-Dealer" s3-4,t4-1;147;s3-3,t4-1;2;146;s3-2,t4-1;145;s3-1,t4-1;0;144: G 0:j=j1j2-1:s3-j,t4;:j(k,j)=0" ":528 oct=0:i=m(j)2-1:n(j,i)=ki$(i);1;" ";:ct=ct+1:ct=j(k,j)ctcni=2  i:ct1t(1)+t(2)=0d=2478:484 ,K21,0;p$(p);"'s turn:":a$"2"21,15;"You " -%a$="3"5644:r(p)=s:v(p)=v: .2p=2p=4663:r(p)=s:v(p)=v: 0Ksk=3(dc=2dc=4)p=1663:r(p)=s:v(p)=v: 22p=1p=35644:r(p)=s:v(p)=v: 48t(1)+t(2)=12 v=0:663: 5a$="2"663: 6d=15688 7j(p,ls)=1663: 8v=0:18,d*6-4;;1;"?":0:z$=:sk>1(z$="!"z$="@")cs=1:j1=4:j2=1:sk=1:478:484:cs=0 9z$="@"a$="2":663: :Uz$=" "21,15;"Computer":18,d*6-4;" ":662: ;z$="E":v=1: <8z$="W"18,d*6-4;"W";:1800: =/z$502Ưz$579v=(z$):585I >1600@:1702 Hv<25688 Id=1ls=0