WPCC  
      .           0   (   H8     B  p8     X  ,                 	1   S   !  0   U   #"  	1      x"  0   L   ?#  	1   m   #  0   L   #   U      D$  	%      \$          b$  "   ]  J@  0   \   %  0   H   h%  #     %  	1   W   &       '   U   2   -   	      -        -   	      -        -   !   `   -   !     X.   !     h0   !   0  4   !     86   !   0   >  	)      >      Z  >                                                                                                                                                                          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    A  A   R e s t a r t                                                                                                                                                                                                                                                                                                                           W e l c o m e D l g                                                                                                                                                                                   P o s C u r s o r                                                   G e t W p C h a r s D l g                                            !                                                                 $                                                            	     #                                                            
     "                                                            	X     &                                                            	X     %                                                            	6     (                                                            	     '                                                            	     *                                                            	@     )                                                            	     ,                                                            	     +                                                            	j     -                                                            	     .                                                            	X     1                                                                  3                                                                 5                                                                 4                                                                 2                                                                 0                                                                  7                                                                 6                                                                                                                                                                                               (    C h o o s e B u l l e t                                         ~     8                                                            X     9                                                                 ;                                                            t     =                                                                 ?                                                                 >                                                                 <                                                                 A                                                            `     C                                                            L     D                                                                 E                                                                 B                                                            L     @                                                            `     :                                                            t    S h o w S e t                                                        F                                                                 G                                                                 I                                                            l     H                                                            l     J                                                            r     K                                                                 L                                                            $      - I                                                               - E                                                         t      - B                                                         N     M                                                                  - I                                                               - E                                                               - B                                                                                                                                    M e s s a g e    P                                                            	%     O                                                            d      N                                                            	R/     R                                                            	2'     Q                                                            	%     T                                                            	)     S                                                            	V'     V                                                            	,     U                                                            	)     X                                                            	-     W                                                            	,     Z                                                            	R/     Y                                                            	-                                                                    \/           M e s s a g e                                                                                                                                   7  b                ?    S          X  g  v    o        -	  	  E
  ]
  c
  i
        
  
  ;  A          z      
    q    =    &  L  ]    X    H    _  r      |    W  0  q      =        ;  a        v      J        W         *!  !  n"  "  "  "  w#  #  #  #  #   $  $  %$  3$  $  %  %  &  l'  '  '  A(  Q(  <)  )  *  *  -+  +  +  +  ^,  ,  V-  .  .  .  .  /  /  /  60  0  0  1  1  U2  2  2  3  3  3  3  3  4  C5  k5  "6  56  \6  '7  ?7  R7  f7  x7  8  8  E9  b9  n9  y9  )>  4>   ?  ,?  A  B  NE  ZE  1F  =F  lG  vG                          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     < 
  9 p` (      X< 6X  9  ` +   C o u r i e r         "4  ? x x x  X    Xx      (         
      $       @    K  

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

    
 
    
  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 ; ? C G K O S            -     *   +     x   7      b             5                                   X       g      ' ~      	      o                  '       		      E
      ]
      c
            
      ;      -A            t      uz      -      q      ,_      |      	      	      v      	=      q             	      J;      JD    a             	-      	      :J      v      W       	                      !      -n"      "      w#      #      #      #      4 $      $       3$      	-$      %      G%      J'      J'    7'       '      ''       '      ''       '      SA(      MQ(      <)      'H)      'V)      )      s )       )      s )       )      ')      *      t "*       1*       >*       B*      'N*      *      -+      +      +      +      s +       	,      s 
,       ,      '*,      ^,      t b,       q,       ~,       ,      ',      7,      u ,      
V-      .      .      /       /      F/      /      -60      0      K0      K0    71      u 1      
1      U2      } X2       2      F2      2      73      } 3      G3      63      3      63      C4      C5      sk5      	"6      56      6\6      v'7      ?7      6R7      -8      )E9      	b9      	n9      	)>      	 ?      	A      	NE      	1F      lG      	vG      0 2  A p`    H e l v e t i c a         A  HD  D  # |	 #| M   
      " B D O ??=K ' 	             "  u^88Goo,CCNu8C88oooooooooo88uuuo˅z8dozz888^o,oodoo8oo,,d,ooooCd8oddddC4CuC8CC!CCC     CCCCCC  Cz  oooooȲdoooo88888888ooooooooodoozodoooooddddooooooooooooo88888,88  d do,o,o,o,o,ooooooȽCCCddddz8z8z8oooooodzdzdzd  oo,oCdz8ddoooo88 8oNF  8 koCzoooo oJIoC oC &  CCoCC  oo            dd     ,C             C'uu      u           u               P  u                         o         "   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           (                    $        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                          < 6X  9  ` +   C o u r i e r         "0 2  A p`    H e l v e t i c a         6 2  
p`     S y m b o l         eU ''    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         oR  ? x x x  X    Xx  {  1 ` C `    / X` {    qgB  1 l C l    b Xl 6qg  T|     C   X   X sT_  - e C e     Xe U  ? x x x  X  Xx S 
    , D FH                 ! 4 ݘ   
    !    W     h    h   
  ,   X    X{ X  X X  
 %
    
 
 //*********************************************   	       ////     MACRO:         D WPCH_BU0 	 1	 .WPM   	    //        	 k   //     PURPOSE:    D BulletsCoach   	 T   // 
 //     AUTHOR:     WordPerfectCorp.//
 //*********************************************                  Global(ScrnMode;MsgAdj;DefTitle;CancelMsg)Global(HotElement;SaveScrn)CancelMsg=0select[0]=0xpos=0ypos=0DefTitle="Coach"ScrnMode=?ScreenHigh24Use("wpchlibr.wpm")    	     
           
 //Sharedlibraryfile   	 4   ScreenSetup()    D     p     	     
           
 //Removebuttonbars,scrollbars,etc.   	    ColorScheme()    D     p     	     
           
 //Setcolorsto"Coach"   	    MsgAdj=DlgMessage()    	     
           
 //Setanadjustmentformessages   	    	   	 q   //*********************************************////     MAINPROGRAM:Coach   	 T   ////*********************************************Cancel(Off!)Call(WelcomeDlg)    p     	 //Displaywelcomedialog   	 H   Label(Restart)Call(PosCursor)    D     p //Callroutinethathelpspositioncursor   	 
   DisplayRewriteWindowMaximizeSuccess=?Position    p     	     
 //Setcurrentcursorpositiontovariablesuccess   	 W
   Call(GetWPCharsDlg)    	     
           
 //helpuserGettowpcharsdialog   	 )y   Call(ChooseBullet)    p     	     
      //helpuserwithcharactersdlg   	 K   DisplayRewriteIf(?Position<>Success)    
           
 //Ifcursornotatsamelocationasatbeginning   	         Message(&tbox;200)    
           
     L     x           //message=done,doyouwantanother?   	         Result=MessageBox(DefTitle;&tbox;3)     //displaymessage   	         If(Result=1)    D     p     	     
           
     L     x      //Ifyes,restart   	 q             Go(Restart)     EndIfEndIfQuitCoach()         D     p     	     
           
     L //EndofCoach   	 e   //*********************************************//     ENDMAINPROGRAM   	 !     //*********************************************	   	 $#   //*******************************//Subroutine:Welcome//********************************Label(WelcomeDlg)Message(&tbox;10)    	     
           
     L     x //Message=Welcometothiscoach   	 &
v   Result=Welcome(DefTitle;&tbox)     
 //Displaymessagew/continueandquitbuttons   	 _   If(Result=1)         D     p     	     
           
     L //Ifquitbutton   	 H        QuitCoach()    D     p     	     
           
     L     x //Endthecoach   	 1	   EndIfReturn	   	 
   //***********************************************////Label:PosCursor////*****************************************************Label(PosCursor)Message(&tbox;50)    	     
           
     L     x //Message=positionyourcursor   	 &
v   FakeIt(DefTitle;&tbox;3;1;0)          
    	 _   PosCharNext    D     p     	     
           
     L     x      //thistwocommandsareabugpatch   	 H   PosCharPrevkeypress={8154;}    p     	     
           
     L //F7key   	 
	
   chkcode={1;}Result=DoEdit(1;&chkcode;&keypress)    x      //givetheusercontrolofdocscreen   	 
   Return              D     p     	     
           
     L     x                    ( //andwatchfortheF7key   	 
   	   	 W
   //*********************************************////     SUBROUTINE:GetWPCharsDlg   	    ////     PURPOSE:Walkuserthroughgettingtothewpcharsdlg   	 T   ////*********************************************Label(GetWpCharsDlg)Message(&tbox;100)    	     
           
     L     x                //Message=ChooseFontthenWPChars   	 H   hbox1={     "Choose>  r [BoldOn]?
   
 Font.";   	 1	             }hbox2={     "Choose>  r [BoldOn]?
   
 WPCharacters.";   	 
             }hbox3={1;          }FontMenu(&valid)allow={          1686;    p     	 //wpcharsmenuoption   	 @                  }exallow={     0;    D     p //Allowexecute   	 b             }accel={          119;    p     	     
 //(w)pchars   	 4             }exaccel={     0;    D     p //Allowexecute   	              }nosubmenu(&subval;&subacl;&exsubacl;&subs)         ( //Nosubmenusonthisone   	    funkey={          8046;    	 //Ctrl+W     
     L     x              	 q             }Repeat     Result=PostIt(DefTitle;&tbox;0;13;0;2;0)          //Postthemessage   	 ,|        MenuActive=0     Show=HotSpot(0;0;62;0;534;&funkey;1)              ( //Waitforanaction   	 N        Switch(show)     CaseOf1:    D //Showmenu     
 (theshowmebuttonwaspressed)         0     \                   	 !               sbox={    D "Choose>  r [BoldOn]?
   
 WPCharacters.";   	 "	!                           D "";}̐          Result=PostIt(DefTitle;&tbox;0;13;0;3;0)          ShowMenu(DefTitle;&sbox;44;12ScrnMode;5;13;0;0)     CaseOf1655:    p     	 //FontmenuIdwasclicked   	 F'"&             PosLineDown     CaseOf534:    p //Altowaspressed   	 *Q%)             PullDownDlg          Type("o")     CaseOf8046:    p //Functionkey(ctrl+w)waspressed   	 -(-             DlgInput(On!)          DisplayRewrite          WpCharDlg    p     	     
      //bringupwpcharsdialog   	              Return     CaseOf8085:    p //Alt+=waspressed   	 =	             sbox={1;}          Result=PostIt(DefTitle;&tbox;0;13;0;3;0)          MenuActive=MenuBarControl(DefTitle;&hbox1;&sbox;3;3          ScrnMode;111;&funkey)     DEFAULT:    D //Default    
    	 
             PosLineDown          sbox={1;}          MenuActive=MenuBarControl(DefTitle;&hbox1;&sbox;3;3          ScrnMode;111;&funkey)     EndSwitch    D    	 @        If(menuactive<>1)          If(Show<>8046andMenuActive<>8046)//Iffunctionkeywasnotpressed               Result=MenuControl(&hbox1;&hbox2;&hbox3;&valid;&allow;&exallow;               &accel;&exaccel;&subval;&subacl;&exsubacl;&subs;&funkey)               If(Result=8046)          
 //Ctrl+Wwaspressed   	                        Return               EndIf               MenuActive=Result               CancelMenus()    
           
     L //Turnoffallmenus   	 Z             EndIf     EndIf     If(MenuActive=1)          Result=PostIt(DefTitle;&tbox;0;13;0;2;0)     EndIfUntil(MenuActive<>1)DisplayRewriteCancelMenus()WpCharDlg         D     p     	     
           
     L //Bringupwpcharsdialog   	 $#   Return	   	 F'"&   //***********************************************//LABEL:ChooseBullet////PURPOSE:Walkuserthroughchoosingbullet////****************************************************Label(ChooseBullet)Tab                   D     p     	     
           
     L     x                    (     T //TaboncetoplacefocusonSet   	 _   Message(&tbox;105)    	     
           
     L     x                    ( //Message=choosesetthenthechar   	 H   Result=PostIt(DefTitle;&tbox;58;4;0;6;0)    x //Displaymessage   	 1	   DlgInput(On!)While(?Dialog=80or?Dialog=237or?Dialog=0)     //Whileinanyofthesedialogs   	 
   Discard(Result)Look(key)         D     p     	     
           
     L     x                    (     T //Lookatthekeystroke   	 
        If(key=768orkey=8050orkey=8160)     //Ifmouse,ctrl+s,orEsc   	 W
             If((?MouseX>xposS1And?MouseX<xposS2andkey=768)or(key=8050))               If((?MouseY=yposS1andkey=768and?Dialog=80)or(key=8050))                    Call(ShowSet)          
     L     x //Showmebuttonwasselected   	 b                       Go(ChooseBullet)     
     L     x //Showthesetlistandloopup   	 K                  EndIf          EndIf          If((?MouseX>xposQ1And?MouseX<xposQ2andkey=768)or(key=8160))               If((?MouseY=yposQ1andkey=768and?Dialog=80)or(key=8160))                    While(?MouseLeft)     
     L //Quitbuttonwasselected   	                        EndWhile    
           
     L     x      //Waitformousebuttontobeletup   	 q                       CancelCoach()          
     L     x //Cancelcoachyes/no?   	 Z                       key=0               EndIf          EndIf     EndIf     Type(ntoc(key))    p     	     
           
     L //Typethekey   	  7   EndWhile         D     p     	     
           
     L     x      //Continuelookloop   	 !     Return	   	 "	!   //********************************************////Subroutine:ShowSet////***********************************************Label(ShowSet)     Display(On!)     While(?MouseLeft)    	     
           
     L     x //Whilethemousebuttonisdown   	 _        EndWhile    D     p     	     
           
     L     x           //Waituntilitisup   	 H        If(?DialogControl=3208)          type(ntoc(8160))    
           
 //Executetheescapekey   	 
	
        EndIf     While(?DialogControl<>3209)     
     L //Tabuntilfocusisonthesetcontrol   	 
             Tab          Wait(2)     EndWhile     wait(3)         D     p     	     
           
     L     x      //dramaticdelay   	 @        Hrt              D     p     	     
           
     L     x           //popthelist   	 )y        ForNext(l;1;14)          PosLineUp    p     	     
           
     L     x           //Movebartothetopofthelist   	 K        EndFor     ForNext(l;1;4)          Wait(3)    D     p     	     
           
     L     x      //Slowlymovethebardowntotypograpchic   	              PosLineDown     EndFor     Wait(3)     key=0     Message(&tbox;150)    
           
     L     x      //message=nowchoosethecharacter   	 C        Result=PostIt(DefTitle;&tbox;0;10;0;0;0)     //postmessageonleftsideofdlg   	 ,|   Return	   	  7   //*********************************************////     PROCEDURE:Message   	    //%
    
 //*********************************************PROCEDUREMessage(&tbox;Msg)Switch(Msg)CaseOf10:tbox={     "";   	 H                  ">  r [BoldOn]?
   
 InsertingBullets>   [BoldOff]?
   
 ";          0     "";  
  p&p&                 "Youcaninsertbulletslikethefollowinginto";               "yourdocument:";               "";               " Asimplebullet";               "Ahollowbullet";   	 W
                  "Asquarebullet";   	 @                  "Adotbullet";   	 )y                  "";               "HINT:Ifyouareinterestedincreatingabulleted";               "list,quitCoachandtrytheBulletstyleinthe";               "Outlinefeature.Itautomaticallygeneratesbullets";               "andgivesyoumoreeditingcapabilities.";          }CaseOf50:tbox={     "Placethecursorwhereyouwanttoinsertabullet.";   	 Z                  "";               }CaseOf100:tbox={     "Tolistthespecialcharacters";   	  7                  "available,";               "";               "Choose>  r [BoldOn]?
   
 Font>   [BoldOff]?
   
 ,";   	 #"                  "then>  r [BoldOn]?
   
 WPCharacters>   [BoldOff]?
   
 .";          0     "or";  
  p&p&                 "Press>  r [BoldOn]?
   
 Ctrl+W>   [BoldOff]?
   
 .";   	 ]&!%                  "";     }CaseOf105:tbox={     "Toselecta";   	 *:&*                  "bullet,";               "";               "Choose>  r [BoldOn]?
   
 Set>   [BoldOff]?
   
 ,";   	 -(-                  "thenselect";               ">  r [BoldOn]?
   
 Typographic";               "Symbols>   [BoldOff]?
   
 .";                          "Selecta";   	 k                  "bullet,then";               "choose>  r [BoldOn]?
   
 Insert>   [BoldOff]?
   
 .";               "";          }CaseOf150:tbox={     "Selecta";   	 
	
                  "bullet,then";               "choose>  r [BoldOn]?
   
 Insert.";          }CaseOf200:tbox={     "Youhaveinsertedabullet";   	 @                  "intoyourdocument.";               "";               "Doyouwanttoinsertanother?";               "";          }EndSwitchENDPROC