I " **********************":" **** BRIDGE 2.0 ****"J " **********************":1223 * BR2APL *8J" (C) 1979 BY DYNACOMP":" WEBSTER, NY 14580"vJ::C(4),P(4),V(,),Y(,),F(, ),T9(),X(),G()JT$(h),E$(8),A$( ),Z$(),D$( )J(A$"23456789TJQKA":B$"XCDHS":N$"1234567"Jn"ENTER ANY POSITIVE NUMBER":X:R(X)8KR9R9(R9):K1:KR9:"SHUFFLING";:I4:P(I)IoK:J4:R(()J):C(J)P(R):P(R)P(J):KI:T9(I) :MI  :J :F(I,J)C(JM)::K:"DEALING";:IK,T1K6J :F(I,J)F(I,J)TLJT2F(I,J):F(I,J)F(I,J):F(I,J)T2:T1*LTJ:T1,_Lh:T$"":L:I :JF(L,I) (F(L,I) )LM((F(L,I)L}) ):JJ LZ$(A$,J,)(B$,M,):T$T$Z$::LR:H::"SORTING":p:K:L5 M"YOUR HAND (SOUTH):":$:E$"":S$"1A":KR9M KHM""YOU ARE THE DEALER,":"WHAT DO YOU BID?"bM*K:K1K1:"SOUTH";uM,Z$:Z$""FM-(Z$,)"P"2M.C(K1)M0E$E$"00":K1M1M2(Z$,,)"N"Z$(Z$,)"X"M4(Z$,)"D"DN6C(K1)>N8C(K1)>TN:"YOU CANNOT DOUBLE YOUR":"OWN PARTNER'S BID!":FuN>C(K1):E$E$"DB":K1~N@NDZ$S$HNF"ILLEGAL BID, TRY AGAIN.": ,NHC(K1):K1NRI:(Z$,,)(B$,I,)X()INT OE$E$Z$:S$Z$OKK:K*5O:C(K1)GOL:Kj_OTT1(E$):T1jOUZ$(E$,T1,T1):Z$"00"`OVZ$(E$,T1,):Z$"00"`OXZ$"DB"jOZbO`(E$,T1,)"00"jOb!:F1jPeF$;": DOUBLE":E$E$"DB":K1 PhT P(K)bT (B$,X(K),)(S$,,)kT S{T X(L)T M1Y(K,X(K))V(K,X(K))Y(L,X(K))V(L,X(K))T$ M2Y(K,X(L))V(K,X(L))Y(L,X(L))V(L,X(L))T. M1M2T0 V(K,X(L))U2 X(K)X(L):!UL P(K) CUN (E$,(K1),)"3X" bUj F1:I:V(K,I)F1rUn :F1Uo K1r Up P(K) Ur l :U I2(E$):T1:(E$,I2,)"D" U (E$,I2,)"0000"T1 U T1#V X(K1T1)(R9):W8X(X):W8W8=V T4W8:T4T4W8SV K:T1K1:IV II:KK:(E$,I,)(S$,,)5 V K1(K(R9))((K(R9))):K1K1V& K1W8K1T4: V5 IT1 V8 "EVERYONE PASSES, REDEAL.":W: I:(S$,,)(B$,I,)XI%W> AWb XS$(S$,,)"NT"eWf (E$,I2,)"D"S$S$" (DBL)"Wl :"THE CONTRACT IS: ";S$:KK1:Wv "THE DECLARER IS: ";F$::K2K1:K2K2K1W R:W8:T4:"REVIEW OF THE BIDDING:":!X "SOUTH WEST NORTH EAST":T1R9:T1);:F1G[B"ERROR IN LEAD, TRY AGAIN.": .[G:G(K)G2[HG2G(K):\PKT!\QK1(K1)T9\RK2K:|::.F\TH\Y\V:T1ju\h((S$,,))R\jV(K,X(L))\kX(L)Xp\lKK1LK1p\n\pK2K:|:T1:IX(L):T1T1V(K,I):\D$(Z$,T1,)']:G2G(K)::F$;" PLAYS: ";D$:9]V(K,X)L]KK1LK1U]p]V(M1,X)V(M2,X)]K2K:K$(B$,X,)::G3G(K):K2L:]G3G(K)]K2K:|:T1:IX:T1T1V(K,I):]D$(Z$,T1,): ^K2K::^J*^JJ:V(M1,J)=^V(M1,X)P^V(M2,J)c^V(M2,X)p^JX^K$(B$,J,):K2K::T2G(K)^K2M1::G(K)T2^K2M2::G(K)T2^J^V(K,X(L))^p _K2K::B_K2K:|:T1,:T2:IR:D$(Z$,I,)a_(D$,,)(S$,,)w_X:G(K)T1_T1G(K):T2I_:D$(Z$,T2,)::G(K)G2G2G(K)_:F$;" PLAYS: ";D$:_tT1:IN:T1T1V(K,I)::K2K:|`D$(Z$,T1,)-`:G(K)G2G2G(K)M`:F$;" PLAYS: ";D$:_`V(K,X)i`G3G2v`H `G(L)G2`T1:X`IX:T1T1V(K,I):`K2K:|:T2T1V(K,X)`IT1 aII:D$(Z$,I,):X:G(K)G3aIT1$a2aIT2CaG(K)G3LaYa H"kaV(L,N)}aV(L,X)aG(L):"aK2L:K$(B$,N,)::G(L)G(K)a"K2M1:V(M1,N)4a$V(M1,X)G4:: b,K$(B$,X,)::G4G(K)::.b4K$(B$,N,)::G4G(K)?b:G4G3G3G4Pb<G(L)G3Yb=kb\V(K,N)}b^V(K,N)tb`G3G2:HbfG(L)G2tbjT1:NtblIN:T1T1V(K,I):btT2T1V(K,N):K2K:|:IT1#c~II:D$(Z$,I,):X:G(K)G3,c:cIT2~JcIT1[cG(K)G3cD$(Z$,I,):X:G(K)G3cHc:F1cD$(Z$,I,):cD$(Z$,T2,):cK2L:HcV(L,N) dV(L,X)dG(L):AdK$(B$,X,)::G(L)G(K):ddK$(B$,N,)::G(L)G(K)}dK2M1:V(M1,N)dV(M1,X)dG4:dK$(B$,X,)::G4G(K):dK$(B$,N,)::G4G(K)dG4G3G3G4eG(L)G3teHj)e:F12ejXeT3:K:G(K)T3T3G(K):T1K|e:T1(T1)W8W8:eT4T4eH:KT1:eT3N:I:(D$,,)(B$,I,)eV(K,I)V(K,I):NIf:T2(oR)(H):I fII"fD$(T$,I,)0fIT2>fIT2Kf Icf T$(T$,,h):fT$(T$,,I)(T$,I,h):fT2fT$(T$,,T2)fT9(K)T9(K):HNT3!fNX fNT3:G(K):f NT3f!Xg":g$D$"":T1(R)(K):Z$(T$,T1,(R))_g)IR:D$D$(Z$,I,):qg.V(K,)3g0L5);"S: ";(D$,,V(K,)):8g3L5);"S:"g8V(K,)=g:L5);"H: ";(D$,V(K,),V(K,)):Bg=L5);"H:"hBV(K,)G=hDT1V(K,)V(K,):L5);"D: ";(D$,T1,V(K,)):IZhGL5);"D:":V(K,)QohI V(K,) QhMT1V(K,)V(K,)V(K,):L5);"C: ";(D$,T1,V(K,))hNhQL5);"C:":h|T5:K2h~IK2:T5T5T9(I):iZ$(T$,T5,T9(K2)):,iK2K:|:T1:NJiIN:T1T1V(K,I):aiT2T1V(K,N)iK$(B$,N,)::IT1:G(K)G3F1:iG2G(L)D$(Z$,T2,):F1:iIIiD$(Z$,I,):X:G(K)G2i iIT2 j IT1$jD$(Z$,T2,):F1:?jD$(Z$,I,):F1:njpI:P(I):J:V(I,J):Y(I,J)::jI:J :T2F(I,J) (F(I,J) )jT1(((F(I,J)fff) )):T2T2 jT2 jT2T2:Y(I,T1)Y(I,T1)T2kV(I,T1)V(I,T1)::=kI:J:T1V(I,J):T1T1ykP(I)P(I)Y(I,J)T1:F(I,J)V(I,J)((V(I,J))Y(I,J))k.V(I,J)F(I,J)k8::IkNII:IώkPT1:J:F(I,J)T1xktT1F(I,J):T2JkxJkzF(I,)T2~ l|X(I):l~X(I)T2*lP(I)ClJ:Y(I,J)UlV(I,J)~l:X(I):V(I,):Y(I,):F(I,)*l Nl,:T1ώlK2L:|:T2lJ:T3T2:F(L,J):IT3T3V(L,J)mD$(Z$,I,):X:N2N2:N2N2.mF(L,J)F(L,J)N2::T2T2V(L,J):Fm(S$,,)"X" XmV(L,X) qmJ:V(L,J)mV(K,J)mmmV(L,) mF(L,J) m T2:J:F(L,J)T22m T2F(L,J):F1Jm2:X(L)F1: nd|:T3:N*nxIN:T3T3V(K2,I):?nT3RT3T3]nD$(Z$,T3,):X:qnKF$"SOUTH"nKF$" WEST"nKF$"NORTH"nKF$" EAST"nn,Jn6JJ:K$(B$,J,):JXn8K2L::T1G(K)ohK2M1::G(K)T1ojK2M2:0oG(K)T1=oJ6HoT1:ZoV(K,J)goXzoV(M1,J)oV(M1,X)oV(M2,J)oV(M2,X)oX(L)J:T1:o|:I:F1RoII:(Z$,I,)K$pIF1pG(K):1pD$(Z$,I,):X:WpXN1:(D$,,)(S$,,)N1 pI2 :(D$,,)(A$,I2,)N2I2p:(D$,,)""G(K):pD$""G(K):p(D$,,)"A"N2((D$,,))pG(K)N1N2:q T1((S$,,)):K1(K1)R'q"T3T4T15q4T3DCq6T3Hxq?:"YOUR OPPONENTS WERE":"SET";(T3);"TRICKS."q@qD:"YOUR OPPONENTS MADE":"THEIR CONTRACT (";S$;")."qFqH:"YOUR OPPONENTS MADE THEIR":"CONTRACT (";S$;")"rL"PLUS";T3;"OVERTRICKS.":6rRT3W8T1:T3fDrTT3kprb:"YOU WERE SET";(T3);"TRICKS.":rf:"YOU MADE YOUR CONTRACT (";S$;").":rk:"YOU MADE YOUR CONTRACT (";S$;")"rm"PLUS";T3;"OVERTRICKS."s"CONTINUE": D$:(D$)s(D$,,)"N"ϐ/sX():ds@I:Z$(N$,I,)(B$,X(K),):Z$S$rpshD$Z$:xsr:sI:Z$(N$,I,)(B$,X(L),):Z$S$sD$Z$:s:s I:Z$(N$,I,)(B$,X(L),):Z$S$D t: D$(N$,I,)(B$,X(L),):$tD :Ttl I:Z$(N$,I,)(B$,,):Z$S$ `t D$Z$:ht :t4!T2P(K)P(L):K(K)T2T2tH!F1:(S$,,)"2"ώtJ!(Z$,,)"3"!t\!(Z$,,)"4"!t^!(Z$,,)"5"! up!(Z$,)"6"!ur!(Z$,)"7"!.u!T2!7u!!Fu!T2!lu!T1(E$):(E$,T1,)"3X"!u!(Z$,,)"X"!u!!u!T2!u!T2ώu!T1(F$)u!(E$,T1,)"4S"!u!(E$,T1,)"4H"!u!!v!T2!!v!!v!T2%!?v!S$(E$,(K1),)!Ev!Xv!F1:C(K1):ev!T2ώv!I2:(Z$,,)(B$,I2,)!v!T1((Z$,,)):II2v!:I!v!I!v!T1!v!v!T1!v!v!T1!w!$w!F1:(E$,T1,)"DB0000"ώWw"T2P()P():I((S$,,)) :IT2F1]w$"!v!v!T1!w!$w!F1:(E$,T1,