WPC  
                 0   (               @
  a               9   	         	                         !   `     	)      {   U        	%            /     "   {                                 #                                                                                                                                                                               < 
  9 p` (      X< 6X  9  ` +   C o u r i e r         "A  ? 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    (                    $         P  w                  $  /  5  `              '  9  U  m              
  5  c  v            +  m        D  c  l              C    	  	  	  +
  m
  
  
  
  
      I      &
  R
  Y
    6  ?  H  ]  x              Z        g              <  I  a            A                                                                                                                                                                                                    .                                                                 B                                                                                                                                                                                                   .                                                                 .                                                                 .                                                                                                                                                                                                                                                                                                                                     .    O v e r v i e w D l g                                           >                                                                 ,      - I                                                               - E                                                               - B                                                         j                                                                 

                                                                 

    N o d o c s                                                     
    F o r m f o r m a t                                             d                                                                 z      - I                                                         \      - E                                                         8      - B                                                                                                                                                                                                                                                                     M e s s a g e                                                                	                                                                 B                                                                 	                                                                 	                                                                 	                                                                               M e s s a g e                                                                                                                                  5      P      "S      W                  "             	a      a    %            %      a      a
           $      /      5      `             '      9      
m      -                        
      
5      -c      v            
      -                  
+      -m                  -      D                               @      	@    @    @    AC      
AO    A    
      A	      
A	     
	      A	      
A	    A+
      
A6
    Bm
      
      
      -
            @      	@4    AI      
AT     
A      
A     
A      
A     
A&
      
A1
     
BR
             ]       ]      x           @      	@    @    @    A      
A*    A    
      AZ      
Ae     
      A      
A    A      
A    Ag      
Ar    B                  -      )      	<      	I      	            	      >  HD     x  0 #| x         " B D O ??=K ' 	            
 
    !    W       h    h  //*********************************************////     NAME:                  WPCH_MG0.WPM   	 @   //        	 X   //     PURPOSE:     CoachonFormFile   	     //  //     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)Global(HotElement;SaveScrn;StndAlone;Formfile)DefTitle="Coach"     //Maintitlename   	    Title="Labels"ScrnMode=?ScreenHigh24CancelMsg=1ColorScheme()MsgAdj=DlgMessage()Call(OverviewDlg)If(Result=14)     StndAlone=1     Chain("wpchlb01.wpm")     ReturnEndifIf(Result=15)     StndAlone=1     Formfile="labels"     Call(Formformat)     If(Result=14)         `	 Chain("wpchmg01.wpm")         `	 Return     Endif     If(Result=15)         `	 Chain("wpchmg02.wpm")         `	 Return     Endif     If(Result=16)         `	 Chain("wpchmg03.wpm")         `	 Return     EndifEndifReturn	   	 .h)5   //*********************************************////     MAINPROGRAM:Coach   	 @   ////*********************************************Label(OverviewDlg)     Var[1]=0Var[2]=0     WindowMaximize     Cancel(Off!)     Message(&tbox;999)     w=65h=17     DlgCreate(Result;DefTitle;DlgNoOK!+DlgNoCancel!+DlgExit!;;;w;h)          DlgControl(CtrlPushButton!;;"Quit...>  r [BoldOn]?
   
 Esc>   [BoldOff]?
   
 ";StyCancel!;w15;h2)    x    	 (

             ForNext(x;1;tbox[0])         (      //AddWelcomeMessage   	 
                 p DlgControl(CtrlLabel!;;tbox[x];;2;x+1;w1;1)          Endfor          DlgControl(CtrlRadioButton!;lbo;"~Labels";;3;6)          DlgControl(CtrlRadioButton!;lbm;"Labels~Merge";;3;8)     DlgEnd     If(Result=1)          QuitCoach()     EndifReturn//*********************************************//     ENDMAINPROGRAM   	 8   //*********************************************	   	  P   //*********************************************////     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:Formformat   	 @   ////*********************************************Label(Formformat)     Var[1]=0Var[2]=0Var[3]=0     WindowMaximize     Cancel(Off!)     Message(&tbox;800)     w=55h=17     DlgCreate(Result;DefTitle;DlgNoOK!+DlgNoCancel!+DlgExit!;;;w;h)          DlgControl(CtrlPushButton!;;"Quit...>  r [BoldOn]?
   
 Esc>   [BoldOff]?
   
 ";StyCancel!;w15;h2)    x    	 (

             ForNext(x;1;tbox[0])         (      //AddWelcomeMessage   	 
                 p DlgControl(CtrlLabel!;;tbox[x];;2;x+1;w1;1)          Endfor          DlgControl(CtrlRadioButton!;mg1;"Createa~Datafile";;3;9)          DlgControl(CtrlRadioButton!;mg2;"Createa~Formfile";;3;11)          DlgControl(CtrlRadioButton!;mg3;"~RuntheMerge";;3;13)     DlgEnd     If(Result=1)          QuitCoach()     EndifReturn	   	 p   ProcedureMessage(&tbox;Msg)SWITCH(Msg)CaseOf800:     tbox={">  r [BoldOn]?
   
 MergingLabels>   [BoldOff]?
   
 ";          "";          "Youcanmergeaformfilewithadatafileto";          "createmergedlabels.";          "";          "Chooseoneofthefollowingtasks:";          "";          "(namesandaddresses)";          "";          "(labelformat)";          "";          "";     }CaseOf999:     tbox={">  r [BoldOn]?
   
 CreatingLabels>   [BoldOff]?
   
 ";"";"Choosethewayyouwanttocreatelabels:";"";"Createlabelsonly.";"";"Createalabelsformtomergewitha";"datafile.Thesamedatafilecanbe";"usedtoproducelabels,formletters";"envelopes,andsoon%
     
 .";"";"";     }ENDSWITCHEndProc  