WPC  
                 0   (                  	     #  a
       
   	         	                         !   `     	)         U        	%            /     "   {                                 #                                                                                                                                                                               < 
  9 p` (      X< 6X  9  ` +   C o u r i e r         "  ? x x x  X    Xx   A p p l e   L a s e r W r i t e r   I I f   '3   pet   	 ^-(4  APLW2F.PRS   hhhhhhhh PUBD/DOC1                                                                                                                                          H    lSJ    (                    $         A                                                                                                                                                                                                       .                                                                  B                                                                  v                                                                  v                                                                                                                                        N o d o c s                                                     $    O v e r v i e w D l g                                           n     	                                                             	      - I                                                               - E                                                         	      - B                                                         F	                                                                  b     
                                                             b                                                                    v      M e s s a g e                                                                 	,     
                                                                                                                               	,                                                                    6           M e s s a g e                                                   v                                                                               5      [      "^      b                  "             	a      a    %            %      a      a           /      :      @      s             $:      C      s            
      -                  
      -.      5      
;      -Q            @      	@-    AB      
AM     
A      
A     
A      
A     
A      
A*     
BK            @f      	@    @    @    A      
A    A(	    
w	      A	      
A	     
(
      A;
      
AF
    A
      
A
    A
      
A
    B      '      f      -l      )"      	@      	M            	        [                    /  :  @  s            ,  :  U  a  s              .  5  ;  Q      B        K  R    1  P  U  f    w	  	  (
  ;
  
  
    '  N  f  l  "  @  M  Y      HF  HD     e  
m #| x         " B D O ??=K ' 	            
 
    !    W       h    h %
    
  //*********************************************////     NAME:          WPCH_MGL.WPM   	 @   //        	 X   //     PURPOSE:          LETTERMERGE   	     //  //     AUTHOR:          BrentStanding,WordPerfectCorp.// //*********************************************  //RevisionHistory  %
    
  Use("wpchlibr.wpm")         h           //Sharedlibraryfile   	 
@   If(NOTExists(StndAlone))     ScreenSetup()EndifIf(NOT(?DocBlank))     Error(On!)     ONERROR(Nodocs)     Filenew     ONERROR()     Error(Off!)Else     ClearDoc()EndIfGlobal(ScrnMode;MsgAdj;DefTitle;CancelMsg;AreaHgt)Global(HotElement;SaveScrn;StndAlone;Formfile)DefTitle="Coach"     //Maintitlename   	    Title="Letter"ScrnMode=?ScreenHigh24CancelMsg=1MsgAdj=DlgMessage()ColorScheme()OnCancelCall(CancelCoach)StndAlone=1Formfile="letter"Call(OverviewDlg)If(Result=27)     Chain("wpchmg02.wpm")     Return        	  X#   EndifIf(Result=28)     Chain("wpchmg03.wpm")     ReturnEndifChain("wpchmg01.wpm")Return	   	 % *   //*********************************************////     SUBROUTINE:Nodocs   	 @   ////*********************************************Label(Nodocs)DlgCreate(novar;"Coach";DlgNoCancel!;;;39;9)DlgControl(ctrllabel!;;"Coachneedsatleastoneavailable";;2;2)DlgControl(ctrllabel!;;"documentwindowtorun.Exitone";;2;3)DlgControl(ctrllabel!;;"or %
     
  moreofyourdocuments,thenrun";;2;4)DlgControl(ctrllabel!;;"Coachagain.";;2;5)DlgEndQuitCoach()	   	 `	   //*********************************************////     SUBROUTINE:OverviewDlg   	 @   ////*********************************************Label(OverviewDlg)     Message(&tbox;800)     w=76h=25     DlgCreate(Result;DefTitle;DlgNoOK!+DlgNoCancel!+DlgExit!     ;;;w;h)     DlgControl(CtrlPushButton!;;"Quit...>  r [BoldOn]?
   
 Esc>   [BoldOff]?
   
 ";StyCancel!;w  񼼼 15;h2)        	 H
        FORNEXT(x;1;tbox[0])    x          ( //AddWelcomeMessage   	 `	             DlgControl(CtrlLabel!;;tbox[x];;2;x;w1;1)     Endfor     DlgControl(CtrlRadioButton!;mg01;"Createa~DataFile";;3;19)     DlgControl(CtrlRadioButton!;mg02;"Createa~FormFile";;3;21)     DlgControl(CtrlRadioButton!;mg03;"~RuntheMerge";;3;23)     DlgEnd     If(Result=1)          QuitCoach()     EndifReturn	   	 0   //*********************************************////     PROCEDURE:Message   	 @   ////*********************************************PROCEDUREMessage(&tbox;Msg)SWITCH(Msg)CaseOf800:tbox={     ">  r [BoldOn]?
   
 LetterMerge>   [BoldOff]?
   
 ";   	 
   "";"Youcanmergeaformfilewithadatafiletocreatemergedletters.";"Forexample,youcansendthesamelettertoanumberofpeople";"withouttypingtheoriginallettermorethanonce.";"
";   	 h   "	KimHo>";   	 0   "
23ElmCourt>";   	 H
   "	JeremyJaspers	Paris,ID87654>";   	    "	123MainStreet	>";   	    "	NewYork,NY10036	DearMs.Ho,>";   	 P   "		>";   	 h   "	DearMr.Jaspers,	Weareproudtoannouncethegrandopeni>";   	 0   "	\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\";   	    "	Weareproudtoannouncethegrandopeningofseveral	";   	 p   "\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\";">  r [BoldOn]?
   
 >   [Bold   	    Off]?
   
 ";"";"(namesandaddresses)";"";"(formletter %
     
  )";"";"";"";     }EndSwitchEndProc    