ࡱ>  LN IJKx7 bjbjUU 7|7|l` ` ` ` ` ` ` t t t t a a t \Lt t t t t t t t N\\\\\\@^ ``b\` t t t t t \t ` ` t t \t t t t ` t ` t t t t t ` ` t a %Ut t t \0\ `t ` t t t ` ` ` `  / =!p"p#$%7 bjbjUU 7|7|l``vavavavavaaaaaa a abLaaaaaaaaaaaaaaakc eavaaaaaaa+ iP@P Normal$ h@da$CJOJQJ_HmH sH tH <A@< Default Paragraph FontBOB PlaySmallerCaps;CJ OJQJkH@O@ PlayNormalCaps;CJOJQJkHhh LondonMonth$$$d1$a$5CJOJQJ_HmH sH tH ff LondonIntroHead$d$a$;CJOJQJ_HmH sH tH v2v LondSeasonIntroHEven PB&dP;CJOJQJ_HmH sH tH .B. PlayNormald8|R| LondSeasonMonthHEven! Bd$&dP;CJOJQJ_HmH sH tH <b< PlaySmallerhd8`hCJ8Oq8 PlayTitle5:CJOJQJkHzz LondSeasonMonthHOdd! Bd$&dP;CJOJQJ_HmH sH tH @@ PlayWeekDate$d8a$6CJpp LondonSeason&$$d&dPa$5CJ OJQJ_HmH sH tH tt LondSeasonIntroHOdd PB&dP;CJOJQJ_HmH sH tH 22 PlayFirstEd h`hBOB PlayFirstEdCaps;CJOJQJkH:A: PlayWeekNormal$a$CJDD Footnote Textd81$`CJL&@L Footnote ReferenceCJ EHH*OJQJkH.. LondonPlaySep!:": LondonMonthEven "^88 LondonMonthOdd #]6B6 PlayWeekDateo$6PJ.AR. PlayTheatre%CJ.b. QuoteOn &^PJzz LondSeasonIntroTheater'$$$d1$a$CJOJQJ_HmH sH tH TT LondSeasonRule!(d$ &dPPJ^^ LondonPlayAnnoteEven)$$1$^a$ 6PJ]JJ LondonPlayAnnoteOdd*]^ Thomas MinskerC:\London\London.dotThomas MinskerC:\London\London.dotThomas MinskerC:\London\London.dotThomas MinskerC:\London\London.dotThomas MinskerC:\London\London.dotThomas MinskerC:\London\London.dotThomas MinskerJC:\WINDOWS\Application Data\Microsoft\Word\AutoRecovery save of London.asdThomas MinskerJC:\WINDOWS\Application Data\Microsoft\Word\AutoRecovery save of London.asdThomas MinskerJC:\WINDOWS\Application Data\Microsoft\Word\AutoRecovery save of London.asdThomas MinskerJC:\WINDOWS\Application Data\Microsoft\Word\AutoRecovery save of London.asd 8*9)CD F@K;MNAP!T:e e eeeeGV  V  V  V  V  V  V  V  V  V  V   V!  V"  V#  V$  V%  V&  V'  V(  V)  V*  V+  V,  V-  V.  V/  V0  V1  V2  V3  V4  V5  V6  V7  V8  V9~  V:}  V;  V<|  V={  V>z  V?y  V@x  VAw  VBv  VCu  VDt  VEs  VFr  VGq  VHp  VIo  VJn  VKm  VLl  VMk  VNj  VOi  VPh  VQg  VRf  VSe  VTd  VUc  VVb  VWa  VY  VZ   V[  V\   V_     London ConverterLondon ConverterVr]U]U]U]U]0 ( TemplateProject.LondTbars.MAIN Lond TbarsLondTbars.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(!! zz  System:London NothingLondonNothing.MAIN(  TemplateProject.LondDocVars.MAIN Lond Doc VarsLondDocVars.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(33( !TemplateProject.LondConvert0.MAIN Lond Convert0LondConvert0.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(q{w;s{wqmuJu u*j( "TemplateProject.LondPageSetup.MAINLond Page SetupLondPageSetup.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(ckhwj(uukIU{( TemplateProject.DateField.MAIN Date FieldDateField.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(tIu4uY5UQU1( TemplateProject.SomeText.MAIN Some Text SomeText.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(HmhqwSu'q (@StylesCustom Popup 1 (@FixesCustom Popup 2 (@Go ToCustom Popup 3 London CalendarLondon CalendarVr Y Y Y Y 0 ( TemplateProject.LondTbars.MAIN Lond TbarsLondTbars.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(!! zz  ( Calendar:London NothingLondonNothing.MAIN"( #TemplateProject.LondCreateFile.MAINLond Create FileLondCreateFile.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( "TemplateProject.LondSwapCells.MAINLond Swap CellsLondSwapCells.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(kkwj ( "TemplateProject.LondSwapWidth.MAINLond Swap WidthLondSwapWidth.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( Hw[H (Con1Lond Swap Con1LondSwapCon1.Main((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(huMu u)m (PrevLond Prev PlayLondPrevPlay.Main((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( (NextLond Next PlayLondNextPlay.Main((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( TemplateProject.LondMonth.MAIN Lond MonthLondMonth.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( "TemplateProject.LondBookmarks.MAINLond BookmarksLondBookmarks.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(? ("TemplateProject.LondShortCuts.MainLond Short CutsLondShortCuts.Main(iii                  p(R6RFvFR*S~~>~V6VFVF"( "TemplateProject.LondPlayTable.MAINLond Play TableLondPlayTable.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( !TemplateProject.LondPlayMenu.MAINLond Play MenuLondPlayMenu.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( qmwmWj ( "TemplateProject.LondonNothing.MAINLondon NothingLondonNothing.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( (  TemplateProject.LondColDate.MAIN Lond Col DateLondColDate.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( (  TemplateProject.LondColPlay.MAIN Lond Col PlayLondColPlay.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( #TemplateProject.LondNewspapers.MAINLond NewspapersLondNewspapers.MAIN((gʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( (  TemplateProject.LondColCast.MAIN Lond Col CastLondColCast.MAIN((ggʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( !TemplateProject.LondColOther.MAINLond Col OtherLondColOther.MAIN((gʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(7# ( !TemplateProject.LondColSmall.MAINLond Col SmallLondColSmall.MAIN((gʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(7#"(Indent00 Lond Indent00LondIndent00.Main(0000000000003333330p(@@@@o (Indent25 Lond Indent25LondIndent25.Main(0000000000000333300p(@@@x} ( $TemplateProject.LondPhrasesSwap.MAINLond Phrases SwapLondPhrasesSwap.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(@__`k _"( TemplateProject.LondIndex.MAIN Lond IndexLondIndex.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(YRBJYiuJu u*qi ( TemplateProject.LondIndexW.MAIN Lond Index WLondIndexW.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(YRBJYVVvp ( !TemplateProject.LondIndexGen.MAINLond Index GenLondIndexGen.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(YRBJY-a-"( TemplateProject.SomeText.MAIN Some Text SomeText.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(HmhqwSu'q London Intro London IntroryWyWyWyWy0 ( TemplateProject.LondTbars.MAIN Lond TbarsLondTbars.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(!! zz   Intro:London NothingLondonNothing.MAIN"( #TemplateProject.LondCreateFile.MAINLond Create FileLondCreateFile.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( TemplateProject.LondYear.MAIN Lond Year LondYear.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(VUUWVWVQ ( TemplateProject.LondMonth.MAIN Lond MonthLondMonth.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( "TemplateProject.LondBookmarks.MAINLond BookmarksLondBookmarks.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(? ( "TemplateProject.LondonNothing.MAINLondon NothingLondonNothing.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( "TemplateProject.LondPageSetup.MAINLond Page SetupLondPageSetup.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(ckhwj(uukIU{"( "TemplateProject.LondIntroMenu.MAINLond Intro MenuLondIntroMenu.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(ZRBJX ( "TemplateProject.LondonNothing.MAINLondon NothingLondonNothing.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( 'TemplateProject.LondIntroPersonnel.MAINLond Intro PersonnelLondIntroPersonnel.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp("(Indent00 Lond Indent00LondIndent00.Main(0000000000003333330p(@@@@o (Indent25 Lond Indent25LondIndent25.Main(0000000000000333300p(@@@x} ( $TemplateProject.LondPhrasesSwap.MAINLond Phrases SwapLondPhrasesSwap.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(@__`k _"( TemplateProject.LondIndex.MAIN Lond IndexLondIndex.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(YRBJYiuJu u*qi ( TemplateProject.LondIndexW.MAIN Lond Index WLondIndexW.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(YRBJYVVvp ( !TemplateProject.LondIndexGen.MAINLond Index GenLondIndexGen.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(YRBJY-a-"( TemplateProject.SomeText.MAIN Some Text SomeText.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(HmhqwSu'qLondon SpecialCharsLondon SpecialCharsTZZZZ0 ( TemplateProject.LondTbars.MAIN Lond TbarsLondTbars.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(!! zz   Chars:London NothingLondonNothing.MAIN"( "TemplateProject.LondSpecNonSp.MAINLond Spec Non SpLondSpecNonSp.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( !TemplateProject.LondSpecEnSp.MAINLond Spec En SpLondSpecEnSp.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ia%m ( !TemplateProject.LondSpecEmSp.MAINLond Spec Em SpLondSpecEmSp.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(j`$n ( #TemplateProject.LondSpecEnDash.MAINLond Spec En DashLondSpecEnDash.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ia%m ( #TemplateProject.LondSpecEmDash.MAINLond Spec Em DashLondSpecEmDash.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(j`$n ( $TemplateProject.LondSpecElipses.MAINLond Spec ElipsesLondSpecElipses.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( %TemplateProject.LondSpecElipsesP.MAINLond Spec Elipses PLondSpecElipsesP.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(3333 ( $TemplateProject.LondSpecDDaggar.MAINLond Spec DDaggarLondSpecDDaggar.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( %TemplateProject.LondSpecSterling.MAINLond Spec SterlingLondSpecSterling.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( $TemplateProject.LondSpecLaAcute.MAINLond Spec La AcuteLondSpecLaAcute.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(9? (  TemplateProject.LondSpecUae.MAIN Lond Spec UaeLondSpecUae.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(޿޿ (  TemplateProject.LondSpecLae.MAIN Lond Spec LaeLondSpecLae.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(? ( &TemplateProject.LondSpecLcCedilla.MAINLond Spec Lc CedillaLondSpecLcCedilla.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(??? ( $TemplateProject.LondSpecUeAcute.MAINLond Spec Ue AcuteLondSpecUeAcute.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( $TemplateProject.LondSpecLeGrave.MAINLond Spec Le GraveLondSpecLeGrave.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(? ( $TemplateProject.LondSpecLeAcute.MAINLond Spec Le AcuteLondSpecLeAcute.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(? ( %TemplateProject.LondSpecLeCircum.MAINLond Spec Le CircumLondSpecLeCircum.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(? ( %TemplateProject.LondSpecLiCircum.MAINLond Spec Li CircumLondSpecLiCircum.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(? ( $TemplateProject.LondSpecLoGrave.MAINLond Spec Lo GraveLondSpecLoGrave.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(?? (  TemplateProject.LondSpecLoe.MAIN Lond Spec LoeLondSpecLoe.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(ݻ}}ݻ ( %TemplateProject.LondSpecLuCircum.MAINLond Spec Lu CircumLondSpecLuCircum.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(9 ( %TemplateProject.LondSpecLuUmlaut.MAINLond Spec Lu UmlautLondSpecLuUmlaut.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(9 London Play  London Play0 ( TemplateProject.LondTbars.MAIN Lond TbarsLondTbars.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(!! zz  (Play:London NothingLondonNothing.MAIN"( #TemplateProject.LondCreateFile.MAINLond Create FileLondCreateFile.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( TemplateProject.LondMonth.MAIN Lond MonthLondMonth.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp("( "TemplateProject.LondPlayTable.MAINLond Play TableLondPlayTable.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( !TemplateProject.LondPlayMenu.MAINLond Play MenuLondPlayMenu.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( qmwmWj (  TemplateProject.LondColDate.MAIN Lond Col DateLondColDate.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( (  TemplateProject.LondColPlay.MAIN Lond Col PlayLondColPlay.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp("( #TemplateProject.LondNewspapers.MAINLond NewspapersLondNewspapers.MAIN((gʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( (  TemplateProject.LondColCast.MAIN Lond Col CastLondColCast.MAIN((ggʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( ( !TemplateProject.LondColOther.MAINLond Col OtherLondColOther.MAIN((gʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(7# ( !TemplateProject.LondColSmall.MAINLond Col SmallLondColSmall.MAIN((gʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(7#"(Indent00 Lond Indent00LondIndent00.Main(0000000000003333330p(@@@@o (Indent25 Lond Indent25LondIndent25.Main(0000000000000333300p(@@@x}"(PrevLond Prev PlayLondPrevPlay.Main((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp( (NextLond Next PlayLondNextPlay.Main((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp("( $TemplateProject.LondPhrasesSwap.MAINLond Phrases SwapLondPhrasesSwap.MAIN((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(@__`k _ ("TemplateProject.LondShortCuts.MainLond Short CutsLondShortCuts.Main(iii                  p(R6RFvFR*S~~>~V6VFVFCustom Popup 1 Custom Popup 1111110  *@# Between Plays LondonPlaySep  *@#Play Annote Even StyleLondonPlayAnnoteEven  *@#Play Annote Odd StyleLondonPlayAnnoteOdd" *@#Month Even PageLondonMonthEven  *@#Month Odd PageLondonMonthOdd" *@# QuoteOn StyleQuoteOn London Temp London Temp50sd50sd50sd50sd50sd0 (Con1Lond Swap Con1LondSwapCon1.Main((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(huMu u)m (NextLond Next PlayLondNextPlay.Main((ʦ """)))UUUMMMBBB999|PP3f3333f333ff3fffff3f3f̙f3333f3333333333f3333333f3f33ff3f3f3f3333f3333333f3̙33333f333ff3ffffff3f33f3ff3f3f3ffff3fffffffff3fffffff3f̙ffff3ff333f3ff33fff33f3ff̙3f3f3333f333ff3fffff̙̙3̙f̙̙̙3f̙3f3f3333f333ff3fffff3f3f̙3ffffffffff!___wwwp(Custom Popup 2 Custom Popup 2999990(Make Section ContinueMake Section ContinueJune00.MakeSectionContinue(Fix Italic (Plays) in IndexLond Fix Italic Plays in IndexLondFixItalicPlaysInIndex.Main( p(w7?????'LondStepLondStep````` 0 Custom Popup 3 Custom Popup 3xxxxx 0( Next Month Next Month Go ToGotoMacros.NextMonthGoTo!TemplateProject.LondIndent25.Main!TemplateProject.LondIndent00.Main!TemplateProject.LondMonth.ClearPg!TemplateProject.LondSwapCon1.Main"TemplateProject.AutoNewUnused.Main!TemplateProject.LondNextPlay.Main!TemplateProject.LondPrevPlay.Main"TemplateProject.LondShortCuts.MainLondonMonthEvenLondonMonthOddLondonPlaySep1TemplateProject.LondColCast.ItalicizeAbbreviation.TemplateProject.LondFixItalicPlaysInIndex.Main*TemplateProject.June00.FindNextLeftBracketQuoteOnLondonPlayAnnoteEvenLondonPlayAnnoteOdd(TemplateProject.GotoMacros.NextMonthGoTo*TemplateProject.June00.MakeSectionContinue'TemplateProject.LondIntroPersonnel.MAIN&TemplateProject.LondSpecLcCedilla.MAIN&TemplateProject.LondSeasonHeaders.MAIN%TemplateProject.LondSpecSterling.MAIN%TemplateProject.LondSpecLuUmlaut.MAIN%TemplateProject.LondSpecLuCircum.MAIN%TemplateProject.LondSpecLiCircum.MAIN%TemplateProject.LondSpecLeCircum.MAIN%TemplateProject.LondSpecElipsesP.MAIN$TemplateProject.LondSpecUeAcute.MAIN$TemplateProject.LondSpecLoGrave.MAIN$TemplateProject.LondSpecLeGrave.MAIN$TemplateProject.LondSpecLeAcute.MAIN$TemplateProject.LondSpecLaAcute.MAIN$TemplateProject.LondSpecialSyms.MAIN$TemplateProject.LondSpecElipses.MAIN$TemplateProject.LondSpecDDaggar.MAIN$TemplateProject.LondPhrasesSwap.MAIN#TemplateProject.LondSpecEnDash.MAIN#TemplateProject.LondSpecEmDash.MAIN#TemplateProject.LondonSetFonts.MAIN#TemplateProject.LondNotNewPara.MAIN#TemplateProject.LondNewspapers.MAIN#TemplateProject.LondCreateFile.MAIN#TemplateProject.LondAttachStys.MAIN"TemplateProject.LondSwapWidth.MAIN"TemplateProject.LondSwapCells.MAIN"TemplateProject.LondSpecNonSp.MAIN"TemplateProject.LondPlayTable.MAIN"TemplateProject.LondPageSetup.MAIN"TemplateProject.LondonNothing.MAIN"TemplateProject.LondIntroMenu.MAIN"TemplateProject.LondBookmarks.MAIN!TemplateProject.LondSpecEnSp.MAIN!TemplateProject.LondSpecEmSp.MAIN!TemplateProject.LondPlayMenu.MAIN!TemplateProject.LondIndexGen.MAIN!TemplateProject.LondColSmall.MAIN!TemplateProject.LondColOther.MAIN TemplateProject.LondSpecUae.MAIN TemplateProject.LondSpecLoe.MAIN TemplateProject.LondSpecLae.MAIN TemplateProject.LondPhrases.MAIN TemplateProject.LondonFuncs.MAIN TemplateProject.LondHeaders.MAIN TemplateProject.LondDocVars.MAIN TemplateProject.LondColPlay.MAIN TemplateProject.LondColDate.MAIN TemplateProject.LondColCast.MAINTemplateProject.LondonLeft.MAINTemplateProject.LondIndexW.MAINTemplateProject.LondTbars.MAINTemplateProject.LondMonth.MAINTemplateProject.LondIndex.MAINTemplateProject.DateField.MAINTemplateProject.SomeText.MAINTemplateProject.LondYear.MAINTemplateProject.London.MAINGTEMPLATEPROJECT.LONDON.MAINTEMPLATEPROJECT.LONDYEAR.MAINTEMPLATEPROJECT.SOMETEXT.MAINTEMPLATEPROJECT.DATEFIELD.MAINTEMPLATEPROJECT.LONDINDEX.MAINTEMPLATEPROJECT.LONDMONTH.MAINTEMPLATEPROJECT.LONDTBARS.MAINTEMPLATEPROJECT.LONDINDEXW.MAINTEMPLATEPROJECT.LONDONLEFT.MAIN TEMPLATEPROJECT.LONDCOLCAST.MAIN TEMPLATEPROJECT.LONDCOLDATE.MAIN! TEMPLATEPROJECT.LONDCOLPLAY.MAIN" TEMPLATEPROJECT.LONDDOCVARS.MAIN# TEMPLATEPROJECT.LONDHEADERS.MAIN$ TEMPLATEPROJECT.LONDONFUNCS.MAIN% TEMPLATEPROJECT.LONDPHRASES.MAIN& TEMPLATEPROJECT.LONDSPECLAE.MAIN' TEMPLATEPROJECT.LONDSPECLOE.MAIN( TEMPLATEPROJECT.LONDSPECUAE.MAIN)!TEMPLATEPROJECT.LONDCOLOTHER.MAIN*!TEMPLATEPROJECT.LONDCOLSMALL.MAIN+!TEMPLATEPROJECT.LONDINDENT00.MAIN,!TEMPLATEPROJECT.LONDINDENT25.MAIN-!TEMPLATEPROJECT.LONDINDEXGEN.MAIN.!TEMPLATEPROJECT.LONDMONTH.CLEARPG/!TEMPLATEPROJECT.LONDNEXTPLAY.MAIN0!TEMPLATEPROJECT.LONDPLAYMENU.MAIN1!TEMPLATEPROJECT.LONDPREVPLAY.MAIN2!TEMPLATEPROJECT.LONDSPECEMSP.MAIN3!TEMPLATEPROJECT.LONDSPECENSP.MAIN4!TEMPLATEPROJECT.LONDSWAPCON1.MAIN5"TEMPLATEPROJECT.AUTONEWUNUSED.MAIN6"TEMPLATEPROJECT.LONDBOOKMARKS.MAIN7"TEMPLATEPROJECT.LONDINTROMENU.MAIN8"TEMPLATEPROJECT.LONDONNOTHING.MAIN9"TEMPLATEPROJECT.LONDPAGESETUP.MAIN:"TEMPLATEPROJECT.LONDPLAYTABLE.MAIN;"TEMPLATEPROJECT.LONDSHORTCUTS.MAIN<"TEMPLATEPROJECT.LONDSPECNONSP.MAIN="TEMPLATEPROJECT.LONDSWAPCELLS.MAIN>"TEMPLATEPROJECT.LONDSWAPWIDTH.MAIN?#TEMPLATEPROJECT.LONDATTACHSTYS.MAIN@#TEMPLATEPROJECT.LONDCREATEFILE.MAINA#TEMPLATEPROJECT.LONDNEWSPAPERS.MAINB#TEMPLATEPROJECT.LONDNOTNEWPARA.MAINC#TEMPLATEPROJECT.LONDONSETFONTS.MAIND#TEMPLATEPROJECT.LONDSPECEMDASH.MAINE#TEMPLATEPROJECT.LONDSPECENDASH.MAINF$TEMPLATEPROJECT.LONDPHRASESSWAP.MAING$TEMPLATEPROJECT.LONDSPECDDAGGAR.MAINH$TEMPLATEPROJECT.LONDSPECELIPSES.MAINI$TEMPLATEPROJECT.LONDSPECIALSYMS.MAINJ$TEMPLATEPROJECT.LONDSPECLAACUTE.MAINK$TEMPLATEPROJECT.LONDSPECLEACUTE.MAINL$TEMPLATEPROJECT.LONDSPECLEGRAVE.MAINM$TEMPLATEPROJECT.LONDSPECLOGRAVE.MAINN$TEMPLATEPROJECT.LONDSPECUEACUTE.MAINO%TEMPLATEPROJECT.LONDSPECELIPSESP.MAINP%TEMPLATEPROJECT.LONDSPECLECIRCUM.MAINQ%TEMPLATEPROJECT.LONDSPECLICIRCUM.MAINR%TEMPLATEPROJECT.LONDSPECLUCIRCUM.MAINS%TEMPLATEPROJECT.LONDSPECLUUMLAUT.MAINT%TEMPLATEPROJECT.LONDSPECSTERLING.MAINU&TEMPLATEPROJECT.LONDSEASONHEADERS.MAINV&TEMPLATEPROJECT.LONDSPECLCCEDILLA.MAINW'TEMPLATEPROJECT.LONDINTROPERSONNEL.MAINY(TEMPLATEPROJECT.GOTOMACROS.NEXTMONTHGOTOZ*TEMPLATEPROJECT.JUNE00.FINDNEXTLEFTBRACKET[*TEMPLATEPROJECT.JUNE00.MAKESECTIONCONTINUE\.TEMPLATEPROJECT.LONDFIXITALICPLAYSININDEX.MAIN_1TEMPLATEPROJECT.LONDCOLCAST.ITALICIZEABBREVIATION@P@UnknownG:Times New Roman5Symbol3& :ArialMCentury SchoolbookG MS Mincho-3 fg"hr*f2G1$0)I-Thomas MinskerThomas Minsker iD@DNormal#CJ OJQJ_HmHnHsH tH u<A@< Default Paragraph Font@P$@Unknown Oh+'0x  4 @ LX`hpssThomas Minskerhomhom London.dotkThomas Minsker49mMicrosoft Word 9.0@@@zU ՜.+,0  px  Penn State Universityen  Titleb  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~      !"#$%&'()*+,-./012345678e:;<=>?@BCDEFGHMRPQgjTUV`XYZ[\]^_Sabcdefhiqlmnop{stuvwxyzk|}~Root Entryaragraph, Count:=1- Selection.Move FB@b-4%UObaySe1Table@(t thd` &B@eas go & &B@\2 @B@bese@ WordDocumenttiveDocument.Styles("LondonPlaySep")ho &B@\' 29kko4TSummaryInformation_J(9DocumentSummaryInformation8(BTDT CTAMacrosba TU%UVBA ;T+ TUUThisDocument-R  !"#$%&'()*,-./0123456789:;<=?@ABCDEFGHIJKLMNOPRSTUVWXYZ[\]^_`abcefghijklmnopqrstuvxyz{|}~<jx#<qPʖ FqPʖxqPʖqPʖME(SLSS6"N0{00020906-0000-0000-C000-000000000046}(%H` % %`h8@0m:}$*\Rffff*5;391d15b74xAttribute VB_Name = "ThisDocument" Bas0{00020P906-0C$0046} |GlobalSpacFalse dCreatablPredeclaIdTru BExposeTemplateDerivBustomizD2rU 01Y 4a`rU @n__SRP_2__SRP_3MTBLondIntroPersonnel&4W~'LondSpecLcCedilla$ v(IndexI &B@, ?d Index Theater:IxTh &B@dv<IxThI &B@,QTH &B@.#\0DLTH1 &B@0Z\2LIFTH2 &B@0\GKing'sTH3 &B@0\VQueen'sTH4 &B@0uvm Add PersonAdd &B@2\F CanButton &B@4\IF // MF &B@2\FPhrasesPhrase &B@2\-FTheatersTheater &B@2K@$ Phrases &B@68T Pick Lists &B@* &B@8 LondSet.MAINI$  &B@( LondSet.MAINT$  &B@(' ]xF &!<!>.: : &!@%>'$o &B@F D &B@H &B@F: &B@Ho LKT" DlgVisible "CanButton", 1 CanButton &B@NPhrases &B@PKTPhrases$  &B@RPhrases &B@PKTPhrases$  &B@RPhrases &B@PSnoPIxThI member of V  company &B@XIxThI &B@No(]P]h]# MsgBox Id$ + Str$(Act) + Str$(Sup)'Z ^KT CanButtonClose &B@XPhrases$  &B@RPhrases &B@PQTH &B@fKT \PhraseKT ' Phrases &B@PPhrases$  &B@RdAdd &B@NPhrases &B@P' kTheaterKT ' Phrases &B@PPhrases$  &B@RdAdd &B@NPhrases &B@P' kPhrasesKTPhrases &%f'b b KT b$ A@BAdd &B@NKT b$ xME80phPx "++ @@$ `: BYD JP0IL  TYV Z YYY\I^ 0I` @b @D Pdz Y|@~ @0hh€  h@P0h@Ph@PHm:} " (8HX`hx J(,8$h4$4$(P(h*,.0  (P(x02,(8 ` &p&   "  0@P " X`h &p @`hp "x6 B  ( (0"8`    0 8 P px        ( 0 8 H  h  x        &      (  H  h p *x         8 6H     *  ( 0 8 @ P h "  "     ( .8 h p x   B   $     8:@]@h]  8 X]`' DL+ LIF+ King's+ Queen's+ ^2Personnel InputLondIntroPersonnel.DTest &B@(@C Personnel &B@*<. Name:Role &B@dvRoleI &B@,+W Index Name:IndexT &B@d --'D b$  D &%hA@TIxThI &B@NSn DlgFocus "Add"Phrases &B@P' kTH1KTH2KTH3KTH4KT \ &%l &%j'b b$ A@TMFKT // &B@HAddKTRoleI &%n &B@H; &B@HIndexI &%n: IxThI &%n ' dRoleI &B@XIndexI &B@XRoleI &B@NPhrase &B@p dtvxF &B@r CanButtonKT'ZSn Case 3 Select Case ID$ Case "RoleI" DlgEnable "Phrase", 0 Case "IndexI" DlgEnable "Phrase", 0 Case Else End SelectKT \IndexIKTIndexIRoleI &%n$ z &B@XSnSnxip] ~ | | ~$ Gj ~'~ ~ | ~ $, ' zd | ~ $, | ~ $ ' zkxiph(Attribute VB_Name = "LondIntroPersonnel" Dim ItalicList__$(), TheatLQ^Ring  Pubp Sub Main() Re20 Y14 b4*A0CC g0 & 9!1)DL2LIF J3 KT's 4A Queen WordBasic.BeginDialog 350, 426, 231, " Input" .DTest 9 -GroupBox 8, 32142*Text 6CU4C1":a=Role1 12199,* " I24, 487 "Index T4 B T16@10 At@7IxThF7 Option^ "QTHDf ButtonQ}, 9e4O1GABiTH193215@A7Be323q8o\"4$GRPush11?D10E2]Add #^M K'CancelE'b&2 7!b37@ //z MAz+15, PhrasesAC4Odk715a%3 6@/n"&f5!5{2 8"Pick g5EndCCallSet.MAINaIɜT ĽCC As Objectd: ` CurValues.User%C((C `a!PrivЂDoc(T$A#$ 1-,Int T$": =9(Whic"hDSel@! C=N C RembDlgVisible "bCa)FocBUi?% PFunci (Id$, Act,0/p%aPtrS7TcSxerm`-q%MsgHSPtr$()S~urш0:` *  !'I*"Clos߆/#$P?Z+kE{, -p &9 p Ws%IfUMqn1 PEqo A<66s,%%xqO K DA%q*IfS9ooh@ oEp JOOZ**eOO" =s"s(Ff+> 0O+@xh?gr*quu ({:)1 ^"O(lTI:n0J(^U -T-" FZ [Left$](n - 1PY 5 7cF|a $$|st45$ TH2"TH3cս z Ptr = WordBasi@c.Val(h[Right$](Id$, 1)) DoCompany (TheaQ__$(LCase "MF"jInsert " //  /Add0@DlgTex"RoleI"h;fIndexTerm$~[)) + ":"ÀLondSpecLuCircum"Q&B@A@Sn &B@o]2 MsgBox Str$(SelInfo(2)) + " " + Str$(SelInfo(33))-- Header is not even or odd! &%KKKTS@ &B@ &% G &B@jn--Not first section &% G &B@j &B@ &B@' ! &%KT &%LondSeasonIntroHEven &B@d0LondSeasonMonthHEven &B@ ' k &B@ &B@ $ &B@H  &B@H  &B@ &B@H ZapfDingbats93 &B@  &B@H &B@k(KT &%LondSeasonIntroHOdd &B@dLondSeasonMonthHOdd &B@ ' k  &B@  &B@H ZapfDingbats93 &B@ &B@H &B@k  &B@H $ &B@H &B@ &B@KT First page &B@HSno(s+ &B@s- &B@ &% LondonSeasonKT Season$ = LondYear.GetYr$/ NextYear$ = LTrim$(Str$(Val(Season$) + 1))2 MsgBox "Season: " + Season$ + "-" + NextYear$I'  LondonMonthKT &B@ &%'  &B@ &B@ , &% '  MsgBox "Month: " + S$M' S' n &B@ &B@ &B@oxpߴAttribute VB_Name = "LondSeasonHeaders" Dim T$, MonthThisYeaBrNextHType$ Public Sub Main() / W|k \afk  SWordBasic.C0all(.GetYr$"HIfk$# Then2000N G3 :N!;Val() + 1 b[LTrim$](Str{)R#Q "(H+ "(Right(7, 2& i Rem EditGoTo .DestinationAs+>[-@ GViewwlect `Case E"I@ TDo@[ aShowA.CFooterO? !&M?! Else End=IECloseFE3 ubPri 1#nToggle>Link K+bNfirst sL`V O 6!cSe9All Cut!7@3aeI#](["=D" ,tyleIIntroHE9YP<)##!UIfcGInsertPageFiel IKResetChav Chr(9䛎c^a :!<> ""E# @4Caps 0C@d$KSymbol F:="ZapfDing@bats",arNum93x! aC + d*"duXBHBOdddBc! =4q_!/x/Tz$l O|' &R"c. / :*-?3D832!4 ' F2Np`6 cQ%HTS?fU1!fMWW7_/sQ![SQLaЉ? +on#n#4 V!ARA$(peUtt":`;+.$;"-vcǦI 21*Cur!##4 [0l#a ҜwM:pj5,M 4Ya?'F@(y&CaxnceJubi(tartOfp%- "@hLondon: Insert pound sterling@j%TemplateProject.LondSpecSterling.MAIN`m:} "  xMEP<<<<< <<<hҀ@Ҁ@  "`@$$@l (`@??&Px `@eҀ@Ҁ@Ҁ( @((px%((px((px@&h @X @H p(8 @( @  @ @  @ @Ppx @h @X H @8 ( @  @ Ppt @d @T D @4 8H@$  @  xp((P `m:}  " ( 0 8 @ H P ".X 7C2_  " "@  h x       " ( 60 "h(, $N $N   H X h(p2""""   0(%@ P"`"p(.* "2"" ""( PX `"p*(.""%0   0"P`hp "x &&  * " 4 68 p 0( F  0 8@  H(X p]p(x]' ' ' ' ' LondYear.GetYr$ &%('  G2000' j '   &%j ' $ &%' Season    &%l ' @A@ EditGoTo .Destination = "s+" EditGoTo .Destination = "s-" &B@ IKTA@ &B@A@ &B@A@MKTA@ , 8H (normal text)163 &B@Str$o@8Attribute VB_Name = "LondSpecSterling" Public Sub Mai`n() ".Descriptionon: Insert pound sProcDataLInvoke _FuncLTe@mplate"ject. .MAINWordB asic.vSymbol Font:="(normal text)", CharNum 163tEQr xME "@h#London: Insert a non-breaking blank%TemplateProject.LondSpecLuUmlaut.MAIN`m:} ",8H (normal text)252 &B@Ho@8Attribute VB_Name = "LondSpecLuUmlaut" Public Sub Mai`n() ".Descriptionon: Insert a non-breaking b0lank[FPr@ocDataRInvoke_FuncRTemplate"ject. .MAINTWordBasic.|Symbol Font:="(normal text)", CharNum 252Endt xME "@h#London: Insert a non-breaking blank%TemplateProject.LondSpecLuCircum.MAIN`m:} ",8H (normal text)251 &B@o@8Attribuf te VB_Name = "LondSpecLuCircum" Public Sub Mai`n() ".Descriptionon: Insert a non-breaking b0lank[FPr@ocDataRInvoke_FuncRTemplate"ject. .MAINTWordBasic.|Symbol Font:="(normal text)", CharNum 251Endt xMELondSpecLiCircum"dLondSpecLeCircum" wLondSpecElipsesP"LondSpecUeAcute  "@h#London: Insert a non-breaking blank%TemplateProject.LondSpecLiCircum.MAIN`m:} ",8H (normal text)238 &B@o@8Attribute VB_Name = "LondSpecLiCircum" Public Sub Mai`n() ".Descriptionon: Insert a non-breaking b0lank[FPr@ocDataRInvoke_FuncRTemplate"ject. .MAINTWordBasic.|Symbol Font:="(normal text)", CharNum 238Endt xME "@h#London: Insert a non-breaking blank%TemplateProject.LondSpecLeCircum.MAIN`m:} ",8H (normal text)234 &B@o@8Attribute VB_Name = "LondSpecLeCircum" Public Sub Mai`n() ".Descriptionon: Insert a non-breaking b0lank[FPr@ocDataRInvoke_FuncRTemplate"ject. .MAINTWordBasic.|Symbol Font:="(normal text)", CharNum 234Endt xME "@`London: Elipsis with period%TemplateProject.LondSpecElipsesP.MAINX hm:} "X`p.$ . $ . $ . $ &B@HoڰAttribute VB_Name = "LondSpecElipsesP" Public Sub Mai`n() ".Descriptionon: is with period|ProcDataJInvok@e_FuncJTemplate" ject. .MAINTWordBasic.Insert "." + Chr(160) - End{ xME "@h#London: Insert a non-breaking blank$TemplateProject.LondSpecUeAcute.MAINhm:} ",8H (normal text)201 &B@o@8Attribute VB_Name = "LondSpecUeAch" Public Sub Main(), ".Descriptionon: Insert a non-breaking blankFProcDataRInvoke_FuncRTemplateA"ject. .MAINSWordBasic.{Symbol Font:="(normal text)", Ch arNum 20"1Endt LondSpecLoGrave LondSpecLeGrave LondSpecLeAcute LondSpecLaAcute xME "@h#London: Insert a non-breaking blank$TemplateProject.LondSpecLoGrave.MAINhm:} ",8H (normal text)242 &B@o@8Attribute VB_Name = "LondSpecLoGrave" Public Sub Main() ".Descriptionon: Insert a non-breaking blankFPro cDataRInvoke_FuncRTemplate"ject.A .MAINSWordBasic.{Symbol Font:="(normal text)", CharNum 242Endt xME "@h#London: Insert a non-breaking blank$TemplateProject.LondSpecLeGrave.MAINhm:} ",8H (normal text)232 &B@o@8Attribute VB_Name = "LondSpecLeGrave" Public Sub Main() ".Descriptionon: Insert a non-breaking blankFPro cDataRInvoke_FuncRTemplate"ject.A .MAINSWordBasic.{Symbol Font:="(normal text)", CharNum 232Endt xME "@h#London: Insert a non-breaking blank$TemplateProject.LondSpecLeAcute.MAINhm:} ",8H (normal text)233 &B@o@8Attribute VB_Name = "LondSpecLeAch" Public Sub Main(), ".Descriptionon: Insert a non-breaking blankFProcDataRInvoke_FuncRTemplateA"ject. .MAINSWordBasic.{Symbol Font:="(normal text)", Ch arNum 23"3Endt xME "@h#London: Insert a non-breaking blank$TemplateProject.LondSpecLaAcute.MAINhm:} ",8H (normal text)225 &B@o@8Attribute VB_Name = "LondSpecLaAch" Public Sub Main(), ".Descriptionon: Insert a non-breaking blankFProcDataRInvoke_FuncRTemplateA"ject. .MAINSWordBasic.{Symbol Font:="(normal text)", Ch arNum 22"5Endt xMELondSpecialSyms LondSpecElipses !hLondSpecDDaggar LondPhrasesSwap  1      !#$%&'()*+,-./012356789:;<=>?@ABCDEGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklnopqrstuvwxyz{|}~ "@XLondon: Elipses $TemplateProject.LondSpecElipses.MAINpm:} "8@P.$ . $ . &B@Ho80ǰAttribute VB_Name = "LondSpecElipses" Public Sub Main() ".Descriptionon: dProcData>Invok@e_Func>Template" ject. .MAINWordBasic.Insert "." + Chr(160)  End ,3xME(<<< < "`@`London: Create Double Daggar$TemplateProject.LondSpecDDaggar.MAINp%Pm:} " , 8H (normal text)135 &B@o@8Attribute VB_Name = "LondSpecDDaggar" Public Sub Main() ".Descriptionon: CreaDo e ~ProcDataKInvoke_FuncKTemplE" ject. .MAINWordBasic.InsertSymbol Font:="(normal text)", CharNu"m 135sEndq xME]'yPredefined Text PhrasesLondPhrasesSwap.Dtest &B@(X CanButton &B@4l Insert ParaPara &B@2All CapsGAll &B@*!}U$ AllCaps &B@6+mXInsert InsertAllCaps &B@2 Small CapsGSmall &B@*!}U$  SmallCaps &B@6+mXInsertInsertSmallCaps &B@2ItalicsGItalic &B@*}U$ Italic &B@6mXInsert InsertItalic &B@2NormalGNormal &B@*}U$ Norm &B@6mXInsert InsertNorm &B@2* Switch To &B@*l.$ Switcher &B@ &B@8A@A@A@A@A@](F &!<!>.   &!@%>'> If SelInfo(13) = - 1 Then Call InNormal Else Call InTableo8@ +  Introduction+ Calendar+ + o +  Repertory+  Personnel+ + op + Advertisement Details+ Comment+ + o + Actors+  Actresses+ Dancer+ Dancers+ ManagerT[xME@8 "x55London: Other Symbols Menu$TemplateProject.LondSpecialSyms.MAIN@ ` ZP Y\pI^ I` @b 00888 m:}L " (8HXhx R8`,,,,@ ,p,,,,0 ,`,,, &  H Xx       0@ B HPX`hp Xx ]8 ] + + + + + + + + +  +  +  +  +  + 2,London: Special CharactersLondSpecialSyms.DTest &B@( eSelect to Insert character &B@*COpt &B@.#$ OB1 &B@0F#$ OB2 &B@0x#$ OB3 &B@0-$ OB4 &B@02#$ OB5 &B@0F2#$ OB6 &B@0x2#$ OB7 &B@02#$ OB8 &B@02# $ OB9 &B@0P# $ OB10 &B@0FP# $ OB11 &B@0P# $ OB12 &B@0P# $ OB13 &B@0rtXOKButton &B@ &B@8]F &!<!>.  &!@%>' Dim S As InsertSymbol GetCurValues S S.Tab = 0 Dialog S GetCurValues S S.Tab = 1, InsertSymbol .Tab = 0, .CharNum = S.CharNumo]'Z ^KTOKButton &B@NCOpt &B@fOKButtonClose &B@XKT \OB1KOB2KOB3KOB4KOB5KOB6KOB7KOB8KOB9KOB10KOB11KOB12KOB13KT \$ &%j'b b$  &B@HOKButtonKT'ZSPnHS@n8i0(Attribute VB_Name = "LondSpecialSyms" Dim List__$() Public Sub Main$ ".Descriptionon: Other Symbols Menua=ProcDataIInvoke_FuncITem plate"ject. .MAINSRe 20!UU 0)' 23ƈ146578Ɉ91Z H d6 d WordBasic.@BeginD{og 450, 30145,An Characters"D@.DTest GroupBox 1, 2"7@101Sel@q to Insert cNOB "C@DCC Butt@2K36,F1)OB1_7T2C2_1!3Z32Ad1144 ABvuB5c5a!16]#6?b!Q7C7_18C8_)u9C9@)C8`NK010AwrST !DT1T ""T1Tc" zOKl114, 1S88{zec End#U@ As Ob: Set U@CurValues.U`EU ((U Rem ASa CHGet ScS.Tab 0# [1 e ,D .aNum S9e !aA!Prtiv@ a"¨(Id$, Act,pPtrT CasreA "+DlgFocus "3.U, -_lgTextH`TClose`23"Y P C"QWEW2cOB3c4Uc5c6c7c8c9c511"*! 1`$ (Mid#3)76b d .bp"!rElsem + Managers+ Musician+  Musicians+ Other Employees +  Proprietor +  Proprietors + Singer + Singers + Comment+ + op@ + Cast not advertised+ + oLondNotNewPara.MAIN &B@(LondAllCaps.MAIN $ D. &B@( AllCaps 1 Insert UCase$(T$) AllCaps Insert "."oH &B@ D$ &B@H &B@. &B@Ho@ &B@F D &B@H &B@F: &B@Ho]@]X# MsgBox Id$ + Str$(Act) + Str$(Sup)'Z ^KTAllCaps$  &B@R SmallCaps$  &B@RItalic$  &B@RNorm$  &B@RSwitcher$  &B@R'A@ CanButtonClose &B@XKT \ &B@ \ InsertAllCapsKTAllCaps &%f'b b G b$ A@ j CanButton &B@NInsertSmallCapsKT SmallCaps &%f'b b G b$ A@j CanButton &B@N InsertItalicKTItalic &%f'b b G b$ A@Bj CanButton &B@N InsertNormKTNorm &%f'b b G b$  &B@Hj CanButton &B@NAllCapsKT InsertAllCaps &B@NItalic &B@f SmallCaps &B@fNorm &B@f SmallCapsKTInsertSmallCaps &B@NAllCaps &B@fItalic &B@fNorm &B@fItalicKT InsertItalic &B@NAllCaps &B@f SmallCaps &B@fNorm &B@fNormKT InsertNorm &B@NAllCaps &B@f SmallCaps &B@fItalic &B@f  #(xME80phPx( P( "@--p@ `     @    YD @ YD BYD Zp LLY\I^  I` @b @ %%H0h0X€ (p@@0X@0Xp@@0X@0p@@0X@0 0pm:}  "08HXhxP(2 .H,x6 2.8H 2*4 0 (P2x (,   (08 @` Bx "( "08H`x "$ "0H`x0H`x "" ""2 P h   "  "  (  8 H X B ` h p (x        0 P X "`      "   8 "X    "    $8 ` x       0 P h       0Pp         8@H PX` "hpx   @`x" 0Pp  "8` ]]0]X0     ParaKT &B@SwitcherKTSwitcher &%f'  'A@Switcher &B@fk CanButtonKT'ZSnSnip KTIntroGAll &B@PGItalic &B@PAllCaps &B@PItalic &B@P InsertAllCaps &B@P InsertItalic &B@P SmallCaps &B@PNorm &B@PGSmall &B@PGNormal &B@PInsertSmallCaps &B@P InsertNorm &B@P'KTCalendarGAll &B@PGItalic &B@PAllCaps &B@PItalic &B@P InsertAllCaps &B@P InsertItalic &B@P SmallCaps &B@PNorm &B@PGSmall &B@PGNormal &B@PInsertSmallCaps &B@P InsertNorm &B@P'Sp nh o` X &Attribute VB_Name = "LondPhrasesSwap" Dim AllCapList__$(), Sma $NItalicNNormFDisplayingFwitch Pub@ Sub Main() Re10  23 %F51C0Cs!X1B1g2 2"x330@E@TBeüCe321*3qKT32AC;3KatalKDL rtKD7\14\)k42'S TbonDroBk4az5 s4t)#er GEnd##wSet$` o`G#0sb!alB #P As Objectd: ` P(urValues.vU`%P((Pਡma If lInfo(13) - 1 Thenpll In ElseETable Á Priva!B-s (0 " 0k1bIntrod@uction2Calenda0 "4kRepq`oryDkCPersonnelrq}~# Adv isement DetailEQ)|om = t.4 c8torE # ActresD ;# D{5" 4b$o5Manag> 6OA7#uia-8* oa92Other Employ|ee@s(T>$pTY03NotNewA.MAINndc, Chr(9T$j.!RReZY 1[3U e$ ". [DoE> A# Lc. { )PDo"c. T$g2":mFDunh DT`(IdG0up ɒtr{SPMsg1 + Str$(0)S:Ql~gvv  D lg/Array &,E5..tَQ7`7]PHp8B5/g"6Close29(ntStatus0Bar SeF"'4;@2?1!@`2("AllCaps") If Ptr > 0 Then Do ( List_(_$()WordBasic.DlgFocus "CanButton"Case "InserptSma{x= IValue("-& ( DItaliccϗUT (QNormPOG`j  )l k}( d, 0# F" BFF ë=.^ %8$.-[$? Q.brt }Td %fEPara[#CcJwitcherHGSx+x"Ŷ aDisplaying = Set$1SbEnd "Default Paragraph " n0S[Left.a=, 4)?" Or PlaFyG PriAGatusBar "Y4: " +/}A%GImaW ?:=(AddToTempl:=C=ineQet F}=H0DialogRezc.#J(Falsei#ValuesSB1f:=Ŵ 3AIfNex6Ͱ1@0A  t{xME` "@@IF BIH @@@ @m:} " 8 @Phpx  @  B 0@X B `h$ @ $$ B $d@ &B@,@ &B@D( kd$ B $ &B@dX &B@ 1***NOTE***: Paragraph inserted in middle of text. &B@kko@ F &B@D &%' @ &B@i H &B@ &%' B &B@DiPH\Attribute VB_Name = "LondNotNewPara" Public Sub Main() If LeftChar$(1)pChr(13) Then FRighaHElse.2WordBasic.Insertw 1, 0 End If  P":NPrintStatusBar "***NOTE: hgraph iped middle of text.KimnrivaFunction}Nҋm, 1 $p_ [Sele$]{v_*!&ȁNR'B '1(6'LondNewspapersULondCreateFile%fLondAttachStysLondSwapWidth$"iceText 71, R2473:?=5281X160"IOptionQ "GF HButton 25+5-22LDaily CourantP&:&149, 0@I"PoT=^ WY&A<91SpectatorF%AB\5\*7\6L1\From List]4GxDrop^7^73 ¬2 3OKWiD12#8""-Cancele @EndA As ObjJ: P CurValues.UsterP H(P If B -1 ThenpIn t " (K 0zT$sрInStrT(T+">"!(41rMidRT!q K1/|*r , "%?bQ9AbElse ;b343_<=E($f*Q T ub q j!lB@  jB@  jB@ B@" B@"oH](Just to test Page Headers' Tempsdf &B@bl &B@`  &B@H &B@l &B@`  &B@HTempedf &B@b1 EditBookmark .Name = "Temps", .SortBy = 0, .Goto GLondSeasonHeaders.Main &B@(j1 EditBookmark .Name = "Temps", .SortBy = 0, .Goto ExtendSelection EditGoTo "Tempe" EditCutTempsd &B@bTemped &B@bo Attribute VB_Name = "LondCreateFile" Public Sub Main(X) ".~Descriptionon:  a Seas4f with Intro and Calend@ar sec?su`ProcDatalInvok@e_FunclTempl"jB. .MAINRDim$ WordBasic.uNew $:="LONDON.DOT",  0Rem! ScreenUpdating(0 -nlpYearE$`(GetYr$"*If_z" Then pExitJV@EditBookmark Ae" +!A, So8y:=0, Add:=1C0 "CDstarts here .A?Q6PageSetupB66"IHeaders (1XMonth.@ September, w ClWPg ^%*x+Idvn)("M_ g*B*"1GFGoToG +s'P;+@''H!&OfDocument1EySelnd.0Format?aA ! .Texta^mQReceA &!` wardTrue Wrap0wdFiVin Fals MatchCas!rWhole"AWildcsS +xME0 "$$x@ `   N ZH ))Y\hI^  &I` Spec@b &PD @R pers T0YV &L08X8X8X8XXm:}q " ( F0 *x,$:6X62. &0(X     0 8 "@H$h$$ *$0"X"$"$$ "H,p* 0 P p2:$(P` B hpx ( ( ( 0PXp  0 H  h  x               ( 0 "8 @ X p  ]X8 L]A@NxLondon[Paper]: NewspaperLondNewspapers.DTest &B@(Yf Paper Choice &B@*G/ Paper:News &B@dNewsI &B@, PaperOpts &B@.2z Daily Courant PaperCour &B@0( 2d Daily Post PaperPost &B@0N2` Spectator PaperSpec &B@03KD From List:Papers &B@dJF$ L PaperList &B@yXOKButton &B@yX CanButton &B@4 &B@8]F &!<!>.   &!@%>'  ( &B@H &B@F !P &B@H &B@F) &B@Hko(Pick From List)+ LBRAP -- British Apollo+ LCOUR -- Daily Courant+ LDJNL -- Daily Journal+ LPOST -- Daily Post+ LDAWK -- Dawks's News Letter+ LDIVP -- Diverting Post+ LENGP -- English Post+ LEVEP -- Evening Post+ LFEMT -- Female Tatler + LFLYP -- Flying Post + LLGAZ -- London Gazette + LLJNL -- London Journal + LLONP -- London Post + LMIST -- Mist's Weekly Journal+ LNSEU -- New State of Europe+ LOBSE -- Observator+ LPBOY -- Post Boy+ LPMAN -- Post Man+ LREVW -- Review+ LSPEC -- Spectator+ LSUPP -- Supplement+ LTATL -- Tatler+ L#WEEK -- Weekly Journal [Applebee's]+ L,BGAZ -- Weekly Journal; or British Gazetteer+ LPACK -- Weekly Packet+ L+ Lo]]]# MsgBox Id$ + Str$(Act) + Str$(Sup)'Z ^KT PaperOpts &B@f" WordBasic.DlgFocus "CanButton"KT Print Id$ \ CanButtonKOKButtonKT'Z PaperNoneKTNewsI &B@XNewsI &B@N PaperCourKT Daily CourantA@T PaperPostKT Daily PostA@T PaperSpecKT SpectatorA@T PaperListKT PaperList &%f'b b b$ L' D D --  'R D R$' DNewsI D &B@X PaperList &B@fNewsI &B@NkSnSniNewsI V &B@XNewsI &B@No Attribute VB_Name = "LondNewspapers" Dim P8__$() Public Sub Main$Re J,30N$PSet WordBasic.BeginDialog 376, 154,on[3]: "@.DTest YGroupB$oxQ, X3425]02AV C`hooundsLikv All! uEW)C.Exec`mMove¦Unit:=DwdactvC``d aDown eLine,  balayT`able.Col@F@riv`t$`(DoIt`!Mxess@%"Just to tep18 p!Acr/1="qqsF08,"h *( 40FE  "h 8  (  ,> .>P" $ * $        ( 08{@7P7p    " "(6&#0 @&P#h(6x 645 6 H ` x(6(6 ] LONDON.DOT\^ &B@Z ScreenUpdating(0) LondYear.MAIN &B@(LondYear.GetYr$ &%(' n file G|jlendarl &B@`@@ &B@D &B@ &B@DLondIntroMenu.DoSeason  &B@(Intro  df &B@bSeason Intro starts here . . . &B@H &B@LondPageSetup.DoSetupI &B@(A@hLondMonth.SetMon September,  &B@(LondMonth.DoMonth September  Sep  &B@(LondMonth.ClearPg &B@(3 Insert "Season Calendar starts here . . ." InsertPara$ Call LondPageSetup.DoSetup("M") Call SetHeaders(1)Sep  d &B@bMonths  df &B@b &B@. WordBasic.StartOfDocument j!lB@n j!l^m9d5p(d9r v9t99x9z9|9~9(<< << "`@h8@$London: Swap the widths of the cells"TemplateProject.LondSwapWidth.MAINh%ppx @h @X @H @8 Xm:} ""(0@ LondSwap.MAINW &B@(oH@ѰAttribute VB_Name = "LondSwapWidth" Public Sub Main(), ".|DescriptioBnon:  the ws ofcellsGProcDataSInvok@e_FuncSTemplate" ject. .M(AINQ WordBasic.0Call#, D"W(End DKxMELondSwapCellsLondSpecNonSp'#jLondPlayTable3LondPageSetup*&o'(<< << "`@h8@London: Swap Contents of Cells"TemplateProject.LondSwapCells.MAINh%ppx @h @X @H @8 Xm:} ""(0@ LondSwap.MAINC &B@(oH@ʰAttribute VB_Name = "LondSwapCells" Public Sub Main(), ".|DescriptioBnon:  Contents0 of Pr@ocDataMInvoke_FuncMTemplate"ject. .MAIN WordBasic.CallC#, "C(End xME "@h#London: Insert a non-breaking blank"TemplateProject.LondSpecNonSp.MAINhm:} " 0$ &B@HoXPѰAttribute VB_Name = "LondSpecNonSp" Public Sub Main(), ".|Descriptionon: Insert a non-breaking blankFProcDataRInvoke_FuncRTemplateA"ject. .MAINQWordBasic.yChr(160End rU~|  )!) ɣ9))I0a0q)>0  jB@ Selection.EndKey Unit:=wdRow# Selection.EndKey Unit:=wdColumn2 Selection.MoveDown Unit:=wdParagraph, Count:=1- Selection.MoveDown Unit:=wdLine, Count:=1 jB@ LondonPlaySep % j(dp &B@D &% &B@ jB@@ Selection.Style = ActiveDocument.Styles("LondonPlaySep")d &B@kko~Attribute VB_Name = "LondPlayTable" Public Sub Main(), ".|Descriptionon: Creaa New  Pro cDataNInvoke_FuncNTemplHA"ject. .MAINDim NarrowC ol$ GutterWid"e Remhdepr 90.7* " 2 #& 4.4 Be`tween20 2WhereA0reWe/WordBasic.Insert ConvFrom:="", Num,umnsE3Row1InitialMthAuto Format0Apply916E8 @Height AllowSpli10CSelb| .StylActiveDocuments("2Nl";EditBookmark@nme$T      !"#$%'()*+,-./012345679:;<=>?@ABCDEFGHIKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}1 SortB@(0, Add:=G)NextCell"?((2@P("!7GoToB7@G3/Info(1) Mod 2  0 If J Then "Bwlh^+ Chr(34), SpaceYKZRuler?`7aK"3o 6[l_l__"@„ |Els}א}2?l2l!j2!2@__VU_gU End Ifj LineUp g`oHomeKey BU`:=wd | 'a9g OyPxrevǕ@e>.!Eri~vaš}3) <> -1"MsgBox "You arPe int!> Dalydy!yone will be added afs curr\ .plpOfg@FParaDown 1, @L,q=`MoveR"muItem}QE@graph,`Sun)pr / _"fr\ ?>Na= 7Type M"23h|le|+on1SepA}Mc.CharLeft4+m+1"" 2D#Q  W  Dy< (0 8 @H P X `hp & $ %H%X%p%%%    ( 08@   $x %%%% %8%Phx      (08]@ Microsoft Word &B@( Page Setup for: &B@*POpt &B@.o Front MatterOB0 &B@0(Season    7 !"#$M&'()*3,-./012%456U9:;E=>?@ABCD8FGHIJKLNOPQVSTrWbYZ[\]^_`aRcdegwhijklmnopqstuvxyz{|}~(xME< <$<<< <<<<<(<,<0<4<8<<<  "`@hH@,,London: Create a New Play Table"TemplateProject.LondPlayTable.MAINPxPtPp@`  `@-p%x0 \jX @H h@8 @( j@ @ @ @ Hk@ @ @ @ @  0@ ( @@| p@l @\ @L @H 0jx @h @X @H (8 @( @$ p @ @ @ @ Hm:}J "  ( 8 H X h HNp& ^$6  (^8$6X $64  DsDs <kh DsDs<k@  0 &   "2 b(   "  085P7h  & * 8 4 P$^`(2(  F0(8PX`p]]]]0.7' pN0.2' 4.4' 0.0' NA@31Auto0167 &B@ &B@ndon: Normal % j(T1df &B@b &B@- &B@!8Normal % j(2T2df &B@bT1d &B@bi &% ''  "$  "$ 0 &B@ "$  "$ 0 &B@ "$  "$ 0 &B@dP "$  "$ 0 &B@ "$  "$ 0 &B@ "$  "$ 0 &B@kx LineUp 1  jB@ Selection.EndKey Unit:=wdRowWordBasic.PrevCell B@"o &%[ WordBasic.MsgBox "You are in a table already! New one will be added after current one." WordBasic.EndOfRow WordBasic.EndOfColumn WordBasic.ParaDown 1, 0 WordBasic.LineDown 1 WordBasic.InsertPara  jB@  jB@ Introduction SectionOB1 &B@07Season Calendar SectionOB2 &B@0UiX &B@X &B@4 Show Current SetupPush1 &B@2 &B@8]XF &!<!>.  (  &!@%>' KT !$ &%A@KTA@Snop]]F &!:%.~ ~ &!<B@0 ~(b ~ &!@%'o 0KFKT1KIKT j!15(5" 9?$`9 $`9$?$`9"$@$`9$$`95333333?$`9 11?$`9!@$`9 $`9 9 9 999 9999 9q0 j!5( 9 93KT?$`9$`9 ?$`9 ?$`9 $`9$333333?$`9 $?$`9$!@$`9 $`9 9 999 9999 9q`CKMK2KT j!5( 9?$`9SPnHo@8$`9?$`9?$`91.5$`9333333?$`9 ?$`9!@$`9 $`9 9 9 999 9999 9q j!othe5( 9?$`9$`9?$`9@$`9$`9333333?$`9 ?$`9!@$`91. $`9 9 9 999 9999 9qHFSeason Calendar 1st MonthOB3 &B@0Attribute VB_Name = "LondPageSetup" Public Sub Main() Dim PP WordBasic.BeginDialog 266, 164, "Micro`soft T jGroupBox 10, 42441289  for::@Option@ <"P ! `%Bu@tton 2d22511dFrontjtter"OB0##4%22#Seas/IntroducL]*1*5N*2R1"*Ca@lendar(2(7S(1s?5@@hC)3gOKUN8M08f21 YCanc el B~137,  Push b A 1T@"Show Curre@ff Q&End£ As O@bject:Jt P Values.UserYP. -4P'K  (P Sel Case," xME@6 @@@4@4`:@  01    P0PX`hp " x" "  $H Xh%p%%%%%0@HP X `h p x    $8 HX%`x%%%%%DDoì[LTrim$@](Str()B R;B BElse 92ubBrivaWWWDWD8RecAx.File~(Fa'* @ W.Tab "gWq W BJ((Area$-b B$ CFVithd%.FCUA3.LineNumbering.:AsvAbOr i`Oax= wdPortraitTopMar`InchesToPointsp(1.5`"B*om2ILeft 7 Righ2.2GerO0Heardcst!zFoo Di8 2Wid5= &f8 &!Hep1Ai FirstTraywdP;efaultBini;thers .S}I`Startb N ew ddAndEven (#1TruyADixffeMRVerticalAlignm!SEQSuppressln@4s`m Mirror&#< Two On$On_2 .$Poywd+s>W@9:1afI::}:i:@:;:.:::=:_@T@::$C:Q2:l8uH:h::N:e:4:%8:.O:=ˆ:#: .O:er:.:==::op:: :*E:@2:pPos::4"C;MA=_vu _v_;_;_v _;_v._;_;qO61.6 fOvz~S/?;O8H8?;?; ?vH?;?;?;?;?v5?;?; ?;=vCinuous2o;o;o;ovQ@.;;;ov@;;gesovR ov@w;gvfƢ .LineNumbering.Active = False  .Orien@tationtwd., , &!@%>'( (G|j ,!.KTLondYear.GetYr$ &%('   LondYear.MAIN &B@(LondYear.GetYr$ &%(' k` A@0KT46 &B@2KTA@8KTLondPhrasesSwap.Main &B@(KTA@:KTLondIntroPersonnel.MAIN &B@(KTA@<Sno((Select option above for description here+ &Season Opening to a File+ &Footnote within Introduction+ &Introduction Theater Heading+ &Special Phrases+ &'For a Bold, Small-cap, Play Sub-heading+ &#To enter multiple Theater Personnel+ &;Drop Cap the 1st Character of the Season, if it is selected+ &oh]  &%j ' &B@ &B@D LondonSeason &B@ Season of   $ &%l &B@H &B@oLondonFuncs.ParaIfNeeded &B@( &B@ &B@DLondonIntroHead &B@Type Theater Heading Here Now &B@H &B@> &B@ &B@o  ]` On Error Goto Leave &%@ &%BL I$ = InputBox$("Enter Play Phrase", "London Introduction Play", "")Type Play Title Now' , PlayTitle &B@TSdf &B@b , &B@HTEdf &B@b &B@H &B@TSd &B@b &B@>TE &B@ &B@dp PlayTitle &B@kP Leave:o8x &%@ &%B&Select text first, then do 'Drop Cap'! &B@2dFTimes New Roman2H0.05"$ J &B@Dkox'Z ^KTDesc$ & &B@XOpts &B@f CanButton &B@NOKButton &B@pKT \ &%hPushKTDesc \$ &%j$ & &B@XOKButton &B@pOKButtonPerform &B@XCanBKOKBuKT'ZSnSnicAttribute VB_Name = "LondIntroMenu" Dim Desc__$() Public Sub Main$".^riptionSes i O8sa=ProcDataIInvoke_FuncITemplate"ject. .MAINQRe 10DIISea$` SetTrWordBasic.BeginDialog 500(, 2628B,#xME(< <<<%X "(`x44London Seson Intro Options"TemplateProject.LondIntroMenu.MAIN@( 'KP`, *h` 6 0`@ AY @l 8 ` K :x`VP, <`m Z` uY\I^ 8I` &0@(h x`8$(h x`8(h x`8xH0h @X @H H(8 @( @ @ x @ @ @  @ 8`` m:} "  (0 P8.,0.0,`20 (* &P&x    " @P"p " (&0X`hp x " 6&**H6h2J( "085@ X(h"@z( " & 0@X,x    "   P(x$$  $0  X h  x     "  4  L( x  B            8 0H x "         ]`8 &]]A@*London: Introduction MenuLondIntroMenu.DTest &B@(Opts &B@.jec XSeasonPush1 &B@0XNotePush2 &B@02Xon: cd|ucq .DTestG 0|Group "ButtA31, 1>8U>2"_"6Push1/3PNote25Heading37Phras4[14=Play5 =Per|nel E6` ?DropP Cap7  nCancel^15@k9@mFnGBBoxBz134@35, 76@y TextS 14@ 2A5˅ *1(OK'% UEndaEI As Obɡo: h IrCurValue@s.UserEI'((I`tIf 0 Then` ExitS el}/se IB.fS CI 0Dz+all(Year.GetYr$" a6` 9g"""C -:llc~aa)H If Do (@bN6In@)@tFootnw @Refere M: =" 3h5 $CssSpwap.a@@" 4% o5BFmű=" 6% hh Else "C<=ubPrivAMaAΡ/a0.)>BDoabove for vd@Eh&@1'A€en to a File 21within* 3"E`[r "aB4Spec +2 5bF`a Bold, Sm 9-cap, 5Y%-h 6bTo enter multipleo/R wR{7r5P the 1st @CharacofB,, if !;is s;ed0 R_u0h0zNextZ>F + 33P` c/ Left `ZcdDStyPConT7c9 '#-"$"[Right$](Str4 )^TI y1Dod$51=onѓs.AIfNeedQ0 c.Ԓzr. R "qJ& 0@re Now^ExtendA StartOfLin D vxDyDoa21rR$em Opgrr 5Go@@Leav?cdP Po|s(1l & AI$,Inpu{$("E8 ?@]'[!ElsTit+1 $KEdi okmarLk qpfTSS ortBypf, Add:=6T1I@="TE" o Reset*s")Bo? 8 GoToO B(0pWW7_ Q.E? 0 u)o1?9@$r):-s٘rDodvuA+l+-+_ MsgObwtpZ first,q`n do 'b'!/3װlmat$ p3iQհ, Font'imes New Roman#HeU2istFrom1! 0.05WChr(34VEq@ 1RR(Id$P.c SupRp;0/IèAci#0wDlg "q $~2, -lgFocus " $OĒa`Enabqk, D ɰ WordBasic.[Left$](Id$, 4) Case "Push"@DlgText "Desc",  __$(BVal(Mid15)) EnablbOKButtonH1i$"Perform.CanBB")DTes t = 0+ElseEnd Select # Function LondBookmarks<)LondSpecEnSpU&gLondSpecEmSp18gLondPlayMenu2X\ 21, .OKButton- CancelButton 317, 49, 88, 21, .CanButton3 PushButton 317, 95, 88, 21, "Add New", .AddNew' TextBox 12, 170, 330, 18, .AddName- Text 12, 170, 400, 18, "Show", .ShowName. Text 12, 145, 61, 18, "Sort By:", .SortBy OptionGroup .Sort5 OptionButton 90, 143, 95, 16, "Name", .Sort1: OptionButton 180, 143, 95, 16, "Location", .Sort2 End DialogQ Begin Dialog UserDialog 250, 150, 322, 238, "London: Current BookMarks=", .Dtest! Text 10, 9, 48, 13, "Go To:"6 ListBox 12, 26, 290, 119, VaryingList$(), .MyList) OKButton 121, 203, 88, 21, .OKButton. CancelButton 226, 203, 88, 21, .CanButton3 PushButton 12, 203, 88, 21, "Add New", .AddNew' TextBox 12, 170, 292, 18, .AddName, Text 12, 170, 38, 18, "Show", .ShowName. Text 12, 145, 55, 18, "Sort By:", .SortBy OptionGroup .Sort5 OptionButton 90, 143, 95, 16, "Name", .Sort1: OptionButton 180, 143, 95, 16, "Location", .Sort2 End Dialog#London: Current BookMarks= X &% LondBookmarks.Dtest &B@( 0 Go To: &B@d h$ RMyList &B@6eXOKButton &B@X CanButton &B@4XAdd NewAddNew &B@2 AddName &B@, &ShowShowName &B@d 7Sort By:SortBy &B@dSort &B@.OFNameSort1 &B@0XLocationSort2 &B@0 &B@8]PF &!<!>.d d &!@%>'\ d!f'^ T d!hdf &B@bkj]hF &!:%b.lAtCurrentPointer l( l &!@%b'\ \ l!df &B@bk jo xMEx80phPx ҀXx0PX@Z "HKKGPSUthesi: Display Bookmark Menu for auto created bookmarks by PSUthesi"TemplateProject.LondBookmarks.MAIN@\ @^ `d `l b@ Z KKY\8I^ XI` @t PPN0PhR(€TP €V €Z (Pxx(Px(Pxx0m:} "8@P`px0  f &h : , 2 88 ,p 2 2  :0 >p  V & :@ . 2 8 ,  0P 2  : > X`h$*& (H0p&.0(,@0p    & 0 8 "@ h   &    "      0 @ P `  h x        ( 8 @ B H P X (`           8 X ` h x         (  8  H X  ` p "x       *@p      0 P h        ( @ Xx]D](Px* N P R] ]8'T'V' X'Z &%` PsuMsg.MAINNo Active Document &B@(|kA@bb Begin Dialog UserDialog 357, 161, 414, 190, "London: Current BookMarks=" + LTrim$(BookN$), .Dtestk ! Text 10, 9, 53, 13, "Go To:"th6 ListBox 12, 26, 290, 119, VaryingList$(), .MyList' OKButton 317, 9, 88,] &%n'V V + N+ N + P+ P'V 0' Xd  V  &%p + N $ N + P  V + N$ P V &B@r V + P V$' Xko]x]# MsgBox Id$ + Str$(Act) + Str$(Sup)'Z ^KT't'T'ZMyList$ P &B@RAddName &B@pAddName &B@PShowName &B@PShowName &B@XKT \Sort1KTMyList$ P &B@RShowName &B@X'ZSort2KTMyList$ N &B@RShowName &B@X'ZMyListKT ` Z `$ P' d `$ N' k d &B@bShowName &B@PShowName  &B@XkAddNewKT'TAddName &B@PAddName &B@pAddNameNewBookMarkName &B@XAddName &B@NAddNew &B@pOKButtonAdd &B@X CanButtonKT T'TAddName &B@pAddName &B@XAddName &B@POKButton &B@NAddNew &B@pOKButtonOK &B@XdX't'Zk@OKButtonKT T'TAddName &B@pAddName &B@XOKButton &B@NAddNew &B@pOKButtonOK &B@Xk'ZSpnhS`nXiPH׶Attribute VB_Name = "LondBookmarks" Dim DList__$(),8Varyingc@fAdd(Xsf$, SortIs Public Sub Main() .Descr@iptionPSUthesi: Display Menu for auto created b by >jProcData;Invoke_Func;HTem5teject..MA$IN(Re 200j 1E#XSel8edF0 sN$"A If WordBasic.Wi@ndow() Then Call "P suMsg4, "No Active Document Exitn End IfAGetM Re@egin@ialog UserDi357, 161, 4d14@90@Ton: CurruB=" + L@Trim$(A=N$@.Dtest #Text 19, 53"Go To:,E ABox 12, 26A11 `B.My OKButt31/@ 88 0.E Cancel 4 G Push 95, " New", .@ =I417?331?& B> 40 "Shob S]145! "AL By:aByGOtGroup .g4D/4 511" 21818JLocaa2SNeBtR25! 32C3`(tR1XPz41_P_Pi\FP1r2N20 PV2]*P"dPjK29@(P, ,cJP1P5Q@ȟP}P P AWWPtoPBQD4ZO2^9;O@ []ǣKi+S710[kY"S+0+"gN`*T190//"f,8U8['Uq-UpU[16A1kU/-bVMkq.SVWB~yV2*W7 b)W1 15{GWR2P#XWqdlg As Ob: Set !=؊PValues.w Xc(PЖ!.mylP oА`p1E8dit:=Pc=b0:=jeďoThesBMM9 Rec0.@(False BM. "AtPointer0og{BM@pݑ-?a?=Tw:ӟPrivQ ! !BCouns (1H0" a.1/!.`c 0@VE ;FBC$obE B[%$Zi5 bwsN1{~sa wAArrtUpZ7AVO "Strfs0 p q rDTк(IdĐ%up!RC3$#1S@ $(0)S'1 > Case Dpa`;@I8WDlEmD`%@ ajE@nable vb, ZVisiofչ୤ g7f20aiCase "Sor@t1" WordBasic.DlgListBoxArray "My<", BookName __$()tTexthowRh " Is = 1>C20q@2 Fw If Sup > 0 Then  f B$r #Else& j nd If#Ediok mark :=B$, By:=0, GoTo:=5 {Visxiblm NwB:$$E'CuAd0dNewuingG~ D xEna*[ ("{!bMG¤(JFocus " Pc5, 0 OKButton@@ CECanCc G \GY $4R FDB() *(O+OKojPSURCgN aDTest#W44dj\ a4%4ȶ.&Y.", ".L+)g3!-Selepct HaF@unctio xME "@`London: Insert an En-Space!TemplateProject.LondSpecEnSp.MAINpm:} " 0-150 &B@oXPְAttribute VB_Name = "LondSpecEnSp" Public Sub Main()  ".zDescriptionon: Insert an En-SpacezProcDataIInvoke _FuncITe@mplate"ject. .MAINPWordB asic.oSymbol CharNum:="-150'End xME "@`London: Insert an Em-Space!TemplateProject.LondSpecEmSp.MAINpm:} " 0-151 &B@oXPְAttribute VB_Name = "LondSpecEmSp" Public Sub Main()  ".zDescriptionon: Insert an Em-SpacezProcDataIInvoke _FuncITe@mplate"ject. .MAINPWordB asic.oSymbol CharNum:="-151'End  xMEgInvoke_FuncgTemWte"ject.A .MAINPR2e 10iLo opingwIISel#ed Seti7H1 _: WordBasic.BeginDialog 4 70, 230q46,  .DTesZtV +OG@roup "saButt:1):13<11NEW 1"Push1DATE Input 25 PLAY3QG!PapTer 4_9 CvaV@5P62PPhrase 7pt/9@TexB6 S 68 7 VhCNAD8ŒBox 1153퀤8@4a"u24,@`2 Oa` TKP8 1P88 'OD Cancel18 ǃ bEndl#pyI As Ob: v I u'CurValue@s.UserI((I I.oS + If 0 Then GoTo DoneAC N>e` &CallǯB.F2,Col e34sp!ns*5 @ t6Other7Sm%8Inbjh" B  (H`x 0" @ X ` h p x   ]H8 &]]]0A@*'|~0,London: Play MenuLondPlayMenu.DTest &B@(blOpts &B@.nforma NEW PlayPush1 &B@0 DATE InputPush2 &B@02 PLAY InputPush3 &B@0FPaperPush4 &B@0ZCastPush5 &B@0 Phrase 7pt/9pt TextPush6 &B@0Phrase 6pt/8pt TextPush7 &B@02<CNAPush8 &B@0P Description &B@*<Desc &B@,SxXOKButton &B@xX CanButton &B@4 &B@8]HF &!<!>., , &!@%>'( ,!. '^ (Gj ^KTLondPlayTable.Main &B@(KTLondColDate.Main &B@(KTLondColPlay.Main &B@(KTLondNewspapers.Main &B@(KTLondColCast.Main &B@(KTLondColOther.Main &B@(KTLondColSmall.Main &B@(KTCast not advertised. &B@HS '|n |G~jo`(Select option above for description here+ &'Create 2-Column Table to start new Play+ &LDate and theater input for a play with the option to enter Other information+ &|For Play, Abbreviation, and Author including indexing. Options available for non-standard entries like REPORT, DOCUMENT ...+ &+Pick from Newspaper list or quick selection+ &/Enter members of Play Cast with indexing option+ &TEnter a 7pt All-Caps Phrase (e.g. FIRST EDITION) and then 9pt Text for the paragraph+ &\Enter a 6pt All-Caps Phrase (e.g. ADVERTISEMENT DETAILS) and then 8pt Text for the paragraph+ &Cast not advertised.+ &o'Z ^KTDesc$ & &B@XOpts &B@f CanButton &B@NOKButton &B@pKT \ &%hPushKTDesc \$ &%j$ & &B@XOKButton &B@pOKButtonPerform &B@XCanBKOKBuKT'ZSnSnixpAttribute VB_Name = "LondPlayMenu" Dim Desc__$() Public Sub pMain$".^riptionon: CreaNew p Table and prompt for irnma;[ProcDatap"  ]@London: Generate index &B@(XCheck Indexes Wanted &B@*'TGeneralIxGen &B@',~Index of PlaysIxPlay &B@FFX &B@FiX &B@4 &B@8]XF &!<!>.\6 \ &!@%>'G @ If X.IxGen = 1 Then GenIndex "fg", "IndexGeneral", "General" \!G IndexGeneralGeneralA@j \!Gfp IndexOfPlaysPlaysA@jkop]  &% d &B@b  Index exists, Ok to Replace Replace Index$ &%2' Gj &B@d &B@kINDEX \   \* MERGEFORMAT  &B@ &B@D df &B@b &B@ &B@ o Attribute VB_Name = "LondIndexGen" Public Sub Main() Dim xxpWordBasic.BeginDialog 248, 136,on: erami =GroupBox 24<91, 8"Check es Wanted>$>39,;}:4wl"I y 4A1: of Pplays!?OKButton 70,\21 5ancel8105rEndX As Object: Set XԇCurValue@s.UserxNx  (X  Ifr@ -1 Then'-|X.LqD"fgCĉ@vBX[>][ &\ pONf h Q If5Priv*2(TypeIx$, BHookIxA$DAnswer3hxistingAA mark())RAQ dit% := , SortBy:=GoTo:=O @MsxB(* + "C e%s, Ok to Repla   LeavFehkCutC#E8lse# ndOfDocumernEnd2GIn`WtField :="INDEX \"4B\* MERGE@FORMATarLeft @D(_0, Add&0GCharRig h 0Para AM&:O9xMEx "88HXhm:} "*f8     ( 8  L jB@KnW Selection.GoTo What:=wdGoToTable, Which:=wdGoToPrevious, Count:=1, Name:= "" j!lB@n j!l^m9d5p(d9r v9t99x9z9|9~9qoPAttribute VB_Name = "LondNextPlay" Sub Main()  Selection.GoTo What:=wdTableb,$ich&, CounL1, :="'0MPreviousyQ _T] \Find.ClearFormattingWith i$.T^mX).Replacement1ward!True'Wr$ap wd3ConCNFals MatchC asҒ WholeWo:ild*cJs.ShdsLikAllA)LEnd R 9xMEx "88HXhm:}" R2`      0K Selection.GoTo What:=wdGoToTable, Which:=wdGoToNext, Count:=1, Name:=""  L jB@ j!lB@n$ j!l^m9d5p(dH9r v9t99x9z9|9~9qoNAttribute VB_Name = "LondPrevPlay" Sub Main() ' Selection.GoTo What:=wdTable",$ich&Next, CounL1, :="0iousPp _ P\Find.ClearFormatting/With i$.T^ ^mW/.Replacement1wardTrue'Wrap wd3ConCNFals MatchCasВ Whole Wo:ildcJs.S@hdsLikAllA)!LEnd R < '=xME "` E P`pm:}"&02P228404h .444@ x   London Alt Keys &B@(  &B@*dAlt+K -- Alt Keys &B@d<x(Alt+F -- New File &B@d<Alt+M -- New Month &B@dPAlt+T -- New Play Table &B@ddAlt+D -- Date Input &B@dxAlt+P -- Play Input &B@dAlt+C -- Cast &B@d(Alt+N -- Newspapers &B@d<Alt+8 -- 8-Pt Phrase &B@dPAlt+9 -- 9-Pt Phrase &B@d;X &B@~X &B@4 &B@8]@F &!<!>.  &!@%>'oȱAttribute VB_Name = "LondShortCuts" Sub Main() WordBasic.BeginDialog 424, 210,xon Alt hKey| lGroupBox AZ6, 39516 "j +Text 218(b[+K -- f:45 :F:New File:6MMon\th8 ;TPlay Tab>10>D DaנInput?1P= ]AgCCas \N \spaperkAO]8C8-Pt Phr\asl^99M>OKButt59, 14 88 Canc$el 12 17G  ǺEnd Dim tb As Objec@t: SetA= CurValues.User=t I (tRb@   Ac LLondFixItalicPlaysInIndex4LondColSmall9.LondColOtherLondWarning86'xMEx "__88HXhm:}_"   0 PX px   0H h x 8 H Xhx  . 8 8@ x     "8 0`      a19 Macro* Macro recorded 11/05/98 by Thomas Minsker !!(T  jB@ j!lB@n j!l XE 9d^&5p(d9r 9t99x9z9|9~9q j!lB@      !"#$%&()*+,-./012345689:;<=>?@ABCDEFGHIKLMNOPQRSTUVWXYZ[\^_`abcdefghijklmnoqrstuvwxyz{|}~ j!l!G|j  jB@ j!lB@nH j!lroles\::9d^&5p(d9r 9t99x9z9|9~9q j!lB@ j!l!G|j  jB@K j!lB@n j!l(9dK^&5p(d9r 9t99x9z9|9~9q@ j!lB@ j!l!G|j  jB@' If Selection() <> ")" Then Exit Sub2 Selection.MoveLeft Unit:=wdCharacter, Count:=1 &B@>N j!lB@n j!l)9dN^&5p(d9r 9t99x9z9|9~9q j!lB@ j!l!G|j   jB@Italicize Selected Text?   $2'  G|jN   &B@0k( j!(F &B@obAttribute VB_Name = "LondFixItalicPlaysInIndex" Sub Mai@n() ' a19 croMa recorded 11/05/98 by Thomas MinskerX ActiveWindow. Pane.View.ShowAllTrue MyLoop: Sele=on.MoveRight Unit:=wdCharacter, Coun 1 3Fr.ClearFormatting WikgA)LEndR2j]Exe&cIf [.F%en Exit g~  B"8rWs\::?t.??@@R/@@H= b[@A@5(?)e__A .___n___d_&i() <> ")"LBۀK Lef Basic.ExteAaa?n.!'G)PP$/H23aofh0*/HW,h /HH"/Hrh#O(hh|hc!og,0!Q!SSAnsweroMsgBox("izeDrG?", vbYesNoCancel +Questionp! dvbtTht{N~o0`,GpoTo 3IfGFoc p QN a wxMEx "88HXhm:} "LXhLondColPlay.OtherOpts PlayFirstEdPlayFirstEdCaps &B@(o Attribute VB_Name = "LondColOther" Public Sub Main()  WordBasic.CallnPlay.xOpts", ""FirstEd Cap!1 End` gxME "@Y~Xhxm:} " (8 ~London Warning &B@2oPHjAttribute VB_Name = "LondWarning" Public Sub Main(W$) WordBasic.MsgBox W$,|on Endx LADLondSpecUae7LondSpecLoe;7JLondSpecLae]LondPhrases<:,%xME "@h#London: Insert a non-breaking blank TemplateProject.LondSpecUae.MAINhm:} ",8H (normal text)198 &B@o@8Attribute VB_Name = "LondSpecUae" Public Sub Main() ".xDescriptionon: Insert a non-breaking blankProcDataRInvoke _ls xMEX "@##VLondon Input: Smaller Play side column input. 6pt AllCap phrase followed by 8pt text.x!TemplateProject.LondColSmall.MAIN@ `  X8 Y Z Y\6I^ OtI` !RXXXX8m:}D "Z Jp.<.H:x.$&(8 ` p    8@PX` h "p x$ B  ( HPX`  0H h].London[8pt] PLAY: 6pt All-Caps Phrase/8pt TextLondColSmall.DTest &B@((,,Insert Paragraph and start with phrase below &B@dCap ph' hAll-Caps Phrase &B@*ISmall &B@.F(Advertisement DetailsSB1 &B@0(F<]CommentSB2 &B@0FPContemporary CommentSB3 &B@06FdBOtherOther &B@0dOtherI &B@,RXOKButton &B@X CanButton &B@4 &B@8]F &!<!>.  &!@%>'  !KTAdvertisement Details.A@KTComment.A@KTContemporary Comment.A@KT !A@Snko &B@ PlaySmaller &B@PlaySmallerCaps &B@  &B@HDefault Paragraph Font &B@ &B@HoX# MsgBox Id$ + Str$(Act) + Str$(Sup)'Z ^KTSmall &B@fOKButton &B@p CanButton &B@NKT \SB1KSB2KSB3KTOKButton &B@pOKButton &B@NOtherKTOtherI &B@NOKButton &B@p CanButtonKOKButtonKT'ZShn`SXnPiH@<Attribute VB_Name = "LondColSmall" Public Sub Main()  ".zDescriptionInput: er Play side column i. 6pt AllCap phrase followed by 8text.yProcDataInvok@e_FuncTemplate" ject. .MAIN(Dim SS WordBasic.BeginDialog 430, 174,on[F] PLAY:Z-[s P[/UTU".DT(est7 '8 445,( 3088Insert Paragraph a@nd sta withbe,)GroupBox 39, 2+2610dYOqB "ŁA,CK- Butt@z7S@-A019/6/Adv/isement DetailsESB12693_CoVm2#8"9%<1CntorPary 31 f6Other#t_152@0u32AvB IlOKS8 4kr8@ 21S C ancel 19} 1 @GEnd{"` As Obduet SgCurValues.U`RENS((S@  Ifl -1 Then%Sel r Ca}S.LM"0cCDo "IA1<]2C3S.9#BElseK@,  aI&fa-ubAPriv`⪄(S$ &G/ 'Style "B$Q_aH$S$@DefaulIFonM " B(Id$@, Act, pRem Msgaf@ + Str$()eSuI=H @1DlgW, -DEjEnab*fm, PFocus " kJi7#*"`ySB2ӎ0kC@ S=QLHN G?JϵtB/2ct#A3u# FuncRTe@mplate"ject..MAINOWordB asic.wSymbol Font:="(normal text)", CharNum 198Endr xME "@h#London: Insert a non-breaking blank TemplateProject.LondSpecLoe.MAIN܅Ehm:} ",8H (normal text)156 &B@o@8Attribute VB_Name = "LondSpecLoe" Public Sub Main() ".xDescriptionon: Insert a non-breaking blankProcDataRInvoke _FuncRTe@mplate"ject..MAINOWordB asic.wSymbol Font:="(normal text)", CharNum 156Endr xME "@h#London: Insert a non-breaking blank TemplateProject.LondSpecLae.MAIN7hm:} ",8H (normal text)230 &B@o@8Attribute VB_Name = "LondSpecLae" Public Sub Main() ".xDescriptionon: Insert a non-breaking blankProcDataRInvoke _FuncRTe@mplate"ject..MAINOWordB asic.wSymbol Font:="(normal text)", CharNum 230Endr !}U$ AllCaps &B@6+mXInsert InsertAllCaps &B@2 Small Caps &B@*}U$  SmallCaps &B@6mXInsertInsertSmallCaps &B@2YItalics &B@*c}U$ Italic &B@6mmXInsert InsertItalic &B@2Normal &B@*}U$ Norm &B@6 mXInsert InsertNorm &B@2 &B@8A@A@A@A@]F &!<!>.   &!@%>'> If SelInfo(13) = - 1 Then Call InNormal Else Call InTableo +  Repertory+  Personnel+ + o + Advertisement Details+ XComment+ + o P + Actors+  Actresses+ Dancer+ Dancers+ Manager+ Managers+ Musician+  Musicians+ Other Employees +  Proprietor +  Proprietors + Singer + 0Singers + Comment+ + o + Cast not advertised+  E+ o8LondNotNewPara.MAIN &B@(LondAllCaps.MAIN $ D. &B@( AllCaps 1E Insert UCase$(T$) AllCaps Insert "."!oh0 &B@ D$ &B@H &B@. &B@Ho &B@F D &B@H &B@F: &B@Ho]# MsgBox Id$ + Str$(Act) + Str$(Sup)'Z ^KTAllCaps$  &B@R SmallCaps$  &B@RItalic$  &B@RNorm$  &B@R CanButtonClose &B@XKT \ InsertAllCapsKTAllCaps &%f'b b G b$ A@ j CanButton &B@NInsertSmallCapsKT SmallCaps &%f'b b G b$ A@j CanButton &B@N InsertItalicKTItalic &%f'b b G b$ A@Bj CanButton &B@N InsertNormKTNorm &%f'b b G b$  &B@Hj CanButton &B@NAllCapsKT InsertAllCaps &B@NItalic &B@f SmallCaps &B@fNorm &B@f SmallCapsKTInsertSmallCaps &B@NAllCaps &B@fItalic &B@fNorm &B@fItalicKT InsertItalic &B@NAllCaps &B@f SmallCaps &B@fNorm &B@fNormKT InsertNorm &B@NAllCaps &B@f SmallCaps &B@fItalic &B@fParaKT &B@ CanBulsGxMEX80phPx "'' @`@ `  K  P    0 YD pYD BYD Z0 <<Y\PlI^ pI` Adve@b + P0h((0P(0PP(0P (m:} " (8HXhLp(2 & ,H6x (.8 &@*h4 $(2  X hpx  B "(@Xh "px$ "(@Xp(@Xh "px" ""2 0 H h x "  " (8 B @H (Px " 0 8 @ X "x    "  0 H "`    $    @ X x       ( H h         0 @ X ` h p x   ]]( 8 X x ]OPredefined Text PhrasesLondPhrases.Dtest &B@(X CanButton &B@4ml Insert ParaPara &B@2All Caps &B@*ttonKT'ZSnSnixpܵAttribute VB_Name = "LondPhrases" Dim AllCapList__$()`, Sma HNI talicNNorm Pub> Sub Main() Rey`10 h l23 t/aPP WordBasic.BeginDialog 24, 79, 658, 172, "Predefined Text .Dte4st -CancelButt@on 206*45, 8.21 Push3614H0"InserFara"#P ?GroupBox 23, "30 s<+h 3 1B12 8~"C.4A0e҆{@2yoprie0?01C\PrUoa1Sin/39"OB+%1 0$s>$$SCast not au0dD/ ECDo A Lc.-sg Do"c. T$Ҷ3R":#cFunctiDT8(IdG@up ptrMsgq0 + Str$()Sa@:Aulskk q? Dlg.Array f, ॵ4-CÎO6`)7lg"'0Close2 SegC?TD3`*1Ptr@8 (`> 0Æ? (P)xFocus o  c.  s f (  Y u  3 (s? ? /9 &    ENormList__$(Ptr)  WordBasic.DlgFocus "CanButton"Case "AllCaps&|vInsert!VValuQItalic", 0c'Sma{*NP>3{]JqIr][-ZGA\2a- ,¸JK6ParaC4 ADTest =E! Else End Select9  Function LondonFuncssLondIndexer)5><LondHeaderspLondDocVars@>Are #@@;the;ofuchi7ADim CurCol_ Next  We   C2)A= 0߃ @p!6G!wRight 1>,Ed_|ALef)X<> !PLeT6ߦcT:b6Is 5b4e?™65!hEM&WW7_!dGoTo DestinaS:="\a !,(Aj;XkDSo'Sh `IS(1SKDSS-\S S)d YE)p`tious cAtacter@EpP~ R tw%*9'&>t][Bec,$]()Chr(13)s}%K<    H4*:&@8&@`&@&@&@&@4@( $:`$:&:,@,@,@8:@h<@<@&:(4@P (:<@ " P PX6@4@ N h 0x1.2 B  (  (+0 H+X+p%%%" (( @*H(`( 2G" (  8 D@    (#     . ,31xME(< <<<Ҁ.@€2P @€4 , @Ҁ6@@%.0246 "`@99Y8  Y@Y:`I: >I< I> @(l `, % Z`D@0 <<;Y\PI^ pI`  @0`8@wY Y,IF  DH`@p<<Y8 YY:@Hl @J\ @LL FirsPNHx@P8 <C_xME( "@     p @" --@$ if C    @" @&  p @(p @hp @  m:}X " > X"x  > $P"x  > "B @H` >h 4B  " (@Xp   > *"(0H`x > *B  "08Ph   > *B 8@H&`A@oh8----------------------------------------------------------Do Paragraph if needed@    G &B@jkHd@ G &B@jk d G &B@jko8----------------------------------------------------------No Paragraph at end if Cell  A@k` G &B@ j-e d8k0o(8----------------------------------------------------------See if we in a Word Table &%'i8-----------------------------------------------------------Are we at the end of a cell in a Word Table]@]X Are We at the End of a cell' &%'" &B@ &%'$ &B@D " $'kPiH8--------------------------------------------------------#--Is the cell empty in a Word Tablep\cell &B@ &B@ &B@Do8--------------------------------------------------------#--Is the cell empty in a Word Table]] Are We at the End of a cell' &%'" &B@D &%'& &B@ " &'k@i88--------------------------------------------------------#--Is previous character a paragraph ' &B@D &% $G'j &B@iXP Attribute VB_Name = "LondonFuncs" Public Sub Main()  ParaIfNeeded EndB^'-4D :Do Ygraph if n`Priva zIf InATable ThenAtOfCell!Not Is`Empty PrevChar; WordBasic.Insea <EH   A )     ( 0"@.P&6p(00(  *d#8*dHx  "*d#*d  "(*d8#h*dx &6#&6  "  3(3Hh " px 0Hh B $   0:8x](P x]' *' ,' .'0'2'4' ' 6 8' * ' , :' . :'0 <'2 >'4 8' London[Lond/Index]: IndexerLondIndexer.DTest &B@( Index Terms &B@*)BB1 &B@>)II1 &B@ABB2 &B@>AII2 &B@[BB3 &B@>[II3 &B@pS Bold/ItalicText5 &B@df'AuthI &B@,f@AbbrI &B@,fYPerform &B@,H) (1)Text1 &B@d(HB (2)Text2 &B@dH[ (3)Text3 &B@daz Initial Term ValueText4 &B@d a2xSelected Text ...Selected &B@2aNxLast , First ... LastFirst &B@2xXOKButton &B@>X Clear AllClearAll &B@2X CanButton &B@45Goto MS Word IndexGotoWord &B@2HWhichIX &B@.J WordBasic.OptionButton 290, 112, 150, 16, "General Index", "GenIX"I WordBasic.OptionButton 290, 132, 150, 16, "Plays Index", "PlayIX"ds General IndexGenIX &B@0_ Plays IndexPlayIX &B@0H WordBasic.Text 105, 20, 200, 13, "! implies 'Plays index'", "TextEx" &B@8]F &!<!>., , &!@%>'( (GLondIndexW.Main &B@(jo# MsgBox Id$ + Str$(Act) + Str$(Sup)'Z ^KTAuthI * &B@XAuthI' 6AbbrI , &B@XPerform . &B@XB1I1 0A@@B2I2 2A@@B3I3 4A@@AuthI &B@N Selected &B@p LastFirst &B@pk $!WhichIX &B@fdxWhichIX &B@fkPKT \ClearAllKTA@BB1KI1KB2KI2KB3KI3KTOKButton &B@NOKButtonKT'ZAuthI &%nAbbrI &%nPerform &%nA@DSelectedK LastFirstKT 6AuthIKAbbrIKPerformKT \SelectedKT 6  &B@X LastFirstKT 6 $ z &B@XSn 6 &B@NSn CanButtonKGotoWordKT'ZShn`KT \AuthIKAbbrIKPerformKT \' 6 \ &%nG \  &B@XjSnSni FKT  &B@f , &B@fKT  &B@f , &B@fKT  &B@f , &B@fKT  &B@f , &B@fSno0]]]]]0B1 &%fI1 &%f 'HB2 &%fI2 &%f 'JB3 &%fI3 &%f 'LWhichIX &%f'R RG 8$!G 8$' 8jj RG 8$!G! 8 ' 8jj' N 8Gj 8 &%h! 8$' 8\fp ' Nd ISwitch$ = "\fg " ' Nk &%T'P &B@TXE N  &B@EndXdf &B@b &B@D"$ &B@H"$ &B@H &B@D 8B1 &%fI1 &%fA@V 8 &B@HB1 &%fI1 &%fA@Vk : &B@HB2 &%fI2 &%fA@V  &B@HB2 &%fI2 &%fA@VGk :: &B@HB3 &%fI3 &%fA@V : &B@HB3 &%fI3 &%fA@VkPEndXd &B@b P &B@TEndXd &B@boH XG \ &B@xj ZG \ &B@FjoB1 &B@fI1 &B@fB2 &B@fI2 &B@fB3 &B@fI3 &B@fAuthI &B@XAuthI' 6AbbrI &B@XPerform &B@XAuthI &B@Nox (] ~ | | ~$ G^j ~'~^ ~ | ~ $, ' zd | ~ $, | ~ $ ' zk ix p }Attribute VB_Name = "LondIndexer" Dim I1$, I23Opt1, 2 3, S el8l_$ Public Sub Main(A8BCOtp3)I `{pe 3$ o 0 s 3 { "< 1@ATB TC TO1*O2+0O3 + WordBasic.BeginDialog 488, 206,(on[/]: .DTe4stV +GroupBox & 7, 4715" TermsCheck 2430, 1HB";B16J IA IX 65, 2J X 913J O Text T11>81"Bold/Ita@@A 5@ gZ1039}2Z"Auth&I( 64 bb r 8JPerform 32!Ar1 4(1)2s% 6Dg2fo3g!-g3f-3j5@,2AY2&InitgZ Va(luee4PushButton " 5A..8" t`ected@ ;.\.. ~ 7&1f Last , FirD an OK18%BWn"eao1hClear AllaaPCanhcel6+afn30!E1!)Goto MS !#!! #o@ion "WhichIX'!#29a& ap19Generalen B 3K PlaysG b 10yB11\ 2A 9% u%!,m102!f! implies '# iA'A4AEx.End#a6 As Obje:t I#`Cur8s.UserIKc(I|If r4 Then# 0CallcqkW.P PrivaЇFunctE$ q(Id`A$ct`up Re`m MsgW + Str$()Srp }C@@ Case   qwDlgw\0112 _]a\2-"[P3TSet@1s " zz`wײ$ 2!IQ 3Q0Focu@9 w "BnEnable VVaS, If#Lef,t(P)"!? R)E@Else. }l1c"%"?(X!1%i"By"B b d- D.oR*x7[)$](d-),t+pU+ 81  ed'qQ$ #(@/A31dt31R>4=  3a$-*RPe'j;tw/ ""| X%!|94#efT"ҴQ ?7bfO*A*@rBcB8d. N ihYiV(IOe4FHlg1B iU?p7o2tM 1.DlgValue I$, 0 Case 3  WordBPasicB1t:Else End Selectub Private Sub DoIndexTe0rm(A^bC$) Dim HighQ 2ISwitch$ShowAl0lWas> = ("B1") + I  2 2  3 3 #  WIXWhichIX"If 0 Then Left1)!"!" DA$Mid 2ō1<> A+ A^+du"f GoTo Leav/A.[-$]- /\fp 'AO gE FIfAAG(S InsertField B:="XE "Ǵ EditBookmark 0Name X", SortBy:=0, Add:=CharAV 1" Chrx(34N# > 94EM6Doaqs6q,q,e'rP G/e("}!ᔃ<B$ 6 ":K"4B$k  ๭ Cu B"C" 'ddAdx G, D@ts7 b:8bc(B , Ival, Mode$q!R aRDBoal@RItalic 6CleartLvqs/D15yB2JkI!3Text "AuhthI";‡_?q' bbr/"PerformJFocus%OFunction Last$(LWŐW For Wg(Len t1 Step -7 1~:@T"e#x8xNLe+b|saf 0l1q#x_dQ 0 YkW - 10Mq xME "PPPxpm:} "  8  P`"x(*  0PX  `p ]@]X]ps+ &B@s- &B@F &% LondonSeasonKTLondYear.GetYr$ &%('   &%j $ &%' Season:  -  &B@2 LondonMonthKT &B@ &%' Month:  &B@2 Sn &B@ &B@& &B@o`XAttribute VB_Name = "LondHeaders" Public Sub Main() Dim Season$NextPYearS WordBasic.WW7_EditGoTo Destination:="s+ d#)-Select Case 7[Styleœ$]on=< .   &!@%>' KT PlayNormal &B@ PlayTitle &B@& WordBasic.Insert P.PlayI + " " !$+x B@" !$ (kP ! &B@HDefault Paragraph Font &B@ !G ! &B@HjD If P.AuthI <> "" Then WordBasic.Insert "[" + P.AuthI + "]. " ! !$[ !. &B@H ! ! $ (d( ! ). &B@Hkk !GLondAbbr.SetAbbr ! &B@(jLondIndexer.MAIN! ! , ! performance &B@( WordBasic.InsertParaDKT PlayNormal &B@ PlayTitle &B@ ! &B@HDefault Paragraph Font &B@ ! ! &B@HkH anonymous ( !G[ ! ]. &B@Hj !GLondAbbr.SetAbbr ! &B@(jLondIndexer.MAIN! ! (anonymous), performance &B@( &B@Case 2/ OtherOpts "PlayNormal", "PlayNormalCaps", 1Snox] LondSet.MAINO$ ~ &B@(/London[9pt] PLAY: 7pt All-Caps Phrase/9pt Text &B@(R tAll-Caps Phrase &B@*_T$ ~OOpt &B@6xX &B@X &B@4 &B@8]0F &!<!>.F F &!@%>'  F! G F!$ ~   A@jk0o(H Call LondNotNewPara.MAIN  &B@  &B@ F &B@H &B@. &B@Ho]h]  ' PlayNormal'   G   &%h' j ~  ~$ G PlayWeekDate' j ~i'Z ^KTKT \ShowMeKTShowMe &%nShow MePlayIThe Jovial Crew, &B@XAndIor, The Merry Beg xME8H @ "FFx@f IF@h Pj@ pP8Pl`\ d08H`8Hx8H8Hm:}H " (08@HP`x&   0(,X046(4`,   & 8@ HX `dp  d"0 n"h     $ 8 @X]H8 d]]]]]] &%n'f h f h &%p' j j= j &%r h+ d h f(none)+ d d + dk f + d@Active Document Variables &B@( "b$ dListBox1 &B@6?#lsX &B@I0 -Set File Variable &B@*SetVar &B@.>Year OptionButton1 &B@0^FMonth OptionButton2 &B@0>Abbr OptionButton3 &B@0'<Set Push1 &B@2 &B@8](F &!<!>.\ \ &!@%>'! MsgBox Str$(xx) + Str$(x.setvar) KT \!tKT@F6Enter 'Year' to be stored in the file variable LondYr$London: Set Year1700 &%v' 8 LondYear.SetYr 8 &B@(FKT@F8Enter 'Month' to be stored in the file variable LondMon$London: Set Month &%v' 8LondYear.GetYr$ &%(' lLondMonth.Setmon 8, l &B@(FKT@FAEnter 'Abbreviations' to be stored in the file variable LondAbbr$London: Set Abbrev &%v' 8LondAbbr.SetAbbr 8 &B@(2FS`XnPSHn@ x(zo( Sub SetVarVal(P$,T$,D$),N On Error  ans$ = InputBox$(P$,T$,D$) End Sub'Attribute VB_Name = "LondDocVars" Dim <__$() Public Sub Main$Re L20P&4VsV_$xxAY" DVsWordBasic. Countum8entr(For V*1 To 5 Df1 E[Ge D$]<(VS{sV)"+ "=" |+ H %#%N0ext w+IfL&0 Then P606"(none)Els e nd If+ 1+  ]BeginDialog 320, 196, "ActivezY Oiable#ListBox 1@2998,ʈ 1*OKBu0tton@ 115, 821C1A GroupB1@)4287, 4 "Set Fdilar)ption 4[3O $2A6@62EYea#J0cA6On Err Go-1: !+LeavhoA$j[Inpu`~"Enter 'D' to be stored in the faTbT AYr$3a.Aon#)eL17x00"@a+all#aY!@B:#`4BZe!Y-C@(B`!($ $mon @8`,aE!"S&2?EeG?E-EAweviaas_'C'n'# 'QF!a!!a2g$g0Ap?8 (i 5.NumbP1= 07ub;a>S 9B(P$,T$,D$E* ans!V7\fgars &B@XAbbI Jovial Crew &B@XAuthIBrome &B@XShowMeClear &B@XdPlayI &B@XAndI &B@XAbbI &B@XAuthI &B@XPlayI &B@NShowMeShow Me &B@Xk CanButtonKOKButtonKAnonKT'ZSnSniAttribute VB_Name = "LondColPlay" Dim Papers__$(), Oth0 Public Sub Main() ".Descri`ptionInput: No rmal q side colu8mn NPr@ocDataZInvoke_FuncZTemplate"ject..MAINORe 30Y l1 PWordBasic.BeginDialog 420, 194, "[_$]:Zitize a newk" DDTest D ,Grou`pBox *)3 8.6"Title/AuthorText 55, 23, 6Հ1"G:<30 or + ,PlusY)101*8 ayI15 47L(... and(AndR }45 TA7@CAAbbrevbb72@10@492CfCi [ 9U"[[]jBrack)1m] O*OKBut"t@132@)26, 72a" Push4b.7`Show |MeA !ckXCancel% # !xMEP<<<<< <<< %8,LXM +NH&N$O(OP "x`@HH+London Input: Normal Play side column Input TemplateProject.LondColPlay.MAIN(@l ( `  H`KYY I p@ `F  ` ]YF Y7Yay I `H gY@ B@d@~  Z`@ rY\ &I^ I` ,Lh0@~h@@Hphx|@Hphx@Hphx`8 h @X @H @8 @( @ @ @ @ @ @ @ @ ( @ @t d @T @D @4 @$ @ @ PPhXl xx(\ @L H D @4 @$ @ @ ( @ Hp@h m:} "(8 J4@*:,@2@$:(.@P":.@":.@8@0$:h&:0@ (: J0@` 01   "" , 1P p">5$".M J(x 15*N $@ (0:F8Zix """ 58$"X 58X:FbdH    6   "  ( &0 FX . (    8 H h  6   "  "   (  8 H X B ` h p x  ,  *   ( B 0  8  @ H P X  ` $:p  ((  ,(  "(  (  (8 X  (`  (x  (  (  "  (  *& 08@ HPXh]@hcp L  ~@]H[Play]: Initialize a new PlayLondColPlay.DTest &B@(| Title/Author &B@* Input7A Play:2=18b@N'Ki16@`11"s OBsA2a13-AnonymouoEnd z  As Ob: Set PCurValues.UsterP((P` Sel Case Pa-1 A""Style y`b+k In@.zI + " If LefXt(PF)!+" Theng!SpecDDaggar.!A + Mid' 2Ǡ- IfG+D#Defaularagraph Fonū P.a <> " B"'ŀzI"[") "].l+egg/z/ /aaj=d2 1ALen0) - YElse Q"(,)ng=bbwCalla].@9q?@ @7 'Inpdexe*Qj! ,vЎfaLc`P, 0N_5.*P' <2c.<_Zu<ro<11ASndY 792!1'"aWs2+95z%S?#?#?# 7?#7#S(v )#"{#"###b@#'#"&mns_ `CaplPc'S:!e uba+PrivPb(P"$, CcIn_YoOO r nd7CpO SA'J33bcon[9pt] PLAY: 7pt All- Phrq/ 2ig8@Kj2Ү1Ђ"LLhistѤ94 88 Q Q, ڏ2ÆO͆OtÈφg OKφO1r-1h|A.O > 0rH Do (O")ߎ"%{O&B&(O%o& Rem06q!NotNew0"& *`?B,DO$ResetChar"""F $4 WeekP$(S$t3DW`InStr`% "DS$[AT$]rDy1FpWP o 7# G@ DayR9W)a we" Next W End Function PrivateL DTest(Id$, Act, Sup) * = 1 Select CaseB 02  H "ShowM'If WordBasic.[DlgTh$]())w 6 The;<; "Play I", "- Jovial Crew,And1or,59rry Beggarrs bb: uthBrom ooClear0Elses`&DC` >` E; Focusr^4DAg AIfCCanButtonAOKAnG0X (8HXhpx P4 *:8@$:P4@x$:4@$:&:80@` ":"*@(@(@((@P(@x(@(@(@ &:"@(@X*@,@.@,C *:@.Cp (:  01   ,0@0p .q<(  &0 "X (x "( "(  (8 *`0  " )       !"#$%&'()*,-./01<3456789:;+=>?@BCEkFGHIlKMNOYQRSTUVWXZd\]^_`abcJefghijmnoprstuvwz{|}~(TxME< <$<<< <<<<<(<,<0<4<8<<<%8Lp&P` xP  "X` P`@SS&London Input: Date column side of play TemplateProject.LondColDate.MAINBFx@l PhPd`  `H@UY `$@Y`@8]Y: @h PdP`@~8P `| p`@8 |Y @h ]@~X A@ `| Z`@ PPY\(nI^ HDaI` Ph@bX ) THPhTdPDX P@R@ $ `|P0@xh@@ @PX(xPX(xPX(x @ @0 @ @ @ @ @ @ @ @ @ H ( @| 8|Xx @t @d ` 0   (HX xl   (0 @ P ` ` p @ @ @ @ p @ @  @  xt @d @T @D @4 $ 8Xpx(x88HH 8 H4 @$ @ @ @  @ ` pP pXx @h @X @H X8p8Px`@ 0 2, @ @ @ @ @ @ @ @      (m:}| " B 3  B( 0 8 @ H P A` 3 J8     0 8 @ P ,Zh  "      ( @ X p  B     ,R  *  @ P "X `        ( @ X p       B  ( (0 X `h(p(  ()" ( 0$:@ $(h ( ( ( ( (8 (@ (X (p ( " ( (HR X` &8 "  ? )  ( "8*1P X 1 "(   ( A@ ` ) ( "(  &  1H (h "    "(@ X&x224 H,h0$*$ $H"p ( &$("P&x&$*,  P4p"&( @2`&"$""8*` 00,0&`($.  ((H"p4( 8$X&2..0"`"(*&  0  P "p  "    !, !(P!x! !"!!*"*0"$`""&""," #(@#&h#&#0#$#"$8$:X$6$"$ $%$8%$`%.%$%"%"&20&$h&*&*&2&&('&P'x'&' ','$(08("h(&(B(&)$()"P)(x)"))0)$* @*&`*"*** **](PxMHM    ]]](A@A@A@\#[DATE]: 7pt Italic Date/8pt TheaterLondColDate.DTest &B@( ) Date Column &B@*n (7pt Ital.) DATE:Date &B@dDateI &B@,BF0p (8pt) THEATER:Thea &B@d-TheaI &B@,$I] (8pt) OTHER:Other &B@dFOtherI &B@,dXOKButton &B@cKShow MeShowMe &B@2= 2Day &B@*WeekDays &B@.J<NEXTNext &B@0/SuDB1 &B@0/MoDB2 &B@09TuDB3 &B@0J2WeDB4 &B@04ThDB5 &B@0+FrDB6 &B@09SaDB7 &B@0<7 9Theaters &B@*Theaters &B@.FF/DLTB1 &B@0vF/LIFTB2 &B@0FGKing'sTB3 &B@0FVQueen'sTB4 &B@0MXZ$ TheaList &B@>s 1 Other Things &B@*N2$  OtherList &B@X CanButton &B@4 &B@8]@F &!<!>.   &!@%>'  Call LondPlayTableLondSwap.GetColWidths   &B@(  jB@ WordBasic.PrevCell  &%j  &%j G &B@j ! !$  &B@ ! &B@Hd ! WordBasic.InsertPara PlayWeekDateo &B@ ! &B@Hkhk` ! &B@PlayWeekNormal &B@ ! &B@Hk WordBasic.InsertPara !A@! Selection.HomeKey Unit:=wdRow$ Selection.MoveRight Unit:=wdCell  jB@ |B@"k@o8X LondLastDate$  &B@o LondLastDate$ &%r' i]X]p]] : ' :  &%h'  :  $'  31G-Warning: Use New Month if starting new month.A@2j ~  ~$ GFj ~'~ ~ '~ ~G'~j ~$   &%j $ ' i`(Pick from List)+ Sunday+ Monday+ Tuesday+  Wednesday+ Thursday+ Friday+ Saturday+ + ox]X]p  ' PlayNormal'   G   &%h' j ~  ~$ G PlayWeekDate' j ~i(Pick from List)+ ca.+  ca. early+ ca. late+ January+ February+ March+ April+ May+ June + July + August +  September + October + November+ December+ + o]h]]]]# MsgBox Id$ + Str$(Act) + Str$(Sup)'Z ^KTWeekDays &B@fTheaters &B@f '  Next &B@pdDateI  &B@XkDateI &B@NKT \ShowMeKTShowMe &%nShow MeDateI Wednesday 20 &B@XTheaIDL &B@XWeekDays &B@fTheaters &B@fShowMeClear &B@X$ DlgEnable "OKButton", 0dDateI &B@XTheaI &B@XWeekDays &B@fTheaters &B@fDateI &B@NShowMeShow Me &B@X$ DlgEnable "OKButton", 1kDB1KDB2KDB3KDB4KDB5KDB6KDB7KT \ &%l &%j'bDateI b$  &B@XDateI &B@NNextKTDateI &%n$ ' DateI  &B@X A@WeekDays &B@fOKButton &B@NTB1KTB2KTB3KTB4KT \ &%l &%j'bTheaI b$  &B@XTheaI &B@NTheaListKTTheaList &%f'b b b$ ' D D --'R D R &%h' D Print T$TheaI D &B@XTheaList &B@fTheaI &B@Nk( OtherListKT OtherList &%f'b b " Print OtherList$(Ptr)OtherI b$  &B@X OtherList &B@fOtherI &B@NkX CanButtonKOKButtonKT'ZS( n S n i DL+ LIF+ King's+ Queen's+ (Pick from List)+ DL -- Drury Lane Theatre+ #LIF -- Lincoln's Inn Fields Theatre+ #King's -- King's Theatre, Haymarket+ %Queen's -- Queen's Theatre, Haymarket+ AC -- Angel Court+ AVT -- Anchor and Vine Tavern+ "B+S -- Barber's and Surgeon's hall+ BCA -- Bird Cage Alley+ BDR -- Barker's Dancing Room + BELH -- Bellsize House + BF -- Bartholomew Fair + BH -- Boman's House + BHT -- Bull Tavern + B-L -- Bullock-Leigh Booth+ BOS -- Bow Street+ BPT -- Blue Posts Tavern+ BR -- Beverdige's Room+ BT -- Buffler Tavern+ BUH -- Buckingham House+ CA -- Caverley's Academy+ CC -- Chelsea College+ CDR -- Couch's Dancing Room+ CDS -- Clark's Dancing School+ CH -- Charterhouse+ %CH H -- Cheshunt-House, Hartfordshire+ CL -- Chancery Lane+ CLA -- Clafton+ CLAR -- Clare's Academy.+ CLH -- Clothworkers' Hall+ CLK -- Clerkenwell+ $CLK CS -- Clerkenwell Charity School+ COH -- Coachmakers' Hall + CORH -- Corner House!+ CR -- Crown and Anchor"+ CRT -- Crown Tavern#+ CT -- Castle Tavern$+ DG -- Dorset Garden Theatre%+ DR -- Dancing Room&+ "DS -- Dancing School, Queen Street'+ DT -- Dog Tavern(+ !EBH -- Earl of Burlington's House)+ EEH -- Exchequer Eating House*+ EGR -- Epsom Great Room++ EHL -- Epsom Hudson's Lane,+ ENW -- Epsom New Wells-+ Falcon -- Falcon Inn, Southwark.+ FE -- Mr Fearnly's/+ GB -- Golden Balls0+ GBS -- Great Booth Stepney1+ GH -- Girdlers Hall2+ %Globe -- Globe and Marlborough's Head3+  GO -- Godwins4+ GOLD H -- Goldsmiths Hall5+ GR -- Greenwich6+ GRT -- Great Room7+ GT -- Greyhound Tavern8+ HA -- Hampstead9+ HA W -- Hampstead Wells:+ #HW GR -- Hampstead Wells Great Room;+ HAY -- Little Haymarket Theatre<+ HAY GR -- Great Room, Haymarket=+ H&P -- Hand and Pen>+ HC -- Hampton Court?+ HDR -- Hill's Dancing Room@+ HDS -- Home's Dancing SchoolA+ ;HH -- Haberdashers' HallB+ HIC -- Hickford'sC+ HR -- Holt's RoomD+ Horn -- Horn TavernE+ HOUN -- HounslowF+ HT -- Horshoe TavernG+ IH -- India HouseH+ IT -- Inner TempleI+ JSH -- James Street, HaymarketJ+ KAT -- King's Arms TavernK+ LR -- Long RoomL+ LS -- Loe's SchoolM+ LW -- Lambeth WellsN+ MA -- Mr Mayor'sO+ MBS -- Mrs Bellamy's SchoolP+ MDS -- Mrs Defenne's SchoolQ+ MEG -- Mile End GreenR+ MF -- May FairS+ MH -- Harlborough HouseT+ MO -- MoorfieldsU+ MTH -- Merchant Taylor's HallV+ NH -- North HallW+ NWE -- New Wells at EpsomX+ OS -- Orlibeer's SchoolY+ OSG -- Old Spring GardenZ+ "PC GR -- Great Room, Peter's Court[+ PH -- Pewterers' Hall\+ PR -- Powlet's Room]+ PT -- Pye Tavern^+ ,Pun SML -- Punch's Theatre, St Martin's Lane_+ (Pun CG -- Punch's Theatre, Covent Garden`+ PW -- Pancras Wellsa+ PY -- Palace Yardb+ RI -- Richmondc+ RI W -- Richmond Wellsd+ Romer -- Romer Taverne+ RDS -- Roussau's Dancing Schoolf+ Sa H -- Sadler's Hallg+ SF -- Southwark Fairh+ SG -- Spring Gardeni+ #SGR -- Symond's Great Room, Enfieldj+ SH -- Stationer's Hallk+ SHG -- Somerset House Gardenl+ St Alb -- St Albans' Streetm+ #St F -- Sturbridge Fair (Cambridge)n+ SJP -- St James's Palaceo+ SML -- St Martin's Lanep+ SOU -- Southwarkq+ SPS -- St Paul's Schoolr+ SS -- Seven Starss+ ST G -- Ship Tavern, Greenwicht+ TC -- Tottenham Courtu+ "TCJS -- Tennis Court, James Streetv+ TEC -- Tennis Courtw+ TGB -- Two Golden Ballsx+ 3TH SOU -- Town Hall, St. Margaret's Hill, Southwarky+ TTT -- Three Tuns Tavernz+ UM -- Upper Moorfields{+ VH -- Vintner's Hall|+ WCH -- Wax Chandler's Hall}+ Wey's -- Wey's Home~+ WH -- Whitehead+ !Win -- Winstanley's Water Theatre+ WINH -- Windmill Hill+ Windsor -- Windsor+ WS -- Westminster School+ YB -- York Buildings+  York -- York+ + o*CAttribute VB_Name = "LondColDate" Dim WeekDays__$(), (Thetr 8ButOtherListZ Public Sub Main()  .}Description Input:  column side of playIPProc0aUInvoke_FuDncUTem6te"ject. .MAIN'Re9w10X {15ۋ 52-PPLeftCell$Rig"hSet /9&sWordBasic.BeginDialog 604, 192, "[DATE]: 7pt Ital/8a"~DTest? GGroupB@ox 9, 2d9731@A d K Text 23 $10 E ($.) (:A!A136U68IS1)411*1"(<) THEDR?45+ &7@9HOl76S OOKt13&0 892aCPush 35 9F7@ Show Me_A gJk8&?31`>a?65@ "S OBw "Ņ #Ea1.="NE4XTN`H39+`41SuDB145 ()Mo251U5%T$33/a)W1DB>4b\aTh5b4VFr6b"-Za7v3!5Y526P%"jtersdWFHeH2if@DLnTf@ 7 LIF#@442` !7@(King\'s@98?Queen%@Drop!33619@a$_cB+;2¤B24`"G} o+ 1a 1Q;!,AE_.Cancel5P 14PM7EndnJrt As Obq|: r P~CurValues.UserNPKc(P{ If -1@n RemAL Call qsPЇTableM/2Swap.Get0rWidth!F, Sel .HomeKey Unit:=wdRow '1 Prevу `(v) > wqhen^N WG.zI <> ""1Style P_$(PCInt $ QElsR$r1CParna "iteo&A50 H nd If%b 9!  Normal } B -4Last  '))7Move&V,%W@=.a. rqA@pPrivPr (D$$'DocumentVar͡Q-$ZD_ !<$a˱ F[PX$]("@w` AU N8$(CQ 1NB! NWcB `InStr r"D$ @ C$, B - 1EdNaMidB +0,"31!? Msgg"WHarna: 0U Ne0onth if start nPmQ.*`For W To 7*P W$IPGoToxa:# !{AWQ 8K(@cW))#T|N$qA (sA"I0)"(Pick fromZ 1r)I1BSXund2Mo(3Tno4Wednes5hur?sday" WeekDays__$(6) = P"Fri7hSaturp88End Sub Private Function Sty$(S$) Dim DWw InStr, 8" "!/PlayNormaldIf D > 0 TheV$ WordBasic.[Left$]GD - 1I For W%1 To 7 DSW))TM"<te=Next Xtlvw SetOt`hers(>L(ist0(Pick fromZ  ),1ca. 2 earlߊ3l 4Janua r5FebrQMarchMAprif#M 9C"unTJ1HJu71CE@AugustM!1CFSeptemb erFOctocQFNovGD|ecCGDTest(Id$@, Act,pLastD$CPtrNTTP Rem MsgBox  +r$(@)SuA Select Case B1#aggDlgV@alue "#^ys", -pLrCGetam&""l*Enabl@0ElseT$ "DI' IfFocus$"2c%@,B&"ShowMVa[ (%"] jK0dne 20Ke1! "DL/<4R =2d$ClAV$<OKButtonG==!$C*f#Y/#e_O#ME g(!aG?(u_WDBB1-"DB23Uc4c5c6c7_@I =7([RighAw2,wPMy  :uFq0L(}_SM"B!D1~H$) :)_ $?7F G (#?VF$W2sTTTBTB4.F4q;rg " h|ea p(WƠ;TAt&,P`-T`y" --?R TPMnt A{:s0#,, ?X%"@OW= /J$(_"lr oU5AI'Can&j"\8ab`$D9kSŠqe7~iLIF` y#King'sQueen u3OAI 4 Drury Laneatr& Lincol Inn FieldsF)  , Haymarke ACAAngel 0Cour]AVRTcchaЧVi!avern#5cB+SBa"rP's 1SurgeohalG1Չ #BCAbirdog@lleG!ݩCBDRkerDanc Room" Theaters__$(10) = "BELH -- Bellsize@ House 1FRartholomew Fa4ir V2VomPan's3(TUull Tav(ern P4'-L'ock-Leigh Booth% /5/OS/ow Street  6P?lue PostsB7 R)eSdigeilRo8kfPfler*9Uuckingham2CAA"Cley@Academy o2CChelsea Colleg%Mw2ClCD7CouchDanc@# 82CnCDBX Clark School#qC:DCherhP2o D eshunDt-B, Hfordshir1 tCncer`y Lan rCLCRlafto ~2pE8A{Z.KM7qCClwork@',l C23DrLKgkelnw3p C-Ze@ QitTy [3tOCQo`achma9ORrn V38"rown and An`> 3D9R`C|37astlee37DG&Dorset Gardenv "NB38[Z37Y+, QuVe r49D"Dog48EB+Earl of Burlk@O`gq-4c8EExchequ2EatrR9EG3Eps`om Gr`x4c9EHfHud,sof49ENW/N`W!,W4C:Falcon$Inn, Southw;FEMr Feparnl@:G"BGol?Ba:GBbg ơepneM59G-Girds@ 5:Glob.ebaM;borougAHea&dM:GOcdwinsM8GOL D C@smit>h8C> icum5c7G8](5cG,Py Z=+_;5HBTHampst5@B#f O#$(5xHW ,6HAYQLitDHaym0& BA6CAat2qf6H&PMH!1Pec6=CHw p>wurm6H3JHillt/(6HJHP#K= CH$HaberdasVhic6dI ickv'M*6F0HoltP (6$orR@Hq$$"7$OUNounslow 74c)shobҭ7IBIndiaw?acIIUTPempl-7SJSJamesTK"U)7KAK0[0Arm cBLLong?[$(7LMLo!?q LR7Lampbeth?7MR<0WMayor8MTMrs\am`8MS*Defenn p(88ME}Mi End!?5:83M O$(8M@lDYO M2YMoorfield/8MT2MerchantylPNNo`_PNWrou HBv<08Orlpibeea9 OSbOld Sprуc9S PCXwb, Pep-,>L9PrPewEE9PR.PowleC09Pyo>SPun SMrϠD_Іt Py _(9cCBCove#*9Pr6Pra.s6CPjPalace Y)RIAPRp|mon-10C@bep103Romer -- RTavern" Theaters__$(102) = "RDSussau's Dancing Schoo lj3jSa HlSadlerjHalV4+F)outhwark FairV5*G*prGarTde6)R*ymondGrom, Enfield17\@tation]8Hset House L9`t AlbNans' StredetH10turbridgeA (Cam)%1JP4JamesPalacezSML @Martin LanO xOUB n wPSt Paul1Dx evenEarsNwT C^hip , yenwich vTC,Tottenham Cour]CvTCJ"Tennis , QUkw\TEC #2uTGB#wo Gol B@N<2rTH SC\Town ,@". j garetVHi,llUd2yTT Th`N TunNs(Wey`HnN=W# hite@.}2C j!lB@n j!l(9d^&5p(dF9r 9t99x9z9|9~9q j!lB@   jB@ j!(F  jB@@oh]]0]HIndexIActorI &%n$ z, &B@XRoleI &%n'   &%l] ['   $'    &%h' kLondAbbr.GetAbbr$ &%(' 8 8G ( 8 ) ' 8jIndex3  8 &B@Xo`] ~ | | ~$ Gj ~'~ | ~ $' zixpܶAttribute VB_Name = "LondColCast" Public Sub Main() ".xDescriptionInput: Dialog for  mem0bersHPr@ocDataTInvoke_FuncTTemplate"ject..MAINODim CC WordBasic.Begin86, 53, 419, 185",on[K]:` PLAYQ\Role -- A`ctor".hDTe 8GroupBox 65331575}M}UText 34, 28"?:;349016I1G4>4K169 O&E41G AX75B NIndex-1T373 X94B4 -2H29 5B h323125O Pu@shButt@1V1A']02@m"0ADD VAdd 2ATpShowMe25Ae3lsxMEX "@p%London Input: Dialog for Cast members x TemplateProject.LondColCast.MAIN@$ `: Z ZZY\(I^ HI` PdP8 $$ `PxT3@ xP8&B@z Y|Me @~  ````0m:} "`*p,$.$(0P$2$2$@0h000 (((P*x :   0 B 8@H (Px" (  $  "H p *  & ( 0 H ` x    "   8H h&T 0H`x  * <( h   @ <` >    $ >8 x $ >      ( 0 P h x        D ( 0 8 @ H "P X ` 0p    "    J@     ("8 `p  "6(8Pp$x( B$  HX`h]V5,London[Cast]: PLAY Cast Input: Role -- ActorLondColCast.DTest &B@(K Cast Member &B@*"& Role:Role &B@dZRoleI &B@,0) Actor:Actor &B@dZ-ActorI &B@,I7Index-1:IndexT &B@dZFIndexI &B@,db7 Index-2:IndexT2 &B@dZ_Index2 &B@,{7 Index-3:IndexT3 &B@dZxIndex3 &B@,sm ADD MemberAdd &B@2 FShow MeShowMe &B@2F(Abbr)AddAbbr &B@2kFUn-RoleUnRole &B@2^_< CanButton &B@4^=< // MF &B@2^<CNACNA &B@25 PushButton 120, 112, 109, 21, "Add Member", .Add &B@8]F &!<!>.: : &!@%>'$o]h]# MsgBox Id$ + Str$(Act) + Str$(Sup)'Z ^KT CanButtonClose &B@X" WordBasic.DlgFocus "CanButton"Index2roles\: &B@XKT \ShowMeKTShowMe &%nShow MeRoleI Ned Blunt &B@XActorIEstcourt &B@XIndexIEstcourt, Richard &B@X(Abbr)@Ca07, Un-Y`Un[N@Canceld 35&4[BcY 6& // iMF2 J N AC Remd j,:1!-44dd4. %EndCb As Ob: Set CgCurValues.UsterEC((rC@ A Priv !BB(Id$,A,p`!`Termh$ AAM sg@ + SPtr$()eSu1 S,el@ae! e Dlg ""';CClosS'Focus  H y r`s\:@?b2C o$ B"cIf 2[ $](%)bl Then aa!`IKNed Bl|unt$E@stcour"! e, Richard 0U_ 2a gq/#3!R (Rov~eCzT Clear Else_ 4wn&Gy>Ifk,KI nDta4st n ot adtised.Ts0S1rU#NX )4sG "F"RI+J";N; w>:of22"oc.3"ZntStatusBar oX,/ J_/"OvRC~>sZ *'0Enab"* _ ="~GoToDt izeeviaᒳeP] p#XFf0[>4[+:Fields Re2m| KnCLaHstw$(n(K)n, KRX3fFunction Sub ItalicizeAevia(' ' a17 MacroC rec'ed 11/04/98 by Thomas Minpsker QxiveWindow.Pane.View.ShowAllTruđ_(.MoveLeft Unit:=wdCharacter, C8ounJ 1, Extend3CCIf() <> ")"@7en it @L C%P}+ 5d/ !F 0.ClearForm@attingcWithG.TB.b= "(s.Replacement^&) ward ;FaF! Wrapwdq Askh #pMatchB]= 9bWh!WildcsS@IdsLike5U! Aj(C;!.Execut[gZRighZvT o1xgi h`5 aB\ Private !^ !Dim FR`L ADa$$(ilR  w +R$, 1)""]x'aQLInStr2("[ MidBL1 -#D Len@) -# !*Ifc~ HH_{ [q + 5 ` !gA$(LW$!WC / W  To 1 Step -1#A 50ThSGo@Leav0NeP}:`GTa u xME "@Y`d0OY OYXm:} "(8 P` G  &B@Hj &B@e $ &B@Hnd &B@st. G  &B@Hj@oxpAttribute VB_Name = "LondAllCaps" Public Sub Main(Before$,  fter$) " If < <> "" Then WordBasic.Inse?@ABCDEFGHIKLMNOPQRSTUVWXYZ\^`abcdefghijklmnopqrstuvwxyz{|}~5p(d9r v9t99x9z9|9~9q` j!lB@N  jB@Nd0O  jB@O O   jB@, jB@o 8]@'  + January+ February+ March+ FApril+ 7GMay+ June+ July+ August+  September + October + November + December + ' ^#London[New/Month]: Initialize MonthLondMonth.DTest &B@(a Placement &B@*Loc &B@.After current SectionLB1 &B@0At current LocationLB2 &B@0At End of DocumentLB3 &B@0EXOKButton &B@X CanButton &B@4T1Season Month-Year &B@*4i. Month:Month &B@djgMonthI &B@,J Pick Month &B@*WeekDays &B@.#/JanDB1 &B@0_/FebDB2 &B@0/MarDB3 &B@09AprDB4 &B@0N#'/MayDB5 &B@0_'/JunDB6 &B@0 '/JulDB7 &B@0 xME0M\.$ $ ($ $ ($ $ ($ $ ($ $ (  &!@%>'> MsgBox Str$(ttb) + Str$(tb.CB0) + Str$(tb.CB1) + Str$(tb.CB2) !$ A@ !$ A@ !$ A@ !$ A@ !$ A@o0  &% DG  &B@jdH DG  &B@jko' D &%G'jidAttribute VB_Name = "LondTbars" Dim D@onToolX__$() Public Sub Main$".Descri ptionon: Activa@te/dea ^uGProcDataSInvoke_FuncS`TemplK"ject..MAINMRe5ă yttb {0)c Conv`erter21A Intro2(alenda(3SpeciaXlCh?4PXlay>e4xWordBasic.BeginDog 224, 190, "(dle)li GroupBox 1 6, 20>4@@xChheck29@ 1ASystem"!CB00 4109-B\du@on1692DCb2[82Jf2310js @KSideC.4@OKButt 5%;2<88@\1 Hancel r1 15  oE nd>_b As Ob!j: Se0t tbECurValues.UserEtb.O4B((/S0)) oB1\1G2\2G3\3Gz4\4C((tb@Rem MsgXStr$(`) + c"# 2@ `-"'.a), 3( 1' T0 ' 32 `' |0 'aJA9APrb"ƥ(T , T_$ If KSt(4-1 Thenk#\T`0BView%:= H, Hi:= dE8lse _$@, Shownd If !;"ަ`T! $A a '9AugDB8 &B@0#;/SepDB9 &B@0_;/OctDB10 &B@0;/NovDB11 &B@0;9DecDB12 &B@0 &B@8 ]XF &!<!>.   &!@%>' KT ! $ ,  A@O ! ! &%h  !A@A@ Use '[New Play]' when ready.A@2Snop]Just to test Page Headers.'  KTs+ &B@ KTKT &B@S8n0 l jB@`! WordBasic.InsertBreak Type:=3 &B@D &B@ &B@D df &B@b LondonMonth &B@  &B@H &B@c!Normal &B@ &B@Month starts here . . . &B@H &B@l &B@`  &B@H  ( $xME<$<(<<< <<<<< <,<0<4<8<<< %8,LXM +NN  `@ "p`@@London Monthly Calendar OptionsTemplateProject.LondMonth.MAIN @ `  (`@''XY YI 8PxB@n Z`h !!Y\9I^  jI`  j@b  @`H@ Y  `x 0@Ҁ@Pp(@Pp(@Pp(@ 8x @h @X @H h @X jT @D 4 @$ @ @ PxPx @t p`` P @@ H0 @ x @  @  @   @ 8  @ h p @` P @@ 0 @  @ (  @ X  @  @  @ @ HP@ pm:} "* $( 8 H X` h p x   {77"<  ( " 08HPXh(@Xp  N (< :`8&( 0(.X$ (** *P* ****@ *p*** 0 @` x *2&(08" @&B@l &B@`  &B@HLondPageSetup.DoSetupM &B@(LondSeasonHeaders.MAIN &B@(@o((]'Z ^KTMonthI &B@NWeekDays &B@fLoc &B@fOKButton &B@pKT \LB1KLB2KLB3KT) WordBasic.DlgEnable "OKButton", 1DB1KDB2KDB3KDB4KDB5KDB6KDB7KDB8KDB9KDB10KDB11KDB12KTOKButton &B@p \$ &%j'bLondYear.GetYr$ &%('  ?' d  b G  &%j $ &%' jkMonthI b$   &B@XMonthI &B@N CanButtonKOKButtonKT'ZShn`SXnPiH,--This is actually: "Month, Year" for header LondMon$  &B@ o@LondMon$ &%r' NiAttribute VB_Name = "LondMonth" Dim 4s__$(), Season$ Sub ClearPg()  Selection.Find.:FormattingFWith P@.Text^m}Replacem8ent! cward8TrueNWrapwdrCin NFals Matc0hCas Wh`oleWo:i(ldcJs.SoundsLik18All0R"End u Exec MoveLeft Unit:=wdCharacter, C "1 Down! Line 3, ExtendCCut7Public MainAGA.DescriNpA@[Bonl y Calar4 OBs@Pr@ocDataInvoke_FuDncTemt*ej..MHAIN@ReK12ÁPPS 0) 1JanuaryJ2BFebr3MarcA4April5 6June7l8@August9Septemberj1COctvoN#N@TcDNe* dBasic.BeginDialog 350, 252,on[New/"$]: I`ize#E"p.DTeB#T GroupBox 21, 137 86, 9"Pᖧ#ObacCButtW3@1168` @ "Af`u curr@"B1  65a 4 t Locag 2 5 86 wof` Docu 3K !K6940̀8!*"ODn@Cancel21"2  68264"#@-YBUH1 41 "=D:!"D10!0@11c^I@"7"pPickTKWeekDayKk9L 1 4+"{pG D$5c9?I#a915K" ont215 0N4W&33yMay5qS6Hl7rwug8S! z5yPZ9qP\10^K"`&EG_x As Obq{b: St PPwCurValues.UserPKc(P}AhAWP~-6tpA (AP.9d9 + 1))P1 '`&Do" P.rI, [$](+p ">,0p\ MsJgH"@ 'Ap jy]' when ready.;P E\c ub Privad (M$8, B0dMessage`1 J to tIu P0 HersccU4 0WW7_EditGoTo Рl:="s+) 2c.OfkcQA& a$In`$tBk TypeS#B$ous '' 3 c.AR7sP#G1Bookmark :=SortBy:=9@sAdTwStyleUr+D's M !]- ~N1sQ/rtv starts here . r =tK/ c."  l4Set`up.DorEMvSeasonHeaders.MAIN" E@nd SubPPrivate Function DTest(Id$, Act,Np) Dim Ptr< = 1 Selec@t CaseT  0 WordBasic.DlgFocus "MonthI Value "WeekDays0", -G&Loc!EnablIOKButtonŀ0L2 ;Zr \"LB123U'/ h3W$D$DB$DB3(DB4U5678910H'2(Elk.@P(Midw3)@vA $J Call("LondYear.GetYr$" If Len() <> 4 ThenU "?1ElseG A,< 9B %[LTrim$](Str(K6!+ 16IfCGTextƧ, s__$(@#) + "@+E#GCCanF"F_@AM GC  }t(M$8'--ThisB @actuUntil he is dead, do not yet call a man happy, but only lucky.' *Solon' ,KTPThe scholar who cherishes the love of comfort is not fit to be deemed a scholar.' *Confucius, 551-479 b.c.' ,KTSI will have nought to do with a man who can blow hot and cold with the same breath.' *8%Aesop, 550 b.c.' ,KT^Knowledge must come through action; you can have no test which is not fanciful, save by trial.' *Sophocles, 495-405 b.c.' ,KT\Bad men live that they may eat and drink, whereas good men eat and drink that they may live.' *Socrates, 469-399 b.c.' , KTFI have hardly ever known a mathematician who was capable of reasoning.' *Plato, 428- 348 b.c.' ,8 KTqTo enjoy the things we ought and to hate the things we ought has the greatest bearing on excellence of character.' *Aristotle, 384-322 b.c.' , KT^Kingdoms are but cares, state is devoid of stay; riches are ready snares, and hasten to decay.' *Henry VI, 1421-1471' , KT6Let the street be as wide as the height of the houses.' * Leonardo Da Vinci, 1452-1519' , KTqSee! how she leans her cheek upon her hand: O! that I were a glove upon that hand, that I might touch that cheek.' *William Shakespeare, 1564-1616' ,KT]O thou invisible spirit of wine! if thou hast no name to be known by, let us call thee devil!' *William Shakespeare, 1564-1616' ,KT,Thou canst not touch the freedom of my mind.' *John Milton, 1608-1674' ,KT^Truth often suffers more by the heat of its defenders than from the arguments of its opposers.' *William Penn, 1644-1718' ,KTTPolitics, like religion, hold up the torches of martyrdom to the reformers of error.' *Thomas Jefferson, 1743-1826' ,KTwLet us live in as small a circle as we will, we are either debtors or creditors before we have had time to look around.' *%Johann Wolfgang von Goethe, 1749-1832' ,KTI think this is the most extraordiary collection of talent, of human knowledge, that has ever be gathered together at the White House, with the possible exception of when Thomas Jefferson dined alone.' *"John Fitzgerald Kennedy, 1917-1963' ,KTFThere is nothing so powerful as truth -- and often nothing so strange.' *Daniel Webster, 1782-1852' ,KTIn composing, as a general rule, run your pen through every other word you have written; you have no idea what vigor it will give your style.' *Sydney Smith, 1771-1845' ,Sno]] *'<qZ`  zxMEP<<<<< <<<0h€. @%.02&N "`X@Generate some textTemplateProject.SomeText.MAIN 4 `@ 0`@`cc!I6 @8l c! 2`@ @<l @\ Ҁ*8@Ҁ,@H 8((H 8H 8@0@l (\ X `@p&*,H\ @L (< @, @  @ 0 @ x(  @  @  X&@L @< @,  PX @  @ H m:} "  ( 0 8 :H : <  ( H >X >%"   ( 8 HXp    "   0Z    (0^ 8  f   8. @ p F   X  H h\ p  f  X xd   N  ` z   (f 0  > & ( z 0 &  f & H p 4 x   f  @ ` \ h $   . x   *  N "  0 8   "  0 H `Cp "]8,LH' *' ,'.A@0wN6 EditBookmark .Name = "SRandom", .SortBy = 0, .AddxA@26 EditBookmark .Name = "ERandom", .SortBy = 0, .Add7 EditBookmark .Name = "SRandom", .SortBy = 0, .Goto ExtendSelection  < For w = 1 To 1 Next w * $ &B@H  &B@HoH@Attribute VB_Name = "SomeText" @ Dim 0_$, Author NQuotes Public Sub Main() ".Descri ptionGePneras th5ProcDataAInvoke_FuncA`TemplA"ject..MAIN)   0 F%faN(0`Rem EditBookmark .Random", ;rtBy#%Add(DoTheInserht %E%3CGoto;xtenpdSelGG`oTo " C`ancel ADyte]U>E`WordBasic.PrintStatusBar` EndrivAAllCAMzFor Mp1 CA= MA%xParag + " @Bolxd 1> C N= @<GG5(M:ezd@$Q_ gd2If ] `[n# )t(Rnd() * ((- 14) +  lsD!gC IfV Case  '|Not being a true power typist, I have "`ed to gŏ! as if`e it.Minsker, 199F3@2 How chere is nevenough ti`do the job righ  al ways oit o?Anonymousd3iA smalDl k hIs back $gr`eat w@"LH@700 b.c 4 Until dea(d, n 0yet cAa man`.ppy, Aonly lucky,Solonc<5 L sc@}who c*ishes'l`" of-fort-f%@,be deem=aeLConfucius, 551-4796iI wni)H9tHwxith`*bbl@h` yUA>sb/hAesopAm/7Knowledg`e mus-cMr Kac; you0/`^no `whichf$i@ful, sbb"y@3ial So@phocle4@95-405 8 Bad men liPth&y y &d\0k, w1 7go~o#~ ca 69-39}9i ?hard (8k0n" m0,ci@wP ca`pable%`s,onPE P`o, 428- 34:8\10AeenLjo3ths w@t A*`G4.;ePHbea0g 0exylePzB0$er ArPotle, 384-322 zTK ps aK;cs`wLdevoid y;K@9dy sn hasr2eca?Henry VIU421-1471L1jULE stre=0wide[heOaTa @Qes Leo ;Da Vinci52`-1519:TSHee!Sw PG leanspOrHek up`,`nd: O!+Bq_a gJR0h0,5m touP9pek< W Giam Shakespp1564-1616H YO0 @invisBi,spir1df]0Ln nu%t BnAI3S1b`[lusDPO@Tvil!@  }{1|]J-acEe\ f'qmCind John @Milton6d0874:[T$ruYofA(suffers mo-8hGdits]bf@nom`&rgu`Moppo`%(Pen 40718 z\Politic5like relig,z%tor58tyrp1.re @om erro!?ThomP2Jer743-182#*\a6 \iRsa cir`6KpP\0oHdeb s cPredib1 eNbshbl @Fou/op2n Wolfgang 2v@6Go %74r9 32h^!Vk mop&$raia0GcovlCaPT phua|102v:`L cpGga @Mg1 r j WhiHG1"#8Z7`pn0 dinъe. X6R/FitzgerJaЄK0&ed0:1917-196騏gvTg soS2-- and often nothing so strange." Author$ = "Daniel Webster, 1782-1852L Case 21 Text_`In compos, as a general rule, n your pthrough every er word! have writ;no idea what vigor it will gi1\styl Sydney Smithd71d45dcElse ESel`ect ubPrivate Sub DoTheInsert() Dim Length ( FVL 1 ToaRem w N w WBasic.> Mid/8, Lk2L 2 " vF4KTSYear &B@N Msg &B@XOKButton &B@PNKTSYear F &B@XOKButton &B@PMsgYear above retrieved from file. &B@XSYear &B@NSnOKButtonKTSYear &%n' l lA@D CanButtonCreate &B@X CanButton &B@NMsgYear l  saved in file. &B@X CanButtonKT'ZSnSniAttribute VB_Name = "LondYear" Public Sub Main() Dim YY WordBasic.BeginDialog 344, 1on[New/File]:  Funct@ions",.DTestr YGroupBox 10, 6, 20]019KSeason S tarts=OpgC "Y ! c!Butt$39+2481"SLet[VY1 4T49 G 2 pTextp325, 78pSp WKU6758:2O  Cancel127}1 N' v115BACMsg G2EndÀ As Object: Q CurValues.UserYY H(Y Sel Case-1J .~ 0H$Yr "1700>BDP@;i@sYr$Elseσ?@9% I Bubr8ivaB"(Y$6DocumentVa*tr$_Y@!PE C*ACV[h $](C A e )f v(Id$@, Act,p@b?Rem &@ +tr$()eSuA@.)7)2GGDlg S"WfClose9jF (s 6 Sbn` hBm  4qVisible "hDO $Aj adė, A\K2c &,"}YE@q(c 8aa fa$+SDe5&?a ,d`"A4 above reeved from f."&'AB| BJg Y${ddz!:`V獁o5reJH  dext " "@ + " sain G@*OYTNLondSwap JaLondSetV_/LondonLondAbbr  j!d(f WordBasic.EditCut' WordBasic.EditPaste SetColWidth (RightCell$) WordBasic.CharLeft 1, 0 WordBasic.EditPasteVK2KT  jB@ jB@h jB@j?$` b j!\B@^$` j!d(fSPnHo@]XColIn = WordBasic.SelInfo(16)%If ColIn <> 1 Then WordBasic.PrevCell  jB@]pF &!:%.l l &!<B@ l!'    &%h'   jB@WordBasic.NextCell &!:%.l l &!<B@ l!'    &%h' o$ MsgBox leftCell$ + " " + Rightcell$ "$  &B@WordBasic.PrevCell  jB@ "$  &B@ &B@ &B@Do ~"$  &B@oHAttribute VB_Name = "LondSwap" Dim LeftCell$, Righ, Public Sub Main(fping$)l Rows_ColIn qiX ' This Vs the 2 row cs con tentsWordBasic.ScreenUpdat (0T%elInfpo(15M8If  -1He] &MsgBoxon: Not in a stage t@able (\s ).tExit Else1 <> "V"@ And (<> 1 Or S43)8CcC S&InC6CE%If]Get @WidthsU'F{+ "@+ʑSelection.Key Unit:=wdA \%'PG2G hNexA- Case«"W", |"1hd8EC@0JTAx umNEditCut  :HomeN:`APasteS]@fCQA-0H!s.B&U@!b:=Inche@sToPoi`v(0.2)`ulerStyle:= awdAdjustNon Ab.SpaceBetw`}#.s Vm "' )'d",Char\ 1, `C(8+N{L2L-?_;!)M#Inserr@/@ 44! 44sb!a t Priva`!Ɏ~( >$'JHPre>v&)wcw As ObjT: H =h DialogRec.b@Ee(Fa @VCurVaplues c\w.h k [&$"]'Len) X- 1 )dJ'7ggVO.OO OBڂ]'e,pkn('':a( R  xxME(<< <<`X "p``@@@l N`l p}O D`H@ Yl \DFF`$@$ Z`@P ***Y\pn I^ I` k .NPlh<!0p>%ppXFhxh @X @H @8 @( @ @ @ @ @ @ @ @ ( @ @t d ` pPHH`l p(X @H P`D`pD @4 @$ @ @ ( @  XXpxt @d @T @D @4 ($ pXx @h @X @H (@m:}T "H40:X",@,@$: &:((:P&@x  01    ((0@HPX ` "h)p B3 B  (  "("@(X(x((((( "0 (H (` . ( 6( " 30 H"(X"8:   ]@X London[New/File]: Year FunctionsLondYear.DTest &B@( eYear Season Starts &B@*YOpt &B@.~c'YSet YearY1 &B@0(1ZGet YearY2 &B@0HFSYear &B@,tion@OXOKButton &B@ wX CanButton &B@4OMsg &B@d &B@8ark .N]XF &!<!>.l.D l &!@%>'@ @KTLH l!BKT1700A@DKT F &B@2SnSnopLondYr$ l &B@ohLondYr$ &%r' Fi8]# MsgBox Id$ + Str$(Act) + Str$(Sup)'Z ^KT CanButtonClose &B@X CanButton &B@NSYear1700 &B@XOKButtonSet &B@XEOKButton &B@PMsg &B@XYOpt &B@fKT \Y1KY2KTYOpt &%femj 4nlE :nъ$ R-PChr(34PH)(Ool:=YN2$N! Gk(W'  W$) )) ReDim$135(Select Case h "I& 0)t(Pick from List) &1&Actors 2resse3DanceZr :4 5Manag6 7usiciaZn:89Other EmpPloyej1Proprie 2.131Sizn71MNC`omment17CN@$}OM'}dvertise1T"1Contemporary T 1Docu4First EditiouRe=T@>ImDL -- Dru+Lane The0atreI =LIF Lincoln's Inn Fields C>K@| $ , HaymarkæC#Quee Ec&ACA@Lrl@/ura#& c&AVTcchor @and Viaa>,jB+SBarber@Surgeohall$cmBCAbirdge `AlleynBtDRd kb % 0RoomoBELHellsize Hous4 pB4@tholomew FaifqB oma' 8BH"&BuPll T$16B-Hock-Leigh BooLth*4BO*oXw SM @14BPlue Post Lod4(e 8dige4.(3fflp2U"uck1ham/-v2C=C <Academj=2lCBSChelsevaS@BgKldBCouch uB2c3dCD")ClhSU[o*S24C"CharterhG23eshunt-"CurtfordshiC6CB@ y a?22CL1 ftMV)2SA -4.C1Clp&woDrs'`EK93LK3Ckenw@4 3T@C$er Pity o3DOoachma4SEEExcheqbuEat@=4EGBEps,Gr@qY4EHâ/Hudsa 0b4ENWaN-YW]4CFaplconv, Southw>FEMr Fearnly'K54sGBAGtolBlKsGBR0Sr\epn{l5GrGn5 s85#Glob.etMborougNHeaJdI 5cGO d(win 5cGOLD 0 smith?5P @ici5G4}d5G) y Tnd_*(5HNHampst W 6 5HlW  6HAYLitǑ?o=$(6cfat"/6hH&P1 ( ~xME< <$<<< <<<<<(<,<0<4<8<<< 00X% "`@p@@YJ @Ll @N\ @PL R`@BY 8Not YB@2@Pl `l hO T`@ V X`8@aY~ ҀX@Ҁ@H(00X00XH&h @X H @8 8( @$ X @ @ p p&RjTXH @8 @( @ @ @ @  @ @ X @  &jl @\ (L H @8 @4 ($ @ hpl @\ (L H @8 00X m:}d " ( 0 8 *@ "p((2"(;2"(`h(p  * 0( , 08P"X h x0  0    2J?@ X x & "   0  8 H2JX?  " $ , 0("7@-h D 0 5- D @ "H (PDx 0D(( " B(HX]0X0]]]' ' $ This Swaps the 2 row cells contents &B@. &%'L6  &%'Ne = "E LBy$London: Not in a stage table (rows). &B@2| JV L Ne$London: Not in a stage table (cols). &B@2NN|d &%'POhOkp  A@RE#MsgBox LeftCell$ + " " + RightCell$EN  jB@FtN &%'PG$G%If ColIn <> 2 Then WordBasic.NextCell JWK1KTA@TCKKT &B@V &B@  jB@ &B@ A@X  jB@ &B@V jB@ jB@Z?$` b j!\B@^$`H1PJe6cHCCmVpP:ߙ6HSEHXilll}6HEH0CF$6cHB"Hadas_Z(6I o{46AHolNt DorB12SWe}H3KW3hiteYM2CWin ` stanlrWa0d \{3WIctiPdm 3SsoRQ[Wb$WestmiLnsO/13SY b!YoMBuildpSK!3qG;s0Caslse Selectub rxMEx "88HXhm:} " ( HX London.dot &B@v London.dot &B@xo0(qAttribute VB_Name = "London" Public Sub Main()PWordBasic.AddInf.dot" , 1 FIn8StaJ E #|xME "@Yp`r 8m:} "   0Ph0Hh   "(Ph  &2204h ,0$ *H$x$" ( 8&X$"&&$ *H,x 4"(&H(p 2&"$@"h"* 0 8 0X , & ( $ .0  `  ( " 4 ( (H p  $  & 2 .X . " " ( *0 &`   "  " 8 X,x( "8*X*$&(,Hx(&&0$@"h:6"( Pp$$.$"8"`2$**2H&&& ,8$h0"&B&X$"(" 0@$p &"(8@HX r pIKT(Pick from List) + rActors+ r Actresses+ rDancer+ r[Dancers+ rManager+ rManagers+ rMusician+ r  Musicians+ rOther Employees + r Proprietor + r Proprietors + r Singer + r Singers + rComment+ r+ rOKT0(Pick from List) + r Advertisement+ rComment+ rContemporary Comment+ rDocument+ r First Edition+ rReport+ rTKT(Pick from List)+ rDL -- Drury Lane Theatre+ r#LIF -- Lincoln's Inn Fields Theatre+ r#King's -- King's Theatre, Haymarket+ r%Queen's -- Queen's Theatre, Haymarket+ rAC -- Angel Court+ rAVT -- Anchor and Vine Tavern+ r"B+S -- Barber's and Surgeon's hall+ rBCA -- Bird Cage Alley+ rBDR -- Barker's Dancing Room + rBELH -- Bellsize House + rBF -- Bartholomew Fair + rBH -- Boman's House + rBHT -- Bull Tavern + rB-L -- Bullock-Leigh Booth+ rBOS -- Bow Street+ rBPT -- Blue Posts Tavern+ rBR -- Beverdige's Room+ rBT -- Buffler Tavern+ rBUH -- Buckingham House+ rCA -- Caverley's Academy+ rCC -- Chelsea College+ rCDR -- Couch's Dancing Room+ rCDS -- Clark's Dancing School+ rCH -- Charterhouse+ r%CH H -- Cheshunt-House, Hartfordshire+ rCL -- Chancery Lane+ rCLA -- Clafton+ rCLAR -- Clare's Academy.+ rCLH -- Clothworkers' Hall+ rCLK -- Clerkenwell+ r$CLK CS -- Clerkenwell Charity School+ rCOH -- Coachmakers' Hall + rCORH -- Corner House!+ rCR -- Crown and Anchor"+ rCRT -- Crown Tavern#+ rCT -- Castle Tavern$+ rDG -- Dorset Garden Theatre%+ rDR -- Dancing Room&+ r"DS -- Dancing School, Queen Street'+ rDT -- Dog Tavern(+ r!EBH -- Earl of Burlington's House)+ rEEH -- Exchequer Eating House*+ rEGR -- Epsom Great Room++ rEHL -- Epsom Hudson's Lane,+ rENW -- Epsom New Wells-+ rFalcon -- Falcon Inn, Southwark.+ rFE -- Mr Fearnly's/+ rGB -- Golden Balls0+ rGBS -- Great Booth Stepney1+ rGH -- Girdlers Hall2+ r%Globe -- Globe and Marlborough's Head3+ r GO -- Godwins4+ rGOLD H -- Goldsmiths Hall5+ rGR -- Greenwich6+ rGRT -- Great Room7+ rGT -- Greyhound Tavern8+ rHA -- Hampstead9+ rHA W -- Hampstead Wells:+ r#HW GR -- Hampstead Wells Great Room;+ rHAY -- Little Haymarket Theatre<+ rHAY GR -- Great Room, Haymarket=+ rH&P -- Hand and Pen>+ rHC -- Hampton Court?+ rHDR -- Hill's Dancing Room@+ rHDS -- Home's Dancing SchoolA+ rHH -- Haberdashers' HallB+ rHIC -- Hickford'sC+ rHR -- Holt's RoomD+ rHorn -- Horn TavernE+ rHOUN -- HounslowF+ rHT -- Horshoe TavernG+ rIH -- India HouseH+ rIT -- Inner TempleI+ rJSH -- James Street, HaymarketJ+ rKAT -- King's Arms TavernK+ rLR -- Long RoomL+ rLS -- Loe's SchoolM+ rLW -- Lambeth WellsN+ rMA -- Mr Mayor'sO+ rMBS -- Mrs Bellamy's SchoolP+ rMDS -- Mrs Defenne's SchoolQ+ rMEG -- Mile End GreenR+ rMF -- May FairS+ rMH -- Harlborough HouseT+ rMO -- MoorfieldsU+ rMTH -- Merchant Taylor's HallV+ rNH -- North HallW+ rNWE -- New Wells at EpsomX+ rOS -- Orlibeer's SchoolY+ rOSG -- Old Spring GardenZ+ r"PC GR -- Great Room, Peter's Court[+ rPH -- Pewterers' Hall\+ rPR -- Powlet's Room]+ rPT -- Pye Tavern^+ r,Pun SML -- Punch's Theatre, St Martin's Lane_+ r(Pun CG -- Punch's Theatre, Covent Garden`+ rPW -- Pancras Wellsa+ rPY -- Palace Yardb+ rRI -- Richmondc+ rRI W -- Richmond Wellsd+ rRomer -- Romer Taverne+ rRDS -- Roussau's Dancing Schoolf+ rSa H -- Sadler's Hallg+ rSF -- Southwark Fairh+ rSG -- Spring Gardeni+ r#SGR -- Symond's Great Room, Enfieldj+ rSH -- Stationer's Hallk+ rSHG -- Somerset House Gardenl+ rSt Alb -- St Albans' Streetm+ r#St F -- Sturbridge Fair (Cambridge)n+ rSJP -- St James's Palaceo+ rSML -- St Martin's Lanep+ rSOU -- Southwarkq+ rSPS -- St Paul's Schoolr+ rSS -- Seven Starss+ rST G -- Ship Tavern, Greenwicht+ rTC -- Tottenham Courtu+ r"TCJS -- Tennis Court, James Streetv+ rTEC -- Tennis Courtw+ rTGB -- Two Golden Ballsx+ r3TH SOU -- Town Hall, St. Margaret's Hill, Southwarky+ rTTT -- Three Tuns Tavernz+ rUM -- Upper Moorfields{+ rVH -- Vintner's Hall|+ rWCH -- Wax Chandler's Hall}+ rWey's -- Wey's Home~+ rWH -- Whitehead+ r!Win -- Winstanley's Water Theatre+ rWINH -- Windmill Hill+ rWindsor -- Windsor+ rWS -- Westminster School+ rYB -- York Buildings+ r York -- York+ r+ rSnoAttribute VB_Name = "LondSet" Public Sub Main(\_$, Array__$(nd] DKkPxME(<< << |``H@@Y~ `X`z%``@ppXx @h @X @H `m:} ")( B 08X h LondAbbr$ ~ &B@y#oP` LondAbbr$ &%' i Attribute VB_Name = "LondAbbr" Public Sub SetX($) WordBasic.8DocumentVar$", ` E ndFunc@tion GR$~(OYY(y$"4TMYxMELondIndent25Q0"LondIndent006AutoNewUnused\,J&__SRP_4[Tx " 88HXhm:} "   0 P Xh  l1 Macro* Macro recorded 09/30/98 by Thomas Minsker j!|?$`9qxophٰAttribute VB_Name = "LondIndent25" Sub Main() "' l1xME(6 << < "`88H%(phm:}$*\Rffff*8:3a9f6d81"  ( XB@"M,Lo`XZAttribute VB_Name = "AutoNewUnused" Sub Main()  LondCreateFile.4 End P rU~| krU $`nlsC9__SRP_5SO]gLondSwapCon1_ June00]NN __SRP_29VxMEP<<<<< <<< "`@PxP@tPpx@` X%Xx\jHX @H 2@8 @( 2@ p( @ @ @ \H@ @ @ @ 8m:}"  ( 8 H X "(h 0DsDs<k80x ]@]X]p]0.7' \oh`FAttribute VB_Name = "LondSwapCon1" Public Sub Main() Dim Narro wCol$GutterWid"eRemvdepr xp0.7gD2#L4.4Be`tweene.0dWordBasic.Call.MAIN", "V .Selection.HomeKey Unit:=wdRoBw(TabloumnMth B:=o+ Chr(34), SpaceYs:= `RulerStyle:="0TNext0:=1+E}Eq?"nlEnd L xMEP6 <<*LLL0%% `J@Hx0j@x@`x @t p8` x ic@( ct XA@ ,G@ _A (`@{2DP Q @ wE @  0@ lsE @| Hl @\ LzExL @< , @ xE @  @ rE8 @ h < @  @ ` `pkX@m:}$*\Rffff*193a968b7b*\R1*#82*\R1*#125*\R1*#129*\R1*#c1*\R1*#17b"  7 *0 $@ P ` px      {" $    @  jB@ j!lB@n j!l {9d\5p(d9r 9t99x9z9|9~9qH j!lB@o0(o j! 999q8@Attribute VB_Name = "June00" Sub FindNextLeftBracket() ` ' Selection.MoveRight Unit:@=wdChajter, Coun &1th.ClearFormatting)WitstdoleP f%\_VBA_PROJECTB]dirI__SRP_0"t__SRP_1^<O      !"#$%&'()*+,-./0123456789:;=>?@ABCDEFGHIJKLMNOPQRSTUWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~ondSpecEmDashLondonSetFonts573a9f6d40 LondonSetFontsuLondNotNewPara583a9f6d40>LondNotNewParaLondNewspapers593a9f6d40JLondNewspapers(1LondCreateFile5:3a9f6d40XLondCreateFile@ LondAttachStys5;3a9f6d40LondAttachStysXLondSwapWidth5<3a9f6d40LondSwapWidthp  LondSwapCells5=3a9f6d40LondSwapCells  LondSpecNonSp5>3a9f6d40LondSpecNonSp LondPlayTable5?3a9f6d40LondPlayTable LondPageSetup933a9f6dcfLondPageSetup )LondonNothing603a9f6d40"LondonNothing%LondIntroMenu613a9f6d40$LondIntroMenu LondBookmarks623a9f6d40LLondBookmarks LondSpecEnSp633a9f6d40vLondSpecEnSp0LondSpecEmSp643a9f6d40xLondSpecEmSpHLondPlayMenu653a9f6d40zLondPlayMenu`YLondIndexGen663a9f6d40LondIndexGenx LondNextPlay863a9f6d40LondNextPlay9%8LondPrevPlay873a9f6d40LondPrevPlay97LondShortCuts883a9f6d40LondShortCuts= ->2LondFixItalicPlaysInIndex893a9f6d402LondFixItalicPlaysInIndexL i =LondColSmall673a9f6d40LondColSmall LondColOther683a9f6d40LondColOther}LondWarning693a9f6d40LondWarning mLondSpecUae6:3a9f6d40LondSpecUae8LondSpecLoe6;3a9f6d40 LondSpecLoePLondSpecLae6<3a9f6d40 LondSpecLaehLondPhrases6=3a9f6d40LondPhrasesMLondonFuncs6>3a9f6d40LondonFuncseLondIndexer6?3a9f6d40(am  *\G{000204EF-0000-0000-C000-000000000046}#4.0#9#C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLL#Visual Basic For Applications*\G{00020905-0000-0000-C000-000000000046}#8.1#0#c:\MSOffice\Office\MSWORD9.OLB#Microsoft Word 9.0 Object Library*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB#OLE Automation*\G{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0#C:\WINDOWS\SYSTEM\FM20.DLL#Microsoft Forms 2.0 Object Library*\G{E92C3FA3-FD83-11D2-8191-00500487CA96}#2.0#0#c:\windows\TEMP\VBE\MSForms.exd#Microsoft Forms 2.0 Object Library.E .`M *\G{2DF8D04C-5BFA-101B-BDE5-00AA0044DE52}#2.1#0#C:\OFFICE97\OFFICE\MSO97.DLL#Microsoft Office 8.0 Object LibraryK  m:}EFCDG@?BA<;(&':HKThisDocument5;391d15b7ThisDocument$LondIntroPersonnel433a9f6d40$LondIntroPersonnel"LondSpecLcCedilla443a9f6d40"LondSpecLcCedilla0"LondSeasonHeaders453a9f6d40"LondSeasonHeadersH LondSpecSterling463a9f6d40 LondSpecSterling` LondSpecLuUmlaut473a9f6d40 LondSpecLuUmlautxI LondSpecLuCircum483a9f6d40 LondSpecLuCircum LondSpecLiCircum493a9f6d40 LondSpecLiCircum LondSpecLeCircum4:3a9f6d40 LondSpecLeCircum LondSpecElipsesP4;3a9f6d40 LondSpecElipsesPLondSpecUeAcute4<3a9f6d40LondSpecUeAcuteLondSpecLoGrave4=3a9f6d40LondSpecLoGraveLondSpecLeGrave4>3a9f6d40LondSpecLeGrave LondSpecLeAcute4?3a9f6d40LondSpecLeAcute8LondSpecLaAcute503a9f6d40LondSpecLaAcutePLondSpecialSyms513a9f6d40LondSpecialSymshLondSpecElipses523a9f6d40LondSpecElipsesLondSpecDDaggar533a9f6d40LondSpecDDaggar JLondPhrasesSwap543a9f6d40LondPhrasesSwap)(LondSpecEnDash553a9f6d40LondSpecEnDashLondSpecEmDash563a9f6d40LLondIndexer1LondHeaders703a9f6d40`LondHeaders LondDocVars713a9f6d40bLondDocVars LondColPlay723a9f6d40|LondColPlay!"LondColDate733a9f6d40LondColDateT!LondColCast743a9f6d40LondColCast($LondAllCaps753a9f6d40LondAllCaps@5#LondonLeft763a9f6d40LondonLeftXu*LondIndexW773a9f6d40LondIndexWp%LondTbars783a9f6d40LondTbars ,LondMonth793a9f6d40LondMonth$+LondIndex7:3a9f6d40"LondIndex.DateField7;3a9f6d40&DateFieldI-SomeText7<3a9f6d40(SomeTextz 0LondYear7=3a9f6d40>LondYearx/LondSwap7>3a9f6d40HLondSwap~2LondSet7?3a9f6d40nLondSet|0#1 London803a9f6d40t LondonrH6LondAbbr813a9f6d40zLondAbbrP`q5LondIndent25823a9f6d40LondIndent25x4LondIndent00833a9f6d40LondIndent003AutoNewUnused8:3a9f6d81AutoNewUnused%>LondSwapCon1853a9f6d40LondSwapCon19I9 June00193a968b7b June00 GotoMacros9;3a96788eGotoMacrosk^ @ `H0pX@(hP8  x`H0pX@(hP8 x6qPʖ8qPʖ:qPʖ<qPʖ>qPʖ@qPʖBqPʖDqPʖFqPʖHqPʖJqPʖLqPʖNqPʖPqPʖRqPʖTqPʖVqPʖXqPʖZqPʖ\qPʖ^qPʖ`qPʖbqPʖdqPʖfqPʖhqPʖjqPʖlqPʖnqPʖpqPʖrqPʖtqPʖvqPʖxqPʖzqPʖ|qPʖ~qPʖqPʖXnTGPʖmNPʖ(PʖPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖqPʖ0qPʖHqPʖ`qPʖxqPʖqPʖqPʖqPʖqPʖqPʖqPʖ  BQFWordkVBAWin16~Win32MacVBA6#TemplateProjectEstdole`MSFormsCOfficeu ThisDocument< _EvaluateLondIntroPersonnel@ ItalicList__h Theaters__MTheaQ__ChListing Main,CC\ WordBasic BeginDialogFGroupBoxTTextBoxQ OptionGroupN OptionButton PushButtona CancelButtonListBox EndDialogmPCZ CurValuesȤ UserDialogDialogfDoItalic!TkItalic!Insertr DoPhrases5WhichDlgFocusk DlgVisibleUDlgListBoxArrayM DoCompanyIX]DlgTexthtDTestId]ActrSupPtr IndexTermzDlgValueLeft$7ValRight$y1DlgText$_ DlgEnableMarkIndexEntryo?EntryRange BoldLastWordmLW'^WmLeavetLondSpecLcCedilla) InsertSymbolFontUCharNum LondSeasonHeadersSeasonʘ SeasonMonthXThisYearNextYearHTypeD, SeasonNextlLTrim$'qStr HeaderTypex ViewHeaderܪ DoTheHeadereShowNextHeaderFooterCloseViewHeaderFooteruMYK^SelInfo&ToggleHeaderFooterLinkW EditSelectAllVEditCutStylepInsertPageField9 ResetCharChrK~AllCapss_ WW7_EditGoTod Destinationл StyleName$j SelectCurWord Selection$ WordRightCancel CharRightP StartOfLineMLondSpecSterlingʮLondSpecLuUmlautiYLondSpecLuCircum&LondSpecLiCircum{8LondSpecLeCircumx9LondSpecElipsesPPLondSpecUeAcutemLondSpecLoGraveLondSpecLeGraveLondSpecLeAcute7LondSpecLaAcuteLondSpecialSyms3List__X/UUs_OKButton|UlLondSpecElipses'LondSpecDDaggarLondPhrasesSwapV AllCapList__pSmallCapList__ NormList__ DisplayingX SwitchList__IPP^ DropListBox0P SetAllCaps SetSmallCaps SetItalics{ SetNormal  SetSwitchsgPg DoAllCaps     W !*#$%&'()+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVXY[\]^_acdfklmnopqrk DoSmallCaps U SmallCaps~cLCase:SPtrM  SetDisplay߳PrintStatusBar= InsertPara,LondSpecEnDashwLondSpecEmDash.LondonSetFonts SetAllStylesTheFontf7CurStyle>NumStyStYFdsflScreenUpdating!  CountStyles^MsgBoxR FormatStyleL AddToTemplate#DefineK DialogRecordFormatDefineStyleFontLondNotNewPara>1LeftCharb RightChar\CharLeftNLefttNRightq|LondNewspapersPapers__ SetPapersFNewsIcTPI_DefPaperAPapLondCreateFileFileNew!Template NewTemplate InsertBreakѺ EditBookmarkfSortByoAddr SetHeaders SelectionZFindnClearFormatting) ReplacementForwardWrapWywdFindContinueBP MatchCaseMatchWholeWordXMatchWildcardsMatchSoundsLike0MatchAllWordFormsExecuteYMoveLeftvUnit wdCharacterCount0vMoveDown̝wdLine LondPlayTable G LondColDateDoIt`MessageDeletexLondAttachStysiP FileTemplatesuyStoreQ LinkStyles-m LondSwapWidth LondSwapCellso LondSpecNonSpu NarrowCol0 GutterColWideCol6 Remainder^ BetweenCola WhereAreWey}TableInsertTable| ConvertFromT NumColumns}NumRowsInitialColWidthOApply,TableRowHeight"X AllowRowSplit{ActiveDocument\Styles pNextCellTableColumnWidth} ColumnWidthSpaceBetweenCols" RulerStylea NextColumnAHomeKeywdRowFEndKey5 MoveRightwdItem3| wdParagraphH TypeParagraph  LondPageSetup9POptDoSetupI CurrentSetupfWW_ FilePageSetupAreaB PaperSize TopMargini BottomMarginu LeftMargin] RightMargin[GutterV PageWidth! PageHeight  Orientationw FirstPage OtherPages| VertAlignĽ ApplyPropsToH> FacingPagesOHeaderDistanceSFooterDistancek SectionStarthOddAndEvenPageshPDifferentFirstPageoEndnotes~LineNumֶ StartingNumFromTextKvCountByNumMode LondonNothingu LondIntroMenu Desc__II]SetDescI`OptS DoSeason&InsertFootnoteie ReferenceeNoteType DoHeading.DoPlay7e DoDropCapExtendSelectionGetSelStartPos  GetSelEndPos& FormatDropCapPosition DropHeightL DistFromTextE LondBookmarks/ BookList__ BookName__rF VaryingList__AddingBooksBookNSortIspXoSelectedYWindow6GetMarksZdlg-mylistxAddNameTheEnd0BM\CountBookmarks#I BookmarkName$< SortArrayPSURCZ LondSpecEnSp0 LondSpecEmSpR+ LondPlayMenuLoopingj3Loop_wDone  LondIndexGenKxx_CheckBoxi{IxGenGenIndexHIxPlayTypeIxfBookIxName]3Answer,ExistingBookmarkLeave1L EndOfDocument InsertFieldField3 LondConvert3Self PausePlay)DateO1ConMode9 GetNextTag\>Demark( CreateTblCleanUpCPause} ExtendModejEditFind Direction& WholeWorde PatternMatch SoundsLike1FindAllWordForms}( EditFindFoundParaBStSStEParaABS\BE\ Underline DoFootnote& EditPaste ClosePaneFillCellWSjE\EditCopy. DelBookMarkn LondConvert2StartOfDocument EditReplaceReplacef ReplaceAll) LondConvert1 LondConvert0ff9] InsertFileXFirstFixDoSaveAsf FileSaveAs LondColSmallSS'_SmallGDoSmalluOtherI LondColOther LondWarning } LondSpecUaep LondSpecLoeB LondSpecLae@ LondPhrasesX LondonFuncsu ParaIfNeededAInATable^{ AtEndOfCell CellIsEmptyoQ PrevCharPara!NoParaAtCellEnd GetToEndOfCell EditClearCurCol_bQNextCol3PrevCol 6 LondIndexerI1]I2]I3]Opt1u Opt2v Opt3w Index_AXO1q^O2r^O3s^SetOptsAAClearAll  DoIndexTermOfHigh1aHigh2aHigh3aISwitch ShowAllWasAWIXShowAllIDoHighsqBVal$IvalModevLLeaveݮ LondHeadersf LondDocVars DocVars__DVsVmDVar_yYlCountDocumentVarsZ$GetDocumentVarName$rGetDocumentVar$(SetVarR InputBox$DErroNumber- LondColPlay'TOthers__~PlayI $AndI*-AuthIEAbbI OtherOptsBPStyCStyIn_LOO^OOptDoOtherUStyWeekDRD[ WeekDays__  TheaButs__`_ OtherList__RLeftCellT RightCell\NSetDaysrSetThea SetOthersMDateI1TheaIgSetLast SetDocumentVarGetLastGetNextSNeNextDayLastD%NextD5 LondColCast* CurrentShow ActiveWindow+ ActivePane_ViewIItalicizeAbbreviation IndexFieldsExtend?wdExtendd wdFindAsktRiLc LondAllCaps6NBeforeAll'tAfterXUCase5  LondonLeftR LondIndexW{R LondTbars2LondonToolbars__LondonToolbars_pttbtb;_CB0K}CurTbarslCB1L}CB2M}CB3N}CB4O}SetTbarsˬT_X_ ToolbarState ViewToolbars|Toolbar2Hide9zShow LondMonthZMonths__`ClearPgCut.SetMonj$WeekdaysDoMonthwMonthILoc`MdLocation-wdSectionBreakContinuousEGetMon! LondIndexqRTrim$k DateFieldGSomeTextGText_~AuthorNQuotes GenQuotationF\ DoTheInsert AllQuotes7MethodRandom_oRndRLengthYLondYear=YYs_YOptݥSetYrGetYrLondSwap SwappingRows_Cols_FColInPE GetColWidths SwapColWidthsTableSelectColumn  SetColWidthPasteCellsSetWidthHInchesToPointsI wdAdjustNone~RowsUSpaceBetweenColumns SelectColumnR InsertColumnscw\LondSetSet_Array__8%LondonfAddAddIn AddInStateLondAbbrgSetAbbrg$AbbrGetAbbr6GetDocumentVar LondIndent25ParagraphFormatFirstLineIndent_ LondIndent00R AutoNewUnused LondSwapCon1& LondNextPlayHWhatC wdGoToTable  wdGoToNextw LondPrevPlaywdGoToPrevious LondShortCutsLondFixItalicPlaysInIndexnMyLoopD wdFindStop'fFound+ vbYesNoCancelq vbQuestionvbCancel'vbNo%Documentj _B_var_Str _B_var_Chr\;_B_str_BetweenColqItemz _B_var_LeftQ _B_var_Midp _B_var_WIX"Module1bJune00Macro2NFindNextLeftBracket/ GotoMacros NextMonthGoToMakeSectionContinue3 PageSetup LineNumbering)ActiveSwdOrientPortrait FirstPageTray[wdPrinterDefaultBinOtherPagesTraywdSectionContinuous4OddAndEvenPagesHeaderFooteriDifferentFirstPageHeaderFooterj9VerticalAlignmentʡwdAlignVerticalTop)SuppressEndnotes[f MirrorMargins*" TwoPagesOnOne> GutterPos?wdGutterPosLeftMhwdSectionNewPage4'gothereړFinalbMacro62(wdStory& Application*BrowserTargetFwdBrowseSection7WStartAgainsDoSectionPageSetup'l_B_var_DoSetup=_B_var_S01 )2 oB uC {DEFGH&'%(")$#&'( ) * +a3,c4- . /01#2% 3456}57I8J9M!:@J!Kw"Ly#U{$V7W%X?[Kc8\ 9a:hiYjk;l <m|6#='>)??@*IA+, - . /F@*\G{00020430-C 0046}#2.0#0#C:\WINDOWS\SYSTEM\STDOLE2.TLB# Automation#/MSForms>!SFEr ms3DD452EE1-E08F-101A-8-02608C4D0BB4DFM20.DLL#Micr@osoft 9 \ Ob Library/;C1s00}#0#j0 rAE92C3FA3-FD83-11D2-8191@5W87CA9FXc:\windows\WP\VBE\DO.exd`7.E .`M COfficDO@ficBz p,2DF8D04C -5BFAcB-BDE5,AA- 42cOFFI`CE97\,O 97c 8.0cK­ThisDocumentG Th@,sDcuQen@ 2E HB1B,!"B+BLondIntroPersonnelGV$@$n@I#rUP*r\o n`l42?`&ew! SpecLcCedillaG"LSp@cLAC d,lva2/%0-5ea,Head--ea+JH a/e.&-0@OmC ,h,SterlingG -L,SUl@,nvg,q2`o+xLuUmlaukqL`lUll@-uliesm*pzCirk* C`*r@X!kcwi ;jyi doe6i E2: e L0 L6굿 e e ?   ElipsesP? EQ5p`Ae0P5 )P * AuUeAcuteGeU`gU0KA*tҠ2_ _ _ oGrav_ P `oGPUav^ L_ e_ _ _ W e_ 4e_ o_ S _ _ _ X Z nd"??"_ U _ _ 6_ W a_ X a_ T _ S _ _ _ V ialSyms3iil0 yis`>i7_ _ ~_ V 4E_ H;>_ ˏ_ ?>_ V DDaggar_ UDag0r_ _ C_ R Phrap]Swap[ P r sGswpX 7[ a@_ )(\ YEnDashGaEpDƴashLondSpecEnD@ash2ondSpecE4FD|HJ1(, H!+  miGimi_ 55#ДOonSetFontsOStFtOOOu֔ONotNewParaO"NJtNPwPrOOQ )'''ewspaperOC&saerOG4D 'ew@ pO@3AA '1''CreateFileOC@$e@t@PFilOG 'Q '''AttachStyOAt@ah@tyOG 'Q 'w x"wapWidthGawB4W@'dN2\/ /'8Cell',C:l:s)Bo3G?a5N]@pm&pnB&E-M/94PlayTaVbai&P$a@LT`:b`eh&F+O/`5agem ul&Ag 9Cu@g&PE-aK)/ L4onᠩhing9Aéh``n@'F+O-/%m4IntroMenu+ItoM 'nu9& / 4 ? Bo@okmark9BA0:okmp&rp9& / 4 L6EnzS`&JCs6q12s? ?? טm? 5 mB: ? ? ? ? 2 a?%yU?%5 ; i? Y_%? 2 IndexGenG+d.xG.; ? ? ? 2 Next; яx`q7 ; ? %q9;Qrev? Pvz? P; ? ? < nhorXtCuazh0ArCpJC.AS2o t% -)=AFixItalic!sInS#2AxIP aqi@5EsPn2#(o0we2otPl@dcmi}bL 1ColSmall;*ClEX7* ? = 3r30 Other? lOh 00? e? ?< AutoNewUPnuse0H(At0)N wUuPzeH.2 \/% ȟ %>A7Con17!n1o? I*=9; 12JuneJ"e4}GotoMaclroG`M0Jc04oⓛ2sZ^}kyqYrU~}  LondPlayTable LondPageSetup LondonNothing LondIntroMenu LondBookmarks LondSpecEnSp LondSpecEmSp LondPlayMenu LondIndexGen LondConvert3 LondConvert2 LondConvert1 LondConvert0 LondColSmallSetDays LondColOther LondWarning LondSpecUae LondSpecLoe LondSpecLae LondPhrases LondonFuncs LondIndexer LondHeaders LondDocVars LondColPlay LondColDate LondColCast LondAllCaps LondonLeft LondIndexW LondTbars LondMonth LondIndex DateFieldSomeTextLondYearLondSwapLondSetLondonLondAbbr LondIndent25 LondIndent00 AutoNewUnused LondSwapCon1 LondNextPlay LondPrevPlay LondShortCutsLondFixItalicPlaysInIndexF@C:\PROGRAM FILES\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6.DLLVBA  Q ` Fc:\MSOffice\Office\MSWORD9.OLBWord  )p0FC:\WINDOWS\SYSTEM\STDOLE2.TLBstdole  .E .`M C:\WINDOWS\SYSTEM\FM20.DLLMSForms yy?,Pʖc:\windows\TEMP\VBE\MSForms.exd ayL-[DRC:\OFFICE97\OFFICE\MSO97.DLLOffice )Qk FqPʖ FqPʖ FDocument @Main SetHeaders  LONDON.DOT F FTemplateNewTemplateFileNew LondYear.MAINCall LondYear.GetYr$ TypeInsertBreakCharLeftInsertPara ,LondIntroMenu.DoSeason IntroName SortByAddEditBookmark F WhereAreWeSetLastGetLast <Season Intro starts here . . . Insert *LondPageSetup.DoSetup I LondMonth.SetMon September, "LondMonth.DoMonth September  Sep "LondMonth.ClearPgGoTo MonthsScreenUpdatingu F F ^mGetNextStyWeek SetOthersDTestSetThea 44  x4F K*m0GGJJIIrU~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~d 2!SPʖ  K Iy 9iAi 1Y!Iqa I((9a  1 Y  1Qq 1 Q q      1 Q q      ! A i  I  a )Iɯia IPa A! TemplateProject ThisDocumentLondIntroPersonnelLondSpecLcCedillaLondSeasonHeadersLondSpecSterlingLondSpecLuUmlautLondSpecLuCircumLondSpecLiCircumLondSpecLeCircumLondSpecElipsesPLondSpecUeAcuteLondSpecLoGraveLondSpecLeGraveLondSpecLeAcuteLondSpecLaAcuteLondSpecialSymsLondSpecElipsesLondSpecDDaggarLondPhrasesSwapLondSpecEnDashLondSpecEmDashLondonSetFontsLondNotNewParaLondNewspapersLondCreateFileLondAttachStys LondSwapWidth LondSwapCells LondSpecNonSp ' SetYrGetYr @London[New/File]: Year Functions LondYear.DTestBeginDialog $Year Season StartsGroupBox YOptOptionGroup Set Year Y1OptionButton Get Year Y2 SYearTextBox OKButtonOKButton CanButtonCancelButton MsgTextEndDialogCurValuesUserDialog DialogYOpt 1700 MsgBox CloseDlgTextDlgFocus SetDlgVisibleDlgValue Right$ >Year above retrieved from file. DlgText$ Create Year  saved in file. LondYr$ GetDocumentVar$SetDocumentVarSetDescDoSeason DoHeadingDoPlay DoDropCap Val LondonSeason Style Season of    WeCharRightVBE6.DLL 9(e ` CurrentSetupDoSetup 0 F 1 1.5 2 1.75 2.25 8.5 11 1.2 1.8TabPaperSizeTopMarginBottomMarginLeftMarginRightMargin GutterPageWidth DB3PageHeightOrientationFirstPageOtherPagesVertAlignApplyPropsToFacingPagesHeaderDistanceFooterDistanceSectionStartOddAndEvenPages $DifferentFirstPageEndnotesLineNumStartingNumFromTextCountByNumModeFilePageSetup C M 1.60 9(`  2Just to test Page Headers Temps Tempe ,LondSeasonHeaders.Main Delete DoTheHeader HeaderType   2000 LTrim$ Season ViewHeaderEditCut Tu (ShowNextHeaderFooter *CloseViewHeaderFooter s+DestinationWW7_EditGoTo s- StyleName$ LondonMonthSelectCurWord Selection$WordRight ,  CancelStartOfLineSelInfo ,ToggleHeaderFooterLinkEditSelectAll (LondSeasonIntroHEven (LondSeasonMonthHEvenInsertPageFieldResetCharAllCaps   ZapfDingbats 93FontCharNumInsertSymbol &LondSeasonIntroHOdd &LondSeasonMonthHOddClearPgDoMonthSetMonGetMon   Apply LondMon$ 4Just to test Page Headers.EndOfDocument Normal .Month starts here . . . ,LondSeasonHeaders.MAIN 0.7 0.2 4.4 0.0 3 Auto 167ConvertFromNumColumnsNumRowsInitialColWidth Format  TableInsertTableAllowRowSplitTableRowHeight- F T1NextCell T2ColumnWidth  SpaceBetweenColsRulerStyleNextColumn  TableColumnWidth LondonPlaySep F[DATE]: 7pt Italic Date/8pt Theater "LondColDate.DTest Date Column "(7pt Ital.) DATE: Date DateI (8pt) THEATER: Thea TheaI (8pt) OTHER: Other OtherI Show Me ShowMePushButton Day WeekDays NEXT Next Su DB1 Mo DB2 DB4 Th DB5 Fr DB6 Sa DB7 Theaters DL TB1 LIF TB2 King's TB3 Queen's TB4 TheaListDropListBox Other Things OtherList *LondSwap.GetColWidths DateI OtherI Auth PlayWeekNormal TheaI OtherOptsDoOther ( (Pick from List) Sunday Monday Tuesday Wednesday Thursday Friday Saturday 0DL -- Drury Lane Theatre FLIF -- Lincoln's Inn Fields Theatre Author: FKing's -- King's Theatre, Haymarket JQueen's -- Queen's Theatre, Haymarket "AC -- Angel Court :AVT -- Anchor and Vine Tavern DB+S -- Barber's and Surgeon's hall ,BCA -- Bird Cage Alley 8BDR -- Barker's Dancing Room AbbI ,BELH -- Bellsize House ,BF -- Bartholomew Fair &BH -- Boman's House $BHT -- Bull Tavern 4B-L -- Bullock-Leigh Booth "BOS -- Bow Street 0BPT -- Blue Posts Tavern ,BR -- Beverdige's Room (BT -- Buffler Tavern Abbrev: .BUH -- Buckingham House 0CA -- Caverley's Academy *CC -- Chelsea College 6CDR -- Couch's Dancing Room :CDS -- Clark's Dancing School $CH -- Charterhouse JCH H -- Cheshunt-House, Hartfordshire &CL -- Chancery Lane AndI CLA -- Clafton 0CLAR -- Clare's Academy. 2CLH -- Clothworkers' Hall $CLK -- Clerkenwell HCLK CS -- Clerkenwell Charity School 0COH -- Coachmakers' Hall (CORH -- Corner House ,CR -- Crown and Anchor &CRT -- Crown Tavern &CT -- Castle Tavern 6DG -- Dorset Garden Theatre $DR -- Dancing Room DDS -- Dancing School, Queen Street DT -- Dog Tavern BEBH -- Earl of Burlington's House :EEH -- Exchequer Eating House .EGR -- Epsom Great Room ... and: 4EHL -- Epsom Hudson's Lane ,ENW -- Epsom New Wells >Falcon -- Falcon Inn, Southwark $FE -- Mr Fearnly's $GB -- Golden Balls 4GBS -- Great Booth Stepney &GH -- Girdlers Hall JGlobe -- Globe and Marlborough's Head PlusPlay GO -- Godwins 2GOLD H -- Goldsmiths Hall GR -- Greenwich "GRT -- Great Room ,GT -- Greyhound Tavern HA -- Hampstead .HA W -- Hampstead Wells FHW GR -- Hampstead Wells Great Room >HAY -- Little Haymarket Theatre or +Play >HAY GR -- Great Room, Haymarket &H&P -- Hand and Pen &HC -- Hampton Court 4HDR -- Hill's Dancing Room 8HDS -- Home's Dancing School 0HH -- Haberdashers' Hall "HIC -- Hickford's "HR -- Holt's Room &Horn -- Horn Tavern Abb HOUN -- Hounslow (HT -- Horshoe Tavern "IH -- India House $IT -- Inner Temple <JSH -- James Street, Haymarket 2KAT -- King's Arms Tavern LR -- Long Room $LS -- Loe's School &LW -- Lambeth Wells MA -- Mr Mayor's 6MBS -- Mrs Bellamy's School 6MDS -- Mrs Defenne's School *MEG -- Mile End Green MF -- May Fair .MH -- Harlborough House MO -- Moorfields :MTH -- Merchant Taylor's Hall NH -- North Hall 2NWE -- New Wells at Epsom PlayI .OS -- Orlibeer's School 0OSG -- Old Spring Garden DPC GR -- Great Room, Peter's Court *PH -- Pewterers' Hall &PR -- Powlet's Room PT -- Pye Tavern XPun SML -- Punch's Theatre, St Martin's Lane &SG -- Spring GardenDlgEnable PPun CG -- Punch's Theatre, Covent Garden &PW -- Pancras Wells "PY -- Palace Yard RI -- Richmond ,RI W -- Richmond Wells *Romer -- Romer Tavern >RDS -- Roussau's Dancing School *Sa H -- Sadler's Hall (SF -- Southwark Fair FSGR -- Symond's Great Room, Enfield ,SH -- Stationer's Hall 8SHG -- Somerset House Garden 6St Alb -- St Albans' Street FSt F -- Sturbridge Fair (Cambridge) 0SJP -- St James's Palace .SML -- St Martin's Lane SOU -- Southwark .SPS -- St Paul's School "SS -- Seven Stars <ST G -- Ship Tavern, Greenwich *TC -- Tottenham Court DTCJS -- Tennis Court, James Street &TEC -- Tennis Court .TGB -- Two Golden Balls *WINH -- Windmill Hill $Windsor -- Windsor fTH SOU -- Town Hall, St. Margaret's Hill, Southwark 0TTT -- Three Tuns Tavern ,UM -- Upper Moorfields (VH -- Vintner's Hall 4WCH -- Wax Chandler's Hall &Wey's -- Wey's Home WH -- Whitehead BWin -- Winstanley's Water Theatre 0WS -- Westminster School (YB -- York Buildings York -- York ca. ca. early ca. late January February March April May June July August September October November December Wednesday 20 Clear  -- Left$ LondLastDate$ GetColWidths SwapColWidths SetColWidth  DialogRecord PlayNormal PlayWeekDate :[Play]: Initialize a new Play "LondColPlay.DTest Title/Author Play: Play And or [Author] BrackAuth AuthI Anonymous Anon PlayTitle PlayI + ,Default Paragraph FontAndI AuthI [ .  ( ). AbbI LondAbbr.SetAbbr LondIndexer.MAIN ! , performance gothere anonymous ].   (anonymous), 9(i h 9(x  The Jovial Crew, *or, The Merry Beggars Jovial Crew BromeSetAbbrGetAbbr LondAbbr$SetOpts DoIndexTermDoHighsClearAllLastWord ,,H ,<@ 6London[Lond/Index]: Indexer "LondIndexer.DTest Index Terms B B1CheckBox I1 B2 I2 B3 I3 Bold/Italic Text5 AbbrI Perform (1) Text1 (2) Text2 (3) Text3 Minsker, 1993 $Initial Term Value Text4 "Selected Text ... Selected Last , First ... LastFirst Clear All ClearAll $Goto MS Word Index GotoWord WhichIX General Index GenIX Plays Index PlayIXr F LondIndexW.Main \fp ShowAll XE  FieldInsertField EndX :Bold Italic 31 ZWarning: Use New Month if starting new month. 9(S X LondSwap.MAIN V HLondon: Not in a stage table (rows). HLondon: Not in a stage table (cols). W "TableSelectColumnEditPasteJ FL F AllQuotes GenQuotation DoTheInsert PrintStatusBarInt- Not being a true power typist, I have elected to generate text as if I were typing it.1 How come there is never enough time to do the job right, but always enough time to do it over? JA small rock holds back a great wave. Homer, 700 b.c.! |Until he is dead, do not yet call a man happy, but only lucky. SolonMakeSectionContinue* The scholar who cherishes the love of comfort is not fit to be deemed a scholar. .Confucius, 551-479 b.c.+ I will have nought to do with a man who can blow hot and cold with the same breath. Aesop, 550 b.c. 9(Q 1 Knowledge must come through action; you can have no test which is not fanciful, save by trial. .Sophocles, 495-405 b.c.0 Bad men live that they may eat and drink, whereas good men eat and drink that they may live. ,Socrates, 469-399 b.c.% I have hardly ever known a mathematician who was capable of reasoning. (Plato, 428- 348 b.c.: To enjoy the things we ought and to hate the things we ought has the greatest bearing on excellence of character. .Aristotle, 384-322 b.c.1 Kingdoms are but cares, state is devoid of stay; riches are ready snares, and hasten to decay. &Henry VI, 1421-1471 lLet the street be as wide as the height of the houses. : Leonardo Da Vinci, 1452-1519 .Sydney Smith, 1771-1845q F: See! how she leans her cheek upon her hand: O! that I were a glove upon that hand, that I might touch that cheek. <William Shakespeare, 1564-16160 O thou invisible spirit of wine! if thou hast no name to be known by, let us call thee devil! XThou canst not touch the freedom of my mind. ,John Milton, 1608-16741 Truth often suffers more by the heat of its defenders than from the arguments of its opposers. .William Penn, 1644-1718 JJohann Wolfgang von Goethe, 1749-1832, Politics, like religion, hold up the torches of martyrdom to the reformers of error. 6Thomas Jefferson, 1743-1826= Let us live in as small a circle as we will, we are either debtors or creditors before we have had time to look around.POptf I think this is the most extraordiary collection of talent, of human knowledge, that has ever be gathered together at the White House, with the possible exception of when Thomas Jefferson dined alone. DJohn Fitzgerald Kennedy, 1917-1963 Push1% There is nothing so powerful as truth -- and often nothing so strange. 2Daniel Webster, 1782-1852H In composing, as a general rule, run your pen through every other word you have written; you have no idea what vigor it will give your style. PlayWeekDateoModule1June00FindNextLeftBracket { GotoMacros NextMonthGoTo ^p Microsoft Word Page Setup for: POpt Front Matter OB0 6Season Introduction Section OB1 .Season Calendar Section OB2 $Show Current Setup 2Season Calendar 1st Month OB3 hereFinalDoSectionPageSetupp F. FT  (  A=London: Create a Season file with Intro and Calendar sections #TemplateProject.LondCreateFile.MAINDoItLondon: Create a New Play Table "TemplateProject.LondPlayTable.MAIN &London Input: Date column side of play  TemplateProject.LondColDate.MAINDCSIdActSupYLondon Seson Intro Options "TemplateProject.LondIntroMenu.MAINSeasonAreaLondon Monthly Calendar OptionsTemplateProject.LondMonth.MAINMBLocation +London Input: Normal Play side column Input  TemplateProject.LondColPlay.MAINPStyCStyIn_OSwappingLeftCell RightCellWLondon: Create Double Daggar $TemplateProject.LondSpecDDaggar.MAINAbbAO1O2O3IBValIvalModeLWGenerate some textTemplateProject.SomeText.MAINMethod $London: Swap the widths of the cells "TemplateProject.LondSwapWidth.MAINLondon: Swap Contents of Cells "TemplateProject.LondSwapCells.MAINKThisDocumentThisDocumentLondIntroPersonnelLondIntroPersonnelLondSpecLcCedillaLondSpePROJECTwmV PROJECT`jCompObjcjObjectPool%U%UcLcCedillaLondSeasonHeadersLondSeasonHeadersLondSpecSterlingLondSpecSterlingLondSpecLuUmlautLondSpecLuUmlautLondSpecLuCircumLondSpecLuCircumLondSpecLiCircumLondSpecLiCircumLondSpecLeCircumLondSpecLeCircumLondSpecElipsesPLondSpecElipsesPLondSpecUeAcuteLondSpecUeAcuteLondSpecLoGraveLondSpecLoGraveLondSpecLeGraveLondSpecLeGraveLondSpecLeAcuteLondSpecLeAcuteLondSpecLaAcuteLondSpecLaAcuteLondSpecialSymsLondSpecialSymsLondSpecElipsesLondSpecElipsesLondSpecDDaggarLondSpecDDaggarLondPhrasesSwapLondPhrasesSwapLondSpecEnDashLondSpecEnDashLondSpecEmDashLondSpecEmDashLondonSetFontsLondonSetFontsLondNotNewParaLondNotNewParaLondNewspapersLondNewspapersLondCreateFileLondCreateFileLondAttachStysLondAttachStysLondSwapWidthLondSwapWidthLondSwapCellsLondSwapCellsLondSpecNonSpLondSpecNonSpLondPlayTableLondPlayTableLondPageSetupLondPageSetupLondonNothingLondonNothingLondIntroMenuLondIntroMenuLondBookmarksLondBookmarksLondSpecEnSpLondSpecEnSpLondSpecEmSpLondSpecEmSpLondPlayMenuLondPlayMenuLondIndexGenLondIndexGenLondColSmallLondColSmallLondColOtherLondColOtherLondWarningLondWarningLondSpecUaeLondSpecUaeLondSpecLoeLondSpecLoeLondSpecLaeLondSpecLaeLondPhrasesLondPhrasesLondonFuncsLondonFuncsLondIndexerLondIndexerLondHeadersLondHeadersLondDocVarsLondDocVarsLondColPlayLondColPlayLondColDateLondColDateLondColCastLondColCastLondAllCapsLondAllCapsLondonLeftLondonLeftLondIndexWLondIndexWLondTbarsLondTbarsLondMonthLondMonthLondIndexLondIndexDateFieldDateFieldSomeTextSomeTextLondYearLondYearLondSwapLondSwapLondSetLondSetLondonLondonLondAbbrLondAbbrLondIndent25LondIndent25LondIndent00LondIndent00AutoNewUnusedAutoNewUnusedLondSwapCon1LondSwapCon1LondNextPlayLondNextPlayLondPrevPlayLondPrevPlayLondShortCutsLondShortCutsLondFixItalicPlaysInIndexLondFixItalicPlaysInIndexJune00June00GotoMacrosGotoMacros  FMicrosoft Word Document MSWordDocWord.Document.89qavavaaaaaaaavaavaaaaaaaaavavaaaaa %Uaaaaaa0baeaeaaaavavavava / =!"#$%G:Times New Roman5Symbol3& :ArialMCentury SchoolbookG MS Mincho-3 fg"0h0Newspapers=56, 56, 679, 371, C LondCreateFile=254, 49, 702, 364, C LondAttachStys=28, 28, 651, 343, C LondSwapWidth=256, 125, 671, 440, C LondSwapCells=66, 53, 689, 368, C LondSpecNonSp=0, 0, 0, 0, C LondPlayTable=333, 106, 808, 421, C LondPageSetup=94, 163, 717, 478, C LondonNothing=0, 0, 0, 0, C LondIntroMenu=58, 72, 681, 387, C LondBookmarks=0, 0, 0, 0, C LondSpecEnSp=0, 0, 0, 0, C LondSpecEmSp=0, 0, 0, 0, C LondPlayMenu=138, 44, 587, 359, C LondIndexGen=112, 112, 735, 427, C LondColSmall=0, 0, 623, 315, C LondColOther=82, 20, 705, 335, C LondWarning=0, 0, 0, 0, C LondSpecUae=0, 0, 0, 0, C LondSpecLoe=0, 0, 0, 0, C LondSpecLae=0, 0, 0, 0, C LondPhrases=0, 0, 0, 0, C LondonFuncs=0, 0, 0, 0, C LondIndexer=360, 19, 742, 334, C LondHeaders=0, 0, 0, 0, C LondDocVars=28, 28, 651, 343, C LondColPlay=140, -1, 660, 406, C LondColDate=22, 69, 499, 379, C LondColCast=259, 8, 725, 357, C LondAllCaps=0, 0, 0, 0, C LondonLeft=0, 0, 0, 0, C LondIndexW=0, 0, 0, 0, C LondTbars=300, -3, 728, 309, C LondMonth=253, 9, 753, 324, C LondIndex=28, 28, 651, 343, C DateField=0, 0, 0, 0, C SomeText=28, 28, 651, 343, C LondYear=248, 248, 681, 436, C LondSwap=326, 46, 694, 361, C LondSet=341, 137, 764, 326, C London=0, 0, 0, 0, C LondAbbr=119, 114, 742, 429, C LondIndent25=0, 0, 0, 0, C LondIndent00=0, 0, 0, 0, C AutoNewUnused=121, 166, 744, 481, C ID="{2187FC34-5317-11D4-8191-00500487CA96}" Document=ThisDocument/&H00000000 Module=LondIntroPersonnel Module=LondSpecLcCedilla Module=LondSeasonHeaders Module=LondSpecSterling Module=LondSpecLuUmlaut Module=LondSpecLuCircum Module=LondSpecLiCircum Module=LondSpecLeCircum Module=LondSpecElipsesP Module=LondSpecUeAcute Module=LondSpecLoGrave Module=LondSpecLeGrave Module=LondSpecLeAcute Module=LondSpecLaAcute Module=LondSpecialSyms Module=LondSpecElipses Module=LondSpecDDaggar Module=LondPhrasesSwap Module=LondSpecEnDash Module=LondSpecEmDash Module=LondonSetFonts Module=LondNotNewPara Module=LondNewspapers Module=LondCreateFile Module=LondAttachStys Module=LondSwapWidth Module=LondSwapCells Module=LondSpecNonSp Module=LondPlayTable Module=LondPageSetup Module=LondonNothing Module=LondIntroMenu Module=LondBookmarks Module=LondSpecEnSp Module=LondSpecEmSp Module=LondPlayMenu Module=LondIndexGen Module=LondColSmall Module=LondColOther Module=LondWarning Module=LondSpecUae Module=LondSpecLoe Module=LondSpecLae Module=LondPhrases Module=LondonFuncs Module=LondIndexer Module=LondHeaders Module=LondDocVars Module=LondColPlay Module=LondColDate Module=LondColCast Module=LondAllCaps Module=LondonLeft Module=LondIndexW Module=LondTbars Module=LondMonth Module=LondIndex Module=DateField Module=SomeText Module=LondYear Module=LondSwap Module=LondSet Module=London Module=LondAbbr Module=LondIndent25 Module=LondIndent00 Module=AutoNewUnused Module=LondSwapCon1 Module=LondNextPlay Module=LondPrevPlay Module=LondShortCuts Module=LondFixItalicPlaysInIndex Module=June00 Module=GotoMacros Name="TemplateProject" HelpContextID="0" VersionCompatible32="393222000" CMG="FFFD89A389A35DA75DA75DA75DA7" DPB="CFCDB99359B328B428B428" GC="A0A2D619D719D7E6" [Host Extender Info] &H00000001={3832D640-CF90-11CF-8E43-00A0C911005A};VBE;&H00000000 [Workspace] ThisDocument=0, 0, 0, 0, C LondIntroPersonnel=0, 0, 0, 0, C LondSpecLcCedilla=0, 0, 0, 0, C LondSeasonHeaders=254, 98, 877, 413, C LondSpecSterling=0, 0, 0, 0, C LondSpecLuUmlaut=0, 0, 0, 0, C LondSpecLuCircum=0, 0, 0, 0, C LondSpecLiCircum=0, 0, 0, 0, C LondSpecLeCircum=0, 0, 0, 0, C LondSpecElipsesP=0, 0, 0, 0, C LondSpecUeAcute=0, 0, 0, 0, C LondSpecLoGrave=0, 0, 0, 0, C LondSpecLeGrave=0, 0, 0, 0, C LondSpecLeAcute=0, 0, 0, 0, C LondSpecLaAcute=0, 0, 0, 0, C LondSpecialSyms=0, 0, 0, 0, C LondSpecElipses=0, 0, 0, 0, C LondSpecDDaggar=140, 26, 763, 341, C LondPhrasesSwap=0, 0, 0, 0, C LondSpecEnDash=0, 0, 0, 0, C LondSpecEmDash=0, 0, 0, 0, C LondonSetFonts=0, 0, 0, 0, C LondNotNewPara=140, 140, 763, 455, C LondNewspapers=56, 56, 679, 371, C LondCreateFile=254, 49, 702, 364, C LondAttachStys=28, 28, 651, 343, C LondSwapWidth=256, 125, 671, 440, C LondSwapCells=66, 53, 689, 368, C LondSpecNonSp=0, 0, 0, 0, C LondPlayTable=333, 106, 808, 421, C LondPageSetup=94, 163, 717, 478, C LondonNothing=0, 0, 0, 0, C LondIntroMenu=58, 72, 681, 387, C LondBookmarks=0, 0, 0, 0, C LondSpecEnSp=0, 0, 0, 0, C LondSpecEmSp=0, 0, 0, 0, C LondPlayMenu=138, 44, 587, 359, C LondIndexGen=112, 112, 735, 427, C LondColSmall=0, 0, 623, 315, C LondColOther=82, 20, 705, 335, C LondWarning=0, 0, 0, 0, C LondSpecUae=0, 0, 0, 0, C LondSpecLoe=0, 0, 0, 0, C LondSpecLae=0, 0, 0, 0, C LondPhrases=0, 0, 0, 0, C LondonFuncs=0, 0, 0, 0, C LondIndexer=360, 19, 742, 334, C LondHeaders=0, 0, 0, 0, C LondDocVars=28, 28, 651, 343, C LondColPlay=140, -1, 660, 406, C LondColDate=22, 69, 499, 379, C LondColCast=259, 8, 725, 357, C LondAllCaps=0, 0, 0, 0, C LondonLeft=0, 0, 0, 0, C LondIndexW=0, 0, 0, 0, C LondTbars=300, -3, 728, 309, C LondMonth=253, 9, 753, 324, C LondIndex=28, 28, 651, 343, C DateField=0, 0, 0, 0, C SomeText=28, 28, 651, 343, C LondYear=248, 248, 681, 436, C LondSwap=326, 46, 694, 361, C LondSet=341, 137, 764, 326, C London=0, 0, 0, 0, C LondAbbr=119, 114, 742, 429, C LondIndent25=0, 0, 0, 0, C LondIndent00=0, 0, 0, 0, C AutoNewUnused=121, 166, 744, 481, C LondSwapCon1=283, 37, 906, 352, C LondNextPlay=291, 159, 656, 377, C LondPrevPlay=-10, 109, 613, 424, C LondShortCuts=235, 121, 672, 437, C LondFixItalicPlaysInIndex=133, 9, 756, 324, C June00=26, 26, 435, 357, C GotoMacros=0, 0, 409, 331, C