WPC`:  
                 0   (     	1   m        @%  .        n)     q
  *       w4  0   U   9   	      9   	      9        9        9   U        	%            /     "   {      !   `   9  	)      \:  #                                                                                                                                                                               < 
  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    (                    $                        # e   3 7 = C I Q Y a g       1 .   a .   i .   ( 1 )   ( a )   ( i )   1 )   a )   f  A    d                                                                  f                                                                  e                                                                  c                                                                  i                                                             ¤     k                                                             p     m                                                             L     o                                                             8     n                                                             8     l                                                             L     j                                                                  q                                                                  s                                                                  r                                                                  p                                                                  h                                                                  g                                                             	     t                                                              	     u                                                             0     w                                                             F
     y                                                             
     x                                                                  {                                                                  z                                                                  }                                                                  |                                                                                                                               
     ~                                                             
     v                                                                                                                                                                                                     N o M a r k s F o u n d                                         \    N o D e f M a r k F o u n d                                         M a r k T e x t                                                                                                                                                                                     d                                                                                                                                    *                                                                  $                                                                  $                                                                  0                                                                  d                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                            M a r k O n                                                                                                                       @                                                                  	                                                                                                                                    	.#                                                                  	                                                                  	                                                                  	                                                                  	                                                                  	"                                                                   	                                                                   	!                                                                  	L                                                                   	!                                                                  	.#                                                                  '                                                                  $$                                                                  '                                                                  $                                                                  '                                                                  ,'                                                                  '                                                                  '                                                                  '                                                                  '                                                                  '                                                                  (    M a r k T e x t S u b 1                                         L(                                                                  +                                                                  4                                                                  ,                                                                  ,                                                                  	0                                                                  ,                                                                  	4                                                                  	0                                                                  	4    T o C M a r k D l g                                             05                                                                  B9                                                                  
F                                                                  @:                                                                  @:                                                                  	.>                                                                  j:                                                                  	E                                                                  	A                                                                  	L>                                                                  	A                                                                  	E                                                                    F      M e s s a g e                                                                 	H                                                                  tF                                                                  	e                                                                  	J                                                                  	H                                                                  	bL                                                                  	:J                                                                  	.N                                                                  	L                                                                  	P                                                                  	RN                                                                  	>Q                                                                  	*P                                                                  	S                                                                  	bQ                                                                  	T                                                                  	S                                                                  	lW                                                                  	U                                                                  	X                                                                  	W                                                                  	Z                                                                  	X                                                                  	]                                                                  	0Z                                                                  	vd                                                                  	]                                                                  	vd                                                                  	e                                                                    (e           M e s s a g e                                                   F                                                                                     ,             5      T      "W      [            G                   H      g      K2      K:    a?      aE     K      R     ,c                   	K      K     U      U                &&      
1      w      
            
      !      S      
      K      K    k                  K	      K	    .	      K	      
      p
      
                  4             	       7                  0      Kd      Kl     w      
U      U    &=
      
H
      
      
      
                                          @      ^       l      
      -                   &      
[      -                        -      w                        
      *      *      -4            -            ,      ,      *            !      C $                  4      C               4      [                  ]       	      "      "%      )            G             2      >         "      .    X            4      -/            ,'      1'      '      	#(      	')      v)      	)      q*      q*       *      	*      	m+      :,      v-      D.      	t.      .      .      K-/      K5/    Jj/      Js/    < /      G/      0      P0      0      G0      1      [1      2      '2      3      K3      K3    JH4      JQ4    4      
4      4      
?5      5      G5      K6      6      6      7      \7      z7      47      J7      J7     @7       7      -7      8      7<       %<      L<      <      =      } =      	J=      } =       >      :%C      } pC       C      BI      	XI      mI      rI      
-~I      8J      7M       M      M      N      N      } N      	N      } BO       O      	T      } N      } U       U      :Z      } -[       [      a      	a      -a      )b      	b      	b      	'd      	d      	~f      	g      	h      	i      	Qk      	#l      	o      	(p      	q      	Ls      :x      x      	x        ,  Z          T  z            3  H  [  g  m  2  ?  K  X  c  v          &  \          S        #  k        	  .	  K	  	  	  
  @
  p
  
  
    B                0  d      
  =
  
  
    G          z        @  ^          [            -  w          
  *  4              }      *  i      !  r        4  [          "  ]        2  g      "  X            /      l       !  !  ;"  "  0#  #  m$  $  @%  %  &  '  1'  X'  '  '  '  #(  }(  (  ')  )  )  ;*  *  *  *  m+  +  ,,  ,  ,  L-  -  -  D.  t.  .  .  -/  j/  /  /  0  P0  0  0  1  [1  1  2  2  E3  3  3  H4  4  4  ?5  5  5  K6  6  6  7  \7  z7  7  7  7  7  7  8  8  9  h9  9  :  T:  :  :  ;  <  <  L<  <  <  <  =  J=  =  >A  A  uB  %C  ^C  F  VG  G  H  BI  XI  mI  ~I  8J  WJ  J  J  IK  K  K  L  L  M  M  M  M  1N  iN  N  N  N  0O  R  S   T  T  U  X  ]Y  Y  3Z  Z  [  ^  l_  `  a  a  a  a  b  b  b  b  'd  4d  d  e  ~f  f  g  g  h  h  i  i  Qk  ^k  #l  0l  o  o  (p  5p  q  #q  Ls  es  x  x  x  x      (                 p5$          	       0           H?  HD  x  
 G #| x        " B D O ??=K ' 	             
    !    W   %
    
    
  ,   X //*********************************************////     NAME:    
           WPCH  _ TC01.WPM   	 @   //        	 X   //     PURPOSE:     CoachonTableofContents   	     //  //     AUTHOR:          PaulLaing,WordPerfectCorp.// //*********************************************  //RevisionHistory////  %
 	   
  Global(ScrnMode;MsgAdj;DefTitle;CancelMsg)Global(SaveScrn;HotElement;StndAlone;Reveal)DefTitle="Coach"              <     h //Maintitlename   	 H
   ScrnMode=?ScreenHigh24CancelMsg=1OpeningMsg=0Use("wpchlibr.wpm")         <     h //Sharedlibraryfile   	 h   If(NOTExists(StndAlone))     ColorScheme()     ScreenSetup()     If(?RevealCodesActive)          RevealCodes          Reveal=1     Else          Reveal=0     Endif     StndAlone=1EndifMsgAdj=DlgMessage()	   	 X   //*********************************************////     MAINPROGRAM:Coach   	 @   ////*********************************************Display(On!)Error(Off!)Cancel(Off!)Success=0Repeat     Progress=1     If(?DocBlank=0)          Display(Off!)          NotFound(On!)          ToCMark=0          OnNotFoundCall(NoMarksFound)          PleaseWait()          PosDocVeryTop          SearchString(">  o [MrkTxtToCBegin]?
   
 ")          SearchNext()          If(ToCMark<>1)              4 PosGoPrevious              4 SearchString("")              4 Display(On!)              4 Message(&tbox;1202)              4 Result=MessageBox(DefTitle;&tbox;3)              4 If(Result=2)              4     `	 Progress=0              4 Endif          Endif          Display(On!)     Else          If(OpeningMsg=1)              4 Message(&tbox;1201)              4 Result=Messagebox(DefTitle;&tbox;8)              4 If(Result1)              4     `	 QuitCoach()              4 Endif              4 OpeningMsg=0          Else    `	     
    	 $ )                 4 tbox={1}              4 Result=OpenDocument(&tbox)              4 OpeningMsg=1          Endif     EndifUntil(?DocBlank=0andProgress=1)While(1)     Call(MarkText)     DisplayRewrite     If(Success=1)              4 Display(Off!)   	 .h)5                 4 PosDocVeryTop              4 NotFound(On!)              4 DefMark=0              4 OnNotFoundCall(NoDefMarkFound)              4 SearchString(">  d [DefMark]?
   
 ")              4 SearchNext()              4 If(DefMark=0)              4     `	 Message(&tbox;1003)              4 Else              4     `	 Message(&tbox;1001)              4 Endif              4 SearchString("")          //Congratulationsonmarkingtext          Result=MessageBox(DefTitle;&tbox;3)          If(Reveal=1)              4 RevealCodes              4 DisplayRewrite          Endif          If(Result=1andDefMark=1)              4 Chain("wpchtc02.wpm")              4 Return          Endif          If(Result=1andDefMark=0)              4 Chain("wpchgn01.wpm")              4 Return          Endif          Break     Else          Message(&tbox;1002)          If(MessageBox(DefTitle;&tbox;3)<>1)              4 Break          Endif     EndifEndwhileQuitCoach()//*********************************************//     ENDMAINPROGRAM   	 !%   //*********************************************	   	 `"&   //*********************************************////     SUBROUTINE:NoMarksFound   	 @   ////*********************************************Label(NoMarksFound)     ToCMark=1Return	   	 (
x   //*********************************************////     SUBROUTINE:FoundDefine   	 @   ////*********************************************Label(NoDefMarkFound)     DefMark=1Return	   	 (
x   //*********************************************////     SUBROUTINE:MarkText   	 @   ////*********************************************Label(MarkText)     Repeat          Message(&tbox;1301)         < //Selectblockoftext   	 (
x             FakeIt(DefTitle;&tbox;5;1;0)          Repeat              4 Result=BlockEdit(DefTitle;1;1;&tbox;5;1)              4 If(Result=3)              4     `	 Message(&hbox;1902)              4     `	 Hint=Hint(&hbox;99;99;3)              4 Else              4     `	 If(?BlockActive=0)              4     `	     
 Null=NoBlock()              4     `	 Endif              4 Endif          Until(?BlockactiveandResult=1)          WindowMaximize          DisplayRewrite          Call(MarkOn)          If(?LeftCode=11253)              4 Success=1          Endif          If(NotExists(RvlCds))              4 CodesActive=0              4 If(?RevealCodesActive)              4     `	 CodesActive=1              4 Endif              4 RevealCodes(On!)              4 Message(&tbox;1303)              4 Hint=Hint(&tbox;99;99;0)              4 If(CodesActive=0)              4     `	 RevealCodes(Off!)              4 Endif              4 RvlCds=1          Endif          Message(&tbox;1304)          Result=Messagebox(DefTitle;&tbox;3)     Until(Result=2)Return	   	 % *   //*********************************************////     SUBROUTINE:MarkOn   	 @   ////*********************************************Label(MarkOn)     Message(&tbox;1401)              < //ChooseToolsmenu   	 `	        hbox1={    `	 "Choose>  r [BoldOn]?
   
 Tools>   [BoldOff]?
   
 Ԁfromthemenubar.";   	 
@                 4     `	 "";          }    4     `	     
    	 
        hbox2={    `	 "Choose>  r [BoldOn]?
   
 TableofContents>   [BoldOff]?
   
 ԀfromtheToolsmenu.";   	 H
                 4     `	 "";          }     hbox3={    `	 "Choose>  r [BoldOn]?
   
 Mark.";   	 
                 4     `	 "";          }     ToolsMenu(&valid)     allow={    4     `	     
 1625;     //Mark   	              }     exallow={    `	     
 0;   	 P             }     accel={    4     `	     
 98;          //Ta(b)leofContents   	 0             }     exaccel={    `	     
 1;   	 p             }     subval={    `	     
 1624;     //Define   	  P                 4     `	     
 1625;     //Mark   	              }     subacl={    `	     
 109;     //(M)ark   	 X             }     exsubacl={    `	     
 0;   	 8             }     subs={    `	     
 1623;     //TableofContents   	 x!             }     sbox={    4     `	     
 "Choose>  r [BoldOn]?
   
 Mark.";   	  X#                 4     `	     
 "";}     funkey={    `	     
 8132;          //Alt+F5   	 `"&             }     Repeat          DisplayRewrite          Result=PostIt(DefTitle;&tbox;0;10;0;2;0)          MenuActive=0          Show=HotSpot(0;0;62;0;529;&funkey;1)          Switch(show)          CaseOf1:    
 //Showmenu   	 *H&1                 4 Result=Postit(DefTitle;&tbox;0;10;0;3;0)              4 ShowMenu("Coach";&sbox;60;5ScrnMode;4;7;2;1)   	 ,'3             CaseOf1592:     //ToolsmenuID   	 .h)5                 4     `	 PosLineDown %
     
            CaseOf529:     //Accelmenu   	 X                 4     `	 Result=PostIt(DefTitle;&tbox;0;10;0;3;0)              4     `	 PullDownDlg              4     `	 Type("t")          CaseOf8132:     //Functionkey   	 
@                 4           CaseOf8085:     //Alt+=   	 
                 4     `	 Result=PostIt(DefTitle;&tbox;0;10;0;3;0)              4     `	 sbox={     1;}   	 `	                 4     `	 MenuActive=MenuBarControl("Coach";&hbox1;&sbox;9;5ScrnMode;116;&funkey)          DEFAULT:    
 //Default   	 h                 4     `	 sbox={     1;}   	 0                 4     `	 PosLineDown              4     `	 MenuActive=MenuBarControl("Coach";&hbox1;&sbox;9;5ScrnMode;116;&funkey)          EndSwitch%
     
           If(MenuActive<>1)              4 If(Show=8132)              4     `	 DisplayRewrite              4     `	 Display(On!)              4     `	 DlgInput(On!)              4     `	 MarkTextDlg              4     `	 Tab              4     `	 Call(MarkTextSub1)              4 Else              4     `	 If(MenuActive=8132)              4     `	     
 Tab              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=1625orResult=109)              4     `	     
      CancelMenus()              4     `	     
      DisplayRewrite              4     `	     
      Display(On!)              4     `	     
      DlgInput(On!)              4     `	     
      ToCMarkDlg              4     `	     
      Call(ToCMarkDlg)              4     `	     
 Else              4     `	     
      If(Result=8132)              4     `	     
           Tab              4     `	     
           Call(MarkTextSub1)              4     `	     
      Endif              4     `	     
 Endif              4     `	 Endif   	 .h)5                 4 Endif          Endif     Until(MenuActive<>1)     DlgInput(Off!)     BlockOff     WindowMaximizeReturn	   	    //*********************************************////     SUBROUTINE:MarkTextSub1   	 @   ////*********************************************Label(MarkTextSub1)     x1={    4 26;   	 `	             }     x2={    4 48;   	 
@             }     y1={    4 4;   	 
             }     y2={    4 4;   	 `	             }     hotpnt={    `	 1;   	 h             }     hotkey={    `	 8182;   	 H
                 4 }     Message(&tbox;1403)     helpmsg={    `	 "Choosethe>  r [BoldOn]?
   
 TableofContents>   [BoldOff]?
   
 Ԁoption.";   	 P                 4     `	 "";              4 }     Result=0SaveScrn=0     While(?Dialog=233)          If(Result="Hint")              4 Message(&hbox;1901)              4 Hint=Hint(&hbox;99;99;3)          Endif          Switch(?DialogControl)              4 CaseOf109:              4     `	 info={     ?DialogControl;   	 @"                 4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      10;              4     `	     
      15;              4     `	     
      0;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;              <     h              	 H&!+                 4     `	     
 }              4     `	 accel={     49;99;   	 '(#-                 4     `	     
 }              4     `	 aclpnt={     1;1;   	 h)$/                 4     `	     
 }              4     `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg)              4 DEFAULT:              4     `	 info={     ?DialogControl;   	 .h)5                 4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      10;              4     `	     
      15;              4     `	     
      0;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;              4     `	     
 }              4     `	 accel={     49;99;   	 
                 4     `	     
 }              4     `	 aclpnt={     1;1;   	 `	                 4     `	     
 }              4     `	 allow={          109;   	 
                 4     `	     
 }              4     `	 Result=InvalidControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg;&allow)          EndSwitch     EndWhile     Call(ToCMarkDlg)Return	   	 h   //*********************************************////     SUBROUTINE:ToCMarkDlg   	 @   ////*********************************************Label(ToCMarkDlg)     x1={    4 30;33;   	 (
x             }     x2={    4 45;40;   	 	             }     y1={    4 8;10;   	 H
             }     y2={    4 8;10;   	 (

             }     hotpnt={    `	 1;1;   	 h             }     hotkey={    `	 8182;   	 H
                 4     `	 8182;              4 }     Message(&tbox;1402)     helpmsg={    `	 "Choose>  r [BoldOn]?
   
 OK>   [BoldOff]?
   
 Ԁwhendone.";   	 h                 4     `	 "";              4 }     Result=0SaveScrn=0     While(?Dialog=92)          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     `	     
      10;              4     `	     
      15;              4     `	     
      4;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;              <     h              	 H&!+                 4     `	     
 }              4     `	 accel={     49;108;   	 '(#-                 4     `	     
 }              4     `	 aclpnt={     0;0;   	 h)$/                 4     `	     
 }              4     `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg)              4 CaseOf681:              4     `	 info={     ?DialogControl;   	 .h)5                 4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      10;              4     `	     
      15;              4     `	     
      4;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;              <     h              	 
@                 4     `	     
 }              4     `	 accel={     1;   	 
                 4     `	     
 }              4     `	 aclpnt={     0;   	 `	                 4     `	     
 }              4     `	 HotElement=1              4     `	 Result=WinEdControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg)              4 DEFAULT:              4     `	 info={     ?DialogControl;   	                  4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      10;              4     `	     
      15;              4     `	     
      4;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;              <     h              	                  4     `	     
 }              4     `	 accel={     1;   	  p                 4     `	     
 }              4     `	 aclpnt={     0;   	                    4     `	     
 }              4     `	 allow={          0;   	 @"                 4     `	     
           681;              4     `	     
 }              4     `	 Result=InvalidControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg;&allow)          EndSwitch     EndWhileReturn	   	 % *   //*********************************************////     PROCEDURE:Message   	 @   ////*********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf1001:tbox={     "Thenextstepistodefinewhereyouwantthetabletoappear";   	 
             "andhowmanyheadinglevelsyouwantinthetable.";          "";     0     "WouldyoulikeCoachtohelpyoudefinethetableofcontents?";  
  (#(#            "";     }CaseOf1002:tbox={0     "Noheadingsweremarkedinyourdocument";     (#(#            "Wouldyouliketotryagain?";          "";     }CaseOf1003  %
     
  :tbox={        	 p             "Thenextstepistogeneratethetablefrom";          "thepreviouslymarkedheadings.";          "";          "WouldyoulikeCoachtohelpyougeneratethetable";          "ofcontents?";          "";     }CaseOf1201:tbox={     "";   	 @"             "Youneedtohaveadocumentinthe";          "documentwindowbeforeyoucancreate";          "atableofcontents.";          "";     }CaseOf1202:tbox={     "Thisdocumentalreadycontains";   	 % *             "markingsforatableofcontents.";          "";          "Wouldyouliketocontinueanyway?";          "";     }CaseOf1301:tbox={     "";   	 +'2        0     "Blockaheadingyouwantinyourtableofcontents.";    ,'3 (#(#            "";     }   	 .h)5   ЇCaseOf1303:tbox={     "";   	 x              "Noticethe>  r [BoldOn]?
   
 [MrkTxtToC]>   [BoldOff]?
   
 Ԁcodesthatarebefore";          "andafteryourheadinginRevealCodesbelow.";          "";          "Wheneveryouwanttoviewtextandcodes,press>  r [BoldOn]?
   
 Alt+F3.";          "";     }CaseOf1304:tbox={     "Theheadingismarked.Wouldyou";   	 H
        0     "liketomarkanotherheading?";  
  (#(#            "";     }CaseOf1401:tbox={     "";   	 H
             "Tomarktheblockedheading,";          "";          "Choose>  r [BoldOn]?
   
 Tools>   [BoldOff]?
   
 ,";   	 h        0     "then>  r [BoldOn]?
   
 TableofContents>   [BoldOff]?
   
 ,";  
  (#(#       0     "then>  r [BoldOn]?
   
 Mark>   [BoldOff]?
   
 .";  
  (#(#            "or";          "Press>  r [BoldOn]?
   
 Alt+F5>   [BoldOff]?
   
 .";   	 8             "";     }CaseOf1402:tbox={     "";   	  p             "Typetheheadinglevelyouwant,";   	 8             "thenchoose>  r [BoldOn]?
   
 OK>   [BoldOff]?
   
 .";          "";     }CaseOf1403:tbox={     "";   	 !%             "Choose>  r [BoldOn]?
   
 TableofContents.";   	 `"&             "";     }CaseOf1901:tbox={     "";   	 H&!+             "Theheadinglevelcorrespondstothewayitwillappearin";          "yourtableofcontents.";          "";          "HeadingLevel1....................................1";          "HeadingLevel2.................................2";          "HeadingLevel3..............................3";          "";          "";     }   	 .h)5   CaseOf1902:     tbox={    4 "";   	 x         0     ">  r [BoldOn]?
   
 Toblocktextwithamouse:>   [BoldOff]?
   
 Ԁ>  r [BoldOn]?
   
 Toblocktextwithkeys:>   [BoldOff]?
   
 ";  
  (#(#            "";          "1.Placeyourmousepointeratthe1.Moveyourcursortothestart";          "startofthetextyouwanttoofthetextyouwanttoblock.";          "block.2.Press>  r [BoldOn]?
   
 Alt+F4>   [BoldOff]?
   
 .";          "2.Pressyourleftmousebutton3.Moveyourcursortotheendof";          "andholditdown.thetextyouwanttoblockso";          "3.Moveyourmousepointertothethatthetextishighlighted.";          "endofthetextyouwantto";          "blocksothatthetextis";          "highlighted.";          "4.Releaseyourmousebutton.";          "";     }DEFAULT:tbox={     "Nomessagefound!";   	 P             "";     }EndSwitchENDPROC	   	 8        