WPC(  
                 0   (     0   D     	B      .  	B   *   K  	D   3   u             0  @       p       "  #     %   	      &   U      #&  	%      ;&      /   A&        b(        n(   	      p&   !   `   ~(  	)      (  "   {   '                     q  v&                                                                                                                      (                    $           (                  3/;$       
    !    W                   d    &     0        d          d       '                          d x    d   M e s s a g e                                                                                                                                  8  A                                                                 ^                                                                  J                                                                  J                                                                  ^                                                                                                                                                                                                      x                                                                  x    M e n u                                                         ~                                                                        - I                                                         ٸ      - E                                                         
      - B                                                         
                                                                                                                                                                                                                                                                                                                                                                                                                                                                              \                                                                  z                                                                                                                                       M o d i f y                                                                                                                                                                                             - I                                                               - E                                                               - B                                                                                                                                                                                                                                                            X                                                                      	                                                                                                                                                                                                    
                                                            8      - I                                                               - E                                                               - B                                                         v                                                                 h                                                                                                                                       
                                                                                                                                                                                                                                                               J                                                                                                                                                                                                                                                                                                                                         D e s c r i p t i o n                                           $                                                                                                                                                                                                            M e s s a g e                                                                	r(                                                                 X                                                                 	L                                                                 	8)                                                                 	(                                                                 	)                                                                 	\)     !                                                            	0                                                                  	"*     #                                                            	h6     "                                                            	0     %                                                            	;     $                                                            	6     '                                                            	ZA     &                                                            	;     )                                                            	G     (                                                            	~A     +                                                            	H     *                                                            	H     -                                                            	I     ,                                                            	H     /                                                            	J     .                                                            	J     0                                                            	J     1                                                            	L                                                                    ٲL              $      R             5      5+            "                                      &      C )      @C      L      $\      e      aw      a}      S       S      b      i           6            @(
      	@B
    @K
    @X
    A
      
A
    A
      
A
    AC      
AN     
A      
A     
A      
A     
AJ      
AU     
A      
A    A      
A
    A 
    
Ay
      
A
     
A
      
A
     
      A      
A     
      B            4      D      g                  g      )      .      y                                                            @      	@    @    @    AY      
Ad    A      
A    A%      
A1    AP    
      A3      
A>     
      B                        |                  g                                    @      	@2    @?    @H    Ad      
Ao    A    A    A      
A    A    
A      
A    A`      
Ak    A      
A    A      
A    o      A      
A      
8      B?      G      {                                    g                  L      gj      ~                  g                  +      gI      ^      d      j      p      v      |            -      o                        -      )      	      	      	*      	+      	+      	`3      	
:      	@      	H      	O      	P      	Q      :\R      kT      	uT        $  R  ~            +                &  C  L  R  \  w      S  b  o        6      /  E  k	  y	  	  	  	  	  (
  
  
  C      J      y
  
            &  4  ;  D          )  .  y                                Y    %    3              |                                  d      `      o    8  ?  G  m  {                    ,  L  j  ~                +  I  ^  d  j  p  v  |      o                     *  *  +  )+  +  +  `3  3  
:  u:  @  1A  H  {H  O  P  P  P  Q  Q  \R  R  oS  kT  uT   Q M S   P S   8 1 5   QMSPS815.PRS hhhhhhhh                                                                                                                                                      H    Kd".D  < 
  9 p` (      X< 6X  9  ` +   C o u r i e r          H@  B  ? x x x  X    Xx   O r 5 d d d  X    d   n 2 ` ` `  X    `    ? x x x  X    Xx l    q #| x  -      " B D O ??=K ' 	             
    !    W o  [      X     `	 P
      h X     p `      x h   ! (#   Xo //*********************************************////     NAME:    P
              WPCH_TBL.WPM   	 @   //     PURPOSE:     Frontendoftablescoach  Tables     	 X   //              `	     P
      RequiresWPCHTB01.WPM,WPCHTB02.WPM,    	     //           )     `	 )     `	     P
      WPCHTB03.WPM,WPCHTB04.WPM,WPCHTB05.WPM,   	    //          ,     `	     P
 ,      WPCHTB06.WPM   	 `	   ////*********************************************%
    
 Global(ScrnMode;MsgAdj;DefTitle;Title)Global(CancelMsg;HotElement;SaveScrn;Areahgt)Global(w;h;tbox;hbox;helpmsg;Module;Editit)select[0]=0Areahgt=19DefTitle="Coach"                //Maintitlename   	 h   Title="Coach- %
    
 - "ScrnMode=?ScreenHigh24Use("wpchlbtb.wpm")Use("wpchlibr.wpm")               h     X //Sharedlibraryfile   	 P   If(NOTExists(Module))     ScreenSetup()     If(?Dialog<>36)          ColorScheme()     EndifEndifIf(?BlockActive)     BlockoffEndifModule=0OnCancelCall(CancelCoach)Error(off!)MsgAdj=DlgMessage()CancelMsg=0	   	 !%   //*********************************************////     MAINPROGRAM:Coach   	 N   ////*********************************************WindowMaximizeCancel(Off!)Message(&tbox;1100)                //WelcomeMessage,TableExample   	 A	   Result=Welcome("Coach";&tbox)If(Result=1)     QuitCoach() %
     
  Endif	   	 +
{
   //*********************************************////     SUBROUTINE:Menu   	 N   ////*********************************************Label(Menu)DefTitle="TablesCoach"        	    Success=0     Steps=    `	 {    P
 "~Createabasictable";   	 	8                      `	     P
 "~Edityourtable";                   `	     P
 "~Addtexttoyourtable";                   `	 }CreateTable=0AddText=0ModifyTable=0Message(&tbox;1105)                //WelcomeScreenMainMenu   	    w=60h=15               DlgCreate(Result;DefTitle;DlgNoOK!+DlgNoCancel!+DlgExit!;;;w;h)          DlgControl(CtrlRadioButton!;createtable;"~Createatable";;2;h12)          DlgControl(CtrlRadioButton!;modifytable;"~Edityourtable";;2;h11)               DlgControl(CtrlLabel!;;"Joincells";;11;h10)               DlgControl(CtrlLabel!;;"Changecolumnwidths";;11;h9)               DlgControl(CtrlLabel!;;"Createaheaderrow";;11;h8)               DlgControl(CtrlLabel!;;"Positionthetable";;11;h7)          DlgControl(CtrlRadioButton!;addtext;"~Addtexttoyourtable";;2;h6)          DlgControl(CtrlPushButton!;;"~Quit...Esc";StyCancel!;w14;h2)         	 D                  DlgControl(CtrlLabel!;;"Addoredittext";;11;h5)               DlgControl(CtrlLabel!;;"Addordeleterows";;11;h4)          ForNext(x;1;tbox[0])    h     X      //AddWelcomeMessage   	 9                  DlgControl(CtrlLabel!;;tbox[x];;2;x;w1;1)          Endfor     DlgEndIf(Result=1)       CancelCoach()EndifModule=1If(createtable)               //Create   	 o)        Run("WPCHTB01.WPM")ElseIf(addtext)               //AddText   	  
+        Run("WPCHTB04.WPM")ElseIf(Modifytable)     //ModifyTable   	 "[-        Call(Modify)ElseGo(Menu)EndifEndifEndifIf(CreateTable)     w=38h=8     Modify=0     AddText=0     If(Editit=1)          //ifcreate,thendecidetoeditexisting   	 (#7             Go(Modify)     Endif          Message(&tbox;3035)          DlgCreate(Result;DefTitle;DlgNoOK!+DlgNoCancel!+DlgExit!;;;w;h)   	 +$'<                  DlgControl(CtrlRadioButton!;modify;"~Edityourtable";;2;h5)               DlgControl(CtrlRadioButton!;addtext;"~Addtexttoyourtable";;2;h4)               DlgControl(CtrlPushButton!;;"~Quit...Esc";StyCancel!;w14;h2)    !    	 N                  ForNext(x;1;tbox[0])    h     X      //AddMessage   	                       `	 DlgControl(CtrlLabel!;;tbox[x];;2;x;w1;1)               Endfor          DlgEnd     If(Result=1)               CancelCoach()     Endif     If(modify)    P
                   	              Call(Modify)     ElseIf(AddText)          Run("WPCHTB04.WPM")     %
     
 EndifEndifEndifGo(Menu)	   	 e   //*************************************************////     FUNCTION:ModifyModules   	 N   ////*************************************************LABEL(Modify)Join=0Width=0Header=0Position=0w=45h=10Message(&tbox;1110)DlgCreate(Result;"Coach";DlgNoCancel!+DlgNoOK!+DlgExit!;;;w;h)     DlgControl(CtrlPushButton!;;"~MainMenu";StyDefault!+StyOK!;w28;h-2)     DlgControl(CtrlPushButton!;;"~Quit...Esc";StyCancel!;w14;h2)          DlgControl(CtrlRadioButton!;join;"~Joincells";;2;h7)          DlgControl(CtrlRadioButton!;width;"Changecolumn~widths";;2;h6)          DlgControl(CtrlRadioButton!;header;"Createa~headerrow";;2;h5)          DlgControl(CtrlRadioButton!;position;"~Positionthetable";;2;h4)          ForNext(x;1;tbox[0])    h     X      //AddWelcomeMessage   	 
                  DlgControl(CtrlLabel!;;tbox[x];;2;x;w1;1)          EndforDlgEndIf(Result=1)          CancelCoach()ElseIf(Result=1)     Go(Menu)ElseIf(Join)     Message(&tbox;3005)     Call(Description)     Run("WPCHTB02.WPM")ElseIf(width)     Message(&tbox;3010)     Call(Description)     Run("WPCHTB03.wpm")ElseIf(header)     Message(&tbox;3015)     Call(Description)     Run("WPCHTB05.WPM")ElseIf(Position)     Message(&tbox;3020)     Call(Description)     Run("WPCHTB06.WPM")EndifEndifEndifEndifEndifEndifGo(Modify)Return	   	  $P0   //****************************************************************////     SUBROUTINE:Description   	 N   ////***************************************************************Label(Description)Result=MessageBox("Coach";&tbox;2)If(Result=1)     Go(Modify)EndifRETURN	   	 -   //*********************************************////     PROCEDURE:Message   	 N   ////*********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf1100:    P
           //WelcomeScreen   	 
	             tbox={    `	 "";   	 -                      `	 ">  r [BoldOn]?
   
 CreatingaTable>   [BoldOff]?
   
 Ԁ";                   `	 "";               0    `	 "Youcancreateatabletoorganizeyourdataintocolumns";  
  `	(#`	(#  Ѐ                   `	 "androws.";   	 y	                      `	 "";̀"";   	    Ѐ">  r [BoldOn]?
   
 OperatingExpenses>   [BoldOff]?
   
 Ԁ   	 n   Ѐ";   	 e   Ѐ"*,";   	 
   Ѐ"Expense	ThirdQuarter	FourthQuarter	Difference";   	 c
   Ѐ"*,";   	 
Z   Ѐ"Payroll	289,800.00	330,485.00	40,685.00	14%";   	    Ѐ"*,";   	 X   Ѐ"Taxes	12,075.00	35,500.00	23,425.00	194%";   	 O   Ѐ"*,";   	    Ѐ"Rent	29,600.00	29,600.00	0.00	0%";   	 M   Ѐ               "----";   	 D                  }CaseOf1105:     tbox={    `	 "Choosefromthefollowingtasks:";   	 7!                  }CaseOf1110:     tbox={    `	 "Choosefromthefollowingtasks:";   	 z&                  }CaseOf3000:    P
           //WPCHTB01.WPM   	 o)        tbox=     {    `	    	  f*        "Atableisagridstructureorganizedinhorizontal>  r [BoldOn]?
   
 rows>   [BoldOff]?
   
 Ԁand"     "vertical>  r [BoldOn]?
   
 columns>   [BoldOff]?
   
 .Theareawhereacolumnandrowintersect"     "iscalleda>  r [BoldOn]?
   
 cell>   [BoldOff]?
   
 .";     "";     "ColumnAColumnBColumnC";     "++";   	 N% 2   Ѐ"Row1CellA1		";   	 %E!3        "*,";   	 &!4   Ѐ"Row2	CellB2	";   	 C'"5   Ѐ"*,";   	 ':#6   Ѐ"Row3		CellC3";   	 (#7   Ѐ"--";   	 8)$8        "";          }CaseOf3005:    P
                //WPCHTB02.WPM   	 +$'<        tbox={0    `	 "Youcanjoincellsinyourtabletocreateavarietyof";        `	(#`	(#                     `	 "cellwidthsandheights:";                   `	 "";̀"";   	    Ѐ"";   	 L   Ѐ"*,";   	 C   Ѐ"			";   	    Ѐ"*";   	 A	   Ѐ"			";   	 	8   Ѐ"---";   	 
	                      `	 "";               }CaseOf3010:    P
                //WPCHTB03.WPM   	 +
{
        tbox={0    `	 "Thecolumnwidthshavebeenadjustedinthetablebelow:";    
"	 `	(#`	(#                     `	 "";̀"++++";   	  p
   Ѐ"				";   	    Ѐ"*,";   	 n   Ѐ"				";   	 e   Ѐ"*,";   	 
   Ѐ"				";   	 c
   Ѐ"----";   	 
Z                      `	 "";               }     CaseOf3015:    P
                //WPCHTB05.WPM   	 M        tbox={0    `	 "Headerrowsappearatthetopofthetableeachtimethe";    D `	(#`	(#                     `	 "tablespansapagebreak.";                   `	 "";̀"++";   	 9   Ѐ"Name	Address	Phone";   	     Ѐ"*,";   	 7!   Ѐ"		";   	 ."   Ѐ"*,";   	 #   Ѐ"		";   	 ,|$   Ѐ"--";   	 #%                      `	 "";               }	   	  f*   CaseOf3020:    P
                //WPCHTB06.WPM   	            tbox={0    `	 "Youcanpositionatablehorizontallyonthepage:";    W  `	(#`	(#                     `	 "";̀"


";   	    Ѐ"	++		++		++	";   	 L   Ѐ"	*,		*,		*,	";   	 C   Ѐ"	*,		*,		*,	";   	    Ѐ"	--		--		--	";   	 A	   Ѐ"	Left		Right		Center	";   	 	8   Ѐ"						";   	 
	   Ѐ"						";   	 B
   Ѐ"


";   	 9                      `	 "";               }CaseOf3035:     tbox={    `	 "Choosefromthefollowingtasks:";   	 #                      `	           }CaseOf3040:     tbox={    `	 "Nowthatyouhavecreatedandedited";   	 f                      `	 "atable,youcan:";                   `	 "";          }Caseof3050:     tbox={    `	 "YouhavecompletedtheCoachontables.";   	  P                      `	 "";               }DEFAULT:    `	     P
           //Ifnonewerefound   	          tbox={    `	 "Messagenotfound!";   	 C!                      `	 "";               }     hbox={    `	 "Nohintavailable.Whattypeofinformation";   	 /%                      `	 "wouldbehelpfulhere?";                   `	 "";               }ENDSWITCHENDPROC8          