                                            
 
                                             ,{ NWYST{Hh  ( 2 0 0 4 . 4 ) 
 
 
 
  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zSۏLvYt( 1 5 R) 
 
       4 . c[<h_Q~g( 1 0 R) 
 
       5 . sQpenc^Sz^~g( 4 ) 
 
 
 
 C L E A 
 
 S E T   S A F E     O F F 
 
 c l o s e   a l l 
 
 s e l e   1 
 
 u s e   f[u
 
 i n d e x   o n   f[S  t o   k k 
 
 s e l e   2 
 
 u s e   z
 
 s e l e   3 
 
 u s e   b~
 
 i n d e x   o n   zS  t o   p p 
 
 s e l e   b 
 
 s e t   r e l a   t o   zS  i n t o   c 
 
 s e t   s k i p   t o   c 
 
 s e l e   3 
 
 s e t   r e l a   t o   f[Si n t o   a   a d d i t i v e 
 
 s e l e   2 
 
 a c c e p   " g⋓eQzS"   t o   k c 
 
 l o c a   f o r   zS= u p p e r ( k c ) 
 
 ? " _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ g~g_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ " 
 
 ? " Y
T      z
T        b~      s~          NYe^" 
 
 d o   w h i l e   n o t   e o f ( ) 
 
     @ r o w ( ) + 1 , 1   s a y   a . Y
T+ S P A C E ( 5 ) + z
T+ S P A C E ( 5 ) + ; 
 
     S T R ( C . b~) + S P A C E ( 1 0 ) + A . s~+ S P A C E ( 1 0 ) + NYe^
 
     C O N T 
 
 E N D D O 
 
 S E T   R E L A   T O   
 
 C L O S E     A L L 
 
 R E T U R N 
 
 
 
 
 
 N. hUS( hUS1 . S C X ) ( 5 0 R) 
 
     1 . ^zehUS( hUSh:N" f[ugh" ) ( 5 R) 
 
     2 . $NhvT|( 1 0 R) 
 
     3 . ^zh~{cN( 5 R) 
 
     4 . ^z~TFhNnvsQ^\'`( 1 0 R) 
 
         A . hUS
NNu~TFh( 2 R) 
 
         B . ~TFhvsQ^\'`n: ( k*N^\'`4 R) 
 
             [a      ^\'`
T                  n<P
 
             C o m b o l   r o w s o u r c e               f[u. f[S
 
                           r o w s o u r c e t y p e       W[k
 
     5 . ^zh<hcNSvsQ^\'`n( 1 5 R) 
 
           A . hUS
NNuh<h( 2 R) 
 
           B . h<h-NvsQ^\'`: ( k*N^\'`1 R) 
 
             [a                        ^\'`
T                            n<P  
 
             G r i D 1                       c o l u m m n c o u n t                     3 
 
                                             l i n k m a s t e r                       f[u( 6rh
T) 
 
                                             r e c o R d s o u r c e t y p e           1 - +R
T
 
                                             r e c o R d s o u r c e                   b~( pencn) 
 
                                             r e l a t i o n a l e x p r               f[S( 6rNP[ޏcW[k) 
 
             c o l u m n 1                   c o n t r o l s o u r c e                 b~. f[S
 
             h e a d e r 1                   c a p t i o n                             f[S
 
             c o l u m n 2                   c o n t r o l s o u r c e                 b~. zS
 
             h e a d e r 2                   c a p t i o n                             zS
 
             c o l u m n 3                   c o n t r o l s o u r c e                 b~. b~
 
             h e a d e r 3                   c a p t i o n                             b~
 
   6 . cknxЏLhUS( 5 R) 
 
 
 
 
 
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
                                             
 
                                             ,{NWYST{Hh  ( 2 0 0 4 . 4 ) 
 
 
 
 
 
  N. z( A B C 2 . P R G ) ( 5 0 R) 
 
       ċR~R: 
 
       1 . Y*N]\O:SSb _penc^h( 6 R) 
 
       2 . cknxۏLYpenc^vT|( 1 0 R) 
 
       3 . cknx
Y6RheNvYt( 1 0 R) 
 
       4 . cknx[h-NvW[kۏLO9e( 2 0 R) 
 
       5 . sQpenc^Sz^~g( 4 ) 
 
   
 
 U S E   ]D
 
 C O P Y   T O   ]D- 1   F I E L D S   S, Y
T, W,g]D
 
 S E L E C T   2 
 
 U S E   Ջ
 
 I N D E X   O N   ST O     K S I D X 
 
 S E L E C T   1 
 
 U S E   ]D- 1 
 
 S E T   R E L A T I O N   T O   S    I N T O   B 
 
 D O   W H I L E   N O T   E O F ( ) 
 
       D O   C A S E 
 
             C A S E   B - > Ջb~> 8 0 
 
               R E P L A C E   W,g]DW I T H   W,g]D+ 5 0 
 
             C A S E   B . Ջb~> 7 0     A N D   B . Ջb~< = 8 0 
 
               R E P L A C E   W,g]D  W I T H       W,g]D+ 3 0 
 
             C A S E   B . Ջb~> = 6 0     A N D   B . Ջb~< = 6 9 
 
               R E P L A C E   W,g]D    W I T H   W,g]D+ 1 0 
 
         E N D C A S E 
 
         S K I P 
 
 E N D D O 
 
 L I S T 
 
 S E T   R E L A T I O N   T O 
 
 C L O S E   D A T A B A S E 
 
 
 
 
 
 N. hUS( hUS2 . S C X ) ( 5 0 R) 
 
   1 . hUSvC A P T I O N   ^\'`n:N" W[SO<h_" , A U T O C E N T E R ^\'`n:N. T . ( 6 R) 
 
   2 . cknxnhUS-NTcNSvQMOn. ^\'`( 1 0 R) 
 
   3 . 
Y	Fh" R|F O N T B O L D " vC L I C K NNNx:N: ( 7 R) 
 
       i f   t h i s f o r m . c h e c k 1 . v a l u e = 1 
 
             t h i s f o r m . l a b e l 1 . f o n t b o l d = . t . 
 
       e l s e 
 
             t h i s e f o r m . l a b e l 1 . f o n t b o l d = . f . 
 
       e n d i f 
 
   4 . 
Y	Fh" >PeF O N T I T A L I C " vC L I C K eNx:N: ( 7 R) 
 
         i f   t h i s f o r m . c h e c k 2 . v a l u e = 1 
 
             t h i s f o r m . l a b e l 1 . f o n t i t a l i c = . t . 
 
       e l s e 
 
             t h i s e f o r m . l a b e l 1 . f o n t i t a l i c = . f . 
 
       e n d i f 
 
   5 . 
Y	Fh" NR~F O N T U N D E R L I N E " vC L I C K NNNx:N: ( 7 R) 
 
           i f   t h i s f o r m . c h e c k 3 . v a l u e = 1 
 
             t h i s f o r m . l a b e l 1 . f o n t u n d e r l i n e = . t . 
 
       e l s e 
 
             t h i s e f o r m . l a b e l 1 . f o n t u n d e r l i n e = . f . 
 
       e n d i f 
 
   6 . }TN	c" nr" vC L I C K NNNx:N: ( 8 R) 
 
         x = g e t c o l o r ( ) 
 
         i f   x > = 0 
 
               t h i s f o r m . l a b e l 1 . f o r e c o l o r = x 
 
         e n d i f 
 
   7 . }TN	c  Q" vC L I C K NNNx:N: ( 5 R) 
 
         r e l e a s e   t h i s f o r m     b    t h i s f o r m . r e l e a s e 
 
 
 
 
 
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * 
 
 
 
                                         
 
                                             ,{	NWYST{Hh  ( 2 0 0 4 . 4 ) 
 
 
 
 
 
  N. z( A B C 3 . P R G ) ( 5 0 R) 
 
       ċR~R: 
 
       1 . Y*N]\O:SSb _penc^h( 6 R) 
 
       2 . cknxۏLYpenc^vT|( 1 0 R) 
 
       3 . cknxg⋄vYt( 1 0 R) 
 
       4 . 	cĉ[v<h_eQ( 1 5 R) 
 
       5 . cknx^(u_s( 5 R) 
 
       6 . sQpenc^Sz^~g( 4 ) 
 
 
 
 C L E A 
 
 S E T   S A F E     O F F 
 
 c l o s e   a l l 
 
 s e l e   1 
 
 u s e   Ye^
TQ
 
 s e l e   2 
 
 u s e   Ye^_G
 
 I N D E X   O N   Ye^S  T O   P P 
 
 S E L E   1 
 
 S E T   R E L A   T O   Ye^SI N T O   B 
 
   A N = " Y " 
 
 D O   W H I L E   . T . 
 
 C L E A R 
 
 A C C E P T     " eQO9evYe^S"   T O   B H 
 
 L O C A T   F O R   Ye^S= B H 
 
       @ 3 , 3 0   S A Y   " Ye^S"   G E T   Ye^S
 
       @ 5 , 1 0   S A Y   " Y
T"   G E T   B . Y
T
 
       @ 5 , 4 0   S A Y   " Ly"   G E T   B . Ly
 
       @ 7 , 1 0   S A Y   " '`+R"   G E T   '`+R
 
       @ 7 , 4 0   S A Y   " Queg"   G E T   Queg
 
       @ 8 , 1 0   S A Y   " ~~O9evQNNXTT? Y / N "   G E T   A N 
 
       R E A D 
 
       I F   L O W E R ( A N ) = ' N ' 
 
             E X I T 
 
       E N D I F 
 
 E N D D O 
 
 S E T   R E L A   T O 
 
 C L O S E   A L L 
 
 R E T U R N 
 
 
 
 
 
 N. hUS( hUS3 . S C X ) ( 5 0 R) 
 
     1 . ^zehUS( hUSh:N" Ye^gh" ) ( 5 R) 
 
     2 . $NhvT|( 1 0 R) 
 
     3 . ^zh~{cN( 5 R) 
 
     4 . ^z~TFhNnvsQ^\'`( 1 0 R) 
 
         A . hUS
NNuRhFh( 2 R) 
 
         B . ~TFhvsQ^\'`n: ( k*N^\'`4 R) 
 
             [a      ^\'`
T                  n<P
 
             L I S T l   r o w s o u r c e               Ye^
TQ. Ye^S
 
                           r o w s o u r c e t y p e       W[k
 
       5 . ^zh<hcNSvsQ^\'`n( 1 5 R) 
 
           A . hUS
NNuh<h( 2 R) 
 
           B . h<h-NvsQ^\'`: ( k*N^\'`1 R) 
 
             [a                        ^\'`
T                            n<P  
 
             G r i D 1                       c o l u m m n c o u n t                     4 
 
                                             l i n k m a s t e r                       Ye^
TQ( 6rh
T) 
 
                                             r e c o R d s o u r c e t y p e           1 - +R
T
 
                                             r e c o R d s o u r c e                   Ye^_G( pencn) 
 
                                             r e l a t i o n a l e x p r               Ye^S( 6rNP[ޏcW[k) 
 
             c o l u m n 1                   c o n t r o l s o u r c e                 Ye^_G. Y
T
 
             h e a d e r 1                   c a p t i o n                             Y
T
 
             c o l u m n 2                   c o n t r o l s o u r c e                 Ye^_G. Ly
 
             h e a d e r 2                   c a p t i o n                             Ly
 
             c o l u m n 3                   c o n t r o l s o u r c e                 Ye^_G. ]D
 
             h e a d e r 3                   c a p t i o n                             ]D  
 
             c o l u m n 4                   c o n t r o l s o u r c e                 Ye^
TQ. '`+R
 
             h e a d e r 4                   c a p t i o n                             '`+R
 
       6 . cknxЏLhUS( 5 R) 
 
 
 
 
 
 
 
 