Bridge2P1 LBridge2  R.Wheen 1984 63743:7:1:7::8,8;"BRIDGE PLAYER 2";12 ,12 ;1;"LOADING";0,0;:"Bridge2P2":65290 )"Bridge2P3":65290 :"Bridge2P4" FBridge2P2  & 65.< )%-3;4:2"*8=+$,#>' (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():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 7x30:l$(32 ):8950":ze,tw,st,fo,on,n,h,u,gg,o$,p$,n$,q$,r$,s$,t$,u$:b$(fo,6):x=onfo:b$(x):x <23658j\,8:23659k\,2: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$ d4:11 ,on;" Wenst u:-",,,,,,"A-de computer te laten delen ? ",,," of",,,,"B-uw eigen deling in te brengen?",,,,on;" Toets A of B voor uw keuze " n e$=:e$"A"e$"B"110n se$="B"ra=ze:130 xra=on:13 ,ze;"1 dat N/Z (uw kant) altijd meer punten heeft dan O/W ?",,,"2 dat N/Z meestal (niet altijd) meer punten heeft dan O/W ?",,,"3 willekeurige delingen ?",,,;on;" 1, 2 of 3? ";ze } e$=:e$<"1"e$>"3"125} rd=(e$="2"):64500,24+24*(e$="1"):12 ,ze,,,,"C - te bieden en te spelen ? ",,,"D - alleen maar te spelen ? ",,,,,,,,,,,21,0;on;" C of D? " e$=:e$"C"e$"D"140 bi=(e$="C"):bi210 c3=ze:c4=ze:p3=ze:p4=ze:14,0;" Zwakke SANS (12-14) ",,,1;"Sterke SANS (15-17)",,,1;"Variabele SANS ?",,,,,;on;" Z, S, of V? " Ve$=:e$="Z"e$="S"e$="V"nt=(12 e$="Z")+(15e$="S"):tn=nt:290" 180 ҅14,ze;"1 - alle 4 handen te zien ?",,,"2 - alleen Noord en Zuid te zien ? ",,,,,,on;21,12 ;"1 of 2?";ze e$=:e$"1"e$"2"220 2c4=(e$="1"):c3=c4:c4p4=ze:p3=p4:290" 14,ze;"A -de kaarten van alle 4 te spelen ?",,,,"B -de computer te laten spelen voor de verdediger ?",,,,,"Toets A of B" 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=on3:350^ T502::y=fo*k-3:x=yy+3:a(x)=ze:x:7;10 ,ze;" U deelde ";b$(k,̰b$(k,6));" ";(p);"kaarten";6;"Enter dit spel opnieuw ":9970&:502::9500%:9530:%:9510&%:95200% ^|p=ze:n=onfo:o=l(n):c=o+(3k=tw)+(7k=3):b=10 +5*(k=tw):c,b-3;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 8x=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 ,2;"U gaf West ";a(o);'" kaarten; dit is te lang."'''" Enter gehele hand opnieuw":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;" Even geduld terwijl de computer de kaarten ordent en analyseert":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" DCa:d(k)=d(k)+c(k):j$(l)>""c(k)=c(k)zz=k-2*(k>2) N0j$(k,on)=""j$(k,tw)=""k1=k1+on-fo*(k1>tw) b{g$="1234":v=3on-on:w=onv:e(w)fok=k-fo:1010 j7:on::on;"Spel nr ";h;32 -n$;tw;n$'ze;" Dit is uw hand als Zuid ":9750& yg$="":15,on;tw;"Deler ":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=31140t $5750v:1150~ `k3a$="P":1220 j 9970& t"Uw bod? ";a$:1210 /a$(tw)f$(tw)a$(on)=(a$+on):1200 a$(on)="N"nh a$(on)="O"70F ,a$(on)="P"a$=" "a$="Pas":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;"Bieding overnieuw ":1000 Wt=on5:a$(tw)=u$(t)a$(tw)=r$(t)a$(tw)=u$(t):cd=tw*(t>ont"8"a$(tw)f$(tw)1120`  1400x fo;a$(tw):w$(t+5*a)="A"w$(t+5*a)=k \.05|L,5*r-10 -(ttfo):h$(a+on,3)=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(3+a+tw*gg):q=m$(x):p=m$(y):z=(q>5+pm$(y)"0"(q-p)/5ɺ((q-p)/5)m$>"F"m$<"O"x=y(ñg$q-g$fo)) }(m$"EF"m$"JK"m$(x)"T"m$(x)"Y"k3)(m$"F"m$"FG"m$"GJ"m$"HJ"m$"IJ"h$(2-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;"SPEL ";h;32 -p$;tw;p$:9750& @ 1050 `k$(b)="Pas":aa=b:k=w$(t+5*(h$(tw,3)>h$(on,3))):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) zp=k:q=(k=twk=foa-k=on):c47;9 +tw*(k=3)-tw*(k=on),15+os-3*(k=fo)+3*(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 kaart ";a$:2290 B(b$(k,̰b$(k,6)));"'s beurt. Enter kaart ";a$:2290 k9970&:on;"Oproep";ze;" ";(b$(k,̰b$(k,6)));" opnieuw doen ";9 ;"zonder straf ";a$  a$="N "nh a$="O "70F c42410j pepe=ze:x=zefo:x,10 ;l$(22):x:x=612 :x,ze;l$:x:9450$:du:de>on7*(de3),de*5-tw-5*(de=tw);7;"DUMMY" pr+trpr=(tr*5)+tr:x=pr12 :x,20;l$(12 ):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;" Deze";on,27;"slag ";tw,27;"-----" c4k=3k+de=twk=j(de)c=l+3*(k=tw)+7*(k=3)-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=3)-tw*(k=on):d=os+15-3*(k=fo)+3*(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)) (}z$(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=on3:e(w+on)>uu=e(w+on):i=w 26w:k=k+i-fo*(k+i>fo):g=g+(k=onk=3):40( <0c4w=36: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;"Ltste";15,27;"slag ":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;" Slagen ";17,ze;" ------ ";18,ze;"N/Z O/W";19,ze;" ";g;6;j-g;(" "j-g9 ) x&j:502: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;"Gelukwensen ";3,13 ;"Slam geboden en gemaakt" 2745 r" verloren";9 ,18;"met";y;" slag";"en"ƽ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) Kt>fozztfoy$(t-(t>fo),fo)"3"11 ,11 ;"(honneurs gehaald)" 5,on;"N/Z O/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;"Robber is uit";15,14;("N/Z"lze)+("O/W"lon)+("N/Z kwb "g(9 )g(10 ))+("O/W kwb "g(9 )g(10 ))+(" N/Z "+g(3+tw*gg)g(3+tw*gg))+(" O/W "+g(fo+tw*gg)g(fo+tw*gg)) D21,7;on;"Toets C voor verder":"C"2805 f:20:''"Toets"''" R - voor analyse spel "''" N - voor volgende spel "''" O - voor menu" 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 - alleen Noord en Zuid ";6;"zien "''2;"4 - alle 4 handen zien":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;"Toets P voor print , R voor "'"herhaling spel, N volgend spel " '8="P"20,ze;l$;l$:d=h:8800`":2850" , ="N"nh 1"R"2855' 6bi2885E ;on;7;20,ze;"Toets - P voor opnieuw spel ";6;"- B voor eerst bieden",:="B":10 ,6;7;"Even geduld a.u.b. ":1000 @"P"2875; E9c420,ze;l$;l$;ze,ze;:9690%:2215 J20,ze;7;on;"Toets 4 als u alle 4 handen wil",3;"spelen. Anders toets 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 .n=xfo:40(:n=ttfoa(o)3010 <a(ol)xa(or)x(j$(o,x)=e$(x)j$(op,x)=e$(x))3200 ,n:n=xfo:40(:n=ta(o)3050 [(a=(j-g+r>7)a=yg+r>7)(j$(o,x)=e$(x)j$(op,x)=e$(x))(t>fod>x)3200 _tfod>xj$(o,y)=e$(y)j$(o,x)=e$(x)a(o)=(tfodt>foa(op)>a(or)a(op)>a(ol))3200 6tfod>xa(op)(j$(o,x)=e$(x))a(op-n+t)3200 ,n:n=xfo:40(:n=ta(o)3090 j$(ol)xtfo(a(o)+a(op)>y+a(or)+a(ol)t>fo)j$(op,3)>e$(6)(j$(op,3)>j$(or,y)j$(o,x)>j$(or,y))(t>fod)3200 ~(j$(o,y)=e$(y3)(tfod(t>foj$(o,3)=e$(fo)j$(o,3)=e$(5)))j$(op,y)>e$(fo)(t>fod))3200 )a(op)tfoa(or)a(op-n+t)3200 ,n:n=xfo:40(:n=ta(o)3140D g(j$(ol)e$(5)(j$(op,y)>j$(or)j$(op)fo)3200 &(tfoa(o)=(a(op)>x)a(m)d5250 0Qe$(y)=j$(ol,x)+j$(op,x)(t>fod)e$(3)=j$(ol,y)+j$(op,x)d3200 :Qtfo(d>xa(m)a(o)=yj$(o,x)=e$(x)a(o)>5a(op)fod)3200 X;n:w=foze-x:n=fox-x:40(:n=ta(o)3180l bna(o)>w(t>foda(or-n+t-(t>fo))a(ol-n+t-(t>fo)))(wxj$(o)e$(3))3200 lDn:w:w=3ze-x:n=fox-x:40(:a(o)>wnt3200 vn:w:5500| k((k=dek=j(de))j$(o,tw)=e$(tw)j$(op,on)=e$(3)e$(tw)=j$(o,on)+j$(op,on))a(op)tw5250 6x=on6:j$(o,tw)=e$(xx+on)w=on:5200P x:a(o)tw(j$(o,on)=e$(on)(j$(o)<""tfo))t>foa(ol)j$(ol)j$(o)>j$(or)w=on:5200P Zj$(o,twfo)=e$(35)j$(o,twfo)=e$(3fo)+e$(6)w=tw:5200P !w=3+(a(o)fo):5200P <y(fo):n=xfo:40(:e=a(o):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(j$(o,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=3)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) O64794+n,y(n)/3: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$(n,fo)5600 . 5450J 8a(ol-n+t)5500| LUw=3x-x:j$(m,w)>j$(ol-n+t,on)(w>xj$(m,w)e$(fo)j$(op)j$(o)5250 6a$(y)>e$(fo)(j$(op)j$(ol)3780 a$(y)j$(ol,y)j$(o,y)>a$(y)(j$(op)j$(ol)nt)w=y+(j$(o,3)>j$(ol,y)j$(o,3)>a$(y)):5200P Oa$(y)>e$(6)nt(a(op)>xj$(op)a$(y)):5200P  5250 3a(op)a$(y)j$(op)>j$(ol)5250 tfontƯj$(o)=e$a(op)x(k=dek=j(de))j$(o,y)>a$(y)j$(o,y)>j$(ol)a(ol)=xa=(j-g+r>7)a=yg+r>7j$(o,x)j$(ol)j$(o,y)>a$(y))+(j$(o,3)>j$(ol)j$(o,3)>a$(y)):4999+w se$(y3)=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 qj$(op)>j$(o)a(op)>xw=x+(j$(o,y)>j$(ol)j$(o,y)>a$(y))+(j$(o,3)>j$(ol)j$(o,3)>a$(y)):5200P =a(o)=yntw=x+(j$(o,y)>j$(ol)j$(o,y)>j$(or)):5200P  5250 a(o)4250 t>fon=t5600 a$(x)=s$(t)5310 @&e(x)>e(y)v$(x,y)>j$(ol)5600 J 5450J )a(o)=xtfonta$(x)=s$(t)5250 'a(op)+a(or)a(ol)e(y)5250 +w=3x-x:j$(o,w)>a$(y)5200P Bw:a(o)=ye$(3)=j$(o,x)+v$(x,y)+j$(op,x)w=x:5200P Bu=x3:j$(ol,u)=" "e(x)>e(y)v$(x,y)>j$(ol,u)5250 [(j$(o)e(y)v$(x,y)>j$(ol,u)w=x+(nt):5200P fw=3+(k=k(de))x-x:j$(o,w)>a$(y)j$(o,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)j$(o,y)e$(fo)j$(or,x)>e$(fo)a(o)>ya(ol)>x))a(or)+a(ol)>x((v$(x,y)>j$(ol,y)(v$(x,y)>a$(y)a$(x)s$(n)))j$(o,y)>j$(ol,y)(j$(o,y)>a$(y)a$(x)s$(n)))w=y+(j$(o,3)>j$(ol,y)(j$(o,3)>a$(y)a$(x)s$(n))):j$(o,w)x+v$(x,y)w=a(o) l 5200P a(o)4690R t>fon=t5600 -a(m)e(y)>e(x)e(y)>e(3)5600  a$(x)f$(y)5450J 4.5300+(300,(j$(m)a(o)=xe(y)>e(x)e(y)>e(3)a$(x)=f$(y)tn5250 fHw=fox-x:j$(o,w)>v$(x,y)(j$(o,w)>a$(y)a$(x)v$(x,x))4999+w w:5250 t>foƯj$(o)=e$g+r<7(de=kde=j(k))(a(o)a(or)+xa(o)a(ol)+(v=fo))(j$(o,y)e$(6)(j$(op)e$(fo))))5250 Pa$=r$(n)+j$(o,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 Eaoorj$(o)j$(o)))ao>w(ao>ona(op)or)5660 5c:w:c=onfo:45-:tfoao>orct5660 Ac:w=3on-tw:c=onfo:45-:c=tc=nao5630 baowj$(o,on)>e$(ao-(ao>onj$(op)>j$(o)))(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  za(m$="EF"m$="JK")f=10 :a$=("2"e$(tw)>"3"f$(tw)<"")+("2"e$>"4"f$(tw)<"")+("2"f$(2)="")+"P": +am$(m$)="T"a$="5"+s$(fo-(j-j)*fo): $am$(m$)="Y"a$="6"+s$(fo-k1): 6rtwh$(a+on,3)>h$(tw-a,3)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>tw)8660! 9a$(tw)=f$j<3*rj+c(j(k))<6*r8660! 262008+(800 Ʊm$>on)+(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": <jntjnt+3s>70Fe$<"5"e$(tw)<"5"8700! .j>20j<23s>60<8720" Xi$="A"j>std(k)>17a(q)>5j$(q,on)=""j$(q,3)>""ptwj9 +tw*rd(k)13 i$"A"(e$(6)<"4"w$(n+5*a)"A")8660! rf$="00"e$(5)=e$(6)p=on(n=fon=twe$(5)="4"jstn=3e$(fo)=e$(on))i$"A"8620!  8610! BVh$(tw-a,3)="1"h$(a+on,3)="2"h$(tw-a,fo)h$(a+on,fo)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! rzfo(ztj>14.4ffff)a$(tw)=(s$(z)ztzw)+(s$(n)nz)+s$(p):a$(on)=(on+(j>14.4ffff)+(a$(tw)f$(tw))): Ja$(on)=(on+(z=t)+(j>10.4&fff(z>fozt))+(j>12.6I(z>foz=t))): 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): 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": 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 'j<3e$(5)<"6"8660! ls>535(w>foa(op)>2j$(op,tw)>"")a$=("3"j<11 )+("4"j<12.5H)+("5"jst)+"7": ma$=("3"j<3)+("5"j>twj<12.4Ffff)+("6"j>12.4Ffffj14)+("7"j>14)+s$(p):7900 Rj>15a$=("4"+s$(t)e$(t)>"0"t<3)+("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  8y74Jf=5-3*(x<79O):7215/ Hy>69Ef=8+tw*(x<74J)-6*(x=74J):7215/  >x-y<5f=8+(x>69E)-(x<69E):7215/ *8f=14-3*(x=74J)-7*(x-y>10 ) /?z>fotfoa$(on)=(tw-(j<17)+(j19)):7900 41z>foa$(on)=("3"j+f>25)+"2":7900 99y=69Ex>74Ja$(on)=("3"z+a$(on)=("1"jty<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 (a(z=3m$(m$)>"L"z=fom$(m$)>"K")r25e<33!y(k,5)>tw8740$" We>25e<33!a$(on)=("3"z>fo)+("4"(z<3e<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! r6z=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+2*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 ;"Bieding";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,2,16,4,1,on,0,h,h,"NOZW","Niem kwb",p$,"AKQJT","SHDCN","","98765432","","Noord5","Oost 4","Zuid 5","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): $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 ;"NOORD"a>on;9 ,6+os;"WEST"detw;9 ,21+os;"OOST"defo:x=onv-on:y=k+x-v+fo*(vk+x):c=9 +tw*(y=3)-tw*(y=on):d=os+15-3*(y=fo)+3*(y=tw):7;c,d;v$(x,tw);c+on,d;f(x);v$(x,on):x: %L7;ze,13 ;"NOORD":c=ze:b=10 :y=c:9600%: %&Rc=7:c,18;c;"OOST";fo;" ":b=15:y=fo:9600%: %0ac=15:7;c,13 ;"ZUID ":b=10 :y=8:9600%: %:Sc=7:c,3;c;"WEST";fo;" ":b=ze:y=12 %Z7:x=onfo:tw*(x>onxfod=d-fo:9655% %T7;ze,ze;fo;"Spel ";h'on;"Deler :";o$(d)'tw;n$(8)'n$(10 ): %F7;fo,ze;"Contract"'r;cd;"N"t>fo;f$(tw);ze;f$(3);: %Њ7;"door";o$(de);7-7*(de=3)+8*(de=on),13 -10 *(de=tw)+5*(de=fo);"DUMMY": %`a$(fo):"Enter contract ";("(hoeft niet het zelfde te zijn ) "rp);a$:a$(on)="N"nh %'a$<"1"a$"8"9970&:9690% %kt=on5:a$(tw)=r$(t)f$=a$(on)+u$(t)+("x"a$(3)="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<: &73,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$ &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+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: &"Bridge"557:"Bridge":  ht !fgi  lq po<# F ern &%m\&q2sd Noord5Oost 4Zuid 5West 4m4685973264898365294342652937574874=23626322321463242554224213716223632214236334334333213499˕$P P P P Pas 1 2 3 Pas Pas Pas 5 Pas 6 Pas 6 Pas 7 Pas 7 Pas Pas Pas 4875 d0003000300030003   9 953 432 3 3 64 6 8764 7542 8 98 52 86 72 75 9 T(Tt4hTW AA1AAA4AAA 2213F3MGGCMIA79 E # ONOZWPNiem kwbNNiem kwbQAKQJTRSHDCNST 98765432U.