WPCq  
                 0   (     0   P     	B      :        W     
                b        A   U      F        M   	      ^   U      d  	%      |      /          {      !   `   ]   !   `     #     ,   	      ;   !   `     	)      }  "                                                                                                                           (                    $           (   (               3>$       
   U!         W                   d     M e s s a g e                                                                                                                                  $  A                                                                                                                                   p                                                                  p                                                                                                                                                                                                                                                                        x                                                                  d                                                                  d                                                                  x                                                                                                                                                                                                      t                                                                  t    O v e r v i e w D l g                                           @                                                                                                                                        J o i n                                                         @                                                                  @                                                                                                                                    
                                                                  
                                                                  @
                                                                  
                                                                  @*                                                                  x                                                                  	4                                                                  r                                                                  	d                                                                  	                                                                  	R                                                                  	                                                                  	d                                                                  t                                                                  t                                                                          M e s s a g e                                                                 	"                                                                                                                                    	'                                                                  	L$                                                                  	#                                                                  	6%                                                                  	p$                                                                  	&                                                                  	Z%                                                                  	&                                                                  	'                                                                    @'        .      U             K      5[      5o            "                         ^      d      k      C n      @            $            a      a                                    "                  t                              "            2	      D	      "G	      K	      	      -	      
                  -                  7      u       
            \      \   
       "      C                   7,      u 2      
J       _      Fd            7             2      } 9      	n      	      } 9      :)      } :*      4      	$4      e4      4      4      -4      )5      	5      	5      	t=      	?      	@      :@      B      	B      .  U          4  B  [  o        D  ^  d  k                        t            	  2	  D	  s	  	  	  
    v                      U
  c
         &  -            ,  J  _      B          4  X  a  x    2  n  ,  
        m   Q(  )  O)  )  (*  1  2  3  q3  4  $4  .4  B4  e4  4  4  4  5  5  5  .6  t=  =  ?  ?  @  @  @  :A  A  B  B  < @p       ` (    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JC  	    0 #| 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   	    {    o  [      X     `	 P
      h X     p `      x h   ! (#   Xo //*********************************************   	       ////     NAME:    `	     P
      WPCH 
 _
  %
    
  TB02.WPM   	 N   //     PURPOSE:     Table,JoiningCellsCoach   	    ////*********************************************Global(ScrnMode;MsgAdj;DefTitle;Title)Global(CancelMsg;HotElement;SaveScrn;Areahgt)Global(w;h;tbox;hbox;helpmsg;blockmsg;x1;x2;y1;y2)select[0]=0Areahgt=19DefTitle="Coach"                     //Maintitlename   	    Title="Coach"ScrnMode=?ScreenHigh24Use("wpchlbtb.wpm")Use("wpchlibr.wpm")                    h //Sharedlibraryfile   	    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
                  If(Result=1)                   `	 QuitCoach()               EndifEndif	   	 y	   //***************************************************************//          Joincells?   	 W    //***************************************************************     Call(Join)     If(NOTExists(Module))          ExitTableEdit()     Endif     If(NotExists(Module))          RestoreStates()     Endif     RETURN//*********************************************//     ENDMAINPROGRAM   	    //*********************************************	   	 +
{
   //*********************************************////     SUBROUTINE:OverviewDlg   	 N   ////*********************************************Label(OverviewDlg)     Message(&tbox;1100)               h //WelcomeScreen   	         Result=Welcome("Coach";&tbox)If(Result=2)     QuitCoach()Else     RETURNEndif	   	 +
{
   //*************************************************************////     SUBROUTINE:JoinCells   	 N   ////**************************************************************LABEL(Join)While(?MouseLeft)EndwhileDisplayRewriteEditTable()    `	     P
                //getintoEditMode   	 
	   FirstCell=""Keypress={    `	 74;                     //Jforjoin   	 -                      `	 106;                     //jforJoin   	                       `	 55;                     //7forjoin   	 +
{
                      `	     P
 }x1=62x2=68y1=23y2=23Message(&blockmsg;1205)               h //turnonblock,selectJoin   	 
   Showcode(Savescreen!)Result=TableBlockEdit("Coach";&blockmsg;1;x1;x2;y1;y2;&keypress)If(NOT?BlockActive)     Go(Join)Endif     While(?MouseLeft)     Endwhile     Type(ntoc(106))                    h //jforjoin   	 D   DisplayRewrite     x1={     29;41;     //YES,NO   	               }     x2={     39;49;   	 ."             }     y1={     13;13;   	 ,|$             }     y2={13;13;          }     Hotkey={    `	     P
 121;          //YFORYES   	 (                      `	     P
 110;          //NforNO   	 o)                  }     Hotpnt={1;1}     helpmsg={    P
 "Choose>  r [BoldOn]?
   
 Y>   [BoldOff]?
   
 estojoinblockedcells.";   	 d!,                      `	     P
 "";               }     Result=0SaveScrn=0     Message(&tbox;1215)     While(?Dialog=0)               h     X           //JoinCells(Y/N)   	 Z% 2             Switch(?DialogControl)               CaseOf2:                    h     X                     //No   	 O'"5                      `	 info={     2;               h     X           //ControlID*   	 'F#6                      `	     P
           0;               h     X                //DialogID   	 (#7                      `	     P
           0;               h     X                //don'tallowarrows   	 D)$8                      `	     P
           "Coach";    h     X                //title   	 );%9                      `	     P
           99;          h     X                //xposforPostit   	 *%:                      `	     P
           15;          h     X                //yposforPostit   	 9+&;                      `	     P
           0;               h     X                //Hintbutton   	 +0'<                      `	     P
           "Coach";    h     X                //title   	                          `	     P
           1;               h     X                //RestoreScreen   	 W                       `	     P
           0;               h     X                //Reserved   	 N                      `	     P
 }                   `	 accel={     121;110;    h     X //Yesorno   	 L                      `	     P
 }                   `	 aclpnt={1;1}               0    `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg)  
  `	(#`	(#                 CaseOf4368:               h     X                         p //Yes   	 6
                      `	 info={     4368;          h     X                //ControlID*   	 -                      `	     P
           0;               h     X                //DialogID   	                       `	     P
           0;               h     X                //don'tallowarrows   	 +
{
                      `	     P
           "Coach";    h     X                //title   	 
"	                      `	     P
           99;          h     X                //xposforPostit   	 y	                      `	     P
           15;          h     X                //yposforPostit   	  p
                      `	     P
           0;               h     X                //Hintbutton   	                       `	     P
           "Coach";    h     X                //title   	 n                      `	     P
           1;               h     X                //RestoreScreen   	 e                      `	     P
           0;               h     X                //Reserved   	 
                      `	     P
 }                   `	 accel={     121;110;    h     X //Yesorno   	 
Z                      `	     P
 }                   `	 aclpnt={1;1}               0    `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg)  
  `	(#`	(#                 DEFAULT:                   `	 info={     ?DialogControl;               //ControlID   	                       `	     P
           0;               h     X                //DialogID   	 B                      `	     P
           0;               h     X                //don'tallowarrows   	 9                      `	     P
           "Coach";    h     X                //Title   	                        `	     P
           99;          h     X                //xposforPostit   	 7!                      `	     P
           15;          h     X                //yposforPostit   	 ."                      `	     P
           0;               h     X                //HintButton   	 #                      `	     P
           "Coach";    h     X                //Title   	 ,|$                      `	     P
           1;               h     X                //RestoreScreen   	 #%                      `	     P
           0;               h     X                //Reserved   	 z&                      `	     P
 }                   `	 accel={     121;110;    h     X           //Yesorno   	 (                      `	     P
      }                   `	 aclpnt={1;1}                   `	 allow={     4368;2}   	  
+                  0    `	 Result=InvalidControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg;&allow)  
  `	(#`	(#            ENDSwitch     EndWhileMessage(&tbox;1220)Result=MessageBox("Coach";&tbox;5)If(Result=1)          Go(Join)EndifReturn//***************************************************************	   	 8)$8   //*********************************************////     PROCEDURE:Message   	 N   ////*********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf1100:    P
           //WelcomeScreen   	 
	             tbox={0    `	 ">  r [BoldOn]?
   
 JoinCellsinaTable>   [BoldOff]?
   
 .";    - `	(#`	(#                     `	 "";                   `	 "Youcanjoincellsinyourtabletocreateavarietyof";                   `	 "cellwidthsandheights. %
    
  ";                   `	 "";                   `	 "";   	  p
   Ѐ"";   	    Ѐ"*,";   	 n   Ѐ"			";   	 e   Ѐ",";   	 
   Ѐ"			";   	 c
   Ѐ"---";   	 
Z                      `	 "";               }CaseOf1205:     blockmsg={    P
 "Blockthecellsyouwanttojoin.";   	 M                      `	     P
 "Choose>  r [BoldOn]?
   
 Join>   [BoldOff]?
   
 .";   	  P                      `	     P
 "";                   `	     P
 }CaseOf1215:     tbox={    `	 "Choose>  r [BoldOn]?
   
 Yes>   [BoldOff]?
   
 .";   	 O!                      `	 "";                   `	 }CaseOf1220:tbox=     {     "Doyouwanttojoinmorecells?";   	 E'                      `	 "";               }DEFAULT:    `	     P
           //Ifnonewerefound   	  1+        tbox={    `	 "Messagenotfound!";   	 !,                      `	 "";               }     hbox={    `	 "Nohintavailable.Whattypeofinformation";   	 $$t0                      `	 "wouldbehelpfulhere?";                   `	 "";               }ENDSwitchENDPROC8       