WPCR+  
                 0   (                         1  0   U   H&       &   	      *        *   U   .   *   	      *        *   U        	%            /     "   {           *   !   `   *  #       	)      N+                                                                                                                                                            < 
  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    (                    $       K  A                                                                 l                                                                  l                                                                                                                                                                                                           	                                                             .                                                                       
                                                                                                                                                                                                 
                                                                  (                                                                  .     
                                                             "                                                                                                                                                                                                                                                                            D e f i n e T a b l e                                           \                                                                  
                                                                  
                                                                                                                                        D e f O n                                                                                                                                                                                            	                                                                                                                                    	                                                                   	                                                                  	                                                                  	                                                                  	8     !                                                             	<                                                                   	(     #                                                             	     "                                                             	f     $                                                             	     %                                                             	      (                                                             6     *                                                             *     )                                                             "     ,                                                                  +                                                                  .                                                             d     -                                                                  0                                                                  /                                                                  '                                                             6                                                                  <                                                                  r    M a r k T e x t S u b 1                                              1                                                             "     2                                                             */     5                                                             	&     4                                                             #     3                                                             	/     7                                                             	*     6                                                             	 '     8                                                             	*     9                                                             	/    T o C D e f S u b 1                                             b/     =                                                             2     <                                                             2     ;                                                             62     >                                                             3     ?                                                             >A     A                                                             4     @                                                             4     D                                                             	8     C                                                             
5     B                                                             	*A     F                                                             	<     E                                                             	8     G                                                             	<     H                                                             	*A                                                                    RA      M e s s a g e    L                                                             	hD     K                                                             A     J                                                             	TU     N                                                             	4F     M                                                             	D     P                                                             	 H     O                                                             	XF     R                                                             	I     Q                                                             	DH     T                                                             	$L     S                                                             	I     V                                                             	`M     U                                                             	HL     X                                                             	jS     W                                                             	M     Z                                                             	T     Y                                                             	S     [                                                             	T     \                                                             	TU                                                                    ^U           M e s s a g e                                                   RA                                                                                     ,      Z             5      U      "X      \                  G                         a      a                ,      .                  N            4             	7!      6      T            *      N      i      {      
      -                        	      f
                  G             ,      8                         -      
       
      
      ,J                  	      	      v6      	r      q      q       L      	o      	      :      v      D      	t            ,      < k      G      G      G      C                   T       G       G       G       C              6!      "      '"      v#      #       '$      y$      $      3%      G%      G%      G%      C%      &      z&      &      &      '      :'      4L'      J'      J'     -'      O(      7`+       f+      +      } +      	+      } ,       ,      	1      } +      } 1       ^2      :7      } 7       H8      
>      	#>      8>      -I>      ?      ,+A      GJA      4ZA      } `A      7B       B      C      C      C      } C      	D      } [D       D      	I      } C      } JJ       J      :P      } ^P       P      0V      	FV      -OV      )W      	#W      	0W      	X      	Y      	y[      	y\      	r_      	`      	"c      :d      d      	d          (                 p5$          	       0             ,  Z  f        U  {                    &            .  Y          5  N            !  6  T  o      *  N  i  {            	  	  f
  
  
  
  (  p             ,  I  i          
  
  
  
  *  L  N  l    v  
    u    v       J  i      <  b      ,  z    6  r      L  o      k      q      D  t      ,  k               T                  6!  w!  h"  "   #  v#  #  '$  y$  $  3%  %  %  %  %  &  z&  &  &  '  :'  L'  '  '  O(  p(  (  )  Y)  )  )  X*  x*  @+  I+  `+  +  +  ,  /  X0  0  1  1  5  F6  6  7  7  ;  <  <  b=  
>  #>  8>  I>  ?  !?  ?  ?  !@  r@  @  +A  JA  ZA  A  A  B  B  B  C  IC  C  C  C  D  ID   H  H  8I  I  8J  M  N  'O  dO  P  LP  S  CT  T  U  0V  FV  OV  W  #W  0W  =W  X  X  Y  	Z  y[  [  y\  \  r_  _  `  `  "c  /c  d  d  d  d  H?          < 6X  9  ` +   C o u r i e r         HD  	   `B #| x         " B D O ??=K ' 	             
    !    W   %
    
    
  ,   X //*********************************************////     NAME:    
           WPCH  _  %
 
   
  TC02.WPM   	 @   //        	 X   //     PURPOSE:     CoachonTableofContents   	     ////*********************************************Global(ScrnMode;MsgAdj;DefTitle;CancelMsg)Global(SaveScrn;HotElement;StndAlone;Reveal)Global(Pg)DefTitle="Coach"              <     h //Maintitlename   	 (

   ScrnMode=?ScreenHigh24CancelMsg=1Use("wpchlibr.wpm")         <     h //Sharedlibraryfile   	 H
   If(NOTExists(StndAlone))     ColorScheme()     ScreenSetup()     StndAlone=1EndifIf(?RevealCodesActive)     RevealCodes     Reveal=1Else     Reveal=0EndifMsgAdj=DlgMessage()	   	      //*********************************************////     MAINPROGRAM:Coach   	 @   ////*********************************************Error(Off!)Cancel(Off!)Success=0OpeningMsg=0Repeat     If(OpeningMsg=1)          Message(&tbox;1201)          Result=Messagebox(DefTitle;&tbox;8)          If(Result1)              4 QuitCoach()          Endif          OpeningMsg=0     Else    4     `	    	 H
             tbox={1}          Result=OpenDocument(&tbox)          OpeningMsg=1     EndifUntil(?DocBlank=0)While(1)     Call(DefineTable)     DisplayRewrite     Message(&tbox;1001)     //Congratulationsondefiningalocationforthetable     Result=MessageBox(DefTitle;&tbox;3)     If(Reveal=1)          RevealCodes          DisplayRewrite     Endif     If(Result=1)          Chain("wpchgn01.wpm")          Return     Endif     BreakEndwhileDisplayRewriteQuitCoach()//*********************************************//     ENDMAINPROGRAM   	 H&!+   //*********************************************	   	 '`",   //*********************************************////     SUBROUTINE:DefineTable   	 @   ////*********************************************Label(DefineTable)     Message(&tbox;1501)          //Positioncursor   	 `	        FakeIt(DefTitle;&tbox;3;1;0)     chkcode={1;}     keypress={8154;}     //F7key   	 
        Key=DoEdit(1;&chkcode;&keypress)     Call(DefOn)     CodesActive=0     If(?RevealCodesActive)          CodesActive=1     Endif     RevealCodes(On!)     Message(&tbox;1303)     Hint=Hint(&tbox;99;99;0)     If(CodesActive=0)          RevealCodes(Off!)     EndifReturn	   	  P   //*********************************************////     SUBROUTINE:DefOn   	 @   ////*********************************************Label(DefOn)     WindowMaximize     DisplayRewrite     hbox1={    `	 "Choose>  r [BoldOn]?
   
 Tools>   [BoldOff]?
   
 Ԁfromthemenubar.";   	 	                 4     `	 "";          }    4     `	     
    	 H
        hbox2={    `	 "Choose>  r [BoldOn]?
   
 TableofContents>   [BoldOff]?
   
 ԀfromToolsmenu.";   	 `	                 4     `	 "";          }     hbox3={    `	 "Choose>  r [BoldOn]?
   
 Define.";   	 h                 4     `	 "";          }    4     `	     
    	 H
        ToolsMenu(&valid)     allow={    4     `	     
 1624;     //Define   	 P             }     exallow={    `	     
 0;          //Definenoexecute   	 0             }     accel={    4     `	     
 98;          //Ta(b)leofContents   	 p             }     exaccel={    `	     
 1;          //Definenoexecute   	  P             }     subval={    `	     
 1624;     //Define   	                  4     `	     
 1625;     //Mark   	 X             }     subacl={    `	     
 100;     //(D)efine   	 8             }     exsubacl={    `	     
 0;          //Definenoexecute   	 x!             }     subs={    4     `	     
 1623;     //TabelofContents   	  X#             }     sbox={    4     `	     
 "Choose>  r [BoldOn]?
   
 Define.";   	 !%                 4     `	     
 "";}     funkey={    `	     
 8132;     //Alt+F5   	 (#x'             }     Repeat          Message(&tbox;1701)         < //ChooseToolsmenu   	 H&!+             DisplayRewrite          Result=PostIt(DefTitle;&tbox;0;9;0;2;0)          MenuActive=0          Show=HotSpot(0;0;62;0;529;&funkey;1)          Switch(show)          CaseOf1:    
      //Showmenu   	 ,'3                 4 Result=PostIt(DefTitle;&tbox;0;9;0;3;0)              4 ShowMenu("Coach";&sbox;60;5ScrnMode;4;7;1;1)   	 .h)5   Ї          CaseOf1592:     //ToolsmenuID   	                     4 PosLineDown %
     
            CaseOf529:     //Accelmenu   	 X                 4 Result=PostIt(DefTitle;&tbox;0;9;0;3;0)              4 PullDownDlg              4 Type("t")          CaseOf8132:     //Functionkey   	 
@             CaseOf8085:     //Alt+=   	 
                 4 Result=PostIt(DefTitle;&tbox;0;9;0;3;0)              4 sbox={    
 1;}   	 `	                 4 MenuActive=MenuBarControl("";&hbox1;&sbox;0;0;116;&funkey)          DEFAULT:    
      //Default   	 h                 4 sbox={    
 1;}   	 0                 4 PosLineDown              4 MenuActive=MenuBarControl("";&hbox1;&sbox;0;0;116;&funkey)          EndSwitch%
     
           If(MenuActive<>1)              4 If(Show=8132)              4     `	 CancelMenus()              4     `	 DisplayRewrite              4     `	 MarkTextDlg              4     `	 TabTabTabHrt̐              4     `	 Call(MarkTextSub1)              4 Else              4     `	 If(MenuActive=8132)              4     `	     
 TabTabTabHrt              4     `	     
 Call(MarkTextSub1)              4     `	 Else              4     `	     
 Result=MenuControl(&hbox1;&hbox2;&hbox3;&valid;&allow;&exallow;              4     `	     
 &accel;&exaccel;&subval;&subacl;&exsubacl;&subs;&funkey)              4     `	     
 MenuActive=Result              4     `	     
 If(Result=1624orResult=100)              4     `	     
      CancelMenus()              4     `	     
      DisplayRewrite              4     `	     
      ToCDefinitionDlg              4     `	     
      Type("1")              4     `	     
      Call(ToCDefSub1)              4     `	     
 Else        	 '`",                 4     `	     
      If(Result=8132)        	 '(#-                 4     `	     
           TabTabTabHrt̐              4     `	     
           Call(MarkTextSub1)              4     `	     
      Endif              4     `	     
 Endif              4     `	 Endif              4 Endif          Endif     Until(MenuActive<>1)   	 .h)5        DlgInput(Off!)Return	   	 x    //*********************************************////     SUBROUTINE:MarkTextSub1   	 @   ////*********************************************Label(MarkTextSub1)     x1={    4 13;   	 (
x             }     x2={    4 32;   	 	             }     y1={    4 9;   	 H
             }     y2={    4 9;   	 (

             }     hotpnt={    `	 1;   	 h             }     hotkey={    `	 8182;   	 H
                 4 }     Message(&tbox;1902)     helpmsg={    `	 "Choose>  r [BoldOn]?
   
 TableofContents";   	 P                 4     `	 "";}     Result=0SaveScrn=0     While(?Dialog=487)          Switch(?DialogControl)              4 CaseOf719:              4     `	 info={     ?DialogControl;   	                  4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      5;              4     `	     
      1;              4     `	     
      1;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;              <     h              	 !%                 4     `	     
 }              4     `	 accel={     50;100;   	 (#x'                 4     `	     
 }              4     `	 aclpnt={     0;0;   	 $ )                 4     `	     
 }              4     `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg)              4 CaseOf720:              4     `	 info={     ?DialogControl;   	 0*%0                 4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      5;              4     `	     
      1;   	 .h)5                 4     `	     
      1;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;              <     h              	 X                 4     `	     
 }              4     `	 accel={     49;99;   	                  4     `	     
 }              4     `	 aclpnt={     1;1;   	 (
x                 4     `	     
 }              4     `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg)              4 DEFAULT:              4     `	 info={     ?DialogControl;   	 (

                 4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      5;              4     `	     
      1;              4     `	     
      1;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;              <     h              	 0                 4     `	     
 }              4     `	 accel={     50;100;   	 p                 4     `	     
 }              4     `	 aclpnt={     0;0;   	  P                 4     `	     
 }              4     `	 allow={          719;720;   	                  4     `	     
 }              4     `	 Result=InvalidControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg;&allow)          EndSwitch     EndWhile     Call(TocDefSub1)Return	   	  X#   //*********************************************////     SUBROUTINE:ToCDefSub1   	 @   ////*********************************************Label(ToCDefSub1)     x1={    4 11;51;   	 `	             }          x2={    4 33;58;   	 
@             }     y1={    4 4;19;   	 
             }     y2={    4 4;19;   	 `	             }     hotpnt={    `	 0;1;   	 h             }     hotkey={    `	 768;8182;   	 H
                 4 }     Repeat          TAB     Until(?DialogControl=88)     Message(&tbox;1702)     helpmsg={    `	 "Choosethe>  r [BoldOn]?
   
 NumberofLevels>   [BoldOff]?
   
 Ԁoption.";   	                  4     `	 "";              4 }     Result=0SaveScrn=0     While(?Dialog=22)          If(Result="Hint")              4 Message(&hbox;1901)              4 Hint=Hint(&hbox;99;99;3)          Endif          Switch(?DialogControl)              4 CaseOf0:              4     `	 info={     ?DialogControl;   	 !%                 4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      6;              4     `	     
      18;              4     `	     
      4;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;              <     h              	 (#.                 4     `	     
 }              4     `	 accel={     49;110;   	 0*%0                 4     `	     
 }              4     `	 aclpnt={     0;0;   	 +'2                 4     `	     
 }              4     `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg)   	 .h)5   Ї              4 CaseOf88:              4     `	 info={     ?DialogControl;   	 @                 4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      6;              4     `	     
      18;              4     `	     
      4;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;              <     h              	 H
                 4     `	     
 }              4     `	 accel={     49;110;   	 (

                 4     `	     
 }              4     `	 aclpnt={     0;0;   	 h                 4     `	     
 }              4     `	 HotElement=1              4     `	 Result=WinEdControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg)              4 DEFAULT:              4     `	 info={     ?DialogControl;   	 0                 4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      6;              4     `	     
      18;              4     `	     
      4;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;              4     `	     
 }              4     `	 accel={     49;99;   	 x!                 4     `	     
 }              4     `	 aclpnt={     1;1;   	  X#                 4     `	     
 }              4     `	 allow={          0;88;   	 !%                 4     `	     
 }              4     `	 Result=InvalidControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg;&allow)          EndSwitch     EndWhileReturn	   	 H&!+   //*********************************************////     PROCEDURE:Message   	 @   ////*********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf1001:tbox={     "Youhavedefinedthetableofcontents.";   	 
             "";          "Thefinalstepistogeneratethetablefrom";          "thepreviouslymarkedheadings.";          "";          "WouldyoulikeCoachtohelpyougeneratethetable";          "ofcontents?";          "";     }CaseOf1201:tbox={     "";   	 h             "Youneedtohaveadocumentinthe";          "documentwindowbeforeyoucandefine";          "atableofcontents.";          "";     }CaseOf1303:tbox={     "";   	 X             "Noticethe>  r [BoldOn]?
   
 [DefMark]>   [BoldOff]?
   
 ԀcodeinRevealCodesbelow.";          "";          "Wheneveryouwanttoviewtextandcodes,press>  r [BoldOn]?
   
 Alt+F3.";          "";     }CaseOf1501:tbox={     "";   	 `"&        0     "Placeyourcursorwhereyouwantyourtableofcontentsto";    (#x' (#(#            "appear.";          "";     }CaseOf1701:tbox={     "";   	 '(#-             "Todefineatableofcontents,";          "";          "Choose>  r [BoldOn]?
   
 Tools>   [BoldOff]?
   
 ,";   	 0*%0        0     "then>  r [BoldOn]?
   
 TableofContents>   [BoldOff]?
   
 ,";  
  (#(#       0     "then>  r [BoldOn]?
   
 Define>   [BoldOff]?
   
 .";  
  (#(#            "or";          "Press>  r [BoldOn]?
   
 Alt+F5>   [BoldOff]?
   
 .";   	 P-(4             "";   	 .h)5        }CaseOf1702:tbox={     "Typethenumberofheadinglevels,";   	 X             "thenchoose>  r [BoldOn]?
   
 OK>   [BoldOff]?
   
 .";          "";     } 	  tX   	  CaseOf1901:tbox={    4 ">  r [BoldOn]?
   
 SampleTableofContents>   [BoldOff]?
   
 ";   	 v	   "";"Dehydrating.....................2";"Fruit.....................5";"Apples..................7";"Cherries.................8";"";"";"HeadingLevel1...................2";"HeadingLevel2................5";"HeadingLevel3..............7";"HeadingLevel3..............%
     
 8";"";"";     }CaseOf1902:tbox={    4 "";   	              "Choose>  r [BoldOn]?
   
 TableofContents.";   	 4             "";     }DEFAULT:tbox={    4 "Nomessagefound!";   	 *z!             "";     }EndSwitchENDPROC	   	 m&       