WPC:  
                 0   (        d       x   %
        *       5+  	1   S   .  0   U   ,/  	1      /  0   L   H0  	1   m   0  0   L   1   U        	%            /     "   {     0   \   M1  0   H   1  #       	1   W   1       H2   	      ;:   	      A:        G:        S:   !   `   c:  	)      :                                                          < 
  9 p` (      X< 6X  9  ` +   C o u r i e r         "C  ? 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    (                    $        UU  C a n c e l M s g   s e l e c t [ 0   x p o s   y p o s   D e f t i t l e   S c r n M o d e   S c r e e n H i g h   S t e p N u m   S t e p T e x t    w p c h l i b r . w p m    C o l o r S c h e m e   M s g A d j   D l g M e s s a g e  $ D i s p l a y R e w r i t e $ $ W i n d o w M a x i m i z e $  w p   d l g   t b o x ; 2 0 0   M e s s a g e B o x   t b o x ; 3   E n d I f   t b o x ; 1 0   t b o x   P o s C u r s o r   F a k e I t   P o s C h a r N e x t   P o s C h a r P r e v   k e y p r e s s   c h k c o d e   D o E d i t  " G e t W P C h a r s D l g "  w p c h a r s   F o n t M e n u   e x a l l o w   a c c e l   e x a c c e l   n o s u b m e n u   s u b v a l   s u b a c l   e x s u b a c l   f u n k e y   P o s t I t   M e n u A c t i v e   H o t S p o t   C a s e O f   s b o x   S h o w M e n u   P u l l D o w n D l g   D l g I n p u t   W p C h a r D l g  $ M e n u B a r C o n t r o l $  E N D C A S E   M e n u C o n t r o l   C a n c e l M e n u s    C h o o s e B u l l e t    M o u s e L e f t   E n d W h i l e   C a n c e l C o a c h   S h o w S e t  " D i a l o g C o n t r o l "  H r t   P o s L i n e U p   E n d F o r   P o s L i n e D o w n   t b o x ; M s g   E N D P R O C    S H O W P O S I T I O N     W  A   M a i n                                                         l                                                                  \                                                                  \    W e l c o m e D l g                                             l                                                                                                                                        O v e r v i e w D l g                                           l                                                                  l      - I                                                         l      - E                                                               - B                                                         l                                                                  l&	      - I                                                         l	      - E                                                         	      - B                                                         ld	                                                                  P                                                                  P    G e t S e l e c t B B D l g                                     l                                                                  	"                                                                  l                                                                  	                                                                  	                                                                  	L                                                                  	                                                                  	                                                                  l8                                                                  	                                                                                                                                    	                                                                  	T                                                                  	2                                                                  	                                                                  	~                                                                  	                                                                  	                                                                  	                                                                  	                                                                                                                                                                                                                                                                                                                                                                                                                S e l e c t B B a r                                             l                                                                  l                                                                  (                                                                  	j                                                                                                                                    	f#                                                                  	                                                                  	                                                                  	                                                                   	                                                                  	!                                                                  	                                                                   	z"                                                                  	!                                                                  	f#                                                                  	"                                                                  #                                                                  (                                                                  &                                                                  $                                                                  F$                                                                  &                                                                  %                                                                  %                                                                  $                                                                  %                                                                  j%                                                                  j%                                                                  %                                                                  %                                                                  &                                                                  h(                                                                  &                                                                  &                                                                  b(                                                                  N(                                                                  :(                                                                  :(                                                                  N(                                                                  b(    E n d                                                           l(                                                                  )                                                                  )                                                                    )      M e s s a g e                                                                 	1                                                                  6*                                                                  	zF                                                                 	1                                                                  	01                                                                 	3                                                                 	2                                                                 	5                                                                 	
4                                                                 	7                                                                 	6     	                                                            	9                                                                 	7                                                                 	$;     
                                                            	9     
                                                            	<                                                                 	H;                                                                 	>                                                                 	=                                                                 	@@                                                                 	>                                                                 	A                                                                 	d@                                                                 	C                                                                 	B                                                                 	zF                                                                 	0C                                                                    lF           M e s s a g e                                                   )                                                                                 X          
  &  K  x      *            \      $  u    #	  <	  	  	  	  	  s           ,  F  Q
  
  
  
    &  D        H  [    #  ,  A  U            g          %  F  v            .            -              _  x      %      "      	  9  P      ;  )            !  !  @"  W#  #  #  #  #  $  9$  c$  $  $  $  $  9%  %  %   &  K&  '  '  2'  M'  j'  '  '  '  g(  (  (  (  )  2)  V)  w)  )  )  _*  *  *  S+  ~+  +  D,  o,  ,  ,  ,   -  .-  k-  .  7.  p.  .  #/  /  /0  0  P1  1  ?2  2  3  o3  3  4  ;4  e4  4  4  F5  5  5  $6  Z6  6  `7  7  8  8  8  (9  ^9  9  9  9  :  :  :  9:  D:  _:  ~:  :  :  ^;  |;  ;  ;  ~B  B  :C  FC  kE  wE  F  F  `H  lH  I  I  %K  1K  L  L  M  M  1O  =O  tP  P  *Q  6Q  @T  JT                          3 7 9 ; = ? A G M                 1 .   a .   1 )       (                 p5$          	       0                            C 3 7 ; C O _ s         1   1 . 0   1 . 0 . 0   1 . 0 . 0 . 0   1 . 0 . 0 . 0 . 0   1 . 0 . 0 . 0 . 0 . 0   1 . 0 . 0 . 0 . 0 . 0 . 0   1 . 0 . 0 . 0 . 0 . 0 . 0 . 0       (       $           $       2    3
   
 0                     #4e   3 7 = C I Q Y a g       1 .   a .   i .   ( 1 )   ( a )   ( i )   1 )   a )       (       $           $       2    3
   
 0         (         
      $       @    K  

     
 
     
     (          
      ޿$       

    
 
    
                  #        3 7 ; ? C G K O S            -     *   +     x         X             T      5x                                   \                         $      F)       u      Fz             F      K#	      K+	     <	      FA	      	      	      	      s            ,      -F      Q
      @
      	@
    @
    @
          AD      
AO                A      
A     
H      A[      
Ag    A    
BA      U                  -      g                  	      	%      	v            	,            	      	"      v      	      q	       9      	P      :)       v       !      	!      #      #      $      49$      c$      J$      J$    K$      K$      $      F$       9%      F>%       %      F%      K%      K%      &      F&      -K&      '      7'       '       9'      M'       T'      	j'      	'       T'      t(      t(      u)      	2)       T'      	)       T'      	*       T'      	+       T'      ,      	7,       ,      M -      .-      7k-      x q-      7.      p.       s.      .       .      #/       &/      7/      u /      
/0      0       0       P1      FU1      1      t3      t3      uo3      3      4      ;4      e4      4      t5      t5      u5      $6      Z6      6      } 6      ' 7      } 7      7      8      (9      ^9      9      o 9       9       9      F9      :      :      -:      9:      D:      : G:      
:      -:      )^;      	|;      	;      	~B      	:C      	kE      	F      	`H      	I      	%K      	L      	M      	1O      	tP      	*Q      @T      	JT      A  HD    $I : #| x         " B D O ??=K ' 	             
    !    W        h    h   
  ,   X //*********************************************////     NAME:    D     p     	 WPCH_BTB.WPM   	 @   //        	 X   //     PURPOSE:    p ButtonBarCoach   	     //  //     AUTHOR:     WordPerfectCorp.// //*********************************************Global(ScrnMode;MsgAdj;DefTitle;CancelMsg)Global(HotElement;SaveScrn)Global(BbarEntry)CancelMsg=0 %
    
  select[0]=0xpos=0ypos=0DefTitle="Coach"ScrnMode=?ScreenHigh24Use("wpchlibr.wpm")    
           
     L //Sharedlibraryfile   	 P   ScreenSetup()ColorScheme()MsgAdj=DlgMessage()    
           
     L //Setanadjustmentformessages	   	    //*********************************************//   	 x    //     MAINPROGRAM:Coach   	 @   //   	 X   //*********************************************   	     Cancel(Off!)   	    Call(WelcomeDlg)   	 `	   Label(Main)   	 (
x   steps={     "SelectandDisplayaButtonBar";   	 
@                       "CreateaButtonBar";                    "EditaButtonBar";               }Call(OverviewDlg)    
           
     L //OverviewDialog   	 (

   Call(GetSelectBBDlg)          
     L     x //helpuserGettoselectbbardialog   	 h   If(?Dialog=1)   	 H
        DlgIput(On!)     Type(ntoc(8085))          
 //alt=   	         Type(ntoc(118))    
           
 //v   	 P        type(ntoc(115))    
           
 //s   	 h        Display(On!)     type(ntoc(115))    
           
 //s   	    EndIf   	 p   Call(SelectBbar)   	  P             Call(End)   	    QuitCoach()   	  p   //*********************************************   	      //     ENDMAINPROGRAM   	 x!   //*********************************************	   	 @"   //*******************************   	       //Subroutine:Welcome   	 x    //********************************   	 @   Label(WelcomeDlg)   	 X   Message(&tbox;10)   	     Result=Welcome(DefTitle;&tbox)   	    If(Result=1)   	 `	        QuitCoach()EndIf   	 
@   Return	   	 	   //*********************************************   	       //   	 x    //     SUBROUTINE:OverviewDlg   	 @   //   	 X   //*********************************************   	     Label(OverviewDlg)   	         w=63     h=9   	 `	        DlgCreate(Result;DefTitle;DlgNoCancel!+DlgNoOK!+DlgExit!;;;w;h)     ForNext(x;1;steps[0])     Message(&tbox;15)     DlgControl(CtrlRadioButton!;          Var[x];steps[x];;4;x+tbox[0];w1;1)   	 H
        Endfor     ForNext(x;1;tbox[0])          DlgControl(CtrlLabel!;;tbox[x];;2;x;w1;1)   	 
        Endfor     DlgControl(CtrlPushButton!;;"Quit...>  r [BoldOn]?
   
 Esc>   [BoldOff]?
   
 ";StyCancel!;w   	 0   14;h2)        	 H
        Var[1]=0Var[2]=0Var[3]=0     DlgEnd     If(Result=1)   	 h             CancelCoach()          Go(Main)     EndIf     Choice=ResultReturn	   	  P   //*********************************************   	       //   	 x    //     SUBROUTINE:GetWPCharsDlg   	 @   //   	 X   //     PURPOSE:Walkuserthroughgettingtothewpcharsdlg   	     //   	    //*********************************************   	 `	   Label(GetSelectBBDlg)   	 (
x        Global(Action)     Switch(Choice)     CaseOf1:    D     p Action="select"   	 H
        CaseOf2:    D     p Action="create"   	 `	        CaseOf3:    D     p Action="edit"   	 (

        EndSwitch          Message(&tbox;100)     hbox1={    D "Choose>  r [BoldOn]?
   
 View.";   	                   }     hbox2={    D "Choose>  r [BoldOn]?
   
 ButtonBarSetup.";   	 P                  }     hbox3={    D "Choose>  r [BoldOn]?
   
 Select.";   	 0                  }     ViewMenu(&valid)     allow={    D     p 1517;          
 //selectmenuoption   	                        }     exallow={    D 0;    	     
 //Allowexecute   	 X                  }     accel={    D     p 115;    
           
 //bbar(s)etuplect   	 8                  }     exaccel={    D 1;    	     
 //Allowexecute   	 x!                  }     subval={    D 1516;   	  X#                           D 1517;                        D 1518;                    }     subacl={    D 115;    
 //(s)elect   	 #@(                       }     exsubacl={    p 1;   	 H&!+                       }     subs={     1515;    
      //Bbarsetupoption   	 (#.             }     funkey={    D     p 1;   	 *H&1                  }Repeat   	 P-(4        Result=PostIt(DefTitle;&tbox;46;15;0;2;0)   	 .h)5        MenuActive=0     Show=HotSpot(0;0;62;0;527;&funkey;1)   	 x         Switch(show)     CaseOf1:    D //Showmenu   	 X             sbox={"Choose>  r [BoldOn]?
   
 Select.";}   	     А          Result=PostIt(DefTitle;&tbox;46;15;0;3;0)          ShowMenu(DefTitle;&sbox;55;12ScrnMode;2;8;2;0)   	 `	        CaseOf1502:    	     
 //viewmenuId   	 
@             PosLine Down      CaseOf527:    	 //Accelmenualtv   	 H
                  PullDownDlg               Type("v")     CaseOf8085:    	 //Alt+=   	 h                  sbox={1;}   	 0                  Result=PostIt(DefTitle;&tbox;46;15;0;3;0)               MenuActive=MenuBarControl(DefTitle;&hbox1;&sbox;3;3             	         	       	       	       	          ScrnMode;118;&funkey)     DEFAULT:    D //Default   	 h                  PosLineDown               sbox={1;}   	                   MenuActive=MenuBarControl(DefTitle;&hbox1;&sbox;3;3   	 p        	 p      	 p      	 p      	 p    ScrnMode;118;&funkey)   	 8        EndSwitch    D    	    If(menuactive<>1)   	 X          񼼼 Result=MenuControl(&hbox1;&hbox2;&hbox3;&valid;&allow;&exallow;&accel;&exaccel;     	 8      	 8      	 8      	 8       	 8   &subval;&subacl;&exsubacl;&subs;&funkey)   	                MenuActive=Result          CancelMenus()EndIf   	   $   If(MenuActive=1)   	 `"&                  Result=PostIt(DefTitle;&tbox;46;15;0;2;0)EndIf   	 #@(   Until(MenuActive<>1)   	 $ )   DisplayRewrite   	 % *   CancelMenus()   	 H&!+        DlgInput(On!)     Display(Off!)     Type(ntoc(8085))          
 //alt=   	 (#.        Type(ntoc(118))    
           
 //v   	 h)$/        type(ntoc(115))    
           
 //s   	 0*%0        Display(On!)     type(ntoc(115))    
           
 //s   	 +'2   Return	   	 ,'3   //*********************************************   	       //Label:SelectBBar   	 x    //*******************************************Label(SelectBBar)While(?Dialog<>1)     CurDlg=?Dialog     Switch(?Dialog)     CaseOf375:          Message(&tbox;200+Choice)          Result=PostIt(DefTitle;&tbox;99;1;0;1;0)     CaseOf401:    p     	     
      //Create   	 `	             Choice=1          Message(&tbox;250)          Result=PostIt(DefTitle;&tbox;99;1;0;1;0)          PosCharNext          PosCharPrev     CaseOf398:          Choice=1          Message(&tbox;300)          Result=PostIt(DefTitle;&tbox;99;1;0;1;0)     CaseOf184:    p     	     
           
 //Featurelistbox   	 p             Message(&tbox;350)          Result=PostIt(DefTitle;&tbox;99;1;0;1;0)     CaseOf152:    p     	     
           
 //MacroorButtonBarlistbox   	              Message(&tbox;400)          Result=PostIt(DefTitle;&tbox;99;1;0;1;0)     CaseOf2:    D     p     	     
           
 //Pulldownmenus   	                Message(&tbox;450)          Result=PostIt(DefTitle;&tbox;99;1;0;1;0)     EndSwitch     DArrow=0     While(?Dialog=CurDlg)          Look(key)               If(key=768)                    While(?MouseRight)    x      //Ignorerightmouseclicks   	 % *                           D key=0                    EndWhile                    If(?MouseLastY=yposS1)                        D If(?MouseLastX>=xposQ1)                        D     p If(?MouseLastX<=xposQ2)                        D     p     	 While(?MouseLeft)     //Waitformousebuttonup   	 0*%0                           D     p     	 EndWhile                        D     p     	 If(?Dialog=2)                   ( //Ifinpulldowns   	 +'2                           D     p     	     
 Type(ntoc(8154))    ( //executeanF7   	 ,'3                           D     p     	 EndIf                        D     p     	 CancelCoach()   	 .h)5                           D     p     	 key=0                        D     p     	 PosCharNext                        D     p     	 PosCharPrev                        D     p EndIf                        D Endif                    Endif               Else                    If(key=8160)                        D     p CancelCoach()                        D     p key=0                        D     p PosCharNext                        D     p PosCharPrev                    EndIf                    If(key=8166)     
     L     x //DownArrow   	 (

                           D If(?DialogControl=1174OR?DialogControl=1175)                        D     p DArrow=DArrow+1                        D     p If(DArrow=10)                        D     p     	 Message(&tbox;460)                        D     p     	 Result=Hint(&tbox;99;99;4)                        D     p EndIf                        D EndIf                    EndIf    	    	 h                  EndIf          BbarEntry=?Entry          Type(ntoc(key))     EndwhileEndWhileReturn	   	    Label(End)If(?ButtonBar)     Message(&tbox;500)     Result=MessageBox(DefTitle;&tbox;1)EndIfReturn	   	    //*********************************************////     PROCEDURE:Message   	 @   ////*********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf10:tbox={     "";   	 
                  ">  r [BoldOn]?
   
 UsingButtonBars>   [BoldOff]?
   
 ";               "";               "AButtonBargivesyouaccesstofeatureswiththeclickof";               "amouse.YoucanselectoneofthepredefinedButtonBars";               "thatisincludedwithWordPerfect,oryoucancreateyourown";               "ButtonBars.Forexample,youcouldcreateaButtonBarfor";               "formattinganewslett %
    
  er:";               "";                    "";   	                        "ColumnsDateTextCutCopySavePrint";   	 P                       "";   	 h                       "";               "IMPORTANT:Youmustuseamousetochoosebuttonsona";               "ButtonBar;youcannotusethekeyboard.";               }CaseOf15:tbox={     "Choosefromthefollowingtasks:";   	                   "";          }               CaseOf100:tbox={     "To"+Action+"aButtonBar,";   	 x!                  "";               "Choose>  r [BoldOn]?
   
 View>   [BoldOff]?
   
 ,";   	  X#                  "then>  r [BoldOn]?
   
 ButtonBarSetup>   [BoldOff]?
   
 ,";               "then>  r [BoldOn]?
   
 Select>   [BoldOff]?
   
 .";               "";     }CaseOf201:tbox={"ThelistboxontheleftshowsButtonBarsthatareavailable.";               "HighlightaButtonBar,thenchoose>  r [BoldOn]?
   
 Select>   [BoldOff]?
   
 Ԁfrom   	 'n",   the";               "rightsideofthelistbox.";          }CaseOf202:tbox={     "ThelistboxontheleftshowsButtonBarsthatareavailable.";   	 +,'2                  "ToaddaButtonBartothelist,";               "Choose>  r [BoldOn]?
   
 Create>   [BoldOff]?
   
 Ԁfromtherightsideofthelist   	 l-(4   box.";          }CaseOf203:tbox={     "ThelistboxontheleftshowsButtonBarsthatareavailable.";   	                    "HighlightaButtonBar,thenchoose>  r [BoldOn]?
   
 Edit>   [BoldOff]?
   
 Ԁfrom   	    the";               "rightsideofthelistbox.";          }CaseOf250:tbox={     "TypeanamefortheButtonBar,";   	 V
                  "thenchoose>  r [BoldOn]?
   
 OK>   [BoldOff]?
   
 .";               "";               "";          }CaseOf300:tbox={     "Usetheoptionsontherighttoadd,deleteandmove";   	 ,                  "buttonsonyourButtonBar.Choose>  r [BoldOn]?
   
 OK>   [BoldOff]?
   
 Ԁwhendone.";               "";          }        	 
Z   CaseOf350:tbox={     "UsetheUpandDownArrowstoscrollthroughthelist.";   	 b                  "Highlightafeatureabbreviation,thechoose>  r [BoldOn]?
   
 Select.";   	 8                  "";          }CaseOf400:tbox={     "UsetheUpandDownArrowstoscrollthroughthelist.";   	 .~                  "Highlightanentry,thenchoose>  r [BoldOn]?
   
 Select.";   	 T                   "";          }CaseOf450:tbox={"Usingthemenubar,selectthemenuitemsyouwanttoadd";   	 !J%                  "toyourButtonBar.Press>  r [BoldOn]?
   
 F7>   [BoldOff]?
   
 Ԁwhendone.";               "";          }CaseOf460:tbox={     "Ifyouknowthenameoftheitem";   	 &"+                  "youwant,justtypethename.";          }CaseOf500:tbox={     "Youhaveselectedthe"+BbarEntry+"ButtonBar.";   	 *%0                  "";               "IfyouwanttoremovetheButtonBarafter";               "youleaveCoach,choose>  r [BoldOn]?
   
 View>   [BoldOff]?
   
 ,then>  r [BoldOn]?
   
 ButtonBar.";   	 -)4                  " %
     
    %
     
  >   [BoldOff]?
   
 ";               "IMPORTANT:Youmustuseamousetochoosebuttons";               "ontheButtonBar;youcannotusethekeyboard.";               "";          }EndSwitchENDPROC    