Bridge ?7:7:2:1:n=65368X65535:n,0:n:65535:16,0;"WARNING:The program is protectedagainst BREAK. However,trying tobreak into it at certain crucialstages (during shuffling) might,just possibly,induce an error...The program takes 4 mins to load":0,0;:"":  R.WHEEN 1983 Improved Version by F.A.Vachha  @4H||>x<~@<B<BBDB@8@BBDbB|BB@|0@@BBBR@B|BN@8@B~BJNBDDB@@BBDFB|B>x<~8x~B<|B8888D88BD@DT0|x<8xT<@@D@TD@ <2):l(x=4*kx)=4*k-4+x:o()=o+4-16*(o>12 ):p()=o+8-16*(o>8):r()=o+12 -16*(o>4):5,11 ;"WELCOME TO"  b$(4,26):d$(4,14):j$(32 ,8):k$(36$,4):v$(4,2):n$=p$:e$="":g=0:aa=g:h=h+1:i=g:j=g:y=9 :h>1y=1:0:7: *xy,1;"":w=15:"  ":w:y+3,2;" ";y+6,1;"" 4y,7;"";y+1,7;" ";y+2,7;" ";y+3,7;"";y+4,7;" ";y+5,7;" ";y+6,7;" ":w=yy+6:w,13 ;"":w H_y,15;"":w=y+1y+5:w,15;" ":w:y+6,15;"" Ry,22;"":w=y+1y+5:w,21;"":w:y+1,25;"";y+3,24;"";y+4,25;"";y+5,25;"";y+6,22;"" \vy,27;"":w=y+1y+5:w,27;"":w:y+3,28;"";y+6,27;"" a8y+8,1;" " f_h=199c:.07}\(,15:.1}L,30:v=18:3190v :v g&ERR=023760\:-2 k23760\:13 ,10 ;"R.WHEEN 1983";14,11 ;"Improved by";15,12 ;"F. VACHHA":h=120,10 ;"PRESS A KEY":0 p2="!":"Emergency Exit."''" F.A.VACHHA": u17,6;"Hand no.";h;" coming up";18,5;"Please wait while the";19,4;"computer shuffles, deals";20,6;"and sorts the cards" zo0:9000(#:b$(1)="North5":b$(2)="East 4":b$(3)="South5":b$(4)="West 4": 2,12 ;"OPTIONS"'''"1 - play the game of Bridge proper i.e. initially see only your own hand, bid it and then, with dummy dis- played, play the hand as declarer."''"2 - see all four hands, decide on the contract, then play the hand.";17,6;"Now press the option";18,7;"you wish to select.";21,12 ;1;"1 or 2?" $="1"Ŧ="2"opt=:990*opt  930 bg=0:r=1:k=h:w=5:or=w:f$="00":h$=f$:i$=f$:m$="":w$="AAAAAAAAAA":x$=h$ $k>4k=k-4:1010 7:1::rr=15:1;"Hand no.";h;32 -p$;2;p$'0;" This is your hand as South":9750& 15,1;2;"Dealer":b=14:0;1;14,b*8-6;b$(k,̰b$(k,6)):k=k(k):k$(b)="Pass":b Cv=14:a=(k=2k=4):k=31140t $5750v:1150~ `"k3k$(b)="P":1220 j 9970& t!"Your bid? ";k$(b):1220 Rk$(b,2)f$(2)k$(b,1)=(k$(b,1)+1):1200 ?k$(b,1)="P"k$(b,1)="p"k$(b)="Pass":1360P ?k$(b,1)="D"k$(b,1)="d"k$(b)="Dble":1340< ?k$(b,1)="R"k$(b,1)="r"k$(b)="Rdbl":1340< w=15:k$(b,2)=u$(w)k$(b,2)=r$(w)k$(b,2)=r$(w+5)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,1)="D"(f$="00"űf$2k$(b-2,2)=f$(2))k$(b,1)="R"(f$3k$(b-2,1)="D")1120` F f$=f$+"x" dvr+rr,v*8-6;k$(b):k$(b,1)+k$(b-1,1)+k$(b-2,1)"PPP"b<81510 ib80P::k$(b-3,1)="P"10 ,9 ;"Hand passed out":80P:800   n7w=15:f$(2)=u$(w)t=w:1700 sw x\f$=k$(b,2):a=0m$=m$+(f$(1)*5+64@-w+5*(w=5)) }rr+rr,v*8-5;k$(b,1);cd;("N"w=5);k$(b,2):w$(w+5*a)="A"w$(w+5*a)=k X.05|L,(5*f$(1)-10 -w+5*(w=5)):a=0h$=f$:t=w !a=1or=w:i$="00"i$=f$ m$=""a=11510 gg=((20+10 *(t<3t=5))*f$(1)+10 *(t=5))+g(3+2*gg) *k=k(k):b=b+1:m$=1x$=f$ v:b>35#1700 ,r=r+1:r=623692\,255:v=115::v:15,0;"Hand no.";h;32 -p$;2;p$:rr=1: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 ";f$(1);cd;("N"w=5);f$(2);0;" by ";b$(k,5):h>180P !k=1k=31730 11 ,2;"You and your partner hold a majority of the points and have been talked out of this contract. To bid the hand again, press R. Otherwise press N for the next hand." ="N"Ŧ="n":800  &1720-(720(="r"Ŧ="R")) h=110 ,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;"Press any letter to continue":0 A4:1::j=0:opt=1k=k(k):2205 9500%:9650% K"Enter contract ";f$:f$<2f$<"1"f$"8"9970&:2000 t=15:f$(2)=r$(t)f$(2)=r$(t+5)f$=f$(1)+u$(t)+("x"f$(f$)="x")+("x"f$(f$-1)="x"):2050 t:9970&:2000 ucd=2*(t=2t=3):7;4,0;"Contract"'f$(1);cd;("N"t=5);f$(2) 4="Enter declarer ";e$:e$<19970&:21004 H[k=14:e$(1)=o$(k)e$(1)=o$(k+4)de=k:k=k(k):2165u Rk:9970&:21004 p9500%:9650% u$9670%:rp=02190 z20,0;" Press - P for print-out, R to replay hand or N for next hand. ":="P"Ŧ="p"20,0;l$;l$:8800`":2170z ="N"Ŧ="n":800  2="R"Ŧ="r"20,0;l$;l$:2190  2170z 15,13 ;" "'"Press 4 if you want to play all four hands yourself. Press 2 if you want the computer to play the defenders' hands. ";21,12 ;"2 or 4?" ]="2"Ŧ="4"k2=:16,0;l$;l$;l$;l$;l$;l$:fs=1:9540D%:2215  2195 '9650%:9670%:9499%+de }r=f$(1):a=de-2*(de>2):v=14:d$(v)=t$+"98765432":v:j=113 :v=14 opt+j=27:x=01:84T-x,130+x:80P+2*x,0:0,-(70F+2*x):-(80P+2*x),0:0,70F+2*x:x:0:7;9 ,5;"WEST";9 ,22;"EAST" Fp=k:q=1+(k=k(de)de=k(k)):k2=4q=12300 (2500 +v*500) >(b$(k,5));" to play. Enter card ";v$(v):2345) c9970&:"Revoke";" ";(b$(k,5));" to play again";9 ;"without penalty ";v$(v) )"v$(v)="NE"v$(v)="ne"800  8u=14:v$(v,1)=r$(u)v$(v,1)=r$(u+5)v$(v,1)=s$(u)v$(v,1)=s$(u):f(v)=2*(u=2u=3):2380L Bu:9970&:2310 Lv=1n=u V2b(v)=u:2900T :ola(o)>02320 lv$(v,2)=" "a(l)1v$(v,2)=j$(l,a(l)):a(l)=a(l)-1:j$(l)=j$(l,a(l)):2540 +v$(v,2)=" "9970&:2310 1v$(v,2)>"1"v$(v,2)"9"2510 yw=15:v$(v,2)=q$(w)v$(v,2)=q$(w+5)v$(v,2)=t$(w)v$(v,2)=t$(w):2510 w:9970&:2310 ow=1a(l):j$(l,w)=v$(v,2)j$(l)=j$(l,w-1)+j$(l,w+1):a(l)=a(l)-1:2540 w:9970&:2310 'unu=tq=2.05|L,15 eopt=27;0,27;" This";1,27;"trick";2,27;"*****" opt=2q=1c=l+3*(k=2)+7*(k=3)-5*(k=4):d=12 +5*(k=2)-10 *(k=4):c,d;:w=1a(l):f(v);7;j$(l,w);" ";:w:8;" " opt=1c=6+6*(k=3)+3*(q=2):d=15-4*(k=4)+4*(k=2):7;c,d;v$(v,2);c+1,d;f(v);v$(v,1):j+v=29502%-de Wopt=27;v+2,27;" ";1;o$(k);0;" ";f(v);v$(v) 5e(v)=((v$(v,2)+200*(u=t))*((u=tu=n))) Pik=k(k):2900T :v:i=0:u=e(1):w=13:e(w+1)>uu=e(w+1):i=w ZGw:k=k+i-4*(k+i>4):g=g+(k=1k=3):2900T _9opt=2w=36:w,26;" ":w dw=14:v=113 :v$(w,2)=d$(b(w),v)d$(b(w))=d$(b(w),v-1)+d$(b(w),v+1):2670n iv nw:opt=1w=01:6+w,15;" ";9 +w,19;" ";12 +w,15;" ";9 +w,11 ;" ":w s7;13 ,27;" Last";14,27;"trick";15,27;"*****":w=14:7;15+w,27;" ";(w=i+1);(wi+1);o$(p+w-4*(p+w>4));0;0;" ";f(w);v$(w):w xew:7;16,0;" Tricks "'" ****** "'"N/S E/W"'" ";g;6;j-g;(" "j-g9 ) }%j:30:rp=12810 p7::i=0:p=i:y=(g-6-ra=1)+(7-g-ra=2):b=3-a:c=a+2+2*gg:e=i:e(4):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);f$(1);cd;("N"t=5);f$(2);:y<02730 o=o+502*(f-2)+(((20+10 *(t<3t=5))*y)f=2)+y*100d*(f-2)*(1+g(a+8)):" made";9 ,18;("exactly"y=0) p=((20+10 *(t<3t=5))*r+10 *(t=5))*(f-(f<4)):y>09 ,13 ;"with ";y;" overtrick";("s"y>1) r>5o=o+(500+(250g(a+8)=1))*(r-5):1,14;"Congratulations";3,13 ;"Slam bid and made":i=9950& 2745 " defeated";9 ,18;"by ";y;" trick";("s"ƽy>1):i=9960&:f=2q=q+(y*502*(g(a+8)+1)):2745 Lg(a+8)=0q=q+(y*200-10d)*(f-2):2745 *q=q+(y*300,-100d)*(f-2) 36$,134:0,-94^:0,92\:70F,0:5,0;"N/S";5,6;"E/W":gg>00,74J:70F,0:gg=20,58::70F,0 w=01:x=172:g(w+x)>08+x,5*w+2-(g(w+x)>99c)-(g(w+x)>999);g(w+x) yx:w:q>07+(g(b)=0),12 -5*a-(q>99c)-(q>999);1;2;q:g(b)=g(b)+q p>013 +2*gg-(g(c)=0),5*a-3-(p>99c)-(p>999);1;p:g(c)=g(c)+p:g(c)>99cg(a+8)=g(a+8)+1:gg=gg+1:g(a+8)=2o=o+500+200*(g(b+8)=0) o>07+(g(a)=0),5*a-3-(o>99c)-(o>999);1;o:g(a)=g(a)+o:g(a+8)=2l=g(1)+g(3)+g(5)+g(7)-g(2)-g(4)-g(6)-g(8):13 ,14;1;2;"Rubber complete";15,14;"At `1 per point";17,15;("N/S"l0)+("E/W"l<0);" win `";l:gg=0:g(10 ):i=9950& (p$=("Vul:none"gg=0)+("Game all"gg=2)+("N/S game"g(9 )=1g(10 )=0)+("E/W game"g(9 )=0g(10 )=1)+(" N/S "+g(3+2*gg)g(3+2*gg)>0)+(" E/W "+g(4+2*gg)g(4+2*gg)>0):i>0i 21,6;"For next hand press N";19,3;"To review last hand press R":4:="R"Ŧ="r":opt=2:rp=1:g=0:i=g:j=g:k=k(de):e$="":2950 :2160p ="N"Ŧ="n"800   2815 Te$=d$(n):l=l(u):m=l(t)-(t>4):o=l(n):ol=o():op=p():or=r():d=0:a(ol)+a(or)>0d=(a(or)*a(ol)=0)+2*(a(or)*a(ol)>0) ^ Cv=116:j$(v)=j$(v+16):a(v)=a(v+16):v: j=13 5600 =n=14:2900T :n=ta(o)=03050 –(a=1j-g+r>7a=2g+r>7)(j$(o,1)=e$(1)j$(op,1)=e$(1))(t=5d=2)t-d=53300 ̜t<5d=2j$(o,2)=e$(2)j$(o,1)=e$(1)a(o)=1(t<5d>0t=5a(op)>a(or)a(op)>a(ol))3300 Ut<5d=2a(op)(j$(o,1)=e$(1))a(op-n+t)>03300 @n:n=14:2900T :n=ta(o)=03090 j$(ol,1)2+a(or)+a(ol)t=5)j$(op,3)>e$(6)(j$(op,3)>j$(or,2)j$(o,1)>j$(or,2))(t=5d>0)3300 (j$(o,2)=e$(23)(t<5d>0(t=5j$(o,3)=e$(4)j$(o,3)=e$(5)))j$(op,2)>e$(4)(t=5d>0))3300 Ea(op)=0t<5a(or)>0a(op-n+t)>03300 @n:n=14:2900T :n=ta(o)=03160X &(j$(ol,1)e$(5)(j$(op,2)>j$(or,1)j$(op,1)0t=5)3300 0It<5a(o)=1a(m)>0a(op)>1d>05250 :e$(2)=j$(ol,1)+j$(op,1)(t=5d>0)e$(3)=j$(ol,2)+j$(op,1)d>03300 N~t<5(d=2a(m)>0a(o)=2j$(o,1)=e$(1)a(o)>5a(op)0)3300 X@n:n=14:2900T :n=ta(o)=03180l bw(j$(o,3)=e$(35)j$(o,3)=e$(34)+e$(6))(t=5d>0)3300 len:w=40-1:n=41-1:2900T :n=ta(o)=03220 a(o)>w(t=5d>0a(or-n+t-(t=5))=0a(ol-n+t-(t=5))=0)(w1j$(o,1)e$(3))3300 bn:w:w=30-1:n=41-1:2900T :a(o)>wnt3300 n:w:5500| Jx=16:j$(o,2)=e$(xx+1)w=1:5200P x:a(o)<3(j$(o,1)=e$(1)(j$(o,1)<""t<5))t=5a(ol)<2a(or)<2(j$(op,1)j$(ol,1)j$(o,1)>j$(or,1)w=1:5200P xj$(o,24)=e$(35)j$(o,24)=e$(34)+e$(6)w=2:5200P *&w=3+(a(o)>3):5200P a(o)13720 (t=5n=ta(m)=05600 a(ol)=03650B Nj$(op,1)>v$(1,2)j$(op,1)>j$(ol,1)5600 a(m)35450J $)j$(m,2)>d$(n,4)5600 . 5450J 8a(ol-n+t)=05500| LDw=31-1:j$(m,w)>j$(ol-n+t,1)5350 j0w:v$(1,2)>e$(4)5500| t 5600 <a(o)=1v$(1,2)>j$(o,1)5250 8v$(1,2)>e$(4)w=1:5200P *j$(o,1)>j$(ol,1)3780 v$(1,2)j$(ol,2)j$(o,2)>v$(1,2)j$(op,1)j$(ol,2)j$(o,3)>v$(1,2)):5200P v$(1,2)>e$(6)nt(a(op)>1j$(op,1)v$(1,2)):5200P  5250 Ya(op)v$(1,2)j$(op,1)>j$(ol,1)5250 Vj$(o,2)>v$(1,2)j$(o,2)>j$(ol,1)a(ol)=1a=1j-g+r>7a=2g+r>7j$(o,1)j$(ol,1)j$(o,2)>v$(1,2))+(j$(o,3)>j$(ol,1)j$(o,3)>v$(1,2)):5200P شe$(23)=j$(ol,1)+j$(op,1)(j$(ol,2)=e$(4)v$(1,2)=e$(4)(j$(or,1)=e$(4)j$(ol,2)=e$(5)))5250 3t=5a(ol)>2a(or)>15250 j$(op,1)>j$(o,1)a(op)>1w=1+(j$(o,2)>j$(ol,1)j$(o,2)>v$(1,2))+(j$(o,3)>j$(ol,1)j$(o,3)>v$(1,2)):5200P ea(o)=2ntw=1+(j$(o,2)>j$(ol,1)j$(o,2)>j$(or,1)):5200P  5250 a(o)14250 t=5n=t5600 'v$(2,1)=s$(t)5310 @Fe(1)>e(2)v$(1,2)>j$(ol,1)5600 J 5450J Ba(o)=1t<5ntv$(2,1)=s$(t)5250 a(ol)>04330 #e(1)>e(2)5250 Ew=31-1:j$(o,w)>v$(2,2)5200P w va(o)=2e$(23)=v$(1,2)+j$(op,1)j$(o,1)=e$(1)w=1:5200P -u=13:j$(ol,u)=" "5250 @e(1)>e(2)v$(1,2)>j$(ol,u)5250 (j$(o,1)e(2)v$(1,2)>j$(ol,u)w=1*+(nt):5200P lw=41-1:j$(o,w)>v$(2,2)j$(o,w)>j$(ol,u)5200P-750*(w=1) w:u:5250 bM(a=1j-g+r7a=2g+r7)a(o)>2j$(o,1)=e$(1)(j$(o,2)=e$(4)v$(1,2)=e$(4))j$(or,1)>e$(4)a(ol)>1w=2+((j$(or,2)=e$(5)j$(o,3)=e$(6))v$(1,2)=e$(4)v$(2,2)>e$(4)):5200P lw=1:5200P a(o)14690R t=5n=t5600 Fa(m)=0e(2)>e(1)e(2)>e(3)5600  -v$(3,1)f$(2)5450J 4<5300+(300,(j$(m,1)e(1)e(2)>e(3)v$(3,1)=f$(2)tn5250 fw=41-1:j$(o,w)>v$(1,2)(j$(o,w)>v$(3,2)v$(3,1)v$(1,1))5200P w:5250 P!v$(v)=r$(n)+j$(o,w):2340$ v$(v)=r$(n):2340$ Gw=41-1:j$(m,w)>v$(v-1,2)5350 w:5600 !v$(v)=r$(t)+j$(m,w):2340$ |'a(m)>0v$(v)=r$(t):2340$ +j=13 w=01:5650 lw=41-1:c=41-1:e$=d$(c):o=l(c):op=p():c=ta(o)a(o())a(o)>a(r())v$(v)=r$(c):2340$ (a(o)>ww=1)(j$(o,1)>e$(a(o)-(a(o)>1j$(op,1)>j$(o,1))j$(o,1)j$(o,1))))(a(o)>1t<5d=2j$(op,1)wctv$(v)=r$(c):2340$ c:w:5500| |e$=d$(k):j=c(k):p=e$(9 ):q=l(p):n=e$(10 ):s=e$(13 14):op=4*k-4+or-(or>4) f$="00"6000p /m$=""a=0i$="00"a=15900  m$=""a=15810+a 7m$(m$)="T"k$(b)="5"+s$(4-(j-j)/.25~): )m$(m$)="Y"k$(b)="6"+s$(4-k1): 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! sa=1h$(1)>"3"k1*3+16*(c(k)-c(k))>4*(8-h$(1))Ʊf$=28680! )a=1k$(b-2)>"7"8660! L62008*(m$=1)+7000X*(m$=2)+7600*(m$>2)  \r<3j>13 k$(b-2,1)>"7"e$(7)>"2"w=e$(12 )8680! =k$(b-2,1)="D"(k$(b-1,1)>"7"d(k)>8)f$(1)<"3"(a=0m$=""a=1i$="00")k$(b,2)=(s$(p)(wp))+(""w=ps>60<)+(s$(n)e$(6)>"3")+"P":k$(b,1)=(f$(1)+(f$(2)>k$(b,2))+(d(k)>9 )k$(b,2)"P")+("P"k$(b,2)="P"):  @f$(2)="1"j>14s>502s63?8680! *ff$<"1"s>70Fj$(4*k-4+w-(w>4),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": Pj>12.9Nfffj<16s>70Fe$(1)<"5"e$(2)<"5"8700! .j>20j<23s>60<8720" pa=0orpj>16d(k)>17a(q)>5j$(q,1)=""j$(q,3)>""p<48600! މwpf$(1)<"2"(j>12.75L(j>11 d(k)>13 ))k$(b)="1"+s$(p+3*(e$(1)=e$(4)p=1w4)): ^or=pe$(6)>"3"d(k)>13 (n14e$(6)>"4"))k$(b)="1"+s$(n):  8660! 8Li$(1)="1"x$(1)="2"i$(2)>x$(2)m$=(m$-5) =)a=0fs=e$(t)*(t<5m$"F") BXk$(b-2,1)+k$(b-1,1)="DP"k$(b)=(1+(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! Bk$(b)=("1"(or=5j$(op,1)>""a(op)>2))+"P": (e$(t)>"3"k$(b)="3"+s$(t):7900 p70Fe$(1)<"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 #hs>70Fe$(1)<"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,1)=("4"(j<8j=j))+"3":7900 J:j>10 e$(5)>"5"j$(q,2)>""8600! Tk$(b)=("P"k$(b-1,1)"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 Nk$(b)=("3"j<3)+("6"j>12.4Ffffj14)+("7"j>14)+s$(p): Vs>22j>15e$(t)>"1"k$(b)=("P"g>99c)+("4"+s$(t)t<3)+"3":  8660! XZm$="EF"m$="JK"f=10 :k$(b)=("2"e$(2)>"3")+("2"e$(1)>"3")+"2": ]%i$"7"7020l bm$(2)-m$(1)>5(i$(1)=k$(b-2,1)(i$(1)=k$(b-2,1)-1i$(2)k$(b-2,2)))m$(2)=(m$(2)-5):7030v li$(1)="1"x$(1)<"4"i$(2)x$(2)m$(1)=(m$(1)-5):m$(2)=(m$(2)-5) v y=m$(1):x=m$(2) {*a=0fs=e$(t)*(t<5m$"FG") ry>68D7300+502*(y=70F)+150*(y>70F)+502*(y=74J)+100d*(y>74J) `f=6:x-y=5d(k)16k$(b)=((d(k)+1)/5)+h$(2):7900 x-y=10 d(k)14f=11 :k$(b,1)=("6"d(k)>21)+("5"d(k)16t>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 x=69Ek$(b)=("2"d(k)<16)+("3"d(k)16)+(s$(p)(d(k)<14.4ffffŰe$(5)>1+e$(6)))+s$(n):7900 Xf=11 :x=74Js>43+s47/k$(b)=("3"j14g<25)+"P": Ɵx=74Jk$(b)=("3"+s$(p)(j<16ưe$(5)>1+e$(6)))+("4"+s$(p)j16ưe$(5)>1+e$(6))+("3"+s$(n)):7900 x-y>57250R 0c=0:f=6+(3h$(1)="2") e$(t)>"3"72204 e$(6)>(4-c)(d(k)>16.6-3*cn16)+(k$(b,2)70F(s>80Pt=e$(12 ))k$(b)=("1"h$(1)="1"j<16.9333)+("3"j>18.6)+"2":7900 0c=0c=1:s=s+20:7150 Ee$(5)>"4"k$(b)=(f$(1)+(j>16)+1)+s$(p): 4Mk$(b)=(f$(1)+1+(j>15.4vfff)+(j>19))+s$(t):7900 \8f=13 :c=1: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=0:8660! ;x<79Of=9 :k$(b)=("3"e$(t)<"3")+"4"+s$(t): @x<82Rj>14f=11 :k$(b)="5"+s$(t):7900  8660! 6f=0: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$(1)="3"8740$"  8600! f=0:x=74Jưe$(5)>1+e$(6)e$(5)>"5"k$(b)=("3"j<22)+("4"j22)+s$(p):7900 $x=74J8620! ."f=8:e$(t)>"2"8640! 8js>30e$(8)>"1"(t=e$(12 )e$(8)="1")e$(5)<"7"h$(1)<"4"8740$" B?e$(5)>1+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):7650 Ψm$=4e=f+1+d(k)+(4z>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=31-1  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)) fe>25e<33!k$(b,1)=("3"k$(b,2)="")+("4"k$(b,2)>"")+"5":7900 ,e33!e<36$k$(b,1)="6": !e36$k$(b,1)="7": r(j<8g>99ce<23.5<)(k$(b,2)=h$(2)k$(b-2,2)=""s>20)8660! _k$(b,1)=(h$(1)+(k$(b,2)s$(t))+(x<69Ej>10 k$(b,2)="")) k$(b,1)>"7" g+(20+10 *(k$(b,2)>""))*(k$(b,1)-1)+10 *(k$(b,2)="")>99ck$(b,1)>"1"k$(b,1)=(k$(b,1)-1):7930  !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":7900 "jd=h "t$d>4d=d-4:8820t" ""Hand no.";h,"Contract ";f$(1);("N"t=5);f$(2)'"Dealer ";b$(d,5),"Declarer ";b$(de,5)'n$(8);:n$<10 8850" ",n$(10 ) "p''13 ;"North";13 ;"-----":v=14:10 ;s$(v);:w=1a(v):" ";j$(v,w);:w:v "''3;"West";19;"East";3;"----";19;"----":v=13 16:0;s$(v);:w=1a(v):" ";j$(v,w);:w:,s$(v);:w=1a(v-8):" ";j$(v-8,w);:w:v "''13 ;"South";13 ;"-----":v=9 12 :10 ;s$(v);:w=1a(v):" ";j$(v,w);:w:v:aa<8'''': "''':v=14:v*8-6;b$(d,5);:d=k(d):v:'':d=1:v=5aa:d*8-6;(k$(v)k$(v,2)"")+(k$(v,1)+"NT"k$(v,2)="");:d=k(d):v:'''': # 1,3,5,6,1,6,5,6,8,3,3,5,6,10 ,8,8,6,6,5,3,5,6 #:.5,-12 ,.37=p,-12 ,.12}u[,-12 ,.5,-12 ,.5,-17,.5,-12 ,.37=p,-12 ,.12}u[,-12 ,.5,-12 ,.37=p,-9 ,.12}u[,-10 ,.37=p,-10 ,.12}u[,-12 ,.37=p,-12 ,.12}u[,-13 ,.5,-12 #(pf=0:fs=0:rp=0:ss=0:e$=a$(524):a$(524)=a$(535):a$(535)=e$ #Zu=140(:v=2*(*524+1):w=2*(*524+1):z$=a$(v-1v):a$(v-1v)=a$(w-1w):a$(w-1w)=z$:u:v=14:b$(v)=a$(v*26-25v*26):y$(v)="0003":v #vl=0:k1=0:k2=0:zz=0:c(4):d(4):k=14:f$="":g$="":h$="":i$="" #Lw=2262:b$(k,w-1)=""f$=f$+b$(k,w):9175# #0b$(k,w-1)=""g$=g$+b$(k,w):9175# #0b$(k,w-1)=""h$=h$+b$(k,w):9175# #i$=i$+b$(k,w) #Vw:a=14:c$=(f$a=1)+(g$a=2)+(h$a=3)+(i$a=4) #^l=l+1:a(l)=c$:e(a)=a(l):d$(k,a)=a(l):a(l)=0d(k)=d(k)+3:9250"$ #&a(l)>8h=h-1:800  #Fa(l)=1d(k)=d(k)+(c$="")+2*(c$<""c$=""):9210# #;a(l)=2d(k)=d(k)+(c$(1)""c$(2)<"") #Kv=1a(l):c$(v)>""c(k)=c(k)+c$(v)-155+(c$(v)="")/4 #v=19230$ $\w=v2-1:c$(w)>c$(w-1)z$=c$(w):c$(w)=c$(w-1):c$(w-1)=z$ $ w $`v:j$(l)=c$:k=1(c$(1)=""j$(l,2)="")k1=k1+1-4*(k1=3) $Sk=2(c$(1)=""j$(l,2)="")k2=k2+1-4*(k2=3) $_j$(l,4)""y$(a)="100"+(k-2*(k>2)):j$(l,5)=""y$(a,2)="5" $'a:d(k)=c(k)+d(k) $)8j$(l,1)=""c(k)=c(k)zz=k-2*(k>2) $,4g$="1234":v=31-1:w=1v $1oe(w)0)+"11":k:c(1)+c(3)c(2)+c(4)9400$ $|zz=3-zz:v=132:w=c(v):c(v)=c(v+1):c(v+1)=w:w=d(v):d(v)=d(v+1):d(v+1)=w:e$=d$(v):d$(v)=d$(v+1):d$(v+1)=e$:v:v=14:y$(v,4)<"3"y$(v,4)=(3-y$(v,4)) $v:k1=k2:v=19 8:u=vv+3:w=a(u):a(u)=a(u+4):a(u+4)=w:e$=j$(u):j$(u)=j$(u+4):j$(u+4)=e$:u:v $Cv=116:j$(v+16)=j$(v):a(v+16)=a(v):v: %e7;0,13 ;"NORTH":c=0:b=10 :y=0:9600%:opt=1 %D|7;15,13 ;"SOUTH":c=15:b=10 :y=8:9600%:fs=1fs=0: %Nopt=27;7,3;"WEST":c=7:b=0:y=12 :9600%:7;7,18;"EAST":b=15:y=4:9600% %X %x=14:7;2*(x=2x=3);c+x,b;s$(x);" ";:w=1a(y+x):7;2*(x=2x=3);j$(y+x,w);" ";:w:8;" ":x: %d=h %$d>4d=d-4:9655% %[0,0;"Hand ";h'"Dealer:";o$(d)'2;n$(8)':n$<10 %#7;2;n$(10 ): %l7;4,0;"Contract"'f$(1);cd;("N"t=5);f$(2);0;" by ";o$(de): &x=44,+111o*(rr>9 ):xx=44,+38&*(rr>9 ):g$=("1342"a(10 )=0)+("2134"a(12 )=0)+"1243" &%K4,x:249,0:0,-xx:-249,0:0,xx &*4z=2019616:z,x:0,-xx:z &4\v=1:u=14-(a(g$(4)+8)=0):m=g$(u)+8:e$=s$(m) &>>x=19-rr:y=26:c=2*(m=10 m=11 ) &\Rz=1a(m):c;x-1,v;j$(m,z);x,v;e$:v=v+2:z:u:rr<3 &pMx=x-1:c:v=5*j$(m,a(m)):v>7749100#+v:0: &-9945&-5*j$(m,a(m)):0: &=x+2,y+2;e$;x+6,y+2;e$:9905& &cw=15:x+w,y+4;e$:w:x+6,y;e$;" ";e$;x+7,y+1;e$;e$;e$: &4,25;" ":w=176:v=04: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$: &4,25;" ";x+1,y;e$;" ";e$;x+2,y;e$;" ";e$;x+3,y;e$;" ";e$;x+4,y;e$;e$;x+5,y;e$;" ";e$;x+6,y;e$;" ";e$;x+7,y;e$;" ";e$: &4,25;" ":w=143:v=13:x+w,y+v;e$:v:w:w=27:x+w,y;e$;x+w,y+4;e$:w: &x+4,y+2;e$ &x+1,y+1;e$;" ";e$;x+3,y+1;e$;" ";e$;x+5,y+1;e$;" ";e$;x+7,y+1;e$;" ";e$: &x+3,y+2;e$ &,x+4,y+1;e$;" ";e$:9925& &x+4,y+2;e$ &Ax+2,y+1;e$;" ";e$;x+6,y+1;e$;" ";e$: &x+4,y+2;e$ &3x+2,y+2;e$;x+6,y+2;e$: &ޗ8970 #:u=122:w:.12}u[+.45ffff*(u=10 )+.2~L*(u=9 )+.25~*(u=4)+.3*(u=5u=22),w:u: &08980#:w=116:c:d:c,d:w: &-x=16:.1}L,*40(:x: 'yERR=0:h=0:6:23760\:23637U\,203:23638V\,92\:" "16384@,48896 ' )ERR=ERR+1:ERR=1875k ' 7:0:7::"You have attempted to break intothe program - this is forbidden.The current deal has been erased"'"To start a new deal, PRESS A KEY" ' ''"This program is protected by 'ONERROR GOTO',one of 100 M/C rout-ines in SUPERCODE, the ultimate 16/48K Spectrum Toolkit. You canbuy SUPERCODE for `9.95 from:-" 's'"SUPERSOFT SYSTEMS CP SOFTWARE 91 Manor Road, 17 Orchard LaneLondon E17 5RY Prestwood,Bucks" '.8L,-15:a$="23456789234567892345678923456789":0:.1}L,40(:0 hL ONESWneswQ AKQJ1akqjtR SHDCNshdcnSTU  f\gi y f(Z#l##p%rR\&m pqsQtdo=eW A3AA1AAAAAX1MEMRrPVul:none (DX DhFH586I796C976G2341ZAh23456789234567892345678923456789  5 m =   ˕$  NVul:noneE9990'  @4@DGE";6;1;" is ";1;6;1;1;"LOADING";10 ,10 ;0;4;0;0;"Please wait" -16*(o>8):r()=o+12 -16*(o>4):5,11 ;"WELCOME TO" B proved by";15,12 ;"F. VACHHA":h=120,10 ;"PRESS A KEY":0 > s forbidden."'"The current hands have now been deleted,together with any pointsarising therefrom."'"To start>BB<DHpHDBB<||DHpHDB