S(X)(X13)c S1$(8),Z$(12),SL(3,3),J$(3,3),W(2),A%(52),D%(3,3),F%(3,3),E%(3,3),SP%(3)"BRIDGE (C) 1978 GEORGE DUISMAN":"RECORDING (P) 1978 PETSOFT"WHAT SET OF HANDS";SE:J08:S1$(J)::SESE93001 "","","","",N,S,H,D,C Z5(3):C8.1415926LJ012:Z$(J):: A,K,Q,J,10,9,8,7,6,5,4,3,2V9000z "WHAT CONTRACT? ";:4400:B$P$>P$(B$,2,1)"5":8800:TRS:X$"K5"3800pX$"A5"2490zTR99TR43000L3:TT113:4000:Z522490:SWTW1:W(SW)W(SW)1:LTW:SP%(TS)SP%(TS)1:9160: TT:2500J TT13:9160} W(0)0:W(1)0:TT0:ML0:J03:SP%(J)0::CL0T "WANT TO PLAY THIS HAND AGAIN";X$:X$"LOAD"3400:2970^ (X$,1)"N"2950h "WANT TO PLAY ANOTHER";X$:(X$,1)"Y"8| : "WANT TO PLAY EAST-WEST";X$:(X$,1)"Y"3900G 9160:9r J03:SSL(J,1)SL(J,3):KSKS:LSJ JLSS6SMJ : S2LS:SL(S2,P)0S2SM! SL(S2,P)08000& 7100H 5,1,0,"BR":5,X:5,SE:5,C:J051:5,A%(J)R :5:)"SKIP TO WHAT DEAL";L:L2X8UK1LX1:XX1:S038:CCC8:S,K:8w<J051:A%(J)(A%(J)1)3::PL:T1P1P1:(P11)4300,5000Z52A%(Z)A%(Z)TT16(P1)4380,4150,4380,42508140:T4 TT1:P(P1)3:4010" 6"RHO PLAYS "P$:8 "LHO PLAYS "P$:G CL14700k (SL(TS,P)1T1)(TT13)4700y P24330 "WHAT PLAY FROM UMMY? ";:4400:4F40 "WHAT PLAY FROM YOUR HAND? ";:4400 8800 Z544800:4300 Z53CL1:4700 Z52$ 8300:LL04300* = 0P$"":" ";Q :A$:A$""4410x D(A$)20(P$)2P$"":A$;:4410 N(A$)20P$(P$,(P$)1):A$;:4410 X(A$)13" ": bP$P$A$:A$;" ";:4410 \4900:8050 pP0"DUMMY PLAYS "P$ zP2"HAND PLAYS "P$! ? TT1"NO LAST TRICK.":l Z051:TT1(A%(Z)16)Z5(A%(Z)15)Zr  J03:ZZ5(J):8050:P$;" ";::: $Z051:A%(Z)P4950 88300:LL1 V TZTW1 T16000 TR45100% S2LS:SL(S2,P)0S2SM:SL(S2,P)031004 P1P:6850d FSL(S2,0)FSL(S2,2)V1:U1:6800:8050 KF%(S2,P):K3K7K15K146630 SL(S2,P)3SP%(S2)0V4:U1:P1P:6800:8050 6630 K0:S21:S03:F0:FL0 S4SL(S,P1):S5SL(S,3P):S6SL(S,P):S7SL(S,4P)0 S60F0:5400f F6F%(S,P):F4F%(S,P1):F5F%(S,3P):F7F%(S,4P)u STR5155 S70SL(TR,4P)0S40F10:FL(D%(S,P)1):5400 #F623S40S50F9.3:FL2:5400%S61TRSSL(TR,P)0SP%(S)2F420F8:54001(F4F7S40F524D%(S,P)1F9:5400P-F42S41F524F7:5400_2STR5400<S61SL(TR,P)0SP%(S)0F68F7:5400AF615F614F67F6:FL1:5400PF64S62SL(TR,P)0SP%(S)0F420F5:FL1:5400U(S41F6F4)(S51F6F5)F3.5:FL1:54000ZF7F4F4:54008F3HSTRFF4_FKKF:S2S:JFLf"S{,FLJ:FL1FL16TSS2@FL0VFL:U1:P1P:6800:8050J6610pSL(TS,P)06100zTR46700T4TZ06500T46700T36550:LL0SL(TR,P)06510,T36700PSL(TS,3P)0SL(TR,3P)06700Z6500mT4TZ06400{T26200T4TZ16610T36550:LL16610S2TS:V1:U1:P1P:6800:THZ6610SL(TS,3P)1U1:6800J13TS 13TS12:A%(J)PZJ%A%(J)3P80504JTH8050@:8050h8FF%(TS,P)F%(TS,4P):F4ZS(Z)13=(F5F10F11)F41F45S2TS:6630BSL(TS,0)1SL(TS,2)1SP%(TS)0(F%(TS,P)24)166390GSL(TS,3P)0TXTS1312:6410#LP13P:S2TS:V1:U1:6800:TXZ:THTXTXTH-`6410=S2TS:6610RTSS(TH)6610\TXTH Z13TS1213TS 1:A%(Z)P6440ZTX8050(:6610d(TW1)1SL(TR,P)06700nS(TH)TR6600 xS2TR:U1:P1P:J1SL(TR,P):VJ:6800:ZTH8050J:6700.P13P:P24P:LL0>TSTR6560TS(TH)TRLL1:`TZ0xSL(TS,P1)0LL1:P13P:S2TS:V1:U1:6800:ZTHLL1:S2TR:V1:U1:P1P:6800:8050S2TS:V1:U1:P1P:6800:8050P1P:V1:U1:6800:80500,D10:S21:S03:STR6730?;STR6730_@E%(S,P)D1D1E%(S,P):S2SeJTS20S2(4(1)):SL(S2,P)0S21:6740^7100ZS213(U1)6:G1VZ0Z518000A%(Z)P1ZZU::ZZU:ZZU:6820S31:KF%(S2,P1):J05:F5J'SK?S(S2):K(K2):fZS21312S2131:A%(Z)P8050r:8050@Z(52(1)):A%(Z)P8000J8300:LL08000rP$S1$(S(Z))Z$(ZS(Z)13):S1S(Z):T1TSS1:81808200:LL0 TWP:THZ:& LL1:FTS(TH):FZS(Z)? (FZFT)THZLL0:L FZTR\ FTTRLL0m& FZTSLL0s: l Z51LL0:v LL1:S1S(Z):A%(Z)PLL0 T1 8400:SC0 S1TSLL0  SCSL(TS,P): `"X$(P$,2):X$"CL"Z53:b"X$"LA"Z54:2d"X$"ST"Z52:Rh"S08:S1$(S)(P$,1)8820Xj"kt"S4S9SS5y"T$(P$,2,1):Z0 12~" (Z$(Z),1)T$ 8850":Z55:"ZZS13:Z51Z55"(#"PLEASE WAIT":XX1:J051:A%(J)0:7#S5SEX93047:SE0S4(S5)*P#K13:9100:6Z#9160:yd#J03:K03:D%(K,J)0:F%(K,J)0:SL(K,J)0:J$(K,J)" ":K,J:#J012:(C)(C.5)R(1)#R((1)52):A%(R)09120#A%(R)K:CCC8:J:#9060:TT13J051:A%(J)(A%(J)7):#J051:RA%(J):SS(J)F04#SS(J):R99240Y#FF1:J$(S,R)J$(S,R)Z$(JS13)$SL(S,R)SL(S,R)1:F%(S,R)F%(S,R)2(5F):D%(S,R)0D%(S,R)F$J"$J132:S036$S4SL(S,0):S5SL(S,2):S6SL(S,J):S7SL(S,4J):D6D%(S,J)J$S4S6S5S6E10:94005T$S61D61(S40S50)E0:9400JY$S60E1:9400q^$(D6S6)2(S6S4S6S5)E9:9400r$S6S7(S6S5S6S4)S61D%(S,4J)1E1.5:9400|$S6S7(S6S5S6S4)E2:9400$S6D6(S6S4S6S5)E0:9400$S6D6E7:9400$S6D6E6:9400!$E35$E%(S,J)E: S,JT$"DEAL #"X;:K02:K1q$F12:TT13F18:K1$S03:K1K3:F0:9900:K1:F23%K09550%TT09550%S1"BID= "B$;&%S2"YOU"W(0);0%S3"THEY"W(1); N%9900::S,K:"&F)S1$(S)J$(S,K);: