WPC  
                 0   (     0   P     	B      :  	B   *   W  	D   3                	  L       D
     0  ;   	      k        N   U      q  	%            /          {           Z   !   `   j  #     9   !   `      	      H  	)      *  "     0                                                                                                                      (                    $           (   (               3>$       
   U!         W                   d    &     0        d          d       '                          d x    d   M e s s a g e                                                                                                                                    A                                                                 J                                                                  r                                                                  
                                                                                                                                                                                                                                                                                                                                               	                                                                  
                                                             ^                                                                  6                                                                  6     
                                                             d                                                                                                                                                                                                          O v e r v i e w                                                                                                                   F                                                                        - I                                                               - E                                                         z	      - B                                                         	                                                                  	      - I                                                         	      - E                                                         
      - B                                                          
                                                                                                                                                                                                              M e s s a g e                                                                 	                                                                  0                                                                  	                                                                  	                                                                  	                                                                                         s      5            G       <      ]      w      aO      aU     [      b     Kh      Kp     t                  7            
      :      X      j      7            
                  -      7B      c      
                              -      K
      ,|
      @
      	@
    @    @    AF      
AR    A    
!      Af      
Aq     
                  

      AS
      
A^
    
                        B      4      -      )[      	y      	      :1            	            j            <  T  ]  n  w  ~    O  [  h  w  k  t              :  X  j            -  B  c              K
  g
  |
  
  
  
  F    !  f      

  S
  
    L  U  ^        [  y      1  :      HD  < 
  9 p` (      X< 6X  9  ` +   C o u r i e r         "4  ? 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JD     q  8 #| x   	      " B D O ??=K ' 	            " B D O ??=K ' 	              '  ? x x x  X    Xx  { { n 2 ` ` `  X    `  C oC &  CCoCC  oo            dd     ,C             C'uu      u           u               P  u                     o       !EƍC     (         _  O ( 3          !"#$%&'()*+,-./0123456789
    !    W //*********************************************////     NAME:     WPCH_TC0.WPM   	 @   //        	 X   //     PURPOSE:     CoachonTableofContents   	       // 	 %
 
   
 	 ////*********************************************Global(ScrnMode;MsgAdj;DefTitle;CancelMsg)Global(SaveScrn;HotElement;StndAlone;Reveal)%
    
 DefTitle="Coach"         h               p //Maintitlename   	 H
   ScrnMode=?ScreenHigh24CancelMsg=1Use("wpchlibr.wpm")         h           //Sharedlibraryfile   	 h   ColorScheme()ScreenSetup()If(?RevealCodesActive)     RevealCodes     Reveal=1Else     Reveal=0EndifStndAlone=1MsgAdj=DlgMessage()	   	    //*********************************************////     MAINPROGRAM:Coach   	 @   ////*********************************************Error(Off!)Cancel(Off!)Display(Off!)steps={0    `	 "~SelectandMarkHeadings";    	 `	(#`	(#                 "~DefinetheTableofContents";               "~GeneratetheTableofContents";          }var[0]=3Call(Overview)If(Result=1)     QuitCoach()Else     While(1)          If(var[1])               Chain("wpchtc01.wpm")          Endif          Break     Endwhile     While(1)          If(var[2])               Chain("wpchtc02.wpm")          Endif          Break     Endwhile     While(1)          If(var[3])               Chain("wpchgn01.wpm")          Endif          Break     EndwhileEndifReturn//*********************************************//     ENDMAINPROGRAM   	 #@(   //*********************************************	   	 $ )   //*********************************************////     SUBROUTINE:Overview   	 @   ////*********************************************Label(Overview)     Result=0     Repeat          w=67h=23          DlgCreate(               Result;DefTitle;DlgNoOK!+DlgNoCancel!+DlgExit!;;;w;h)               DlgControl(CtrlPushButton!;;"Quit...>  r [BoldOn]?
   
 Esc>   [BoldOff]?
   
 ";StyCancel!;w15;h2)               Message(&tbox;1105)               ForNext(x;1;tbox[0])                   `	 DlgControl(CtrlLabel!;;tbox[x];;2;x;w1;1)               Endfor               LnHgt=x               ForNext(x;1;steps[0])                   `	 DlgControl(CtrlRadioButton!;                   `	 var[x];steps[x];;8;x+tbox[0];w1;1)               Endfor               LnHgt=LnHgt+steps[0]               var[1]=0var[2]=0var[3]=0          DlgEnd     Until(Result<>0)Return	   	    //*********************************************////     PROCEDURE:Message   	 @   ////*********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf1105:     tbox={    `	 "";   	 
   ">  r [BoldOn]?
   
 CreatingaTableofContents>   [BoldOff]?
   
 ";"";"Youcancreateatableofcontentsforadocument.Thistable";"canappearwhereveryouspecifyandcanbearrangedaccording";"toheadinglevelssimilartothefollowing:";"";"Dehydrating....................2";"Fruit.....................5";"Apples %
     
  ..................7";"Cherries.................%
     
 8";"";"Choosefromthefollowingtasks:";"";}DEFAULT:tbox={         `	 "Nomessagefound!";   	                       `	 "";     }EndSwitchENDPROC    