WPC{  
                 0   (     0   P     	B      :        W                              K   U              W   E         U        	%            /          {   +   e         	        #        !   `   g          	      E   !   `      !   `   '  	)        "                                                                                 (                    $           (   (               3>$       
   U!         W                   d     M e s s a g e                                                                                                                                  &  A                                                                D                                                                 0                                                                 0                                                                 D                                                                                                                                                                                                                                                                                                                                     f                                                                 f                                                                                                                                       O v e r v i e w D l g                                           L     "                                                                 !                                                                D e f i n e H e a d e r                                         L     #                                                            L     $                                                            
     &                                                            :
     (                                                            	     *                                                            	     )                                                            	     '                                                            &
     %                                                            j
     +                                                            L*     ,                                                            ~     /                                                            	B     .                                                                 -                                                            	j     1                                                            	     0                                                            	`     2                                                            	     3                                                            	j     6                                                            V     5                                                                 8                                                            v     7                                                                                                                                      M e s s a g e    ;                                                            	#     :                                                            <     9                                                            	f-     =                                                            	%     <                                                            	#     ?                                                            	'     >                                                            	%     A                                                            	*     @                                                            	'     C                                                            	+     B                                                            	*     D                                                            	+     E                                                            	f-                                                                    Lp-                    
             5      5+      @      "C      G      }                               C       @            $            a      a                              %      "(      ,      H                        "            F      l      "o      s            -      	      
      -
      
      -
            7      u       
      
      ; 
      
d            "                  -            <      Z      `       q      Fv            7                   }       	(      	      }       :)      } ?*      4      	,4      64      ; :4      
4      l5      -5      5      5      	6      6      -6      )6      	6      	7      	.>      	?      	A      	C      :D      F      	F          
  0  <  G        +  @  c  }                     4        %  H          F  l        	  
  {
  
  
  
  
            
  
  
  
  
  d            <  Z  `  q    p    .                [    (            D   (  )  S)  )  -*  1  2  3  y3  4  ,4  64  T4  t4  4  4  5  l5  5  5  5  5  	6  6  6  6  6  6  7  e7  .>  >  ?  a@  A  A  C  D  D  'E  E  F  F  < @p       ` (      < 
  9 p` (      X< 6X  9  ` +   C o u r i e r         "4  ? x x x  X    Xx   C   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         d     >    	       Name:C:\WP60\MACROS\WPCH_TB2.WPM    Q (# Page@
   
 
     
 1
   
 A
   
 Ԁof17   	           October15,1993!
   
      V (# "(   US: !  &  US  ,     (       5:43pm!
   
 HD      V #| d        " B D O ??=K ' 	            " B D O ??=K ' 	            " B D O ??=K ' 	                 ? x x x  X    Xx   $ r 5 d d d  X    d   n 2 ` ` `  X    `                          
    !    W        X X   	    {              iCa:; ր o  [      X     `	 P
      h X     p `      x h   ! (#   Xo //*********************************************   	       ////     NAME:    `	     P
      WPCHTB05.WPM   	 N   //     PURPOSE:     MakingaHeaderRow   	     // //*********************************************  //RevisionHistory////     8/5/93Textchangesforhangovers   	 	8   //     7/26/93    P
 Textchanges   	 
	   //     6/7/93    P
 Changeitemsforconsistency.   	 6
     %
    
  Global(ScrnMode;MsgAdj;DefTitle;Title)%
    
 Global(CancelMsg;HotElement;SaveScrn;Areahgt)Global(w;h;tbox;hbox;mbox;helpmsg)select[0]=0Areahgt=19DefTitle="Coach"          //Maintitlename   	    Title="Coach"ScrnMode=?ScreenHigh24Use("wpchlibr.wpm")                    h //Sharedlibraryfile   	  p
   Use("wpchlbtb.wpm")If(NotExists(Module))     ScreenSetup()     If(?Dialog<>36)          ColorScheme()     EndifEndifIf(?BlockActive)     BlockoffEndifOnCancelCall(CancelCoach)Error(off!)MsgAdj=DlgMessage()CancelMsg=0	   	 7!   //*********************************************////     MAINPROGRAM:Coach   	 N   ////*********************************************//Label(menu)WindowMaximizeCancel(Off!)Success=0If(NOTExists(Module))     Call(OverviewDlg)                    h //OverviewDialog   	 6
   EndifCall(DefineHeader)          If(NotExists(Module))               ExitTableEdit()          Endif    `	    	  p
   If(NotExists(Module))     RestoreStates()EndifRETURN//*********************************************//     ENDMAINPROGRAM   	    //*********************************************	   	 X   //*********************************************////     SUBROUTINE:OverviewDlg   	 N   ////*********************************************Label(OverviewDlg)     Message(&tbox;1100)               h //WelcomeScreen   	         Result=Welcome("Coach";&Tbox)If(Result=1)          RETURNEndifRETURN	   	    //***************************************************************////     SUBROUTINE:DefineHeader   	 N   ////***************************************************************Label(DefineHeader)While(?MouseLeft)EndwhileEditTable()     keyequiv={    P
      51;     //3Row   	 -                      `	     P
      114;     //rRow   	                       `	     P
 }     Message(&mbox;1200)               h     X      //placecursorin1strow   	 
"	        TableEditControl(21;23;26;23;0;&mbox;&keyequiv)If(?RowHeader=1)     Message(&tbox;1206)     Result=MessageBox("Coach";&tbox;2)              p    	 e        If(result=1)          If(NOTExists(Module))               ExitTableEdit()          Endif          RETURN     Else          Go(DefineHeader)     EndifElse     Type(NTOC(114))Endif	   	 9   //**************************************************************//           RowFormatDialog#49   	 W    //**************************************************************     x1={     28;34;     //HeaderRow,OK   	 L             }     x2={     45;42;   	              }     y1={     17;19;   	 	8             }     y2={17;19;          }     hotkey={    `	     P
 104;          //hforheaderrow   	                       `	     P
 8182;     //EnterforOK   	 +
{
                  }     hotpnt={0;1;}     helpmsg={    P
 "Select>  r [BoldOn]?
   
 HeaderRow.";   	  p
                      `	     P
 "";               }     Result=0SaveScrn=0     While(?Dialog=49)               h     X //TableRowFormatDialog   	 o
        tbox={    `	     P
 "Select>  r [BoldOn]?
   
 HeaderRow,";   	 f                      `	     P
 ">   [BoldOff]?
   
 Ԁthenchoose>  r [BoldOn]?
   
 OK.";                   `	     P
 "";               }          Switch(?DialogControl)               CaseOf0:                    h //OK   	                       `	 info={     0;               h     X      //ControlID   	 Z                      `	     P
           49;          h     X      //DialogID   	 Q                      `	     P
           0;               h     X      //don'tallowarrows   	                        `	     P
           "Coach";    h     X      //title   	 O!                      `	     P
           5;               h     X      //xposforPostit   	 F"                      `	     P
           9;               h     X      //yposforPostit   	 #                      `	     P
           1;               h     X      //HintButton   	 D$                      `	     P
           "Coach";    h     X                //title   	 ;%                      `	     P
           1;               h     X                //RestoreScreen   	 &                      `	     P
           0;               h     X                //Reserved   	 9'                      `	     P
 }                   `	 accel={     55;104;    h     X                //7,HHeaderRow   	 )                      `	     P
 }                   `	 aclpnt={0;0;}               0    `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg)  
  `	(#`	(#                 CaseOf3848:               h //OnHeaderRow   	 q#/   Ѐ                   `	 info={     3848;          h     X                //controlID   	 $h0                      `	     P
           49;          h     X                //DialogID   	 $ 1                      `	     P
           0;               h     X                //don'tallowarrows   	 f% 2                      `	     P
           "Coach";    h     X      //title   	 
&]!3                      `	     P
           5;               h     X                //xposforPostit   	 &"4                      `	     P
           9;               h     X                //yposforPostit   	 ['"5                      `	     P
           1;               h     X                //HintButton   	 (R#6                      `	     P
           "Coach";    h     X                //Title   	 (#7                      `	     P
           1;               h     X                //RestoreScreen   	 P)$8                      `	     P
           0;               h     X                //Reserved   	 )G%9                      `	     P
 }                   `	 accel={     55;104;    h     X                //7HHeaderRow   	 E+&;                      `	     P
 }   	 +<'<                      `	 aclpnt={0;0;}               0    `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg)  
  `	(#`	(#                 DEFAULT:̀                   `	 info={     ?DialogControl;               //ControlID   	 C                      `	     P
           49;          h     X                //DialogID   	                       `	     P
           0;               h     X                //don'tallowarrows   	 A	                      `	     P
           "Coach";    h     X      //title   	 	8                      `	     P
           5;               h     X                //xposforPostit   	 
	                      `	     P
           9;               h     X                //yposforPostit   	 6
                      `	     P
           1;               h     X                //HintButton   	 -                      `	     P
           "Coach";    h     X                //title   	                       `	     P
           1;               h     X                //RestoreScreen   	 +
{
                      `	     P
           0;               h     X                //Reserved   	 
"	                      `	     P
 }                   `	 accel={     55;104;    h     X                //7hHeaderRow   	  p
                      `	     P
      }                   `	 aclpnt={0;0;}                   `	 allow={     3848;0}   	 e                  0    `	 Result=InvalidControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg;&allow)  
  `	(#`	(#            ENDSwitch     EndWhileIf(?RowHeader=1)     Message(&tbox;1210)     Result=MessageBox("Coach";&tbox;1)              p    	 D   ELSE     Message(&tbox;1215)     Result=MessageBox("Coach";&tbox;2)              p    	 9        If(result=1)          ExitTableEdit()          RETURN     Else          Go(DefineHeader)     EndifEndifVar[4]=0RETURN	   	 o)   //***********************************************////     PROCEDURE:Message   	 N   ////***********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf1100:    P
           //WelcomeScreen   	 
	        tbox={0    `	 "Headerrowsappearatthetopofthetableeachtimethe";    6
 `	(#`	(#                     `	 "tablespansapagebreak.";                   `	 "";̀"++";   	 +
{
   Ѐ"Name	Address	Phone";   	 
"	   Ѐ"*,";   	 y	   Ѐ"		";   	  p
   Ѐ"*,";   	    Ѐ"		";   	 n   Ѐ"--";   	 e                      `	 "";               }CaseOf1200:    P
           //Positioncursorinfirstrowoftable   	         mbox={"Placethecursorintherowthatyouwanttobetheheader";   	 X                  "row,  %
     
  thenchoose>  r [BoldOn]?
   
 Row.";               "";          }CaseOf1206:    P
                //alreadyinaheaderrow   	    tbox={     "Yourcursorisinarowthathasalreadybeendesignated";     "asaheaderrow.Choose>  r [BoldOn]?
   
 OK>   [BoldOff]?
   
 Ԁtoselectanotherrow.";     "";     }CaseOf1210:    P
                //HeaderRowcreated   	 8$   tbox={     "Youhavecreatedaheaderrowinyourtable.Noticethe";   	 /%                  "asteriskonthestatuslinebelow,nexttothecelladdress";               "(forexample,CellA1*).Thisasterisktellsyouthatthe";               "rowthecursorisinisaheaderrow.";               "";          }CaseOf1215:    P
           //noheaderrowcreated   	 p!,        tbox={    `	 "Somehownoheaderrowwascreated.Tryagain.";   	 "g-                      `	 "";          }DEFAULT:    `	     P
           //Ifnonewerefound   	 Z% 2        tbox={    `	 "Messagenotfound!";   	 &Q!3                      `	 "";               } %
     
       hbox={    `	 "Nohintavailable.Whattypeofinformation";   	 (#7                      `	 "wouldbehelpfulhere?";                   `	 "";               }ENDSWITCH   	 +0'<   ENDPROC8       