- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 penc^
N:gՋ,{ NWY2 0 0 3 1 0 1 9       ( ST{Hh) 
 
 
 
 
 
  N    z( a b c 1 . P R G )   ( 5 0 R) 
 
 ċR~R: 
 
       1   Y*N]\O:SSb _penc^h          ( 6 R) 
 
               2   cknxۏLYpenc^vT|        ( 1 5 R) 
 
               3   9hnc'irSۏLvYt            ( 1 5 R) 
 
               4   c[<h_Q~g                        ( 1 0 R) 
 
               5   sQpenc^Sz^~g                ( 4 R) 
 
 Sz^  a b c 1 . P R G 
 
 
 
 c l e a r 
 
 c l o s e     a l l 
 
 s e l e     1 
 
 u s e     ۏ'
 
 s e l e     2 
 
 u s e     ^X[ϑ
 
 i n d e x   o n     'irS    t o   h w b h 
 
 s e l e     a 
 
 s e t   r e l a   t o     'irS    i n t o   b 
 
 d o   w h i l e . t . 
 
 a c c p      eQgS     t o   b h 
 
 l o c a   f o r   'irS= B h 
 
 I F     F O U N D ( ) 
 
 @ 5 , 1 8   S A Y    * * * * * * * * * * * * * g~g* * * * * * * * * * * * * *  
 
 @ 6 , 1 0   S A Y    'irS + s p a c e ( 8 ) +  'irUSN + s p a c e ( 1 ) +  ^X[peϑ 
 
 d o     w h i l e     n o t     e o f ( ) 
 
 @ R O W ( ) + 1 , 1 0   S A Y   'irS+ S T R ( 'irUSN) + S P a c E ( 5 ) + A L L T R ( B . 'ir
Ty) + T R I M ( s t r ( B . ^X[peϑ) ) 
 
 c o n t 
 
 e n d d o 
 
 @ R O W ( ) + 1 , 1 8   S A Y  * * * * * * * * * * * * * * * * * * * * * * * * * *  
 
 E L S E 
 
         ?  edk'irS 
 
 e n d i f 
 
 w a i t    ~~gT? y / n    t o     h h 
 
 i f   l o w e r ( h h ) =  n  
 
       e x i t 
 
       e n d i f 
 
       e n d d o 
 
       C L O S E     D A T A b a s e 
 
       R E T U R N 
 
 2 .   hUS: 
 
       ( 1 )   hUSl	ghh. ( 5 R) 
 
               \f o r m vT i t l e b a r ^\'`n:N sQ- 0  
 
       ( 2 )   mRN*N h~{ cN, V*N e,gFh cN,  N*N }TN	c~ ( 	g	N*N}TN	c) T N*N }TN	c cN.         ( 1 0 R) 
 
       h~{cN: L a b e l l vC a p t i o n =  ^X[ϑhmRU_ , L a b e l 2 vC a p t i o n =  'irS , L a b e l 3 vC a p t i o n =  'ir
Ty , L a b e l 4 vC a p t i o n =  ^X[peϑ , L a b e l 5 vC a p t i o n =  eQ^e ; e,gFhcN: T e x t 1 vc o n t r o l s o u r c e = ^X[ϑ. 'irS, T e x t 2 vc o n t r o l s o u r c e = ^X[ϑ. 'ir
Ty, . T e x t 3 vc o n t r o l s o u r c e = ^X[ϑ. ^X[peϑ, T e x t 4 vc o n t r o l s o u r c e = ^X[ϑ. eQ^e; }TN	c~cN: 
 
                       C o m m a n d g r o u p 1 . b u t t o m c o u n t = 3 
 
                       C o m m a n d g r o u p 1 . c o m m a n d 1 . c a p t i o n =  
N Nag 
 
                       C o m m a n d g r o u p 1 . c o m m a n d 1 . c a p t i o n =  N Nag 
 
                       C o m m a n d g r o u p 1 . c o m m a n d 1 . c a p t i o n =  mRU_ 
 
      }TN	c cN: c a p t i o n =   Q 
 
     ( 3 )   S_U_>f:y0R,{ NagU_e,  
N Nag 	c
NSO(u, S_U_>f:y0R gTagU_e,  N Nag 	c
NSO(u; S_U_>f:y
N/f(W,{ NagU_,  
N Nag 	cb`
YO(u; S_U_>f:y
N/f gTU_,  N Nag 	cb`
YO(u.       ( 2 0 R) 
 
                                  
N Nag 	cvc l i c k NNNx
 
         t i s f o r m . c o m m a n d g r o u p 1 . c o m m a n d 2 . e n a b l e d = . t . 
 
         i f   r e c n o ( ) = 1 
 
         t h i s f o r m . c o m m a n d g r o u p 1 . c o m m a n d 1 . e n a b l e d = . f . 
 
         e l s e 
 
         s k i p      1 
 
         e n d i f 
 
       t h i s f o r m . e f r e s h 
 
                                N Nag 	cvc l i c k NNNx
 
         t h i s f o r m . c o m m a n d g r o u p 1 . c o m m a n d 1 . e n a b l e d = . t . 
 
         i f     r e c n o ( ) = r e c c o u n t 	
 
         t h i s f o r m . c o m m a n d g r o u p 1 . c o m m a n d 2 . e n a b l e d = . f . 
 
         e l s e 
 
         s k i p 
 
         e n d i f 
 
         t h i s f o r m . r e f r e s h 
 
 ( 4 )   S_pQ mRU_ 	ceRST,gpenchmRevpenc    1 0 R	
 
       mRU_	cvc l i c k NNNx
 
       a p p e n d   b l a n k   
 
       t h i s f o r m . r e f r e s h 
 
 ( 5 )   S_pQ  Q 	ce~_ghUSvЏL0    5 R	
 
               Q 	cvc l i c k NNNx
 
                                     T h i s f o r m . r e l e a s e 
 
 
 
 
 
 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 
 
 penc^
N:gՋ,{NWY2 0 0 3 1 0 1 9       ( ST{Hh) 
 
 
 
 
 
    N0z  a b c 2 0P R G 	  5 0 R	
 
   ċR~R
 
             1 Y*N]\O:SSb _penc^            5 R	
 
             2 cknxۏLYpenc^vT|    1 5 R	
 
             3 	cBl[sg                        1 5 R	
 
             4 c[<h_Q~g                    1 0 R	
 
             5 sQpenc^Sz^~g            4 R	
 
 Sz^a b c 2 0P R G 
 
 S E L E     2 
 
 U S E     w o r k 
 
 I N D E X     O N     S    t a g     b h 
 
 s e l e         1 
 
 u s e         r s 
 
 S E T     R E L A     T O   S  I N T O     b 
 
 L O C A     F O R   Ly=  ^   A N D 0=  uNy 
 
 @   1 0 , 1 0   s a y   * * * * * * * * * * * * * * * * * * * * g~g* * * * * * * * * * * * * * * * * * * * * 
 
 @   R o w (   ) + 2 , 1 0   s a y    S + S P A C 5 	+  Y
T + S P A C 5 	+  Ly + S P A C 5 	+  ]\Oϑ + s p a c e 5 	+   
 
 D O     W H I L E       n o t       e o f 	
 
 @ R o w   (   ) + 2 , 1 0   s a y   S+ S P A C 2 	+ Y
T+ S P A C 2 	+ Ly+ S P A C 2 	+ S t r b . ]\Oϑ3 	+ s p a c e 6 	+ 
 
 C O N T   
 
 e n d d o 
 
 @ R o w   ( ) + 2 , 1 0   s a y   * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 C L O S E       a l l 
 
 S E T     S A F E T Y     O N 
 
 S E T     T A L K         O N 
 
 
 
 N0hUS  5 0 R	
 
     1 	  ,{ N*Ne,gvn5 R	
 
                             v a l u e =  NNpench-NU_v; Rd 0
 
                             R e a d o n l y = . t . 
 
       2 	mRh-NU_cNS^\'`n    1 0 R	
 
               h~{cNL a b e l 1 . C a p t i o n =  S L a b e l 2 . C a p t i o n =  Y
T L a b e l 3 . C a p t i o n =  Qut^g 
 
     L a b e l 4 . C a p t i o n =  Ly L a b e l 5 . C a p t i o n =  ]D L a b e l 6 . C a p t i o n =  VYё L a b e l 7 . C a p t i o n =   e,gFhcNT e x t 1 vc o n t r o l s o u r c e = r s . ST e x t 2 vc o n t r o l s o u r c e = r s . Y
TT e x t 3 vc o n t r o l s o u r c e = r s . Qut^gT e x t 4 vc o n t r o l s o u r c e = r s . LyT e x t 5 vc o n t r o l s o u r c e = r s . ]DT e x t 6 vc o n t r o l s o u r c e = r s . VYёT e x t 7 vc o n t r o l s o u r c e = r s . }TN	c~cN
 
                           C o m m a n d g r o u p 1 . b u t t o m c o u n t = 3 
 
                           C o m m a n d g r o u p 1 . c o m m a n d 1 . c a p t i o n =  
N Nag 
 
                           C o m m a n d g r o u p 1 . c o m m a n d 1 . c a p t i o n =  N Nag 
 
                           C o m m a n d g r o u p 1 . c o m m a n d 1 . c a p t i o n =  ; Rd 
 
      }TN	c cNc a p t i o n =  ~_g 
 
           3 	S_U_>f:y0R,{ NagU_e 
N Nag 	c
NSO(uS_U_>f:y0R gTagU_e N Nag 	c
NSO(uS_U_>f:y
N/f(W,{ NagU_ 
N Nag 	cb`
YO(uS_U_>f:y
N/f gTagU_ N Nag 	cb`
YO(u0    2 0 R	
 
                                    
N Nag 	cvc l i c k NNNx
 
         t h i s f o r m . c o m m a n d g r o u p 1 . c o m m a n d 1 . e n a b l e d = . t . 
 
         i f     r e c n o ( ) = 1 
 
         t h i s f o r m . c o m m a n d g r o u p 1 . c o m m a n d 2 . e n a b l e d = . f . 
 
         e l s e 
 
         s k i p   -   1 
 
         e n d i f 
 
         t h i s f o r m . r e f r e s h 
 
                                  N Nag 	cvc l i c k NNNx
 
         t h i s f o r m . c o m m a n d g r o u p 1 . c o m m a n d 1 . e n a b l e d = . t . 
 
         i f     r e c n o ( ) = r e c c o u n t 	
 
         t h i s f o r m . c o m m a n d g r o u p 1 . c o m m a n d 2 . e n a b l e d = . f . 
 
         e l s e 
 
         s k i p 
 
         e n d i f 
 
         t h i s f o r m . r e f r e s h 
 
 4 	S_pQ mRU_ 	ceRST,gpenchmRevpenc0    1 0 R	
 
                                 mRU_	cvc l i c k NNNx
 
                                         d e l e 
 
                                         t h i s f o r m . r e f r e s h 
 
   ( 5 )   S_pQ  Q 	ce~_ghUSvЏL0      5 R	
 
                   Q 	cvc l i c k NNNx
 
                     t h i s f o r m . r e l e a s e 
 
 
 
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 
 
 
 
 penc^
N:gՋ,{	NWY2 0 0 3 1 0 1 9       ( ST{Hh) 
 
 
 
  N0za b c 1 . P T G 	      5 0 R	
 
 ċR~R
 
         1 Y*N]\O:SSb _penc^                            6 R	
 
         2 cknxۏLYpenc^vT|                    1 0 R	
 
         3 	cBl{:gs^GWb~NpencYN        1 5 R	
 
         4 	cBl[sgNc[<h_Q~g    1 5 R	
 
         5 sQpenc^Sz^~g                            4 R	
 
 * Sz^a b c 3 . P R G 
 
 S E T     S A F E T Y     O F F 
 
 C L E A R 
 
 S E L E     1 
 
 U S E     S T D A 
 
 S E L E     2 
 
 U S E     S T C J 
 
 I N D E X     O N     f[S    T O     P P 
 
 R E P L     A L L   s^GWR    W I T H   ,TR+ {:g+ irt	/ 3 
 
 S E L E     1 
 
 S E T     R E L A     T O   f[S    I N T O   B 
 
 C O P Y     T O     s t b f     F i e l d     f[SY
TB - > s^GWR> = 8 5 
 
 L O C A     F O R   S U B S T R f[S1 2 	=  9 9  . A N D .  V] $ M|/
 
 @ 1 0 , 1 0     s a y      f[S                             Y
T                              s^GWR
 
 @ r o w ( ) + 2 , 1 0     s a y      = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =  
 
 D O     W H I L E     F O U N D ( ) 
 
 @ r o w ( ) + 2 , 1 0     s a y     f[S+ S P A C 2 	+ Y
T+ S P A C 2 	+ S T R B - > s^GWR	
 
 C O N T 
 
 E N D D O 
 
 @ R o q ( ) + 2 , 1 0     s a y      = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =  
 
 C L O S E     a l l 
 
 
 
 
 
 
 
 N0hUS    5 0 R	
 
       1 	  mRh-NcNS^\'`n    1 0 R	
 
                   h~{cNL a b e l 1 . C a p t i o n =  f[uOo`g L a b e l $C a p t i o n =  eQgf[S L a b e l 3 . C a p t i o n =  f[S L a b e l 4 . C a p t i o n =  Y
T L a b e l 5 . C a p t i o n =  '`+R L a b e l 6 . C a p t i o n =  Queg L a b e l 7 . C a p t i o n =  M|/ L a b e l 8 . C a p t i o n =  eQf[R e,gFhzz T e x t 2 vc o n t r o l s o u r c e = s t d a . f[ST e x t 3 vc o n t r o l s o u r c e = s t d a . Y
TT e x t 4 vc o n t r o l s o u r c e = s t d a . '`+RT e x t 5 vc o n t r o l s o u r c e = s t d a . QuegT e x t 6 vc o n t r o l s o u r c e = s t d a . M|/T e x t 7 vc o n t r o l s o u r c e = s t d a . eQf[R}TN	c~cN
 
                     C o m m a n d g r o u p 1 . b u t t o m c o u n t = 2 
 
                       C o m m a n d g r o u p 1 . c o m m a n d 1 . c a p t i o n =  nx[ 
 
                       C o m m a n d g r o u p 1 . c o m m a n d 1 . c a p t i o n =  Sm 
 
              }TN	c cNc a p t i o n =  g~_g 
 
 2 	 nx[  Sm 0S_eQgf[STpQ nx[ 	cR>f:yg~gpQ Sm 	cRh:y͑eeQgf[S0        1 5 R	
 
                              nx[ 	cvc l i c k NNNx    1 0 R	
 
                   l o c a   f o r   a l l t r i m ( s t d a . f[S) = a l l t r i m ( t h i s f o r m . t e x t 1 . v a l u e ) ) 
 
                   i f   f o u n d ( ) 
 
                   t h i s f o r m . r e f r e s h 
 
                   e n d i f 
 
                                                                                   
 
                                  Sm 	cvc l i c k NNNx    5 R	
 
                     t h i s f o r m . t e x t 1 . v a l u e =   
 
                     t h i s f o r m . t e x t 1 . s e t f o c u s 
 
                     t h i s f o r m . r e f r e s h 
 
   ( 3 )   S_pQ g~_g 	ce~_ghUSvЏL0  5 R	
 
  0 0 0 g~_g 	cvc l i c k NNNx
 
  0 0 0 0 0 0 0 0 0t h i s f o r m . r e l e a s e 
 
 	ЏLhUSe傡l	geQg⋄vf[SRhUS-N
N>f:yNUOU_l>f:yvU_Q[
NO9e	 0 0R	
 
  0 0F o r m  0hUSv 0i n i t NNNx
 
  0 0t h i s f o r m . t x t  0f[S. v a l u e   
 
  0 0t h i s f o r m . t x t  0Y
T. v a l u e   
 
  0 0t h i s f o r m . c h k  0'`+R. v a l u e . f . 
 
  0 0t h i s f o r m . t x t  0Queg. v a l u e   
 
  0 0t h i s f o r m . t x t  0M|/. v a l u e   
 
  0 0t h i s f o r m . t x t  0eQf[R. v a l u e   
 
  0 0t h i s f o r m . t x t  0f[S. r e a d o n l y . t . 
 
  0 0t h i s f o r m . t x t  0Y
T. r e a d o n l y . t . 
 
  0 0t h i s f o r m . c h k  0'`+R.   r e a d o n l y . t .  0 0
 
  0 0t h i s f o r m . t x t  0Queg. r e a d o n l y . t . 
 
  0 0t h i s f o r m . t x t  0M|/. r e a d o n l y . t . 
 
  0 0t h i s f o r m . t x t  0eQf[R. r e a d o n l y . t . 
 
  0 0t h i s f o r m . t e x t 1 . s e t f o c u s 
 
  0 0t h i s f o r m . r e f r e s h 
 
 