WPC1  
                 0   (                       3  @       s   	      o!        R#   	      u!        ^#   !   `   n#   !   `   #   U      {!  	%      !          !  "   ]  -   !     .$   !   0  '  #     C"   !     )   !   0   ,  	)      >,      ^  L,                                                                            (                    $       ?  A    `                                                            r     _                                                            r     b                                                                 a                                                                O p e n i n g s c r e e n                                       S     d                                                                 c                                                                D o c I n f o                                                   S     f                                                                 e                                                                 h                                                            &     j                                                                 i                                                                 g                                                            &     m                                                            Sh     p                                                            	J     o                                                            (     q                                                            	.     r                                                            V     n                                                            	:     t                                                            	     s                                                            	p     v                                                            	4     u                                                            	     w                                                            	     x                                                                 z                                                            	     y                                                            	^     {                                                            	     |                                                                 ~                                                            	X     }                                                            	                                                                 	X                                                                 	:                                                                 x                                                                 d                                                                 P                                                                 <                                                                 <                                                                 P                                                                 d                                                                 x     l                                                            ~     k                                                                                                                             z                                                                 &                                                                 f                                                                 z                                                                 S                                                                 $                                                                 	                                                                                                                                   	$                                                                 	                                                                  	$                                                                 S%                                                                 /                                                                 	+                                                                 (                                                                 	/                                                                 	+                                                                 	/                                                                    /      M e s s a g e                                                                	1                                                                 0                                                                 	<                                                                 	3                                                                 	01                                                                 	4                                                                 	4                                                                 	6                                                                 	4                                                                 	7                                                                 	7                                                                 	8                                                                 	7                                                                 	6:                                                                 	8                                                                 	6:                                                                 	<                                                                    S<           M e s s a g e                                                   /                                                                               c                   }      5            "       $      |            C       @            $            a      a!                              ~            ~      -      	      
      
      -
                         	u
      
       
      	T            ~            *      0      ,	            ^      	      7      u       
      	E      	u      q       7                       !      	`"      #      JD#      JM#    8 m#      7#      } $      	 >$      ^$      	B%      :'      v(      )      	%)      )      +      +      ,      '/,      ,       ,      -      8 >.      .      .      .      /      4*/      0       0      7!1      } '1      	 h1      1      1      71       1      6      } 6      	6      :0>      } >      E      	E      7G       G      EL      } LL      	L      :S      } T      =[      	[[      -[      )]      	M]      	n]      	U^      	`      	^a      	c      	d      	e      :f      Rh      	ph      c        /  t      T  n  |            ;  c      -  ~      U      	  	  
  {
  
  
  
        Z
  u
  
  
    T          *  0  O              |    +        [    	  0            ^        -    E  u           !  `"  #  D#  m#  #  >$  ^$  B%  &  y&  '  (  m(  )  %)  )  &*  +  \+  ,  ,  !-  -  -  >.  .  .  .  /  */  0  0  0  !1  h1  1  1  1  #2  2  !3  3  3  4  5  66  6  6  V7  ;  <  =  0>  q>  fC  %D  wD  D  E  E  {G  G  G  H  H  I  }I  I  pJ  
K  K  EL  L  L  Q  LR  S  S  T  X  Y  Z  Z  =[  [[  [  ]  M]  n]  ]  U^  ^  `  `  ^a  a  c  c  d  d  e  e  f  f  zg  Rh  ph  @  HD  < 
  9 p` (      X< 6X  9  ` +   C o u r i e r         "4  ? x x x  X    Xx   A p p l e   L a s e r W r i t e r   I I f   '3   pet   	 ^-(4  APLW2F.PRS   hhhhhhhh PUBD/DOC1                                                                                                                                          H    lSJ  R  #| w   	      " B D O ??=K ' 	            " B D O ??=K ' 	             "   h;]8C d  CCdn2n28dddddddddd88nnnY                           C C d                           `(`8\             d                                      ȫ                                                                                                                                                                        nnn8! n BBnnn yy          P  n7 c1R      yy     X         yy       c   n               n    n                                                                                      nd                   cccc    cccc                                                          y       MMM    MMM    MMM    MMM֐~n  yRzczXzcyhCBnnshcnnonvy XzXshn~zXyCB Bns s ~    |y                              ~~~~~~~~~~~~~~~~~~~~~~XXXXXXXyyyyyyyyyyyyyyyyyyyyyyBBBBBBBBBBBBnnnnnnn  ssssssssssss             " $ $ 8                                 Đn×rcnksX7SNN                                  mmw}\] ¸                                 Đn×rcnksX7SNN                                  mmw}\] ¸             "  u^8;Noo)CCdy8C88oooooooooo88yyyYQo~čzCyCyd)ooYsdCkz?;w?zdsoY]Nzkkk`CyCyC8CC!CCC     CCCCCC  Cs  oooooȟYddddQ?Q?Q?Q?zddddzzzzkosddkdsoooYYYYsddddkkkkkkzzQ?Q?Q?Q?  o w?????zzzzddȧYYY~]~]~]~]NNNzzzzzzĜkz`z`z`  s?zY~]NkksdzdQ? ?dNy  8 yd;YUUoo oC<oC oC )  NNo44  dd            zz     )N             C'yy      y           y               P  y                         z                       
      < 6X  9  ` +   C o u r i e r         "<    9   +   C o u r i e r   B o l d       f6 2  
p`     S y m b o l         U ''    p`    * I T C   Z a p f   D i n g b a t s         3    p`   4 N e w   C e n t u r y   S c h o o l b o o k         @< 6X   ` #  " W P   B o x D r a w i n g         lR  ? x x x  X    Xx  {    ? x x x  X  / Xx CaO  1 l C l    f Xl 6qg  T     C   X   X sTZ  - e C e     Xe U6  ? x x x  X  #Xx S 
 ɕ   , D FH                 !X     
    !    W $       X ,   X$ %
    
 	 %
    
 	 //*********************************************////     NAME:    
      WPCH_DI0.WPM   	 @   //     PURPOSE:     CoachonGettingDocumentInfo   	 X   ////*********************************************Global(ScrnMode;MsgAdj;DefTitle;CancelMsg)Global(w;h;tbox;hbox;helpmsg)Global(FakeBtns;HotElement;SaveScrn)select[0]=0DefTitle="Coach"     //Main"Coach"name   	 `	   ScrnMode=?ScreenHigh24Use("wpchlibr.wpm")         <     h      //Sharedlibraryfile   	 h   If(NotExists(Module))     ScreenSetup()     ColorScheme()EndifIf(?BlockActive)     BlockoffEndifOnCancelCall(CancelCoach)Error(off!)MsgAdj=DlgMessage()CancelMsg=0//***********************************************************	   	  p   //*********************************************////     MAINPROGRAM:Coach   	 @   ////*********************************************//LABEL(MainCoach)WindowMaximizeCancel(Off!)Message(&tbox;1100)    3 (# //OpeningScreenMessage   	 	   Call(OpeningScreen)    3 (# //OpeningScreenDialog   	 
   Call(DocInfo)Message(&tbox;1001)    <     h     0: (# //Coachconcluded   	 (

   Result=MessageBox("Coach";&tbox;1)RestoreStates()RETURN	   	 0   //*********************************************////     SUBROUTINE:OpeningScreen   	 @   ////*********************************************Label(Openingscreen)     Result=Welcome("Coach";&tbox)     If(Result=1)    0: (# //UserchoseQuit   	 
@             RestoreStates()          QuitCoach()     EndifReturn	   	 
   //***************************************************************     	       м **////     BEGINGETTINGINFO   	 X   ////***************************************************************     	    м **Label(DocInfo)If(?DocBlank)     Message(&tbox;1200)    <     h           //retrievedoc   	 	        Result=Opendocument(&tbox)EndifIf(?DocBlank=1)              < //ifnodoconscreen,   	 `	        Message(&tbox;1240)     Result=Messagebox("Coach";&tbox;8)          If(Result=1)              4 Go(DocInfo)          Else              4 RestoreStates()              4 QuitCoach()          EndifEndif	   	    //***************************************************************     	       м **////     MENUCONTROL   	 X   ////***************************************************************     	    м ***//************SetValidMenuOptionVariables     hbox1={    
 "Choose>  r [BoldOn]?
   
 Tools.";   	 	                 4 }     hbox2={    
 "Choose>  r [BoldOn]?
   
 WritingTools.";   	 V
                 4 }     hbox3={    
 1   	 D

                 4 }     Toolsmenu(&valid)     allow=    `	 {    
      1594;}    < //[WritingTools]*MenuorSubmenuitem   	 L        exallow=    
 {     0;}     //Don'tExecutethatitem   	 d
        accel=    `	 {    
      119;}    < //wforwritingtools   	 ,        exaccel=    
 {     0;}     //Don'tExecutethatitem   	         NoSubMenu(&subval;&subacl;&exsubacl;&subs)     funkey={    
      8136;}    h //Alt+F1validfuntionkey   	 L        sbox={    `	 "Choose>  r [BoldOn]?
   
 WritingTools.";           //Message   	              "";          }     HelpMsg={    
 "Choose>  r [BoldOn]?
   
 Tools,";   	 
                 4 ">   [BoldOff]?
   
 Ԁthen>  r [BoldOn]?
   
 WritingTools.";              4 "";        	 X             }     Altletter=529          //AltTTheAlt+lettertoaccessmenubar   	 8         MenuLetter=116     //TforTools   	  !        Message(&hbox;5000)    <     h           //hint   	 @ #   Repeat     Message(&tbox;1210)    <     8) (# //ChooseTools,thenWritingTools   	 "&        DisplayRewrite     Result=PostIt("Coach";&tbox;0;13;0;2;0)   	 ($x(        MenuActive=0SaveScrn=0     Show=HotSpot(0;0;62;0;altletter;&funkey;1)	   	 %!*   Switch(Show)                   <     h      //Creatingtable   	       //*****************************************//     UserchoosesShowMe   	 @   //******************************************     CaseOf1:    
           //ShowMe   	     ̐     While(?MouseLeft)     Endwhile̐     ShowMenu("Coach";&sbox;52;2;4;0;0;0)    p //coordinatesforhelp,   	 
@   menuover,menudown     Result=Postit("Coach";&tbox;0;13;0;3;0)     //Coordinatesfor   	 
   instructionbox//*****************************************//     UserchoosesTools    h           //Menubaritem   	 
   //******************************************     CaseOf1592:              < //UserchoosesTools   	 0   //*****************************************//     UserpressesAltT   	    //******************************************     CaseOf529:              < //UserpressedAltT             	 h        	 h    Result=Postit("Coach";&tbox;0;13;0;3;0)   	 0   Ѐ         4 PullDownDlg   	              While(?Dialog=1)          Endwhile          Type("t")               //menubarletter   	  P   //********************************************************//     UserPressesAlt+F1   	 X   //********************************************************     CaseOf8136:              <     h                     //UserpressedAlt+F1   	 8             DisplayRewrite          DlgInput(on!)          WritingToolsDlg    <     h //Opencorrectdlgandtabtocorrect   	  X#   item          While(?DialogControl<>867)              4 TabKey          Endwhile	   	 #@(   //*****************************************//     UserpressesAlt=   	 x    //******************************************     CaseOf8085:              <     h           //UserpressedAlt+=   	 X     %
     
            Result=PostIt("Coach";&tbox;0;13;0;3;0)   	               0    4       MenuActive=MenuBarControl("Coach";&hbox1;&sbox;52;2;   	    MenuLetter;&funkey)  
  4(#4(#  //*****************************************//     NoChoice   	 	   //******************************************     DEFAULT:    
           //Default   	 H
             PosLineDown          0    4       MenuActive=MenuBarControl("Coach";&hbox1;&sbox;52;2;   	 (

   MenuLetter;&funkey)  
  4(#4(#       ENDSwitch   	 0   If(MenuActive<>1)    <     h //forintermediatedlgifmenuisused   	         If(Show<>8136)     //UserdidnotpressAlt+F1   	              0    4       Result=MenuControl(&hbox1;&hbox2;&hbox3;&valid;&allow;&exallow;&accel;&exaccel;&subval;&subacl;&exsubacl;&subs;&funkey)  
  4(#4(#                4 DisplayRewrite              4 MenuActive=Result//Stepstomanuallybringupdialog,reducesscreendisplay   	  P   problems   	                  4 If(Result=1594orResult=119)//userselectedW   	                  4     `	 If(?Dialog<>153)     //writingtoolsdlg   	 X                 4     `	     
 CancelMenus()              4     `	     
 CancelDialogs()              4     `	     
 DisplayRewrite              4     `	     
 WritingToolsDlg              4     `	 Endif              4 EndIf     EndifEndifUntil(MenuActive<>1)//*********************************************************	   	 (#x'   //**********************************************************////     WritingToolsDialog#153   	 @   ////**********************************************************Result=0    `	 SaveScrn=0    <    	 `	   If(?Dialog=153)     While(?DialogControl<>867)          Tabkey     EndwhileEndifWhile(?Dialog=153)    <     h //###Dlg   	 (

        x1={    4 21;    
      //DocumentInformation   	 
             }     x2={    4 46;   	 0             }     y1={    4 12;   	              }     y2={    `	 12;   	 P             }     hotkey={    
 100;     //DforDocumentInfo   	 0             }     hotpnt={    
 1;     //RepaintthescreenwhenHotspotschosen   	 p             }     helpmsg={    
 "Choose>  r [BoldOn]?
   
 DocumentInformation.";   	  P                 4 "";          }     Message(&tbox;1220)    < //MessagetoAppearinthisDlg   	 f        Switch(?DialogControl)          CaseOf867:     //SittingonDocumentInformation   	                   4 info={     867;         < //ControlID   	 !                 4     `	 153;          //DialogID   	 N"                 4     `	 0;          //don'tallowarrows   	  f#                 4     `	 "Coach";     //title   	  .$                 4     `	 99;          //xposforPostit   	 !%                 4     `	 17;          //yposforPostit   	 n"&                 4     `	 0;          //Hintbutton   	 6#'                 4     `	 "Coach";     //helpTitle   	 #N(                 4     `	 1;          //RestoreScreen   	 $ )                 4     `	 0;          //Reserved   	 % *                 4 }              4 accel={     52;100;     //4orDforDocumentinformation   	 'n",                 4     `	 }              4 aclpnt={1;1    <     h //repaintscreen?   	 (#.                 4     `	 }    
         	 v)$/             0    4 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg)  
  4(#4(#            DEFAULT:   	 ^-(4                 4 info={     ?DialogControl;     //ControlID   	                     4     `	 153;               //DialogID   	 x                  4     `	 0;               //don'tallowarrows   	 @                 4     `	 "Coach";         < //Title   	 X                 4     `	 99;               //xposforPostit   	                   4     `	 17;               //yposforPostit   	                  4     `	 0;               //HintButton   	 `	                 4     `	 "Coach";         < //HelpTitle   	 (
x                 4     `	 1;               //RestoreScreen   	 
@                 4     `	 0;               //Reserved   	 	                 4 }              4 accel={     52;100;          //4orD   	 H
                 4     `	 }              4 aclpnt={     1;1;}   	 (

                 4 Allow={867;}    <     h //whichcontrolstoallow   	 
             0    4 Result=InvalidControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg;&allow)  
  4(#4(#       ENDSwitchEndwhile    `	     
      //153Dlg   	 P   //***********************************************************	   	 0   //**********************************************************////     WritingToolsDialog#267   	 @   ////**********************************************************Result=0    `	 SaveScrn=0    <    	 `	   While(?Dialog=267)    <     h //###Dlg   	 (
x        x1={    4 51;    
      //DocumentInformation   	 
@             }     x2={    4 58;   	 
             }     y1={    4 18;   	 `	             }     y2={    `	 18;   	 
             }     hotkey={    
 8182;     //EnterforOK   	 0             }     hotpnt={    
 1;     //RepaintthescreenwhenHotspotschosen   	              }     helpmsg={    
 "Choose>  r [BoldOn]?
   
 OK.";   	 P                 4 "";          }     Message(&tbox;1230)    < //ChooseOKwhendone   	         Switch(?DialogControl)          CaseOf0:     //SittingonDocumentInformation   	 ^                 4 info={     0;         < //ControlID   	 &                 4     `	 267;          //DialogID   	                  4     `	 0;          //don'tallowarrows   	 f                 4     `	 "Coach";     //title   	 .~                 4     `	 99;          //xposforPostit   	 F                 4     `	 19;          //yposforPostit   	                   4     `	 0;          //Hintbutton   	 !                 4     `	 "Coach";     //helpTitle   	 N"                 4     `	 1;          //RestoreScreen   	  f#                 4     `	 0;          //Reserved   	  .$                 4 }              4 accel={     1;    <     h //Enteronly   	 n"&                 4     `	 }              4 aclpnt={1;         < //repaintscreen?   	 #N(                 4     `	 }    
         	 $ )             0    4 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg)  
  4(#4(#            DEFAULT:              4 info={     ?DialogControl;     //ControlID   	 v)$/                 4     `	 267;               //DialogID   	 >*%0                 4     `	 0;               //don'tallowarrows   	 +V&1                 4     `	 "Coach";         < //Title   	 +'2                 4     `	 99;               //xposforPostit   	 ,'3                 4     `	 19;               //yposforPostit   	 ^-(4                 4     `	 0;               //HintButton   	                     4     `	 "Coach";         < //HelpTitle   	 x                  4     `	 1;               //RestoreScreen   	 @                 4     `	 0;               //Reserved   	 X                 4 }              4 accel={     8182;    h           //Enteronly   	                  4     `	 }              4 aclpnt={     1;1;}   	 (
x                 4 Allow={0;}         < //whichcontrolstoallow   	 
@             0    4 Result=InvalidControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg;&allow)  
  4(#4(#       ENDSwitchEndwhile    `	     
      //153Dlg   	 
   //***********************************************************RETURN	   	 0   //***********************************************************////     PROCEDURE:Message   	 @   ////************************************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)Caseof1001:     //Coachsuccessful   	 	   tbox={    4 "YouhavecompletedtheCoachonDocumentInformation.";   	 
        "";     }Caseof1100:     //OpeningScreen   	 h   tbox={    4 "";   	 0        ">  r [BoldOn]?
   
 GettingInformationaboutyourDocument>   [BoldOff]?
   
 ";     "";     "Youcandisplayinformationaboutyourdocument,";     "suchasthenumberofcharactersandwords,the";     "documentsize,andtheaveragewordlength.";     "";     }Caseof1200:tbox={    4 "Doyouwanttoopenafile?";   	         "";     }Caseof1210:tbox={    4 "Todisplaydocumentinformation,";   	 x!        "";     "Choose>  r [BoldOn]?
   
 Tools>   [BoldOff]?
   
 ,";   	  X#        "then>  r [BoldOn]?
   
 WritingTools>   [BoldOff]?
   
 .";     "or";     "Press>  r [BoldOn]?
   
 Alt+F1>   [BoldOff]?
   
 .";   	 n"&        "";     }Caseof1220:     tbox={    `	 "Choose>  r [BoldOn]?
   
 DocumentInformation.";   	 d&!+             }Caseof1230:tbox={    4 "Toreturntothedocumentwindow,";   	 )$/        "";     "Choose>  r [BoldOn]?
   
 OK.";   	 "+r&1        }Caseof1240:   	 -(4   tbox={    4 "Youneedtohaveadocumentinthedocument";   	            "windowtocompletethisCoach.";     "";     }DEFAULT:    `	     
           //Ifnonewerefound   	    tbox={    4 "Messagenotfound!"+msg;   	 `	        "";     }  hbox={     "Nohintavailable.Whattypeofinformation";     "wouldbehelpfulhere?";     "";     } ENDSwitchENDPROC  8    `	     `	 `	x`	x  //*****************************************************************	   	 (

    