$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TEDITFIND!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D "
0000120 7 - J a n - 8 7 0 2 : 5 6 : 4
0000140 9 " 006 004 { E R I S } < T E D I
0000160 T > T E D I T F I N D . ; 9 006 001
0000200 3 5 3 4 9 \r \r
0000220 c h a n g e s t o % : ( F
0000240 N S \ T E D I T . B A S I C F
0000260 I N D T E D I T . F I N D ) \r
0000300 \r p r e v i o u s
0000320 d a t e % : " 2 1 - O c t - 8
0000340 6 0 2 : 0 6 : 4 2 " { E R I
0000360 S } < T E D I T > T E D I T F I
0000400 N D . ; 8 ) \r \r \r ( * " \r C o
0000420 p y r i g h t ( c ) 1 9 8 3
0000440 , 1 9 8 4 , 1 9 8 5 , 1 9
0000460 8 6 , 1 9 8 7 b y J o h n
0000500 S y b a l s k y & X e r o
0000520 x C o r p o r a t i o n .
0000540 A l l r i g h t s r e s e r
0000560 v e d . \r " ) \r \r ( P R E T T Y
0000600 C O M P R I N T T E D I T F I
0000620 N D C O M S ) \r \r ( R P A Q Q
0000640 006 002 T E D I T F I N D C O M S 006
0000660 001 ( ( F I L E S T E D I T D
0000700 E C L S ) \r
0000720 ( D E C
0000740 L A R E % : E V A L @ C O M P
0000760 I L E D O N T C O P Y ( C O
0001000 N S T A N T S ( \ S C R A T C
0001020 H L E N 6 4 ) ) \r
0001040
0001060 ( F I L E S ( L
0001100 O A D C O M P ) \r
0001120
0001140 T E D
0001160 I T D E C L S ) ) \r
0001200
0001220 [ D E C L A R E % : D O N T E
0001240 V A L @ L O A D D O C O P Y
0001260 ( V A R S ( T E D I T . S E A
0001300 R C H . C O D E T A B L E ( \r
0001320
*
0001420 \ T
0001440 E D I T . S E A R C H . C O D E
0001460 T A B L E \r
0001500
*
0001600 ] \r
0001620
0001640 ( C O M S ( * R e a d
0001660 - t a b l e U t i l i t i e s
0001700 ) \r
0001720 ( F
0001740 N S \ T E D I T . S E A R C H
0001760 . C O D E T A B L E ) \r
0002000
0002020 ( G L O B A L V
0002040 A R S T E D I T . S E A R C H
0002060 . C O D E T A B L E ) ) \r
0002100
0002120 ( F N S \ T E D I T . B
0002140 A S I C F I N D T E D I T . F
0002160 I N D T E D I T . N E W . F I
0002200 N D T E D I T . N E X T \ T
0002220 E D I T . F I N D . W C \r
0002240
0002260 \ T E D I T .
0002300 F I N D . W C 1 \ T E D I T .
0002320 P A C K . T A R G E T L I S T
0002340 \ T E D I T . P A R S E . S E A
0002360 R C H S T R I N G \r
0002400
0002420 \ T E D I T . S U B
0002440 S T . F N 1 \ T E D I T . S U
0002460 B S T . F N 2 T E D I T . S U
0002500 B S T I T U T E ) ) ) \r ( F I L
0002520 E S L O A D T E D I T D E C L
0002540 S ) \r ( D E C L A R E % : E V
0002560 A L @ C O M P I L E D O N T C
0002600 O P Y \r ( D E C L A R E % :
0002620 E V A L @ C O M P I L E \r \r (
0002640 R P A Q Q 006 002 \ S C R A T C H
0002660 L E N 006 001 6 4 ) \r \r ( C O N S
0002700 T A N T S ( \ S C R A T C H L
0002720 E N 6 4 ) ) \r ) \r \r ( F I L E
0002740 S L O A D ( L O A D C O M P )
0002760 \r T E D I T D E C
0003000 L S ) \r ) \r ( D E C L A R E % :
0003020 D O N T E V A L @ L O A D D
0003040 O C O P Y \r \r ( R P A Q 006 002
0003060 T E D I T . S E A R C H . C O D
0003100 E T A B L E 006 001 ( \ T E D I T
0003120 . S E A R C H . C O D E T A B L
0003140 E ) ) \r ) \r \r \r \r 006 004 ( * R e
0003160 a d - t a b l e U t i l i t i
0003200 e s ) 006 001 \r \r ( D E F I N E Q \r
0003220 \r ( 006 004 \ T E D I T . S E A R C
0003240 H . C O D E T A B L E 006 001 \r
0003260 ( L A M B D A N I L 006 006 006 001
0003300
*
0003340 006
0003360 006 ( * j d s " 2 3 - O C T -
0003400 8 3 0 0 : 5 8 " ) 006 001 \r
0003420
*
0003500 006 006 ( * B
0003520 u i l d t h e 1 6 - b i t -
0003540 i t e m " s y n t a x c l a
0003560 s s " \r 006 001
0003600
*
0003660 006 006 t a b l e f o r
0003700 s e a r c h i n g ) 006 001 \r
0003720 ( P R O G ( ( C O D E T B L
0003740 ( A R R A Y 2 5 6 ' S M A
0003760 L L P 0 0 ) ) ) \r
0004000 ( 006 002 f o r 006 001 I
0004020 006 002 f r o m 006 001 0 006 002 t o 006
0004040 001 2 5 5 006 002 d o 006 001 ( S E
0004060 T A C O D E T B L I I ) )
0004100 \r \r
0004120 006 006 ( * D e f a u
0004140 l t i s t h a t a c h a
0004160 r m a p s t o i t s e l f
0004200 , a n d i s p u n c t u a
0004220 t i o n . ) 006 001 \r \r
0004240 ( 006 002 f o r 006 001 C H \r
0004260 006 002 i
0004300 n 006 001 ( C H A R C O D E ( A
0004320 B C D E F G H I
0004340 J K L M N O P Q
0004360 R S T U V W X Y
0004400 Z a b c d e f g
0004420 h i j k \r
0004440
0004460 l m n o p
0004500 q r s t u v w x
0004520 y z ) ) \r
0004540 006 002 d o 006 001 ( S E T A
0004560 C O D E T B L C H ( I P L
0004600 U S \ A l p h a N u m e r i c
0004620 F l a g \ A l p h a F l a g
0004640 C H ) ) ) \r
0004660 ( 006 002 f o r 006 001 C H 006 002 i n
0004700 006 001 ( C H A R C O D E ( 0
0004720 1 2 3 4 5 6 7 8
0004740 9 ) ) 006 002 d o 006 001 ( S E T A
0004760 C O D E T B L C H ( I P L
0005000 U S \ A l p h a N u m e r i c
0005020 F l a g C H \r
0005040
*
0005140 ) ) ) \r
0005160 ( 006 002 f o r 006 001
0005200 C H 006 002 i n 006 001 ( C H A R C
0005220 O D E ( % # 006 002 * 006 001 @
0005240 ! & ~ { } ) ) 006 002 a s
0005260 006 001 C O D E \r
0005300 006 002 i n 006 001 ( L I S
0005320 T \ O n e C h a r P a t t e r
0005340 n \ A n y S t r i n g P a t t
0005360 e r n \ O n e A l p h a P a t
0005400 t e r n \ O n e N o n A l p h
0005420 a P a t t e r n \r
0005440
0005460 \ A n y A l p h a P a t t e r n
0005500 \ A n y N o n A l p h a P a t
0005520 t e r n \ L e f t B r a c k e
0005540 t P a t t e r n \ R i g h t B
0005560 r a c k e t P a t t e r n ) \r
0005600 006 002 d o
0005620 006 001 ( S E T A C O D E T B L
0005640 C H C O D E ) ) \r
0005660 ( R E T U R N C O D
0005700 E T B L ) ) ) ) \r ) \r ( D E C L
0005720 A R E % : D O E V A L @ C O M
0005740 P I L E D O N T C O P Y \r \r (
0005760 G L O B A L V A R S T E D I T
0006000 . S E A R C H . C O D E T A B L
0006020 E ) \r ) \r ( D E F I N E Q \r \r (
0006040 006 004 \ T E D I T . B A S I C F I
0006060 N D 006 001 \r [ L A M B D A (
0006100 T E X T O B J S T R I N G C
0006120 H # C H L I M ) 006 006 006 001
0006140
0006160 006 006 ( * ; " E d
0006200 i t e d 7 - J a n - 8 7 0
0006220 2 : 5 3 b y j d s " ) 006 001 \r
0006240 \r
0006260 006 006 ( * S e a r c h
0006300 t h r u T E X T O B J , s
0006320 t a r t i n g w h e r e t h
0006340 e c a r e t i s , f o r
0006360 t h e s t r i n g S T R I N
0006400 G , \r 006 001
0006420 006 006 e x a c t m a t c h o n
0006440 l y f o r n o w . ( O p t
0006460 i o n a l l y , s t a r t t
0006500 h e s e a r c h a t c h a
0006520 r a c t e r c h # . ) ) 006 001 \r
0006540 \r ( P R O G ( ( S E L
0006560 ( 006 002 f e t c h 006 001 S E L
0006600 006 002 o f 006 001 T E X T O B J ) )
0006620 \r ( T E X
0006640 T L E N ( 006 002 f e t c h 006 001
0006660 T E X T L E N 006 002 o f 006 001 T
0006700 E X T O B J ) ) \r
0006720 [ T E X T L I M ( O R
0006740 C H L I M ( A D D 1 ( I D
0006760 I F F E R E N C E ( 006 002 f e t
0007000 c h 006 001 T E X T L E N 006 002 o
0007020 f 006 001 T E X T O B J ) \r
0007040
*
0007100 ( N C H A R S
0007120 S T R I N G ] \r
0007140 ( T E X T S T R E A M (
0007160 006 002 f e t c h 006 001 S T R E A M
0007200 H I N T 006 002 o f 006 001 T E X T
0007220 O B J ) ) \r
0007240 ( F O U N D N I L ) \r
0007260 ( C H # 1 ( N
0007300 T H C H A R C O D E S T R I N
0007320 G 1 ) ) \r
0007340 C H 1 A N C H O R P C H #
0007360 O A N C H O R C H ) \r
0007400 ( 006 002 r e p l a c
0007420 e 006 001 \ I N S E R T P C V A L
0007440 I D 006 002 o f 006 001 T E X T O B
0007460 J 006 002 w i t h 006 001 N I L ) \r
0007500 \r
0007520 006 006 ( * | 2 / 1 2 /
0007540 8 5 | J D S % : I d o n '
0007560 t u n d e r s t a n d W H Y
0007600 t h i s i s h e r e , b
0007620 u t I ' l l a s s u m e i
0007640 t ' s \r 006 001
0007660 006 006 r i g h t f o r n o w
0007700 . ) 006 001 \r
0007720
*
0010000 006 006 ( * P r o h i b i t
0010020 f u t u r e i n s e r t i o n
0010040 s i n t h e \r 006 001
0010060
*
0010140 006 006 c u r r e
0010160 n t p i e c e . ) 006 001 \r
0010200 ( C O N D \r
0010220 ( ( O R C
0010240 H # ( 006 002 f e t c h 006 001 S E
0010260 T 006 002 o f 006 001 S E L ) )
0010300
0010320 006 006 ( * T h e r e m u s
0010340 t b e a w e l l - d e f i
0010360 n e d \r 006 001
0010400
*
0010460 006 006 s t a r t i n g p
0010500 o i n t . ) 006 001 \r
0010520 ( R E T U R N (
0010540 P R O G N I L \r
0010560
0010600 ( S E T Q C H 1 (
0010620 O R C H # ( S E L E C T Q
0010640 ( 006 002 f e t c h 006 001 P O I N T
0010660 006 002 o f 006 001 S E L ) \r
0010700
*
0010740 (
0010760 L E F T ( 006 002 f e t c h 006 001
0011000 C H # 006 002 o f 006 001 S E L ) )
0011020 \r
0011040
*
0011100 ( R I G H T ( 006 002 f e t
0011120 c h 006 001 C H L I M 006 002 o f 006
0011140 001 S E L ) ) \r
0011160
*
0011220 N I L ) ) )
0011240 006 006 ( * F i n d t
0011260 h e s t a r t i n g p o i n
0011300 t f o r t h e \r 006 001
0011320
*
0011400 006 006 s e a r
0011420 c h ) 006 001 \r
0011440
*
0011520 006 006 ( * D O T H E S
0011540 E A R C H ) 006 001 \r
0011560
0011600 ( C O N D \r
0011620
0011640 ( ( I G R E
0011660 A T E R P C H 1 T E X T L I
0011700 M ) \r \r
0011720 006 006 ( * S t a
0011740 r t i n g t h e s e a r c h
0011760 p a s t t h e l a s t p
0012000 o s s i b l e s t a r t i n g
0012020 p o i n t . \r 006 001
0012040 006 006 J u s t p u n t .
0012060 ) 006 001 \r \r
0012100
0012120 ( R E T U R N N I L
0012140 ) ) ) \r
0012160
0012200 ( S E T Q A N C H O R ( S U
0012220 B 1 C H 1 ) ) \r
0012240
0012260 R E T R Y \r
0012300
0012320 ( \ S E T U P G E T C H
0012340 ( A D D 1 A N C H O R ) \r
0012360
*
0012420 T E X T O B J ) \r
0012440
0012460 [ 006 002 f o r 006 001 006
0012500 002 o l d 006 001 A N C H O R 006 002
0012520 f r o m 006 001 ( A D D 1 A N C
0012540 H O R ) 006 002 t o 006 001 T E X T
0012560 L E N \r
0012600
0012620 006 002 d o 006 001 ( S E T Q
0012640 C H ( \ B I N T E X T S T R
0012660 E A M ) ) \r
0012700
0012720 ( C O N D \r
0012740
*
0013000 ( ( E Q C H C H # 1 )
0013020 \r
0013040
0013060 ( R E T U R N ] \r
0013100
0013120 ( C O N
0013140 D \r
0013160
0013200 ( ( I G R E A T E R P A N C
0013220 H O R T E X T L I M ) \r
0013240
0013260 ( R E
0013300 T U R N N I L ) ) )
0013320 006 006 ( * N
0013340 o s t a r t i n g c h a r a
0013360 c t e r f o u n d b e f o r
0013400 e \r 006 001
0013420
*
0013500 006 006 e n d o f s t r i n
0013520 g ) 006 001 \r
0013540
0013560 ( S E T Q O A N C H O R A
0013600 N C H O R ) \r
0013620
0013640 ( S E T Q F O U N D T
0013660 ) \r
0013700 [ 006
0013720 002 f o r 006 001 006 002 o l d 006 001 C
0013740 H 1 006 002 f r o m 006 001 ( A D D
0013760 1 A N C H O R ) 006 002 t o 006 001
0014000 T E X T L E N 006 002 a s 006 001
0014020 P C H # 006 002 f r o m 006 001 2 \r
0014040
0014060 006
0014100 002 t o 006 001 ( N C H A R S S T
0014120 R I N G ) 006 002 d o 006 001 ( S E
0014140 T Q C H ( \ B I N T E X T
0014160 S T R E A M ) ) \r
0014200
*
0014240 ( C
0014260 O N D \r
0014300
*
0014340 ( ( N E
0014360 Q C H ( N T H C H A R C O D
0014400 E S T R I N G P C H # ) ) \r
0014420
*
0014500 ( S E T Q F
0014520 O U N D N I L ) \r
0014540
*
0014620 ( R E T U R N ] \r
0014640
0014660 ( C O N D \r
0014700
0014720 ( F O
0014740 U N D ( R E T U R N A N C H
0014760 O R ) ) \r
0015000
0015020 ( T ( G O R E T R Y
0015040 ] ) \r \r ( 006 004 T E D I T . F I N
0015060 D 006 001 \r [ L A M B D A ( T
0015100 E X T O B J T A R G E T S T R
0015120 I N G S T A R T # E N D #
0015140 W I L D C A R D S ? ) 006 006 006 001
0015160 006 006 ( * ; " E d i
0015200 t e d 7 - J a n - 8 7 0 2
0015220 : 2 8 b y j d s " ) 006 001 \r
0015240 \r
0015260 006 006 ( * I f W I L D
0015300 C A R D S ? i s N I L t h
0015320 e n T E D I T . F I N D i s
0015340 t h e o l d T E D I T . F
0015360 I N D . \r 006 001
0015400 006 006 E l s e , i t r e t u
0015420 r n s a l i s t o f ( S
0015440 E L . S T A R T # S E L . E N
0015460 D # ) w h i c h i s t h e
0015500 s t a r t a n d e n d \r
0015520 006 001 006 006 c h
0015540 a r p o s i t i o n s o f
0015560 t h e s e l e c t i o n ) 006 001
0015600 \r \r ( P R O G [ ( T E
0015620 D I T . W I L D C A R D . C H A
0015640 R A C T E R S ' ( " # " " *
0015660 " ] \r ( A N
0015700 D T A R G E T S T R I N G (
0015720 N O T ( S T R I N G P T A R
0015740 G E T S T R I N G ) ) \r
0015760 ( S E T Q
0016000 T A R G E T S T R I N G ( M
0016020 K S T R I N G T A R G E T S T
0016040 R I N G ) ) ) \r
0016060 ( S E T Q T E X T O B J
0016100 ( T E X T O B J T E X T O B J
0016120 ) ) \r ( \ T
0016140 E D I T . H I S T O R Y A D D
0016160 T E X T O B J ( 006 002 c r e a t
0016200 e 006 001 T E D I T H I S T O R Y
0016220 E V E N T \r
0016240
*
0016300 T H A C T I O N _ ' F i
0016320 n d \r
0016340
0016360 T
0016400 H A U X I N F O _ T A R G E
0016420 T S T R I N G ) ) \r
0016440 ( 006 002 r e p l a c e 006 001
0016460 \ I N S E R T P C V A L I D
0016500 006 002 o f 006 001 T E X T O B J 006
0016520 002 w i t h 006 001 N I L )
0016540 006 006 ( * A n y F I N D
0016560 i n v a l i d a t e s t h e
0016600 t y p e - i n \r 006 001
0016620
*
0016700 006 006 c a c h e
0016720 . ) 006 001 \r (
0016740 R E T U R N \r
0016760 ( C O N D \r
0017000 [ W I L D C A R D S
0017020 ? \r \r
0017040 006 006 ( * w i l l
0017060 r e t u r n a l i s t o
0017100 f s t a r t a n d e n d
0017120 o f s e l e c t i o n o r
0017140 n i l i f n o t f o u n d
0017160 ) 006 001 \r \r
0017200 ( P R O G ( T A R G E
0017220 T L I S T S E L R E S U L T
0017240 R E S U L T 1 ) \r
0017260 (
0017300 R E T U R N ( C O N D \r
0017320
0017340 ( [ O
0017360 R S T A R T # ( A N D ( 006
0017400 002 f e t c h 006 001 S E T 006 002 o
0017420 f 006 001 ( S E T Q S E L ( 006
0017440 002 f e t c h 006 001 S E L 006 002 o
0017460 f 006 001 T E X T O B J ) ) ) \r
0017500
*
0017560 ( L E Q ( S E T Q S T A R T
0017600 # \r
0017620
*
0017660 ( S E L E C T
0017700 Q ( 006 002 f e t c h 006 001 P O I
0017720 N T 006 002 o f 006 001 S E L ) \r
0017740
*
0020020 ( L E F T
0020040 ( 006 002 f e t c h 006 001 C H # 006
0020060 002 o f 006 001 S E L ) ) \r
0020100
*
0020160 ( R I G H T ( 006
0020200 002 f e t c h 006 001 C H L I M 006
0020220 002 o f 006 001 S E L ) ) \r
0020240
*
0020320 N I L ) ) \r
0020340
*
0020420 ( O R E N D # ( S E T
0020440 Q E N D # ( 006 002 f e t c h 006
0020460 001 T E X T L E N 006 002 o f 006 001
0020500 T E X T O B J ] \r
0020520
*
0020600 006 006 ( * S T A R
0020620 T # b e t t e r b e > =
0020640 t o E N D # ) 006 001 \r
0020660
0020700 ( C O N
0020720 D \r
0020740
0020760 ( ( A N D ( 006 002 f
0021000 o r 006 001 X \r
0021020
*
0021060 006 002 i n 006 001 [ S E T Q
0021100 T A R G E T L I S T \r
0021120
*
0021160 ( 006 002
0021200 \ T E D I T . P A R S E . S E A
0021220 R C H S T R I N G 006 001 \r
0021240
*
0021300 ( 006
0021320 002 f o r 006 001 X 006 002 i n 006 001
0021340 ( C H C O N T A R G E T S T R
0021360 I N G ) \r
0021400
*
0021440 006 002 c o l l
0021460 e c t 006 001 ( M K S T R I N G
0021500 ( C H A R A C T E R X ] 006 002
0021520 c o l l e c t 006 001 X \r
0021540
*
0021600 006 002 w h e n 006
0021620 001 ( L I T A T O M X ) ) \r
0021640
*
0021700 ( S E T Q R
0021720 E S U L T 1 ( 006 002 \ T E D I T
0021740 . S U B S T . F N 1 006 001 T E X
0021760 T O B J T A R G E T L I S T
0022000 S T A R T # \r
0022020
*
0022100 E N D # ) ) ) \r
0022120
*
0022200 006 006 ( *
0022220 I f t h e r e a r e a t
0022240 o m s , t h e y a r e t e
0022260 d i t \r 006 001
0022300
*
0022360 006 006 w i l d c a r d c
0022400 h a r s ) 006 001 \r
0022420
0022440 ( 006 002
0022460 \ T E D I T . F I N D . W C 006 001
0022500 T E X T O B J T A R G E T L
0022520 I S T R E S U L T 1 E N D #
0022540 ) ) \r
0022560
0022600 ( T
0022620
0022640 006 006 ( * n o w i l d c a r d
0022660 s b u t b o u n d e d s e
0022700 a r c h ) 006 001 \r
0022720
0022740 (
0022760 C O N D \r
0023000
0023020 (
0023040 ( S E T Q R E S U L T ( 006 002
0023060 T E D I T . F I N D 006 001 T E X
0023100 T O B J ( C A R T A R G E T
0023120 L I S T ) \r
0023140
*
0023220 S T A R T # E N D #
0023240 N I L ) ) \r
0023260
*
0023320 ( L I S T R E S U L T (
0023340 S U B 1 ( I P L U S R E S U
0023360 L T ( N C H A R S ( C A R
0023400 T A R G E T L I S T ] \r
0023420 ( T \r
0023440 \r
0023460 006 006 ( * w i l l r e t
0023500 u r n j u s t t h e n u m
0023520 b e r o f t h e s t a r t
0023540 c h a r o r n i l i f
0023560 n o t f o u n d ) 006 001 \r \r
0023600 (
0023620 P R O G ( R E S U L T ) \r
0023640
0023660 ( S E T Q R E S U L
0023700 T ( 006 002 \ T E D I T . B A S I
0023720 C F I N D 006 001 T E X T O B J
0023740 T A R G E T S T R I N G S T A
0023760 R T # ) ) \r
0024000 ( R E
0024020 T U R N ( C O N D \r
0024040
0024060 ( ( N
0024100 U L L E N D # ) \r
0024120
0024140 R E S
0024160 U L T ) \r
0024200
0024220 ( ( O R ( N U L
0024240 L R E S U L T ) \r
0024260
*
0024320 ( G R E A T E R P ( I P L U
0024340 S R E S U L T ( S U B 1 (
0024360 N C H A R S T A R G E T S T R
0024400 I N G ) ) ) \r
0024420
*
0024460 E N D # ) ) \r
0024500
0024520 N
0024540 I L ) \r
0024560
0024600 ( T R E S U L T ]
0024620 ) \r \r ( 006 004 T E D I T . N E W .
0024640 F I N D 006 001 \r ( L A M B D A
0024660 ( T E X T O B J T A R G E T
0024700 S T R I N G S T A R T # E N
0024720 D # W I L D C A R D S ? ) 006 006
0024740 006 001 006 006 ( * j d s
0024760 " 8 - O c t - 8 6 1 0 : 3
0025000 5 " ) 006 001 \r
0025020 \r 006 006 ( *
0025040 I f W I L D C A R D S ? i s
0025060 N I L t h e n T E D I T .
0025100 N E W . F I N D i s t h e
0025120 o l d T E D I T . F I N D . \r
0025140 006 001 006 006 E l
0025160 s e , i t r e t u r n s a
0025200 l i s t o f ( S E L . S T
0025220 A R T # S E L . E N D # ) w
0025240 h i c h i s t h e s t a r
0025260 t a n d e n d \r 006 001
0025300 006 006 c h a r p o
0025320 s i t i o n s o f t h e s
0025340 e l e c t i o n ) 006 001 \r
0025360
*
0025440 006 006 ( * ( P
0025460 R O G ( ( T E X T S T R E A M
0025500 \r 006 001
0025520
*
0025600 006 006 ( f e t c h S T R E A M H
0025620 I N T o f T E X T O B J ) )
0025640 P A T T E R N \r 006 001
0025660
*
0025740 006 006 F I R S T
0025760 P A T P A T T E R N S T A C K
0026000 P O S N S T A C K \r 006 001
0026020
*
0026100 006 006 F I R
0026120 S T C H A R 1 F I R S T C H A
0026140 R 2 F I R S T P A T N O R M A
0026160 L \r 006 001
0026200
*
0026260 006 006 P A T T E R N L E N F
0026300 O U N D P A T T E R N P O S
0026320 T E X T P O S ) \r 006 001
0026340
*
0026420 006 006 ( A N D T
0026440 A R G E T S T R I N G ( N O T
0026460 \r 006 001
0026500
*
0026560 006 006 ( S T R I N G P T A R G E
0026600 T S T R I N G ) ) \r 006 001
0026620
*
0026700 006 006 ( S E T Q
0026720 T A R G E T S T R I N G ( M
0026740 K S T R I N G \r 006 001
0026760
*
0027040 006 006 T A R G E T
0027060 S T R I N G ) ) ) ( S E T Q
0027100 P A T T E R N \r 006 001
0027120
*
0027200 006 006 ( \ T E D I T
0027220 . N E W . P A R S E . S E A R C
0027240 H S T R I N G \r 006 001
0027260
*
0027340 006 006 T A R G E T
0027360 S T R I N G ) ) ( O R P A T
0027400 T E R N \r 006 001
0027420
*
0027500 006 006 ( R E T U R N ) )
0027520 ( S E T Q P A T T E R N L E N
0027540 \r 006 001
0027560
*
0027640 006 006 ( F L E N G T H P A T T E
0027660 R N ) ) ( \ T E D I T . H I S
0027700 T O R Y A D D \r 006 001
0027720
*
0030000 006 006 T E X T O B
0030020 J ( c r e a t e T E D I T H
0030040 I S T O R Y E V E N T \r 006 001
0030060
*
0030140 006 006 T H
0030160 A C T I O N _ ( Q U O T E
0030200 F i n d ) T H A U X I N F O
0030220 _ \r 006 001
0030240
*
0030320 006 006 T A R G E T S T R I N G
0030340 ) ) ( C O N D \r 006 001
0030360
*
0030440 006 006 ( ( Z E R O
0030460 P ( L O G A N D \ S p e c i
0030500 a l P a t t e r n \r 006 001
0030520
*
0030600 006 006 ( S E T Q
0030620 F I R S T P A T ( C A R P
0030640 A T T E R N ) ) ) ) \r 006 001
0030660
*
0030740 006 006 ( * T
0030760 h e p a t t e r n s t a r t
0031000 s w i t h a n e a s y \r
0031020 006 001
0031040
*
0031100 006
0031120 006 f i r s t c h a r a c t e r
0031140 ) ( S E T Q F I R S T P A T
0031160 N O R M A L \r 006 001
0031200
*
0031260 006 006 T ) ( S E T
0031300 Q F I R S T C H A R 1 ( L O
0031320 G A N D \ C H A R M A S K \r
0031340 006 001
0031360
*
0031420 006
0031440 006 F I R S T P A T ) ) ( C O N
0031460 D ( ( Z E R O P \r 006 001
0031500
*
0031560 006 006 ( L O G A
0031600 N D \ A l p h a F l a g F I
0031620 R S T P A T ) ) \r 006 001
0031640
*
0031720 006 006 ( * N o t
0031740 a l p h a b e t i c ) ( S E
0031760 T Q F I R S T C H A R 2 \r 006
0032000 001
0032020
*
0032060 006 006
0032100 F I R S T C H A R 1 ) ) ( T
0032120 ( * I s a l p h a b e t i c
0032140 ) \r 006 001
0032160
*
0032240 006 006 ( S E T Q F I R S T C H
0032260 A R 2 ( L O G A N D F I R S
0032300 T C H A R 1 \r 006 001
0032320
*
0032400 006 006 2 2 3 ) ) ) )
0032420 ) ) ( b i n d ( C H # _
0032440 S T A R T # ) w h i l e \r 006 001
0032460
*
0032540 006 006 (
0032560 I L E Q C H # E N D # ) f
0032600 i r s t \r 006 001
0032620
*
0032700 006 006 ( \ S E T U P G E T
0032720 C H S T A R T # T E X T O B
0032740 J ) d o \r 006 001
0032760
*
0033040 006 006 ( C O N D ( F I
0033060 R S T P A T N O R M A L \r 006 001
0033100
*
0033160 006 006 ( *
0033200 T h e p a t t e r n s t a
0033220 r t s w i t h a n e a s y
0033240 \r 006 001
0033260
*
0033340 006 006 f i r s t c h a r a c t
0033360 e r ) ( C O N D \r 006 001
0033400
*
0033460 006 006 ( ( A N D
0033500 ( N E Q ( S E T Q C H (
0033520 \ B I N T E X T S T R E A M )
0033540 ) \r 006 001
0033560
*
0033640 006 006 F I R S T C H A R 1 )
0033660 ( N E W C H F I R S T C H A
0033700 R 2 ) ) \r 006 001
0033720
*
0034000 006 006 ( G O $ $ I T E R
0034020 A T E ) ) ) ( S E T Q P A T
0034040 T E R N P O S 1 ) \r 006 001
0034060
*
0034140 006 006 ( S E T
0034160 Q C H ( \ B I N T E X T S
0034200 T R E A M ) ) ) \r 006 001
0034220
*
0034300 006 006 ( T ( S E
0034320 T Q P A T T E R N P O S 0 )
0034340 ) ) \r 006 001
0034360
*
0034440 006 006 ( S E T Q T E X T P O
0034460 S ( \ T E X T M A R K T E X
0034500 T O B J ) ) \r 006 001
0034520
*
0034600 006 006 ( C O N D ( (
0034620 I G E Q P A T T E R N P O S
0034640 P A T T E R N L E N ) \r 006 001
0034660
*
0034740 006 006 ( S E
0034760 T Q F O U N D T ) ( R E T
0035000 U R N ) ) ) ) ) ) 006 001 \r
0035020 ) ) \r \r ( 006 004 T E D I T . N E X
0035040 T 006 001 \r ( L A M B D A ( S
0035060 T R E A M ) 006 006 006 001
0035100
*
0035140 006 006 ( * j d s "
0035160 6 - M a r - 8 5 2 2 : 2 4 " )
0035200 006 001 \r ( P R O G ( ( T
0035220 E X T O B J ( T E X T O B J
0035240 S T R E A M ) ) \r
0035260 T A R G E T S E L O
0035300 P T I O N F I E L D S E L ) \r
0035320 ( S E T Q
0035340 S E L ( 006 002 f e t c h 006 001 S
0035360 E L 006 002 o f 006 001 T E X T O B
0035400 J ) ) \r ( S
0035420 E T Q T A R G E T ( 006 002 T E
0035440 D I T . F I N D 006 001 T E X T O
0035460 B J " > > * < < " N I L N
0035500 I L T ) ) \r
0035520
*
0035600 006 006 ( * f i n d t h
0035620 e f i r s t > > d e l i m i
0035640 t e d < < f i e l d ) 006 001 \r
0035660 ( S E T Q F
0035700 I E L D S E L ( M B U T T O N
0035720 . F I N D . N E X T . F I E L D
0035740 T E X T O B J ( 006 002 f e t c
0035760 h 006 001 C H # 006 002 o f 006 001 S
0036000 E L ) ) ) \r
0036020 \r 006 006 ( *
0036040 f i n d t h e f i r s t m
0036060 e n u - t y p e i n s e r t i
0036100 o n f i e l d , u s u a l l
0036120 y d e l i m i t e d w i t h
0036140 { } ) 006 001 \r \r
0036160 ( S E T Q O P T I O N (
0036200 C O N D \r
0036220 (
0036240 ( A N D T A R G E T F I E L
0036260 D S E L )
0036300 006 006 ( * t a k e t h e
0036320 f i r s t o n e ) 006 001 \r
0036340
0036360 ( C O N D \r
0036400
0036420 ( ( I G
0036440 R E A T E R P ( C A R T A R
0036460 G E T ) \r
0036500
0036520 ( 006 002 f e
0036540 t c h 006 001 C H # 006 002 o f 006 001
0036560 F I E L D S E L ) ) \r
0036600
*
0036660 006 006 ( * u s
0036700 e t h e { } s e l e c t i
0036720 o n ) 006 001 \r
0036740
0036760 ' F I E L D ) \r
0037000
0037020 ( T ' T
0037040 A R G E T ) ) ) \r
0037060
0037100 ( T A R G E T ' T A R G
0037120 E T ) \r
0037140 ( F
0037160 I E L D S E L ' F I E L D ) \r
0037200
0037220 ( T ' N E
0037240 I T H E R ) ) ) \r
0037260 ( S E L E C T Q O P T I
0037300 O N \r
0037320 ( T A R G E T
0037340
*
0037400 006 006 ( * F o u n d a n o t h
0037420 e r f i l l - i n ) 006 001 \r
0037440
0037460 ( \ S H O W S E L S E
0037500 L N I L N I L ) \r
0037520
0037540 ( 006 002 r e p l a c e 006 001 C H
0037560 # 006 002 o f 006 001 S E L 006 002 w
0037600 i t h 006 001 ( C A R T A R G E
0037620 T ) ) 006 006 ( * S e t u p
0037640 S E L E C T I O N t o b e
0037660 t h e f o u n d \r 006 001
0037700
*
0037760 006 006 t e x t
0040000 ) 006 001 \r
0040020 ( 006 002 r e p
0040040 l a c e 006 001 C H L I M 006 002 o
0040060 f 006 001 S E L 006 002 w i t h 006 001
0040100 ( A D D 1 ( C A D R T A R
0040120 G E T ) ) ) \r
0040140 ( 006 002
0040160 r e p l a c e 006 001 D C H 006 002
0040200 o f 006 001 S E L 006 002 w i t h 006
0040220 001 ( I D I F F E R E N C E (
0040240 A D D 1 ( C A D R T A R G E
0040260 T ) ) \r
0040300
*
0040340 ( C A R T
0040360 A R G E T ) ) ) \r
0040400 (
0040420 006 002 r e p l a c e 006 001 P O I N
0040440 T 006 002 o f 006 001 S E L 006 002 w
0040460 i t h 006 001 ' R I G H T ) \r
0040500
0040520 ( \ T E D I T . S E T .
0040540 S E L . L O O K S S E L ' P
0040560 E N D I N G D E L ) 006 006 ( *
0040600 A l w a y s s e l e c t e d
0040620 n o r m a l l y ) 006 001 \r
0040640
0040660 ( 006 002 r e p l a c e 006 001 B
0040700 L U E P E N D I N G D E L E T E
0040720 006 002 o f 006 001 T E X T O B J
0040740 006 002 w i t h 006 001 T ) \r
0040760
*
0041040 006 006 ( * A n
0041060 d n e v e r p e n d i n g
0041100 a d e l e t i o n . ) 006 001 \r
0041120
0041140 ( \ F I X S E L S E
0041160 L T E X T O B J ) \r
0041200
0041220 ( T E D I T . N O R M A L I Z
0041240 E C A R E T T E X T O B J ) \r
0041260
0041300 ( \ S H O W S E L
0041320 S E L N I L T )
0041340 006 006 (
0041360 * A n d g e t i t i n t
0041400 o t h e w i n d o w ) 006 001 \r
0041420
0041440 ) \r
0041460 ( F I E L D \r
0041500 \r
0041520 006 006 ( * R e p l a c e
0041540 t h e s e l e c t i o n f o
0041560 r t h i s t e x t o b j w
0041600 i t h t h e s c r a t c h
0041620 s e l r e t u r n e d f r o
0041640 m \r 006 001 006
0041660 006 M B U T T O N . F I N D . N E
0041700 X T . F I E L D ) 006 001 \r \r
0041720
0041740 ( \ S H O W S E L S E L
0041760 N I L N I L ) \r
0042000 ( 006
0042020 002 r e p l a c e 006 001 C H # 006
0042040 002 o f 006 001 S E L 006 002 w i t h
0042060 006 001 ( 006 002 f e t c h 006 001 C H
0042100 # 006 002 o f 006 001 F I E L D S E
0042120 L ) ) \r
0042140
*
0042220 006 006 ( * S e t u p S E L
0042240 E C T I O N t o b e t h e
0042260 f o u n d \r 006 001
0042300
*
0042360 006 006 t e x t ) 006 001
0042400 \r
0042420 ( 006 002 r e p l a c e
0042440 006 001 C H L I M 006 002 o f 006 001
0042460 S E L 006 002 w i t h 006 001 ( 006 002
0042500 f e t c h 006 001 C H L I M 006 002
0042520 o f 006 001 F I E L D S E L ) ) \r
0042540
0042560 ( 006 002 r e p l a c e 006
0042600 001 D C H 006 002 o f 006 001 S E L
0042620 006 002 w i t h 006 001 ( 006 002 f e t
0042640 c h 006 001 D C H 006 002 o f 006 001
0042660 F I E L D S E L ) ) \r
0042700
0042720 ( 006 002 r e p l a c e 006 001 P O I
0042740 N T 006 002 o f 006 001 S E L 006 002
0042760 w i t h 006 001 ' L E F T ) \r
0043000
0043020 ( \ T E D I T . S E T . S
0043040 E L . L O O K S S E L ' P E
0043060 N D I N G D E L ) \r
0043100 (
0043120 006 002 r e p l a c e 006 001 B L U E
0043140 P E N D I N G D E L E T E 006 002
0043160 o f 006 001 T E X T O B J 006 002 w
0043200 i t h 006 001 T ) \r
0043220 ( \
0043240 F I X S E L S E L T E X T O
0043260 B J ) \r
0043300 ( T E D I T .
0043320 N O R M A L I Z E C A R E T T
0043340 E X T O B J ) \r
0043360 ( \ S
0043400 H O W S E L S E L N I L T
0043420 )
0043440 006 006 ( * A n d g e
0043460 t i t i n t o t h e w i
0043500 n d o w ) 006 001 \r
0043520 ) \r
0043540 ( N E
0043560 I T H E R ( T E D I T . P R O
0043600 M P T P R I N T T E X T O B J
0043620 " N o m o r e b l a n k s
0043640 t o f i l l i n . " T )
0043660 \r
0043700 ( S E T Q S E
0043720 L N I L ) ) \r
0043740 ( S H O U L D N T
0043760 " N o l e g a l v a l u e
0044000 f o u n d i n s e l e c t q
0044020 i n T E D I T . N E X T " )
0044040 ) \r ( C O N
0044060 D \r (
0044100 S E L \r \r
0044120 006 006 ( * T
0044140 h e r e r e a l l y I S a
0044160 s e l e c t i o n m a d e
0044200 h e r e , s o s e t u p
0044220 t h e c h a r l o o k s f o
0044240 r i t \r 006 001
0044260 006 006 p r o p e r l y . ) 006 001
0044300 \r \r
0044320 ( 006 002 r e p l a c e 006 001
0044340 C A R E T L O O K S 006 002 o f
0044360 006 001 T E X T O B J 006 002 w i t
0044400 h 006 001 ( \ T E D I T . G E T .
0044420 I N S E R T . C H A R L O O K S
0044440 T E X T O B J S E L ) ) ) )
0044460 ) ) ) \r \r ( 006 004 \ T E D I T . F
0044500 I N D . W C 006 001 \r ( L A M B
0044520 D A ( T E X T O B J T A R G
0044540 E T L I S T S T A R T # E N
0044560 D # ) 006 006 006 001
0044600 006 006 ( * j
0044620 d s " 2 8 - S E P - 8 3 1 8
0044640 : 1 8 " ) 006 001 \r
0044660 \r 006 006 (
0044700 * \ T E D I T . F I N D . W C
0044720 r e t u r n s t h e e n d
0044740 c h a r % # o f t h e
0044760 T A R G E T L I S T w h i c h
0045000 m a y c o n t a i n \r 006 001
0045020 006 006 w i l d
0045040 c a r d s ) 006 001 \r \r ( P
0045060 R O G ( R E S U L T R E S U
0045100 L T 1 ) \r (
0045120 R E T U R N ( C O N D \r
0045140
0045160 ( ( S E T Q R E S U L T
0045200 ( 006 002 \ T E D I T . F I N D . W
0045220 C 1 006 001 T E X T O B J T A R
0045240 G E T L I S T S T A R T # E
0045260 N D # ) ) \r
0045300 \r 006 006 ( *
0045320 S U B 1 b e c a u s e N E W
0045340 F I N D . W C 2 t a k e s t
0045360 h a t a r g a s t h e L
0045400 a s t c h a r o f t h e s
0045420 e l e c t i o n s o \r 006 001
0045440 006 006 f a r a
0045460 n d s o w i l l s t a r t
0045500 o n t h e n e x t c h a
0045520 r a f t e r t h i s ) 006 001 \r
0045540
*
0045620 006 006 (
0045640 * D O N E ! ) 006 001 \r
0045660
0045700 ( L I S T S T A R T # ( I
0045720 M A X S T A R T # R E S U L
0045740 T ) ) ) \r
0045760 ( T ( A N
0046000 D ( S E T Q R E S U L T 1
0046020 ( 006 002 \ T E D I T . S U B S T .
0046040 F N 1 006 001 T E X T O B J T A
0046060 R G E T L I S T ( A D D 1 S
0046100 T A R T # ) \r
0046120
*
0046160 E N D # ) ) \r
0046200
0046220 ( 006 002
0046240 \ T E D I T . F I N D . W C 006 001
0046260 T E X T O B J T A R G E T L
0046300 I S T R E S U L T 1 E N D #
0046320 ) ) ) ) ) ) ) ) \r \r ( 006 004 \ T E
0046340 D I T . F I N D . W C 1 006 001 \r
0046360 ( L A M B D A ( T E X T O B
0046400 J T A R G E T L I S T T R I
0046420 A L E N D # E N D # ) 006 006 006 001
0046440
0046460 006 006 ( * P e a n L i m " 2 9
0046500 - A U G - 8 3 2 0 : 0 7 " ) 006
0046520 001 \r
0046540
*
0046600 006
0046620 006 ( * T R I A L E N D # i s
0046640 w h e r e t h e n e x t
0046660 c h a r \r 006 001
0046700
*
0046760 006 006 s t r i n g s h
0047000 o u l d g o ) 006 001 \r
0047020
*
0047100 006 006 ( * \ T E
0047120 D I T . F I N D . W C 1 s h o
0047140 u l d r e t u r n t h e \r
0047160 006 001
0047200
*
0047240 006
0047260 006 l a s t c h a r # o f s e
0047300 l e c t i o n ) 006 001 \r (
0047320 P R O G ( R E S U L T R E S
0047340 U L T 1 ) \r
0047360 ( R E T U R N ( C O N D \r
0047400
0047420 ( ( N U L L T A R G E T
0047440 L I S T )
0047460 006 006 ( *
0047500 D O N E ! ) 006 001 \r
0047520 (
0047540 S U B 1 T R I A L E N D # ) )
0047560 \r
0047600 ( ( S T R I N G P
0047620 ( C A R T A R G E T L I S T )
0047640 ) \r
0047660 ( C O N D \r
0047700
0047720 ( ( S E T Q R E
0047740 S U L T ( 006 002 T E D I T . F I
0047760 N D 006 001 T E X T O B J ( C A
0050000 R T A R G E T L I S T ) \r
0050020
*
0050060 T R I A
0050100 L E N D # E N D # N I L ) )
0050120 \r
0050140
*
0050200 006 006
0050220 ( * N O T n u l l ) 006 001 \r
0050240
0050260 ( 006 002 \ T E D
0050300 I T . F I N D . W C 1 006 001 T E
0050320 X T O B J ( C D R T A R G E
0050340 T L I S T ) \r
0050360
0050400 ( I P L U S R
0050420 E S U L T ( N C H A R S ( C
0050440 A R T A R G E T L I S T ) ) )
0050460 \r
0050500
0050520 E N D # ) ) ) ) \r
0050540
0050560 ( ( L I T A T O M ( C A R T
0050600 A R G E T L I S T ) ) \r
0050620
0050640 ( C O N D \r
0050660
0050700 ( ( M E M B E R ( C A R T
0050720 A R G E T L I S T ) \r
0050740
0050760 ' ( % #
0051000 ) )
0051020 006 006 ( * f i x
0051040 e d w i d t h w i l d c a r
0051060 d ) 006 001 \r
0051100 (
0051120 C O N D \r
0051140
0051160 ( ( O R ( N U L L ( C D
0051200 R T A R G E T L I S T ) ) \r
0051220
*
0051260 ( E Q U A L ( C A R ( 006 002
0051300 T E D I T . F I N D 006 001 T E X
0051320 T O B J ( C O N C A T L I S T
0051340 ( 006 002 \ T E D I T . P A C K .
0051360 T A R G E T L I S T 006 001 \r
0051400
*
0051500 ( C D R
0051520 T A R G E T L I S T ) ) ) \r
0051540
*
0051620 ( A D D 1 T R I A L E
0051640 N D # ) \r
0051660
*
0051720 E N D # T
0051740 ) ) \r
0051760
0052000 ( A D D
0052020 1 T R I A L E N D # ) ) ) \r
0052040 \r
0052060 006 006 ( * I f t h e
0052100 n e x t s t a r t a f t e r
0052120 a f i x e d c h a r i s
0052140 t h e c h a r a f t e r
0052160 i t , O K . \r 006 001
0052200 006 006 e l s e r e t u r
0052220 n n i l ) 006 001 \r \r
0052240
0052260 ( 006 002 \ T E D I
0052300 T . F I N D . W C 1 006 001 T E X
0052320 T O B J ( C D R T A R G E T
0052340 L I S T ) \r
0052360
0052400 ( A D D 1
0052420 T R I A L E N D # ) \r
0052440
*
0052500 E N D # ) ) ) ) \r
0052520
0052540 ( T
0052560
0052600 006 006 ( * v a r i
0052620 a b l e w i d t h w i l d c
0052640 a r d ) 006 001 \r
0052660
0052700 ( C O N D \r
0052720
0052740 ( ( C D R T A
0052760 R G E T L I S T ) \r
0053000
0053020 ( S E T Q
0053040 R E S U L T 1 ( 006 002 T E D I T
0053060 . F I N D 006 001 T E X T O B J
0053100 ( C O N C A T L I S T ( 006 002 \
0053120 T E D I T . P A C K . T A R G E
0053140 T L I S T 006 001 \r
0053160
*
0053260 ( C D R T A R G
0053300 E T L I S T ) ) ) \r
0053320
*
0053360 T
0053400 R I A L E N D # E N D # T )
0053420 ) \r
0053440
0053460 ( A N D R E S U L T 1 (
0053500 C A D R R E S U L T 1 ) ) ) \r
0053520
0053540 (
0053560 T
0053600 006 006 (
0053620 * l a s t e l e m e n t o
0053640 f s e a r c h ) 006 001 \r
0053660
0053700 ( S
0053720 U B 1 T R I A L E N D # ) ) )
0053740 ) ) ) ) ) ) ) ) \r \r ( 006 004 \ T E
0053760 D I T . P A C K . T A R G E T L
0054000 I S T 006 001 \r ( L A M B D A
0054020 ( T A R G E T L I S T ) 006 006 006 001
0054040
*
0054100 006 006 ( * P e a n
0054120 L i m " 2 9 - A U G - 8 3 2
0054140 0 : 0 2 " ) 006 001 \r ( C O
0054160 N D \r ( ( N U L L
0054200 T A R G E T L I S T ) \r
0054220 N I L ) \r
0054240 ( ( M E M B E R ( C A R T
0054260 A R G E T L I S T ) \r
0054300 T E D I T .
0054320 W I L D C A R D . C H A R A C T
0054340 E R S ) \r ( C O
0054360 N S ( C O N C A T ( C A R
0054400 T A R G E T L I S T ) \r
0054420
0054440 ( C A R T A R G E T L I S T
0054460 ) ) \r
0054500 ( 006 002 \ T E D I T . P A C K .
0054520 T A R G E T L I S T 006 001 ( C D
0054540 R T A R G E T L I S T ) ) ) )
0054560 \r ( ( S T R I N G
0054600 P ( C A R T A R G E T L I S
0054620 T ) ) \r ( C O N
0054640 S ( C A R T A R G E T L I S
0054660 T ) \r
0054700 ( 006 002 \ T E D I T . P A C K .
0054720 T A R G E T L I S T 006 001 ( C D
0054740 R T A R G E T L I S T ) ) ) )
0054760 \r ( T
0055000
*
0055040 006 006
0055060 ( * w i l d c a r d ) 006 001 \r
0055100 ( C O N S (
0055120 M K S T R I N G ( C A R T A
0055140 R G E T L I S T ) ) \r
0055160 ( 006 002 \ T
0055200 E D I T . P A C K . T A R G E T
0055220 L I S T 006 001 ( C D R T A R G
0055240 E T L I S T ) ) ) ) ) ) ) \r \r (
0055260 006 004 \ T E D I T . P A R S E . S
0055300 E A R C H S T R I N G 006 001 \r
0055320 ( L A M B D A ( L S T R E S
0055340 U L T ) 006 006 006 001
0055360
0055400 006
0055420 006 ( * j d s " 3 1 - J a n -
0055440 8 4 1 3 : 2 6 " ) 006 001 \r
0055460 ( P R O G ( ( T E D I T . W
0055500 I L D C A R D . C H A R A C T E
0055520 R S ' ( " # " " * " ) ) ) \r
0055540 ( R E T U R
0055560 N ( C O N D \r
0055600 ( ( N
0055620 U L L L S T ) \r
0055640 (
0055660 C O N D \r
0055700 ( R
0055720 E S U L T ( L I S T R E S U
0055740 L T ) ) ) ) \r
0055760 ( ( M E
0056000 M B E R ( C A R L S T ) \r
0056020
0056040 T E D I
0056060 T . W I L D C A R D . C H A R A
0056100 C T E R S ) \r
0056120 ( C O
0056140 N D \r
0056160 ( ( N U
0056200 L L R E S U L T ) \r
0056220
0056240 ( C O N S ( M K A T
0056260 O M ( C A R L S T ) ) \r
0056300
0056320 ( 006
0056340 002 \ T E D I T . P A R S E . S E
0056360 A R C H S T R I N G 006 001 ( C D
0056400 R L S T ) ) ) ) \r
0056420
0056440 ( T ( A P P E N D ( L
0056460 I S T R E S U L T ( M K A T
0056500 O M ( C A R L S T ) ) ) \r
0056520
*
0056560 ( 006 002 \ T E D I T . P A R S
0056600 E . S E A R C H S T R I N G 006 001
0056620 ( C D R L S T ) ) ) ) ) ) \r
0056640
0056660 ( ( A N D ( E Q U A
0056700 L ( C A R L S T ) \r
0056720
0056740 " '
0056760 " ) \r
0057000 ( L
0057020 I S T P ( C D R L S T ) ) \r
0057040
0057060 ( M E M B
0057100 E R ( C A D R L S T ) \r
0057120
*
0057160 T E D I T . W I L D C A R D . C
0057200 H A R A C T E R S ) ) 006 006 ( *
0057220 q u o t i n g s o m e t h i n
0057240 g a w i l d c a r d c h a
0057260 r ) 006 001 \r
0057300 ( 006 002 \ T
0057320 E D I T . P A R S E . S E A R C
0057340 H S T R I N G 006 001 ( C D D R
0057360 L S T ) \r
0057400
0057420 ( C O N D \r
0057440
0057460 ( ( N U L L R
0057500 E S U L T ) \r
0057520
0057540 ( M K S T R I N
0057560 G ( C A D R L S T ) ) ) \r
0057600
0057620 (
0057640 T ( C O N C A T R E S U L T
0057660 ( M K S T R I N G ( C A D R
0057700 L S T ) ) ) ) ) ) ) \r
0057720
0057740 ( T ( 006 002 \ T E D I T . P A
0057760 R S E . S E A R C H S T R I N G
0060000 006 001 ( C D R L S T ) \r
0060020
0060040 ( C O N
0060060 D \r
0060100
0060120 ( ( N U L L R E S U L
0060140 T ) \r
0060160
0060200 ( C A R L S T ) )
0060220 \r
0060240
0060260 ( T ( C O N C A T R E
0060300 S U L T ( C A R L S T ) ) )
0060320 ) ) ) ) ) ) ) ) \r \r ( 006 004 \ T E
0060340 D I T . S U B S T . F N 1 006 001 \r
0060360 ( L A M B D A ( T E X T O
0060400 B J T A R G E T L I S T S T
0060420 A R T # E N D # ) 006 006 006 001
0060440
0060460 006 006 ( * P e a n L i m " 2
0060500 6 - A U G - 8 3 1 2 : 3 6 " )
0060520 006 001 \r \r
0060540 006 006 ( * r e t
0060560 u r n s t h e c h a r l o
0060600 c a t i o n t h a t w o u l
0060620 d m a t c h t h e b e g i
0060640 n n i n g e l e m e n t o f
0060660 a \r 006 001
0060700 006 006 t a r g e t l i s t ) 006 001 \r
0060720 \r ( P R O G ( R E S U
0060740 L T ) \r ( S
0060760 E T Q R E S U L T ( 006 002 \ T
0061000 E D I T . S U B S T . F N 2 006 001
0061020 T E X T O B J T A R G E T L
0061040 I S T S T A R T # E N D # )
0061060 ) \r ( R E T
0061100 U R N ( A N D R E S U L T
0061120 ( G E Q R E S U L T S T A R
0061140 T # ) \r
0061160 R E S U L
0061200 T ) ) ) ) ) \r \r ( 006 004 \ T E D I
0061220 T . S U B S T . F N 2 006 001 \r
0061240 ( L A M B D A ( T E X T O B J
0061260 T A R G E T L I S T T R I A
0061300 L S T A R T # E N D # ) 006 006 006
0061320 001 006
0061340 006 ( * P e a n L i m " 2 6 -
0061360 A U G - 8 3 1 2 : 3 7 " ) 006 001
0061400 \r \r
0061420 006 006 ( * w i l l
0061440 r e t u r n t h e s t a r t
0061460 c h a r o f a w i l d c
0061500 a r d e d s e l e c t i o n .
0061520 \r 006 001 006 006 r
0061540 e t u r n s N I L i f s e
0061560 l e c t i o n i s b e y o n
0061600 d b o u n d s ) 006 001 \r \r
0061620 ( C O N D \r ( (
0061640 N U L L T A R G E T L I S T )
0061660 \r T R I A L S T
0061700 A R T # ) \r ( ( L
0061720 I T A T O M ( C A R T A R G
0061740 E T L I S T ) ) \r
0061760 ( C O N D \r
0062000 ( ( M E M B E R ( C A R
0062020 T A R G E T L I S T ) \r
0062040 '
0062060 ( % # ) )
0062100
0062120 006 006 ( * f i
0062140 x e d w i d t h w i l d c a
0062160 r d ) 006 001 \r
0062200 ( S U B 1 ( 006 002 \ T E D I
0062220 T . S U B S T . F N 1 006 001 T E
0062240 X T O B J ( C D R T A R G E
0062260 T L I S T ) \r
0062300
0062320 ( A D D 1 T R I A L S T A R T
0062340 # ) \r
0062360 E N D #
0062400 ) ) ) \r (
0062420 T
0062440
*
0062500 006 006 ( * v a r i a b l e w
0062520 i d t h w i l d c a r d , s
0062540 o f o r g e t \r 006 001
0062560
*
0062640 006 006 t h e m )
0062660 006 001 \r
0062700 ( 006 002 \ T E D I T . S U B S T
0062720 . F N 2 006 001 T E X T O B J (
0062740 C D R T A R G E T L I S T ) \r
0062760
0063000 T R I A L S T A R T #
0063020 E N D # ) ) ) ) \r
0063040 ( T
0063060
*
0063120 006 006 ( * i t ' s
0063140 a s t r i n g ) 006 001 \r
0063160 ( 006 002 T E D I T .
0063200 F I N D 006 001 T E X T O B J (
0063220 C A R T A R G E T L I S T ) \r
0063240
0063260 T R I A L S T A R T # E N D
0063300 # N I L ) ) ) ) ) \r \r ( 006 004 T
0063320 E D I T . S U B S T I T U T E 006
0063340 001 \r ( L A M B D A ( T E X
0063360 T S T R E A M P A T T E R N
0063400 R E P L A C E M E N T C O N F
0063420 I R M ? ) 006 006 006 001
0063440 006 006 ( * j d s " 1 7 -
0063460 J u l - 8 5 1 1 : 4 1 " ) 006 001
0063500 \r \r
0063520 006 006 ( * R e p l a
0063540 c e a l l i n s t a n c e s
0063560 o f P A T T E R N w i t h
0063600 R E P L A C E M E N T . \r 006 001
0063620 006 006 I f C
0063640 O N F I R M ? i s n o n - N
0063660 I L , a s k b e f o r e e
0063700 a c h r e p l a c e m e n t .
0063720 ) 006 001 \r \r ( P R O G (
0063740 S E A R C H S T R I N G R E P
0063760 L A C E S T R I N G A B O R T
0064000 F L G O U T O F R A N G E F L
0064020 G ( T E X T O B J ( T E X T
0064040 O B J T E X T S T R E A M ) )
0064060 \r
0064100 B E G I N C H A R # E N D
0064120 C H A R # S T A R T C H A R #
0064140 R A N G E ( R E P L A C E D
0064160 F L G 0 ) \r
0064200 ( Y E S L I S T
0064220 ' ( " Y " " y " " y e s "
0064240 " Y E S " " T " " Y e s "
0064260 ) ) \r
0064300 C O N F I R M F L G S
0064320 E L P C # S E L C H # S E
0064340 L C H L I M S E L P O I N T
0064360 C R S E E N ) \r
0064400 ( C O N D \r
0064420 ( ( N U L L ( S E T
0064440 Q S E A R C H S T R I N G (
0064460 O R P A T T E R N ( T E D I
0064500 T . G E T I N P U T T E X T O
0064520 B J " S e a r c h s t r i n
0064540 g : " N I L \r
0064560
*
0064640 ( C H A R C O D E ( E O L
0064660 L F E S C ) ) ) ) ) ) \r
0064700
*
0064760 006 006 ( *
0065000 I f t h e s e a r c h p a
0065020 t t e r n i s e m p t y ,
0065040 \r 006 001
0065060
*
0065140 006 006 b a i l o u t . ) 006 001 \r
0065160 ( T E
0065200 D I T . P R O M P T P R I N T
0065220 T E X T O B J " [ A b o r t e
0065240 d ] " ) \r
0065260 ( R E T U R N ) ) ) \r
0065300 ( S E T Q R E
0065320 P L A C E S T R I N G ( O R
0065340 R E P L A C E M E N T ( T E D
0065360 I T . G E T I N P U T T E X T
0065400 O B J " R e p l a c e s t r
0065420 i n g : " ) \r
0065440
0065460 " " \r
0065500
0065520 ( C
0065540 H A R C O D E ( E O L L F
0065560 E S C ) ) ) ) \r
0065600 ( S E T Q C R S E E N (
0065620 S T R P O S ( C H A R A C T E
0065640 R ( C H A R C O D E C R ) )
0065660 \r
0065700 R
0065720 E P L A C E S T R I N G ) ) \r
0065740 ( C O N D \r
0065760 ( P A T
0066000 T E R N \r
0066020 \r 006 006 ( *
0066040 I f a p a t t e r n i s
0066060 s p e c d i n t h e c a l
0066100 l , u s e t h e c a l l e
0066120 r ' s c o n f i r m f l a g
0066140 . ) 006 001 \r \r
0066160 ( S E T Q
0066200 C O N F I R M F L G C O N F I
0066220 R M ? ) ) \r
0066240 ( T
0066260
*
0066320 006 006 ( * O t h e r w i s
0066340 e , a s k f o r o n e . )
0066360 006 001 \r
0066400 ( S E T Q C O N F I R M
0066420 F L G ( M E M B E R ( T E D
0066440 I T . G E T I N P U T T E X T
0066460 O B J " A s k b e f o r e
0066500 e a c h r e p l a c e ? " "
0066520 N o " \r
0066540
*
0066600 ( C H A R C O D E ( E
0066620 O L S P A C E E S C A P E
0066640 L F T A B ) ) ) \r
0066660
*
0066720 Y E S L I S T ) ) ) ) \r
0066740 ( T E D I T . P
0066760 R O M P T P R I N T T E X T O
0067000 B J " S u b s t i t u t i n g
0067020 . . . " T ) \r
0067040 ( S E T Q S E L ( 006 002 f
0067060 e t c h 006 001 S E L 006 002 o f 006
0067100 001 T E X T O B J ) )
0067120 006 006 (
0067140 * S T A R T C H A R # a n d
0067160 E N D C H A R # a r e t h
0067200 e \r 006 001
0067220
*
0067300 006 006 b o u n d o f t h e
0067320 s e a r c h ) 006 001 \r
0067340 ( \ S H O W S E L S
0067360 E L N I L N I L ) \r
0067400 ( T E D I T . R E S
0067420 E T . E X T E N D . P E N D I N
0067440 G . D E L E T E S E L )
0067460 006 006 ( * T u
0067500 r n o f f a n y b l u e
0067520 p e n d i n g d e l e t e ) 006
0067540 001 \r ( S E T
0067560 Q B E G I N C H A R # ( S E
0067600 T Q S T A R T C H A R # ( 006
0067620 002 f e t c h 006 001 C H # 006 002 o
0067640 f 006 001 S E L ) ) ) \r
0067660 ( S E T Q E N D C H
0067700 A R # ( I P L U S S T A R T
0067720 C H A R # ( S U B 1 ( 006 002 f
0067740 e t c h 006 001 D C H 006 002 o f 006
0067760 001 S E L ) ) ) ) \r
0070000 ( 006 002 w h i l e 006 001 (
0070020 A N D ( S E T Q R A N G E
0070040 ( 006 002 T E D I T . F I N D 006 001
0070060 T E X T O B J S E A R C H S T
0070100 R I N G S T A R T C H A R #
0070120 E N D C H A R # T ) ) \r
0070140
0070160 ( N O T A B O R T F L G
0070200 ) ) \r
0070220 006 002 d o 006 001 ( P R O G ( P E
0070240 N D I N G . S E L C H O I C E
0070260 ) \r
0070300 ( C O N D \r
0070320
0070340 ( C O N F I R M F
0070360 L G ( S E T Q P E N D I N G
0070400 . S E L ( T E D I T . S E T S
0070420 E L T E X T S T R E A M ( C
0070440 A R R A N G E ) \r
0070460
*
0070540 ( I D I F F E R
0070560 E N C E ( C A D R R A N G E
0070600 ) \r
0070620
*
0070700 ( S U B 1 ( C A
0070720 R R A N G E ) ) ) \r
0070740
*
0071020 ' R I G H T
0071040 T ) ) \r
0071060
0071100 ( \ S H O W S E L P E
0071120 N D I N G . S E L N I L N I
0071140 L ) \r
0071160
0071200 ( T E D I T . N O R M A L
0071220 I Z E C A R E T T E X T O B J
0071240 P E N D I N G . S E L ) \r
0071260
0071300 ( \
0071320 S H O W S E L P E N D I N G .
0071340 S E L N I L T ) \r
0071360
0071400 ( S E T Q
0071420 C H O I C E ( T E D I T . G
0071440 E T I N P U T T E X T O B J
0071460 " O K t o r e p l a c e ?
0071500 [ ' q ' q u i t s ] " \r
0071520
*
0071600 " Y e s " ( C H A R C O D
0071620 E ( E O L S P A C E E S C
0071640 A P E L F T A B ) ) ) ) \r
0071660
0071700 (
0071720 C O N D \r
0071740
0071760 ( ( M E M B E R
0072000 C H O I C E ' ( " Q " " q
0072020 " ) ) \r
0072040
0072060 ( S E T Q A B
0072100 O R T F L G T ) \r
0072120
0072140 ( G
0072160 O L 1 ) ) \r
0072200
0072220 ( ( N O T
0072240 ( M E M B E R C H O I C E Y
0072260 E S L I S T ) ) \r
0072300
*
0072360 006 006 ( * t u r n
0072400 o f f s e l e c t i o n ) 006 001
0072420 \r
0072440
0072460 ( T E D I T . S H O W
0072500 S E L T E X T S T R E A M N
0072520 I L P E N D I N G . S E L ) \r
0072540
*
0072600 ( G O L 1 ) ) \r
0072620
*
0072660 ( T
0072700 006 006 ( * O
0072720 K t o r e p l a c e ) 006 001 \r
0072740
*
0073000 ( T E D I T . D E L
0073020 E T E T E X T S T R E A M P
0073040 E N D I N G . S E L ) \r
0073060
*
0073140 006 006 ( * m a
0073160 k e t h e r e p l a c e m e
0073200 n t ) 006 001 \r
0073220
0073240 ( C O N
0073260 D \r
0073300
0073320 ( ( N O T
0073340 ( E Q U A L R E P L A C E S
0073360 T R I N G " " ) ) \r
0073400 \r
0073420 006 006 ( * I f t h e r e p l
0073440 a c e s t r i n g i s n o t
0073460 h i n g , w h y b o t h e r
0073500 t o a d d n o t h i n g )
0073520 006 001 \r \r
0073540
0073560 ( T
0073600 E D I T . I N S E R T T E X T
0073620 S T R E A M R E P L A C E S T
0073640 R I N G ( C A R R A N G E )
0073660 ) \r
0073700
0073720 ( S E T
0073740 Q E N D C H A R # ( I P L U
0073760 S E N D C H A R # \r
0074000
*
0074060 ( I D I F
0074100 F E R E N C E \r
0074120
*
0074200 ( N C H A R S
0074220 R E P L A C E S T R I N G ) \r
0074240
*
0074340 ( I D I F F E R E N C E ( C
0074360 A D R R A N G E ) \r
0074400
*
0074500 ( S U B 1 ( C A R R A
0074520 N G E ) ) ) ) ) ) \r
0074540
*
0074600 ( 006 002 a d d 006 001 R E P
0074620 L A C E D F L G 1 ) ) ) ) ) )
0074640 \r
0074660 ( T \r
0074700 \r
0074720 006 006 ( * N o c o n f i
0074740 r m a t i o n r e q u i r e d
0074760 . D o t h e s u b s t i t
0075000 u t i o n s w i t h o u t s
0075020 h o w i n g i n t e r m e d i
0075040 a t e \r 006 001
0075060 006 006 w o r k ) 006 001 \r \r
0075100
0075120 ( 006 002 r e p l a
0075140 c e 006 001 C A R E T L O O K S
0075160 006 002 o f 006 001 T E X T O B J 006
0075200 002 w i t h 006 001 ( 006 002 f e t c h
0075220 006 001 P L O O K S \r
0075240
*
0075320 006 002 o
0075340 f 006 001 ( \ C H T O P C ( C A
0075360 R R A N G E ) \r
0075400
*
0075500 ( 006 002 f e t c h 006 001
0075520 P C T B 006 002 o f 006 001 T E X
0075540 T O B J ) ) \r
0075560
*
0075640 ) )
0075660 \r
0075700 ( S E
0075720 T Q P C # ( \ D E L E T E C
0075740 H ( C A R R A N G E ) \r
0075760
*
0076020 ( A D D 1
0076040 ( C A D R R A N G E ) ) \r
0076060
*
0076120 ( A D D
0076140 1 ( I D I F F E R E N C E (
0076160 C A D R R A N G E ) \r
0076200
*
0076260 ( C A R R A N G E
0076300 ) ) ) \r
0076320
*
0076360 T E X T O B J ) ) \r
0076400
0076420 ( \ F I X D L I N
0076440 E S ( 006 002 f e t c h 006 001 L I
0076460 N E S 006 002 o f 006 001 T E X T O
0076500 B J ) \r
0076520
0076540 S E L \r
0076560
0076600 ( C
0076620 A R R A N G E ) \r
0076640
0076660 ( A D
0076700 D 1 ( C A D R R A N G E ) )
0076720 \r
0076740
0076760 T E X T O B J ) \r
0077000
0077020 ( C O N D \r
0077040
0077060 ( (
0077100 N O T ( E Q U A L R E P L A
0077120 C E S T R I N G " " ) ) \r
0077140 \r
0077160 006 006 ( * I f t h e r
0077200 e p l a c e s t r i n g i s
0077220 n o t h i n g , w h y b o t
0077240 h e r t o a d d n o t h i
0077260 n g ) 006 001 \r \r
0077300
0077320 ( \ F I X I L I N
0077340 E S T E X T O B J S E L (
0077360 C A R R A N G E ) \r
0077400
*
0077440 ( N C H A R S R E P L A C
0077460 E S T R I N G ) \r
0077500
*
0077540 ( 006 002 f e t c h 006 001 T E X T L
0077560 E N 006 002 o f 006 001 T E X T O B
0077600 J ) ) \r
0077620
0077640 ( C O N D \r
0077660
0077700 ( C R
0077720 S E E N ( 006 002 f o r 006 001 A C
0077740 H A R 006 002 i n s t r i n g 006 001
0077760 R E P L A C E S T R I N G 006
0100000 002 a s 006 001 N C H # \r
0100020
*
0100060 006 002 f r o m 006
0100100 001 ( C A R R A N G E ) 006 002
0100120 b y 006 001 1 \r
0100140
*
0100200 006 002 d o 006 001 ( S E L
0100220 C H A R Q A C H A R \r
0100240
*
0100320 ( C R ( \ I N S E R T C R
0100340 A C H A R N C H # T E X T
0100360 O B J ) ) \r
0100400
*
0100440 ( \ I N
0100460 S E R T C H A C H A R N C H
0100500 # T E X T O B J ) ) ) ) \r
0100520
*
0100560 ( T ( \ I N S E R T C H R
0100600 E P L A C E S T R I N G ( C A
0100620 R R A N G E ) \r
0100640
*
0100700 T E X T O B J P C
0100720 # ) ) ) \r
0100740
0100760 ( S E T Q E N D C H
0101000 A R # ( I P L U S E N D C H
0101020 A R # ( I D I F F E R E N C E
0101040 \r
0101060
*
0101140 ( N C H A R S R E P L A C E
0101160 S T R I N G ) \r
0101200
*
0101260 ( I D I F F E R
0101300 E N C E ( C A D R R A N G E
0101320 ) \r
0101340
*
0101420 ( S U B 1 (
0101440 C A R R A N G E ) ) ) ) ) ) )
0101460 ) \r
0101500 ( 006
0101520 002 a d d 006 001 R E P L A C E D F
0101540 L G 1 ) ) ) \r
0101560 L 1 ( S
0101600 E T Q S T A R T C H A R # (
0101620 I P L U S ( C A R R A N G E
0101640 ) \r
0101660
*
0101720 ( N C H A R S R E P L A C E S
0101740 T R I N G ) ) ) ) \r
0101760
*
0102040 006 006 ( * s t a
0102060 r t l o o k i n g w h e r e
0102100 y o u l e f t o f f ) 006 001
0102120 ) \r ( C O N
0102140 D \r (
0102160 ( Z E R O P R E P L A C E D F
0102200 L G ) \r
0102220 ( T E D I T . P R O M P T P
0102240 R I N T T E X T O B J " N o
0102260 r e p l a c e m e n t s m a
0102300 d e . " T ) ) \r
0102320 ( ( E Q U A L R E
0102340 P L A C E D F L G 1 ) \r
0102360 ( T E D I
0102400 T . P R O M P T P R I N T T E
0102420 X T O B J " 1 R e p l a c e
0102440 m e n t m a d e . " T ) ) \r
0102460 ( T
0102500 ( T E D I T . P R O M P T P R I
0102520 N T T E X T O B J ( C O N C
0102540 A T ( M K S T R I N G R E P
0102560 L A C E D F L G ) \r
0102600
*
0102640 " R e
0102660 p l a c e m e n t s m a d e .
0102700 " ) \r
0102720 T ) ) ) \r
0102740 ( C O N D \r
0102760 ( ( A N
0103000 D ( N O T C O N F I R M F L
0103020 G ) \r
0103040 ( N O T ( Z E R O
0103060 P R E P L A C E D F L G ) ) )
0103100
0103120 006 006 ( * T h e r e W E R E
0103140 r e p l a c e m e n t s , a n
0103160 d t h e y \r 006 001
0103200
*
0103260 006 006 w e r e n o
0103300 t c o n f i r m e d . ) 006 001 \r
0103320 ( 006
0103340 002 r e p l a c e 006 001 C H L I M
0103360 006 002 o f 006 001 S E L 006 002 w i
0103400 t h 006 001 ( A D D 1 E N D C H
0103420 A R # ) ) \r
0103440 \r 006 006 ( *
0103460 a c c o u n t f o r t h e
0103500 c h a n g e s i n s e l e c
0103520 t i o n l e n g t h d u e
0103540 t o r e p l a c e m e n t s )
0103560 006 001 \r \r
0103600 ( 006 002 r e p l a c e 006 001 C
0103620 H # 006 002 o f 006 001 S E L 006 002
0103640 w i t h 006 001 B E G I N C H A R
0103660 # ) 006 006 (
0103700 * A n d r e m e m b e r w
0103720 h e r e i t s t a r t e d )
0103740 006 001 \r
0103760 ( 006 002 r e p l a c e 006 001 D C
0104000 H 006 002 o f 006 001 S E L 006 002 w
0104020 i t h 006 001 ( I D I F F E R E N
0104040 C E ( 006 002 f e t c h 006 001 C H
0104060 L I M 006 002 o f 006 001 S E L ) \r
0104100
*
0104140 ( 006
0104160 002 f e t c h 006 001 C H # 006 002 o
0104200 f 006 001 S E L ) ) ) \r
0104220 ( \ T E D I T
0104240 . M A R K . L I N E S . D I R T
0104260 Y T E X T O B J ( 006 002 f e t
0104300 c h 006 001 C H # 006 002 o f 006 001
0104320 S E L ) \r
0104340 ( 006 002 f e t
0104360 c h 006 001 C H L I M 006 002 o f 006
0104400 001 S E L ) ) \r
0104420 ( T E D I T . U P D
0104440 A T E . S C R E E N T E X T O
0104460 B J ) \r
0104500 ( \ F I X S E L S E L T
0104520 E X T O B J ) \r
0104540 ( \ S H O W S E L
0104560 S E L N I L T ) ) ) \r
0104600 ( R E T U R N R
0104620 E P L A C E D F L G ) ) ) ) \r )
0104640 \r ( P U T P R O P S T E D I T
0104660 F I N D C O P Y R I G H T (
0104700 " J o h n S y b a l s k y &
0104720 X e r o x C o r p o r a t i
0104740 o n " 1 9 8 3 1 9 8 4 1 9
0104760 8 5 1 9 8 6 1 9 8 7 ) ) \r (
0105000 D E C L A R E % : D O N T C O
0105020 P Y \r ( F I L E M A P ( N
0105040 I L ( 1 6 7 1 3 0 1 8 ( \
0105060 T E D I T . S E A R C H . C O D
0105100 E T A B L E 1 6 8 1 . 3 0
0105120 1 6 ) ) ( 3 0 9 3 3 5 2 3 2
0105140 ( \ T E D I T . B A S I C F I
0105160 N D 3 1 0 3 . \r 6 6 9 0 )
0105200 ( T E D I T . F I N D 6 6 9
0105220 2 . 1 0 6 4 1 ) ( T E D I
0105240 T . N E W . F I N D 1 0 6 4 3
0105260 . 1 4 8 6 6 ) ( T E D I T
0105300 . N E X T 1 4 8 6 8 . 1 8
0105320 7 3 9 ) ( \r \ T E D I T . F I
0105340 N D . W C 1 8 7 4 1 . 1 9
0105360 6 7 2 ) ( \ T E D I T . F I N
0105400 D . W C 1 1 9 6 7 4 . 2 2
0105420 5 0 4 ) ( \ T E D I T . P A C
0105440 K . T A R G E T L I S T 2 2 5
0105460 0 6 . 2 3 2 1 3 ) ( \r \ T
0105500 E D I T . P A R S E . S E A R C
0105520 H S T R I N G 2 3 2 1 5 .
0105540 2 4 7 9 2 ) ( \ T E D I T . S
0105560 U B S T . F N 1 2 4 7 9 4 .
0105600 2 5 2 2 2 ) ( \ T E D I T .
0105620 S U B S T . F N 2 2 5 2 2 4
0105640 . \r 2 6 3 1 4 ) ( T E D I T
0105660 . S U B S T I T U T E 2 6 3 1
0105700 6 . 3 5 2 3 0 ) ) ) ) ) \r S
0105720 T O P \r
0105724