: (: : : : ,,: ((,))  , : "**** BRIDGE 3.1 ****":  , :"(C) 1983 BY DYNACOMP":  , :"WEBSTER, NY 14580"F(: C(4),P(4),V(,),Y(,),F(, ),T9(),X(),G(){2 T$(h),E$(8),A$( ),Z$(),D$( ): IN,G,T,W<A$"23456789TJQKA":N$"1234567"FB$"XCDHS"P ,:"DO YOU WISH TO PLAY CONTRACT": ,:"BRIDGE OR DUPLICATE BRIDGE ";Q$?Z:R9R9(R9):K1:KR9: I 4:P(I)I::V5dd Q$"C" Q$"c" x : nn ,,:  ,: "SHUFFLING": xAI:BM-:C5:T1 "INPUT ANY POSITIVE NUMBER LESS THAN 1000": A9 : "SHUFFLING";X9A9: J4  aI2I2:X9(X9):E(E(X9B)C)I2:EE(EA):EE(E)t{ E ET1(ET1)T1R(EJ):C(J)P(R):P(R)P(J): J: C() R9:  C() R9:  C()( R9: R9:  J4  BR(()J):C(J)P(R):P(R)P(J): I :T9(I) :MI  : J  :F(I,J)C(JM):: :  ,: "SHUFFLING":  ,: ,,: "DEALING" I T1 J  : F(I,J)F(I,J) ,("T2F(I,J):F(I,J)F(I,J):F(I,J)T2:T1=, J: T1 ^6:T$"": L : I  @JF(L,I) (F(L,I) ):M((F(L,I)L}) ): J J JZ$(A$,J,)(B$,M,):T$T$Z$::T :  ,: "DEALING":R:H: ,,:  ,: "SORTING":  :K:L5:`^ : ,:"YOUR HAND (SOUTH):":: :E$"":S$"1A":KR9h: K  : " YOU ARE THE DEALER, WHAT DO YOU BID ?":rK:K1K1:"SOUTH";| Z$: Z$""  : (Z$,)"P"  : C(K1):E$E$"00": K1  : 0= (Z$,,)"N" Z$(Z$,) "X" (Z$,)"D"  : C(K1)  : C(K1) " YOU CANNOT DOUBLE YOUR OWN PARTNER'S BID !": C(K1):E$E$"DB": K1  : 0 Z$S$ " ILLEGAL BID, TRY AGAIN.": |8C(K1): K1 k I : (Z$,,)(B$,I,) X()I:~E$E$Z$:S$Z$KK: K r : X: C(K1) :  : K &T1(E$): T1 &Z$(E$,T1,): Z$"00"  : Z$"DB" & : = (E$,T1,)"00" &U * : F1 & F$;": DOUBLE":E$E$"DB": K1  : 0& F$;": PASS":E$E$"00"0 K1  : (E$,K1,)"000000"  : : b : F1 1DS$D$:E$E$S$: (S$,,)"X" D$(S$,,)"NT"NN  : F$;": ";D$: wXK1K1:C(K1):LK: L LKb K1   : K1 l P(K)  : P(K) vC(K1): & :  :  C(K1) l : P(K)  : P(L) ] C(K1) v : (E$,K1,)"D" v :  P(K)  : V(K,X(K))  (B$,X(K),)(S$,,)  X(L)  V(K,X(L))  V(K,X(L)) v : Y(K,X(L))  : 1 S$"1X" v : D$"1X":^ P(K)  : P(K) LK:  V(K,X(L))  : V(K,X(K))  Y(K,X(K))  :   :  P(K)  : P(K)P(L) f V(K,X(K)) * : P(K) *N  C(K1) v : P(K)  : K1  : fd* C(K1) >4 P(K) v : V(K,X(K)) v : > (E$,(K1),)"X" H K1 f : (S$,,)"2" fR V(K,X(K)) f : P(K) <\ (B$,X(K),)(S$,,)  : }f X(L)  : M1Y(K,X(K))V(K,X(K))Y(L,X(K))V(L,X(K))pM2Y(K,X(L))V(K,X(L))Y(L,X(L))V(L,X(L))z M1M2  : V(K,X(L))  : X(K)X(L):   P(K) v : (E$,(K1),)"3X" vEF1: I : V(K,I) F1{: F1  : K1  : P(K)  D :I2(E$):T1: (E$,I2,)"D"  : (E$,I2,)"0000" T1 : T1X(K1T1)(R9):W8X(X): W8 W82T4W8: T4 T4W8HK:T1K1:IwII:KK: (E$,I,)(S$,,) K1(K(R9))((K(R9))): K1 K1 K1W8 K1T4  IT1  : " EVERYONE PASSES, REDEAL."  Y :: Z=  I : (S$,,)(B$,I,) XIC b  X S$(S$,,)"NT" $ (E$,I2,)"D" S$S$" (DBL)" .:"THE CONTRACT IS: ";S$:KK1:  8"THE DECLARER IS: ";F$:::K2K1: K2 K2K1_!BR:W8:T4:"REVIEW OF THE BIDDING:"::"SOUTH WEST NORTH EAST":T1R9: T1);:I:T2R9:T3(E$)v!LII: IT3 !VD$(E$,I,)" ":T2T2: T2 :T2!` (E$,I,)"X" D$(E$,I,)"NT "!j (E$,I,)"DB" D$"DBL ""t (E$,I,)"00" D$"PASS","~ D$;" ";: LO"::" READY TO PLAY";: D$:z"HH: H  : KK: K K"LK: L LK"M1K: M1 M1"M2M1: M2 M2M1" H   : G2?# R r : RR::: ,:"ROUND:";R: ,: S$;" WE:";W8;" THEY:";T4:K3K:# K1(K1)  : L5:K:" NORTH:": : #KK1: K1 R  : K KK1#L5: K1 L5#  : L5);F$;":":  $K:L5: K1  : L5,$ L5);"SOUTH:": :KK3P$  K Z : K2K: 8 :  $ F$;" PLAYS";: D$: (D$) F : H 2$ (D$,,)(B$,N,) 2 : V(K,N) 2$("RENEGE, TRY AGAIN.": %2F1: I T9(K): D$(Z$,I,) F1%%<: F1 PN%F" ERROR IN LEAD, TRY AGAIN.": y%P  : G(K)G2  : G2G(K): %Z K n : K1(K1) n%dK2K: 8 :  : %n H & : < &x T1  : KK1 LK1  & ((S$,,))R i& V(K,X(L))  : X(L)X  : KK1 LK1  : 6&K2K: 8 :T1: I X(L):T1T1V(K,I)::D$(Z$,T1,)&  :G2G(K):  : F$;" PLAYS: ";D$: ' V(K,X)  : KK1 LK1  : .' V(M1,X)V(M2,X) `'K2K:K$(B$,X,):  :G3G(K):K2L:  t' G3G(K) 'K2K: 8 :T1: I X:T1T1V(K,I):'D$(Z$,T1,): 'K2K:  : 'J (JJ: V(M1,J)  : V(M1,X) "7( V(M2,J)  : V(M2,X) "( JX " : K$(B$,J,):K2K:  :T2G(K):K2M1:  : G(K)T2 "(K2M2:  : G(K)T2 ,(" J  : V(K,X(L)) 6 : (,K2K:  : ()6K2K: 8 :T1,:T2: I R :D$(Z$,I,)c)@ (D$,,)(S$,,) T : @ : G(K)T1 Tt)JT1G(K):T2I)T:D$(Z$,T2,):  : G(K)G2 G2G(K))^  : F$;" PLAYS: ";D$: *hT1: I N:T1T1V(K,I)::K2K: 8 :D$(Z$,T1,)$*r  : G(K)G2 G2G(K)G*|  : F$;" PLAYS: ";D$: e* V(K,X) 6 : G3G2* H  : G(L)G2 6*T1: X * I X:T1T1V(K,I):*K2K: 8 :T2T1V(K,X)*IT10+II:D$(Z$,I,): @ : G(K)G3  : IT1 6 : [+ IT2  : G(K)G3  : 6+ H  : V(L,N)  : V(L,X) 6+G(L): +K2L:K$(B$,N,):  :G(L)G(K),K2M1: V(M1,N)  : V(M1,X) G4: -,K$(B$,X,):  :G4G(K): O,K$(B$,N,):  :G4G(K)c, G4G3 G3G4~, G(L)G3  : 6,& V(K,N)  : V(K,N) h : G3G2: H ,0 G(L)G2 h-:T1: N D : I N:T1T1V(K,I):.-DT2T1V(K,N):K2K: 8 :IT1c-NII:D$(Z$,I,): @ : G(K)G3 X : bt-X IT2 N-b IT1  : G(K)G3 -lD$(Z$,I,): @ : G(K)G3 -v H L : F1 r-D$(Z$,I,): r.D$(Z$,T2,): r?. H  : K2L: V(L,N) d. V(L,X)  : G(L): .K$(B$,X,):  :G(L)G(K): .K$(B$,N,):  :G(L)G(K).K2M1: V(M1,N) . V(M1,X)  : G4: /K$(B$,X,):  :G4G(K): II0H D$(T$,I,) R : IT2 >0R IT2 p : I f0\T$(T$,,h): z1fT$(T$,,I)(T$,I,h): z&1p T2 z : T$(T$,,T2)K1zT9(K)T9(K): H NT3 l1 NX  : NT3:G(K):u1NT31 @ 11D$"":T1(R)(K):Z$(T$,T1,(R))1 I R :D$D$(Z$,I,):1 V(K,) +2 : L5);();" ";(D$,,V(K,)):: B2 : L5);():W2 V(K,) 2  : L5);();" ";(D$,V(K,),V(K,)):: 2  : L5);():2 V(K,)  3 T1V(K,)V(K,):  : L5);();" ";(D$,T1,V(K,))::  ,3  : L5);():: V(K,) . A3 V(K,) . 3$ T1V(K,)V(K,)V(K,): : L5);();" ";(D$,T1,V(K,))::3. : L5);()::38 T5: K2 B : I K2:T5T5T9(I):3B Z$(T$,T5,T9(K2)):64L K2K: 8 :T1: N V : I N:T1T1V(K,I):M4V T2T1V(K,N)4` K$(B$,N,):  :IT1: G(K)G3 F1:4j II4t D$(Z$,I,): @ : G(K)G2 ~ :  4~ IT2 j 4 IT1  : D$(Z$,T2,):F1:5 D$(Z$,I,):F1:H5 I :P(I): J :V(I,J):Y(I,J)::a5 I : J  5 T2F(I,J) (F(I,J) ):T1(((F(I,J)fff) )): T2 T2 5 T2  : T2T2:Y(I,T1)Y(I,T1)T25 V(I,T1)V(I,T1)::+6 I : J :T1V(I,J): T1 T1}6 P(I)P(I)Y(I,J)T1:F(I,J)V(I,J)((V(I,J))Y(I,J)): V(I,J) F(I,J)6 ::I6 II: I : T1: J : F(I,J)T1  6 T1F(I,J):T2J6 J7 F(I,)T2  : X(I):  7 X(I)T2X7 P(I) 2 : J : Y(I,J) 2 : V(I,J) 2 7( :X(I):V(I,):Y(I,):F(I,)*72  7<  : T1 : K2L: 8 :T28F J :T3T2:F(L,J): IT3 T3V(L,J):D$(Z$,I,): @ :N2N2: N2 N2;8P F(L,J)F(L,J)N2::T2T2V(L,J):j8Z (S$,,)"X"  : V(L,X)  8d J : V(L,J) n : V(K,J) n :  8n 8x V(L,)  8 F(L,J) 9 T2: J : F(L,J)T2  : T2F(L,J):F1J9 :X(L)F1:19 8 :T3: N  Q9 I N:T3T3V(K2,I):i9 T3R T3T39 D$(Z$,T3,): @ :9 K F$"SOUTH" : K F$" WEST" : K F$"NORTH" : K F$" EAST":9 9 Jh: JJ:K$(B$,J,): JX  : K2L:  :T1G(K):K2M1:  : G(K)T1  : K2M2:  : G(K)T1  : J  : T1:: V(K,J)  : X  : V(M1,J)  : V(M1,X)  : V(M2,J)  : V(M2,X)  ; X(L)J:T1:#; 8 :I:F1RE;" II: (Z$,I,)K$ 6 b;, IF1 " : G(K):;6 D$(Z$,I,): @ :;@ N1: (D$,,)(S$,,) N1 ;J I2  : (D$,,)(A$,I2,) N2I2;T <^ (D$,,)"A" N2((D$,,)) " PLUS";T3;"OVERTRICK(S)."b> (Q$,)"D"  : :" CONTINUE ";: D$: (D$) Z> (D$,,)"N" : Z> :" THE HAND YOU JUST":"PLAYED WAS #";: A9:> I :Z$(N$,I,)(B$,X(K),): Z$S$  ? D$Z$:? :C? I :Z$(N$,I,)(B$,X(L),): Z$S$  O? D$Z$:W? :?& I :Z$(N$,I,)(B$,X(L),): Z$S$ : ?0 D$(N$,I,)(B$,X(L),):?: :?D I :Z$(N$,I,)(B$,,): Z$S$ X @N D$Z$: @X :5@b T2P(K)P(L): K(K) T2T2m@l F1: (S$,,)"2" : (Z$,,)"3"  @v (Z$,,)"4"  : (Z$,,)"5"  : (Z$,,)"6"  : (Z$,,)"7"  @ T2  :  A T2  *A T1(E$): (E$,T1,)"3X"  LA (Z$,,)"X"  :  zA T2  : T2 : T1(E$)A (E$,T1,)"4S"  A (E$,T1,)"4H"  :  A T2!  :  B T2%  : S$(E$,(K1),)  : $B F1:C(K1):4B T2 cB I2 : (Z$,,)(B$,I2,)  ~B T1((Z$,,)):II2B : I  : I  B T1  : B T1  : B T1  : :C* F1: (E$,T1,)"DB0000" : T2P()P():I((S$,)) : IT2 F1@C4  : B T1  : :C* F1: (E$