WPC<3  
                 0   (            0   4                  v           e      ##        %   	       $#   	      D#   	   ,   J#   U      v#  	%      #          #  "   ]  /   U   .   >$   	      l$  #     r$   	      %        %   !   `   %   !     &   !   0  )   !     +   !   0   -   !   `   .  	)      s.      ^  .                                  (                    $       B  A    |                                                                 {                                                                 ~                                                                 }                                                                M a i n C o a c h                                               )                                                                 p                                                                 p                                                                 v                                                                 v                                                                                                                                                                                                                                                                        O p e n i n g S c r e e n                                       ).                                                                 0                                                                 0    B l o c k T e x t                                               )@                                                                                                                                                                                                   )                                                                 	                                                                 V
                                                                 P
                                                                 P
                                                                 \
                                                                 
                                                                 )
                                                                 
    M e n u s                                                       )
                                                                 )p                                                                 	                                                                 x                                                                 	                                                                                                                                  	                                                                 	                                                                 	                                                                 	                                                                 	                                                                 	x                                                                 	                                                                 	                                                                 	                                                                 	                                                                 	                                                                 x                                                                                                                                                                                                   d                                                                                                                                  d                                                                 x                                                                 ~    C o n v e r t C a s e D l g 3 6 1                               )                                                                 )!                                                                 6                                                                 	&                                                                 !                                                                 	6                                                                 	,                                                                 	'                                                                 	01                                                                 	*,                                                                 	01                                                                 	6                                                                    7      M E S S A G E                                                                	8                                                                 f7                                                                 	I                                                                 	$<                                                                 	8                                                                 	z>                                                                 	H<                                                                 	D?                                                                 	>                                                                 	,@                                                                 	h?                                                                 	"A                                                                 	P@                                                                 	G                                                                 	FA                                                                 	G                                                                 	I                                                                    )I            (                 S$          M e s s a g e                                                   7                                                                               a>      aD     UJ      US     Y                         5/            "                        C       @
            $      &      a8      a>                              %     +      g      t      C w      @                                    	      %      -J      ]      c      ,                  -      	      	       	      	
      ,            P            C       
      ?
      4]
      C c
       p
      7
      u 
      

       
      -
            ,                  	
      7      u       
      	      	       q!      q!       !      	"      5#      w _#      #      	R$      :H&      v'      '      	'      ;(      )      )       )      )      4*      R*      X*      4^*      -*      +      70       #0      0      } 0      	0      JA1      JJ1    	:      } 0      JL;      JU;    	D      } 0      JgE      JpE    :N      } oO      X      	X      X      -X      )Y      	Y      	=Z      	1[      	G^      	#a      	a      	kb      	c      :g      0i      	:i      -mi      >  J  Y            /            
      8  D  X  _          +  g  t                  %  J  ]  c  i  ,  A  U          	  	  	
  
  
  
  
    A        P      
  ?
  ]
  
  
  
  
        a    Q    C    6          (          |              
  ,             6!  !  !  "  #  5#  _#  #  R$  $  ,%  H&  '  /'  '  '  ;(  (  {)  )  )  )  4*  R*  X*  ^*  *  +  ,  ,  ,  C-  -  !/  ]/  /  /  /  /  0  0  0  A1  1  7  9  (:  :  L;  ;  A  C  ?D  D  gE  E  K  M  8N  N  ]O  ]U  ]W  W  X  X  X  X  X  Y  Y  =Z  JZ  1[  [  G^  `^  #a  ^a  a  a  kb  xb  c  Bc  g  g  fh  0i  :i  mi  BL a b e l   ( m e n u 1 )   @  CP R O C E D U R E :     M e s s a g e   < 
  9 p` (      X< 6X  9  ` +   C o u r i e r         "4  ? x x x  X    Xx  < 6X  9  ` +   C o u r i e r         HD   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JD    Bb  #| x   
      " 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                       " B D O ??=K ' 	                  < 6X  9  ` +   C o u r i e r         "6 2  
p`     S y m b o l         hU ''    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          <    9   +   C o u r i e r   B o l d         ? x x x  X    Xx  g{ O  1 l C l    / Xl 6 q  TZ     C   X  \ X sTj  - e C e     Xe U]  ? x x x  X   Xx S[  ? x x x  X  'Xx Ca                                                                                                                       
    !    W *      X , (#X   X*  %
    
  //*********************************************//
 %
    
 
 //     NAME:    
            	 .     WPCH_CC2.TXT/
   
 	 WPCH_CC2.WPM   	 @   //     PURPOSE:          CoachonConvertingCase   	 X   ////*********************************************Error(off!)NotFound(off!)Global(ScrnMode;MsgAdj;DefTitle;CancelMsg)Global(w;h;tbox;hbox;mbox)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//***********************************************************	   	      //*********************************************////     MAINPROGRAM:Coach   	 @   ////*********************************************%
 	   
 Message(&tbox;1100)    ; (# //OpeningScreen   	    Call(OpeningScreen)    0 (# //OpeningScreen/MainMenu   	 `	   LABEL(MainCoach)WindowMaximizeCancel(Off!)Call(BlockText)             	 `	   Call(Menus)If(?Blockactive)     BlockoffEndifMessage(&tbox;1005)Result=Messagebox("Coach";&tbox;3)If(Result=1)     Go(MainCoach)EndifIf(Exists(Module))     If(Module=1)          RETURN     EndifEndifQuitcoach()	   	 X   //*********************************************////     SUBROUTINE:OpeningScreen   	 @   ////*********************************************LABEL(OpeningScreen)Message(&tbox;1100)Result=Welcome("Coach";&tbox)     If(Result=1)    0: (# //UserchoseQuit   	 
@             QuitCoach()     EndifRETURN	   	 (

   //*****************************************************////     SUBROUTINE:BlockText   	 @   ////******************************************************LABEL(BlockText)     If(?DocBlank)          Message(&tbox;1300)    h           //Documentisblank,wantto   	 (
x   retrieve?          Result=OpenDocument(&tbox)     Endif     Message(&mbox;1905)     Fakeit("Coach";&mbox;5;1;0)     Repeat              4 Result=BlockEdit(DefTitle;1;1;&mbox;5;0)              4 IF(Result=3)              4     `	 Message(&hbox;1910)              4     `	 Hint=Hint(&hbox;99;99;3)              4 Else              4     `	 IF(?BlockActive=0)              4     `	     
 Null=NoBlock()              4     `	 Endif              4 Endif          Until(?BlockactiveandResult=1)     While(?MouseLeft)     EndWhile     WindowMaximizeRETURN	   	  p   //*************************************************************////     SUBROUTINE:GetThroughMenus   	 @   ////**************************************************************LABEL(Menus)//     ActivateCaseChange   	 `	        hbox1=    `	     
 {"Choose>  r [BoldOn]?
   
 Edit.";   	 
@                 4     `	 }     hbox2=    `	     
 {"Choose>  r [BoldOn]?
   
 ConvertCase.";   	 
                 4     `	 }     hbox3=    `	     
 {"Choose>  r [BoldOn]?
   
 acase."}   	 ,|	   //*******************************************ListValidMenu     EditMenu(&valid)   	         allow=    `	     
 {     1495;    <     h //Uppercase   	 Z                 4     `	     
 1496;         < //lowercase   	 "r
                 4     `	     
 1497;         < //initialcaps   	 :                 4     `	 }     exallow=    
 {     1;1;1;}    h    	 z        accel=    `	     
 {     118;         < //vforconvertcase   	 B                 4     `	 }     exaccel=    
 {     1;}   	 "        subval=    
 {     1495;    <     h //uppercase   	                  4     `	     
 1496;         < //lowercase   	 b                 4     `	     
 1497;         < //initialcaps   	 *z                 4     `	 }     subacl=    
 {     117;         < //Uforuppercase   	 
                 4     `	     
 108;          //lforlowercase   	                  4     `	     
 105;          //iforinitialcaps   	 J                 4     `	 }    
    	 b        exsubacl=    
 {     1;1;1;    <    	 *                  4     `	 }     subs=    `	     
 {     1494;    <     h //convertcase   	 j"                 4     `	 }     funkey={    
      8146;}    h      //Shift+F3   	  J$        Menuaccel=101              < //EforEdit   	 !%        MenuAlt=544              <     h //Alt+EforEdit   	 "&   Repeat     DisplayRewrite     Message(&mbox;1215)    <     h //ChooseEdit,ChangeCase   	 % *        Result=PostIt("Coach";&mbox;45;14;0;2;0)   	 r&!+        SaveScrn=0     MenuActive=0        	 ($.        sbox=    `	 {"Chooseacase.";   	 )$/                 4 }     Helpmsg=    
 {     "Choose>  r [BoldOn]?
   
 ConvertCase>   [BoldOff]?
   
 ,";   	 0+&1                 4     `	     
      "thenchooseacase.";              4 }     Show=HotSpot(0;0;62;0;menualt;&funkey;1)   	 -(4   ЇSwitch(Show)                   <     h      //ConvertingCase   	       //*****************************************//     UserchoosesShowMe   	 @   //******************************************     CaseOf1:          Result=Postit("Coach";&mbox;45;14;0;3;0)   	              While(?MouseLeft)          Endwhile̐          ShowMenu("Coach";&sbox;36;11;1;11;1;0)   	 
@   //*****************************************//     UserchoosesEdit   	 H
   //******************************************     CaseOf1475:              <     h //UserchoosesEdit   	 (

   //*****************************************//     UserpressesAlt+E   	 0   //******************************************     CaseOf544:              <     h //UserpressedAlt+E   	              Result=Postit("Coach";&mbox;45;14;0;3;0)   	 P             PullDownDlg          Type("E")//*******************************************************//     UserPressesShift+F3   	 8   //MarkDialogBox//********************************************************     CaseOf8146:              <     h //UserpressedShift+F3   	              CancelMenus()          DisplayRewrite          ConvertCaseDlg   	 8             Call(ConvertCaseDlg361)//*****************************************//     UserPressesAlt=   	   $   //******************************************     CaseOf8085:              <     h //UserpressedAlt+=   	 `"&             Result=PostIt("Coach";&mbox;45;14;0;3;0)   	 (#x'        0     MenuActive=MenuBarControl("Coach";&hbox1;&helpmsg;36;   	 #@(   11;menuaccel;&funkey)    $ ) (#(#  //*****************************************//     NOCHOICE   	 '`",   //******************************************     DEFAULT:    
                    <     h                         D //Default   	 (#.             PosLineDown          MenuActive=MenuBarControl("Coach";&hbox1;&helpmsg;36;11;   	 0*%0   menuaccel;&funkey)     ENDSWITCH   	 ,'3   IF(Menuactive<>1)         <     h //menuisdown   	 P-(4             IF(Show<>8146)    <     h //Shift+F3   	 .h)5                 4 0    `	      4 Result=MenuControl(&hbox1;&hbox2;&hbox3;&valid;&allow;&exallow;&accel;&exaccel;&subval;&subacl;&exsubacl;&subs;&funkey)  
  `	(#`	(#                4 MenuActive=Result          ENDIF          IF(?Dialog=361)              4 Call(ConvertCaseDlg361)              4 Break          ENDIFEndifUntil(MenuActive<>1)    h      //untilmenuisdown   	 H
   RETURN	   	 (

   //******************************************************////     SUBROUTINE:DialogControl#361   	 @   //     %
 
   
    	 X   //******************************************************0     LABEL(ConvertCaseDlg361)  
  (#(#       x1={    4 31;31;31;          //UpperCase,Lowercase,InitialCaps   	 (
x             }     x2={    4 43;43;46;   	 	             }     y1={    4 10;11;12;   	 H
             }     y2={    4 10;11;12;   	 (

             }     Hotkey={    
      49;         < //1forUpperCase   	 h                 4     `	     
 50;          //2forLowerCase   	 0                 4     `	     
 51;          //InitialCaps   	 H
                 4 }     Hotpnt={    
 1;1;1;}   	         HelpMsg={"Chooseacase."}   	 P        hbox={"Makeaselection."}               Result=0SaveScrn=0     Message(&tbox;1220)     While(?Dialog=361)    h //HiddenTextDlg   	 F             Switch(?DialogControl)              4 CaseOf70:         <     h //UpperCase   	 f                 4     `	 DlgInput(on!)              4     `	 info={     70;    <     h      //ControlID   	 F                 4     `	     
      361;         <     h //DialogID   	                   4     `	     
      0;         <     h      //don'tallowarrows   	 !                 4     `	     
      "Coach";    h      //Title   	 N"                 4     `	     
      50;         <     h      //xposforPostit   	  f#                 4     `	     
      9;         <     h      //yposforPostit   	  .$                 4     `	     
      0;         <     h      //Hintbutton   	 !%                 4     `	     
      "Coach";    h      //title   	 n"&                 4     `	     
      0;         <     h      //RestoreScreen   	 6#'                 4     `	     
      0;         <     h      //Reserved   	 #N(                 4     `	     
      }              4     `	 accel={     49;117;          //1orUforUpperCase   	 % *                 4     `	     
      50;108;    h      //2orLforLowercase   	 V&!+                 4     `	     
      51;105;    h      //3orIforInitialCaps   	 'n",                 4     `	     
 }              4     `	 aclpnt={     1;1;1;1;1;1;}   	 (#.                 4 0    `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg)  
  `	(#`	(#                4 CaseOf71:         <     h //LowerCase   	 +'2                 4     `	 DlgInput(on!)              4     `	 INFO={     71;    <     h           //LOWERCASE   	 ^-(4                 4     `	     
      361;         <     h //DialogID   	                     4     `	     
      0;         <     h      //don'tallowarrows   	 x                  4     `	     
      "Coach";    h      //Title   	 @                 4     `	     
      50;         <     h      //xposforPostit   	 X                 4     `	     
      9;         <     h      //yposforPostit   	                   4     `	     
      0;         <     h      //Hintbutton   	                  4     `	     
      "Coach";    h      //title   	 `	                 4     `	     
      0;         <     h      //RestoreScreen   	 (
x                 4     `	     
      0;         <     h      //Reserved   	 
@                 4     `	     
      }              4     `	 accel={     49;117;          //1orUforUpperCase   	 
                 4     `	     
      50;108;    h      //2orLforLowercase   	 H
                 4     `	     
      51;105;    h      //3orIforInitialCaps   	 `	                 4     `	     
 }              4     `	 aclpnt={     1;1;1;1;1;1;}   	 
                 4 0    `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg)  
  `	(#`	(#                4 CaseOf3501:    <     h      //InitialCaps   	                  4     `	 DlgInput(on!)              4     `	 info={     3501;    h           //ControlID   	 P                 4     `	     
      361;         <     h //DialogID   	 h                 4     `	     
      0;         <     h      //don'tallowarrows   	 0                 4     `	     
      "Coach";    h      //Title   	                  4     `	     
      50;         <     h //xposforPostit   	 p                 4     `	     
      9;         <     h //yposforPostit   	 8                 4     `	     
      0;         <     h      //Hintbutton   	  P                 4     `	     
      "Coach";    h      //title   	                  4     `	     
      0;         <     h      //RestoreScreen   	                  4     `	     
      0;         <     h      //Reserved   	 X                 4     `	     
      }              4     `	 accel={     49;117;          //1orUforUpperCase   	 8                 4     `	     
      50;108;    h      //2orLforLowercase   	                    4     `	     
      51;105;    h      //3orIforInitialCaps   	 x!                 4     `	     
 }              4     `	 aclpnt={     1;1;1;1;1;1;}   	  X#                 4 0    `	 Result=ButtonControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg)  
  `	(#`	(#                4 DEFAULT:              <     h //Default   	 (#x'                 4     `	 info={     ?DialogControl;     //ControlID   	 #@(                 4     `	     
      361;         < //DialogID   	 $ )                 4     `	     
      0;         <     h      //don'tallowarrows   	 % *                 4     `	     
      "Coach";    h      //Title   	 H&!+                 4     `	     
      50;         <     h //xposforPostit   	 '`",                 4     `	     
      9;         <     h //yposforPostit   	 '(#-                 4     `	     
      0;         <     h      //Hintbutton   	 (#.                 4     `	     
      "Coach";    h      //HelpTitle   	 h)$/                 4     `	     
      0;         <     h      //RestoreScreen   	 0*%0                 4     `	     
      0;         <     h      //Reserved   	 *H&1                 4     `	     
 }              4     `	 accel={     49;117;          //1orUforUpperCase   	 ,'3                 4     `	     
      50;108;    h      //2orLforLowercase   	 P-(4                 4     `	     
      51;105;    h      //3orIforInitialCaps   	 .h)5                 4     `	     
 }              4     `	 aclpnt={     1;1;1;1;1;1;}   	 x                  4     `	 allow={70;71;3501;}              4     `	 0    
 Result=InvalidControl(&info;&x1;&x2;&y1;&y2;&hotkey;&hotpnt;&accel;&aclpnt;&tbox;&helpmsg;&allow)  
  
(#
(#            ENDSWITCH          DisplayRewrite     ENDWHILERETURN	   	 H
   //******************************************************////     %
    
 PROCEDURE:Message   	 @   ////******************************************************PROCEDUREMESSAGE(&tbox;Msg)Switch(Msg)//***************************************MessagesforQuickmarksCaseOf1005:tbox={    4 "Youhaveconvertedthecaseofthetext.Doyou";   	 
             "wanttoconvertthecaseofadditionaltext?";          "";              4 }CaseOf1100:          //Welcome,Overview   	 h        tbox={    `	 "";   	 0                 4 ">  r [BoldOn]?
   
 ConvertingCase>   [BoldOff]?
   
 ";              4 "";          0    4 "Youcanconverttexttoalluppercase,all";  
  4(#4(#                4 "lowercase,orinitialcaps.";              4 "";              4 "UppercaseGRANDOPENINGSALE";              4 "Lowercasegrandopeningsale";              4 "InitialCapsGrandOpeningSale";              4 }CaseOf1215:     m  %
     
  box={    `	 "Toconvertthecase,";   	                  4 "";              4 "Choose>  r [BoldOn]?
   
 Edit>   [BoldOff]?
   
 ,";   	  p                 4 "then>  r [BoldOn]?
   
 ConvertCase>   [BoldOff]?
   
 .";              4 "thenchooseacase.";              4 "or";              4 "Press>  r [BoldOn]?
   
 Shift+F3>   [BoldOff]?
   
 .";   	 N"                 4 "";          }Caseof1220:          //   	 |"&   tbox={    4 "Chooseacase.";   	 D#'             "";          }Caseof1300:tbox={    4 "Wouldyouliketoopenafile?";   	 :'",                 4 "";          }CaseOf1905:mbox={    4 "Blockthetextyouwanttoconvert.";   	 "+r&1                 4 "";     }   	 -(4   CaseOf1910:   X   X  X X  tbox={     "";     ">  r [BoldOn]?
   
 Toblocktextwithamouse:>   [BoldOff]?
   
 Ԁ>  r [BoldOn]?
   
 Toblocktextwithkeys:>   [BoldOff]?
   
 ";          "";          "1.Placeyourmousepointeratthe1.Moveyourcursortothestart";          "startofthetextyouwanttoofthetextyouwanttoblock.";          "block.2.Press>  r [BoldOn]?
   
 Alt+F4>   [BoldOff]?
   
 .";          "2.Pressyourleftmousebutton3.Moveyourcursortotheendof";          "andholditdown.thetextyouwanttoblockso.";          "3.Moveyourmousepointertothethatthetextishighlighted.";          "endofthetextyouwantto";          "blocksothatthetextis";          "highlighted.";          "4.Releaseyourmousebutton.";          "";     }DEFAULT:     Tbox={    `	 "Messagenotfound!"+msg;   	                  4     `	 }     hbox={    `	 "Nohintisavailable.Whattypeofinformation";   	  p                 4     `	 "wouldbeusefulhere?";              4 }ENDSwitchENDPROC8    `	       $ `	x`	x  RETURN//*****************************************************************	   	 #@(   