ZXTape! 0Created with Ramsoft MakeTZXRbridge2  Bridge2  R.Wheen 1984 $65289 :23755\,100d "7:1::l$(32 ) 23659k\,0:8,9 ;"BRIDGE PLAYER";12 ,12 ;1;"LOADING";0;22,0;l$;"The program takes 5 mins to load";0,0;:23659k\,2:1 (""65290 ,231 -65290 2/0,0;l$;l$;0,0;:"" 765290 Μ9sΜs9s<~<<~<;;;;8TT8FIIIIFBB<2):l(x)=fo*k-fo+x:o()=o+fo-st*(o>12 ):p()=o+8-st*(o>8):r()=o+12 -st*(o>fo) Fq65290 :8960#:f,g,i,j,l,aa,k1,k2,ss,zz,fs,rp,h,n$:j$(32 ,8):a(32 ):c800  K7::x=ze10 10 :y=on256:x+on,y;"";x+2,y;"";x+3,y;"";x+fo,y;"";x+5,y;"";x+6,y;"";x+7,y;"";x+8,y;"":y:x Pw502:2:on,on;" ":w=on5:" ":w:fo,2;" ";7,on;" ";8,on;" ";ze;on,7;" ";2,7;" ";3,7;" ";fo,7;" ";5,7;" ";6,7;" ";7,7;" ";8,7;" ":w=on7:w,13 ;" ":w:8,13 ;" " Zze:on,15;" ":w=26:w,15;" ":w:7,15;" ";8,15;" ":2:on,21;" ":w=26:w,21;" ":w:3,25;" ";fo,24;"";7,21;" ";8,21;" ":ze:w=26:w,27;" ":w:on,27;"";fo,28;"";7,27;"";8,27;" " d10 ,6;"You can now either:-"'l$;l$;" 1 - let the computer shuffle";7;"and deal the cards; or "'l$;" 2 - set the hands yourself";7;"i.e. decide which cards";7;"each player is to have."'''on;"To make your choice press 1 or 2" n="1"800  s="2"yy:300, x="2":yy=on:5,ze;" You will be able, after enter-"''" ing the hands, to bid and play"''" the hand as usual, but remem-"''" ber you will always be South";on;18,3;"Press any key to continue":ze:300, 110n 6ropt=2:y$(fo,13 ):ze:fo::u=onfo:b(u)=13 :d$(u)=t$:u:9500%:k=on3:350^ T502::y=fo*k-3:x=yy+3: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% ^p=ze:n=onfo:o=l(n):c=o+(3k=2)+(7k=3):b=10 +5*(k=2):c,b-3;7;ze;">>>" h"Enter ";(b$(k,̰b$(k,6));"'s ";2*(n=2n=3);(s$(n));ze;" holding ";"(enter as T or 1) "k=on);" ";e$:390 rY9970&:"Maximum holding in one suit is 8cards. Enter suit again. ";e$:390 |N9970&:"You have entered the same card twice. Enter suit again. ";e$ #a(o)=e$:a(o)>8370r +x=ona(o):e$(x)>"1"e$(x)"9"430 [y=on5:e$(x)=q$(y)e$(x)=q$(y+5)e$(x)="t"y=5e$(x)=t$(y):430 y:9970&:360h [x:x=2a(o):y=x2-on:e$(y)>e$(y-on)z$=e$(y):e$(y)=e$(y-on):e$(y-on)=z$ e$(y-on)=e$(y)380| &y:x:z$=d$(n,b(n)):x=on:a=xa(o) x>z$380| 3e$(a)=z$(x)z$=z$(x-on)+z$(x+on):a:490 x=x+on:460 j$(o)=e$:y$(n)=z$:2*(n=2n=3):c,b-3;" ";7;s$(n);:x=ona(o):7;" ";j$(o,x);:x:p=p+a(o):j$(o)=e$:p>13 340T n:p13 340T 4x=onfo:d$(x)=y$(x):b(x)=b(x)-a(l(x)):x:k:u=onfo:o=12 +u:j$(o)=d$(u):a(o)=b(u):a(o)>87::j$(32 ,8):10 ,2;"You have left West with a ";a(o);'" card suit, which is too long."'''" Enter entire hand again.":a(32 ):9970&:502:3106 ^u:c(fo):d(fo):y$(fo,fo):u=onfo:y$(u)="0003":u:9400$:c=7:b=ze:y=12 :9600%:opt=on: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):x<3d(k)=d(k)+3-x-(e$=""e$="")-2*(e$=""e$="") 0>v=onx:e$(v)>""c(k)=c(k)+e$(v)-155+(e$(v)="")/fo :]v:j$(l,fo)""y$(a)="100"+(k-2*(k>2)):j$(l,5)=""y$(a,2)="5" DCa:d(k)=d(k)+c(k):j$(l)>""c(k)=c(k)zz=k-2*(k>2) b{g$="1234":v=3on-on:w=onv:e(w)fok=k-fo:1010 o7:on::on;"Hand no.";h;32 -n$;2;n$'ze;" This is your hand as South":9750& w15,on;2;"Dealer":b=onfo:on;14,b*8-6;b$(k,̰b$(k,6)):k=k(k):k$(b)="P":b 4v=onfo:a=(k=2k=fo):k=31140t $5750v:1150~ `"k3k$(b)="P":1220 j 9970& t!"Your bid? ";k$(b):1210 @k$(b,2)f$(2)k$(b,on)=(k$(b)+on):1200 Cx=on2:k=3k$(b,x)>"`"k$(b,x)=(k$(b,x)-32 ) (x:k$(b,2)="NE"c=on:70F 5k$(b,on)="P"k$(b)=" "k$(b)="Pass":1360P (k$(b,on)="D"k$(b)="Dble":1340< (k$(b,on)="R"k$(b)="Rdbl":1340< {w=on5:k$(b,2)=u$(w)k$(b,2)=r$(w)k$(b,2)=u$(w):cd=2*(w=2w=3):1280 w:1120` =k$(b)<"1"k$(b)"8"k$(b,2)f$(2)1120`  1400x <k$(b,on)="D"(f$="00"űf$2k$(b-2,2)=f$(2))k$(b,on)="R"(f$3k$(b-2,on)="D")1120` F f$=f$+"x" d_o,v*8-6;k$(b):k$(b,on)+k$(b-on,on)+k$(b-2,on)"PPP"b<81510 ia80P::k$(b-3,on)="P"10 ,9 ;"Hand passed out":c=on:80P:70F n2w=on5:f$(2)=u$(w)t=w:1700 sw xMf$=k$(b,2):r=f$(on):am$=m$+(r*5+64@-(ww<5)) }co,v*8-5;r;cd;("N"w=5);k$(b,2):w$(w+5*a)="A"w$(w+5*a)=k >.05|L,(5*r-10 -(ww<5)):ah$=f$:t=w aor=w:i$="00"i$=f$ m$=""a1510 \g=((20+10 *(t<3t=5))*r+10 *(t=5))+g(3+2*gg)  k=k(k):b=b+on:m$=onx$=f$ v:b>35#1700 ,o=o+on:o=21o=7:23692\,255:v=on15::v:15,ze;on;"Hand no.";h;32 -p$;2;p$:9750& @ 1050 gaa=b:k=w$(w+5*(h$(2)f$(2))):cd=2*(w=2w=3):de=k:g=0 :2,8;"Bidding complete";6,2;"The contract is ";r;cd;("N"w=5);f$(2);ze;f$(3);" by ";b$(k,5):h>onrp80P k=onk=31730 9 ,on;"The contract has been won by East/West. However this program does not cater for the computer to play the hand as declarer. To bid the hand again, press R. Otherwise press N for the next hand." ="N"Ŧ="n"c=on:70F &1720-(720(="R"Ŧ="r")) h=onrp10 ,2;"Soon the opening lead will be made and dummy will go down."''''" If at any time you want to go on to the next hand, enter ""NEXT"" instead of a card.";21,2;on;"Press any letter to continue":ze -fo:on::j=ze:opt=onk=k(k):2215  9500% 9650%:9690% 15,13 ;" "'7;"Press 2 if you want the computer to play the defenders' hands. Press 4 if you want to play all 4 hands yourself.";fo;l$;21,12 ;7;on;"2 or 4?" !e$=:e$="2"e$="4"2195  2192 :k2=e$:st,0;l$;l$;l$;l$;l$;l$:fs=on:9540D% c$(fo,13 ):tv=20+10 *(t<3t=5):a=de-2*(de>2):v=onfo:c$(v)=t$:v:j=on13 :v=onfo opt*j*v=on7:x=zeon:84T-x,130+x:80P+2*x,ze:ze,-(70F+2*x):-(80P+2*x),ze:ze,70F+2*x:x:ze:7;9 ,5;"WEST";9 ,22;"EAST":9650%:9670%:9680%:9499%+de Tp=k:q=on+(k=k(de)de=k(k)):k2ona(l(n))=on5250:23608 $j=13 5600:23608 E(b$(k,̰b$(k,6)));" to play. Enter card ";v$(v):2345) l9970&:1;"Revoke";ze;" ";(b$(k,5));" to play again";9 ;"without penalty ";v$(v) )'v$(v)="NE"v$(v)="ne"c=on:70F .v$(v)=" "v>onv$(v)=s$(n) 8u=onfo:v$(v,on)=r$(u)v$(v,on)=r$(u+5)v$(v,on)=s$(u)v$(v,on)=s$(u):f(v)=2*(u=2u=3):2385Q B3u:v=onv$(v,2)" "9970&:2310 Gx=on5:v$(v,on)=q$(x)v$(v,on)=q$(x+5)v$(v,on)="t"v$(v,on)>"1"v$(v,on)"9"v$(v,2)=v$(v,on):v$(v,on)=s$(n):23608 Lx:9970&:2310 Q v=onn=u V/b(v)=u:2900T :ola(o)2310 +a(l) _v$(v,2)=" "a(l)v$(v,2)=j$(l,a(l)):a(l)=a(l)-on:j$(l)=j$(l,a(l)):2540 +v$(v,2)=" "9970&:2310 1v$(v,2)>"1"v$(v,2)"9"2510 w=on5:v$(v,2)=q$(w)v$(v,2)=t$(w)v$(v,2)=q$(w+5)v$(v,2)="t"w=5v$(v,2)=t$(w):2510 w:9970&:2310 [w=ona(l):j$(l,w)=v$(v,2)j$(l)=j$(l,w-on)+j$(l,w+on):a(l)=a(l)-on:2540 w:9970&:2310 'unu=tq=2.05|L,15 [opt=27;ze,27;" This";on,27;"trick";2,27;"*****" opt=2q=onc=l+3*(k=2)+7*(k=3)-5*(k=fo):d=12 +5*(k=2)-10 *(k=fo):c,d;:w=ona(l):f(v);7;j$(l,w);" ";:w:8;" " opt=onc=6+6*(k=3)+3*(q=2):d=15-fo*(k=fo)+fo*(k=2):7;c,d;v$(v,2);c+on,d;f(v);v$(v,on):j*v=on9502%-de Mopt=27;v+2,27;" ";on;o$(k);ze;" ";f(v);v$(v) 3e(v)=((v$(v,2)+200*(u=t))*(u=tu=n)) PPk=k(k):2900T :v:i=ze:u=e(on):w=on3:e(w+on)>uu=e(w+on):i=w Z8w:k=k+i-fo*(k+i>fo):g=g+(k=onk=3):2900T _9opt=2w=36:w,26;" ":w dfw=onfo:v=on13 :v$(w,2)=c$(b(w),v)c$(b(w))=c$(b(w),v-on)+c$(b(w),v+on):2670n iv nyw:opt=onw=zeon:6+w,15;" ";9 +w,19;" ";12 +w,15;" ";9 +w,11 ;" ":w s7;13 ,27;" Last";14,27;"trick";15,27;"*****":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 xW7;st,ze;" Tricks "'" ****** "'"N/S E/W"'" ";g;6;j-g;(" "j-g9 ) })j:100d:7::rp2810 fi=ze:p=i:y=(g-6-ra=on)+(7-g-ra=2):b=3-a:c=a+2+2*gg:e=i:e(5):f=f$:e(y$(t-(t=5),4))=y$(t-(t=5),3):o=150*(zz=at=5)+e(a):q=150*(zz=bt=5)+e(b):7,18-(t=5);r;cd;("N"t=5);f$(2);0;f$(3);:y<02730 o=o+502*(f-2)+(tv*yf=2)+y*100d*(f-2)*(on+g(a+8)):" made";9 ,18;("exactly"y) bp=(tv*r+10 *(t=5))*(f-(fon) r>5o=o+(500+(250g(a+8)))*(r-5):on,14;on;2;"Congratulations";3,13 ;ze;"Slam bid and made":i=9950& 2745 " defeated";9 ,18;"by ";y;" trick";("s"ƽy>on):i=9960&:f=2q=q+(y*502*(g(a+8)+on)):2745 Eg(a+8)q=q+(y*200-100d)*(f-2):2745 *q=q+(y*300,-100d)*(f-2) 5,ze;"N/S E/W":36$,134:ze,-94^:ze,92\:70F,ze:ggze,74J:70F,ze:gg=2ze,58::70F,ze Pw=zeon:x=on72:g(w+x)8+x,5*w+fo-g(w+x);g(w+x) Lx:w:q7+g(b),14-5*a-q;on;2;q:g(b)=g(b)+q ܷp13 +2*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)=2o=o+500+200*g(b+8) Vo7+g(a),5*a-on-o;on;o:g(a)=g(a)+o:g(a+8)=2l=g(on)+g(3)+g(5)+g(7)-g(2)-g(4)-g(6)-g(8):13 ,14;on;2;"Rubber complete";15,14;"At `1 per point";17,15;("N/S"lze)+("E/W"lfo):o=l(n):ol=o():op=p():or=r():d=(a(ol)>ze)+(a(or)>ze): ,v=onst:j$(v)=j$(v+st):a(v)=a(v+st):v: Io=l(c):ao=a(o):op=p():or=a(r()):e$=c$(c):a(o())>oror=a(o())  j=13 5600 ,n=onfo:2900T :n=ta(o)3050 }(a=onj-g+r>7a=2g+r>7)(j$(o,on)=e$(on)j$(op,on)=e$(on))(t=5d=2)t-d=53300 ̅t<5d=2j$(o,2)=e$(2)j$(o,on)=e$(on)a(o)=on(t<5dt=5a(op)>a(or)a(op)>a(ol))3300 Ct<5d=2a(op)(j$(o,on)=e$(on))a(op-n+t)3300 /n:n=onfo:2900T :n=ta(o)3090 j$(ol)2+a(or)+a(ol)t=5)j$(op,3)>e$(6)(j$(op,3)>j$(or,2)j$(o,on)>j$(or,2))(t=5d)3300 (j$(o,2)=e$(23)(t<5d(t=5j$(o,3)=e$(fo)j$(o,3)=e$(5)))j$(op,2)>e$(fo)(t=5d))3300 .a(op)t<5a(or)a(op-n+t)3300 /n:n=onfo:2900T :n=ta(o)3160X &(j$(ol)e$(5)(j$(op,2)>j$(or)j$(op)ond5250 :ee$(2)=j$(ol,on)+j$(op,on)(t=5d)e$(3)=j$(ol,2)+j$(op,on)d3300 Ndt<5(d=2a(m)a(o)=2j$(o,on)=e$(on)a(o)>5a(op)w(t=5da(or-n+t-(t=5))a(ol-n+t-(t=5)))(wonj$(o)e$(3))3300 In:w:w=3ze-on:n=foon-on:2900T :a(o)>wnt3300 n:w:5500| ;x=on6:j$(o,2)=e$(xx+on)w=on:5200P x:a(o)<3(j$(o,on)=e$(on)(j$(o)<""t<5))t=5a(ol)<2a(or)<2(j$(op)j$(ol)j$(o)>j$(or)w=on:5200P ij$(o,2fo)=e$(35)j$(o,2fo)=e$(3fo)+e$(6)w=2:5200P *&w=3+(a(o)>3):5200P a(o)3720 !t=5n=ta(m)5600 a(ol)3650B 1j$(op)>v$(on,2)j$(op)>j$(ol)5600 a(m)35450J $$j$(m,2)>d$(n,fo)5600 . 5450J 8a(ol-n+t)5500| L5w=3on-on:j$(m,w)>j$(ol-n+t,on)5350 j&w:v$(on,2)>e$(fo)5500| t 5600 *a(o)=onv$(on,2)>j$(o)5250 )v$(on,2)>e$(fo)w=on:5200P j$(o)>j$(ol)3780 v$(on,2)j$(ol,2)j$(o,2)>v$(on,2)j$(op)j$(ol,2)j$(o,3)>v$(on,2)):5200P rv$(on,2)>e$(6)nt(a(op)>onj$(op)v$(on,2)):5200P  5250 <a(op)v$(on,2)j$(op)>j$(ol)5250 j$(o,2)>v$(on,2)j$(o,2)>j$(ol)a(ol)=ona=onj-g+r>7a=2g+r>7j$(o,on)j$(ol)j$(o,2)>v$(on,2))+(j$(o,3)>j$(ol)j$(o,3)>v$(on,2)):5200P ؑe$(23)=j$(ol,on)+j$(op,on)(j$(ol,2)=e$(fo)v$(on,2)=e$(fo)(j$(or,on)=e$(fo)j$(ol,2)=e$(5)))5250 .t=5a(ol)>2a(or)>on5250 j$(op)>j$(o)a(op)>onw=on+(j$(o,2)>j$(ol)j$(o,2)>v$(on,2))+(j$(o,3)>j$(ol)j$(o,3)>v$(on,2)):5200P Pa(o)=2ntw=on+(j$(o,2)>j$(ol)j$(o,2)>j$(or)):5200P  5250 a(o)4250 t=5n=t5600 "v$(2,on)=s$(t)5310 @4e(on)>e(2)v$(on,2)>j$(ol)5600 J 5450J 8a(o)=ont<5ntv$(2,on)=s$(t)5250 .a(op)+a(or)a(ol)<2w=on:5200P a(ol)4330 e(on)>e(2)5250 ;w=3on-on:j$(o,w)>v$(2,2)5200P w Oa(o)=2e$(3)=j$(o,on)+v$(on,2)+j$(op,on)w=on:5200P (u=on3:j$(ol,u)=" "5250 6e(on)>e(2)v$(on,2)>j$(ol,u)5250 p(j$(o)e(2)v$(on,2)>j$(ol,u)w=on+(nt):5200P Xw=foon-on:j$(o,w)>v$(2,2)j$(o,w)>j$(ol,u)5200P-750*(w=on) w:u:5250 b(a=onj-g+r7a=2g+r7)a(o)>2j$(o,on)=e$(on)(j$(o,2)=e$(fo)v$(on,2)=e$(fo))j$(or,on)>e$(fo)a(ol)>onw=2+((j$(or,2)=e$(5)j$(o,3)=e$(6))v$(on,2)=e$(fo)v$(2,2)>e$(fo)):5200P lw=on:5200P a(o)4690R t=5n=t5600 :a(m)e(2)>e(on)e(2)>e(3)5600  (v$(3,on)f$(2)5450J 445300+(300,(j$(m)e(on)e(2)>e(3)v$(3,on)=f$(2)tn5250 fhw=foon-on:j$(o,w)>v$(on,2)(j$(o,w)>v$(3,2)v$(3,on)v$(on,on))5200P w:5250 Pv$(v)=r$(n)+j$(o,w): v$(v)=r$(n): 3w=foon-on:j$(m,w)>v$(v-on,2)5350 w:5600 v$(v)=r$(t)+j$(m,w): |a(m)v$(v)=r$(t): !j=13 w=zeon:5640 Cw=foze-2:c=onfo:2970 :c=tao*orc=n5615 Eaoorj$(o)j$(o)))ao>w(ao>ona(op)or)5660 <c:w:c=onfo:2970 :t<5ao>orct5660 Hc:w=3on-2:c=onfo:2970 :c=tc=nao5630 gaowj$(o,on)>e$(ao-(ao>onj$(op)>j$(o)))(ao>ont+a(op)<7d=2j$(op)orct5660 c:w=foze-2 8c=onfo:2970 :ao>w(ctj=13 )5660 c:w:5500| v$(v)=r$(c): e$=d$(k):j=c(k):p=e$(9 ):q=l(p):n=e$(10 ):s=e$(13 14):op=fo*k-fo+or-(or>fo):f$="00"6000p  m$=""ai$="00"a5900  m$=""a5810+a 2m$(m$)="T"k$(b)="5"+s$(fo-(j-j)/.25~): $m$(m$)="Y"k$(b)="6"+s$(fo-k1): $m$="F"m$="FG"m$="EF"5820 g>99cj+c(j(k))<33!(t=5s>502t<5(e$(t)>"2"k$(b-2,2)=k$(b-6,2)e$(t)>"0"))8660! Rah$>"4"k1*3+st*(c(k)-c(k))>fo*(8-h$(on))Ʊf$=28680! !ak$(b-2)>"8"8660! =(62008Ʊm$)+(800 Ʊm$>on)+(600XƱm$>2)  Ub<13 j>13 k$(b-2)>"8"e$(7)>"2"w=e$(12 )8680! k$(b-2,on)="D"(k$(b-on)>"8"d(k)>8)f$(on)<"3"(am$=""ai$="00")k$(b,2)=(s$(p)wp)+(""w=ps>60<)+(s$(n)e$(6)>"3")+"P":k$(b,on)=("P"k$(b,2)="P")+(f$+(f$(2)>k$(b,2))+(d(k)>9 )):  @f$(2)="1"j>14s>502s63?8680! *[f$<"1"s>70Fj$(fo*k-fo+w-(w>fo),2)>""j>15j<208700! \ 6100 j<78660! /j<11 e$(5)>"6"k$(b)="3"+s$(p): 5j>23(j>21d(k)>24)k$(b)="2": Ej>12.9Nfffj70Fe$(on)<"5"e$(2)<"5"8700! .j>20j<23s>60<8720" Yaorpj>std(k)>17a(q)>5j$(q,on)=""j$(q,3)>""p12.75L(j>11 d(k)>13 ))k$(b)="1"+s$(p+3*(e$(on)=e$(fo)p=onwfo)): ^or=pe$(6)>"3"d(k)>13 (n14e$(6)>"4"))k$(b)="1"+s$(n):  8660! 8Bi$(on)="1"x$(on)="2"i$(2)>x$(2)m$=(m$-5) ="afs=e$(t)*(t<5m$"F") BDk$(b-2,on)+k$(b-on,on)="DP"k$(b)=(on+(j9 ))+s$(p): Vk6300+(200m$="E")+(300,m$="F")+(400m$>"F")+(100dm$="J")+(200m$>"J") 2j<5.63333(d(k)<6t=5)8660! 6330+502*(j>9.5(j>7d(k)10.5())+502*(j>12.6I(j>11 d(k)>12.6I))+502*(j>15) e$(t)>"3"8640! p8.3j>7d(k)>9 )8600! =k$(b)=("1"(or=5j$(op,on)>""a(op)>2))+"P": (e$(t)>"3"k$(b)="3"+s$(t):7900 p70Fe$(on)<"5"e$(2)<"5"(or=5a(op)>2j$(or,2)>"")k$(b)=("2"d(k)10 )+"1":7900  t"3"t<3k$(b)="4"+s$(t):7900 #cs>70Fe$(on)<"5"e$(2)<"5"(or=5(a(op)>2j$(or,2)>""))8740$" ((e$(t)>"3"k$(b)="4"+s$(t):7900 -pp))+s$(n): Z k$(b)=(2+(p>t))+s$(p): nSs<546s=63?(or<5(a(op)<3j$(op,2)<""))6550 yk$(b)=("P"j<11 )+("2"j<12 )+("3"j<18)+("4"j<19.5)+("5"j19.5j<23.25:)+"7": 9k$(b)=("2"d(k)<7.6s333)+("3"d(k)>7.6s333)+s$(p): ^j>8.4fffe$(5)>"5"j$(q,2)>""k$(b)=("2"p<3)+("3"p>2)+s$(p): bk$(b)=("3"jɺjs>60<j>10 )+("2"s>60<j>7j<9.9fff)+"2":7900 @[e$(t)>"2"j5k$(b,2)=s$(t):k$(b,on)=("4"(j<8j=j))+"3":7900 J:j>10 e$(5)>"5"j$(q,2)>""8600! T}k$(b)=("P"k$(b-on,on)"P"j<7.6s333)+("3"j>7.6s333(or=5(j$(op,2)>""a(op)>2)))+"2":7900 'j<3e$(5)<"6"8660! s>535(or=5a(op)>2j$(op,2)>"")k$(b)=("3"j<11 )+("4"j<12.5H)+("5"j12.5Hj<16.25)+"7": Tj>2j<12.4Ffffk$(b)=(4+((p+7)/10 ))+s$(p):7900 Xk$(b)=("3"j<3)+("6"j>12.4Ffffj14)+("7"j>14)+s$(p):7900 Vs>22j>15e$(t)>"1"k$(b)=("P"g>99c)+("4"+s$(t)t<3)+"3":  8660! XUm$="EF"m$="JK"f=10 :k$(b)=("2"e$(2)>"3")+("2"e$(on)>"3")+"2": ]%i$"7"7020l bm$(2)-m$>5(i$=k$(b-2)(i$=k$(b-2)-oni$(2)k$(b-2,2)))m$(2)=(m$(2)-5):7030v lti$(on)="1"x$(on)<"4"i$(2)x$(2)m$(1)=(m$(on)-5):m$(2)=(m$(2)-5) v>y=m$(on):x=m$(2):afs=e$(t)*(t<5m$"FG") ry>68D7300+502*(y=70F)+150*(y>70F)+502*(y=74J)+100d*(y>74J) Uf=6:x-y=5d(k)stk$(b)=((d(k)+on)/5)+h$(2):7900 x-y=10 d(k)14f=11 :k$(b,on)=("6"d(k)>21)+("5"d(k)stt>2)+"4":k$(b,2)=h$(2):7900 Vy<67Cx-y=15d(k)15f=13 :k$(b)="5"+h$(2):7900 e(x-y)/5=((x-y)/5)f=6+5*(x-y=10 )+8*(x-y=15):8660! f=6:x=69E(s>65A(s>43+ưe$(12 )=t))k$(b)=("2"j>16j<18)+("3"j18)+"P":7900 xx=69Ek$(b)=("2"d(k)on+e$(6)))+s$(n):7900 Xf=11 :x=74Js>43+s47/k$(b)=("3"j14g<25)+"P": Əx=74Jk$(b)=("3"+s$(p)(jon+e$(6)))+("4"+s$(p)j16ưe$(5)>on+e$(6))+("3"+s$(n)):7900 x-y>57250R =c=ze:f=6+(3h$(on)="2"):e$(t)>"3"72204 e$(6)>(fo-c)(d(k)>16.6-3*cnst)+(k$(b,2)70F(s>80Pt=e$(12 ))k$(b)=("1"h$(1)="1"j<16.9333)+("3"j>18.6)+"2":7900 $cc=on:s=s+20:7150 7e$(5)>"4"k$(b)=(f$+(j>16)+on)+s$(p): 4?k$(b)=(f$+on+(j>15.4vfff)+(j>19))+s$(t):7900 \3f=13 :c=on:t<5e$(t)>"3"72204 f`s>60<(s>40(s47/t=e$(12 ))k$(b)=("2"j<14.6i)+"3":7900 p 7150 Bx=74Jf=11 :k$(b)=("3"g<25j>14)+"P": x<74Jf=ze:8660! ;x<79Of=9 :k$(b)=("3"e$(t)<"3")+"4"+s$(t): @x<82Rj>14f=11 :k$(b)="5"+s$(t):7900  8660! 1f=ze:m$="FG"s>60<j<258720" m$="FG"8600! If=7:m$="FJ"s>60<j<25k$(b)=("3"g<25)+"P": m$="FJ"8600! "x<74Je$(t)>"3"8640! Ax<74Js>60<k$(b)=("3"j>24)+"2":7900 x<74J8600! e$(t)>"2"8640!  #s>60<h$(on)="3"8740$"  8600! zf=ze:x=74Jưe$(5)>on+e$(6)e$(5)>"5"k$(b)=("3"j<22)+("4"j22)+s$(p):7900 $x=74J8620! ."f=8:e$(t)>"2"8640! 8es>30e$(8)>"1"(t=e$(12 )e$(8)="1")e$(5)<"7"h$(on)<"4"8740$" B:e$(5)>on+e$(6)e$(5)>"5"8660! G 8620! L"f=2:e$(t)>"2"8640! Vp70Fx<74J)+(20x=74J)+(7x>74J):x<69Ee=e+(2z-x5)+(2(z-x=10 z-y>5z=74J))+(2(fs>3ss>3)t<5) Ιm$=foe=f+on+d(k)+(foz>y+5)+(2(z-y)/5ɺ((z-y)/5)(z-x)/5ɺ((z-x)/5)(z-ww)/5ɺ((z-ww)/5)t<5) A(z-y)/5=((z-y)/5)k$(b,2)=u$(t):7800x U(z-x)/5=((z-x)/5)t<5e$(t)>"2"k$(b,2)=s$(t):7800x u=3on-on  m$<5(z-x)/5ɺ((z-x)/5)t<5(fs>uss>u)k$(b,2)=(k$(b-6,2)fsss)+h$(2):7800x f$<"4"s>(20+20*u)(s>(10 +10 *u)(h$(2)=u$(e$(12 )k$(b-6,2)=u$(e$(12 )))))k$(b,2)="":7800x Ke$(6)(u+2)e$(6)"4"k$(b,2)=s$(n):7800x 2Ke$(5)(u+3)e$(5)"4"k$(b,2)=s$(p):7800x "1"k$(b,2)=s$(t):7800x Pu:k$(b,2)="" xMk$(b,2)=""e=e-d(k)+j-(2Ʊm$=3(fs>3ss>3)) ae>25e<33!k$(b,on)=("3"k$(b,2)="")+("4"k$(b,2)>"")+"5":7900 1e33!e<36$k$(b,on)="6":7900 &e36$k$(b,on)="7":7900 r(j<8g>99ce<23.5<)(k$(b,2)=h$(2)k$(b-2,2)=""s>20)8660! Qk$(b,on)=(h$+(k$(b,2)s$(t))+(x<69Ej>10 k$(b,2)=""))  k$(b)>"8" Lk$(b)>"6"x=j+c(j(k))-(j+c(j(k))):xɺxk$(b,on)=("6"x>.73333)+"5"  k$(b)>"6" g+(20+10 *(k$(b,2)>""))*(k$(b,on)-on)+10 *(k$(b,2)="")>99ck$(b)>"2"k$(b,on)=(k$(b)-on):7930 1k$(b)ǯf$k$(b,2)=f$(2)k$(b)="P"  !k$(b)="2"+s$(p): !k$(b)="1"+s$(p): !k$(b)=f$(1)+s$(n): !k$(b)="2"+s$(t): ! k$(b)="P": ! k$(b)="D": !k$(b)="1": "k$(b)="2": "$k$(b)="3":7930 "jd=h "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,2)="";k$(v,2);:d=k(d):v:'''': "16,st,4,1,0,h,h,h,h,"NESWnesw","Vul:none",p$,"AKQJTakqj1","SHDCNshdcn","","98765432","","98765432987654329876543298765432","North5","East 4","South5","West 4" #"ze,f,f,f,f,f,f,f,f,f,f,f,h+on,p$ # on,3,5,6,on,6,5,6,8,3,3,5,6,10 ,8,8,6,6,5,3,5,6 #y,x,.37=p,x,z,x,y,x,y,-17,y,x,.37=p,x,z,x,y,x,.37=p,-9 ,z,-10 ,.37=p,-10 ,z,x,.37=p,x,z,-13 ,y,x #('x=onfo:y$(x)="0003":x:u=on524:v=2*(*524+on):w=2*u:z$=a$(v-onv):a$(v-onv)=a$(w-onw):a$(w-onw)=z$:u:c(fo):d(fo):k=onfo:e$=a$(26*k-25k*26):f$="":g$="":h$="":i$="":w=2262:e$(w-on)=""f$=f$+e$(w):9175# #'e$(w-on)=""g$=g$+e$(w):9175# #'e$(w-on)=""h$=h$+e$(w):9175# # i$=i$+e$(w) #׊w:a=onfo:e$=(f$a=on)+(g$a=2)+(h$a=3)+(i$a=fo):l=l+on:x=e$:e(a)=x:a(l)=x:d$(k,a)=x:x>8l=ze:9000(# #Ix<3d(k)=d(k)+3-x-(e$=""e$="")-2*(e$=""e$="") #>v=onx:e$(v)>""c(k)=c(k)+e$(v)-155+(e$(v)="")/fo $Hw=v2-on:e$(w)>e$(w-on)z$=e$(w):e$(w)=e$(w-on):e$(w-on)=z$ $jw:v:j$(l)=e$:j$(l,fo)""y$(a)="100"+(k-2*(k>2)):j$(l,5)=""y$(a,2)="5" $'Ca:d(k)=c(k)+d(k):j$(l)>""c(k)=c(k)zz=k-2*(k>2) $1{g$="1234":v=3on-on:w=onv:e(w)fod=d-fo:9655% %Y7;ze,ze;fo;"Hand ";h'on;"Dealer:";o$(d)'2;n$(8)'n$(10 ): %P7;fo,ze;"Contract"'r;cd;"N"t=5;f$(2);ze;f$(3);: %7;" by ";o$(de): %{"Enter contract ";("(which need not be the same as before) "rp);f$:f$<2f$<"1"f$"8"9970&:9690% %t=on5:f$(2)=r$(t)f$(2)=r$(t+5)f$=f$(on)+u$(t)+("x"(f$(f$)="x"f$(f$)="X"))+("x"(f$(f$-on)="x"f$(f$-on)="X")):r=f$(on):9720% %t:9970&:9690% &ccd=2*(t=2t=3):9670%:"Enter declarer ";e$:ñe$9970&:9730& & Dk=onfo:e$(on)=o$(k)e$(on)=o$(k+fo)de=k:k=k(k):9680%: &k:9970&:9730& &a=155:aa=82R:g$=("1342"a(10 ))+("2134"a(12 ))+"1243":v=on:x=fo:y=26:oonon;ze,on-aa &f7c;x-on,v;j$(m,z);x,v;e$:v=v+2:z:u:o7749100#+v:ze: &(9945&-5*j$(m,a(m)):ze: &=x+2,y+2;e$;x+6,y+2;e$:9905& &Tw=on5:x+w,y+fo;e$:w:x+6,y;e$;" ";e$;x+7,y+on;e$;e$;e$: &fo,25;" ":w=on76:v=zefo:x+w,y+v;e$:v:w:v=26:x+v,y;e$;" ";e$:v:x+6,y+3;e$;x+8,y+5;e$: &fo,25;" ";x+on,y;e$;" ";e$;x+2,y;e$;" ";e$;x+3,y;e$;" ";e$;x+fo,y;e$;e$;x+5,y;e$;" ";e$;x+6,y;e$;" ";e$;x+7,y;e$;" ";e$: &tfo,25;" ":w=onfo3:v=on3:x+w,y+v;e$:v:w:w=27:x+w,y;e$;x+w,y+fo;e$:w: &x+fo,y+2;e$ &fx+on,y+on;e$;" ";e$;x+3,y+on;e$;" ";e$;x+5,y+on;e$;" ";e$;x+7,y+on;e$;" ";e$: &x+3,y+2;e$ &"x+fo,y+on;e$;" ";e$:9925& &x+fo,y+2;e$ &7x+2,y+on;e$;" ";e$;x+6,y+on;e$;" ";e$: &x+fo,y+2;e$ &3x+2,y+2;e$;x+6,y+2;e$: &ލ8970 #:u=on22:w:.12}u[+.45ffff*(u=10 )+.2~L*(u=9 )+.25~*(u=fo)+.3*(u=5u=22),w:u: &K8980#:x=-12 :y=.5:z=.12}u[:w=onst:c:d:c,d:w: &(x=on6:.1}L,*40(:x: &:" bridge2"9985' ''(11 ,81Q)=11 ' 'ze:7::3,ze;2;"You have attempted to break intothis program: this is forbidden."''" The current deal has been"'6;"erased. To restart"'7;"(at hand 1 again)";10 ;on;"PRESS A KEY";ze ''''"This routine was written by F.A.Vachha and is included by kind permission of:-"''10 ;"CP Software";8;"17 Orchard Lane";11 ;"Prestwood"'8;"Great Missenden";13 ;"Bucks" ' c=on:ze:7::15 +