ࡱ>   iir bjbjqq *ee=====QQQ6b Bb QJQQQQQ,,,*DJDJDJDJDJDJ+LNnDJ=,,,,,DJ==QQYJZZZ, =Q=QZ,ZZZ Q -Q6 Z~oJ0JZ;O@ ;Of;O=f,,Z,,,,,DJDJJ,,,J,,,,;O,,,,,,,,, :  hnhv3h1aJwhgdv3(/ =!"#$% 9  h3 !"#$%&'()+,-./0123456789:;<=>?@ABCDEFGHJKLMNOPQRSTUVWXYZ[\]^_`abcdefgklmnopqrstuvwxyz{|}~Root Entry Fe WordDocument*Macrosqۈ퉍VBA#ۈʼndirBspace#Emdash<oKeyDef R  !"$%&'()*+,-./0123456789:;=>?@ABCDEFGHIJKLMNOPQSTUVWXYZ[\]^_`abcdefghijklmnpqrstuvwxyz{|}~q0* pHdTemplateProjectQH@  = | lL J< 9stdole>stdoleP h%^*\G{00020430-C 0046}#2.0#0#C:\Windows\system32\e2.tlb#OLE Automation0MSForms>SFFrms3ED452EE1-E08F-101A-8-02608C4D0BB4EFM20.DLL#Microsoft : ^ Ob Library/;D~1u00}#0#k0 A4102A983-75F1-4B14-997F-A9EE2285EBDIYUsers\David\AppData\@Local\A\VBE\DT.exd;!.E .`0M ÊOfficĊOf@icŠ A12DF8D04@C-5BFAhB -BDE5IAA542h@gram Files\CommonGhShared\OFFICE12 5Op& 8.0 q@%B#bOThisDocumenPtG TiEDcueTn 2 QHB1B,!`O""+^CheckFourHandsGU! Ce@-k"buTr ad M27fO! ToolsSpellingGA%s@vpAl igN2\/%-'d0InbtDTia Hd#Is r@8Dia:o`d$J#W/0j, $ SpadeGSpd2ahHear^HaLt $WѰn @!Pa`cara]!]c\+l25 GlNorthSouthG NZF*hZo t`p'1 k r"Clubs(C5ubqsbr@{H_"hp| pRWes0"W"j2oa|vE!GE$"aethX W1fSo( zCopy1CPpy`1fSo'xhhShHPnSfh`"ck[j0a9~'(g(92?t_0mͽ|On`[qO\ep80=\*renamerG~rnmp6r20_ AcQS @]_sNW1'NWBNWS _0]_UTS_SZS_S__TE_EZE_E_d__SEuEEh __Biddr$BdC$ _@8}\`KeyD(efG2K3yDPf2?3EmXdaspE d=2Jh HP15p H,"O!0+Bsp@aceG spache:2:0h o ocridgeAuth orGur idguAutho6r /2/I :)I>΋ @Co@lorizeH?lAizJ3E 2@ i@؋@9onewGhon=w2K:s~#KDopenGшopnf2EImportFil@ImQ}tFl 2K 2U ! O^א!uUserForm1Gu*UeFm1A ~ O dM":( B @Showabout#G@Swb@#E% 2\ҤDy7$23$%)$23$2/Rio41$ $#FPreviousFZIBG&HGP`7eTvHohs@IIsI2o}2o(akZ*bOOxME (6 L< $`@hXk#Erases one space back, even symbols TemplateProject.Bspace.MAIN%x`<(t Pv xx  @x @h X @X _ 8lL$*\Rffff*1K50c47d0f*\R1*#17b*\R1*#c1 ""  0x <B@oXPAttribute VB_Name = "Bspace" Option Explicit Pub4 Sub Main()  ".Descri|Erases one  back, even sym0bolsnFPr@ocDataRInvoke_FuncTemplate"ject..MAINJ WordBasic.WW6_EditClear -1End #bOOxME(6 L $`xXkp%H0`B<Apat@l ming@h @X miH@lL$*\Rffff*1J50c47d0f*\R0*#f*\R1*#17b*\R1*#c1 "0(8x$B <B@oPHvAttribute VB_Name = "Emdash" Option Explicit Pub4 Sub Main() WordBasic.WW2_Insert Chr(150@End` |bOOxME (6 L<@ $`@k5Sets Backspace Key to use enhancement in macro BspaceTemplateProject.KeyDef.MAIN%x<@x @h <@X @H @8 @ ( @ lL$*\Rffff*1I50c47d0f*\R1*#17b*\R1*#c1 "(6(68`pxBspace <B@Emdashm <B@o*Attribute VB_Name = "KeyDef" Option Explicit Pub4 Sub Main()  ".Descri|Sets Backspace to use enhancement in macr8o B&XPr@ocDatadInvoke_FuncTemplate"ject..MAINJWordBasic.WW2_To(olssboard :=">,SCode:=8, Context:=1 '%Emdash"%109 &End tmbO#AutonewoBidding CheckEW*<CheckNEI^=xME(6 < <8 $`x|k>p%H@lL$*\Rffff*0Z50c464db$*\Rffff*0^50c464dc " ( Bo`XiAttribute VB_Name = "Autonew" Public Sub Main() Call BridgeVhor.LicenseChecker Endf BbOOxME RbOOxME (6 L< $`@X`kIIBidding TemplateTemplateProject.Bidding.MAIN@l  @V\ (`T %xx@X<  $z@X $|@H .@8 @0( @H @` @ @( R@ @ @ @ @ @h @NI@p h5NI@` ?NI@lL$*\Rffff*1H50c47d0f*\R1*#17b*\R1*#c1L "4    X X hx 0:44"$:$:@$:h$:  0  1  &( &@ Xh"p"""""""0H"P"h""""""8@H&P&h  (&"" &( 0@ HX"`x" x]x]fDo you want the layout centered horizontally (as opposed to beginning at the current cursor location)?Bidding Layout <%P' GHj $ If I < 36 Then QMsgBox "The layout will not fit in the space allocated", "Bidding Layout", 0 + 16 Goto Byeit End Ifk RdWho is the dealer? <B@`Z <B@b2Z <B@dHand <B@f &South <B@h &North <B@hjf 2 &West <B@hF &East <B@h <B@j ]F <!l!n.T T(po T <!r%n'V VGHj <B@ <B@ T!p@KTNorth <B@ East <B@ South <B@ West <B@KTSouth <B@ West <B@ North <B@mf East <B@KTEast <B@X South <B@ West <B@ North <B@KTWest <B@ North <B@ East <B@ South <B@SHxnp <B@ <B@ KT <B@ <B@ <B@ <B@f <B@ <B@KT <B@ <%fKT <B@S`L+1 <B@n@ <B@fn(H oôAttribute VB_Name = "Bidding" Option Explicit Pub4 Sub Main(), ".De0scri| TemplatefProcData?Invoke_Func7" ject..MAINKDim Centered  TheButton GWordBasic.MsgBox("Do you want the lat c& horizontally (as opposed to beginn aPcurr sor loca)?", L03 + 32LIf^Q1 ]n GoTo By(e 0  'I L<<<x%` "<BFP@ x]P @ ]@0 %>Cour $@` kYYXx P&x@(h @*X @,H @.8 P0X4@2$ @4 @6 @8 @:  F` k]Y0 I. I, lI2 o.I( ghte@Vl ="dc@*\ ment@XL " su@Z< dateP\8name@^( onGrP`$ @D 0+U\@@4 \X+@h$ @@,@ h,@ @ l@ i h0X@ ( 2`@X  `8  2ҋBH  4Pp 6`@ ` X 8ҋB@  B 8H @ x :`@  ` :ҋB@ t N8 <P@h d H <J=X A{l C @ T h Dm'v@ D m'v DYL&i@ 4 &i E@ $  El@ l0  EGa@  G P Hl IGa@ a8TD/P G@ a8hP H P x P  d` h @ \<B@ V@ =q@ Xsh ` @ @8 p@ @ P l@ J=<@ J==@ F @(t @d 2@(T @'@hD ('@@ @0 h2@  2?(D@ @  0I@@ XK@h @K@ hKhM@ W "@ @ @ @@ @X @ @ lL$*\Rffff*1G50c47d0f*\R1*#17b*\R1*#c1*\R0*#f*\R0*#10  "(0/@%`x-\D h p  # 8P`p =  (X(Pp  "   08 PX"p %   0 06 0 8H!`(2x   4." (fc0`Hbk "  & & 8 @5Pp5x &"" 0 0 0 98  P X 2[`  2[  V  8 @ *Z` @V  =  "  "S  *`( X `` $/    2  ( 8 P  h  p  *8     "E         % 8 @  H X "x   "A    ,  *O 0 "B@ h " , & " & % , 0 8&@ X&` x  " " 0 & "  (  0 zj `p|nx tj tj (0#8P X`px](Px p   "]](]@]X]p]]]]]] <%>' & &CourierK Courier NewKTerminalKFixedsysK Line PrinterKArialKT'( Fixed pitchSp'(Proportional fontsnH @8 W+ E+ Spade+ "Heart+ "tiDiamond+ "Club+ ".dlA+ K+ Q+ J+ 1+ 0+  *e.c * 0 $B *+  *ll ,ts .NI ,$  .$ " <%D ' 0 0 . , 2 (A@Fxe 2GHjd .l'4 .t.d 4 , .$ '4 .om. 4 GJj ,na* See if a card appears in more than 1 hand .pe="xs'6 ,xsd:se , .$ ri * , .$ < 6 '6 n 6 GLjxsd: , . *$  . 6+ @ . 6$ @1G10 . 6+ @j * < .eType> Hands are OK!Check East-West <B@PsdL+2 <B@- MSXMHNThe .$ "  suit contains more than one . 8$ @ Error <B@PamH`LXThe .$ " ' suit contains more than thirteen cards Error <B@PHJThe ,$   hand contains 4$T  cards. Error0 <B@PquenceHxHpoh@] ]8]P]h]]]] d'2j <B@new <B@ljj <B@<B@l 0ESKTBasic. 0t <B@S 0t <B@tn` <B@lj <B@j <B@v <B@f ,KT $B <B@xKT $B <B@x;NSn <%z+ dS__$ ,KT$ d$ d  <%D+ d), 1) KT$ d$ d  <%D+ d_$(0))n $ d <%D G$ d$ d <%0+ dj'V *$ d$ d *$ , . *+  , . *$ $` , . *$ ${  , . *$  <B@ <B@ , . *$ $ <B@ * , . *$ $ , . *+ $k , .$ - , .$   , .$ $Gj , .$ 0Gj .'X Z , . *$  Z$  * V Z Gj$  V ZGNj$ k Z- , . * $ 1Gj$ kH'Xj , .$ , .+, . Z'Vk Z* X Z , . *$ ' \Zk *Z Check on the Tens$ $ d1'^ ^ '$ d ^ $' `.+ `0KT  * ^ $ d , . * $  , . *+  * * , .$ , .+1Adjust kerning <B@f1t <B@ <B@ <B@f  Put extra space after the zero ^ $ d *0t <B@ (KT <B@st kerKT <B@1nkx <B@fB@ <B@v $B <B@xxtra <B@ero <B@f$ S'bn bGjkH*There is an unrecognized character in the ,$   .$ "  suit: , . *$  Error <B@P'2H (There is a 1 not followed by a 0 in the ,$   .$ "  suit Error <B@P'2H(There is a 0 not preceded by a 1 in the ,$   .$ "  suit Error <B@P'2H !Cards are out of sequence in the ,$   .$ "  suit Error <B@P'2H` N"There are duplicated cards in the ,$   .$ "  suit Error <B@P'2H  , .+H H o ZAttribute VB_Name = "CheckEW" Option Explicit Dim Legit__$(),@ CardsNumc2Player4Suitn Pub Sub Main() Re Z14b2, 4, 13p{z2 [mUserfont$ FtypeILK@MarkerP@roblem N}M1 4WordBa sic.[8$]SelectHse K  "Courier", NewTerminalFixedsysLine PrintAri ) ;t@#'A'  piHtch Ca"ElsC 0'?poral Qs End 2t^}ng1)" lE lC SpadeL2HeartL3BDiamond4ClubmCAKQJ5B1 60For I97 To 14S!IA Chr (16 -@ + 48Next L12AKEBlDWL) + LeftO)-K`z1 A>sit⁠t^, K, L,;J"_,IAIf e-@hen GoByIi?eI+ {} Ke"@ <> TWrongber "y'Te if a av appGs in more than 1 d-K-e+Nb$a1aǡ > 0b%?!A __( aN73u 13ToomanyoA "1"C !ZϢ,U$Ifd%0caME+N]Hb1MA!]N6MMx'@Duate`D`)i~M I'dMsgBox "H@ands aCO K!bEast-West@XWW7_Edit"_"L+2~`g:GE@ "!%Kw" s c@shVo E=My"Erro!0a)6E#].g|nthirte?"-1oW:LM":Gbtr(sAc.48JlubAPtv $Pb04Q(V?Qd05QrankÀ1AAOp&J4@essageOnePosiu"T0&valTenbaI#NS0P3(2_ lssView Hidden:=@0'!+Find ClQ 8matt ing 'WW2-bhar9"ESP048gfDir:=0Qfr / c:= BI/pODCPRight (u TЦ jF1wExtend#32aR ~o09$0$[ ?R OĆ, (Len()_~)C ; + 2 cX .PWcQ `^ 5?0 &B~j ?1"AxPMi>d Pϣ Asc(.)@96 Aз}) < 12S39!y= ǏD /WW6@BQ,'Q{Inpt Uq =o1I"䅠-" Or- G 1)A150hVoi0Wp 0dadZero^ A ~J a= vJ)`~I៯g0J2OutofSe߳quence  If Cardrank = J Then GoTo Dupl@icates E`nd If (J|6| \s__$(L, K, I - 1) < > "1"qBa`dZero ?lA$OKj-1 &Numccb) <+ z%7Nepxt Jd=0 sMessage$;+ u)-qpChar 76I ' Check on th e TenOnePositi = InStr(NS0),4P > TTestval)Mid7 I,f'Select@s!Ca"0"Forw= L @LenD NLPQ %I JF+'Adjust kerningH1 Word@Basic.?TypeKWW2_EditFi, DirLh8:=2 Imatacter Spac :=-4!' Put !@ra s@e afAzL)x < j2mZ*0"1 GFont^t(IG0 /:% % |@k/rCu _E%I=Right (1_Exte nd|Chr(13#' ` Y1/Els)bado HHFCų ##y`  :j1Msg Box "re is an un@gognizeXd c`cci"@Player)" SuitnameK:s@:n Er(ror X0@16;Problemo:=/ 1 not follow@by a"?W!0 ped 1 {o OS? "!OutofSes " a"opNpof s 1 L ?p x wO ,A d+_ _ +it?*׏`Void:p gFA'9ye0>ub T1bOOxMEP> L<<<% "<BFP@\ x] @L p]@< %>Cour $`Xx`xkYYCheck North-East hands FTemplateProject.CheckNE.MAIN 0P&x`(v`*t`,r`.pP0l`2Pj`4h`6f`8d`:bX F` xk~~]Y0 lI. o.I,  ms/ I2 @plexI( ted `Vzma, `*x ele`Xvkes `Z tte aP\pexTy`^@natioP`hpes `bfhild h0@h@@  @"@h@emen(@0ppx @, regu@( enum@h$Her tP@" be up' insta@  note'shortc@`  ch i) type @ y of(+@8 P+@` x8,@  `,@ @ @ @ @ ( `0@8  P  2@  ` 8 2p 8 4 6@  8@  8@   :@  8 :@H  ` <@  p H < H A C@  D@  D@  E@ 0  E@  GP H I@ 8T@ @ @x x`x  p X 0  d`  @ P <B|~@L @ < @( , @@  @  @ @X @  '@8 P '@ @  "@ @` x82@ `2`? D@ I@ K@ KHM@ 0W@p @ @ @ @ @x @8 lL$*\Rffff*1F50c47d0f*\R1*#17b*\R1*#c1*\R0*#f*\R0*#10  "(0/@%`x-\Dh p # 8P`p +  (V(*Pp &   08PX p !    + 02 0 8H`(.x   4." (f`0`Gbo "   "& 0 *@&p "7 &""09 B( np   "& ,/H x  "& ,/      *X@ @Tp  <  "  "R  *^ 8 $/@ `h    0    0  H  P  *1`      "E        $  ( 8X p"8   *D  "B  H "` ,p & " &  ,  &  8&@ X ` "h "x 0 & "    zj @PzjX tj hxtj #08@Px]@h   ( "H]P]h]]]]]]]](]@ <%>' & &CourierK Courier NewKTerminalKFixedsysK Line PrinterKArialKTrth-'( Fixed pitchteProjSp'(Proportional fontsnH @xN+ E+ Spade+ "Heart+ "tiDiamond+ "Club+ ".dlA+ K+ Q+ J+ 1+ 0+  *e.c * 0 $B *+  *ll ,ts .NI ,$  .$ " <%D ' 0 0 . , 2 (A@Fxe 2GHjd .l'4 .t.d 4 , .$ '4 .om. 4 GJj ,na* See if a card appears in more than 1 hand .pe="xs'6 ,xsd:se , .$ ri * , .$ < 6 '6 n 6 GLjxsd: , . *$  . 6+ @ . 6$ @1G10 . 6+ @j * < .eType> Hands are OK!Check North-East <B@PsdL+2 <B@- MSXMHNThe .$ "  suit contains more than one . 8$ @ Error <B@PamH`LXThe .$ " ' suit contains more than thirteen cards Error <B@PHJThe ,$   hand contains 4$T  cards. Error0 <B@PquenceHxHpoh]`]x]]]]]] d8'2 <B@fnew linej <B@h <B@l$WordBasic.WW2_EditFindChar Hidden:=1j <B@n 0rt <B@p <B@lj <B@h <B@v <B@f $B <B@x <%z+ d;NS__$(0) = WordBasic.[Left$](NS__$(0), (Len(NS__$(0)) - 2))gIf WordBasic.[Left$](NS__$(0), 1) = " " Then NS__$(0) = WordBasic.[Right$](NS__$(0), Len(NS__$(0)) - 1)$ d$ |+ d$ d$ ~+ d$ d$ $0 $ d$ d $ + dk$ d $ d$ $- $ d$ d $ + ddF-+ dk'V *$ d$ d *$ , . *+  , . *$ $` , . *$ ${  , . *$  <B@ <B@ , . *$ $ <B@ , . *$ $ , . *+ k , .$ 0Gj$ , .$ - , .$   , .$ $Gj'X Z , . *$  Z$  * V Z Gj V ZGNjk Z , . * $ 1Gjkh'X , .$ , .+ Z'Vk  Z X , . *$ ' \k * Check on the Tens$ d1'^ ^ $ d ^ $' ` `0KT * ^ $ d , . * $  , . *+  * , .$ , .+Adjust kerning <B@f1t <B@ <B@ <B@f  Put extra space after the zero ^ $ d 0t <B@ (KT <B@KT <B@nk <B@f <B@v $B <B@x <B@ <B@fS0'bn bGjkH*There is an unrecognized character in the ,$   .$ "  suit: , . *$  Error <B@P'2H@(There is a 1 not followed by a 0 in the ,$   .$ "  suit Error <B@P'2H (There is a 0 not preceded by a 1 in the ,$   .$ "  suit Error <B@P'2H !Cards are out of sequence in the ,$   .$ "  suit Error <B@P'2H N"There are duplicated cards in the ,$   .$ "  suit Error <B@P'2H  , .+H H o CAttribute VB_Name = "CheckNE" Option Explicit Dim Legit__$(),@ CardsNumc2Player4Suitn Pub Sub Main() .Descri North-East hands9Pro cDataEInvoke_FuncTemplate"ject.Aw.MAIN%Rre p14L t2, 4, 13 { 2 -6UserfonPt$ Ftype As I@nteger ILKMarker-zblemNmNMO13[WordBasic.[5$]ySel]Hse H> "Courier", NewTerminalFixedsysLine PriJ Ari 4  S= 1C'  piHtchCa"EXlse 0C'Mp@al js End 2| CvE1)ɄɄC `Spade@I2AHeartL3BDiamond4ClubCA KI VQI JI5" 1I6B0@For I7 To ,14)ICh@r(16 -+ 48 eNext IL12!K% @B\+L) + PLeftP)*K>1 DB , K, L,Jo!f,&Ic Ife- hen G2oBy#IK k= I+  KE"@ I<>@ TWrongb"L ' Te if a | appGs in m ore t@ 1 R+N` 0b% AAb9  aN7vK -N 13Toomanyk7NLa$a), I$> ?w%"1" Z%,TIfd%0c}aM )c`]Hb1MA]N=hMx'@Du@ۀD`)aiM M@RI2Msg@Box "HAu a!OK!US1gw0!WW7_Edit/"L+2`?g0G :U 50 \ " EK;"d sp cqPs]H+o _%M<"PErroA`06%#.nthirte?RtAoW:;LM":Gbtr.(Ac.48Jlub!W-ptv0$P4b0it(DOQ051prankA OJ~MessageԋOnePosiR͑TestvalTenbad3zNS"0 bY W)@} T1 'new l 0$lsñsViHiddpen:=`6g11F`indCl W@>matting@Y7WW23rhar 9 5!nd:=DiFrЖ:=01lr` t w @C Right< (au xtend rA% Q'[S'_aT~, (Len()W2)'pU^0IU ЂARTrim$PX(L Asc(cV)) <j<8 ! vjX{Whilc5 ; W0`Ѷ: "-`c fD&JQ}Mid IARQR5)96 A@0112A?<< /*WW^6?BQ |Int U( _opIa0` End If If Cards__$(L, K, 1) = "0" Then GoTo BadZero  -" Or 4Asc(k150kVoidhAOK0 @ For J1 14IR LegitJ)Z/2 I |> %p Rr(ankJLOutofSequence *=UDuplicates Js6Z0I -<> "1.6X-1I%NumcBR+ I=Next J9w9Message$@z:)ŤCharFI ' Check on the Ten`OnePositi@= InS tr(NS0),R@@( > CTestval)Mid Iҁ'Selects!Caw@lIALL|enD NLPQ %I E%E_@)N'Adjust kerning WordBasic.Type+GWW2_E`ditFi`Y,0 Dir&`4:=2S a$mat@acter Spac`:=-G' Put Tra s e af aFz#,C)8 < j2Pw0" GFontt(!G䤤6% % | h9/rCu _E%I=Right (1_Exte nd|Chr(13$I ` Y1%Els)bado HHFY ##y` 6 a:GMs@gBox "re is an un@gognized c`cci"@Player)!OL)"z+ SuitnameaKcs :EARError,0 16Problem g @ : ynot @follow by aX ! " @ z / @ ped 1 t {$ "!Z R" a!oPNof s$ !! DWO EA ~dՒ+_ _ +i* w :  p N'ByeB>ub CheckNSj<CheckNW =OneHandrenamer z1bOOxMEP> L<<<%H "<BFP@\ x] @L p]@H< %>Cour $@` xkYYXx P&x`(vso`*t`,rd.`.pP0Xl`2jsp`4h`6fk.`8d`:b F` xk]Y0 I. I, lI2 o.I( subs`Vz/> `*xform`Xvp="a`Ztt naP\ptitu`^n ' & &CourierK Courier NewKTerminalKFixedsysK Line PrinterKArialKT'( Fixed pitchSp'(Proportional fontsnH @8 N+ S+ Spade+ "Heart+ "tiDiamond+ "Club+ ".dlA+ K+ Q+ J+ 1+ 0+  *e.c * 0 $B *+  *ll ,ts .NI ,$  .$ " <%D ' 0 0 . , 2 (A@Fxe 2GHjd .l'4 .t.d 4 , .$ '4 .om. 4 GJj ,na* See if a card appears in more than 1 hand .pe="xs'6 ,xsd:se , .$ ri * , .$ < 6 '6 n 6 GLjxsd: , . *$  . 6+ @ . 6$ @1G10 . 6+ @j * < .eType> Hands are OK!Check North-South <B@PsdL+2 <B@- MSXMHNThe .$ "  suit contains more than one . 8$ @ Error <B@PamH`LXThe .$ " ' suit contains more than thirteen cards Error <B@PHJThe ,$   hand contains 4$T  cards. Error0 <B@PquenceHxHpoh@] ]8]P]h]]]] d'2 <B@fnew linej <B@h <B@l$WordBasic.WW2_EditFindChar Hidden:=1j <B@n 0rt <B@p <B@lj <B@h <B@v <B@f $B <B@x <%z+ d;NS__$(0) = WordBasic.[Left$](NS__$(0), (Len(NS__$(0)) - 2))gIf WordBasic.[Left$](NS__$(0), 1) = " " Then NS__$(0) = WordBasic.[Right$](NS__$(0), Len(NS__$(0)) - 1)$ d$ |+ d$ d$ ~+ d$ d$ $0 $ d$ d $ + dk$ d $ d$ $- $ d$ d $ + ddF-+ dk'V *$ d$ d *$ , . *+  , . *$ $` , . *$ ${  , . *$  <B@ <B@ , . *$ $ <B@ , . *$ $ , . *+ k , .$ - , .$   , .$ $Gj , .$ 0Gj'X Z , . *$  Z$  * V Z Gj V ZGNjk Z , . * $ 1Gjkh'X , .$ , .+ Z'Vk  Z X , . *$ ' \k * Check on the Tens$ d1'^ ^ $ d ^ $' ` `0KT * ^ $ d , . * $  , . *+  * , .$ , .+Adjust kerning <B@f1t <B@ <B@ <B@f  Put extra space after the zero ^ $ d 0t <B@ (KT <B@KT <B@nk <B@f <B@v $B <B@x <B@ <B@fS0'bn bGjkH*There is an unrecognized character in the ,$   .$ "  suit: , . *$  Error <B@P'2H@(There is a 1 not followed by a 0 in the ,$   .$ "  suit Error <B@P'2H (There is a 0 not preceded by a 1 in the ,$   .$ "  suit Error <B@P'2H !Cards are out of sequence in the ,$   .$ "  suit Error <B@P'2H N"There are duplicated cards in the ,$   .$ "  suit Error <B@P'2H  , .+H H o *Attribute VB_Name = "CheckNS" Option Explicit Dim Legit__$(),@ CardsNumc2Player4Suitn Pub Sub Main() Re Z14b2, 4, 13p{z2 [mUserfont$ Ftype As IntPeger ILKMarker-ProblemN M1 fWordBasic.[j$]Selec"tse | "Courier", NewTerminalFixedsysLine0 PriJ Ari  SH= 1C'  pitchCaa"Else 0EC'Mporal js End 2EvAE1)N@ɄAɄC Spade@ I2HeartL3BDiamond4ClunbFCAK[QJ5UB160For I97 To 14S!IA Chr(16 -!+ 48dNext I|L12a!K% `<\+L) + OLeftO):K1 D@itBe, K, L,Jf,IA,Ife-@hen GoByIK dk= Ig+ KOe"@ <> TWrongb"L 'Te if a { appGs in more t@han 1 dt r+N` r> 1B'a' > 0b% !A9/B aN7u$ 13Toomany "9pM7NLC$(!,| I%> aB "1"C !Z,U$Ifd%0c}aM )c]Hb1mMA!]NMMx'@Duate`D iM M@RalI'dMsgBox "Hands aCXOK!bNh-South B'WW7_Editb_"L+2~`=:G@ " yK<" sY{ cqysX+o _%M="ErroA`06%$#.nthirte?RtQo W:lM";Gbtr(Ac.48gJlubAWptv@$p4b0TQ(4V_QP51rankAOJ~MessageԋOnePosi͑TestvalTenbad铝NS"0 rY W)@}T1 'new l 0$lscsViHidden:=p6g11FindCl0WP>mattingPY7WW23rhar 9 5nd:b=DirЖ:=0Alr` t _ w @C Right (u xtend} A%0Q'[{S'_at~,@ (Len()W2)'U^0IU ARTrim$`X(L Asc(cV)) x Qran k#JOutofSequencne 6T7=Duplicates 4End Ms6Z0u - 1) <> "1x6-1 @Numc <+ z%7Next Jr9Message$puCharFI ' Check on the Ten`OnePositi@= InStr(NS0),R) @( > 0H*Testval)Mid7 I,f'Selects!CakIALLen@* NLPQ %I JF+'Adjust kerningH1 WordBasic.a?TypeKWW2_EditFi@b`Y, Dir&`4:=2S a$mat@acte@r Spac`:=-G@' Put Tra sa e af aFző$$,C) < j2mZ 0" GFontt(!G䤤+6% % | h9/rCu _E%I=Right (1_Extend|Chr(13?$I ` Y%Els)bado? HHF ##y` `a:GMsgBox "re is an un@gognized Vc`cci"@P layerAL) " SuitPnameKs@:n Error X0@16;Problem:= ynot follow by aX 1 " @ z @ ped 1 t $ "'!Z " a!oPNof s$ !! DWO EA dՒ+_ _ +i* Aw Void: p N'9ye0b>ub 1bOOxMEP> L<<<%H "<BFP@\ x @L +  @H< i.ex $@` xkYYXx P&x`(vso`*t`,rd.`.pP0Xl`2jsp`4h`6fk.`8d`:b F` xk]Y0 I. I, lI2 o.I( hnst`Vz.ac.`*xgoze`Xvs sc`ZtemenP\pment`^nrl.oP`hname`bfcomp(0@Ph@x@  @"@(@xP are@pp08 @, name@( n="h@($1/03@X" xs:ap0' @  xml:X'This i@  or aX)DC ele@ xt c+y with@ ttri+ is al@  8,@  ,@` @x @ @ @P  0@  2@@  20 4X 6@h  @ 8@  h 8@  :@  :@  <@P  0  <@  Ah C@x  P D@  x D@  E@ E G x Hh I@ 8T@h @ @x 8hP 8  0  p hH ` d`P X @ P <B|~@L @ < @ , @  @ @ @ @p  H '@  p '@ @  "@` @  8 2@ H 2X ?p D@ hI@ K@ KM@ W@0 @H @ @x @ @x P@ lL$*\Rffff*1D50c47d0f*\R1*#17b*\R1*#c1*\R0*#f*\R0*#10  "(0/@%`x-\Dh p # 8P`p +  (V(*Pp &   08PX p !    + 02 0 8H`(.x   4." (f`0`Gbo "   "&8 P *`& "7 &"" 0 90 BH n   "&@ ,/h   "& ,/   0 8 @ *X` @T  <  "  "R  *^( X `` $/    0  ( 8 P  h  p  *1      "E        $ 8@ H Xx "8   *D 0 "B@ h " , & " &  , 0 8&@ X&` x  " " 0 & "   ( 0 zj `pzjx tj tj (0#8P X`px](Px p  han  "]](]@]X]p]]]]]] <%>' & &CourierK Courier NewKTerminalKFixedsysK Line PrinterKArialKT'( Fixed pitchSp'(Proportional fontsnH @8 N+ W+ Spade+ "Heart+ "tiDiamond+ "Club+ ".dlA+ K+ Q+ J+ 1+ 0+  *e.c * 0 $B *+  *ll ,ts .NI ,$  .$ " <%D ' 0 0 . , 2 (A@Fxe 2GHjd .l'4 .t.d 4 , .$ '4 .om. 4 GJj ,na* See if a card appears in more than 1 hand .pe="xs'6 ,xsd:se , .$ ri * , .$ < 6 '6 n 6 GLjxsd: , . *$  . 6+ @ . 6$ @1G10 . 6+ @j * < .eType> Hands are OK!Check North-West <B@P@ TWrongb"L ' Te if a | appGs in more than@d r+N` r 1B'aG > 0b% AA9/B aN7v$ 13Toomatny "9p7NLc$(!, I%> aB "1"C AZ,U$yIfd%0caM_ )c]Hb1MA!]NM&Mx'@Du!ateD @iM =M@RalI'dMsgBox "Ha nds aCOK!bNh-W8est`BWW@7_EditB_"L+2~`:Ge0 " y"K<" s{ cqysH+o _%M<"ErroA`z06%#.nthirte?RtAoW:\M" :Gbtr(Ac.48Jٲlub1Wptv0$`4b0DQ(DOQ@5á1rank)AOJ~Me ssageԋOn`ePosi͑T)valTenbad'q{NSa$0 5Z*~TQ1'new l` %DlsӪsViHidden:=7W2FindClX?mattingZ7WW2"5rhar 09 50nd:=1fDir@p:=0mr` t /w  BC Right (v xtend 򁱶R'[=å'_ѧ, (Len()Y2)'V^cJBW @ARTrim$Y(L pAsc(cV)) <kb>8 ! k|Whilc5  W0`A: "-d EJeMid IA TbE)96 AQ012#A<< /*WW6?BKUQ |Int U( oIa0%p30-" Or 13 1*P50ӕ2hVoid7 If Cards__$(L, K, 1) = "0" Then GoTo BadZero AOKp0 AFor J1r D14(.IALegitJN)^2 4Ix > Ku Rr(ank$JOutofSequehnce7=Duplicates EndF Ms6[[I -<> "1w'6-1 @Nu 0H*Testval)Mid I'Selec:ts!Ca@kIALALenD NLPQ %I Ja@+'Adjust kerning0 WordB asic.@?Ty peFWW2_EditFib Y`, Dir% 4:=2S a$mat@acter Spac`:=-'' Put !Sra s e af !FzB$#B) < *2-Zy0"AFFontt(!`GĤAd6% %@ { /arCHu _E%I=Rig`ht (1_E`xtenda|Chr(13H' ` Y&Elsbad`p$!`IOHFF $ y A :&MsgBox "@re is an un hognized cCdi#"PlaHyerL)" SuitnaTmeKs@:Error%Y0@16ub ,bOOxMEP> LL<< $X`@hk^^Sets template for single handTemplateProject.OneHand.MAINP&xP@h @X PT&@D `B8 ` k a@2l X%p<BT@< @, @@ @  (@X Sets@ est@ East@ @ @ @ .<@h @X @ H @88 @P( @h @ @ @ 8XlL$*\Rffff*1C50c47d0f*\R1*#17b*\R1*#c1*\R0*#f*\R1*#129*\R0*#10k " (08 @ -P#`(p(9&N.  * 8 0  "&"(0@&X"p& 2&; 0& "8&H .`&; 0&"& . &;P x0&"& 0&; 8 H,X x (")& & 4  @"P"` p"+ 4-08\8#p" & 4 &"   " ( 40      "0  H  X  ` h x x]]]]]]@FH <%>' & & <B@ <%'d.x 0 <B@ <%z+  $  <%D$ vThe current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.Insert One Hand <B@P(<喚H`kXWordBasic.SentLeft 2, 1$Sel__$(0) = WordBasic.[Selection$]()it2If Asc(WordBasic.[Left$](Sel__$(0), 1)) <> 13 Then WordBasic.MsgBox "The current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.", "Insert One Hand", 0 + 16emGoTo ByeEnd If <B@8",  <B@ 2.5 in <B@  $B <B@j <B@NS <B@j <B@+ WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ <B@ $B <B@j <B@NH <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@ <B@ $B <B@j <B@ND <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ <B@ $B <B@j <B@NC <B@j <B@* WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ <B@ <B@2.5 in <B@   <B@ <%'    GA@jk j <B@ <B@lj <B@NSt <B@ <B@l <B@  <B@f <B@x <B@"$ <%'   <%&'  * <B@($k <%,' .P  $T+ .OneHand$ .$ . <%0 '   <B@( <B@f <B@lj <B@NSt <B@ <B@lj <B@ <B@vHoX]The layout will not fit on the current page. You may either let it continue or insert a page break before the beginning. Do you want the program to insert that page break?Please answer Yes or No <%P'2 2KTL-5 <B@ <B@4KTnoAttribute VB_Name = "OneHand" Option Explicit Pub4 Sub Main(), ".De0scri|Sets templafor single hh@ProcDataLInvoke_FuncTG" ject..MAINDim Userfont$ Star tlineEnd BMarkNumbookmsBnum As IntegerrrcGoTo -1:$ OBy5  D\WordBasic.[FN]  ^] SelIn fo(10Rerel__$((SentRight 1, 1 ~  G@Rz$I$If;c([pLeft)) <> 13 0Then: 2Ms@gBox " curr! paragraph c@?xt, `so in@lcannot peed. Place thes\in an ty resAz.", "IBee B, 0 + 16 lh If ' L; 2K'F<L'qL'@w~LL0uQ&'g&'&h&.ofLl 0 FormatTabs Clear`All:=P2"x2.5@ x"#WW2_9Chr(>9 ^"Ma ChLcter Hidden "NSu 6q Syl "@P17 Hck.er70, :=gUnicode:=Fals@#} Pcp'&&"|NH&h0&&&69&m&69&&_&ert kMo_MJMD_&_&tGL68_&erL68_&t&?ra #;/_&q*C/@Q&-ӓ O67Or967O9'ce9v s RP,STL7`fw0wЅToolsRepagin [al_p6wB > sAdnd< A PastPsIPtssViewYYEditFindRbStdf0^Y ] , DirW:=V!imUp!gType 2y ExtendC1Down 5 Bt: Y=\P21oyAS;qt  óeletg{!"h EeA*Countus?ѮStr(& ; [, LenC) - 1py`r/*t/*2_/*/*)*`//*2ngi 6DQ'MS(:`BrivV>CKeyPsped (layout will fit @geYou may eir ' inue apge bre`ak bebeOnCDo p wantűm tPapJa?Ї"P`seswxYes)QNo4@'32`$0"= Ca1-3D 7_q"5"L-5SDnW7P` B\Bpda `;c(6 L< $`x8kp%0H< x  @x @`h @xX @H @8 H@lL$*\Rffff*1B50c47d0f*\R1*#17b*\R1*#c1 "(0@x Hand &Layout <B@oH@Attribute VB_Name = "renHr" Option Expl@icit Pub4 Sub Main() WordBasic.WW2_RMenu 6, "Hand &Layout E| rU~~~~~~~~~~k   % ' ) + - / 1 3  5 7  9 ;   ! # = ? A C  E  G     __SRP_0 K__SRP_1 __SRP_2__SRP_3 gK*P""!!            rU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~F 7R(M"p  ##a "a H8Q Ha $i Q Aa &i (Q ia i Q a (i @Q a *i XQ "a i Q "a ,i pQ a .i Q "1a 0i Q "Qa 2i Q "qa i Q [a 4i Q a 6i Q "a oQ Ha 8i PQ a :i hQ ")a 1rQ HAa YsQ HYa atQ Hqa "Au(Q Ha <i `Q a >i xQ a @i Q a Bi Q a  Q  a Di Q 1a i Q Qa Fi Q ia QQ "..../a aH5a i Q a 645Q5555!6Q6a a0 Q   TemplateProject ThisDocumentCheckFourHands ToolsSpelling InsertDiamond InsertSpade InsertHeart Pastecards NorthSouth InsertClub NorthWest NorthEast FourHands Copycards CheckHandEastWestCheckOnerenamerOneHandCheckNWCheckNSCheckNECheckEWBiddingKeyDefEmdashBspace BridgeAuthor ColorizerAutonewAutoopen ImportFile UserForm1 ShowaboutForm UserForm2ImportPreviousFIileF /C:\PROGRA~1\COMMON~1\MICROS~1\VBA\VBA6\VBE6.DLLVBA A i0 F -C:\Program Files\Office12\Office12\MSWORD.OLBWord 9a@0FC:\Windows\system32\stdole2.tlbstdole File_Save AutoClose 9aP.E .`M C:\Windows\system32\FM20.DLLMSForms aa`AuK" 1C:\Users\David\AppData\Local\Temp\VBE\MSForms.exd A ai pL-[DR?C:\Program Files\Common Files\Microsoft Shared\OFFICE12\MSO.DLLOffice 1 Y Main LicenseCheckerDocument_Close File_Exit  davidjweiss.com F Fy k FPath $bridgetemplate.lic \b F 4Scripting.FileSystemObjectFileExistsGetFile  OpenAsTextStreamReadLine Close   Unregistered NS NH (Unregistered) TYour personalized license file is invalid. VIf you are a registered user, please go to . to report the problem.. If you do have a license file, please make sure it is in the same folder as the program. HiddenX ZThe personalized license file needed to identify you as a registered user of the Bridge Author's Template was not found, so the program will have only limited functionality.& The template will allow you to enter one hand and/or a bidding layout. dTo purchase a license (only $10.95), please go to  Registered to " (Registered to  ) Edit F F F F Copycards Pastecards Insert "North-East Layout East-West LayoutInsertPara "North-West Layout $North-South Layout "Four Hands Layout Tools Check Hand(s) File @Import Deal(s) From .Lin File...y VBE6.DLL a ax  ai 0 orth a P a p aS %YoAM*L F{xgImage1 ; 1 ` SuitCheck >>H  Courier Courier New Terminal Fixedsys Line Printer Arial Spade Heart Diamond Club A K Q J 1 0 Deal is OK! Check Four Hands L+2EditGoTo The  : suit contains more than one  Error N suit contains more than thirteen cards  hand contains   cards.  ToolsOptionsViewEditFindFontFindEditFind -EditClear Insert TThere is an unrecognized character in the   suit:  PThere is a 1 not followed by a 0 in the  suit PThere is a 0 not preceded by a 1 in the  BCards are out of sequence in the  DThere are duplicated cards in the ToolsSpelling a  p a   aj  ah  a  Bridge.DicIgnoreAllCaps "IgnoreMixedDigitsAlwaysSuggestCustomDict1 (ToolsOptionsSpellingEditPasteSentLeftEditCut L+1WW7_EditGoTo North: South: East: West: L-13 "Insert North-West NorthWest L-12 "Insert North-East NorthEastCards bThe cursor is not currently within a deal layout.X ZThe layout will not fit on the current page. You may either let it continue or insert a page break before the beginning. Do you want the program to insert that page break? .Please answer Yes or No L-18 &WW7_InsertPageBreak L+18 Copycards Error GetBookmark$ EastWest lYou have selected a deal which already has four hands. OneHand ZIn which position should this hand be placed?BeginDialogOKButtonCancelButton HandOptionGroup &SouthOptionButton &North &West &EastEndDialogCurValuesUserDialogHand Dialog, The hands are not marked for copying. The layout must be created from the Edit Menu.EndOfDocumentB;AkirukiQgyg GoBack_ vCopycards has put the hand(s) on the Clipboard. To place the cards into a new Four Hands layout, move the cursor to the desired location and then click on Pastecards from the Edit Menu. F CheckHand Error CheckNENameRunShowWW2_ToolsMacro CheckNW CheckNS CheckEW CheckFourHands CheckOne/ The deal layout is not marked for checking. The layout must be created from the Edit Menu. Insert East-West L-6 L+6 >>0%  Hand is OK! Check One HandWW6_EditClearSpacing  suit : Hand &LayoutWW2_RenameMenu Insert One Hand L-5 >>`&-p&:\  Hands are OK! Check North-West >>   "Check North-South >>p'  Check North-East >>' '   Check East-West5 Do you want the layout centered horizontally (as opposed to beginning at the current cursor location)? Bidding Layout $Who is the dealer?  East  South  West  North BspaceKeyCodeContext 0WW2_ToolsOptionsKeyboard Emdash F] FR F#=h8+3qG?,2qLY{{Y{ bbP TXt\ntec8es<Dte a  qx| 9 8 7 6 5 4 3 2 sv| |mb| |pg| |mb |pg p Pass Dbl r Rdbl NTCҋB `ҋB ` Rotation OptionsƏYl|) Cannot find recently opened .lin file. Please use the other Import Deal option. 0Bridge Author's Template bbP P8<D  6:\Bridge Base Online\hands\ ! ,Inserts Spade symbol into text via Control+S  TemplateProject.InsertSpade.MAIN *Sets template for North-South play problemTemplateProject.NorthSouth.MAINLN TeststringN1 1i1 2Q2( 238 23H 23X 2 4h 24x 2C Hi1MarkerKLProblemFonttypeTemplateProject.NorthWest.MAIN *Checks the spelling in the active document "TemplateProject.ToolsSpelling.MAIN .Inserts Diamond symbol into text via Control+D "TemplateProject.InsertDiamond.MAIN ,Inserts Heart Symbol into text via Control+H  TemplateProject.InsertHeart.MAIN 1Pastes hands from clipboard into four hand layoutTemplateProject.Pastecards.MAIN +Inserts Club symbol into text via Control+CTemplateProject.InsertClub.MAIN .Sets template for North-West defensive problem /Sets template for North-East defensive problemsTemplateProject.NorthEast.MAINSets template for four handsTemplateProject.FourHands.MAIN /Copies cards from one or two hands to clipboardTemplateProject.Copycards.MAINDir_LastSets template for East-WestTemplateProject.EastWest.MAINChecks single hand TemplateProject.CheckOne.MAINSets template for single handTemplateProject.OneHand.MAINCheck North-East handsTemplateProject.CheckNE.MAINBidding TemplateTemplateProject.Bidding.MAIN5Sets Backspace Key to use enhancement in macro BspaceTemplateProject.KeyDef.MAIN #Erases one space back, even symbolsTemplateProject.Bspace.MAIN>rU~| <   $ krU $`nrU $`$`$`$`$!`$I`__SRP_4__SRP_5,__SRP_6__SRP_7BrU~| 4) I  9 Y 9Ya q ay ! Q 1Aii aA<  3 $ `C( 2$ 4 XA`16Ctl*#lt*1t/3$ 4  h>1$)  PNt@PB 5t@PB @N(%(%@B 0N0A`1p5 0lpJ@ qlF(llpM@ :]/ll'6llql;llpM@  `1 5 qdll JdDld(ll M@  qd/6 lf q`7l:d:(llpM@  0qh/6lh lhqhl`lhq` lf> ldl` l C,K$ 4  hl/)7l$*#$ 4  l/)T''' #*#|*#xl(*#t*F 2|xt6K$ 4  hl/)7l$*#$ 4  l/)T''' #*#|*#xl(*#t*F 2|xt6K$ 4  hl/)7l$*#$ 4  l/)''' #*#|*#x #t*#p*#l #h*#d*#`l(*F 2|xtplhd`6 DK$ 4  hl/)BKl$ *#l,*#|!*#x$ 4  l2|x)OzX\:"%$  H# $\ (%lX)\cTbPkzD%\:"%$  H# $\ ,%P &l'0/)\PMPkzD%\:"%$  H# $\ ,%QPL)\;pJ kJh L & kJ L &cL zdTOzX\:"%$  H# $\ (%lX)\cFbPkzD%\:"%$  H# $\ ,%P &l(0/)\PMPkzD%\:"%$  H# $\ ,%QP@)\;p> k> @ & k> @ &c@ zdFOzX\:)%$  H# $\ (%lX)\c:B bPkzD%\:)%$  H# $\ ,%P &l*0/)\P6 MPkzD%\:)%$  H# $\ ,%QP4)\;p2 k2 4 &' k2' 4 &c4B  zd:= OzX\:)%$  H# $\ (%lX)\c. bPkzD%\:)%$  H# $\ ,%P &l+0/)\P MPkzD%\:)%$  H# $\ ,%QP()\;p& k&d ( &{ k&{ ( &c(  zd. OzX\:)%$  H# $\ (%lX)\c" bPkzD%\:)%$  H# $\ ,%P &l,0/)\P MPkzD%\:)%$  H# $\ ,%QP)\;p k  & k  &c  zd" OzX\:)%$  H# $\ (%lX)\c>bPkzD%\:)%$  H# $\ ,%P &l-0/)\P2MPkzD%\:)%$  H# $\ ,%QP)\;p k   &# k#  &c> zd9 OzX\:)%$  H# $\ (%lX)\c bPkzD%\:)%$  H# $\ ,%P &l+0/)\PMPkzD%\:)%$  H# $\ ,%QP)\;p k`  &w kw  &c zd OzX\:)%$  H# $\ (%lX)\cbPkzD%\:)%$  H# $\ ,%P &l.0/)\PMPkzD%\:)%$  H# $\ ,%QP)\;p k  & k  &c zdOzX\:/%$  H# $\ (%lX)\c:bPkzD%\:/%$  H# $\ ,%P &l00/)\P.MPkzD%\:/%$  H# $\ ,%QP)\;p k  & k  &c: zd5OzX\:1%$  H# $\ (%lX)\cbPkzD%\:1%$  H# $\ ,%P &l20/)\PMPkzD%\:1%$  H# $\ ,%QP)\;p k\  &s ks  &c zd t\L@4(@ p$Pt(,0P|xtplhd`\P@ %$ @ %$ @ %$ @ %$ RnrU Y!!!  4!a!`rU @nrU~| __SRP_8d__SRP_9o__SRP_a__SRP_b9"I a"""-:d%t$ @tD`1xt5D;'f4:dNDDt$ <t t6D4#x@t$ @tth(xtD4krU $`nrU $ 02      !"#$%&'()*+,-./14h56i89:;<=>?@ABCDEFGHIJKLMNOPQSTUVWXYZ[\]^_`abcdefgrjklmnopqtuvwxyz{|}~rU~|  B9"I ""!#Q## $%Y&&&&!'-Q'''##a"" ()(I(a((((( ) Q))**i**+)+Q++ ,y,Q,,.-A-q- \^YXi_$KK u,  u,-:,%<$ @< `1x<5 #x@<$ @<<((, %<$ @< h<((,%(%<$ @< <9:, %<$ @< `#l;/<5 N: %l@@(%<$ @<   /<5 .:, %:%(%<$ @<<"(,%<$ @<<&(,%<$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<":,%<$ @<<&(,%<$ @<<&(,%<$ @<<<$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":, %<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,!%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,"%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<<$ @<<<$ @<<0   <$ @<<5 &(,%<$ @<<":,#%<$ @<<&(,%<$ @<<":,$%<$ @<<&(,%<$ @<<&(,%<$ @<<<$ @<<0   <$ @<<5 &(,%<$ @<<":,%%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,&%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,'%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,(%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<<$ @<<h(, ]t <$ @<)<((, %<$ @< X<"X(,]p Xhc'  *&(,%<$ @<+<<$ @<,<&(,%<$ @<-<4:,%(%(%<$ @<./0<<$ @<,<"(,%<$ @<1<"(,%<$ @<2<<$ @<3<"(, %<$ @<4<+(,%<$ @< UpB<5 kB4:5%B@<$ @< `1T<5 -T@(%<$ @<67<4<$ @%($%h$ @hlhjl(X]3":X?%h$ @h@hh$ @hAh(X]3,lhf`9$ `nrU P$ `$ `$ `( `/(! `/(I `/(q `/n__SRP_cU__SRP_d__SRP_ei__SRP_f!rU~|  0 iC-B| DI BqDD!EIEEEEFFF!G9"""!#Q## $ 0Y& @IA 76 ai7 8!9A)BQ9i9I(999 :!:9:Q:i::I q ::::;a;y;7 <&&&!'Q'''##a"" ()(Y<y<<<<==9=Y=y=====>a((((( ) Q))**i**+)+Q++ ,y,Q,,.9>A-q-q>>>> ?1?Y?? @?Q@@@@! !I}!K9KQKiKi}}}}}}}~)~I~q~~~~~9Qy \^A_Xi__A@ u"  u"-: %$ @ `1x5#x@$ @ ,( %$ @ "qt5(( %(%$ @ 9: %$ @ `#l;/5N:%l@@(%$ @   /5.: %:!%(%$ @ "<6vJql # vT  4J' $pT5 kT]kT %PkT@kT=   bcbM @ & bd'$( w0D7'l'|:)N: *N^+pR6|l)kRpj kj4B kjB`M @ ,  0M@ , d :2d6-*pFbc`kb 0pF kb bd` kFu7'l'|:)N: .N^+pR6|l)kRp^ k^es k^sUD ^cZ DpX kX ; kX^M @ &k^ 0 k^/p(k(pV kVv6JM @ 0  1p$/5!k(k^2p&Gk&k(Dk(k^@M @ 3 1p$/6p*k^4pL kLpL%8pP <pP <pP <pP(kLk^@M @ 3@5@: 5]3 <6C<bc*Ikb8kb8kb8*#*18/` c&)(k`08 bc 8 .kb8l<, kbp:8  bd   ak:p k f  k }  k   k  ^M @ ? H^M @ @ ^dZbc `c 6c C(k6kbk`8.M @ 3-:A]36 k6kbk`8.M @ , -:Bkbk`8Jk6kbk`8.M@| 0 -|l`#kbk`8/6|l  6d `d bd k$@c@p kC @ kZ @ kq @ k @4Ɠ`cp k k`8C,+k`8k`8l,k`8k`8C,+k`8k`8l,k`8 k` c@p k @ k @ k @ k @ khk`8C,+k`8k`8+k`8k`8+k`8k`8l,k`8 k`c@<C lC0 DT< lD0 CT<c@p k @a k6 @a kM @a ka @ kk`8C,+k`8k`8+k`8k`8+k`8k`8l,k`8 k`@<C lC0V DT<r lD0p CT<rc@p k @ k @ k @ k @ `d o<C l-0  ET<X lF0' GT<X lD0A HT<X lC0X IT<"( %$ @ J&( %$ @ KL": M%$ @ K0  $ @ N5&( %$ @ OP": Q%$ @ N&( %$ @ OR": S%$ @ N&( %$ @ OR&( %$ @ OP$ @ T qp": M%$ @ K0  $ @ N5&( %$ @ OU": V%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T0  $ @ N5&( %$ @ OU": Y%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T0  $ @ N5&( %$ @ OU": Z%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T0  $ @ N5&( %$ @ OU": [%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T$ @ T,: M%(%$ @ K\": ]%$ @ K0  $ @ N5&( %$ @ OP": ^%$ @ N&( %$ @ OR": _%$ @ N&( %$ @ OR": `%$ @ K0  $ @ N5": a%$ @ N&( %$ @ OR": b%$ @ N&( %$ @ OR&( %$ @ OP$ @ T": ]%$ @ K0  $ @ N5&( %$ @ OU": c%$ @ N;'|f: WN$ <  X6|08$ <  X0  $ @ N50  $ @ N5": `%$ @ K0  $ @ N5&( %$ @ OU": d%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T": ]%$ @ K0  $ @ N5&( %$ @ OU": e%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X0  $ @ N50  $ @ N5": `%$ @ K0  $ @ N5&( %$ @ OU": f%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T": ]%$ @ K0  $ @ N5&( %$ @ OU": g%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X0  $ @ N50  $ @ N5": `%$ @ K0  $ @ N5&( %$ @ OU": h%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T": ]%$ @ K0  $ @ N5&( %$ @ OU": i%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X0  $ @ N50  $ @ N5": `%$ @ K0  $ @ N5&( %$ @ OU": j%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T,: ]%(%$ @ K\,: `%(%$ @ K\$ @ T": M%$ @ K0  $ @ N5&( %$ @ OP": 5%$ @ N&( %$ @ OR": k%$ @ N&( %$ @ OR&( %$ @ OP$ @ T": M%$ @ K0  $ @ N5&( %$ @ OU": l%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T0  $ @ N5&( %$ @ OU": m%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T0  $ @ N5&( %$ @ OU": n%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T0  $ @ N5&( %$ @ OU": o%$ @ N&( %$ @ OU;'|f: WN$ <  X6|08$ <  X$ @ T$ @ T,: M%(%$ @ K\lt q,$ @ p,( %$ @ "ql5llllltq, q&( %$ @ rU$ @ s&( %$ @ tU4: V%(%(%$ @ uvw$ @ s"( %$ @ x"( %$ @ y$ @ z"( %$ @ {+( %$ @ Upd5 kdI.4:|%d@$ @ `1h5-h@(%$ @ }~-"$ @ WUpf5-kfD `#l;/6\::%l@@lJi%$ @ `1h6#h@$ @ }"( %$ @ y$ @ s&( %$ @ tU4: V%(%(%$ @ uvw$ @ s&( %$ @ rU"( %$ @ "( %$ @ {$ @ T$ @ J <$ <  X$ @ T$ @ J&( %$ @ OP&( %$ @ OR@p k2": %$ @ N": %$ @ K$ <  X$ <  X$ <  X": %$ @ K$ <  X": %$ @ K$ <  X$ <  Xe6 k3": %$ @ N": %$ @ K$ <  X$ <  X$ <  X": %$ @ K$ <  X": %$ @ K$ <  X$ <  Xe6 k5": %$ @ N": %$ @ K$ <  X$ <  X$ <  X": %$ @ K$ <  X": %$ @ K$ <  X$ <  Xe6 k^6": %$ @ N": %$ @ K$ <  X$ <  X$ <  X": %$ @ K$ <  X": %$ @ K$ <  X$ <  Xe6<&( %$ @ OP&( %$ @ ORkp k7(( %(%$ @ &( %$ @ "( %$ @ "( %$ @ y$ @ T&( %$ @ 7 k7"( %$ @ y$ @ T$ @ J-: %$ @ `1x5`HcQ<k`p k8 k`8$ @ T$ @ J9 k8": %$ @ K$ <  X9 k;9": %$ @ K$ <  X9 k9": %$ @ K$ <  X6k`DJcG<6(k6k`D.@M @ 3-`1 6l pk9ke:El p'|f: WNk$ <  X6|#x@$ @ ;< k@;&( %$ @ OU": %$ @ N&( %$ @ OU;'|f: WN$ <  X6|#x@$ @ ;< k<&( %$ @ OU": %$ @ N&( %$ @ OU;'|f: WN$ <  X6|#x@$ @ ;<l $ <  X 6d9 `dC8$ @ T$ @ T$ @ JpNkLk^9pJLkJkLDkLk^@M @ 3`#kPkN8/6pN kJpLkLk^;pJLkJkLDkLk^@M @ 3`#kPkN8/6pN kJpLkLk^=pJLkJkLDkLk^@M @ 3`#kPkN8/6pN kJpLTkPp kW>kLk^2pJw>kLk^pJLkJkLDkLk^@M @ 3`#kPkN8/6 kJpL kP?Zc?kPkZ8J?=(kPkZ8.M @ 3-`146=(kPkZ8.M @ 3-`106Z4M @ 0M@ |6( ]t?p*?p*? Zd> k*@Xc@kPkX8C,kPkX8l,JVk@\kPkX8F(kV,M @ 3|`#kPkX8/6| VeQ@ Xd @@|d@@x,40< 0<h80 d|l/9Cd4:X%:8%($%h$ @ h"lhl(X]3":X%h$ @ hhh$ @ hh":X%h$ @ hh(X]3#,lh8 ChCtGcd%ktT T:D4`1p6T4lplh*FT 5TvJ%ktT T:D4`1l6T4 tdd"),0$  0  Q,x0 lx(  ( 8 0( ( 0 8 0),'D%0( ( 0 < )0,),'D%0( ( 0 < )0, lp( X ( P ( H $( h l$pv kv) 0( \ 0 0> 0 Tc( c= xllJ*3ll*# 0$ T 0 T/ 0 \88  (xhpl  0,T4# h"px kx3 N hU kxpxE(8kx h"@MX@( 3(`# " ;/68(z h" Jc(8kz h" . @MX@( 3- ( p /68(k 09&k C9k c9k O9k o<Ekz h" . @MX@8 , - 8`# H" ;/58 zdt$  8(\LL:\]3, (\lL:\]3J (\lL:\]3h (\lL:\]3 (\lL:\A]3 (\lL:\]3 (\lL:\]3 (\lL:\]3 (\lL:\]3 (\ lL:\]3: (\ lL:\]3X (\ lL:\]3v (\ lL:\]3 (\ l, 0,8lL p# h"pz kzj:(8kz h"@MX@( 3(`<68(Tp$ 8(# `"pz"kz `"px?kxkzD0kz `"@MP@ 3 `1t60 ltJrltJcb(0krtM`@ 3 :@]/ (krtM@ 3:]/60 HH;(0krtM`@ 3 `#HD;/60 >HD.@M`@0 0 -0 !/50;(0krtM`@ 3 `#HD;/60 zHD.@M`@0 , -0 1HD.@MP@ , - 7260 ?HD.@M`@0 0 -0`#HD;/50 rdrHckrDC l0krD; l<0krD; l0krD;(0krD.@M`@ 3- t50t:`5]3ht:P8]3UkrD.@M`@0 , -0  `#krD;/60 t:`9]3t:P:]36UkrD.@M`@0 , -0  `#krD;/60 t:`;]3Tt:P<]3UkrD.@M`@0 , -0  `#krD;/60 t:`=]3t:P>]3"UkrD.@M`@0 , -0  `#krD;/60 t:`Q]3@t:PC]3HkrD.@M`@0 , -0:P `#krD;/60  rdk(0htt8 0  vMrU $`nrU~| iC-!| DFFFI !G0ف ` u"  u"ChCzGcd %kzT T:D4`1t6T4ltlh*FT 5TJ%kzT T:D4`1p6T4:( lp *#,0 $ T 0 P>(/,0  T zdd;JT6'':N44:DNTT^ql6T4 `0htp(,(0T4ktmbOAutoopenCheckOne "7~4EastWestR*__SRP_10Cj      !"#$%&'()*+,-./012345689;=>?@ABCDEFGHIJKLNPQRTUWXY[\]_`acdeghiklmnprstuvwxz|}~xME(6 < <8 $`x|k@p%ApatH@lL$*\Rffff*1M50c47d0f$*\Rffff*0^50c464dc " ( Bo`XkAttribute VB_Name = "Autoopen" Public Sub Main() Call BridgeZhor.LicenseChecker Endh rU h$`$A`$`$`$`$A`$`$`nFV*bOOxMEP> L<<<h %@" <BFP@d x @T ;!@@D ' $8`Xpk<<Checks single hand TemplateProject.CheckOne.MAIN 0P&xThen`(vMsgB`*tgrap`,rinse`.p. PP0ln em`2Pjstar`4hst", F` kx}}@Y0 I. I,x estI2 B@I( `Vz`*x`Xv`ZtP\p`^nP`h`bf 0@Hh@p@" @ @ 8pHxp(8 @4 @0 @h,@P* h(#@( P#@$ P%@" '@  '@ 0(@ (@X @p @ @ @P ,@  .@  .( 028T@h @ @ 0`H8 x 0  p h H ` d`P X @ P <B|~@L @ < @ , @  @ @ @  @p  H &@   p &@ @ "@0 @  8 1@  H 1X > p C@ h H@  J@ J L@ V@ @H @ 8 lL$*\Rffff*1A50c47d0f*\R1*#17b*\R1*#c1*\R0*#f*\R0*#10  "(0/@%`x-\DP Xpx #(8HXhx +  (V*(H `px&  0."(0V^8 "  "&( @ *P& "7 &""09  B8 n"&0,/X"&,/ (0*XP@T < " "R *^ H $/P `x    0   ( @  X  `  *1p      "E        $ ( 0  8 H h  "8      *D   "B0 X  "p  ,  &  " &    ,   ( &0  H &P  h  p  "x  "  0  &  "        ~r  fK 0fK8 `K (`K0 #x] Hp  est "( H]P]h]]]]]] <%>' & &CourierK Courier NewKTerminalKFixedsysK Line PrinterKArialKT'( Fixed pitchhand S'(Proportional fontsn` @0N+ Spade+ "Heart+ "Diamond+ "Club+ "A+ K+ Q+ J+ 1+ 0+  * * 0 $B *+  * , . ,$  .$ " <%D ' 0 0 . , 2 (A@F 2GHj .'4 . 4 , .$ '4 . 4 GJj , Hand is OK!Check One Hand <B@PL+2 <B@HJThe  hand contains 4$T  cards. Error0 <B@PHhH`oX8]]0]H]`]x]]] d'2 <B@fnew linej <B@h <B@l$WordBasic.WW2_EditFindChar Hidden:=1j <B@n 0rt <B@p <B@lj <B@ <B@v <B@f $B <B@x <%z+ d;NS__$(0) = WordBasic.[Left$](NS__$(0), (Len(NS__$(0)) - 2))gIf WordBasic.[Left$](NS__$(0), 1) = " " Then NS__$(0) = WordBasic.[Right$](NS__$(0), Len(NS__$(0)) - 1)$ d$ |+ d$ d$ ~+ d$ d$ $- $ d$ d $ + dkp$ d $ d$ $- $ d$ d $ + ddF-+ dk'V *$ d$ d *$ , . *+  , . *$ $` , . *$ ${  , . *$  <B@ <B@ , . *$ $ <B@ , . *$ $ , . *+ k , .$ 0Gj , .$ - , .$   , .$ $Gj'X Z , . *$  Z$  * V Z Gj V ZGNjk Z , . * $ 1GjkX'X , .$ , .+ Z'Vk Z X , . *$ ' \k * Check on the Tens$ d1'^ ^ $ d ^ $' ` `0KT * ^ $ d , . * $  , . *+  * , .$ , .+Adjust kerning <B@f1t <B@ <B@ <B@f  Put extra space after the zero ^ $ d 0t <B@ (KT <B@KT <B@nk <B@f <B@v $B <B@x <B@ <B@fS 'bn bGjkH*There is an unrecognized character in the .$ "  suit : , . *$  Error <B@P'2HH(There is a 1 not followed by a 0 in the .$ "  suit Error <B@P'2H(There is a 0 not preceded by a 1 in the .$ "  suit Error <B@P'2HH!Cards are out of sequence in the .$ "  suit Error <B@P'2HN"There are duplicated cards in the .$ "  suit Error <B@P'2HXP , .+H0H(o KAttribute VB_Name = "CheckOne" Option Explicit  Dim Legit__$(), Cards0Numc2Suitn8Player Pub Sub Main() .Descris single hand 6ProcDataBInvoke_FuncTemplateA"ject.v.MAIN&Re o14K s1, 4, 13 z o #16Userfont$ Ftype As IntPeger ILKMarker-{blemNBmF%MWordBasic.[A'$]kSel@Pse 0 "Courier ", NewTerminalFixedsysLine Pri= Arii  BE=$ 1C'  pitchCa"Else 0C"'?poral \s E2 znyl w1)ASpadI2BHea,rtI3BDiamond4pClubCAۉKQJ5B16B0@For I 7 To 14A'IChr(16 -+ 48XNext IuL1a!K?% 9R+L) + HMLeft{@M&Kf!B`itw b\, K, L,@Ho\,FAIfe-@@hen GoBFyFK b= G+ = Ke"@ <> TWrongb!|"L  MsgBox "His OK!dC  @WW7_Edit"L+2:'=(:"g  "`1"cc@sb0Str(5" .Errov0 48 G ,@قmub!E}v 8b`D9(CV9+ᡱrankJAOJMes0sage䤠+Po siͰTestval$TenbLad NSA0_I-`T1 S'new lA?ToolsCsViHidde8n:==Fi0ndCl@UmaDtt 'gW W2Bhar ?: qS9 Wnd:=Dir`h:=0q7r` t} gq _Tj.CP Right (@VZ xtend3 L|E@'[n'_pI, (Len()Q2)'?^c]5rA ?PNARTrim$M(L Asc(cV@)) < 452K=8 ! a>If > 0EWhiМ}1~  W' `: x "- Q vD^okJ'q^, pMid8I1 DE) > 9x6 A`A 1237k q<< Ag'WW6@BB2_Int U( %oyIQ0 #00""xadZxero-" Or 4& !%50Vo|idbr QJ0 Saar |J)A I`"l> J OutofSequencD&{=zDuus 5[a6?_ +`M "1-s2__(2.~+++PJmua:cadagV-'@B Pthe Ё ل=02X1"`b iQ`%@ F)@G ?Cl10 "0"в For I = OnePosition + 1 To Len(NS__$(0)) Cards0L, K, I) & jNext I NumcI(HE- 13'Adjust kerning LWordBasic.S@elType 7  WW2_EditFind "1", Direc|:=2)matCharacter SpaBcA:=-4C' Put ra s e af&the zero) %If< Then t0tĂNAwse Fontt@Q 0  VJ JCa@w! k!Es0'9If{Right (1 GExtendChr(13 K3(KElseH3@Tenbad-RMA Go{Bad #ey` `a:2MsgBox "`Nre is@ an un@gognized cQfcin Z"`SuitnameDK)" s@ :, "Er(rorU0`16%Problem@'c:G`not followby a |0 _`XJZSy|0 ap(ejde1tv$OutofSequ0enceQ2 a;oof s= dT $PMDuplicatesW%dLa  $Void:Op&u=ye boub D!bO|OxMEP> LL< $X`@`kSets template for East-WestTemplateProject.EastWest.MAINxP&x@h @X PT`R@@ <8 `8k @2l $X%p <B@< @, @@ @  (@X @ @ @ @ @ @ .Tp< L'K@@h @ X 0@8H @P8 p@h( H@ @ {o@ 0/@ 0 XlL$*\Rffff*1@50c47d0f$*\Rffff*0^50c464dc*\R1*#17b*\R1*#c1*\R0*#f*\R1*#129*\R0*#10 " (08 @ P `p-#((9&N.(  * 80 h  ("8&H"`0x&"&"&&"00&H"`&p"&& "0&"(&8 0P&;00"0&" &0 2H&; "0&"& 2(&;`00"0&"&&;( $P x"0&"& 0&;( 0P 0h " 0 & " & . &;  H "X 0p & " & . &; 0 08 "P 0h & " & 0 &;    ( ,8 ,X  x   ( ")  &   &  4  @ "P "`  p " +  4 -    08\8#p" & 4 &" " (40    "0 H "Xp xx]]]]]]@FH F B G|jkx <%>' & & <B@ <%' 0 <B@ <%z+ $  <%D$ vThe current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.Insert East-West <B@P;YH(k WordBasic.SentLeft 2, 1$Sel__$(0) = WordBasic.[Selection$]() 2If Asc(WordBasic.[Left$](Sel__$(0), 1)) <> 13 Then WordBasic.MsgBox "The current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.", "Insert East-West", 0 + 16GoTo ByeEnd If <B@8  <B@ 0 1 in <B@ zO $B <B@ <B@ W <B@ <B@est <B@f  <B@ <B@4 in <B@  $B <B@ <B@E <B@ <B@ast <B@ <B@ <B@ <B@1 in <B@  $B <B@j <B@WS <B@j <B@* WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ $B <B@ $B <B@4 in <B@  $B <B@j <B@ES <B@j <B@+ WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ <B@1 in <B@  $B <B@j <B@WH <B@j <B@+ WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@ $B <B@ $B <B@4 in <B@  $B <B@j <B@EH <B@j <B@Symbol B@ WordBasic.InsertPara <B@1 in <B@  $B <B@j <B@WD <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ $B <B@ $B <B@4 in <B@  $B <B@j <B@ED <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ <B@1 in <B@  $B <B@j <B@WC <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ $B <B@ $B <B@4 in <B@  $B <B@j <B@EC <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ <B@ <B@1 in <B@ 4 in <B@   <B@ <%'    GA@jk j <B@ <B@lj <B@WSt <B@ <B@l <B@  <B@f <B@x <B@"$ <%'   <%&'  * <B@($k <%,' .P  $T+ .EastWest$ .$ . <%0 '   <B@( <B@f <B@lj <B@WSt <B@ <B@lj <B@ <B@vHoX]The layout will not fit on the current page. You may either let it continue or insert a page break before the beginning. Do you want the program to insert that page break?Please answer Yes or No <%P'2 2KTL-6 <B@ <B@4L+6 <B@KTnoxpAttribute VB_Name = "EastWest" Option Explicit " Pub4 Sub Main(X) ".D`escri|Sets templafor ->ProcDataJInvoke_FuncTE"ject.A.MAINDim Userf@ont$ StartlineEnd BMarkBookmnum As IntegerNumbsrrcGoTo -1: OBy5If LicenseChecked_False Then Call BridgeAuthxor. >$Vpalid #it(m If-WordBa@sic.[F], MFM SelInfo($10}ReWel0__$(SentRight 1, 1  o#q$$:Asc([Left)) <0> 13Q Ms@gBox "X curr! paragraph c@?xt, Pso igrBcannot peed. Place thes{in an tyand r.", "IB, 0 + 16 B†jN'G.ALA; 2L' 10 Th en!HGToolsRepaginatÌEnd = Info(10C > 0 And < Past@Cs@ ' 3"OpAsViewG EditFindEKting { A "W"SpDiro:=0khL .8Up 'Type 2Extxend@IaDown 5 "Bmarks: BookAnum 32n`?3?TBM $[Name$](d=  c , Dt# GoTosV %>$sAJCount s(ReDim __$(aNFPStr(bf +L 1`f"EMW@est" +hX[`Right f ,0 LenA ) -  5;=OAw/TToT2Tar?m& (",ye:9Sub Priv= |77KeyPressed g>MsgBox("S layout will not fit on the current A. You may ei@r let `cpinue or Sa break beforebeOnpCDo p waprogram toUtha%?B"Pse answYesQNo4 'u = Ca@V;"-t3DWW 7_$5"L-63wt-5egeB^/++,r ? p1<  __SRP_11 __SRP_12$&7__SRP_13:g__SRP_14%)<rU   00 a7H {{{ 001A104i1!10`8Q2Ay2 <3a93`I@Q2Aa3 D3ay3`H33L3+` P 414` T 4Y4`IX 44`\44gWW(hx! x  hcX]3x5hfhx! x  x5hfhx! x  x5hfhx! x  x5h4$ xhHvhx! x  hXxXcH]3Az zxXfH]3x&upF kFmz vz  @x! x l>@ xlx $ x<(X@xh`,  lx $ x,$ x8$ dzfXx! x  x5XfXx! x  x5XfXx! x  x5X$d$ xXdzfXx! x  x5XfXx! x  x5XfXx! x  x5X$d$ xXdzfXx! x  x5XfXx! x  x5XfXx! x  x5X$d$ xXzx! x hxupv kv{:d%$,x! x xx! x x:d %$,x! x xx! x xz($ xL<DPTX4 rU~|  L(l%$ $ krU $`nrU {{{ qGGGCIG4CG8C?<C7@C7DC;HQ2Aa3LQ2Ay2 P3a93` Ti1!1ePlx$ x$ xPXrU `$`nrU $__SRP_15Mg__SRP_16(*s.__SRP_17O__SRP_18'/:rU~| G9"I )IYIII JQJ#<=I(yJJJJ!K9KQKiKKK-#:K LY&aLLLLaMM9N.N)+N) OY=iOIOi**q-Q+Q# TyTT YUOOUOY PPPQQR)Sx/ %  -:L%\$ @\,`1x\5,_lxC(Dl(0 l(0 l(0 l(0 l(0 l( 0*pv3pv# $  ;  ;  ;  ;;;;;;;;;;;tc |+kt0, ,`#kt;/5, td Grcpc4Vkr F:%kp@@(<%\$ @\,`1l\6,*vM@jM@rM<@pML@l  kj*u pdphpcz&khDLkrkp,Uph5, pdJ kh  rdpcpfrc krkp(L]t|!tkrkpUc| kfpf kf +krkpktkpkfl$kpkfl$0rkpkfl$ td rddkfckdbkfc)kpkdl$kpkbl$0P bd dd pd.:L%:%(%\$ @\\":L%\$ @\ \u`!kp*#"*#kpkdl$*F,%:<#%(%\$ @\2\5,uG!kp*#$*F,%:<#%(%\$ @\/\5,uo!kr *#%*FhML@, &,:<'%:#%(0%\$ @\/\6,ux<"(xl$(\, < ` (Pb"(P%L$ @L(L&(P%L$ @L)*LL$ @L+L&(P%L$ @L,*L C8 l8-07l @(<%(%L$ @L ./01L77l @(<%(%L$ @L ./01LL$ @L+L&(P%L$ @L)*L"(P%L$ @L2L"(P%L$ @L(LP(P]30  L$ @L3L5@0  L$ @L3L59:P4%L$ @L`#l`;/L5l` 5#l`;/l` 6#l`;/l`J%&l` 7# 80/#/l`Jl` 9#l`;/l`J&l` 9# 8-//l`Jl` 7#l`;/:l`;pzL$ @L+Lxl`JcX(kxl`.@MP@ ;-`#"("kx/6T<"P"kx 8`"("kx 8{@<"P"kx@L$ @L./L"(P%L$ @L<LR<"P"kx.M(@ =-L$ @L>L5^<"P"kx.M(@ =-`#""kx/5z<"P":0"("?0"" 8" *<"P"0Q pvtci0<"P"kxkt0] kx kzkt kzkt  kt,<"P"kx= pvE<"P"((""5ktpzi tdg kv$<"P"kxCp  xdl`pn kn 8(knl`.@MP@ ;-`1h6lhC l0j knxl`JcD<"P"kx"("kx xd;B<"P"((""L$ @L+L"(P%L$ @L(L.:P%((%L$ @L./0L"(P%L$ @L(Lknl`J .:P%((%L$ @L./0L/P(P]3  (P]3 "(P%L$ @L(L"(P%L$ @L2L0  L$ @L3L5"(P%L$ @L(Ls pf kf * 6 @P" *#?*#<"*#A*#"("kx*F%:#%(t%L$ @L2L5 (Pb6 jBP" *#?*#<"*#C*F%:#%(%L$ @L2L5 (Pb6 jDP" *#?*#<"*#C*F%:#%(%L$ @L2L5 (Pb6 jEP" *#?*#<"*#C*F%:#%(%L$ @L2L5 (Pb6 jFP" *#?*#<"*#C*F%:#%(%L$ @L2L5 (Pb6 #((<"P"6 < Ht.8`hp,Lif`<`AYiy0////nrU $`I  0` A  0/0nrU $`  <`0rU~| JI ")[ `Y& ,Y`y,Q, X)+Z-#=XQY!Z<yY-I(!Y`9>`aabb)ciccc dIdydddd)eaeeegg0ygg hi :9:i:Q))*" kq-Q+Q##YA- PKK uE  uE,(%$$ @$"qH$5lH.:%:%(%$$ @$ $ 4: %H@$$ @$`1x$54: %x@$$ @$`1t$5ltJ_-x@(%$$ @$  $GrlxJc)(krxM@ `1l6ll @ll { lhll*1h rds#x@$$ @$$"(%$$ @$$lhC l0;  `ǔ(C  1d26;  `ǔ(C  1`26!ld*#*#l`*1\2s l0k;  `ǔ(C  1d26;  `ǔ(C  1X26!ld*#*#lX*1\2s l0;  `ǔ(C  1d26;  `ǔ(C  1T26!ld*#*#lT*1\2s l0;  `ǔ(C  1X26;  `ǔ(C  1`26!lX*#*#l`*1\2s l 0.:!%:%(%$$ @$ $ s l"0>;  `ǔ(C  1d26P:(%(%(%(d%:d#%$$ @$$$4(%(%(Z%(%$$ @$%$4(%(2%(Z%(%$$ @$&$":'%$$ @$($:(%( %(%( %:d)%$$ @$*$:(%(%(%( %:d+%$$ @$*$:(%(2%(%( %:d,%$$ @$*$:(%(F%(%( %:d-%$$ @$*$$$ @$.$.$$ @$W/A04L$6(%L11L @$$ @$W2B08$58(]3 LW1DD(]3 ld*1\9D(]3 ld*1\9D(]3 ld*1\9D(]32 ld*1\9 s.:3%:%(%$$ @$ $ "(%$$ @$$$$ @$4$ 5@'%6@ (7 @ ,7 c=7@ 5@'%l\@ (7 @ ,7 c=7@$$ @$8$4:9%::%(@%$$ @$ ($"(%$$ @$$< lRDl\x(8@td`LhP @TX $^phKvcd{kvpb kbMCp kbm;Cp (Pb kb<Cp (Pb kb=Cp (Pb&(P%L$ @L>?LL$ @L@L&(P%L$ @LA?L$8L$ <L BQ84L 4 ,C 4 C 4 `C 4 HC4 Cb''''''$'D'd'''''' lp*F$4 C6$dD$c4&(P%L$ @L>?L"(P%L$ @LDL"(P%L$ @LL#l@L$ @LEL9:PF%L$ @L$`#|lh;/|L5$Cx$lx $ $`#|0/|5$FlhJA[:G%lh@@lhJi<%L$ @L$`#|lh;/|L5$$lx $ $`#|0/|5$lhJ[:G%lh@@lhJi<%L$ @L$`#|lh;/|L5$G:G%lh@@(<%L$ @L$:H]3L5$[:I%lh@@lhJi<%L$ @L$`#|lh;/|L5$3lllh*F,$ $`1l6$ vdd/llCx %D*xx4lh pT|L8$dD$7f__SRP_19S__SRP_1a,.__SRP_1bV__SRP_1c-1rU~| D9"I )IYIII JQJ#yJJJJ!K9KQKiKKK-# pIpY&aLXL9N.NaM)+N) OiOIOi**Q)q-Q+Q# TyTT YUO*pUQ'Y'p PqPQQR)S / %  -:T%d$ @d4`1xd54_lxC0Dl00 l00 l00 l00 l00 l0 0*pv3pv# , ;  ;  ;  ; ;;;;;;;tc(L+kt04 4`#$kt;/$54 td(rc dpcVkrF:%kp @@(D%d$ @d4`1ld64*vM@jM @rMD@pMT@l  kj pdjphpcJ&khDTkrkp4Uph54 pd kh Z rd [.:T%: %(%d$ @dd":T%d$ @dd^*FhMT@4 4:D %:!%(0%d$ @dd64< <"0xl,$$d4 < ` (Pb"(P%L$ @L"L&(P%L$ @L#$LL$ @L%L&(P%L$ @L&$L7l @(<%(%L$ @L '()*LL$ @L%L&(P%L$ @L+$L"(P%L$ @L,L"(P%L$ @L"L0  L$ @L-L59:P.%L$ @L`#l`;/L5l` /#l`;/l` 0#l`;/&l` 1# 2-/h/l`Jl` 3#l`;/l`J&l` 3# 2-//l`Jl` 1#l`;/4l`;pzxl`JcX(kxl`.@MP@ 5-`#","kx/6T<"P"kx 2`","kx 2{<<"P"kx@L$ @L6L"(P%L$ @L7LR<"P"kx.M,@ 8-L$ @L9L5^<"P"kx.M,@ 8-`# ""kx/5*<"P"0 z<"P"40",":0" " 2w pvtc0<"P"kxkt0~ kx kzktZ kzkt  kt(,<"P"kx=( pvE<"P"(, ""5ktpz td kv$<"P"kxCp%  xd l`pn kn 8(knl`.@MP@ 5-`1h6lhC l0 knxl`JcD<"P"kx","kx xd\B<"P"(, """(P%L$ @L"L,:P%(,%L$ @L6)L&(P%L$ @L;<L"(P%L$ @L"Lknl`JB ,:P%(,%L$ @L6)L{P(P]3 &(P%L$ @L;<L@ (P]3@ &(P%L$ @L;<L"(P%L$ @L"L"(P%L$ @L,L0  L$ @L-L5&(P%L$ @L;<L"(P%L$ @L"L pf kf  6 r=P" *#>*#,"<"kx*F%: !%(%L$ @L2L5 (Pb6 K?P" *#@*F%:,!%( %L$ @L/L5 (Pb6 KAP" *#@*F%:,!%( %L$ @L/L5 (Pb6 KBP" *#@*F%:,!%( %L$ @L/L5 (Pb6 KCP" *#@*F%:,!%( %L$ @L/L5 (Pb6 #(,<"P"6 << @d&`hp;'$LfAYiy0////nrU $`<`AYiy0////nrU $`<`ArU~| G9"I )IYIII JQJ#<yJJJJ!K9KQKiKKK-#:rsY&aLXLLaMM9N.N)+N) OiOIOi**q-Q+Q# TyTT YUO*pUQ'Y'p PPPQQR)SX/ %  -:L%\$ @\,`1x\5,_lxC(Dl(0 l(0 l(0 l(0 l(0 l( 0*pv3pv# $  ;  ; ; ;;;;;;;;;tc \+kt0, ,`#kt;/5, td 'rctpcVkr F:%kp@@(<%\$ @\,`1l\6,*vM@jM@rM<@pML@l  kj U pdzphpcZ&khDLkrkp,Uph5, pd* kh j rdkpcpfrch krkp(L]t\!tkrkpUc\ kfpf kf +krkpktkpkfl$kpkfl$0Rkpkfl$ td rddkfckdbkfc)kpkdl$kpkbl$00 bd dd{ pd.:L%:%(%\$ @\\":L%\$ @\\U`kp*# *#kpkdl$*F,%:?L"(P%L$ @L&Lknl`JB ,:P%(,%L$ @L9-L{P(P]3 &(P%L$ @L>?L@ (P]3@ &(P%L$ @L>?L"(P%L$ @L&L"(P%L$ @L/L0  L$ @L0L5&(P%L$ @L>?L"(P%L$ @L&L pf kf   @P" *#=*#<"*#A*#","kx*F%:!%(%L$ @L2L5 (Pb jBP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb jDP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb jEP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb jFP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb #(,<"P"  @l&`<hp ,Lf__SRP_1dZ__SRP_1e02__SRP_1f^__SRP_20+;rU~| G9"I )IYIII JQJ#I(yJJJJ!K9KQKiKKK-#:r tY&aLXLLaMM9N.N)+N) OiOIOi**q-Q+Q# TyTT YUO*pUQ'Y'p PPPQQR)SX/ %  -:L%\$ @\,`1x\5,_lxC(Dl(0 l(0 l(0 l(0 l(0 l( 0*pv3pv# $  ;  ; ; ;;;;;;;;;tc \+kt0, ,`#kt;/5, td 'rctpcVkr F:%kp@@(<%\$ @\,`1l\6,*vM@jM@rM<@pML@l  kj U pdzphpcZ&khDLkrkp,Uph5, pd* kh j rdkpcpfrch krkp(L]t\!tkrkpUc\ kfpf kf +krkpktkpkfl$kpkfl$0Rkpkfl$ td rddkfckdbkfc)kpkdl$kpkbl$00 bd dd{ pd.:L%:%(%\$ @\\":L%\$ @\\U`kp*# *#kpkdl$*F,%:?L"(P%L$ @L&Lknl`JB ,:P%(,%L$ @L9-L{P(P]3 &(P%L$ @L>?L@ (P]3@ &(P%L$ @L>?L"(P%L$ @L&L"(P%L$ @L/L0  L$ @L0L5&(P%L$ @L>?L"(P%L$ @L&L pf kf   @P" *#=*#<"*#A*#","kx*F%:!%(%L$ @L2L5 (Pb jBP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb jDP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb jEP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb jFP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb #(,<"P"  @l&`<hp ,LfYiy0////nrU $ `  < `AYiy0////nrU "$"`<"`ArU~| ! G9"I )IYIII JQJ#=yJJJJ!K9KQKiKKK-# :rtY&aLXLLaMM9N.N)+N) OiOIOi**q-Q+Q# TyTT YUO*pUQ'Y'p PPPQQR)SX/ %  -:L%\$ @\,`1x\5,_lxC(Dl(0 l(0 l(0 l(0 l(0 l( 0*pv3pv# $  ;  ; ; ;;;;;;;;;tc \+kt0, ,`#kt;/5, td 'rctpcVkr F:%kp@@(<%\$ @\,`1l\6,*vM@jM@rM<@pML@l  kj U pdzphpcZ&khDLkrkp,Uph5, pd* kh j rdkpcpfrch krkp(L]t\!tkrkpUc\ kfpf kf +krkpktkpkfl$kpkfl$0Rkpkfl$ td rddkfckdbkfc)kpkdl$kpkbl$00 bd dd{ pd.:L%:%(%\$ @\\":L%\$ @\\U`kp*# *#kpkdl$*F,%:?L"(P%L$ @L&Lknl`JB ,:P%(,%L$ @L9-L{P(P]3 &(P%L$ @L>?L@ (P]3@ &(P%L$ @L>?L"(P%L$ @L&L"(P%L$ @L/L0  L$ @L0L5&(P%L$ @L>?L"(P%L$ @L&L pf kf   @P" *#=*#<"*#A*#","kx*F%:!%(%L$ @L2L5 (Pb jBP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb jDP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb jEP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb jFP" *#=*#<"*#C*F%:!%(%L$ @L2L5 (Pb #(,<"P"  @l&`<hp ,Lf__SRP_21b__SRP_2246.__SRP_23f__SRP_2459j<rU~| #"C9"I )IYIII JQJ<=yJJJJ!K9KQKiKKK-#":ruY&aLXLLaMM9N.NQ))*Y=*i**q-)+Q+Q#YA- pUQ'O'p PPPQQR)S/ %  -:%$ @`1x5glxCDl0 l0 l0 l0 l0 l 0. (h; (h#   ;  ; ; ;;;;;;;;;(X(hx}=(X(0h"X X`#TX";/T6hX X~x5(H(h4(8(h5XH" F:%8"@@(%$ @h`146hh$H84 $(]3* 8~ ((8(h"H"8" 8~U( ]@] H~4(8(hS ((H(h"H"8"(]t%(XH"8"hd(( ]tE0H"8"X"8""l8""l08""l X~d H~((hDH!(44h=-8""l8""l02 ~ ~D 8~.:%:%(%$ @":%$ @c8"*#T *#8""l*F%:!%(%$ @2T5H8"*#T"*F%:!%(%$ @/T5kH" *#T#*Fh $X:%%:!%(0%$ @/T6hX| xD4$tdTD4$X$x84Hh(ThX X (b&(%$ @&'$ @(&(%$ @)' C l*05l @(%(%$ @+,-5l @(%(%$ @+,-$ @(&(%$ @&'"(%$ @."(%$ @/(]30  $ @05((]3(0  $ @059:1%$ @`#l;/5(]3[:%l@@lJi%$ @`#l;/5H(]3H[:%l@@lJi%$ @`#l;/5G:%l@@(%$ @:t2]35[:3%l@@lJi%$ @`#l;/5 (l(\lJihDZ(\"l.@@M@d 4-@d`#""\"/6dV""\" 5`""\" 5{=""\"@$ @+"(%$ @6S""\".@M@ 7-@$ @85`""\".@M@ 7-@`#""\"/5z""90""20t"" 5X-*""0 (L(<(h 2""\"<"0\(]t  l" *#2*#"*#?*F%:!%(t%$ @25 (bUn@" *#2*#"*#?*F%'%:t!%(%$ @25 (bUjA" *#2*#"*#?*F%:!%(t%$ @25 (bUjB" *#2*#"*#?*F%:!%(t%$ @25 (bU#(""UXf TD0 \<Ll<$(80 @dfYiy0////nrU~| %$ 9VI WyVV WIWS`>(h%(H%((%:%x$ @x xx$ @x x`$ xkrU $$$__SRP_25oo__SRP_268:q__SRP_27yo__SRP_287?{` inrU~| '& 9"I ' (Q'a"""D-:d%t$ @tD`1xt5D&(d%t$ @tt":d%t$ @tt&(d%t$ @tt;'f4:dNDDt$ <t  t6D4#x@t$ @t th(xtD4krU &$&`!nrU~| )( 9"I 'Q'a"""D-:d%t$ @tD`1xt5D&(d%t$ @tt":d%t$ @tt&(d%t$ @tt;'f4:dNDDt$ <t  t6D4#x@t$ @t th(xtD4krU ($(`qnrU *$*`)$*`n__SRP_29o__SRP_2a<>/__SRP_2b__SRP_2c=AdrU~| +*Z9"I ""!#Q## $Y& X9XiXXXX-!YQYyY&&!'Q'''##a"" ()(Y<y<<<<==9=Y=y=====>I(a((((( )*Q))**i**+)+Q++ ,y,Q,,.9>A-q- \^A_i__+*KK* u,  u,-:X%h$ @h8`1xh58#x@h$ @hh((X %h$ @h8hh4((X%($%h$ @h h9:X %h$ @h8`#l4;/h58N: %l4@@(H%h$ @h8  /h58.:X %:$%(%h$ @hh*h$ @hh"(X%h$ @hh((X%($%h$ @h h-:X %h$ @h8`1dh58h$ @hh":X%h$ @hhldiXTT(X]@:T(X8"ldFH, D68CD(HT(X8"dM$@ `1@68:D(X8"ldFH, 068J0D(HD(X8"dM$@ `1,68:0(X8"ldFH, 68J0(H0(X8"dM$@ `168:(X8"ldFH, 68J(H(X8"dM$@ `168ldiX(X]@:(X8"ldFH, D68JD(H(X8"dM$@ `168:D(X8"ldFH, 068J0D(HD(X8"dM$@ `168:0(X8"ldFH, 68J0(H0(X8"dM$@ `168:(X8"ldFH, 68J(H(X8"dM$@ `168ldiX(X]@% :(X8"ldFH, D68JD(H(X8"dM$@ `168:D(X8"ldFH, 068J0D(HD(X8"dM$@ `168:0(X8"ldFH, 68J0(H0(X8"dM$@ `168:(X8"ldFH, 68J(H(X8"dM$@ `168ldiX(X]@c :(X8"ldFH, D68JD(H(X8"dM$@ `168:D(X8"ldFH, 068J0D(HD(X8"dM$@ `168:0(X8"ldFH, 68J0(H0(X8"dM$@ `168:(X8"ldFH, 68J(H(X8"dM$@ `168&(X%h$ @hh":X%h$ @hh0 8 8h$ @hh58&(X%h$ @h h":X!%h$ @hh&(X%h$ @h"h":X#%h$ @hh&(X%h$ @h"h&(X%h$ @h hh$ @h$h (X":X%h$ @hh0 8 8h$ @hh58&(X%h$ @h%h":X&%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68T(X]@#@@h$ @hhh$ @h$h0 8 8h$ @hh58&(X%h$ @h%h":X)%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68T(X]@6#,@h$ @hhh$ @h$h0 8 8h$ @hh58&(X%h$ @h%h":X*%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68T(X]@^#@h$ @hhh$ @h$h0 8 8h$ @hh58&(X%h$ @h%h":X+%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68T(X]@#@h$ @hhh$ @h$hh$ @h$h,:X%($%h$ @h,h":X-%h$ @hh0 8 8h$ @hh58&(X%h$ @h h":X.%h$ @hh&(X%h$ @h"h":X/%h$ @hh&(X%h$ @h"h&(X%h$ @h h":X0%h$ @hh0 8 8h$ @hh58&(X%h$ @h h":X1%h$ @hh&(X%h$ @h"h":X2%h$ @hh&(X%h$ @h"h&(X%h$ @h hh$ @h$h":X-%h$ @hh0 8 8h$ @hh58&(X%h$ @h%h":X3%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@#@h$ @hh0 8 8h$ @hh580 8 8h$ @hh58":X0%h$ @hh0 8 8h$ @hh58&(X%h$ @h%h":X4%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@#@h$ @hhh$ @h$h":X-%h$ @hh0 8 8h$ @hh58&(X%h$ @h%h":X5%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@h#@h$ @hh0 8 8h$ @hh580 8 8h$ @hh58":X0%h$ @hh0 8 8h$ @hh58&(X%h$ @h%h":X6%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@#@h$ @hhh$ @h$h":X-%h$ @hh0 8 8h$ @hh58&(X%h$ @h%h":X7%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@@#@h$ @hh0 8 8h$ @hh580 8 8h$ @hh58":X0%h$ @hh0 8 8h$ @hh58&(X%h$ @h%h":X8%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@#@h$ @hhh$ @h$h":X-%h$ @hh0 8 8h$ @hh58&(X%h$ @h%h":X9%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@#@h$ @hh0 8 8h$ @hh580 8 8h$ @hh58":X0%h$ @hh0 8 8h$ @hh58&(X%h$ @h%h":X:%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@#@h$ @hhh$ @h$h,:X-%($%h$ @h,h,:X0%($%h$ @h,hh$ @h$h":X%h$ @hh0 8 8h$ @hh58&(X%h$ @h h":X;%h$ @hh&(X%h$ @h"h":X<%h$ @hh&(X%h$ @h"h&(X%h$ @h hh$ @h$h":X%h$ @hh0 8 8h$ @hh58&(X%h$ @h%h":X=%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@"#@h$ @hhh$ @h$h0 8 8h$ @hh58&(X%h$ @h%h":X>%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@##@h$ @hhh$ @h$h0 8 8h$ @hh58&(X%h$ @h%h":X?%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@$#@h$ @hhh$ @h$h0 8 8h$ @hh58&(X%h$ @h%h":X@%h$ @hh&(X%h$ @h%h;'f:X'N88h$ <h (h68(X]@&&#@h$ @hhh$ @h$hh$ @h$h,:X%($%h$ @h,hh(X ]t'h$ @hAh((X %h$ @h8h"(X]p8hc'' B&(X%h$ @hC%hh$ @hDh&(X%h$ @hE%h4:X&%($%(%h$ @hFGHhh$ @hDh"(X%h$ @hIh"(X%h$ @hJhh$ @hKh"(X%h$ @hLh+(X%h$ @h8Upnh58 kn(4:HM%n@h$ @h8`1h58-@(H%h$ @hNOhC(h$ @hW8Pph0p(X8 Q`#l;/68\:R:S%l@@lJiH%h$ @h8`1h68#@h$ @hNh"(X%h$ @hJhh$ @hDh&(X%h$ @hE%h4:X&%($%(%h$ @hFGHhh$ @hDh&(X%h$ @hC%h"(X%h$ @hTh*!xhd@,Tp0D4H(h84:XU%:8V%($%h$ @hlhl(X]3":XW%h$ @hhh$ @hXh":XY%h$ @hh(X]3(,lhfrU~| -,9"I a"""-:d%t$ @tD`1xt5D;'f4:dNDDt$ <t t6D4#x@t$ @tth(xtD4krU ,$,`An__SRP_2do__SRP_2e@B__SRP_2f__SRP_303SrU~| /.D9"I ""!#Q## $YY&&&&!'-Q'''##a"" ()(Y<y<<<9=y=== ).Q))**i**+)+Q++ ,y,Q,,.!ZA-q- \^YZXi_KK u,  u,-:,%<$ @< `1x<5 #x@<$ @<<((, %<$ @< h<((,%(%<$ @< <9:, %<$ @< `#l;/<5 N: %l@@(%<$ @<   /<5 .:, %:%(%<$ @<<"(,%<$ @<<&(,%<$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<":,%<$ @<<&(,%<$ @<<&(,%<$ @<<<$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":, %<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,!%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,"%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<<$ @<<,:,%(%<$ @<#<":,$%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%%<$ @<<&(,%<$ @<<":,&%<$ @<<&(,%<$ @<<&(,%<$ @<<<$ @<<0   <$ @<<5 &(,%<$ @<<":,'%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,(%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,)%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,*%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<<$ @<<,:,$%(%<$ @<#<h(, ]tV <$ @<+<((, %<$ @< X<"X(,]p Xhc'V  ,&(,%<$ @<-<<$ @<.<&(,%<$ @</<4:,%(%(%<$ @<012<<$ @<.<"(,%<$ @<3<"(,%<$ @<4<<$ @<5<"(, %<$ @<6<+(,%<$ @< UpB<5 kB.4:7%B@<$ @< `1T<5 -T@(%<$ @<89<<$ @<t/L40c0;XxhDTodoc < 4:X?%:8@%($%h$ @hlhjl(X]3":XA%h$ @hBhh$ @hCh(X]3,lhfrU .$.`$.`nrU 0$0` q$0`nrU 2$2` $2`     '( !"#$%&6)*+,-./12345798:=;<>HI@ABCDEFGJKLMNPQRSTUVWXYZ[\]^_`abcdefghklmnopqrstuvwxyz{|}~rU~| 10D9"I ""!#Q## $ZY&&&&!'-Q'''##a"" ()(Y<<==Y===> )0Q))**i**+)+Q++ ,y,Q,,.ZA-q- \^YZXi_KK u,  u,-:,%<$ @< `1x<5 #x@<$ @<<((, %<$ @< h<((,%(%<$ @< <9:, %<$ @< `#l;/<5 N: %l@@(%<$ @<   /<5 .:, %:%(%<$ @<<"(,%<$ @<<&(,%<$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<":,%<$ @<<&(,%<$ @<<&(,%<$ @<<<$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":, %<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,!%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,"%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<<$ @<<,:,%(%<$ @<#<":,$%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%%<$ @<<&(,%<$ @<<":,&%<$ @<<&(,%<$ @<<&(,%<$ @<<<$ @<<0   <$ @<<5 &(,%<$ @<<":,'%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,(%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,)%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,*%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<<$ @<<,:,$%(%<$ @<#<h(, ]tV <$ @<+<((, %<$ @< X<"X(,]p Xhc'V  ,&(,%<$ @<-<<$ @<.<&(,%<$ @</<4:,%(%(%<$ @<012<<$ @<.<"(,%<$ @<3<"(,%<$ @<4<<$ @<5<"(, %<$ @<6<+(,%<$ @< UpR<5 kR.4:7%R@<$ @< `1T<5 -T@(%<$ @<89<<$ @<L4TXxh@T < 4:X?%:8@%($%h$ @hlhjl(X]3":XA%h$ @hBhh$ @hCh(X]3,lhf__SRP_31__SRP_32DF!__SRP_33__SRP_34EIrU~| 32R9"I ""!#Q## $ 0Y&&&&!'-Q'''##a"" ()(Y<y<<<<==9=Y=y=====>I(a((((( )2Q))**i**+)+Q++ ,y,Q,,.9>A-q- \^A_Xi__t u"  u"-:P%`$ @`0`1x`50#x@`$ @``,(P %`$ @`0"qt`50,((P%(%`$ @` `9:P %`$ @`0`#l,;/`50N: %l,@@(@%`$ @`0  /`50.:P %:%(%`$ @``q"(P%`$ @``&(P%`$ @``":P%`$ @``0 0 0`$ @``50&(P%`$ @``":P%`$ @``&(P%`$ @``":P%`$ @``&(P%`$ @``&(P%`$ @```$ @`` qp":P%`$ @``0 0 0`$ @``50&(P%`$ @``":P%`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @``0 0 0`$ @``50&(P%`$ @``":P %`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @``0 0 0`$ @``50&(P%`$ @``":P!%`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @``0 0 0`$ @``50&(P%`$ @``":P"%`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @```$ @``,:P%(%`$ @`#`":P$%`$ @``0 0 0`$ @``50&(P%`$ @``":P%%`$ @``&(P%`$ @``":P&%`$ @``&(P%`$ @``":P'%`$ @``0 0 0`$ @``50":P(%`$ @``&(P%`$ @``":P)%`$ @``&(P%`$ @``&(P%`$ @```$ @``":P$%`$ @``0 0 0`$ @``50&(P%`$ @``":P*%`$ @``;'f:PN00`$ <` `600 0 0`$ @``500 0 0`$ @``50":P'%`$ @``0 0 0`$ @``50&(P%`$ @``":P+%`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @``":P$%`$ @``0 0 0`$ @``50&(P%`$ @``":P,%`$ @``&(P%`$ @``;'f:PN00`$ <` `600 0 0`$ @``500 0 0`$ @``50":P'%`$ @``0 0 0`$ @``50&(P%`$ @``":P-%`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @``":P$%`$ @``0 0 0`$ @``50&(P%`$ @``":P.%`$ @``&(P%`$ @``;'f:PN00`$ <` `600 0 0`$ @``500 0 0`$ @``50":P'%`$ @``0 0 0`$ @``50&(P%`$ @``":P/%`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @``":P$%`$ @``0 0 0`$ @``50&(P%`$ @``":P0%`$ @``&(P%`$ @``;'f:PN00`$ <` `600 0 0`$ @``500 0 0`$ @``50":P'%`$ @``0 0 0`$ @``50&(P%`$ @``":P1%`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @``,:P$%(%`$ @`#`,:P'%(%`$ @`#``$ @``":P%`$ @``0 0 0`$ @``50&(P%`$ @``":P2%`$ @``&(P%`$ @``":P3%`$ @``&(P%`$ @``&(P%`$ @```$ @``":P%`$ @``0 0 0`$ @``50&(P%`$ @``":P4%`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @``0 0 0`$ @``50&(P%`$ @``":P5%`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @``0 0 0`$ @``50&(P%`$ @``":P6%`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @``0 0 0`$ @``50&(P%`$ @``":P7%`$ @``&(P%`$ @``;'f:PN00`$ <` `60`$ @```$ @``,:P%(%`$ @`#`lt `$ @`8`,(P %`$ @`0"ql`50lllllt 9&(P%`$ @`:``$ @`;`&(P%`$ @`<`4:P%(%(%`$ @`=>?``$ @`;`"(P%`$ @`@`"(P%`$ @`A``$ @`B`"(P%`$ @`C`+(P%`$ @`0Upd`50 kd4:@D%d@`$ @`0`1h`50-h@(@%`$ @`EF`"`$ @`W0GUpf`50-kfD0 H`#l;/60\:I: J%l@@lJi@%`$ @`0`1h`60#h@`$ @`E`"(P%`$ @`A``$ @`;`&(P%`$ @`<`4:P%(%(%`$ @`=>?``$ @`;`&(P%`$ @`:`"(P%`$ @`K`t@(xh, `04:XL%:8M%($%h$ @hlhl(X]3":XN%h$ @hOhh$ @hPh":XQ%h$ @hOh(X]3,lhfnrU~| 54"I ")[1kY& ,Y`y,Q, XZk lkkk!ZQl-l`l9>la1mim u"  u"+(D%T$ @T$UpZT5$ kZ.:D%:%(%T$ @T T4:4 %Z@T$ @T$`1xT5$4:4 %x@T$ @T$`1tT5$ltJ8-x@(4%T$ @T  T$(dlxJi4h*($d"xMD@ `1`6$l` @l` { l\l`*1\ d~R#x@T$ @TTl\C l0"6:D%(%(%T$ @T T l0h6:D%(%(%T$ @T T l06:D%(%(%T$ @T T l06:D%(%(%T$ @T T l0:6:D%(%(%T$ @T T l06:D %(%(%T$ @T T.:D!%:%(%T$ @T TD\,`d\xtT$krU 4$4__SRP_35g__SRP_36HJ__SRP_37__SRP_38GO`nrU 6$6`) i $6`nrU~| 981qI yqd0((h%:H%x$ @xxLD0$ xkrU~| 76E9"I ""!#Q## $nY&&&&y<-Q'''<#<<==9=a""Y=y=====>Y< )6Q))**i**+)+Q++ ,y,Q,,.`A-q- \^AoXi_aoHKK u,  u,-:,%<$ @< `1x<5 #x@<$ @<<((, %<$ @< h<((,%(%<$ @< <9:, %<$ @< `#l;/<5 N: %l@@(%<$ @<   /<5 .:, %:%(%<$ @<<"(,%<$ @<<&(,%<$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<":,%<$ @<<&(,%<$ @<<&(,%<$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<":,%<$ @<<&(,%<$ @<<&(,%<$ @<<<$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":, %<$ @<<&(,%<$ @<<;'f:,!N  <$ << "<6 0   <$ @<<5 0   <$ @<<5 ":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,#%<$ @<<&(,%<$ @<<;'f:,!N  <$ << "<6 <$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,$%<$ @<<&(,%<$ @<<;'f:,!N  <$ << "<6 0   <$ @<<5 0   <$ @<<5 ":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%%<$ @<<&(,%<$ @<<;'f:,!N  <$ << "<6 <$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,&%<$ @<<&(,%<$ @<<;'f:,!N  <$ << "<6 0   <$ @<<5 0   <$ @<<5 ":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,'%<$ @<<&(,%<$ @<<;'f:,!N  <$ << "<6 <$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,(%<$ @<<&(,%<$ @<<;'f:,!N  <$ << "<6 0   <$ @<<5 0   <$ @<<5 ":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,)%<$ @<<&(,%<$ @<<;'f:,!N  <$ << "<6 <$ @<<<$ @<<,:,%(%<$ @<*<,:,%(%<$ @<*<h(, ]t<$ @<+<((, %<$ @< X<"X(,]p Xhc' ,&(,%<$ @<-<<$ @<.<&(,%<$ @</<4:, %(%(%<$ @<012<<$ @<.<"(,%<$ @<3<"(,%<$ @<4<<$ @<5<"(,%<$ @<6<+(,%<$ @< UpR<5 kR4:7%R@<$ @< `1T<5 -T@(%<$ @<89<X<$ @<L4Xxh@T < 4:X?%:8@%($%h$ @hlhl(X]3":XA%h$ @hBhh$ @hCh":XD%h$ @hBh(X]3(,lhf__SRP_39g__SRP_3aLN __SRP_3b__SRP_3cMQ rU 8$8`nrU~| ;:69"I ""!#Q## $qY&&&&!'-Q''a"" ()(Y< ):Q))**i**+)+Q++ ,y,Q,,.aA-q- \^rXi_ D KKA -:,%<$ @< `1x<5 #x@<$ @<<((, %<$ @< h<((,%(%<$ @<<9:,%<$ @< `#l;/<5 N:%l@@(%<$ @<   /<5 .:, %: %(%<$ @< <A "(,%<$ @< <&(,%<$ @<<":,%<$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<0   <$ @<<5 &(,%<$ @<<":,%<$ @<<&(,%<$ @<<;'f:,N  <$ << <6 <$ @<<<$ @<<,:,%(%<$ @<<h(, ]t<$ @<<((, %<$ @< X<"X(,]p Xhc' &(,%<$ @<<<$ @< <&(,%<$ @<!<4:,%(%(%<$ @<"#$<<$ @< <"(,%<$ @<%<"(,%<$ @<&<<$ @<'<"(,%<$ @<(<+(,%<$ @< UpB<5 kB\4:)%B@<$ @< `1T<5 -T@(%<$ @<*+<<$ @?@ABDFGIKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~#q>Q'xxAy1?y>?!# @?)+XX 4:H%:(%(#%X$ @XlXl(H]3Kl(H]3[:(H%((%(%(d%:%X$ @XX4(H%((%(Z%(%X$ @XX4(H%((2%(Z%(%X$ @X X":H %X$ @X X:(H%(( %(%( %: %X$ @X X:(H%((%(%( %:%X$ @X X:(H%((2%(%( %:%X$ @X X:(H%((F%(%( %:%X$ @X XX$ @XX.X$ @XWA4X6(H%1 @X$ @XWB\X5\(H]3&(H%X$ @XX&(H%X$ @XXW(H]3":H%X$ @XX":H%X$ @XX":H%X$ @XX":H%X$ @XX(H]3S":H%X$ @XX":H%X$ @XX":H%X$ @XX":H%X$ @XX(H]3":H %X$ @XX":H%X$ @XX":H%X$ @XX":H%X$ @XX(H]3":H!%X$ @XX":H%X$ @XX":H%X$ @XX":H%X$ @XX&(H%X$ @XX&(H%X$ @XXlpp(H]3((H%((%X$ @X"X&(H%X$ @X#$X"(H%X$ @X"X"(H%X$ @X%XX$ @X&X&(H%X$ @X#$Xp(H]3((H%((%X$ @X"XrX$ @XW%`X`(H]3TX$ @X&Xx":H'%X$ @X(X"(H%X$ @X%XH`.p`\l"XkrU <$<`Q  nrU~| ?> yI Azkyzzt6:h%(H%((%x$ @x __SRP_3do__SRP_3ePRH__SRP_3f#o__SRP_40K[%x6:h%(Hm%((%x$ @x xdt$ xkrU >$>` A nrU~| A@-I Q'p80l lh$ @hh5lx$8$ hlkrU @$@`nrU~| CBI p\("(h%x$ @xx$($ xkrU B$B__SRP_41)g__SRP_42TV+__SRP_43/o__SRP_44UY1``  nrU~| EDI " z {1{ :9:HK  u'  u'5,0Pp$ <p p6P09$(p$ 4p ( $ )p($3,(p$ 4p ( l,qx)p(tlxd 5,''0Pp$ <p p6P07,(p$ <p <( < l,)p(Vp$ <p l 0($ <( l 02)p(7,'(0Pp$ <p p6P0!'Pp$ <p <p5P),Pp$ <p p5P!'Pp$ <p p5P/(p$ <p <( $ )p(<,(0Pp$ <p p6P0!'Pp$ <p <p5P/(p$ <p <( $ )p( tf9$(p$ 4p ( $ )p($H$ ,p($P0krU D$D`nrU~| GF<   $ k__SRP_45Cg__SRP_46XZE__SRP_47HgCheckHandWc?trU F$F`n( bOxME4* bO~OxMEP6 L<<<( $`k00P0xPFt@*d xPHp`P\`XZ%@<@T @D @ 4 @$ @8 @P @h @ @ @ @ @ lL$*\Rffff*1?50c47d0f$*\Rffff*0^50c464dc*\R1*#17b*\R1*#c1*\R0*#f3 " (08  @ P`p+x ^.44(@-Phpx*$  # *6(X*6p *6 *6( 06@p *6 .@HP`x]@]X]p]]]  cards Bor two G|jkZ <%' 1The cursor is not currently within a deal layout.CheckHand Error <B@PHk  <%&' 0thin a 0 <%\' FCopyca F 0* <B@(Zk * 0 < 0 *$' H H$@ H${ 0  H ' k * 0 <B@  NorthEastKTCheckNE <B@ NorthWestKTCheckNW <B@ NorthSouthKTCheckNS <B@EastWestKTCheckEW <B@ FourHandsKTCheckFourHands <B@OneHandKTCheckOne <B@SHZThe deal layout is not marked for checking. The layout must be created from the Edit Menu.CheckHand Error <B@P$nHo@Attribute VB_Name = "CheckHand" Option ExplicitD Pub4 Sub Main() Dim rker$Co@ntentsI!*LettDMarkBookmnum As "I;gerkIf License edFalse Then  Call BridgeAuthor. 2G%IValid Gp ith(End If Start: M= WordBasic.SelInfo(29.0OMsgBox "] cursor is notrly within a deal layout.", Error 0 + 16GoTo Bye ^s?[Q$](Y0l Get  64 A @vAsH< 12, '$W(VNext UWW7_9a"8ct Ca"NorthEastA2_ToolsMacro k$:=NE}RunM, Showh:=2P We ȬWWWW6 I SQh NS ! bE8 Four!s) g, 3/7:One@F;@X$;E= Efjca2ing.ud must be@ creatrom the A[ Menuܐdlec@:#y ColorizerJ Copycards\^O2FourHandsj3NorthEast]a)6 LLLLLLL<8<<< $`k##`x`*@t%X`x 8$(2@p @` @P @p@ <@0 @, @( @$ @H  `  @ H @ @ @ @ H:<HxplL$*\Rffff*1L50c47d0f$*\Rffff*0^50c464dc*\R1*#1e*\R1*#a4*\R1*#17b*\R1*#c1*\R1*#129*\R1*#c6*\R1*#d0*\R1*#158*\R1*#d8*\R1*#e3*\R1*#19f$"  ( 8HX5`935 7 $V7 !8)H !`/p"< !/    9 xHh]@]X  B G|jk $" (& B@  !!*(,$ !.!' *  2" B@0( !!j !dH !dD 2" B@0 B@4 2" B@6Z B@&'( : !(8 2" (& B@0 B@4H < !(8k0k( *EH !!*(,oAttribute VB_Name = "Colorizer" Option Explicit Sub Ma0in()p`rror GoTo Bye Dim NumChars As Lon g*IIf LicenseCh eckeduFalse Then Call BridgeA@uthor. 2r%IValid# Git @End If2Selec.HomeKey Unit:=wdStory,ten"dMovg AveDocument.Window.View.ShowHiddenText@Tru= "acters.CounFI<1 WGRightX"nFoUJH -"H" OrD"eX$, 5:=1 H lapsBHy!aicI7 HExh<@ LPLL*L<0<4<8<<< $P`@x@kww/Copies cards from one or two hands to clipboardTemplateProject.Copycards.MAING|jPDx&PFt <`*r PHlPh <PJdPL`P\PNXPP`T`TL ' `H@V8 B@l@X(  w@H%^`xoAAzY0 2.5 I <B@Y`.vjPpPl 8PB%H008xxHp`RPP(!X<B^?@$ [@ p&@ uL@ L'K@ +@ |TIV@0 5@ {e@p b|H!Fα\@ }\p!Q{o@ 0/p&"B@ 0)US1@ nc.1@ rust@0 erms@Ht ww.v@`d 41.0@T ss 3@D A0xM000Z @ xx X(` @@XP^xymanh@ch LabSymadh  *@f M(zI@d 챨7a(@b %``@pP <B @`@L $@ < `"@8 `4``$% f:@$ $@  @8  @P `@h #`@ $@ @ `@ @ @ `@ t `@( d `@@ T @X D `@p 4 `@ $ @  `@  `@ @ $@ ":P@ @0 0@H @  @@ ":P@ @|  @@x ;' ,00;$ <0PhXlL$*\Rffff*1>50c47d0f*\R3*#12$*\Rffff*0^50c464dc*\R1*#17b*\R1*#c1*\R0*#f*\R3*#7*\R3*#7*\R1*#129*\R1*#d6*\R1*#b5 " (08@HPX`px   ,  ^.`h4p4-)$ 0@ H#X"hx  ; ; &! ; ;8 &!X ; ; &!;;0&!Pxb.;0 L:@44"$:$:$:8$:`  .  1     (@ H` h. (0 8"X h x        "  8 X  p 4 "h x  B                       0 8  @   P X &`  x & H (  $   (  0  8 @ bH ` &h " " #  4 B H 9X p $x  2[  '  D2[P"G0[ 3 (08@HXx]]]]]]]0]H]`]x R]]@FHCopy]]  BF G|jk(Z <%' 1The cursor is not currently within a deal layout.Copycards Error <B@PHk  <%&' D D <%\' F F  D* <B@(' Z0k( * D D *$' H H$@ H${ B@  H ' k * D <B@ <B@f  NorthEastKT $BN $B$ ^' JE $B$ ^' LNorth: J East: L ' B NorthWestKT $BN $B$ ^' J W $B$ ^' NNorth: J West: N '  NorthSouthKTN $B$ ^' JS $B$ ^' PinNorth: J South: P ' EastWestKTW $B$ ^' NjE $B$ ^' LmbWest: N East: L ' B@ FourHandsKT <B@6You have selected a deal which already has four hands.Copycards Error <B@PjHOneHandKTN $B$ ^' J R(d-In which position should this hand be placed? <B@`WD Z <B@b2Z <B@d Hand <B@f <B@ &South <B@h4 in &North <B@h2 &West <B@hF &East <B@hSymb <B@j  <!l!n.T T(pB@  T <!r%n'VB@ VGHjB@ T!pWC KTNorth: J ' KTSouth: J '  KTEast: J ' KTWest: J ' 4 inSxHpnhS`UThe hands are not marked for copying. The layout must be created from the Edit Menu.Copycards Error <B@PHnPut hand(s) on Clipboard <B@f <B@t]0.v vB@z vB@|.v.v  vB@z vB@|.vWordBasic.WW2_Insert Clipt$WordBasic.SentLeft 1WordBasic.SentRight 1, 1WordBasic.EditCut <B@~Copycards has put the hand(s) on the Clipboard. To place the cards into a new Four Hands layout, move the cursor to the desired location and then click on Pastecards from the Edit Menu. Copycards@ <%P'X <B@fHoxP]]]  dP@ . .KTS' KTH' 'KTD' 'KTC' 'nj <B@ <B@lj <B@BWordBasic.WW2_EditFind (Marker$ + K_$), Direction:=Dir_, Format:=1!WordBasic.EditFindClearFormatting !r9C@99 9 0  C@qj <B@ <B@v <B@f  <B@xWith Selection. .StartOf Unit:=wdParagraph, Extend:=wdMove; .MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtendEnd With <%z+ d  $BKT$d $ d$ d  <%D+ dk  $BKT$d = NS__$(0) = WordBasic.[Left$](NS__$(0), (Len(NS__$(0)) - 2))$ d$ d  <%D+ dkpnh$ d <%D $ d$ d <%0+ dk $ d ,$B '  . ' ^z iӶAttribute VB_Name = "Copycards" Option ExplicitD Pub4 Sub Main() ".Descri|ies  from one or two hands to clipbo{zRProcData^Invoke_FuncTem plate"ject..MAINMDim BMarker$  ContentsI As I gerLettNort hCREastCctWe HSouReDH__$(0dlgFObeE Bookm^num LongrrGoTo -1: OByeTheButtonResponsIf LiceCheckedRFals,e @ Call BridgeA.or. KA @Validit End If Start:  6= WordBasic.SelInfo(29El K 0G( MsgBox "/ cursFisP notAr{ly within a deal layc.", EU0 + 16- BXS/@: [)$](,1F Get   =Len(A ) < 3=E diF, Delete:=10B] 1F $I1 Ha _Mid(, I, 1Asc() > 64 A;< 12H͢$@ + GNext I *WW7_!c0fx`EType @ Ca@Xc b"wuVby#x("N?2, Chr(13)}Ec@:"JI+ "! G ǐW! G { --ȥSB " I0G'32HD8D0ICa )@ECFourǁET'cYouve 2s@ctwhich already s fy_QorpXQQ7"OneA ss$_6a2 qsR BeginDialog L20B511!"In #posishould @`sb be ced? OKCt 25, 9q5#WCancel“Group "s=3 B130n^&/t@ q1x2  A/oom7!7l n#"0Set YCurPues.User_ .=~0@t3(0d~8c)nr8sYOi+Yt&rL(?3D2@"fV RETkOD`#'*Éare AZfcping . ! mus:t!Lc\q]the  Menuo\o\ le 'PutR(s)` RYE7OfDpocumM~y#e8= New pttT">5 InH o0 ?D /r &Qoe'WW2_Irt2ASpLeftalRighpж f qCugGoBack u7 %(Ws pP" hand(s) on the Clipboard. To pPlace`cLs into a new Four Hs layout, movZursor Xdesired locatijn click{Paste!cfromrEdit Menu.", "Copy 0 + 64) WordBasic.SelType 1 Bye: End Sub Private FuncC$(Marker$, Dir_, LA$*Dim K As Integer _$TempRe NS__$(0On ErrzGoCheckpo FA K = 14 Uect Case K ]K_$"S"2H e-3D!+D%fCU]el7fWW2_ToolsDOp_sViHidden:==Gq|FindClearMmatting  ha'G Ez@0)|(:=~B##ith q.,X.w@@`True3AS.MatchWhole-K Bn= FalsEWrap@ wdBI on@GFExecuPText:==W@.KJ30I/C-Right (1 ^G !oExtend$k '!g'!StartOf UniwdParagh,  :=wdM!aDown1Coun1iaT/ w@*[f$]~(pb:C`hr(32 If Len(# ) >~henDSLeftc , ()` - 1) !INfC bD132 T' 2BzE9, `(1.#1)5" "Gs"Uj*O*cba) +#+ +4Nj!7Dž`xՅ gResumwG'(\ (bOzOxMEP> LL< $p`@`kSets template for four handsTemplateProject.FourHands.MAINxP&x|j`t&`p <`l Ph`fjO`d0P `Pk @2l p@% 8<B@` @P @X@ @0 ,8@@p @ @ @ @ @ @ . T680 <68@h @8X dM$@PH 8@h8  @@( ":X@ @ 8@ @  @ plL$*\Rffff*1=50c47d0f$*\Rffff*0^50c464dc*\R1*#17b*\R1*#c1*\R0*#f*\R1*#129*\R0*#10 " (08@ "H p -#,(9&N .H"&"(0@&X"p&"&&  "0&("@&P &;h 0&"& &;   00&H"`&p &; 0&"& &; @ P,`"0&"&"&" 08"P&`"x&& "0&" &;(0P0h"0&"& &; "(0@&X"p& &;00"0 & "8 &H &;`   " 0 & " & &; 00 0H "` 0x & " & &;   " 0 &8 "P &` &;x 0 0 " 0 & " &( &;@  h ,x ,   " 0 & " & "8 &P &h   " 0 & " & &; (08&P"h&x &; 0&"& &;  H0X&p"& &;  ,  (,8"Px& & 4 "" " +0 H4X-p"-:\#"( 8&H 4` &" "4   "  "   (8x]]]]]]]Dim CharacterNumber As Long probl  B& G|jkX <%>' & & <B@ <%' H <B@ <%z+ $  <%D$ vThe current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.Insert Four Hands <B@PHk <B@8b   <B@ 2.5 in <B@  $B <B@ <B@N <B@ <B@orth <B@ <B@ <B@ <B@'2.5 in <B@  $B <B@j <B@NS <B@j <B@Symbol B@ <B@ $B <B@j <B@NH <B@j <B@Symbol B@ <B@ $B <B@j <B@ND <B@j <B@Symbol B@ <B@ $B <B@j <B@NC <B@j <B@Symbol B@ <B@ <B@2.5 in <B@ 1 in <B@  $B <B@ <B@W <B@ <B@est <B@ <B@4 in <B@  $B <B@E <B@ <B@ast <B@ <B@ <B@ <B@1 in <B@  $B <B@j <B@WS <B@Symbol B@ $B <B@ $B <B@4 in <B@  $B <B@j <B@ES <B@j <B@Symbol B@ <B@1 in <B@  $B <B@j <B@WH <B@j <B@Symbol B@ $B <B@ $B <B@4 in <B@  $B <B@j <B@EH <B@j <B@Symbol B@ <B@1 in <B@  $B <B@j <B@WD <B@j <B@Symbol B@ $B <B@ $B <B@4 in <B@  $B <B@j <B@ED <B@j <B@Symbol B@ <B@1 in <B@  $B <B@j <B@WC <B@j <B@Symbol B@ $B <B@ $B <B@4 in <B@  $B <B@j <B@EC <B@j <B@Symbol B@ <B@1 in <B@ 4 in <B@  <B@2.5 in <B@  $B <B@ <B@S <B@ <B@outh <B@ <B@ <B@ <B@2.5 in <B@  $B <B@j <B@SS <B@j <B@Symbol B@ <B@ $B <B@j <B@SH <B@j <B@[Symbol B@ <B@ $B <B@j <B@SD <B@j <B@Symbol B@ <B@ $B <B@j <B@SC <B@j <B@Symbol B@ <B@ <B@2.5 in <B@ B@  orth <B@ <%'    GA@jkj <B@ <B@l <B@j <B@<B@NSt <B@ <B@l <B@ c. <B@fol <B@x 170 <B@"mb$ <%'  G  <%&' <B@ * <B@(B@$pkh <%,' .h  $T+ .(Wo FourHands$ .$ . <%0 '   <B@( <B@f <B@ljj <B@ $BNSt <B@ <B@lND j <B@<B@ <B@vH@ o8 p]The layout will not fit on the current page. You may either let it continue or insert a page break before the beginning. Do you want the program to insert that page break?Please answer Yes or No <%P'2 2KTL-18 <B@ <B@4 <B@L+18 <B@KTn o ;Attribute VB_Name = "FourHands" Option ExplicitD Pub4 Sub Main() ".Descri|Sets templafor 2f hg?Pr@ocDataKInvoke_Fu4ncTF"ject..MAINDim Userfont$  Startline As L(ongLsdown End BMark'Nu@mbookmsIntegerE*B num 'DCharactder!erG If LicenseCheckeduFalse Then Call BridgeAutho 13Q MsgBox "X cur@rent p@hgraph c@?@Axt, so igrcanno eed. Place thes@in an ty@ res.", "IB  , 0 + 16e GoTo Bpye EkG/\oBfA 0 FormatTabs ClearA0ll:=UR"2<.5g8h7WW2_Chr(9 8  fZ Bold 6 "ta Sm\Caps< orth $#!`GC!PC3une=AVB0 ,=,},Hidden,S?#_e l.S2yl 70,`Vnt:="c`YUnicode:=–$"(G1 M!!"NH!!?!mber !69?! !!!`s\Ct "ND!elcW_!l8_!/!rtx5/!rt/!iqo/!&"NCo/ 1/!1#!7oooo C JF,_a1^oh7-o^WOatbo^r [4n&(9"E w ?lc.ast k Ax4\$!)  -H_"W1jPQo5o5b5?g, o5ueD32"=e& "#VE;@!E|NRZ{=1: #E( "W?}r\=1?}` &/-8P&?_ !pZ Insert "@EH" WordBasic.WW2_FormatCharacter Hidden:=0 Selection.Symbol \Number:=169, Font:="F", Unicode:=False |PPwTabs "18 in=r(9)@#15 ф%"WDڐ8s32t^Chr( 4RR?AR OQEQ $R HJQ&H=[CphH7e _M)[M))?)L M)q, CleaA!-Bv  2.5ß@Bold@"B9"S=SmallCaps< outhcGL M `՛#J5JI6)s `)q!eZ[Sa* [_[-70?B{ Hyφ"SO(RA e ?8!__1""Su!/$u/_rt__!!!"SO_!!?!!?_o` ra#RAGE)aIf Startline > 1@0 ThenMXToolsRepa ginatD hEndr=I@nfo(10s  > 0 A4nd<q PxastPP N OpspView=EditFindStingfɇU "NSDirM%B5LLUp Z Type 2y ExtendC1Down 17 Bmarks: BooBknum o|(2QyB*M$[Name$](E , Dt@!>GoToc % s* Countus(`ReDim p__$(A'S(tr(b+ 10 "FourHands" +X,[Right , Lenc) -Q'A_*'_*_*]*2_*tO22_7c.CharRight (1) Bye: End Sub Private8 Pastpage(Dim KeyPres sed  = WordBasic.MsgBox("The layout will not fit on tcurrent ]. You @may eir let +continue or insert a1 break beforeObeginniDngLDo w wa_kprog@ram toEt ha=$?", "Please answer Y$es:No 4 P+ 32 Select C  -1 WW7_EditGoTo @"L-18"IyPBw)+)}G0zB1{F~\ bOtOxMEP> LL< $p`@xk/Sets template for North-East defensive problemsTemplateProject.NorthEast.MAING|jP&x&@h <@X PT`RjO@@ 0P `Pk @2l p>% 8<B@< tps:@, pa01@X p://@ 3.cr8@@p 0 @ A204@ =@ #y0@ 10@ .170@ ic P.H T~-=Rd>g. <+0ht:/@h U@8X rl.e@PH rl0@h8 O@( U@ @ V7@ @ 8nplL$*\Rffff*1<50c47d0f$*\Rffff*0^50c464dc*\R1*#17b*\R1*#c1*\R0*#f*\R1*#129*\R0*#10 " (0 8X  ` p -#((9&N .H  *  8P  8 H"X&h"0&"&"&&  8"H0`&x"& 0&; 0 &8"P&` 0x  &;    0&"&  08&;h 0&"& 0&;( P `,p"0&"&"&&0 H0X&p"& .&;  0 &0 "H &X 0p &;   0 & " & .0 &;`   0 & " & 0 &;  H  X ,h     ( ")  &   &  40  P "` "p   " +  4 -     0( :\H # "   &  4   &"(0 "8@4H 0 8 "H ` p xx]]]]]On Error GoTo -1: Onfor No]@FHrobl  Bt.Nort G|jkX <%>' & & <B@ <%' H <B@ <%z+ $  <%D$ vThe current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.Insert North-East <B@PHkWordBasic.SentLeft 2, 1$Sel__$(0) = WordBasic.[Selection$]()2If Asc(WordBasic.[Left$](Sel__$(0), 1)) <> 13 Then WordBasic.MsgBox "The current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.", "Insert North-East", 0 + 16GoTo ByeEnd If <B@8  <B@ 2.5 in <B@  $B <B@ <B@N <B@ <B@orth <B@$ <B@ <B@ <B@2.5 in <B@  $B <B@j <B@NS <B@j <B@* WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ <B@ $B <B@j <B@NH <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@ <B@ $B <B@j <B@ND <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ <B@ $B <B@j <B@NC <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ <B@ <B@2.5 in <B@ 4 in <B@  $B <B@ <B@E <B@ <B@ast <B@ <B@ <B@ <B@ $B <B@%j <B@.ES <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ <B@ $B <B@j <B@EH <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@ <B@ $B <B@j <B@ED <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ <B@ $B <B@j <B@EC <B@j <B@* WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ <B@ <B@4 in <B@   <B@ <%'    GA@jkj <B@ <B@lj <B@NSt <B@ <B@l <B@  <B@f <B@x <B@"$ <%'   <%&'  * <B@($k <%,' .h  $T+ . NorthEast$ .$ . <%0 '   <B@( <B@f <B@lj <B@NSt <B@ <B@lj <B@ <B@vHop]The layout will not fit on the current page. You may either let it continue or insert a page break before the beginning. Do you want the program to insert that page break?Please answer Yes or No <%P'2 2KTL-12 <B@ <B@4KTnoxpQAttribute VB_Name = "NorthEast" Option ExplicitD Pub4 Sub Main() ".Descri|Sets templafor -g defensive problemszRProcData^Invoke_FuncTY" ject..MAINMDim Userfont$ Star tlineEndBMark Bookmnum As Integer 'O rreGoTo -1: On%Numbs$ EByB @If LiceCheckedmFalse Th e- Call BridgeAuthor. K$Valid #it > @=AFG WordBasic.[FL]x TS SelI@nfo(10Re^el__$(SentRight 1, 1  #w$$9Asc([Left)) <> 13HQ MsgBox "@X curr! paragraph c@?xt, so in@cannotceed. Place thesin Han tya@nd resA.", "IB0 + 16 wBBj'.L; Z2BL'>?g1k/+$+?)J z>"Efr[>ffQe I%uQ+di8%޳'WordBasic.WW2_InsertSym bol "8", 168 Selection. CharacterNumber:=\, F ont:=Unicode:=FpalseNP F  Chr(9)Format Hidd enK"EC"e(I0' K7-7 Tabs "4 inCleaRIf Startline > 10 Then0GToolsRepaginato End =HFInfo(10j  > 0 And < Past@Cs@  !"OpsView{G EditFind;Ating  E "N"SPDir:=^0AnL@\Up 1$OType 2 Exte2@f 3?BM $[Name$](=+  c , Dt@GGoTo \ E>!$sJCount s(@ReDim _8_$(NFStr(bf + 1`f"North"EN" +X[R0ight@ , Lena ) -" I5E;=OArTaTT2Tar6n& (B,ye:9Sub Priv` |77KeyPressed  g ?MsgBox("T layout will not fit on the current . You @may eir let `c@Ӏinue or@ ! a" break before be@n Do  wa a program tothaC% ?"P`;se answer HYesNo@49@N32Qaa{ Ca`!aa-gÄ/WW7_I"j"L-12([!geB^?RnZlNorthWest)UserForm1`bUserForm2ImportFile_g\ v bOvOxMEP> LL< $p`@xk.Sets template for North-West defensive problemTemplateProject.NorthWest.MAINP&x@h @X PT@D `BG{0P `Pk @2l VBp<% 8<B/C@< n.co@,  =@X (+@ .ver8 0 @@p veri@ 3ht@ eris@ a.ce@ ==d6@ B@ 0.bi T\Commo  <red\;C\@h le@8X \;@PH F@h8 n @( ig@ ng@ og@ HP@ mabinplL$*\Rffff*1;50c47d0f$*\Rffff*0^50c464dc*\R1*#17b*\R1*#c1*\R0*#f*\R1*#129*\R0*#10 " (08 @  ` p -#((9&N .H  *  8P  8 H"X&h"0&"&"&&  8"H0`&x"& 2&; 0(&@"X&h .&; 0&"&( .@&;p 0&"& .&;0 X h,x"0&"&"& &8 P0`&x"& .&;  0 &8 "P &` 0x &;   0 & " & .8 &;h   0 & " & 0 &;(  P  ` ,p     ( ")  &   &  48  X "h "x   " +  4 -     00 :\P # "   &  4   &" 08 "@H4P 8 @ "P h x  x]]]]]]On Error GoTo -1: Onto tex@FHl+C  Bt.Nort G|jkX <%>' & & <B@ <%' H <B@ <%z+ $  <%D$ vThe current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.Insert North-West <B@PHkWordBasic.SentLeft 2, 1$Sel__$(0) = WordBasic.[Selection$]()2If Asc(WordBasic.[Left$](Sel__$(0), 1)) <> 13 Then WordBasic.MsgBox "The current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.", "Insert North-West", 0 + 16GoTo ByeEnd If <B@8  <B@ 2.5 in <B@  $B <B@ <B@N <B@ <B@orth <B@ <B@ <B@ <B@2.5 in <B@  $B <B@j <B@NS <B@j <B@+ WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ <B@ $B <B@j <B@NH <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@ <B@ $B <B@j <B@ND <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ <B@ $B <B@j <B@NC <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ <B@ <B@2.5 in <B@ 1 in <B@  $B <B@ <B@W <B@ <B@nest <B@ <B@ <B@ <B@ $B <B@j <B@WS <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ <B@ $B <B@j <B@WH <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@ <B@ $B <B@j <B@WD <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ <B@ $B <B@j <B@WC <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ <B@ <B@1 in <B@   <B@ <%'    GA@jkj <B@ <B@lj <B@NSt <B@ <B@l <B@  <B@f <B@x <B@"$ <%'   <%&'  * <B@($k <%,' .h  $T+ . NorthWest$ .$ . <%0 '   <B@( <B@f <B@lj <B@NSt <B@ <B@lj <B@ <B@vHop]The layout will not fit on the current page. You may either let it continue or insert a page break before the beginning. Do you want the program to insert that page break?Please answer Yes or No <%P'2 2KTL-12 <B@ <B@4KTnxophFAttribute VB_Name = "NorthWest" Option ExplicitD Pub4 Sub Main() ".Descri|Sets templafor -g defensive pr`oblemyQProcData]Invoke_FhuncTX"ject..MAINMDim Userfont$ StartlineEndABMarkNumbookm sBnum As Integ@er 'OrrmGoTo -1: On ByB If LiceCh eckedmFalse The$ Call BridgeAuthor. C$Valid #it =AG@ WordBasic.[F}L]yT  TSelIn fo(10ReB^el__$(SentRight 1, 1 ~  K#x$C$9Asc([pLeft)) <> 13HQ MsgBox "@X curr! paragrapph c?xt, so incannotceed. Place th esin a$n tyand r׀.",8 "IB0 + 16 j'.L; 2BL'ʄer70, A:=Unicode:=b'+G r+&aM>d`"NH/sJ69qoo69oo@/raE;?+!_&2s"NDc.G68rtt68% #OC%%6 9%eh967V9679 3jP,g"Li"1cgHm/gWO+q % /g rt "s4M g$;sV?OF :+/ atg'QQ"Wd?r/+,?>dQQd1h/+\) "Wcy '=c c, ' O%=O1t"WAcocccܳ.InsertSymbol CharacterNumber:=168, Font:="", Unicode:=False WordBasticP.0WW2_r(9)>Format Hidden+L"WC"uK0,'Js167,Selection7 jTabs "1 inCl eaԂT If Startline > 10 0Then 0 And < Past@C@ ' !"OpWsVi ewI}G Edit0Find;Ating  E  "NSPDirw:=0pL@\Up 1$O@Type 2 Extend!Downm :Bmarks: Booknum g2 AgGBM@$ [E Name$](=+  c , D ctGGoTo  E>$sJCount s(ReDim __$(NFStr(bf + 1`f"NorthWest" +X[Right@ , Lena ) -" I5E;=OrT!TT2Tar6n`& (B,ye:9Sub Priv` |77KeyPressed g ?MsgBox("T layout will not fit on the cur rent . You may eir let `cinu0e or a" break @before be@n Do 1 wa a program tothaC ?"P`;se answer Yes)No@4@N32Qaa{ Ca`!waa-g/WW7_I"j"L-122geBDA AAr8\eD, I }(XOI7,5Y{H5cn>o@pEsdxo@pEsdeD, I }MEPSPSSS6" <0{F417D9E0-51C6-49CA-9BE5-F10859A821C9}{71C1B843-3BE9-43CF-9C58-799953B13453} `xkph@%p %%%r@x 8@p`lL$*\Rffff*0f50c465c6*\R0*#1e*\R0*#1d 48<@DHLPT"  ( A@ro`X"Attribute VB_Name = "UserForm1" " Bas0{F417D9E0-51C6-49CA-9BE5-F10859A821C9}{71C1B843-3BE9-43CF-9C58-799953B13453} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCustomizDP Sub CommandButton1_Click() Unload "MLEnd [bOpOLbOdGcuEY oC]'Db'JC?yЄt#4/Hⵀxt#4/HⵀGcuEY ME4SPSSS>" LLLL <8<<<0{671765E5-35FA-46A8-A70F-579DB8B592F3}{EC506A1C-E037-4EA2-BB0C-71D163CA00AE} @`Hk `(@k `xk  `x|+!  @`Xk' ` Xk. ` Xk5 `Tk<0(%X0 %@@%%RFre.cod@x 086@v oca. @d @T x8P(VRHrx@x @h @X {moh @H @F P@@ H`x0x@x @h @X @H `HHr@x  Rh@x @h @X Rh@x @h @X Rv@x @h i @X Q 0h `lL$*\Rffff*0d50c46555*\R0*#1d*\R0*#1e*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#47*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#26*\G{AC2DE821-36A2-11CF-8053-00AA006009FA}#2.0#0#..\..\..\..\..\..\Windows\system32\FM20.DLL\2#Microsoft Forms 2.0 Object Library*#44$*\Rffff*2250c47e0f 48<@DHLPTX\K"(  ( 8HP "X `p x       "   "    ( "08 @ P `p "x    "    " ( 08 X hx    ! ( ( (k0o(@ !KT'V'RKT RKT'VSP'Vn@n8 !d'H A@ro'H A@rnifgoo'R ( (`  (ifeo@'R (` ma (dll (NIo@'R (l (`  (ctro'R (dB@ FKTRotation Options ( ( (vThe SGet Board Number (inse (ot pro (ce then8o0(Attribute VB_Name = "UserForm2" " Bas0{671765E5-35FA-46A8-A70F-579DB8B592F3}{EC506A1C-E037-4EA2-BB0C-71D163CA00AE} dGlobalSpaco False Cr@eatablPredeclaDIdTru BE`xpose0TemplateDerivCustomizDP Sub CheckBox1_Click()  If .Va lubP Then OptionButtonV1T 23EndB !) ,om0mandD. Select CA6-&[@Rota4FbFDCir@0J:  #   EB -G<Boarextx2.T UnloadL MBubZ2Z"Ȁ)@o_Initialize&Nj41X,S`$j U3^kogn3u>2&teA_A0ctivA :gWXqNnNumlineshcA &N.Ca/(fpsX Labelisi Z VbwGet g@ber/}0b+,      !"#$%&m)*+i-./0123456789:;<=>?@BCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghjklnopqtuvwxyz{|}~*E,bOאLxME@(LL <\<` 3 @ ring@ () = @8 P@` x8@ @ `@ @ `@ ( =id@8 - 3,P @ x8@ `Auct8 @ @ ds),@ (@/ 8HhPx ` 8 hPx ` 8 hPx ` 8 hPx ` 8 ( 8xPTPJ`!@h I{I@X sgBo@H @8 @( @ @ @` x8 @ ` p@  @  DN `x  x @l  x |@\ 6@L t8  !!!TX@!h @!X @H @"8 @( X x$`$ #"(%P%P#"h#T^\B@"` Rd@#P L6@#@ @8#0 md @# , 4@x# T)F#P# @$ $x# @# @# @$ @$ @0$ @ @H$ @ @$ @$ $x# @ @ F@% %$@ @%%@ h%(% @t yx%P%!%0@&&X&'(&'< @h @p&X @&H @&8 @&( @& @ @ t@ \'w "  P" lL$*\Rffff*2250c47e0f*\R4*#a3*\R0*#e*\R1*#129*\R0*#10*\R0*#14$*\Rffff*0d50c46555$*\Rffff*0^50c464dc*\R1*#ff*\R4*#a0*\R4*#9f*\R4*#a2*\R1*#c0*\R1*#c1*\R1*#17b*\R4*#9e*\R0*#11*\R0*#f$*\Rffff*0c50c46555  (08@HX`hpx "    (0 8@HPX`hpx    -#,(90&NH.p   (0 (8`h p x     ( 8@ P` x    <7   ( 0 HPXLq`   h7(         0 8@P X h p     6  ! 4GP  X` % 0 /  0 @ H P X ` h p    2I    )     0 H P X  `  p "5       "3 "3@ h p    .            .  8  @  H  P `  x  .            .  (  0  8  @ P X  p                        0H`&Cx `    0 "@ h x         ( +@ ` x +                    (0 8 +P +p +           (  0  8  @ H  P X  ` h p x   + + +    0 8 H X h x                        8 H ` p   "&"0&"(&8"P&h&  "0&"& &; 0H h0x&"&  &;0 0(&@"X&h &;0 0&"& &;00X x ,"0&"&"(&@"X0p"&"&& "0 &8"P &;`000"0&" &0 &;H0p "0&"& &;080X0p"0&"& &;0  @"P0h&"& &;000 "80P&h"& &;0 "0&0"H&X &;p000"0 & "0 &@ &;X 0   , ,   "!0!&0!"H!&X!"p!&!&! !"!0!&!""& " &;8"0`" "0"&"""&" &;"0# 0#0@#&X#"p#&# &;#0# #0#&$" $&0$ &;H$0p$ $ $,$ $ $,$"%0%&8% P%&`% 4x% %"%"% %"%+% &4&-(&@&H&"P&`&-p&:\&#&"& &&' 4' 8'&H'"`'"p' ' ' ' ' ' ''&' &( ( ("(("@(X(h(("(("((( )")" )8)H)`)"p))"))) )")"**(*@*"P*h*"*** *"*"**+ +"0+H+"`+x+++++&+&++ +(,&,"0,"@, P,&`,x, , &, , ", - *- H-"`- p- x- ----  -  - '- - . ". (. 8. "@. X. h."p.. .  . 6. ..,E/#0/@/&H/"`/&p/&;/#//&/"/&/&;0#00@0H0X0 `0  p0 0 0 0 00000,L0 1 (181,LX11 11,L11 12  2 2 82 @2`2,Lh2 2 *2 22 3 =3 =837X3p333333 3 33 3 34404H40\h4 4 444  4 "4444 5 5 "5 5 "6 6 (6 06 "86@6 "B P6X6`6h6C p6 *`7 7 27 6 6 6 6 pA 6 &A &7 6A @A (7 @7 P7 7 7 H60BhB0%(C@B(B(%B XB`B B  )8 (8& 08 X8&)h8 )8 B8 8 8 8)88  8 899 9 $9R3@99 99 " 999#99  ::: :"E0:X: Ex: :&): :$E:;; ; ; B (;  0; 8; H; P; `; h; x; ; ; ; ; ; ; ;  ; ; ; ; < <  < (< 8< @< P< X< h<p<x< " < <#< <":<<  <  " <====# ="@=.?`===<b==";> ">0> ";X>> Dz> ?>>> ??? 0? @?P? h?x? ???3? ? *U? !(@ *U@@ !p@ *U@ !@ *U@ !A &HA @AHA PA XAhA`Cx]  ]  ] ] ( ] (] P ] ] x ] ] ]  ] ]  ] h]  ](]@]X]p]]]]]]]]0]H]`]x]]]]]]] ]8]P]h]]]]]]]](  B G|jk0 <%>' & & <B@ <%' X <B@& <%z+ $  <%D$ vThe current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.Insert Four Hands <B@PvgHk KT"Open Dialog box to input file nameAS 'D'nx'V D G|j 'h'F D h h$b F 'F h F$T hVType> !Parse last line to find lastboard'R FJx F * Ff="xml *A="proh * k` B@ F Cont H:comPlease select a board.Get Board Number$P'jent> jKTOKKT Cancel |nk H$$0 H$$: Go H'Hj'& Z ^ Z KT Z G <B@j <B@8KT.62 in <B@   B@KT1.33 in <B@   B@KT1.92 in <B@   B@n` . Z$\ Z$\ .$' $KKT $Symbol B@ & <B@KTj <B@ D <B@j <B@Symbol B@ & <B@KTj <B@ H <B@j <B@Symbol B@ & <B@S  B@n . Z <B@ <B@ <B@8HH|@8'n p `$TH'r `$T p r p $ l n+^'n r 'p p `$TD'r `$T p r p $ l n+^'n r 'p p `$TC'r `$T p r p $ l n+^'n r 'p lKT p `$T|'rS p `$T,'rn `$T p r p $ l n+^ r 'p$check order and reverse if necessary l d l d$^ l d$^$'~ l d$^$' ~$ $ MT Reverse order'S` 'nP yH k@ dk( Reversal needed  f l f$^' l f+^ :  l f$^  :$ l f+^ : fk@ 8 o0 x]The layout will not fit on the current page. You may either let it continue or insert a page break before the beginning. Do you want the program to insert that page break?Please answer Yes or No <%P'2 2KTL-18 <B@ <B@4L+18 <B@KTn o ]']P]h]] new version With appfs  .NewSearch*( .LookIn = Drvli .SearchSubFolders = True .Execute ChangeFileOpenDirectory Drv Exit For*  End If B End With# Set appfs = Application.FileSearchString For I = 67 To 71, Drv = Chr(I) & ":\Bridge Base Online\hands" Next IG Set appfs = Nothing  %. Open .Lin file (Bridge Movie)95B@BBO .Lin files*.lin5B@ All files*.*5B@ 995' 7'DdF'D|kq.  found BBOFolder D \BridgeAuthorSettings.txtMacro Settings LastFolder ,k@'o0]]( $Tqx|' G|j P 'Pk  ' $T $ +J  $J $J $$09LTCKcKOKoKTo or cS $J  $ +Jyn o@ AKT'KKT'QKT'JKT'TKT'9KT'8KT'7KT'6KT '5KT '4KT '3KT '2KT 'nhi`]  $Tsv|'  $T  $'Xko ]x ] ] ]  $T|mb|'  $T|pg|' $T     $'     $|mb  $|pg ^ '^   $ ^+\ ^$\$$!   $ ^+\kX ^$\$$1 ^$\$$7  ^$\$ ^+\kk k  ^ $\pKTPass +\dKTDbl +\rKTRdbl +\S $\$SKsKT $\$$B +\HKhKT $\$$B +\DKdKT $\$$B +\CKcKT $\$$B +\NKnKT $\$NT +\S>n>n> op> .Filename = "*.lin" If .FoundFiles.Count > 0 Then/ BBOfolder = Chr(I) & ":\Bridge Base Online": If Len(Startfile) = 0 Then ChangeFileOpenDirectory Drv*.lin'hr   $~' Onlyk *CG 9n * Dim appfs As FileSearch *$B:\Bridge Base Online'  found correct drive<]0C *$B:\Bridge Base Online\hands\'@C}Attribute VB_Name = "ImportFile" Option Explici@t Pub$ PLinfnfAHs Sng:Numlines 4Integer6Board0f text() qastb;Tr8 Firstve!Declarer s(500JRotatBooleangCsseVulnerabili ty9 DealqFAuc7*berofBid Sub Main() Dim User font$StartRLoAuA aAdown+End BMarkÄA%ookm@K%LBnumnC"I JQ 1 ՏKLM/CRespPlayn.Suift poEA enɆDALastwFoundƣOpenixngs!ccarLeadpTestb% 2! mps"-Reversalguocj E|obnMHC ha{% IfcenseC@heckedFalse The x Call BridgeAuthor.LiH Validd>Sub > e!nWordBasic.[Fap]r 'itGt= SelInfo(10{Re!8@__$(ntRight 1, 1 e$b!Asc([L8eft` )) <> 13(MsgBox "@, current paragr`aph cs , so i3rcannoroceed. lce th"e sor` a`n empg a`hrU.", E" dr Hs0 + 162 GoTo By8e 5# CaCLen(b/!,@10 'l Dialog btputz bnE KSxhow!Cb" E`Q&@@4;&"`7 = Tru 8gh 0 2 +  O= FreeQ 2^s@ FInp#!P8o WhЂ NPEOF(#50 e ,es1b@Loop Clo0W'Parlast  |fi !RR = C3DQ()` ..1 #{ CFny(IN I9&[hAsk:>pm2.!3Jp Y"" 0) i=b 7("P`sel,a)ard1?"Get S 0 "! A0C$/1 b*1/KY 34 2 'ncel[ExRI,IfAPHG( sG> 488 A.58Po" &As.`Sr I "I)PSd`j7 R)= Tb G=5# k Sorry,Rat is TinTՑE.UeNcpb. BK"|"O" `O"VO" &O"SM"u`01p)%85-'9 d0esir@7 =Aq@ I1Qs u7 C"1"Is DCer(I18 7(8!'uqPa B# Lp`(n(0AAWs sC-GA2TBB##(;h") - 1) p៥ r + 6UaP |YL6:Mid(h1-- 6x DA rds1I1) md CPY+ 5ir(4, 4= 4DGo^ @]T)F2Mcards Player = 1x GoS@ub Get3' Fill in East hand if not present6file^Select Case Mid(Lines(I1),pos - 1, 1)0 +"S"1&ElshDim Wholesuit As StringH  EveryoneeK IntegerTes== "AKQJT98765432eAFoundmatch#$BoXan3For I To R4 ]=(!I) &2, +4 -zJ1uNF7=k4, JIh 1p= FabK If Inh(K,6, ") > 0 TheGD Tru Ex@"IAAE@IfMNexxt KM*;%CA(3ahC&5"B"JI BIEG CA'Fi3open lea~dE aZEp"pc|"DoOg@K + tFira2N%)( 1B}, "zsd G`Fc-IaS,DFL"R(A`rD2/ l`"H"h" ^2f).[2D!d?43? _.bb ?a.C!c? o.4? ;?? 5u _'Inf@declaruDSJ h߃kgh2 Xer8 aX'R9iX uVCaJvulA# NumberofBidsRAuction3u -0 'Replace T with 10 DFp AQR1Qw53o q;J#j1) "T"M`x`Left(ю)!T"10"`RiDgh,Len9)=KƑ J ?l dr( get deal'to begEa D= Bo`l Moday(sA!P p%b= &#v)#t$!1 r Rot(ates!desired ϲ" a ApE*<> 4f {:3_4 TempsRvJX6q?(R0Gf( _(R0{?J,P 1G@ qY4) f +1L&&r%=Tf )%AGN P͖1{_#1R 0`Vulnerability"nv "erM nb#  (# RH 2&#$(t (h+[(a( i(s'"uEds(3, J) Car = 41TF2F*FTemp@stringIf J4 ThenSelect{se Vulnerability# "n"M  0]"e !C>aU  ,Else 7End V _Dealerˉ[1 W32!P+4! 99AIfCIANext J  Dss#"oj AqNeither v-ăluCbYBothIE-WgW ,-SOJ WordBasic.StartofLine 0 FormatTabs ClearAll:=H"2.5 i%WW2_Inserhr(9Charact@-Bold A2 "N.Sma@llCaps< orth$8  $3' C!P@CX .sdownMk B0 , g2, -Hidden,S?#5e !nion.Sy mbol & 10 Then>gToolsRepaginatˠ Endr=M` Info(10 > 0 A4nd<q P8astPP I8f waOpsViewߗEditFindÒyStingfuU "NSBDir:=W_ApOLU

, Del@ete:=1ZGoTo ClearBs End If Numbks CounWs(vReDim 0__$(0 8Str(cK+ 1""FourHands" + Rig htq&, Len%3) -$x SelType }FindFormattingWW2_har Hidden$ "NS"ir ectio2,> .+?To olsOpsView 0 *C'BM (X&LineDown 17 InsertParaIStartof 'B/:C@O3.QText Vulnerability,ACentered As @n@TDA6ac y ldP SmallCaps 5 CasealerƊB?D Tor8th" 7Tabs ".62 in /vbT "East ; )1.33 ! "Sou$c.}K 9$@nT$"We$,C4T0CiC_aOCS d?*6Cn"NgK C᧿$!gD3D@%to7C ݯ /1G :9/ ! C' O:В!UO_ 8/_ / C2!:C=p}!Ct!!t n!eWo_ 8O4b Else TrByѺ# mУXOatGxd -ϔSì1,!\graph Alignm0?5tVąz;㵯 4C'g?#Z'_'A+0"g_9C?1|0.WW72"L+1ϨD' 3 6Q!/(9tUfontasic.[Font$]()  For J = 1 To NumberofBHids (Select CasejMod 4N 01 $ I fV>hen WordBInsertPara 0"Starto`fLine #2 65matTabs ".62 in" *cion.TypeTexpt vb13 ^ 21.332 "30349g 4End  3 KLen(AuctH(J)CGChar Mid, K, 1 %C8Asc(677A@QCSymbol acterIC:=F, :="C ", Unicode:=FXals4 [nt U@fG q168WW2_Ç) Hidden:=MË9 " Ḓ *QRD[) (0(9((}(H(5(@R169('c(bQEYPo҂Ne K3G%BJgK Bye: Exit Sub Getcards{# u ite`= InStr(C!pos, s(I1)`, "H"B(Player,n)HS`! -` h hs%+ D!ds n  C d( p%p  X3"g|~? "|)8C# ),O9`O*Px//;(+'check !er arever0if necessary6SQ T@[ K1ʢ`av K1)) > 2l>Tes?. 8Y20_, 2_ARank() - 2,aYIs 0 'R?4alP Tru3%%/A/%Up{ If83axK neededB/< (Q!L^!TempstringPL~"~]qMq%)1 Step - =](` & a#, M1#b6MCLReturnR l4l Private gb Pa@stpageDim KeyPr6tMsgBox(" 7 kout will@ not fpqon the curre@. You may eir let cЮinueG@?́ a  break beforebeginn`Do 2ywaprogram toUthat?и"Pleans"wFYesQNo4H35C/+B6qWW7_EditGo"L-18{egeBu?4+: Q S  ublicShowFileDi0alogA dlgOp@As  ' appfs Sear\cht&aKs As Integ er Dim I Drv\StringBBOfolder8Filena me 6t'new versionI' Set appfs = Applicat.@Search'For= 67 To 71= Chr(I) & ":\Bridge Base Online\hands"a0Witho ' .New4LookInH/SubFzaWTruex=p "*.<8'E xecutIf .Founds.Ct > `0 The !jangeOpenDirectory J G @Len(Startfj):C#Exit d>EndA' YCNext IIzNoth!@!"C)=B_RрA#\  @V(T + ),I> @i 'fp core drivw_ meD@ V RIfGR CCAU8dlgOMDi`alog(6Type:=mso?A$c .T0itle!3" .LHin AF (mM`ovie)*vt{.Cl@w$ bAdd "U s",jebilgXAllb * IXnit!NA=IFb .dVi= aDetai ls$ owMultiSelk0Fals9 Testshow<.S`C(-1_w!@$$dX. edItems(1K < :$ a@ngn@oen`[ 'B)mGZF)Z@ESys @.P\ateProS(Author`St|s.txtA=Macro!!Last# "&#a! P4ub `xndboardnumber(LN-b\10faBp,os =St r(1, esa Vqx|"` ((ħx First HDNLN  F+ 3 ta Mid(h, 4 ¥= o A  "/CrAsc(Z, I10,( 1) 48Ax57B67,@ 99, 701@11 'o {cSKE5 j Left( - R ; Q103d!Func1 Rank(R;+ b? "AG8a ""K2+>Q/~"JU4;T59d6 88"o  7Ht8Ջ695(!pS4$13329!91Bvul(NX @Vullo+xNA@AsvBA` Jpnerability0;"h>7! -!5 GetAu.# "Nid/ enqS2QI0>&B?1)0|mbC sV1c|pg$= p3,-RLYP:Qp3V|S1`Sp,_S0c3m"a@" Or _, Tpg"Nkof + Gz 4( _ p\1T2, 2B Y _Rightr(Ods0`3W" ?i?48F.b! ba  < 49( > 55{0 ev $iW%ih 6&OpOQP"Pas dð(I11) = "Dbl" Case "rx Aucti$onRd Else~ Select Mid( ~, 2, 1 )X '"S",8 "su yLe ft M& Chr(170UHURh8U69*D*dU*8*C*c*7*N*n*"NT BtzEnd{tJNext @ ub InsertClubNorthSouthdf,)PastecardsANInsertHeartekLxME(6 LLP $`@pk+Inserts Club symbol into text via Control+CTemplateProject.InsertClub.MAINP&x%>:%<<  @t @d @T @D |@04 @$ @ lL$*\Rffff*1:50c47d0f*\R1*#17b*\R1*#c1*\R1*#129  "- .(&;X#x] <%>' &(WordBasic.WW2_InsertSymbol "Symbol", 167NoSymbol B@ & <B@oh`OAttribute VB_Name = "InsertClub" Option Explicit Pub4 Sub Mai`n() ".Descri| s  symbol into text via Control+CvNPro cDataZInvoke_FuncTemplate"ject.A.MAINNDPim Ufb$  =WordBasic.[FE]f ' WW2_)S["", 167 Sel;=CharacterNumber$:=, 2:=!Unicode:=False'G= \End bOnOxT  bOrOxMEP> LL< $h`@pk*Sets template for North-South play problem lTemplateProject.NorthSouth.MAIN P&xh@h @X PT@@D `B(H `Hk @2l %zh6%0<B@< tG@, z0@P =p@@ (IB0} ޗ8@h B;@ :T@ @ o/@ Il@ q,B@ Yv.agTC:\Wino<Files\o@h \M@0X ha@HH s @`8 O @x( "/> @ n va@ <@ ="So@ mera="TexthlL$*\Rffff*0a50c4654f$*\Rffff*0^50c464dc*\R1*#17b*\R1*#c1*\R0*#f*\R1*#129*\R0*#10 " (08 @  ` p -#((9&N .H  *  8P  @ P"`&p"0&"&"&&( @"P0h&"& .&; 0( &@"X&h .&; 0&"&( .@&;p 0 &"& .&;0 X h x0&"&"&& (08&P"h&x .&; 0& "( &8 .P &;   0 & " & . &;@  h 0x & " & . &;  (  8  H  X (h ")  &   &  4   " "0  @ "P +`  x 4 -     0 :\ #H "X  h &x  4   & "   " 4   "   0 8 @Px]]]]]]On Error GoTo -1: Onx@FH  Bouth.M G|jkX <%>' & & <B@ <%' @ <B@o <%z+ ce$  <%D$ vThe current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.Insert North-South <B@PHkWordBasic.SentLeft 2, 1$Sel__$(0) = WordBasic.[Selection$]()2If Asc(WordBasic.[Left$](Sel__$(0), 1)) <> 13 Then WordBasic.MsgBox "The current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.", "Insert North-South", 0 + 16GoTo ByeEnd If <B@8  <B@ 2.5 in <B@  $B <B@ <B@N <B@ <B@orth <B@e 0b  <B@ <B@ <B@2.5 in <B@  $B <B@j <B@NS <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ <B@ $B <B@j <B@NH <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@ <B@ $B <B@j <B@ND <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ <B@ $B <B@j <B@NC <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ <B@b j <B@ <B@ $B <B@ <B@S <B@ <B@outh <B@ <B@e 0b  <B@ <B@ $B <B@j <B@SS <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ <B@ $B <B@j <B@SH <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@3 <B@ $B <B@j <B@SD <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ <B@ $B <B@j <B@SC <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ <B@ <B@  <B@ <%'    GA@jkPj <B@ <B@lj <B@NSt <B@ <B@l <B@  <B@f <B@x <B@"$ <%'   <%&'  * <B@($@k8 <%,' .`  $T+ . NorthSouth$ .$ . <%0 ' 0b  <B@( <B@f <B@lj <B@NSt <B@ <B@lj <B@ <B@vHoh]The layout will not fit on the current page. You may either let it continue or insert a page break before the beginning. Do you want the program to insert that page break?Please answer Yes or No <%P'2 2KTL-13 <B@ <B@4KTno9Attribute VB_Name = "NorthSouth" Option Explicit Pub4 Sub Mai`n() ".Descri|Sets templafor* -h y problemuMProcDataYInvoke_FuncTTA"ject..MAINNDim Userfont$ Sta@rtlineEndBMarkNumbook*msBnum As Integer 'O rrlGoTo -1: On2  E ByC If LicenseCh eckedoFalse The% Call B@ridgeAo 13HR MsgBox "@Y curr! paragraph c@@@Axt, so i@hr@cannotAceed. Place thesin an tand res.", "IB@0 + 16 “ˆkN'.L; 2L'=L'1M'<&&׿&&&'&'&&A/ofL 0  FormatTabs ClearAll:=`Q2"2.5A@K#WW2_D:Chr<(9 _ ChBcter Bolld "Sm`Caps< R j$7!#!P` #-k)h )b !Hidden}*S 3e (oSyĘl " S17!{`q.>eBr`70, !:=gUnicode:=".'# *&5& _ds`8"NH_/#_eyX69a__69__R9'nXu;(&s"NDp_+at '&S ?68?rtt?68??B t 9a???C&&67:67"ra(& $Me.1POY)e "4Qj.߿ `tO+? )oiOO"Sb-r((bob OOb10g(./% ;;_%Obf;ObOpۢOb, %%cA=o%o%o"Sas0o>eK uawa˳racterNumber:=168, Font:="Symbol", Unicode:=False WordBasic.InsertPara40WW2_8 Chr(9)>  o If Startline > 10 Then zToolsRepaginat End=/iInfo(101> 0 hAnd< pPast@C@ 0If T"OpMsViewIrG EditFind Clearkting  E  "NS@Dirm:=0eL@\Up 1$O@Type 2 ExtendDown 1@ :Bmarks: Booknum g2@f AgGBM@$ [E Name$]({K@ , D^t{!{GoTo  E>!_$sJCount s(ReDim __$(NFStr(bf + 1`f"NorthSouth" +X[Rig ht` , Len ) -B :i5e; >OTYT`^T2TdVn& (b,ye::Sub Priv |87KeyPres`sed g*?MsgBox(" T lay@6 will not fit on the current . You may eir let `cinue oHr i a" break before be`Fn@ Do  wa a prog@ram tot,haC ?"P`;se answ@er YesNo@4@N32Qa| Ca`!aa-$g/WW7_IBj"L-13$2egeBý" :ar8:  =bOlOxMEP> LL< $`@xxkFF1Pastes hands from clipboard into four hand layoutTemplateProject.Pastecards.MAINP&x@h Pd@T @D KP@Term@0 P,ial@ FPp@ tionP@ NP PPP@H PPP8P@ P`PPP @x @ P@0p `n `k I@2l p%@(pX0xH<B@h @`X @H <@@8 'P4@$ $ @ @ ent @( ext,@ pro@X sor @p h an@ ards@ TkXWo.h1 Ph<lace the curr @h h an@X ards@H Go@8 @ ( 68@8 "ld@ @ 0@ 0(XhdM$hH8lL$*\Rffff*1950c47d0f$*\Rffff*0^50c464dc*\R1*#17b*\R1*#c1*\R0*#f*\R1*#129*\R0*#10U " (08@HPX`hpx   0@P-X#h(x(9&N.  * 8 0   "( -8 H"Xp :"C:(J:( (JH :p (J :(J:0(JP:x (J : (J (:8(JX:(J: (J : (J0X` x:(J:(J:  (J8 :`  (J  & " 0 & " & "8 &P &h    " 0 & " & . &;8 3`   0 & " & . &; 3@  ` 0p & " & . &; 3  @ 0P &h " & . &; 3   0,@"`0x&"&"&&"00&H"`&p"&& "0&"(&8 .P&;300"0&("@&P .h&;3 "0& "8&H .`&;30 0"0 &8"P&` .x&;3 "0&0"H&X .p&;300"00&H"`&p 0&;3 "0(&@"X&h 0&;300"(0@&X"p& 0&;3 , ,@ `"p0&"&"&& ("80P&h"& 0&;3  00&H"`&p .&;3 0&("@&P 0h&;3 0&" &0 .H&;x3  ,  ( ")8`&h & 4 "" "+ 04@-Xpx0:\#"  &0 4H h&x"  "4    "    "  ! ! ! !x]]]]]]]0]H]`]x]]]]]]] ]8]P]h]]]]]]]](]@]X]p]@FH Term B G|jk <%>' & & <B@ F <%'p  <B@ <%z+  $  <%D$ vThe current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart. Pastecards <B@PH`kXWordBasic.SentLeft 2, 1$Sel__$(0) = WordBasic.[Selection$]()2If Asc(WordBasic.[Left$](Sel__$(0), 1)) <> 13 Then WordBasic.MsgBox "The current paragraph contains text, so insertion cannot proceed. Place the cursor in an empty paragraph and restart.", "Pastecards", 0 + 16GoTo ByeEnd If <B@0b  <B@ <B@ <%z'  <B@L+1 <B@ North:'   ,$B'    $'   ,$B'      $'   ,$B'      $'   ,$B'      $' k@ South:'   ,$B'      $'   ,$B'      $'   ,$B'      $'   ,$B'      $' k East:'   ,$B'      $'   ,$B'      $'   ,$B'      $'   ,$B'      $' k West:'   ,$B'      $'   ,$B'      $'   ,$B'      $'   ,$B'      $' kP  <B@ 2.5 in <B@  $B <B@ <B@N <B@ <B@orth <B@ <B@ <B@ <B@'2.5 in <B@  $B <B@j <B@NS <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ G  <B@j <B@ $B <B@j <B@NH <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@ G  <B@j <B@ $B <B@j <B@ND <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ G  <B@j <B@ $B <B@j <B@NC <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ G  <B@j <B@ <B@2.5 in <B@ 1 in <B@  $B <B@ <B@W <B@ <B@est <B@ <B@ <B@4 in <B@  $B <B@ <B@E <B@ <B@ast <B@ <B@ <B@ <B@1 in <B@  $B <B@j <B@WS <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ G  <B@j $B <B@ $B <B@4 in <B@  $B <B@j <B@ES <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ G  <B@j <B@1 in <B@  $B <B@j <B@WH <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@ G  <B@j $B <B@ $B <B@4 in <B@  $B <B@j <B@EH <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@ G  <B@j <B@1 in <B@  $B <B@j <B@WD <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ G  <B@j $B <B@ $B <B@4 in <B@  $B <B@j <B@ED <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ G  <B@j <B@1 in <B@  $B <B@j <B@WC <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ G  <B@j $B <B@ $B <B@4 in <B@  $B <B@j <B@EC <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ G  <B@j <B@1 in <B@ 4 in <B@  <B@2.5 in <B@  $B <B@ <B@S <B@ <B@outh <B@ <B@ <B@ <B@2.5 in <B@  $B <B@j <B@SS <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ G  <B@j <B@ $B <B@j <B@SH <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 169Symbol B@ G  <B@j <B@ $B <B@j <B@SD <B@j <B@) WordBasic.WW2_InsertSymbol "Symbol", 168Symbol B@ G  <B@j <B@ $B <B@j <B@SC <B@j <B@(WordBasic.WW2_InsertSymbol "Symbol", 167Symbol B@ G  <B@j <B@ <B@2.5 in <B@   <B@ <%'    GA@jkj <B@ <B@lj <B@NSt <B@ <B@l <B@  <B@f <B@x <B@"$ <%'   <%&'  * <B@($k <%,' .  $T+ . FourHands$ .$ . <%0 '   <B@( <B@f <B@lj <B@NSt <B@ <B@lj <B@ <B@vHXoP] The layout will not fit on the current page. You may either let it continue or insert a page break before the beginning. Do you want the program to insert that page break?Please answer Yes or No <%P'2 2KTL-18 <B@ <B@4L+18 <B@KTnoAttribute VB_Name = "Pastecards" Option Explicit Pub4 Sub Mai`n() ".Descri|s hands from clipbog into four layout|TProcData`Invoke _FuncTe@mplate"ject..MAINNDim Userfont$ StartlineCI Norths FoundFirstComma Spades(Second He6ThirDiam *CF (ClubS WLA EastAJ We L@qsdow"nCfEnduBMarkhNumbPookm@s Bnum As Integerrror GoTo -1: O JBy If LicenseChecked@False Th e@# Call BridgeAuthor. A @Validit > 7A@ WordBasic.[F]A_SelIn fo(10 {Reeel__$( SentRight 1, 1 ~ kr$CAsc([pLeft` )) <> 13h(MsgBox "+ curr paragra(ph @ots text, so~cannot peed. Place (the s`=in an `tyh  rVx.",j, 0 + 16 DB3'ga% 2B%'z%'%%'aI%%%k%%'%'%Edit" f(`MP* CuGWW7_"L+1@LJ InStr(@^# A:"e5h@X>0(XbGF (+ 5, Chr(44) !:`$aMid(ej6, m - 7BHv=`-RG"dZBy-_ 1Z rK Y_ ) b c nd  y- @Uz  m nd x 56~}6 ,,,ِ,,0t$, :, -- 6-3F 3Z-w-- }-a }"=Dr(@7Ab - 01zR!~ A@-ᰨ-|- - - u-1o-ZU-O-O-^+ 4##q/-q#^ )- - 5-- ,,a1 N Z? UmЬq&0Q ,,׈ #?$" as th+B=(713 ,, f4,,,,,,,,+ 4, Clipt$phr(44 )) WestSpades$ = Mid(dstart + 5, FoundFirstComma - @- 5BSecondD= InStr( :+ 1WHexH5 v-1xTh 0 ThenS%"$D1g;4 Y--t X"NH--t-69--69-A-(S---&[q?"ND---8-er[68---lX-_H-aN-c"NCaIDJBiD67ruD67DppDD3 yuwg/S?z_!x"[z"1wwRMiWPOat w4"!!@! `J4&d y3"E”c.)astX8  sF)#3)&( E]CC"W_r 0 _qS qvpZ?))32D"O/_BELJ_1t_, ^^E6OUZ' aq_3,#_3k\< Hidden: =1 WordBasic.WW2_Insert "WH"xFormatCharacter0 'Sym bol "", 169WSelection.p'XNumber69, Font:=CUnicode:=FalseIf We ststa<> 0 Then Hes$  Chr(32), $ #Tabs "4 in393E٨l@lEadl FlCPkGQ=Ia1Faqaa"WD?@ 88'8?ΌgDiamondAg 1hb)6f(65E51 'H56 66 gǸg+6Hg gg-`r?1?"Cg+1`b7007g0a?`ClubfH-g1ffrf߁߁"E=߁ЁO366 ?3EPisf/2, Clgy2.5/m>Z-pBold _Sp9wr SmallCapsJouthO>J] #) !&9 3]ѰM 33"S! yϵ:= _gx1x7ϥN/470N/4xf SOÓSpade$O6ceo/Sϱ,̍Jh,J A~ڒBOaal|R/s6/G\o%-!-LG///y/"den:=0 'WordBasic.WW2_InsertSym bol "", 167 Selection. CharacterNumber:=\, F ont:=Unicode:=False If Southstart <> 0 Then )@Clubs$< ;&P[FormatTabs "2.5 intClea`#OLline > 1N0#ToolsRepaginatl End=SInfo(10)"~And< S>Past20s C߂EOpsView (Hid1EditFind:CAting  wCE "NSODir@XbL@\Up J-OT ype 2xtxendD`own 1:Bmarks: Booknum g29g ŦmTBM@$ [E Name$]({jL , Dt= GoTo - |AD0s Count s(ReDim __$(CStr(b1f + 1`f"FourHands" +X[Rig ht@ , Lena ) -" I5E;=Kb TTT2Tar6n`'& (A, Bye:#:Sub Privu  }!87KeyPressed gJ?Msg Box(" lay will not fit on the current . You @may eir let `cinue or` a" break before ben` Do  wa a program tothaC% ?"Pse answer HYesNo@49N32Ra#| Ca`!aa-DgÄ/WW7_Ibj"L-18"C+geB8h +k @@Dw=A?ME(6 LLP $`@pk ,Inserts Heart Symbol into text via Control+H TemplateProject.InsertHeart.MAINP&x%<<  @t @d @T @D |@04 @$ @ lL$*\Rffff*1850c47d0f*\R1*#17b*\R1*#c1*\R1*#129 "- 0(&X"p&&;# x] <%>' &* WordBasic.WW2_InsertSymbol "Symbol", 169j <B@trol+SNH <B@j <B@Symbol B@ & <B@o( wAttribute VB_Name = "InsertHeart" Option Explicit Pub4 Sub Main() ".Descri|s  Symbol into text via Contr0ol+HwOPr@ocData[Invoke_FuncTemplate"ject..MAINODim Ufc$  WordBasic.[F]g' WW2_)["", 169   FormatCharacter Hidde0n:=1- "N|%0%Selz҄{Q=Number=69, p:=_Unicode:=Fal' &* WordBasic.WW2_InsertSymbol "Symbol", 170Symbol B@ & <B@oh`OAttribute VB_Name = "InsertSpade" Option Explicit Pub4 Sub Main() ".Descri|s  symbol into text via Contr0ol+SwOPr@ocData[Invoke_FuncTemplate"ject..MAINODim Ufc0$  WordBasic.[F]h' a WW2_*\"S", 170'Sel=>CharacterNumber:=, 2:=!Unicode:=False'=# ]End <jxbO`O#<%YoAM*L F(:bO>xME0> LLLLLL *L<4<8<<<0(@P @ @%= $`|k  `k`*zwK`txeds`pK`Zl'(`(h`pdPr``H@P @X@ E@0 dl`,`(`$` `@B@HB@B@B `H|+ X`|+  `|+  `p|+ @@( @(P(Xx@0x`(@BP @ @ @X @8 e OK@ t@ L+2@( @@ $ "@ @p @ @ @ = ?@ C@ (C$ XI@P| %@hx r@t ence@p h@l 8@h @d @` h @\ @X @hV @h@T hh@P h L`,%j@ J  k0 ht@@ H X  u@ F @ u @ `,% h w@ > x @ @ <  @P : @  48 `,%h @ 2 x P @ 0 @ .  ( `,% @@ & 0  X @h $ @ @ " h H  `,% @   h @  8 @x  h  ` `,% H @  x @  @0    `,%H @h  X 0 @  h @  p `,% @   8 @H ` @ H(`,%p@ H@ @X H@`,%p(@ X0 !((  !' !X; !( !( PPlL$*\Rffff*0^50c464dc*\R1*#17b*\R1*#c1*\R1*#c6*\R1*#d0*\R0*#14*\R0*#f*\R4*#8c*\R4*#4d*\R4*#4e*\R4*#4f*\R4*#50  (0 "8 @    H "P   Xx d  f  &(Ph $ > &@ h x $ 263 *  4P& $"  @  ` NF  0  86DP  4  @ &: (0 FX  0 ,  2  HP &KX &7 T @ H P &KX &7 T @ H P &KX &7  p x   (K 6K   $O .b( MX  x              $O .b M( H  P  X `  hpx &O8bM   (  0 8  @HPX` h&Ox6bM         (08 @&OP8bxM         &O(8bPM         &O6b(M`         &O8bM8 X  `  h p  x &O4bM 0  8  @ H  PX`hp x$ODbM     ( 0  8@HPX `  p x "   "  "  " ] ] ] ] (] (] PHAo0check if Validlicense] this subroutine determines the value of the public Boolean variable ValidLicense. If it finds the license file and the name in the license file] hashes correctly to the hash value concealed in the license file, otherwise it returns false` it also returns the public variabe UserName, the name in the license file "citationchecker.lic"](]@]X]p]]]as New FileSystemObject] As File] As TextStream]]]0]H]`]x]davidjweiss.com'7With CommandBars("Tools").Controls.Add(temporary:=True) .Caption = "Bridge Author"End WithExit Sub' default to return False !!'bridgetemplate.lic'2 name of license file \  ' !!'Scripting.FileSystemObject$.  %3 does the license file exist?0#  %.3 yupA   %.G open itB ! '3 get license textos B@B3 all done with itect @3+ was the license file the size we expected? 'Z3 end of the name  Z$  Z ; trim trailing blanks from names Z 'Zt  Z$'3 name to hash and return'3 init hash valuen Z 64   Z$$X 'e0'4# now compute hash from hidden valueF8 Z7:3' hash value is hidden in bytes 51 to 58  Z$$X 0 'F  5 was this 'A' - 'F'?  '40 yup, subtract another 7 to give 10 - 15 decimalrk   '5 compute hash value  3 do the hash values match?Di'0% yup, return the user's name and TruetSp 'dh !! Unregistered  (Unregistered) !(e*Your personalized license file is invalid. $ B +If you are a registered user, please go to   to report the problem. A@Pk8k0d( !! Unregistered  (Unregistered) !(.*Your personalized license file is invalid. $ B +If you are a registered user, please go to   to report the problem. A@Pk8k0d( !! Unregistered  (Unregistered) !(The personalized license file needed to identify you as a registered user of the Bridge Author's Template was not found, so the program will have only limited functionality. $ B XIf you do have a license file, please make sure it is in the same folder as the program. $ B FThe template will allow you to enter one hand and/or a bidding layout. $ B 2To purchase a license (only $10.95), please go to  A@Pkk ^ !! Registered to  (Registered to  ) !(kk *Edit$ !! < *Edit$ %! CopycardsB@ *Edit$ % P KT9KT9nqyk *4 , *Edit$ !! *Edit$ %! Pastecards! *Edit$ %P KT9KT9nqyk * c *Insert$ !! *Insert$ %!North-East Layout *Insert$ % KT9KT9n0q(y k * *Insert$ !!it *Insert$ %!East-West Layoutr *Insert$ % KT9KT9nXqPyHk@ * <B@ *Insert$ !!NS *Insert$ %!North-West Layout *Insert$ %ft KT9KT9nqxypkh * 1) *Insert$ !!d *Insert$ %!North-South Layout *Insert$ % KT9KT9n(q yk * *Insert$ !! *Insert$ %!East-West Layout *Insert$ % KT9KT9nPqHy@k8 * *Insert$ !! *Insert$ %!Four Hands Layout *Insert$ % KT9KT9nxqpyhk` * *Tools$ !! *Tools$ %! Check Hand(s) *Tools$ % KT9KT9nqyk * *File$ !! *File$ %! Import Deal(s) From .Lin File... *File$ % KT9KT9n q y k *'o 'oh 'oP X'o8 'o  Attribute VB_Name = "BridgeAuthor" Public Paid As Boolean\Editmenucount!@Long:In(ser>TMsM>ValidLiceF|Checke Opti@on Expit Sub Main() Call %r  End (-'cQ if iIi,Dim InIntege=' this subroutine determs e value ofpф̀ riablꈟ. If it find!B@ a5thed nAin  ' hashes correctly to $conceal#c, orwiseA"returns false(@o $D7vaA5e U,+ "citaB^er.#@3' \FileSnc TexJ7gCA c?Ofπ EJfso 'as New SystemObjS&fil81 ' ts%$eamA0MyWebsi@ 1TitleBar/s%StartupF older Const ForR@eading1ChTris/eDefault!-2, TrW= -1GF!@10 @davidjweis`s.com7`DWith Comm#@Vs("").trols.Add(*por`ary:=!@}'cq@.Cacf '{ ExQSub#}J= # 'r`aVc /(= ActiveDocu`t.aSdTemplate.Path A?"; ~bX'vH`j( + "\" +Q &D/W`ow(#Se Z`= Cre CY( "Scri,ng.A\" 1C*aC`-sts() ThendoG  exN?'©"h= Get H ' yup&`m.OpenAsn(]WŇ\) ' o" $@\ts.AfL' g;*t ClNo`7*' dzowaf@/L(en()p 64' w0KNsize wep Led3JP327' egl( WhZ Mid , J, 1A " " ApJ > 0srPutrailAIblankfr 55 58" $bytpBd51!58 c d0 48&)2c0&1IG2'A''\F'61c7oTI,!p,ct anғ 71 "g`d 10`15 hcimal) qlIf=2 P 6A c ' q6-B?rs matchv҂Z$wHup'sp7ZrE.NEҧ In(zpn, "Unreggered"QI0T ^nP wpy ()MsgBox "Your @personzO@,1inid.a~Chr$((13)?"@you are a 1, p`fgo0V+ G tprom.) 'D 2 OOb0@>6 oQ>V??+Unregistered") = 0 Then  ActiveDocument.8Window.CaptiondTitleBar + " ( )"Msg Box " personalized license file needto idpify you as a  user of the Bridge Author's Template w5not found, so.program will hav@e onlyBmit neCnd a nd/orbidding lat*o pur,chQ](?$10.95)0g@Ko@s+ MyWe,bsGrEIf  A%GVudLt= 0True @InStr(`, "RƦ toOB9U@nhƬ9FZI1 To Comm_s("Edit").Con trolsun2tBH > (I "Copyc ards" O With-Select Cw|eG 4 .Enabla#8False*Ia'C&Aax?`e +LNext I//4l/Pa/r>/% / 3B9/H3)// w/I:r?_dd/No rth-E0 L~`1 ,c-`=3 ``1 E` 1_W1!-WestHI)H3-HH%1LH 1U d\Hn/.``o`1*1 qoaQ2s.G A4oaa?yoh-So/1a /`IIU}?b)/1/1d2 /1 ߑoϯI Eo(")1!111%/b !Q%IIz77z@Four Hs1Q 1ruU11?To? 3lCheckr(s),Xols(I)  Select Case ValidLicense pTru P .Enabl`ed = 6F4al d End xWithxit Fo&r If Ne0xt I  I1 To CommandBars("File").Contrunt If.Caption-"Import Deal(s) From@ .Lin 1..." Then- b/?ddA6ĔCheck AqSub CPublic @ Document_Close( Tsc_E@oS$avB Au toF,      !"#$%&'()*+,-./013456789:;<=>?@ABCDEFHIJKLMNOPQRSTUVWXYZ[\]^_`abcefghijklmnopqrstuvwxyz{|}~{xgNorthEasttOp FourHands1=50c47d0f@FourHandszOp(Copycards1>50c47d0fBCopycardsxOp 'CheckHand1?50c47d0fCheckHand~Op80 EastWest1@50c47d0fEastWest|OpP!CheckOne1A50c47d0fCheckOneOh\*!renamer1B50c47d0frenamerO"OneHand1C50c47d0fOneHandOCheckNW1D50c47d0fCheckNWO1CheckNS1E50c47d0fCheckNSO1CheckNE1F50c47d0fCheckNEO1CheckEW1G50c47d0fCheckEWOh1Bidding1H50c47d0fBiddingO KeyDef1I50c47d0f KeyDefO( Emdash1J50c47d0f EmdashO@ Bspace1K50c47d0f BspaceOX0BridgeAuthor0^50c464dcBridgeAuthor>p :Colorizer1L50c47d0fColorizerp Autonew0Z50c464db>Autonew#psAutoopen1M50c47d0f@AutoopenpsImportFile2250c47e0fBImportFileא0p UserForm10f50c465c6UserForm1dShowaboutForm0e50c465c6ShowaboutFormyUserForm20d50c46555UserForm2R&ImportPreviousFIile0c50c46555&ImportPreviousFIilep0}PH`p(0h@P80Xx\F:Q-!"um~Mec]']Y@NM?w*( A+YXnC͒)]~dOvreo0JX95  $N Ysjj*B&/"M`1\:3FܟHAl.[Fs";<sG\OM,Ncp5(xۿ"C22$lxWFNcOH+F\V0ga)GU  k-xK/9kPʐ8NsThnH%_&ciN++)Dpo1ገ]F\}f0 1DX-$/e\ \E@J_ǍeH³+ LC}@g*l>O& 䒩<6O mJ#%Lp9o)gFɃ4)K6pbH>>䯲5;M6;CO ;/N7S(.g AsTfor_IfThenTo Wordk VBAWin16~Win32MacVBA6# TemplateProjectEstdole`MSFormsCOfficeu ThisDocument< _Evaluate CheckFourHandsZLegit__Cards__x Numcards__7Player__C Suitname__8hMain,UserfontFonttypeI`LcKbMarkerSProblemqNcardsNeMdM1'^ WordBasicFont$Suit__ChrK~Left$7 SuitCheckByez WrongNumberToomany[ DuplicatesiMsgBoxREditGoTosStrCardrankAOKtJaMessage OnePositionTestval(TenbadJ\NS__USelTypeToolsOptionsViewPHidden]EditFindClearFormatting1 EditFindFontZEditFindFindn Direction& CharRightPExtendSelection Selection$RTrimLTrimbAsc!uRight  EditClearInsertrUCase5 VoidhjBadZero OutofSequenceMBadChar1BadTen=$ ToolsSpellingToolsOptionsSpelling IgnoreAllCapsZIgnoreMixedDigitsn AlwaysSuggest CustomDict1 InsertDiamondnWW2_FormatCharacter5 WW2_InsertuM SelectionZ InsertSymbolCharacterNumberFontUUnicodeW InsertSpade InsertHeartz  PastecardsCL StartlineCliptt Northstart,FoundFirstComma}< NorthSpadesvFoundSecondComma NorthHeartsשFoundThirdCommaP NorthDiamondstFoundFourthComma  NorthClubsSI Southstart[ SouthSpades SouthHearts SouthDiamonds SouthClubs Eaststart' EastSpades> EastHearts`  EastDiamondsWB EastClubsè WeststartL< WestSpades WestHeartsc WestDiamonds WestClubsX LinesdownTEndlineq BMark Numbookmarks BookmarknumX(LicenseCheckedg BridgeAuthor(LicenseCheckeru (ValidLicenseSelInfo&Sel__~ SentRight;u EditPasteSentLeft[EditCut WW7_EditGoTod FormatTabsթClearAll Bold SmallCaps~c InsertPara,ClearToolsRepaginatePastpageWrWW2_ToolsOptionsView1WW2_EditFindCharD WW2_EditFindGLineUpKLineDownx ClearBmarks BookmarkName$< EditBookmarkfDeletexCountBookmarks#INum__4Right$y1 KeyPressedWW7_InsertPageBreak_; NorthSouth StartofLineM InsertClub] NorthWeste NorthEast/ FourHands CopycardseBMarker2Contents=Letter NorthCardsJ EastCards{ WestCards SouthCardsHand__ndlg- TheButton ResponseStart GetBookmark$(CardsQ BeginDialogFOKButton| CancelButton OptionGroupN OptionButton EndDialogmP CurValuesȤ UserDialogHandPDialogf EndOfDocumentMyhandsxz DataObjectSetTextPutInClipboardGoBackeDir_eLastbhK_ ^TempR Checkpoint9ForwardClearFormatting)MatchWholeWordX MatchCaseWrapWywdFindContinueBPExecuteYFindText CheckHandAMark-WW2_ToolsMacroRun_Show EastWest3 CheckOne WW6_EditClear0SpacingS renamerƬWW2_RenameMenu OneHand$ CheckNW CheckNS CheckNE~ CheckEWB BiddingDCenteredFormatParagraphE AlignmentI KeyDefWW2_ToolsOptionsKeyboardɣKeyCodeContextXn Emdash BspaceD(Paid} (Editmenucount0(Insertmenucount(ToolsMenucount FilenamejlicTextTcZ hashOfNamejhashQfsofil1tsL_Username\ MyWebsiteTitleBarqsNamedStartupFolderName}J ForReading8TristateUseDefault9 TristateTrueH TristateFalseActiveDocument\AttachedTemplatePath2 ActiveWindow+Captionx CreateObject FileExistsGetFile:OpenAsTextStream5ReadLine CommandBars ControlsKCount0vEnabled۪(Document_Close7\ (File_Exit" (File_Saver (AutoClose ColorizerNumChars`HomeKeyUnitwdStory&Extend?wdMovezViewIShowHiddenTextk Charactersrg MoveRight wdCharacterCollapseuExpand$dColor2F wdColorRedo(wdColorAutomatic Autonew\3 Autoopen* ImportFile/ (Linfilename2(Numlines"(Boardy (Boardtext( (Lastboard (Boardline(FirstBoardLineY(DeclarerD(Lines(Rotatione (Vulnerability؟(Dealer(AuctionE (NumberofBids/I1]J1]K1]L1^Numfile?^RespPlayerK[Suitu9CardsposSuitend LastSuitend Foundboard8  Openingsuit6 Firstcard~Leaderj Testcard1 Testcard2 TempstringSReversalBoardLoc0Eob BoardNumberͺChar) ("Startfile(ShowFileDialogj.EOF(FindboardnumberdAskboard( UserForm2*ValGetcards Wholesuit2 Everyoneelse#TestcardL\ Foundmatch`(Findvulܬ (GetAuctionSTypeTextvbTabc9(Rank dlgOpen! FileDialogappfsL FileSearchDTestshow:Drv BBOfolderOZ Application* NewSearchfLookInPSearchSubFolders FoundFilesChangeFileOpenDirectory=FileDialogTypeHmsoFileDialogOpendTitle~FiltersAddr InitialView msoFileDialogViewDetails AllowMultiSelect SelectedItemsSystemaPrivateProfileString[LN^I10Boardpos2F Teststring{N1L^ Vullocatorm Bidlocator:Bidender  AuctionStringI11 UserForm1)CommandButton1_Click ShowaboutFormaCheckBox1_Clickl CheckBox1ValueK OptionButton1k@ OptionButton2l@ OptionButton3m@TextBox2SCommandButton2_ClickUserForm2_InitializesKOptionButton1_ClickcOptionButton2_Click/OptionButton3_Click?UserForm_ActivateZsLabel1,Visible ImportPreviousFIile# RivbOKOnly _B_var_Midp _B_var_LeftQ _B_str_Chrm#ItemzDocumentj _B_str_Sel__ _B_var_Chr\; _B_str_Num__H _B_var_StrUserFormNLabel2,CommandButton1|CommandButton2}Frame1ClickActivate| _B_var_Right9Image1_Image2`Image3aImage4bImage5cFileSystemObjectNUFld܎ _B_var_Set _B_var_fsoL getfoldern_B_var_Filenamer _B_var_IfP _B_var_forjL _B_str_Suit__ _B_str_NS__] _B_str_RTrim _B_str_LTrim v _B_str_Right#( _B_str_LeftV _B_var_UCasea _B_str_Hand__ErroNumber-InitialFileName& _B_var_Path7L;= ? A C ! " 3?4A5C6789C<>?@AB =GGK"DNRv  ($@InsertDiamondShowaboutFormlo2ToolsSpellingG;CheckFourHandsnpZD$`@xk .Inserts Diamond symbol into text via Control+D"TemplateProject.InsertDiamond.MAINP&x%<  @@t @d @ T @D @84 @$ q@ KeyAlL$*\Rffff*1750c47d0f*\R1*#17b*\R1*#c1*\R1*#129 "- &("@&P&;h# x] <%>' &j <B@ND <B@j <B@Symbol B@ & <B@oXPmAttribute VB_Name = "InsertDiamond" Option Expl@icit Pub4 Sub Main() ".DescLri|s  symbol into text via Control+DyQProcData]Invoke_FuncTem plate"ject. .MAINQDim Ubfe$  WordBasic(.[F]i WW2_FormatCharacter Hidden:=1C "Nh%0%SeldfS HXhx Bridge.Dic <B@ <B@ o /Attribute VB_Name = "ToolsSpelling" Option Expl@icit Pub4 Sub Main() ".Desc ri|Checks the s inactive docu0mentuMPr@ocDataYInvoke_Funcemplate"ject.A .MAINQWordBasict IgnoreAllCap s:=1,MixedDigit AlwaysS@uggestCustomDict1:="Bripdge.9  End ID="{00000000-0000-0000-0000-000000000000}" Document=ThisDocument/&H00000000 Module=CheckFourHands Module=ToolsSpelling Module=InsertDiamond Module=InsertSpade Module=InsertHeart Module=Pastecards Module=NorthSouth Module=InsertClub Module=NorthWd7bOfOxMEP> L<<<%H "<BFP@\ x @L @H< indo $@` xk\\Xx P&x`(v`*t`,r`.pP0Xl`2j`4h`6f`8d`:b F` dk`Y0 I. I, I2 I( `Vz`*x`Xv`ZtP\p`^nP`h`bf(0@Ph@x@  @"@(@xP@pp08 @, @( @($@X" p0)@  X)@  X+@ -@ -@  8. +n@ j .7s}@` >@x t6@ xV"@ 7K@P  2X'.@ @Nv 4߭S@@   48z&0 6GR?X 8V4W@h  ^< @ :Iͣe@  t h : [@  \զ <9@  Vz < L(6@  ̈ >zmbL@P  "00  >0@  C 0h E+@x  00 P F+@  htt x Fntrust@  $"h Gentrus@ U G;8kb IU x J#0h K kP@ 0 8T0  *H @h t@ AQ@x 8hP 8  h p @  d`P A G2X @ P 290<B|~N@L r10@ < ot C@8 infX r.nl0@ ( 0@(  #(@0 2e@@ ,= @  L@ @h 6@  0 <9@H /` <-&p@ e@ 2N  "\ @ J4@p ֈHIldp_O@ pIɾ؇pWzFc \JA@ F3@aT@ 5HX/ cQ;n@ B0@0c0Xe@ !h.@t *H@ @ Y@ @ b6'@t k(@d {@ lL$*\Rffff*1550c47d0f*\R1*#17b*\R1*#c1*\R0*#f*\R0*#10  "(0/@%`x-\Dh p #(@Xp +  0(VH*p &   0(Xpx  !    +02 @P Xh(.   2. "("Phpf`x`GPXbo` "  ( 8"@&` x *&  @"7( BP  @ "7    . &P "h "x   0  0  9   F ` Fx     "&0 ,/X    ( "& ,/ 0 8 H ` h  p  *X @T . @@ ` " "R *^`$/Px 0      *1 @ H "EX    $   ("88` h x *D  "B    "( 08 .h 0 , " &   0@ .p   0 ,  0 .8 h p "x " 0 4 ."( 0@H`h  p zj  zj 8HtjP tj Xhp#x x](Px p   "]](]@]X]p]]]]]] <%>' & &CourierK Courier NewKTerminalKFixedsysK Line PrinterKArialKT'( Fixed pitchSp'(Proportional fontsnH @8 N+ W+ E+ S+ Spade+ "Heart+ "Diamond+ "Club+ "A+ K+ Q+ J+ 1+ 0+  * * 0 $B *+  * , . ,$  .$ " <%D ' 0 0 . , 2 (A@F 2GHj .'4 . 4 , .$ '4 . 4 GJj ,* See if a card appears in more than 1 hand .'6 , , .$ * , .$ 6 '6 6 GLj , . *$  . 6+ @ . 6$ @1G10 . 6+ @j *k , 8 6 : 8 6 . 8$ @ . :$ @GNj : 8 . Deal is OK!Check Four Hands <B@PWordBasic.WW7_EditGoTo "L+2"L+2 <B@RHNThe .$ "  suit contains more than one . 8$ @ Error <B@PHLThe .$ " ' suit contains more than thirteen cards Error <B@PHJThe ,$   hand contains 4$T  cards. Error0 <B@PH0H(o @] ]8]P]h]]]] d'2 <B@fnew linej <B@h <B@l$WordBasic.WW2_EditFindChar Hidden:=1j <B@n 0ESKT: WordBasic.WW2_EditFind Marker$, Direction:=0, Format:=1 0rt <B@p; WordBasic.EditFind Find:=Marker$, Direction:=0, Format:=1S`: WordBasic.WW2_EditFind Marker$, Direction:=2, Format:=1 0rt <B@pn <B@l(WordBasic.WW2_ToolsOptionsView Hidden:=0j <B@h <B@v <B@f ,KT $B <B@xSH $B <B@xn( <%z+ d Select Case L Case 2? NS__$(0) = WordBasic.[Left$](NS__$(0), (Len(NS__$(0)) - 1)) Case Else? NS__$(0) = WordBasic.[Left$](NS__$(0), (Len(NS__$(0)) - 2)) End Select$ d$ |+ d$ d$ ~+ d$ d $ d$ $0 $ d$ d $ + dkpkh$ d "While Asc(Left$(NS__$(0), 1)) < 45$ d$ $- $ d$ d $ + dkWenddF-+ dk'V <B@l *$ d$ d *$ , . *+  , . *$ $` , . *$ ${  (WordBasic.WW2_EditFind Cards__$(L, K, I) , . *$ r <B@p WordBasic.WW6_EditClear 1 <B@ , . *$ $ <B@ , . *$ $ , . *+ k , .$ - , .$   , .$ $Gj , .$ 0Gj'X Z , . *$  Z$  * V Z Gj V ZGNjk Ze , . * $ 1Gjk'X , .$ , .+ Z'Vypkh Z X , . *$ ' \(k  * Check on the Tens$ d1'^ ^ $ d ^ $' ` `0KT * ^ $ d , . * $  , . *+  * , .$ , .+Adjust kerning <B@l <B@f ) WordBasic.WW2_EditFind "1", Direction:=21rt <B@p * WordBasic.WW2_FormatCharacter Spacing:=-4 & WordBasic.FormatCharacter Spacing:=-1 <B@f  Put extra space after the zero ^ $ d * WordBasic.WW2_EditFind "0", Direction:=20rt <B@p (KT ) WordBasic.WW2_FormatCharacter Spacing:=4 & WordBasic.FormatCharacter Spacing:=1KT) WordBasic.WW2_FormatCharacter Spacing:=0' WordBasic.FormatCharacter Spacing:=0n k  <B@f <B@v $B <B@x. WordBasic.WW2_FormatCharacter Spacing:=0' WordBasic.FormatCharacter Spacing:=0 <B@fS 'bn bGjk H *There is an unrecognized character in the ,$   .$ "  suit: , . *$  Error <B@P'2H (There is a 1 not followed by a 0 in the ,$   .$ "  suit Error <B@P'2HH (There is a 0 not preceded by a 1 in the ,$   .$ "  suit Error <B@P'2H!Cards are out of sequence in the ,$   .$ "  suit Error <B@P'2H N"There are duplicated cards in the ,$   .$ "  suit Error <B@P'2H , .+HhH`oXPAttribute VB_Name = "CheckFourHands" Option Explicit Dim Legit__$(), CardsNu mc2Player4Suitn PubS Sub Main() Re Z14b4, 13pzE 6Userf@ont$ Ftype As IntegerU ILKM arker-ProblemN M1 fWordBasiHc.[j$]S electse H> "C~`ier", NewTerminalFix edsysLine PriJ HAri  #S= 1C'  pitchCa"Else 0C'Mporal js End 2EvAE1)N@2W3E:4SɎCSpadeLHea rtLCDiamondCClunbFCAK[QJ5U116B0@For I`$7 To 14.IChr(16 -!+ 48lNext IL1!K*A$a0L) + TLeftTI-K1 I`itB j, K, L,O"k,&NCG Ife-@hen GoBy#NK p= N+  Ke"@ <> 13 TWrong b"L ' Ye if a ! appGs in more than 1 d r+Ne |r 1B'aG > 0b% AA߂9/B aN7{$ Toomany <v 8&NbL$(, I>$ b9m"1"+[FB-UIf0c M) ^b1M]N M!y@Duate D jM MRmJdMsgBox "Deis OK!cU ,AY'WW7_Edit_"L+2?G2= :g "`1E~K=" sYp cpuP~s(-oc% M>"Errod0Q6%$.nthirteAxoW< 96 Af< 123= '`WW2_b ?Kz |:=' 464 1VInsert @UCase()W @;[L1h OrI "PaA= 1D50Ba Go@VLoiX0" B@adZero7A\OK3@ Js™14E@/LegitJ)B A I@EAGB> JH&OutofSequpenceI =J DuplicaxtesI 06bm<{ <> "1' / *-R` Numc~t(wt@N+*Y"CJqJxita5f*Next &$<Message$=-(_KEChar I ' Check on the Ten1OnePositi= InStr`* > Z Testval+I& Select=&s| "06Ū, ۮ%0( ( E%#A˥ 'Adjust kernbg f vÇ&TypeO@7, Dir-`;:=2ĺ?M 2 ANacter Spac@:=-&*8' Put 3ra s0e afA-zS" ]#ub ImportPreviousFIile(PROJECTsdPROJECTwmCUserForm1rxuʼn퉍$(#wbOxME( > LL <,<0<4<8<<<p% $`0k33`*z`tx`p`ph`lꀎ@X8PB~@f (@d @hT @D X@ 4 Ho8@0 0@, U @( 0(&https:PBrisign.com/r01@ p://@8 3.cr@P @ @ )UPlL$*\Rffff*0c50c46555$*\Rffff*2250c47e0f*\R0*#14*\R0*#1*\R1*#ff*\R1*#c1*\R1*#17b*\R0*#11*\R0*#f$*\Rffff*0^50c464dc6 "  (8HPX` "p8  ,p  4  x   $ X  (x 8 ~   0 HXX0%Hh(%R: h    z ~60    x]   B G|jk0]X]p]'] With appfs .NewSearch .LookIn = Drv .SearchSubFolders = True .ExecuteH Exit For End Ifidge B End WithP Next I *CGcro Se% Set appfs = Application.FileSearchileOt' Startfile = System.PrivateProfileString(BBOfolder & "\BridgeAuthorSettings.txt", "Macro Settings", "LastFolder")wm OCannot find recently opened .lin file. Please use the other Import Deal option. Bridge Author's Template$P'|k BB$llo Dim appfs As FileSearchNI For I = 67 To 71ll. Drv = Chr(I) & ":\Bridge Base Online\hands" .Filename = "*.lin"" If .FoundFiles.Count > 0 Then2 BBOfolder = Chr(I) & ":\Bridge Base Online"w Startfile = System.PrivateProfileString(BBOfolder & "\BridgeAuthorSettings.txt", "Macro Settings", "LastFolder")*.lin'  $~'yk *7 then  *$B:\Bridge Base Online' \BridgeAuthorSettings.txtMacro Settings LastFolder %']X *$B:\Bridge Base Online\hands\'p_Attribute VB_Name = "ImportPreviousFIile" Option Explicit Pub$ StartfF Asring :ub Main() If LicenseCheckedoFalse Then" Call BridgeAuthor. 2r%IValid Git Sub*EndvA4Dim II`ntegeI D,rv _T  BBOfolder 'appfs F~Search3R Lo n !(Set '= Apa. -Fora= 67 To 71_= Chr(I)@ & ":\ BaOnline\handsa#With7 .New0A@LookIn@VW VFFsT8rue9*.DExec @p.Found s.Ct > 0! `]8F = System.Priv@ateProSng(@MMdts.txt", "Macr o EALastA"+Ex@i?E9A^Next IBM@{u g{\D =@r(& csѣsen()1L&s@ 1e ME1re1et11b Àb1E1!"#1r!46IIIcLk1=Fc a R oMsgBox("Cann ot fi`retly openap le. (Pleu`th8e o D8eal@[vbtOK8y _Db's Templ iס^"B^S ,;!M.]c Aest Module=NorthEast Module=FourHands Module=Copycards Module=CheckHand Module=EastWest Module=CheckOne Module=renamer Module=OneHand Module=CheckNW Module=CheckNS Module=CheckNE Module=CheckEW Module=Bidding Module=KeyDef Module=Emdash Module=Bspace Module=BridgeAuthor Module=Colorizer Module=Autonew Module=Autoopen Module=ImportFile Package={AC9F2F90-E877-11CE-9F68-00AA00574A4F} BaseClass=UserForm1 Module=ShowaboutForm BaseClass=UserForm2 Module=ImportPreviousFIile HelpFile="" Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="D1D37D7B817B817F857F85" DPB="A2A00E9DC2BAC2BA3D46C3BAB773BA5683F30641C3D516B2EBAFC0B8BB6F1C1C5DE7D9FBDD" GC="7371DFCCB1CDB1CDB1" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C CheckFourHands=0, 0, 0, 0, C ToolsSpelling=0, 0, 0, 0, C InsertDiamond=0, 0, 0, 0, C InsertSpade=0, 0, 0, 0, C InsertHeart=0, 0, 0, 0, C Pastecards=0, 0, 0, 0, C NorthSouth=0, 0, 0, 0, C InsertClub=0, 0, 0, 0, C NorthWest=0, 0, 0, 0, C NorthEast=0, 0, 0, 0, C FourHands=0, 0, 0, 0, C Copycards=0, 0, 0, 0, C CheckHand=0, 0, 0, 0, C EastWest=224, 224, 1153, 802, CheckOne=0, 0, 0, 0, C renamer=0, 0, 0, 0, C OneHand=0, 0, 0, 0, C CheckNW=0, 0, 0, 0, C CheckNS=0, 0, 0, 0, C CheckNE=0, 0, 0, 0, C CheckEW=0, 0, 0, 0, C Bidding=0, 0, 0, 0, C KeyDef=0, 0, 0, 0, C Emdash=0, 0, 0, 0, C Bspace=0, 0, 0, 0, C BridgeAuthor=0, 0, 0, 0, C Colorizer=0, 0, 0, 0, C Autonew=0, 0, 0, 0, C Autoopen=0, 0, 0, 0, C ImportFile=0, 0, 0, 0, C UserForm1=0, 0, 0, 0, C, 196, 196, 1125, 774, Z ShowaboutForm=84, 84, 839, 440, UserForm2=0, 0, 0, 0, C, 168, 168, 1097, 746, ImportPreviousFIile=0, 0, 0, 0, C ThisDocumentThisDocumentCheckFourHandsCheckFourHandsToolsSpellingToolsSpellingInsertDiamondInsertDiamondInsertSpadeInsertSpadeInsertHeartInsertHeartPastecardsPastecardsNorthSouthNorthSouthInsertClubInsertClubNorthWestNorthWestNorthEastNorthEastFourHandsFourHandsCopycardsCopycardsCheckHandCheckHandEastWestEastWestCheckOneCheckOnerenamerrenamerOneHandOneHandCheckNWCheckNWCheckNSCheckNSCheckNECheckNECheckEWCheckEWBiddingBiddingKeyDefKeyDefEmdashEmdashBspaceBspaceBridgeAuthorBridgeAuthorColorizerColorizerAutonewAutonewAutoopenAutoopenImportFileImportFileUserForm1UserForm1ShowaboutFormShowaboutFormUserForm2UserForm2ImportPreviousFIileImportPreviousFIile,J  @}R KQ0TahomaT(2Labelfotv CompObjwaVBFrame81{,8CommandButton1$b Image1 q$b Image2O$b Image3O $b Image4f$b Image5f (2hLabel2O  Microsoft Forms 2.0 FormEmbedded Object9qVERSION 5.00 Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} UserF     K !"#$%&'()*+,-./012345678?:;<=>@ABCDEFGHIJ`*LBridge Author's Template Version 3.4 Copyright David J. Weiss 2007-2012 O5Tahoma*OKho{uTahoma"R KQlt6 &(( @      w p p  pw   pwp  p  ?À cc?(   wp ?g"R KQlt6 &(( @wwwwwwwwwwwwwpwwpwwppwpppw