ZXTape! 2 Bridge Player 3 CP Software1986EnglishBoard/Card Game9.95NoneOriginal^TZXed by Andrew Barker For Gary Poole Note: BASIC and Main Code differ from existing version.Bridge3.1 ~XBridge3  R.Wheen 1985 M63743:7:1:7::23658j\,8:l$(32 ) \8,8;"BRIDGE PLAYER 3";12 ,12 ;1;"LOADING";0,0; ' (97556x5xx6637345554x3xx9x5xx84924%82924;2)&7#3!876:9678x7349352 533W=c2!Qc432123456789͑!xw#x yO@ !T4͸?40_~w,!h4!hR( !@w,!h!0 ~0  , q#{_ !~wq#  !#0~w,,,,~w----#y  !~# (> w  !h! ~( ( ( (zW#w!h!ů~_(> ~ ( ( (Û Û(Û~ ~ # w##!!h 6~( 4~w# !~݆0G~݆ $!4 !hA'!4h4.!4h4????J#w#44!o~!o~## 0~w#y  ~0_#~0 (y K!r!@ _{_# x !_w#!:???ݮ~G:2 !V,~8W>O@@@@@@@z2@```````BBC ' Pbcltttrrq#J"p~>FFxxllffccDDA""Aff66abb|~oc`8pȑDR ĎNN...6@@@@@@@@F( 1 BB@@@@@@@L@^@@????ϟM!2~882~?0ɯ>_8{2Wq !vp >|;; *=\s#rv͎{ ::\ ( ((<2\6!'"B\!"D\;;}v>Μ9sΜs9s<~<<~<;;;;8TT8FIIIIFBB<fo):o=l(n):ol=o():op=p():or=r():x$=j$(o):ao=a(o):d=(a(ol)>ze)+(a(or)>ze): -Io=l(c):ao=a(o):op=p():or=a(r()):e$=c$(c):a(o())>oror=a(o()) 2 7tl$(32 ):8950":ze,on,tw,th,fo,st,n,h,md,u,gg,o$,p$,n$,q$,r$,s$,t$,u$:b$(fo,6):x=onfo:b$(x):x <23658j\,8:23659k\,tw:35#:e$=" ":g$=" ":11 ,ze,,,," ",e$,g$,e$,g$,e$,g$," ",l$:60< A z$(524,tw):z(524):d$(fo,14):k$(36$,fo):v$(fo,tw):b(fo):e(fo):f(fo):g(10 ):k(x)=x+on-fo*(xfo):j(x)=x+tw-fo*(x>tw):l(x)=fo*k-fo+x:o()=o+fo-st*(o>12 ):p()=o+8-st*(o>8):r()=o+12 -st*(o>fo) F#8960#:f,g,i,j,l,aa,k1,rp,n$ Z h20 d65290 :11 ,on;" Do you want:-",,,,"A - the computer to deal the"," cards ? or",,"B - to input a deal of your own choosing ? or",,"M - to record the program on"," Microdrive cartridge ?",,,,8;on;"Press A, B or M";ze, g e$=:e$="B"ra=ze:130 ie$"M"115s k(:md=on:30:md=ze:ze:11 ,on;"":x=ze5:" ":x:12 ,fo;"";13 ,fo;"";14,tw;"":2:x=11 17:x,6;"":x:ze:13 ,9 ;"";14,8;" ";15,8;" ";st,8;" ";17,9 ;"" mtw:x=13 st:x,13 ;" ":x:17,14;"";18,st;"";19,13 ;" ";20,14;"":ze:13 ,19;"";14,18;" ";15,18;"";st,18;"";17,19;"" o%tw:x=13 17:x,23;"":x:13 ,24;"";14,25;"":ze:11 ,28;"";12 ,27;" ";13 ,30;"";14,28;"";15,30;"";st,27;" ";17,28;"";20,22;" R.Wheen" qq*"m";on;"Bridge3.3":*"m";on;"Bridge3.2"63744,1808:*"m";on;"run"9300T$:35#:100d se$"A"103g xra=on:13 ,ze;"1 - N/S (your side) always to have more points than E/W ?",,,"2 - N/S usually (but not always) to have more points than E/W ?",,,"3 - randomly dealt hands ?",,,11 ;on;"1, 2 OR 3?";ze, } e$=:e$<"1"e$>"3"125} rd=(e$="2"):64500,24+24*(e$="1"):12 ,ze,,,,"C - to bid and play the hands ?",,,"D - merely to play the cards ?",,,,,,,,,,,21,12 ;on;"C or D?" e$=:e$"C"e$"D"140 bi=(e$="C"):bi210 c3=ze:c4=ze:p3=ze:p4=ze:14,ze;"to play a Weak (12-14),",,,10 ;"Strong (15-17) or",,,10 ;"Variable no trump ?",,,,,10 ;on;"W, S, or V?" Ve$=:e$="W"e$="S"e$="V"nt=(12 e$="W")+(15e$="S"):tn=nt:290" 180 ҆14,ze;"1 - to see all four hands ?",,,"2 - to see merely those of Northand South ?",,,,,,on;21,12 ;"1 or 2?";ze e$=:e$"1"e$"2"220 2c4=(e$="1"):c3=c4:c4p4=ze:p3=p4:290" 14,ze;"A - to play the cards from all 4 hands ?",,,,"B - to let the computer play the defender's cards ?",,,, 4e$=:p4=(e$="A"):p3=p4:e$"A"e$"B"260 "-63981:nh=320@+630v*ra:nh @l=ze:zz=ze:n$=p$:os=ze:rp=ze:a(32 ):j$(32 ,8):h=h+on:y$(fo,13 ):ze:fo::u=onfo:b(u)=13 :d$(u)=t$:u:9500%:9530:%:9510&%:95200%:k=onth:350^ T502::y=fo*k-th:x=yy+th:a(x)=ze:x:7;10 ,ze;" You have given ";b$(k,̰b$(k,6));" ";(p);" cards.";6;"Enter his hand again. ":9970&:502::9500%:9530:%:9510&%:95200% ^mp=ze:n=onfo:o=l(n):c=o+(thk=tw)+(7k=th):b=10 +5*(k=tw):c,b-th;7;ze;">>>" ht"Enter ";(b$(k,̰b$(k,6));"'s ";tw*(n>onn8370r +x=ona(o):e$(x)>"1"e$(x)"9"430 3y=on5:e$(x)=q$(y)e$(x)=t$(y):430 y:9970&:360h Qx:x=twa(o):y=xtw-on:e$(y)>e$(y-on)g$=e$(y):e$(y)=e$(y-on):e$(y-on)=g$ e$(y-on)=e$(y)380| &y:x:g$=d$(n,b(n)):x=on:a=xa(o) x>g$380| 3e$(a)=g$(x)g$=g$(x-on)+g$(x+on):a:490 x=x+on:460 j$(o)=e$:j$(o+st)=e$:y$(n)=g$:tw*(n>onn13 340T n:p13 340T Fx=onfo:d$(x)=y$(x):b(x)=b(x)-a(l(x)):x:k:u=onfo:o=12 +u:j$(o)=d$(u):j$(o+st)=j$(o):a(o)=b(u):a(o+st)=a(o):a(o)>87::j$(32 ,8):10 ,tw;"You have left West with a ";a(o);'" card suit, which is too long."'''" Enter entire hand again.":a(32 ):9970&:502:nh *u:c(fo):d(fo):y$(fo,fo):u=onfo:y$(u)="0003":u:k1=ze:9530:%:20,ze;7;on;ze;" Please wait while the computer assesses and analyses the hands.":k=onfo:a=onfo:l=l+on:x=a(l):e(a)=x:d$(k,a)=x:e$=j$(l):xtwd(k)=d(k)+3-x-(e$=""e$="")-tw*(e$=""e$="") 0>v=onx:e$(v)>""c(k)=c(k)+e$(v)-155+(e$(v)="")/fo :Nv:j$(l,fo)""y$(a)="100"+(k-tw*(k>tw)):j$(l,5)=""y$(a,tw)="5" D9a:d(k)=d(k)+c(k):j$(l)>""c(k)=c(k)zz=k-tw*(k>tw) N0j$(k,on)=""j$(k,tw)=""k1=k1+on-fo*(k1>tw) bvg$="1234":v=thon-on:w=onv:e(w)fok=k-fo:1010 j7:on::on;"Hand no.";h;32 -n$;tw;n$'ze;" This is your hand as South":9750& yg$="":15,on;tw;"Dealer":b=onfo:on;14,b*8-6;b$(k,̰b$(k,6)):k=k(k):k$(b)="P":b *v=onfo:a=(k=twk=fo):k=th1140t $5750v:1150~ `ktha$="P":1220 j 9970& t"Your bid? ";a$:1210 /a$(tw)f$(tw)a$(on)=(a$+on):1200 a$(on)="N"nh a$(on)="O"70F -a$(on)="P"a$=" "a$="Pass":1360P #a$(on)="D"a$="Dble":1340< #a$(on)="R"a$="Rdbl":1340< a$(on)="B"f$>"1"196,120x:-152,ze:ze,-25:152,ze:tw;7,6;l$(18);9 ,6;l$(18);8,6;on;"Bidding to restart":1000 Wt=on5:a$(tw)=u$(t)a$(tw)=r$(t)a$(tw)=u$(t):cd=tw*(t>ont"8"a$(tw)f$(tw)(a$(tw)=k$(b-on,tw)kth)1120`  1400x fo;a$(tw):w$(t+5*a)="A"w$(t+5*a)=k W.05|L,5*r-10 -(ttfo):h$(a+on,th)=f$:h$(a+on)<"1"h$(a+on,tw)=f$ ñm$1510 x=m$:y=x-(x>on):g=r*(20+10 *(ttwt>fo))+10 *(t>fo)+g(th+a+tw*gg):q=m$(x):p=m$(y):z=(m$>"F"m$<"O"x=y(ñg$q-g$fo)) x(m$"EF"m$"JK"m$(x)"T"m$(x)"Y"k3)(m$"F"m$"FG"m$"GJ"m$"HJ"m$"IJ"h$(tw-a)>"1")(m$"EFG"m$(y)"T"m$(y)"Y"k>on)z=on+z:y(k,t)=y(k,t)-z+1.43333*(w$(t+5*a)=j(k)):y(j(k),t)=y(j(k),t)+z+(w$(t+5*a)=j(k)):tfoy(k(k),t)=y(k(k),t)-z:y(k-on+fo*(k=on),t)=y(k-on+fo*(k=on),t)-z:y(j(k),t)fo1520 2x=k(k):y(x,t)twy(x,5)=y(x,5)-tw 2x=j(x):y(x,t)twy(x,5)=y(x,5)-tw |k=k(k):k$(b)=a$:b=b+on:x=t:t=w:w=x:e$=m$:m$=g$:g$=e$:x=e:e=or:or=x:x=f:f=du:du=x:v:b>35#1700 ,o=o+on:o=21o=7:23692\,255:v=on15::v:15,ze;on;"Hand no.";h;32 -p$;tw;p$:9750& @ 1050 Wk$(b)="Pass":aa=b:k=w$(t+5*(h$(tw,th)>h$(on,th))):cd=tw*(t>ontfo):a=de-tw*(de>tw):du=9500%+(10 de=fo)+(30de=tw):os=5*(de=tw)-5*(de=fo):v=onfo:c$(v)=t$:v:j=on13 :v=onfo Yc4j*v=on9650%:9670%:9680%:9450$:95200%-20*(de=on) kp=k:q=(k=twk=foa-k=on):c47;9 +tw*(k=th)-tw*(k=on),15+os-th*(k=fo)+th*(k=tw);"?" $j=13 5600:2420t 7p4qx=on:y=tw:2500 +v*500:2420t +v>ona(l(n))=on5250:2420t hv>on(pe(pr+trde=tw))f(on);(s$(n));ze;" led. Enter ";(b$(k,5));"'s card ";a$:2290 B(b$(k,̰b$(k,6)));" to play. Enter card ";a$:2290 k9970&:on;"Revoke";ze;" ";(b$(k,̰b$(k,6)));" to play again";9 ;"without penalty ";a$  a$="N "nh a$="O "70F ]a$="R "21,9 ;on;tw;7;"Play to restart":2950 :k=de:1980 ka$="Z "g=g+14-j:j=13 :21,fo;on;7;tw;"Remaining tricks claimed":2670n c42410j pepe=ze:x=zefo:x,10 ;l$(22):x:x=612 :x,ze;l$:x:9450$:du:de>on7*(deth),de*5-tw-5*(de=tw);7;"DUMMY" pr+trpr=tr+(5tr):x=pr12 :x,21;l$(11 ):x:tr=ze:pr=ze:9450$:de=fodu:7,18;7;"DUMMY" $+(a$="E "j>on)(a$="B "bi)2400` ._x=613 :x,25-5*a;l$(7+5*a):x:d=h:a$="E "2390V 8d>fod=d-fo:23608 B,pr=on:ze:x=onfo:7:6,18+3*x;on;o$(d):d=k(d):x:y=7:z=21:x=5aa:e$=k$(x):7;y,z;(e$(on)e$(on)"P")+("-"e$(on)="P");tw*(e$(tw)=""e$(tw)="");(""e$(tw)="")+(e$(tw)e$(tw)""e$(tw)>""):z=z+3:z>32 z=21:y=y+on Lx:fo:2270 Vtr=6+(7-jj>7):x=613 :x,25-5*a;l$(7+5*(a=tw)):x:7:x=onfo:tr,18+3*x;on;o$(x):x:y=onj-on:x=onfo:z=fo*y-fo+x:y+tr,18+3*x;z(z);z$(z):x:y:fo:2270 `a$="P "pe=v:tw,13 ;" "du9500%:x=613 :x,ze;l$:x:9530:%:9510&%:9500%:2270 ja$=" "v>ona$=s$(n) tSu=onfo:a$(on)=r$(u)a$(on)=s$(u)a$(on)=s$(u):f(v)=tw*(u>onu"1"a$<":"a$(tw)=a$:a$(on)=s$(n):2420t x:9970&:2270 v=onn=u -b(v)=u:40(:ola(o)2275+a(l) Qa$(tw)=" "a(l)a$(tw)=j$(l,a(l)):a(l)=a(l)-on:j$(l)=j$(l,a(l)):2550 $a$(tw)=" "9970&:2270 #a$(tw)>"1"a$(tw)"9"2530 Cw=on5:a$(tw)=q$(w)a$(tw)=t$(w)a$(tw)=t$(w):2530 w:9970&:2270 Tw=ona(l):j$(l,w)=a$(tw)j$(l)=j$(l,w-on)+j$(l,w+on):a(l)=a(l)-on:2550 w:9970&:2270 unu=tq=a.05|L,st Mc47;ze,27;" This";on,27;"trick";tw,27;"*****" c4k=thk+de=twk=j(de)c=l+th*(k=tw)+7*(k=th)-5*(k=fo):d=12 +5*(k=tw)-10 *(k=fo):c,d;:w=ona(l):f(v);7;j$(l,w);" ";:w:8;" " c4c=9 +tw*(k=th)-tw*(k=on):d=os+15-th*(k=fo)+th*(k=tw):7;c,d;a$(tw);c+on,d;f(v);a$(on):j*v=ondu+20*(de=on):9670%:9680% <c47;v+tw,27;" ";on;o$(k);ze;" ";f(v);a$ ,e(v)=((a$(tw)+200*(u=t))*(u=tu=n)) (xz$(fo*j-fo+k)=a$:v$(v)=a$:z(fo*j-fo+k)=f(v):k=k(k):40(:v:i=ze:u=e(on):w=onth:e(w+on)>uu=e(w+on):i=w 21w:k=k+i-fo*(k+i>fo):g=g+(k=onk=th):40( <+c4w=th6:w,26;" ":w Faw=onfo:v=on13 :v$(w,tw)=c$(b(w),v)c$(b(w))=c$(b(w),v-on)+c$(b(w),v+on):2650Z Pv Z<w:c4x=712 :x,12 +os;l$(7):x d7;14,27;" Last";15,27;"trick":w=onfo:7;15+w,27;" ";(w=i+on);(wi+on);o$(p+w-fo*(p+w>fo));ze;ze;" ";f(w);v$(w):w n~7;st,ze;" Tricks ";17,ze;" ****** ";18,ze;"N/S E/W";19,ze;" ";g;6;j-g;(" "j-g9 ) x'j:100d:7:rp2810 :p=ze:y=(g-6-ra=on)+(7-g-ra>on):b=3-a:c=a+tw+tw*gg:e=p:e(5):f=f$:e(y$(t-(t>fo),fo))=y$(t-(t>fo),3):o=150*(zz=at>fo)+e(a):q=150*(zz=bt>fo)+e(b):7,18-(t>fo);r;cd;"N"t>fo;f$(tw);ze;f$(3);:yfo))*(f-(fon r>5o=o+(500+(250g(a+8)))*(r-5):a=onon,14;tw;"Congratulations";th,13 ;"Slam bid and made" 2745 r" defeated";9 ,18;"by ";y;" trick";"s"ƽy>on:f=twq=q+(y*502*(g(a+8)+on)):2745 @g(a+8)q=q+(y*200-100d)*(f-tw):2745 %q=q+(y*300,-100d)*(f-tw) It>fozztfoy$(t-(t>fo),fo)"3"11 ,15;"(honours scored)" 5,on;"N/S E/W":36$,134:ze,-94^:8,92\:546,ze:gg8,74J:546,ze:gg>on8,58::546,ze Kw=zeon:x=on7tw:g(w+x)8+x,5*w+fo-g(w+x);g(w+x) Gx:w:q7+g(b),14-5*a-q;tw;on;q:g(b)=g(b)+q ܭp13 +tw*gg-g(c),5*a-on-p;on;p:g(c)=g(c)+p:g(c)>99cg(a+8)=g(a+8)+on:gg=gg+on:g(a+8)>ono=o+500+200*g(b+8) )o7+g(a),5*a-on-o;on;o:g(a)=g(a)+o:g(a+8)>onl=g(on)+g(3)+g(5)+g(7)-g(tw)-g(fo)-g(6)-g(8):13 ,14;tw;"Rubber complete";15,14;("N/S"lze)+("E/W"lon)+("N/S game"g(9 )g(10 ))+("E/W game"g(9 )g(10 ))+(" N/S "+g(3+tw*gg)g(3+tw*gg))+(" E/W "+g(fo+tw*gg)g(fo+tw*gg)) @21,7;on;"To continue press C":"C"2805 ~65290 ::20:''"Press"''" R - to review last hand"''" N - to go on to next hand"''" O - for list of options" e$=:e$="N"nh e$="O"70F e$"R"2815 rp=on:g=ze:i=g:j=g:k=k(de):e$="":13 ,ze:x=on8:l$:x:15,tw;"2 - to see only North's and";6;"South's hands"''tw;"4 - to see all 4 hands":2950 \e$=:e$="2"e$="4"c4=(e$="4"):fo::9500%:95200%:c49530:%:9510&% e$="2"e$="4"2850"  2835 "m9650%:20,ze;7;on;"Press P for print-out, R to re-"'"play last hand, N for next hand" '8="P"20,ze;l$;l$:d=h:8800`":2850" , ="N"nh 1"R"2855' 6bi2885E ;on;7;20,ze;"Press - P to replay the hand";6;"- B to rebid it first",:="B":10 ,6;7;"Please wait a moment":1000 @"P"2875; E9c420,ze;l$;l$;ze,ze;:9690%:2215 J20,ze;7;on;"Press 4 if you want to play all",th;"4 hands. Otherwise press 2. ":e$=:e$="2"e$="4"20,ze;l$;l$;ze,ze;:p4=(e$="4"):9690%:2215 O 2890J ,v=onst:j$(v)=j$(v+st):a(v)=a(v+st):v: k=dede=j(k)3250 Ws=on:tfon=t:40(:x=a(m):s=o():u=a(s):f=r():w=a(f):u>we=f:f=s:s=e Xf=f-t:s=s-t:n=onfo:40(:f=f+on:s=s+on:y=ao:yn=t3150N +(n=t)+(t>fo) mt>foy=y*tw+(y+a(op))*100d/(y+a(op)+a(or)+a(ol)):a(ol)ont>foy=y+10 *(tfo):(a=(j-g+r>7)a=twg+r>7)y=y+30 *e$=j$(ol)Ưj$(op)=e$(tw)y=y+5 -j$(op)>j$(or)Ưj$(op)>e$(fo)a(or)y=y+fo &t>fo3160X 0Laoaod>ony=y+32 -12 *ao+12 *(ao=(x$=e$)) :0a(op)a(op)d>ony=y+13 Ddu*wy=on NA(a(f)tw*a(s)u=wa(s)tw*a(f)e$(u+w+on)" ")a(m)u*wx=x+st X&64794+n,y:n:t>fo3190v bn=t:40(:ao*u*wxst(ao>thůx$=e$x$(tw)e$(th)ůx$=e$(tw)(aothx$(tw)=e$(th))x$(th)=e$(th5)ůx$th) l64794+t,x v/64788,5:n=64765:40( h((k=dek=j(de))x$(tw)=e$(tw)j$(op,on)=e$(th)e$(tw)=x$(on)+j$(op,on))a(op)twao>tw5250 4x=on6:x$(tw)=e$(xx+on)w=on:5200P x:aotw(x$=e$(x$<""tfoa=(j-g+r>7)a=twg+r>7))t>foa(ol)j$(ol)x$>j$(or)w=on:5200P Lx$(twfo)=e$(th5)x$(twfo)=e$(thfo)+e$(6)w=tw:5200P w=th+(aofo):5200P :y(fo):n=xfo:40(:e=ao:z=e:s=ze:e3360 y(n)=100d:f=a(op):tfotnz=a(op-n+t):zza(m)fxe>fa(m)za(m)exf>ey(n)=y(n)+(40((a(ol)a(ol-n+t)))+(60<(a(or)a(or-n+t))):s=(e>f) &a(m)tfodtny(n)=y(n)-30 sf=e Хy(n)=y(n)+(f+10 -a(ol)-a(or))*(10 +fo*(t>fo)):c=op:(t>fonta(ol-n+t-(t>fo))+a(or-n+t-(t>fo)))a(ol)+a(or)y(x$(x)=e$(x)j$(op,x)=e$(x))3200 (e=ze:y=on:x=yfo:x>a(c)3310 )j$(c,y)=e$(x)e=e+9 -tw*x:y=y+on x:coc=o:f=e:3290 y(n)=y(n)+fo*e+8*f-502*((e=10 e=6e=5e=th)fon(t=nt>foa(op)z))+502*((f=10 f=6f=5)eona(ol))+(502a(o)>yntsz):n=ty(t)=10 +(y(t)+20*dd) E64794+n,y(n)/th:n:64788,n:tfon=ta(m)5600 a(ol)3650B *j$(op)>v$(x,y)j$(op)>j$(ol)5600 a(m)>y5450J $j$(m,y)>d$(t,fo)5600 . 5450J 8a(ol-n+t)5500| LPw=thx-x:j$(m,w)>j$(ol-n+t,on)(w>xj$(m,w)e$(fo)j$(op)x$5250 6a$(y)>e$(fo)(j$(op)j$(ol)3780 a$(y)j$(ol,y)x$(y)>a$(y)(j$(op)j$(ol)nt)w=y+(x$(th)>j$(ol,y)x$(th)>a$(y)):5200P Ma$(y)>e$(6)nt(a(op)>xj$(op)a$(y)):5200P  5250 1a(op)a$(y)j$(op)>j$(ol)5250 tfontƯx$=e$a(op)x(k=dek=j(de))x$(y)>a$(y)x$(y)>j$(ol)a(ol)=xa=(j-g+r>7)a=yg+r>7x$(x)j$(ol)x$(y)>a$(y))+(x$(3)>j$(ol)x$(th)>a$(y)):4999+w ne$(yth)=j$(ol,x)+j$(op,x)(j$(ol,y)=e$(fo)a$(y)=e$(fo)(j$(or,x)=e$(fo)j$(ol,y)=e$(5)))5250 "t>foa(ol)>ya(or)>x5250 \j$(op)>x$a(op)>xw=x+(x$(y)>j$(ol)x$(y)>a$(y))+(x$(th)>j$(ol)x$(th)>a$(y)):5200P 7ao=yntw=x+(x$(y)>j$(ol)x$(y)>j$(or)):5200P  5250 ao4250 t>fon=t5600 a$(x)=s$(t)5310 @&e(x)>e(y)v$(x,y)>j$(ol)5600 J 5450J 'ao=xtfonta$(x)=s$(t)5250 'a(op)+a(or)a(ol)e(y)5250 $w=thx-x:x$(w)>a$(y)5200P 9w:ao=ye$(th)=x$(x)+v$(x,y)+j$(op,x)w=x:5200P =u=xth:j$(ol,u)=" "e(x)>e(y)v$(x,y)>j$(ol,u)5250 S(x$e(y)v$(x,y)>j$(ol,u)w=x+(nt):5200P ]w=th+(k=k(de))x-x:x$(w)>a$(y)x$(w)>j$(ol,u)5200P-750*(w=(t>foa(op)n=t)) w:u:5250 b(k=dek=j(de)((a=(j-g+r7)a=yg+r7)x$(y)e$(fo)j$(or,x)>e$(fo)ao>ya(ol)>x))a(or)+a(ol)>x((v$(x,y)>j$(ol,y)(v$(x,y)>a$(y)a$(x)s$(n)))x$(y)>j$(ol,y)(x$(y)>a$(y)a$(x)s$(n)))w=y+(x$(th)>j$(ol,y)(x$(th)>a$(y)a$(x)s$(n))):x$(w)x+v$(x,y)w=ao l 5200P ao4690R t>fon=t5600 (a(m)e(y)>e(x)e(y)>e(th)5600  a$(x)f$(y)5450J 4)5300+(300,(j$(m)e(x)e(y)>e(th)a$(x)=f$(y)tn5250 fDw=fox-x:x$(w)>v$(x,y)(x$(w)>a$(y)a$(x)v$(x,x))4999+w w:5250 t>foƯx$=e$g+r<7(de=kde=j(k))(aoa(or)+xaoa(ol)+(v=fo))(x$(y)e$(6)(j$(op)e$(fo))))5250 Pa$=r$(n)+x$(w):  a$=r$(n): *w=fox-x:j$(m,w)>v$(v-x,y)5350 w:5600 a$=r$(t)+j$(m,w): |a(m)a$=r$(t): ;w=foze-tw:c=onfo:45-:ao+j=145660 c=tao*orc=n5615 Baoorx$j$(o)))ao>w(ao>ona(op)or)5660 5c:w:c=onfo:45-:tfoao>orct5660 <c:w=thon-tw:c=onfo:45-:c=tc=nao5630 ]aowx$(on)>e$(ao-(ao>onj$(op)>x$))(ao>ont+a(op)<7d>onj$(op)orct5660 9c:w=foze-tw:c=onfo:45-:ao>wct5660 c:w:5500|  a$=r$(c): e$=d$(k):j=c(k):p=e$(9 ):q=l(p):i$=w$(p+5*a):n=e$(10 ):s=e$(13 ):op=fo*k-fo+w-(w>fo):tnnt=12 +3*g(9 ) f$="00"6000p ñm$5900  la(m$="EF"m$="JK")f=10 :a$=("2"e$(tw)>"3"f$<"2")+("2"e$>"4"f$<"2")+("2"f$="2")+"P": +am$(m$)="T"a$="5"+s$(fo-(j-j)*fo): $am$(m$)="Y"a$="6"+s$(fo-k1): ,rtwh$(a+on,th)>h$(tw-a,th)5830 &y=ze:x=onfo:j$(l(x))>""y=y+on 1j$(l(x),on)=""j$(l(x),tw)=""y=y+.5 x:r+y>7.6s3338680! ,k$(b-tw)>"E"k$(b-tw)>"D"r>tw8660! 4a$(tw)=f$jon)+(600XƱm$>tw)  krtwj>13 e$(7)>"2"w=e$(12 )f$(tw)="1"j>14s>502s63?8680! *Df$<"1"s>70Fj$(op,tw)>""j>15j<208700! \ 6100 j<78660! /d(k)<11 e$(5)>"6"a$="3"+s$(p): 0j>23j>21d(k)>24a$="2": 7jntjnt+ths>70Fe$<"5"e$(tw)<"5"8700! .j>20j<23s>60<8720" Si$="A"j>std(k)>17a(q)>5j$(q,on)=""j$(q,th)>""ptwj9 +tw*rd(k)13 i$"A"(e$(6)<"4"w$(n+5*a)"A")8660! mf$="00"e$(5)=e$(6)p=on(n=fon=twe$(5)="4"jstn=the$(fo)=e$(on))i$"A"8620!  8610! B[h$(a+on,tw)>h$(tw-a,tw)h$(tw-a)>"1"h$(a+on,on)"3"h$(a+on,tw)""m$=(m$-5) Vk6300+(200m$="E")+(300,m$="F")+(400m$>"F")+(100dm$="J")+(200m$>"J") k$(b-tw,on)="D"a$(tw)=((s$(p)i$="A")+(s$(n)e$(6)>"3")+(""s>60<)f$<"3"(a$>"N"j>6))+"P":a$(on)=("P"a$(tw)="P")+(r+(f$(tw)>a$(tw))+(d(k)>9 )): Ey=y(k,on):z=on:x=tw5:y(k,x)>yy(k,x)=yxts>60<r=on(w>foa(op)>twj$(op,tw)>"")8700! -j<9 p>tn"3"wn8620! zfo(ztj>14.4ffff)a$(tw)=(s$(z)ztzw)+(s$(n)nwe$(n)>"3")+(s$(p)pwe$(p)>"3")+"P":a$(on)=("P"a$(tw)="P")+(on+(j>14.4ffff)+(a$(tw)f$(tw))): Ta$(on)=(on+(z=t)+(j>10.4&fff(z>fozt))+(j>12.6I(z>foz=t))):7900 ns<546s=63?wfo(a(op)twj$(op,tw)<"")a$=("P"a$(on)"P"nt+d(k)<23)+("2"nt+d(k)<23)+("3"nt+d(k)23)+s$(p):7900 x=j+c(j(k)):j=j+nt:a$=("P"j<23)+("2"j<24)+("3"j<30)+("4"j<31.5|)+("5"j35#)+("6"(j<37%xɺx))+"7":79906-90Z*(a$<"4") Lj>8.4fffe$(5)>"5"j$(q,tw)>""a$=("2"ptw)+("3"p>tw)+s$(p): Sa$=("3"jɺjs>60<j>10 )+("2"s>60<j>7)+"2":7900 @Re$(t)>"2"j5a$(tw)=s$(t):a$(on)=("4"(j<8j=j))+"3":7900 J5j>10 e$(5)>"5"j$(q,tw)>""8600! Tea$=("P"a$(on)"P"j<7.6s333)+("3"j>7.6s333(w>fo(j$(op,tw)>""a(op)>tw)))+"2":7900 "jtwe$(5)<"6"8660! s>535(w>foa(op)>2j$(op,tw)>"")a$=("3"j<11 )+("4"j<12.5H)+("5"jst)+"7":79906-90Z*(a$<"4") ha$=("3"jtw)+("5"j>twj<12.4Ffff)+("6"j>12.4Ffffj14)+("7"j>14)+s$(p):7900 Mj>15a$=("4"+s$(t)e$(t)>"0"ttw)+("3"s>22)+"P":7900  8660! Xpy=m$:x=m$(tw):z=h$(tw-a,on)*5+64@-(wwfo):y<502f=tw+7*(x>5+z):7100 ]h$(tw-a)<"1"7040 b<x>zz>yx-y>5x-z5m$(tw)=(m$(tw)-5) lBy>69Ey>zy-z5m$=(m$-5)+(m$(tw)-5) py=m$:x=m$(tw):xy=((x-y)/5=((x-y)/5))*(x-y):h$(a+on)>"3"h$(tw-a)<"1"f=14:8660! Iy=69Ex<74Jx>79Of=tw+8*(x>79O):8660! <x=79Oxyf=fo+(22-nt(y=69E)):8660! Gf=24-nt:y=69Exya$=("2"j+f<25)+"3":7900 tx=on5:64794+x,(y(k,x)+6)*15:x:64788,x:z=64765:a$=r+u$(z):zfoj=d(k) Tz>twx+z>79Ox<79Oj+f>25j+f<33!y(k,5)>tw8740$" y<5027215/ xxyz=tf=7+(foxy=10 )+(7xy>10 ):a$(on)=("P"j+f<23)+("3"j+f<25)+"5":7900  3y74Jf=5-th*(x<79O):7215/ Hy>69Ef=8+tw*(x<74J)-6*(x=74J):7215/  9x-yfof=8+(x>69E)-(x<69E):7215/ *3f=14-th*(x=74J)-7*(x-y>10 ) />z>fotfoa$(on)=("3"j+f>25)+"2":7900 9y=69Ex>74J >-a$(on)=("1"jt)+(y<70F)): <z=m$(m$):y=m$(m$-on):x=m$(m$-tw):ee=j+c(j(k)) m$70Fx<74J)+(20x=74J)+(7x>74J):x<69Ee=e+(twz-x5)+(tw(z-x=10 z-y>5z=74J)) Om$=foe=f+on+d(k)+(foz>y+5)+(tw(z-x)/5ɺ((z-x)/5)tfo) xx=on5:64794+x,(y(k,x)+6)*15:x:64788,x:z=64765:a$=r+u$(z):z>foe=e-d(k)+j (\(z=thm$(m$)>"L"z=fom$(m$)>"K")r25e<33!y(k,5)>tw8740$" Re>25e<33!a$(on)=("3"z>fo)+("4"(ztwe<28))+"5":7900 5e33!a$(on)=("6"e<36$)+"7":7900 L(j<8g>99ce<23.5<)(z=tt>foy(k,5)>tw)8660! (y=on5:a$(tw)=u$(y)7930 y:8660! r6y=t8660!  a$>"8" Ga$>"6"x=j+c(j(k))-(j+c(j(k))):xɺxa$(on)=("6"x>.73333)+"5"  a$>"6" "x=a$(on)-on:g(a+3+tw*gg)+(20+10 *(ytwy>fo))*x+10 *(y>fo)>96`xw$(y+5*a)="A"x-r>ona$(on)=x:7970" ,#a$ǯf$a$(tw)=f$(tw)8660! 6 !a$="2"+s$(p): !a$="1"+s$(p): !a$="1"+s$(n): !a$="2"+s$(t): ! a$="P": ! a$="D": ! a$="1": " a$="2": "$a$="3":7900 "td>fod=d-fo:8820t" ":aa<8 "'''12 ;"Bidding";12 ;"-------"'':v=onfo:v*8-6;b$(d,5);:d=k(d):v:v=onfo:e$="-----":v*8-6;e$(̰b$(d,6));:d=k(d):v:'':d=on:v=5aa:d*8-6;k$(v,on);"N"k$(v,tw)="";k$(v,tw);:d=k(d):v:'''': "0,1,2,3,4,16,on,0,h,h,h,"NESW","Vul:none",p$,"AKQJT","SHDCN","","98765432","","North5","East 4","South5","West 4" #ze,f,f,f,f,f,f,f,p$ #(0rd64500,24+24*(>.6) #<zz=ze:rp=ze:os=ze:a(32 ):j$(32 ,8):64010 :x=onfo:y$(x)="0003":x:c(fo):d(fo):b=637975:l=on:k=l:x=6389963947st:a=onfo:a(l)=(x+a):a(l+st)=a(l):a(l)>89020<# #Pz=ona(l):j$(l,z)=(b):b=b+tw:z:j$(l+st)=j$(l):j$(l,fo)""y$(a)="100"+(k-tw*(k>tw)):j$(l,5)=""y$(a,tw)="5" #xl=l+on:a:z=on12 :c=x+z:d$(k,z)=(c):z:d$(k,13 )=((c+on)):c(k)=((c+tw))/fo:d(k)=(c+3)+c(k):k=k+on:x:y=65210:y+tw:zz=y:k1=(y-on): $T63743:7:1:7::8,8;"BRIDGE PLAYER 3";12 ,12 ;1;"LOADING":*"m";1;"Bridge3.3":*"m";1;"Bridge3.2"63744,1808 $^6(11 ,81Q)=165290 :557 $h $7:x=zetw:91[+8*os-x/tw,124|+x/tw:65A+x,ze:ze,-579-x:-65A-x,ze:ze,579+x:x:ze:7;tw,13 ;"NORTH"a>on;9 ,6+os;"WEST"detw;9 ,21+os;"EAST"defo:x=onv-on:y=k+x-v+fo*(vk+x):c=9 +tw*(y=th)-tw*(y=on):d=os+15-th*(y=fo)+th*(y=tw):7;c,d;v$(x,tw);c+on,d;f(x);v$(x,on):x: %H7;ze,13 ;"NORTH":c=ze:b=10 :y=c:9600%: %&Nc=7:c,18;c;"EAST";fo;" ":b=15:y=fo:9600%: %0]c=15:7;c,13 ;"SOUTH":b=10 :y=8:9600%: %:>c=7:c,th;c;"WEST";fo;" ":b=ze:y=12 %Z7:x=onfo:tw*(x>onxfod=d-fo:9655% %T7;ze,ze;fo;"Hand ";h'on;"Dealer:";o$(d)'tw;n$(8)'n$(10 ): %A7;fo,ze;"Contract"'r;cd;"N"t>fo;f$(tw);ze;f$(th);: %y7;" by ";o$(de);7-7*(de=th)+8*(de=on),13 -10 *(de=tw)+5*(de=fo);"DUMMY": %`a$(fo):"Enter contract ";("(which need not be the same as before) "rp);a$:a$(on)="N"nh %'a$<"1"a$"8"9970&:9690% %ft=on5:a$(tw)=r$(t)f$=a$(on)+u$(t)+("x"a$(th)="X")+("x"a$(fo)="X"):r=f$(on):9720% %t:9970&:9690% &cd=tw*(t>ontonon;ze,on-aa &f2c;x-on,v;j$(m,z);x,v;e$:v=v+tw:z:u:o774z=236066\:9100#+v:ze: &(9945&-5*j$(m,a(m)):ze: &.x+tw,y+tw;e$;x+6,y+tw;e$:9905& &10 ,30;e$;11 ,30;j$(m,a(m)):z,32 :z+on,252:fo,26;" !""#";5,26;"$%&'";6,26;"()*+";7,26;",-./";8,26;"0123";9 ,26;"4567";10 ,26;"89:;":z,ze:z+on,60<: &2th,30;"A";fo,30;e$;10 ,25;e$;11 ,25;"A";10 ,30;e$;11 ,30;"A":z,32 :z+on,252:m=11 5,27;"<=";6,27;">?";7,26;"@ABC";8,26;"DEF";9 ,27;"GH":z,ze:z+on,60<: &a6,27;"IJ";7,26;"KLMN";8,26;"OPQR":z,ze:z+on,60<: &x+fo,y+tw;e$ &ax+on,y+on;e$;" ";e$;x+th,y+on;e$;" ";e$;x+5,y+on;e$;" ";e$;x+7,y+on;e$;" ";e$: &x+th,y+tw;e$ &"x+fo,y+on;e$;" ";e$:9925& &x+fo,y+tw;e$ &2x+tw,y+on;e$;" ";e$;x+6,y+on;e$;" ";e$: &x+fo,y+tw;e$ &$x+tw,y+tw;e$;x+6,y+tw;e$: &(x=on6:.1}L,*40(:x: 'ze:7::th,ze;tw;"You have attempted to break intothis program: this is forbidden."''" The current deal has been"'6;"erased. To restart";10 ;on;"PRESS A KEY";ze '''''"This routine was written by F.A.Vachha and is included by kind permission of:-"''10 ;"CP Software";7;"10 Alexandra Road";11 ;"Harrogate"'7;"N. Yorks. HG1 5JS" ' /ze:7:65290 :30:557 nhu7fgijl# ONESWPVul:noneQAKQJTRSHDCNST 98765432UNorth5East 4South5West 4G m4 4= ˕$  5 NVul:noneEO