WPC
   
                 0   (     	1   S        h          |  0   \        I  p          	         	                         U        	%            /     "   {      !   `     	)      	   #                                                                                                                                                                               < 
  9 p` (      X< 6X  9  ` +   C o u r i e r         "n  ? x x x  X    Xx   A p p l e   L a s e r W r i t e r   I I f   '3   pet   	 ^-(4  APLW2F.PRS   hhhhhhhh PUBD/DOC1                                                                                                                                          H    lSJ    (                    $                               3 7 9 ; = ? A G M                 1 .   a .   1 )   /  A    4                                                                 3                                                                 6                                                                 8                                                                 7                                                                 5                                                                 :                                                                 9                                                            2     <                                                            ,     ;                                                            ,     >                                                            X     =                                                            X    O v e r v i e w D l g                                                ?                                                                  - I                                                               - E                                                               - B                                                         B    P o s i t i o n C u r s o r 1                                   
    P o s i t i o n C u r s o r 2                                   
    I n s e r t T a b                                               (    I n s e r t I n d e n t                                             I n d e n t O n                                                 6     B                                                            r     E                                                            	     D                                                                 C                                                            	!     G                                                            	     F                                                            	     I                                                            	     H                                                            	     K                                                            	     J                                                            	     M                                                            	      L                                                            	     N                                                            	      O                                                            	!     R                                                            R%     T                                                            "     S                                                            >%     V                                                            "     U                                                            8%     X                                                            2%     W                                                            2%     Q                                                            R%     A                                                            X%     @                                                            %                                                                    %      M e s s a g e    [                                                            	&     Z                                                            %     Y                                                            	4:     ]                                                            	/     \                                                            	'     _                                                            	2     ^                                                            	/     a                                                            	
4     `                                                            	2     c                                                            	B5     b                                                            	.4     e                                                            	6     d                                                            	f5     g                                                            	h9     f                                                            	6     h                                                            	h9     i                                                            	4:                                                                    >:           M e s s a g e                                                   %                                                                                   (         
      $       @    S  

     
 
     
       (      E             5      z      G }                        a      a                      "                  
      M      S      Y      t                                           `                  
            v      @      	@    @    @    A#	      
A.	    A	    
	      A
      
A
     
J
      Ai
      
At
    A
      
A
     
A      
A#    Aw      
A     
B      -                   K
      K
          -            K5      K=    {      -      G       d      -                  -      o             ,      ;      &       	L       	R!      v!      	"      q"      q"       "      	#      	~#      :$      vw%      ,&      	P&      &      J&      J&    '      # H'      s'      '      '      o)      ')      J0*      J9*    *      # *      !+      W+      +      +      4+      -+      ),      	,      	,      	-      	+6      	$8      	9      	9      	;      :=      >      	>        (  E  p        ^  l  z                        
  5  M  S  Y  t                `  p        
    "  v          #	  	  
  J
  i
  
    w              I
  
  
    !  I  d            5  N  w        N  {    G  d        Z            o    
  v            y    4    U          ;  v      &   L      
!  R!  !  !  "  }"  "  "  #  ~#  #  6$  $  $  )%  w%  %  ,&  P&  &  &  '  H'  s'  '  '  0(  !)  o)  )  0*  *  *  !+  W+  +  +  +  +  ,  ,  ,  ,  -  -  +6  86  $8  18  9  9  9  9  ;  ;  =  =  >  >  H?  HD  z  #  #| x         " B D O ??=K ' 	             
    !    W   %
    
   
  ,   X  //*********************************************////     NAME:                  WPCH_IN1.WPM   	 @   //        	 X   //     PURPOSE:     CoachonTabandIndent   	     //  //     AUTHOR:          PaulLaing,WordPerfectCorp.// //*********************************************  //RevisionHistory////  %
 	   
  Global(ScrnMode;MsgAdj;DefTitle;CancelMsg)Global(SaveScrn;HotElement)Global(NmeAttrib;ChkAttrib;TstLft;TstRgt)DefTitle="Coach"         h           //Maintitlename   	 (

   ScrnMode=?ScreenHigh24CancelMsg=1Use("wpchlibr.wpm")         h      //Sharedlibraryfile   	 H
   ColorScheme()ScreenSetup()If(?RevealCodesActive)     RevealCodes     Reveal=1Else     Reveal=0EndifMsgAdj=DlgMessage()	   	    //*********************************************////     MAINPROGRAM:Coach   	 @   ////*********************************************Error(Off!)Cancel(Off!)Progress=0If(NotExists(StndAlone))     Call(OverviewDlg)     If(Result=1)          QuitCoach()     EndifEndifIf(var[1]=1)     Call(PositionCursor1)     Progress=1Else     If(var[2]=1)          Call(PositionCursor2)     EndifEndifWindowMaximize    
           //Maximizewindow   	 p   DisplayRewriteMessage(&tbox;1005)     //Congratulations   	    Result=MessageBox(DefTitle;&tbox;1)If(Reveal=1)     RevealCodes     DisplayRewriteEndifQuitCoach()//*********************************************//     ENDMAINPROGRAM   	   $   //*********************************************	   	 !%   //*********************************************////     SUBROUTINE:OverviewDlg   	 @   ////*********************************************Label(OverviewDlg)     Message(&tbox;1007)     w=65h=22     DlgCreate(Result;DefTitle;DlgNoOK!+DlgNoCancel!+DlgExit!;;;w;h)     0     DlgControl(CtrlPushButton!;;"Quit...>  r [BoldOn]?
   
 Esc>   [BoldOff]?
   
 ";StyCancel!;w15;h2)  
  (#(#            ForNext(x;1;tbox[0])              4 DlgControl(CtrlLabel!;;tbox[x];;2;x;w1;1)          Endfor          DlgControl(CtrlRadioButton!;var[1];"Indentthe~firstline";;3;9;w1;1)          DlgControl(CtrlLabel!;;"ofaparagraph.";;10;10;w1;1)          DlgControl(CtrlRadioButton!;var[2];"Indentall~linesof";;3;15;w1;1)          DlgControl(CtrlLabel!;;"aparagraph.";;10;16;w1;1)          var[1]=0var[2]=0     DlgEndReturn	   	 P   //*********************************************////     SUBROUTINE:PositionCursor1   	 @   ////*********************************************Label(PositionCursor1)     WindowMaximize                   <     h //Maximizewindow   	 `	        Message(&tbox;1302)              <     h //Positioncursor   	 (
x        Display(On!)     FakeIt(DefTitle;&tbox;3;1;0)     Message(&tbox;1008)     Hint=Hint(&tbox;99;99;0)     chkcode={1;}     keypress={8154;}     //F7key   	 
        Key=DoEdit(1;&chkcode;&keypress)     Call(InsertTab)Return	   	    //*********************************************////     SUBROUTINE:PositionCursor2   	 @   ////*********************************************Label(PositionCursor2)     Message(&tbox;1303)              < //Positioncursor   	 `	        Display(On!)     FakeIt(DefTitle;&tbox;3;1;0)     Message(&tbox;1008)     Hint=Hint(&tbox;99;99;0)     chkcode={    `	 1;}   	 `	        keypress={    `	 8154;}     //F7key   	 (

        Key=DoEdit(1;&chkcode;&keypress)     Call(InsertIndent)Return	   	 H
   //*********************************************////     SUBROUTINE:InsertTab   	 @   ////*********************************************Label(InsertTab)     WindowMaximize                   < //Maximizewindow   	 `	        Message(&tbox;1304)     FakeIt(DefTitle;&tbox;8;1;0)     chkcode={    `	 1;}   	 
        keypress={    `	 8183;}     //Tab   	 H
        Key=DoEdit(1;&chkcode;&keypress)Return	   	 
   //*********************************************////     SUBROUTINE:InsertIndent   	 @   ////*********************************************Label(InsertIndent)     Call(IndentOn)Return	   	 (
x   //*********************************************////     SUBROUTINE:IndentOn   	 @   ////*********************************************Label(IndentOn)     WindowMaximize                   < //Maximizewindow   	 (
x             Message(&tbox;1701)              < //ChooseFontmenu   	 	        hbox1={    `	 "Select>  r [BoldOn]?
   
 Layout>   [BoldOff]?
   
 Ԁfromthemenubar";   	 H
                 4     `	 "";          }    4     `	     
    	 (

        hbox2={    `	 "Select>  r [BoldOn]?
   
 Alignment>   [BoldOff]?
   
 ԀfromtheLayoutmenu";   	 
                 4     `	 "";          }     hbox3={    `	 "Select>  r [BoldOn]?
   
 Indent";   	 H
                 4     `	 "";          }          LayoutMenu(&valid)     allow={    4     `	 1565;   	 0             }     exallow={    `	 0;   	 p                 4 }     accel={    4     `	 97;   	              }     exaccel={    `	 1;   	 X                 4 }     subval={    `	 1565;   	 8                 4     `	 1666;              4     `	 1567;              4     `	 1568;              4     `	 1569;              4     `	 1570;              4     `	 1571;              4     `	 1572;          }     subacl={    `	 105;   	 #@(             }     exsubacl={    `	 0;   	 % *             }     subs={    4     `	 1564;   	 '`",             }     sbox={    4     `	 "Choose>  r [BoldOn]?
   
 Indent.";   	 (#.                 4     `	 "";}     funkey={    `	 8157;   	 *H&1             }     Repeat          DisplayRewrite   	 .h)5             Result=Postit(DefTitle;&tbox;0;9;0;2;0)          MenuActive=0               Show=HotSpot(0;0;62;0;537;&funkey;1)          Switch(Show)          CaseOf1:    
           //Showmenu   	 `	                 4 Result=Postit(DefTitle;&tbox;0;9;0;3;0)              4 ShowMenu("Coach";&sbox;52;6ScrnMode;3;12;1;0)          CaseOf1565:              4 PosLineDown %
     
                4 Result=Postit("Coach";&sbox;9;5ScrnMode;0;0;0)          CaseOf537:          //Accelmenu   	 
                 4 Result=Postit(DefTitle;&tbox;0;9;0;3;0)              4 PullDownDlg              4 Type("l")          CaseOf8157:          //Functionkey   	              CaseOf8085:          //Choosemenu   	 h                 4 Result=Postit(DefTitle;&tbox;0;9;0;3;0)              4 sbox={    
 1}   	              0    4 MenuActive=MenuBarControl("Coach";&hbox1;&sbox;9;5ScrnMode;108;&funkey)  
  4(#4(#            DEFAULT:              4 sbox={    
 1}   	                  4 PosLineDown          0    4 MenuActive=MenuBarControl("Coach";&hbox1;&sbox;9;5ScrnMode;108;&funkey)  
  4(#4(#  %
     
           EndSwitch          If(MenuActive<>1)              4 If(Show=8157)              4     `	 DlgInput(On!)              4     `	 DisplayRewrite              4     `	 Indent              4 Else              4     `	 If(MenuActive=8157)              4     `	 Else              4     `	     
 Result=MenuControl(&hbox1;&hbox2;&hbox3;&valid;&allow;&exallow;              4     `	     
 &accel;&exaccel;&subval;&subacl;&exsubacl;&subs;&funkey)              4     `	     
 MenuActive=Result              4     `	     
 If(Result=1565orResult=105)              4     `	     
      CancelMenus()              4     `	     
      DlgInput(On!)              4     `	     
      DisplayRewrite              4     `	     
      Indent              4     `	     
 Endif              4     `	 Endif   	 .h)5                 4 Endif          Endif     Until(MenuActive<>1)Return	   	 @   //*********************************************////     PROCEDURE:Message   	 @   ////*********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf1005:tbox={     "";   	 
             "YouhavecompletedtheC  %
     
  oachonindenting.";          "";          }CaseOf1007:tbox={     "";   	 0             ">  r [BoldOn]?
   
 IndentingLinesandParagraphs>   [BoldOff]?
   
 ";          "";          "Chooseoneofthefollowingindentingtasks:";          "";          "
";   	 h             "		";   	 0             "		";   	              "		";   	 p             "		";   	 8             "		";   	  P             "		";   	              "		";   	              "		";   	 X             "		";   	  p             "		";   	 8             "";          }CaseOf1008:tbox={     "";   	   $             "";          "Youcanusetabs,indents,columnsortablesto";          "alignorindenttext.";          "";          "Avoidusingspaces,however.Althoughyourtextmay";          "appeartobealignedinthedocumentwindow,itmay";          "appearraggedwhenprinted.";          "";          }CaseOf1302:tbox={     "";   	 *H&1             "Placethecursoratthebeginningoftheparagraph.";   	 +'2             "";     }   	 .h)5   CaseOf1303:tbox={     "";   	 x         0     "Placethecursoratthebeginningoftheparagraph.";    @ (#(#            "";     }CaseOf1304:tbox={     "";   	 (
x        0     "Toindentthefirstlineofaparagraph,";  
  (#(#            "";          "Press>  r [BoldOn]?
   
 Tab.";   	 
             "";     }CaseOf1701:tbox={     "";   	 h             "Toindentalllinesofa";          "paragraph,";          "";          "Choose>  r [BoldOn]?
   
 Layout>   [BoldOff]?
   
 ,";   	              "then>  r [BoldOn]?
   
 Alignment>   [BoldOff]?
   
 ,";          "then>  r [BoldOn]?
   
 Indent>   [BoldOff]?
   
 .";   	 h             "or";          "Press>  r [BoldOn]?
   
 F4>   [BoldOff]?
   
 .";   	              "";     }DEFAULT:tbox={     "";   	              "Nomessagefound!";          "";     }EndSwitchENDPROC	   	 @"        