WPC0  
                 0   (             0   U   X            2	        d  )   	      3.        0        0   !   `   ,0  	)      0   U      9.  	%      Q.      /   W.  "   {   .                              #     /                                                                                                                                    (                    $          M e s s a g e                                                   D8                                                                                   (                 p5$          	       0           V  A                                                                X                                                                 X                                                                                                                                                                                                                                                                        M o d u l e R u n                                               `                                                                                                                                                                                                   `4                                                                 
                                                                 0                                                                                                                                                                                                   0                                                                 	                                                                 	                                                                 	                                                                 	                                                                 	                                                                 	                                                                 h                                                                                                                                  N                                                                 N                                                                 b                                                                 n                                                                                                                                  `                                                                                                                                  
                                                                 
                                                                 
                                                                 $                                                                                                                                                                                                                                                                                                                                                                                                          N o D e f M a r k F o u n d                                     `    N o M a r k s F o u n d                                         `    G e n e r a t e                                                 `<                                                                 `@                                                                 	                                                                                                                                  	                                                                 	                                                                 	                                                                 	                                                                 	                                                                 	"                                                                 	                                                                 	                                                                 	L                                                                 	                                                                 	                                                                 !                                                                                                                                  !                                                                                                                                                                                                    8                                                                                                                                                                                                                                                                        !                                                                 !                                                                 T!    M a r k T e x t S u b 1                                         `t!                                                                 `$                                                                 ,                                                                 	(                                                                 $                                                                 	,                                                                 	(                                                                 	,    G e n e r a t e S u b 1                                         `4-                                                                 `p0                                                                 08                                                                 	64                                                                 0                                                                 	8                                                                 	64                                                                 	8                                                                    D8      M e s s a g e                                                                	r9                                                                 8                                                                 	"D                                                                 	^:                                                                 	9                                                                 	.<                                                                 	:                                                                 	=                                                                 	R<                                                                 	V?                                                                 	=                                                                 	dA                                                                 	z?                                                                 	BB                                                                 	A                                                                 	zC                                                                 	fB                                                                 	zC                                                                 	"D                                                                    `,D              "             5      >      "A      E                  G                   	                  /      KT      K\    y                  ay      a                K      K     ,                   	U	      U	    (	      (	      &J	      
U	      w	      
	      
      
B
      k
      

      
      
      

      K+      K3          
      -a                  
      ,
      &
      

      w      
6            
            
:      K{      K    P      
      -      $                              +            P                        4             	       K      K          7                         <                        (      .      7      R      j      y                        -                  6      -b            >      >      -H                    ,              !      	!      	"      vH#      	m#      q$      q$       H$      	$      	$      :,&      v&      c'      	'      '       (      J?(      JH(    < }(      G(      G(      G(      G(      G(      (      4)      i)      G)      G)      G)      G)      G)      *      O*      +      '+      ,      J,      J,    >-      -      -      ..      G.      G.      G.      G.      G.      .      X/      /      /      /      0      4*0      JN0      JW0     -]0      1      7I4       O4      v4      } }4      	4      }  5       l5      ::      } :       D;      A      	0A      EA      -XA      B      7cE       iE      E      } E      	E      } F       F      :K      } K       XL      (R      	>R      -GR      )R      	S      	(S      	S      	T      	U      	V      	W      	Y      	Z      :[       \      	*\        "  P        >  d  ~                 	    /  T  y        y              	  (	  J	  	  	  	  
  B
  k
  
  
  
  +  \        a        
  ,
  a
  
  
    6        :  {      P      $  e          +  b         P  z      "  a                    <  a            (  .  7  R  j  y              6  X  b    >  H       7        3  Q    _    n    A         
!  K!  q!  !  !  ;"  "  "  H#  m#  #  $  H$  $  $  ;%  %  %  ,&  &  &  '  c'  '  '   (  ?(  }(  (  (  (  (  (  (  4)  i)  )  )  )  )  )  *  O*  *  +  +  ;,  ,  ,  >-  -  -  ..  .  .  .  .  .  .  X/  /  /  /  0  *0  N0  ]0  1  :1  1  1  $2  r2  2  $3  D3  )4  24  I4  v4  4  4  8  A9  9  :  :  >  -?  ?  o@  A  0A  EA  XA  B  4B  B  B  C  lC  C  D  >D  CE  LE  cE  E  E  F  I  VJ  J  K  K  O  >P  P  }Q  (R  >R  GR  R  S  (S  5S  S  WT  T  T  U  U  V  V  W  W  Y  Z  Z  Z  [  [   \  *\  HD  < 
  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    : #| x        " B D O ??=K ' 	            
 
    !    W   //*********************************************////     NAME:     WPCHGN 0 %
    
   1.WPM   	 @   //        	 X   //     PURPOSE:     CoachonGenerate;CalledfrombookletandToC   	     //         `	      coaches   	    ////*********************************************Global(ScrnMode;MsgAdj;DefTitle;CancelMsg)Global(SaveScrn;HotElement;StndAlone;Reveal)DefTitle="Coach"         h           //Maintitlename   	 `	   ScrnMode=?ScreenHigh24CancelMsg=1Use("wpchlibr.wpm")         h      //Sharedlibraryfile   	 0   If(NOTExists(StndAlone))     ColorScheme()     ScreenSetup()     StndAlone=1EndifIf(?RevealCodesActive)     RevealCodes     Reveal=1Else     Reveal=0EndifIf(Exists(Module))     If(Module=1)         `	 Display(on!)         `	 Go(ModuleRun)     EndifEndifMsgAdj=DlgMessage()	   	   $   //*********************************************////     MAINPROGRAM:Coach   	 @   ////*********************************************Error(Off!)Cancel(Off!)OpeningMsg=0Display(Off!)Repeat     Progress=1     If(?DocBlank=0)          NotFound(On!)          ToCMark=0          OnNotFoundCall(NoMarksFound)          PleaseWait()          PosDocVeryTop          SearchString(">  o [MrkTxtToCBegin]?
   
 ")          SearchNext()          SearchString("")          SearchNext()          If(ToCMark=1)              4 PosGoPrevious              4 SearchString("")              4 Display(On!)              4 Message(&tbox;1202)              4 Result=MessageBox(DefTitle;&tbox;3)              4 If(Result=1)              4     `	 Chain("wpchtc01.wpm")              4     `	 Return              4 Else              4     `	 Progress=0              4 Endif          Endif          If(Progress=1)              4 DefMark=0              4 OnNotFoundCall(NoDefMarkFound)              4 PleaseWait()              4 PosDocVeryTop              4 SearchString(">  d [DefMark]?
   
 ")              4 SearchNext()              4 If(DefMark=1)              4     `	 PosGoPrevious              4     `	 SearchString("")              4     `	 Display(On!)              4     `	 Message(&tbox;1203)              4     `	 Result=MessageBox(DefTitle;&tbox;3)              4     `	 If(Result=1)              4     `	     
 Chain("wpchtc02.wpm")              4     `	     
 Return              4     `	 Else              4     `	     
 Progress=0              4     `	 Endif   	 .h)5                 4 Endif          Endif     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)Display(On!)Label(ModuleRun)While(1)     StepNum=2     Call(Generate)If(exists(module))     If(Module=1)          Message(&tbox;1005)     EndifElse     Message(&tbox;1004)Endif     //Congratulationsongeneratingthedocument     Result=MessageBox(DefTitle;&tbox;1)     BreakEndwhileIf(Reveal=1)     RevealCodes     DisplayRewriteEndifIf(exists(module))     If(Module=1)          RETURN     EndifEndifQuitCoach()//*********************************************//     ENDMAINPROGRAM   	 (#.   //*********************************************	   	 h)$/   //*********************************************////     SUBROUTINE:FoundDefine   	 @   ////*********************************************Label(NoDefMarkFound)     DefMark=1Return	   	 (
x   //*********************************************////     SUBROUTINE:NoMarksFound   	 @   ////*********************************************Label(NoMarksFound)     ToCMark=1Return	   	 (
x   //*********************************************////     SUBROUTINE:Generate   	 @   ////*********************************************Label(Generate)     WindowMaximize     Message(&tbox;1801)    <     h      //ChooseToolsmenu   	 (
x        hbox1={    
 "Select>  r [BoldOn]?
   
 Tools>   [BoldOff]?
   
 Ԁfromthemenubar";   	 	                 4     `	 "";          }    4     `	     
    	 H
        hbox2={    
 "Select>  r [BoldOn]?
   
 Generate>   [BoldOff]?
   
 ԀfromtheTools   	 `	   menu";              4     `	 "";          }     hbox3={    
 1;   	 0             }    4     `	     
    	 H
        ToolsMenu(&valid)     allow={    
           1638;    h //Generate   	 P             }     exallow={    
      0;         < //Generatenoexecute   	 0             }     accel={    
           103;    < //(G)enerate   	 p             }     exaccel={    
      0;         < //Generatenoexecute   	  P             }     NoSubMenu(&subval;&subacl;&exsubacl;&subs)     sbox={    `	     
      "Choose>  r [BoldOn]?
   
 Generate.";   	 X             }     funkey={    
      8132;    <     h //Alt+F5   	 F             }     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   	 % *                 4 Result=PostIt(DefTitle;&tbox;0;10;0;3;0)              4 ShowMenu("Coach";&sbox;60;13ScrnMode;4;11;0;0)   	 'n",             CaseOf1592:     //ToolsmenuID   	 (#.                 4 PosLineDown          CaseOf529:     //Accelmenu   	 +V&1                 4 Result=PostIt(DefTitle;&tbox;0;10;0;3;0)              4 PullDownDlg              4 Type("t")   	 ^-(4   Ї          CaseOf8132:     //Functionkey   	                      CaseOf8085:     //Alt+=   	 @                 4 Result=PostIt(DefTitle;&tbox;0;10;0;3;0)              4 sbox={     1;}   	                   4 MenuActive=MenuBarControl("";&hbox1;&sbox;0;0;116;&funkey)          DEFAULT:          //Default   	 
@                 4 sbox={     1;}   	 	                 4 PosLineDown              4 MenuActive=MenuBarControl("";&hbox1;&sbox;0;0;116;&funkey)          EndSwitch          If(MenuActive<>1)              4 If(Show=8132)              4     `	 DisplayRewrite              4     `	 DlgInput(On!)              4     `	 MarkTextDlg              4     `	 TabTabTabTabTab              4     `	 Call(MarkTextSub1)              4 Else              4     `	 If(MenuActive=8132)              4     `	     
 TabTabTabTabTab              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=1638orResult=103)              4     `	     
      CancelMenus()              4     `	     
      DisplayRewrite              4     `	     
      DlgInput(On!)              4     `	     
      GenerateDlg              4     `	     
      Call(GenerateSub1)              4     `	     
 Else              4     `	     
      If(Result=8132)              4     `	     
           TabTabTabTabTab              4     `	     
           Call(MarkTextSub1)              4     `	     
      Endif              4     `	     
 Endif              4     `	 Endif              4 Endif          Endif     Until(MenuActive<>1)     DlgInput(Off!)Return	   	 +'2   //*********************************************////     SUBROUTINE:MarkTextSub1   	 @   ////*********************************************Label(MarkTextSub1)     x1={    4 10;   	 (
x             }     x2={    4 65;   	 	             }     y1={    4 14;   	 H
             }     y2={    4 14;   	 (

             }     hotpnt={    
 1;   	 h             }     hotkey={    
 8182;   	 H
                 4 }     Message(&tbox;1902)     helpmsg={    
 "Select>  r [BoldOn]?
   
 Generate...(Indexes,Cross   	 P   Referenceetc.)";              4     `	 "";              4 }     Result=0SaveScrn=0     While(?Dialog=487)          Switch(?DialogControl)              4 CaseOf728:              4     `	 info={     ?DialogControl;   	  p                 4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      5;              4     `	     
      1;              4     `	     
      1;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;         <     h                   	 (#x'                 4     `	     
 }              4     `	 accel={     52;103;   	 $ )                 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;   	 +'2                 4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;   	 .h)5                 4     `	     
      5;              4     `	     
      1;              4     `	     
      1;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;         <     h                   	                  4     `	     
 }              4     `	 accel={     52;103;   	 (
x                 4     `	     
 }              4     `	 aclpnt={     1;1;   	 	                 4     `	     
 }              4     `	 allow={         < 728;   	 H
                 4     `	     
 }              4     `	 Result=InvalidControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg;&allow)          EndSwitch     EndWhile     Call(GenerateSub1)Return	   	    //*********************************************////     SUBROUTINE:GenerateSub1   	 @   ////*********************************************Label(GenerateSub1)     x1={    4 42;   	 `	             }     x2={    4 49;   	 
@             }     y1={    4 13;   	 
             }     y2={    4 13;   	 `	             }     hotpnt={    
 1;   	 
             }     hotkey={    
 8182;   	 0                 4 }     Message(&tbox;1802)     helpmsg={    
 "Selectthe>  r [BoldOn]?
   
 OK>   [BoldOff]?
   
 Ԁbutton";   	                  4     `	 "";              4 }     Result=0SaveScrn=0     While(?Dialog=149)          Switch(?DialogControl)              4 CaseOf0:              4     `	 info={     ?DialogControl;   	                  4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      5;              4     `	     
      18;              4     `	     
      1;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;         <     h                   	 !%                 4     `	     
 }              4     `	 accel={     1;   	 (#x'                 4     `	     
 }              4     `	 aclpnt={     1;   	 $ )                 4     `	     
 }              4     `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg)              4 DEFAULT:              4     `	 info={     ?DialogControl;   	 0*%0                 4     `	     
      ?Dialog;              4     `	     
      0;              4     `	     
      DefTitle;              4     `	     
      5;              4     `	     
      18;   	 .h)5                 4     `	     
      1;              4     `	     
      "Coach";              4     `	     
      1;              4     `	     
      0;         <     h                   	 X                 4     `	     
 }              4     `	 accel={     1;   	                  4     `	     
 }              4     `	 aclpnt={     1;   	 (
x                 4     `	     
 }              4     `	 allow={         < 0;   	 	                 4     `	     
 }              4     `	 Result=InvalidControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;              4     `	 &accel;&aclpnt;&tbox;&helpmsg;&allow)          EndSwitch     EndWhileReturn	   	 0   //*********************************************////     PROCEDURE:Message   	 @   ////*********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf1004:tbox={0    4 "Youhavegeneratedthetableof  %
     
   %
     
  contents.";    
 4(#4(#            "";     }Caseof1005:          //IfrunfromanotherCoach,amoregeneric   	 
   messagetbox={    4 "Youhavegeneratedthedocument.";   	 0             "";     }CaseOf1201:tbox={    4 "";   	 h             "Youneedtohaveadocumentinthe";          "documentwindowbeforeyoucangenerate";          "atableofcontents.";          "";̆     }CaseOf1202:tbox={    4 "Nomarkingsarefoundinthisdocument.";   	 X             "Doyouwantacoachtohelpyoumarktext?";          "";     }CaseOf1203:tbox={    4 "Atablehasnotbeendefinedin";   	  X#             "inyourdocument.Doyouwanttorun";          "aCoachtohelpyoudefineone?";          "";     }CaseOf1801:tbox={    4 "";   	 % *             "Togenerate,";          "";          "Choose>  r [BoldOn]?
   
 Tools>   [BoldOff]?
   
 ,";   	 '(#-        0     "then>  r [BoldOn]?
   
 Generate>   [BoldOff]?
   
 .";  
  (#(#            "or";          "Press>  r [BoldOn]?
   
 Alt+F5>   [BoldOff]?
   
 .";   	 >*%0             "";     }CaseOf1802:   	 l-(4   tbox={    4 "Choose>  r [BoldOn]?
   
 OK>   [BoldOff]?
   
 Ԁtogenerate.";   	                 "";     }CaseOf1902:tbox={    4 "";   	 n	             "Choose>  r [BoldOn]?
   
 Generate...(Tables,CrossReference,   	 6
   etc.)";          "";     }DEFAULT:tbox={    4 "Nomessagefound!";   	              "";     }EndSwitchENDPROC	   	      