$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TEDITSELECTION!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 " 2
0000120 4 - F e b - 8 7 1 3 : 0 0 : 1
0000140 6 " 006 004 { E R I S } < T E D I
0000160 T > T E D I T S E L E C T I O N
0000200 . ; 2 4 006 001 1 2 0 3 3 5 \r \r
0000220 c h a n g e s t o
0000240 % : ( V A R S T E D I T S
0000260 E L E C T I O N C O M S ) \r \r
0000300 p r e v i o u s d a
0000320 t e % : " 2 0 - F e b - 8 7
0000340 2 0 : 3 1 : 0 2 " { E R I S }
0000360 < T E D I T > T E D I T S E L E
0000400 C T I O N . ; 2 3 ) \r \r \r ( *
0000420 " \r C o p y r i g h t ( c )
0000440 1 9 8 3 , 1 9 8 4 , 1 9 8 5
0000460 , 1 9 8 6 , 1 9 8 7 b y
0000500 J o h n S y b a l s k y &
0000520 X e r o x C o r p o r a t i o
0000540 n . A l l r i g h t s r
0000560 e s e r v e d . \r " ) \r \r ( P R
0000600 E T T Y C O M P R I N T T E D
0000620 I T S E L E C T I O N C O M S )
0000640 \r \r ( R P A Q Q 006 002 T E D I T
0000660 S E L E C T I O N C O M S 006 001
0000700 ( ( F I L E S T E D I T D E C
0000720 L S ) \r
0000740 (
0000760 D E C L A R E % : E V A L @ C
0001000 O M P I L E D O N T C O P Y
0001020 ( C O N S T A N T S ( \ S C R
0001040 A T C H L E N 6 4 ) ) \r
0001060
0001100 (
0001120 F I L E S ( L O A D C O M P )
0001140 \r
0001160
0001200 T E D I T D
0001220 E C L S ) ) \r
0001240
0001260 ( F N S T E D I T . S E L
0001300 . A S . S T R I N G T E D I T
0001320 . S E L E C T E D . P I E C E S
0001340 \ T E D I T . F I N D . F I R
0001360 S T . L I N E \r
0001400
0001420 \ T E D I T .
0001440 F I N D . L A S T . L I N E \
0001460 T E D I T . F I N D . O V E R L
0001500 A P P I N G . L I N E \r
0001520
0001540 \ T E
0001560 D I T . F I N D . P R O T E C T
0001600 E D . E N D \ T E D I T . F I
0001620 N D . P R O T E C T E D . S T A
0001640 R T \r
0001660
0001700 \ T E D I T . W O R D .
0001720 B O U N D ) \r
0001740
0001760 ( I N I T V A R S ( T E D
0002000 I T . E X T E N D . P E N D I N
0002020 G . D E L E T E T ) ) \r
0002040
0002060 ( V A R S ( T
0002100 E D I T . S E L E C T I O N (
0002120 c r e a t e S E L E C T I O N
0002140 ) ) \r
0002160
0002200 ( T E D I T . S C R A T
0002220 C H S E L E C T I O N ( c r e
0002240 a t e S E L E C T I O N ) ) \r
0002260
*
0002320 ( T E D I T . S H I F T E D S
0002340 E L E C T I O N ( c r e a t e
0002360 S E L E C T I O N H A S C A
0002400 R E T _ N I L ) ) \r
0002420
0002440 ( T E
0002460 D I T . C O P Y L O O K S S E L
0002500 E C T I O N ( c r e a t e S
0002520 E L E C T I O N H A S C A R E
0002540 T _ N I L ) ) \r
0002560
0002600 ( T E D I
0002620 T . M O V E S E L E C T I O N
0002640 ( C R E A T E S E L E C T I O
0002660 N H A S C A R E T _ N I L
0002700 H O W H E I G H T _ \r
0002720
*
0003000 3 2 7 6 7
0003020 ) ) \r
0003040
0003060 ( T E D I T . D E L E T
0003100 E S E L E C T I O N ( C R E A
0003120 T E S E L E C T I O N H O W
0003140 _ B L A C K S H A D E H A
0003160 S C A R E T _ \r
0003200
*
0003260 N I L H O W
0003300 H E I G H T _ 3 2 7 6 7 ) )
0003320 \r
0003340
0003360 S E L E C T I O N S E L E
0003400 C T I O N ( T E D I T . S E L
0003420 P E N D I N G N I L ) ) \r
0003440
0003460 ( G L O B A L
0003500 V A R S T E D I T . S E L E C
0003520 T I O N T E D I T . S C R A T
0003540 C H S E L E C T I O N T E D I
0003560 T . M O V E S E L E C T I O N
0003600 \r
0003620
0003640 T E D I T . S H I F T E D
0003660 S E L E C T I O N T E D I T .
0003700 C O P Y L O O K S S E L E C T I
0003720 O N \r
0003740
0003760 T E D I T . D E L E
0004000 T E S E L E C T I O N T E D I
0004020 T . S E L P E N D I N G T E D
0004040 I T . E X T E N D . P E N D I N
0004060 G . D E L E T E ) \r
0004100
0004120 ( C O M S ( * S e
0004140 l e c t i o n m a n i p u l a
0004160 t i n g c o d e ) \r
0004200
0004220 ( F N S
0004240 T E D I T . E X T E N D . S E
0004260 L T E D I T . S E L E C T T
0004300 E D I T . S C A N . L I N E \r
0004320
*
0004360 T E D I T . S E L E
0004400 C T . L I N E . S C A N N E R
0004420 \ T E D I T . S E L E C T . C H
0004440 A R A C T E R ) \r
0004460
0004500 ( F N S \
0004520 F I X S E L \ T E D I T . F I
0004540 X D E L S E L \ T E D I T . F
0004560 I X I N S S E L \ T E D I T .
0004600 F I X S E L S ) \r
0004620
0004640 ( F N S T
0004660 E D I T . R E S E T . E X T E N
0004700 D . P E N D I N G . D E L E T E
0004720 \ T E D I T . S E T . S E L .
0004740 L O O K S ) \r
0004760
0005000 ( F N S \ S H
0005020 O W S E L \ S H O W S E L . H
0005040 I L I G H T \ T E D I T . U P
0005060 D A T E . S H O W S E L \ T E
0005100 D I T . S H O W S E L S \r
0005120
*
0005160 \ T E D I T . R E F R E
0005200 S H . S H O W S E L ) \r
0005220
0005240 ( F N
0005260 S \ C O P Y S E L \ T E D I
0005300 T . S E L . C H A N G E D ? ) )
0005320 \r
0005340 ( C O M
0005360 S ( * * U s e r e n t r
0005400 i e s t o t h e s e l e c
0005420 t i o n c o d e ) \r
0005440
0005460 ( F N S
0005500 T E D I T . G E T P O I N T
0005520 T E D I T . G E T S E L T E D
0005540 I T . M A K E S E L T E D I T
0005560 . S C A N S E L \r
0005600
*
0005640 T E D I T . S E T . S E L . L O
0005660 O K S T E D I T . S E T S E L
0005700 T E D I T . S H O W S E L ) )
0005720 ) ) \r ( F I L E S L O A D T E
0005740 D I T D E C L S ) \r ( D E C L A
0005760 R E % : E V A L @ C O M P I L
0006000 E D O N T C O P Y \r ( D E C
0006020 L A R E % : E V A L @ C O M P
0006040 I L E \r \r ( R P A Q Q 006 002 \
0006060 S C R A T C H L E N 006 001 6 4 )
0006100 \r \r ( C O N S T A N T S ( \ S
0006120 C R A T C H L E N 6 4 ) ) \r )
0006140 \r \r ( F I L E S L O A D ( L O
0006160 A D C O M P ) \r T
0006200 E D I T D E C L S ) \r ) \r ( D E
0006220 F I N E Q \r \r ( 006 004 T E D I T .
0006240 S E L . A S . S T R I N G 006 001 \r
0006260 ( L A M B D A ( S T R E A
0006300 M S E L ) 006 006 006 001
0006320
*
0006360 006 006 ( * j d s " 2 9 - J u
0006400 l - 8 5 1 4 : 0 0 " ) 006 001 \r
0006420 \r
0006440 006 006 ( * G i v e n a
0006460 t e x t s t r e a m , g o
0006500 t o t h e T E X T O B J ,
0006520 g e t t h e c u r r e n t
0006540 s e l e c t i o n , a n d
0006560 \r 006 001 006 006 r
0006600 e t u r n i t a s a s t
0006620 r i n g . ) 006 001 \r \r ( S
0006640 E T Q S T R E A M ( T E X T
0006660 S T R E A M S T R E A M ) ) \r
0006700 ( P R O G ( ( T E X T
0006720 O B J ( 006 002 f e t c h 006 001 (
0006740 T E X T S T R E A M T E X T O
0006760 B J ) 006 002 o f 006 001 S T R E A
0007000 M ) ) \r L
0007020 E N T S E L R E S U L T O
0007040 F F S T B A S E ) \r
0007060 ( S E T Q T S E L
0007100 ( O R S E L ( 006 002 f e t c h
0007120 006 001 S E L 006 002 o f 006 001 T E
0007140 X T O B J ) ) ) \r
0007160 ( S E T Q L E N ( 006 002
0007200 f e t c h 006 001 D C H 006 002 o f
0007220 006 001 T S E L ) ) \r
0007240 ( C O N D \r
0007260 ( ( Z E R O P L
0007300 E N )
0007320
0007340 006 006 ( * T h e r
0007360 e i s n o s e l e c t i o
0007400 n , o r i t ' s \r 006 001
0007420
*
0007500 006 006 z e r
0007520 o - w i d t h . R e t u r n
0007540 " " ) 006 001 \r
0007560 ( R E T U R N " " ) )
0007600 \r ( T
0007620 ( S E T Q R E S U L T ( A
0007640 L L O C S T R I N G L E N (
0007660 C H A R C O D E S P A C E ) )
0007700 ) \r
0007720
*
0007760 006
0010000 006 ( * T h e r e s u l t i n
0010020 g s t r i n g ) 006 001 \r
0010040 ( \ S E
0010060 T U P G E T C H ( 006 002 f e t c
0010100 h 006 001 C H # 006 002 o f 006 001 T
0010120 S E L ) \r
0010140 T E X T
0010160 O B J )
0010200
0010220 006 006 ( * S t a r t i n g
0010240 p o i n t f o r t h e s t
0010260 r i n g i s \r 006 001
0010300
*
0010360 006 006 s t a r t
0010400 o f s e l e c t i o n . ) 006 001
0010420 \r
0010440 ( 006 002 f o r 006 001 I 006 002 f r
0010460 o m 006 001 1 006 002 t o 006 001 L E
0010500 N 006 002 d o 006 001 \r
0010520 \r 006
0010540 006 ( * G e t c h a r s f r
0010560 o m t h e s t r e a m , a
0010600 n d p u t t h e m i n t
0010620 h e s t r i n g . ) 006 001 \r \r
0010640
*
0010700 ( R P L C H A R C
0010720 O D E R E S U L T I ( \ G
0010740 E T C H T E X T O B J ) ) ) \r
0010760
0011000 ( R E T U R N R E S U L T ) )
0011020 ) ) ) ) \r \r ( 006 004 T E D I T . S
0011040 E L E C T E D . P I E C E S 006 001
0011060 \r ( L A M B D A ( T E X T
0011100 O B J S E L C R O S S C O P
0011120 Y P I E C E M A P F N F N A
0011140 R G 1 F N A R G 2 ) 006 006 006 001
0011160 006 006 ( * j d s " 6 - M
0011200 a r - 8 5 2 2 : 1 0 " ) 006 001 \r
0011220 \r
0011240 006 006 ( * C r e a t e
0011260 a l i s t o f p i e c e
0011300 s c o r r e s p o n d i n g
0011320 t o t h e s e l e c t i o n
0011340 ; \r 006 001 006 006
0011360 i f F N A R G , a p p l y
0011400 i t t o e a c h p i e c e
0011420 , a n d u s e t h e r e
0011440 s u l t a s t h e c o p y
0011460 o f t h e p i e c e ) 006 001
0011500 \r \r ( P R O G ( ( C H
0011520 1 ( 006 002 f e t c h 006 001 C H #
0011540 006 002 o f 006 001 S E L ) ) \r
0011560 ( C H L I M
0011600 ( 006 002 f e t c h 006 001 C H L I M
0011620 006 002 o f 006 001 S E L ) ) \r
0011640 ( P C T B (
0011660 006 002 f e t c h 006 001 P C T B 006
0011700 002 o f 006 001 T E X T O B J ) ) \r
0011720 L E N I
0011740 N S P C I N S P C # P C N
0011760 P C P C C H N P C C H O P
0012000 L E N E V E N T R E P L A C
0012020 I N G I N S E R T C H # P C
0012040 L S T O B J C O P Y F N \r
0012060 U N D O C
0012100 H A I N )
0012120
0012140 006 006 (
0012160 * F i n d t h e i n s e r
0012200 t i o n p o i n t ) 006 001 \r
0012220 ( S E T Q P C
0012240 L S T ( T C O N C N I L ) )
0012260 \r ( 006 002 f o
0012300 r 006 001 I 006 002 f r o m 006 001 \
0012320 F i r s t P i e c e O f f s e t
0012340 006 002 t o 006 001 ( I D I F F E R
0012360 E N C E ( \ E D I T E L T P
0012400 C T B \ P C T B L a s t P i e
0012420 c e O f f s e t ) \r
0012440
*
0012500 \ E l t
0012520 s P e r P i e c e ) 006 002 b y 006
0012540 001 \ E l t s P e r P i e c e \r
0012560 006 002 d
0012600 o 006 001
0012620
*
0012660 006 006 ( * G a t h e r a l
0012700 i s t o f p i e c e s t o
0012720 b e \r 006 001
0012740
*
0013020 006 006 c o p i e d ) 006 001 \r
0013040
0013060 ( S E T Q P C C H ( \ E D I
0013100 T E L T P C T B I ) )
0013120 006 006 (
0013140 * C H # f o r t h i s p
0013160 i e c e ) 006 001 \r
0013200 ( S E T Q P C
0013220 ( \ E D I T E L T P C T B
0013240 ( A D D 1 I ) ) )
0013260 006 006 ( * T h e p i
0013300 e c e i t s e l f ) 006 001 \r
0013320 ( S
0013340 E T Q N P C C H ( \ E D I T
0013360 E L T P C T B ( I P L U S
0013400 I \ E l t s P e r P i e c e )
0013420 ) ) \r
0013440
*
0013520 006 006 ( * N e x t p i e c e
0013540 ' s C H # ) 006 001 \r
0013560 ( C O N D \r
0013600
0013620 ( ( I L E Q N P C C H
0013640 C H 1 ) \r \r
0013660 006 006 ( * T
0013700 h e c u r r e n t p i e c e
0013720 i s n ' t i n s i d e t h
0013740 e r e g i o n t o b e c
0013760 o p i e d . ) 006 001 \r \r
0014000 )
0014020 \r
0014040 ( ( I G E Q P C C H
0014060 C H L I M )
0014100 006 006
0014120 ( * W e ' v e p a s s e d
0014140 b e y o n d t h e c o p y
0014160 \r 006 001
0014200
*
0014260 006 006 r e g i o n . B a i l o
0014300 u t . ) 006 001 \r
0014320 ( R E T U
0014340 R N ) ) \r
0014360 ( T
0014400
*
0014440 006 006 ( * T h i s p i e c
0014460 e o v e r l a p s t h e c
0014500 o p y - s o u r c e \r 006 001
0014520
*
0014600 006 006 r e g
0014620 i o n o f t h e d o c u m
0014640 e n t ) 006 001 \r
0014660
*
0014740 006 006 ( * A d d i t
0014760 t o t h e c o p y l i s t
0015000 . ) 006 001 \r
0015020 ( C O N D
0015040 \r
0015060 ( ( I L E S
0015100 S P P C C H C H 1 ) \r
0015120 \r
0015140 006 006 ( * T h e p i e c e
0015160 o v e r l a p s t h e b o
0015200 t t o m o f t h e c o p y
0015220 r e g i o n % : C h o p o
0015240 f f i t s f r o n t p a r
0015260 t . ) 006 001 \r \r
0015300
0015320 ( S E T Q P C ( \ S P L I
0015340 T P I E C E P C C H 1 T E
0015360 X T O B J I ) ) \r
0015400
0015420 ( 006 002 a d d 006 001 I \
0015440 E l t s P e r P i e c e ) \r
0015460
0015500 ( S E T Q P C
0015520 T B ( 006 002 f e t c h 006 001 P C
0015540 T B 006 002 o f 006 001 T E X T O B
0015560 J ) ) ) ) \r
0015600 ( C O N
0015620 D \r
0015640 ( ( I L E
0015660 S S P C H L I M N P C C H )
0015700 \r \r
0015720 006 006 ( * T h i s
0015740 p i e c e o v e r l a p s t
0015760 h e e n d o f t h e c o
0016000 p y r e g i o n . \r 006 001
0016020 006 006 S h o r t e n
0016040 i t a t t h e e n d . )
0016060 006 001 \r \r
0016100 ( \
0016120 S P L I T P I E C E P C C H
0016140 L I M T E X T O B J I ) \r
0016160
0016200 ( S E T Q P
0016220 C T B ( 006 002 f e t c h 006 001 P
0016240 C T B 006 002 o f 006 001 T E X T O
0016260 B J ) ) ) ) \r
0016300 ( T C
0016320 O N C P C L S T ( S E T Q
0016340 N P C ( C O N D \r
0016360
*
0016420 ( P I E C E
0016440 M A P F N ( A P P L Y * P I
0016460 E C E M A P F N P C T E X T
0016500 O B J F N A R G 1 \r
0016520
*
0016600 F
0016620 N A R G 2 ) ) \r
0016640
*
0016700 ( T P C ) ) )
0016720 ) ) ) ) \r (
0016740 R E T U R N ( C D A R P C L
0016760 S T ) ) ) ) ) \r \r ( 006 004 \ T E D
0017000 I T . F I N D . F I R S T . L I
0017020 N E 006 001 \r ( L A M B D A (
0017040 T E X T O B J W H E I G H T
0017060 C H # W I N D O W ) 006 006 006 001
0017100
0017120 006 006 ( * j d s "
0017140 2 1 - N o v - 8 4 1 1 : 1 8 "
0017160 ) 006 001 \r \r
0017200 006 006 ( * F i
0017220 n d t h e f i r s t l i n
0017240 e t o b e d i s p l a y e
0017260 d , g i v e n t h a t i t
0017300 m u s t i n c l u d e c h
0017320 a r a c t e r \r 006 001
0017340 006 006 C H # ) 006 001 \r \r
0017360 ( P R O G ( ( L I N E S
0017400 ( O R ( A N D W I N D O W
0017420 ( W I N D O W P R O P W I N
0017440 D O W ' L I N E S ) ) \r
0017460
0017500 ( 006 002 f e t c h 006 001 L I
0017520 N E S 006 002 o f 006 001 T E X T O
0017540 B J ) ) ) \r
0017560 ( W W I D T H ( 006 002 f e t c
0017600 h 006 001 W R I G H T 006 002 o f 006
0017620 001 T E X T O B J ) ) \r
0017640 ( T E X T S T R E
0017660 A M ( 006 002 f e t c h 006 001 S T
0017700 R E A M H I N T 006 002 o f 006 001
0017720 T E X T O B J ) ) \r
0017740 L I N E C H N O C
0017760 H ) \r ( C O
0020000 N D \r
0020020 ( ( Z E R O P ( 006 002 f e t c h
0020040 006 001 T E X T L E N 006 002 o f 006
0020060 001 T E X T O B J ) )
0020100 006 006 ( * I f
0020120 t h e r e ' s n o t e x t ,
0020140 f o r c e a n e m p t y
0020160 \r 006 001
0020200
*
0020260 006 006 l i n e ) 006 001 \r
0020300 ( S E T Q C H
0020320 N O 1 ) \r
0020340 ( 006 002 r e p l a c e 006 001
0020360 N E X T L I N E 006 002 o f 006 001
0020400 L I N E S 006 002 w i t h 006 001
0020420 N I L ) \r
0020440 ( R E T U R N L I N E S
0020460 ) ) \r
0020500 ( ( I G R E A T E R P C H #
0020520 ( 006 002 f e t c h 006 001 T E X T L
0020540 E N 006 002 o f 006 001 T E X T O B
0020560 J ) ) \r \r
0020600 006 006 ( * I f
0020620 t h e r e ' s n o t e x t
0020640 o n t h e s c r e e n ,
0020660 j u s t r e t u r n n i l )
0020700 006 001 \r \r
0020720 ( R E T U R N N I L ) ) \r
0020740 ( ( 006
0020760 002 f e t c h 006 001 F O R M A T T
0021000 E D P 006 002 o f 006 001 T E X T O
0021020 B J ) \r \r
0021040 006 006 ( * F o
0021060 r a p a r a - f o r m a t t
0021100 e d o b j e c t , b a c k
0021120 u p t o t h e p r i o r
0021140 p a r a b o u n d . ) 006 001 \r \r
0021160 ( S
0021200 E T Q C H N O ( C A R ( \
0021220 T E D I T . P A R A B O U N D S
0021240 T E X T O B J C H # ) ) ) )
0021260 \r ( T
0021300 \r \r
0021320 006 006 ( * O t h e
0021340 r w i s e , m o v e b a c k
0021360 t h r u t h e t e x t u
0021400 n t i l w e f i n d a f
0021420 o r - s u r e l i n e b r e
0021440 a k ) 006 001 \r \r
0021460 ( \ S E T U P G E
0021500 T C H C H # T E X T O B J )
0021520 \r
0021540 ( S E T Q C H 0 ) \r
0021560 ( 006 002
0021600 f o r 006 001 006 002 o l d 006 001 C H
0021620 N O 006 002 f r o m 006 001 ( S U B
0021640 1 C H # ) 006 002 t o 006 001 2
0021660 006 002 b y 006 001 - 1 006 002 r e p e
0021700 a t w h i l e 006 001 ( N O T (
0021720 E Q C H ( C H A R C O D E
0021740 C R ) ) ) \r
0021760 006 002 d o 006 001
0022000 ( S E T Q C H ( \ B A C K B
0022020 I N T E X T S T R E A M ) ) )
0022040 \r
0022060 ( S E T Q C H N O ( C O N
0022100 D \r
0022120
0022140 ( ( I L E Q C H N O 1 ) \r
0022160 \r
0022200 006 006 ( * I f w e m
0022220 o v e d b a c k t o s t a
0022240 r t - o f - f i l e , m o v e
0022260 f o r w a r d f r o m t h
0022300 e r e ; ) 006 001 \r \r
0022320
0022340 1 ) \r
0022360
0022400 ( ( I E Q P
0022420 C H N O C H # ) \r
0022440 \r 006
0022460 006 ( * I f w e l a n d e d
0022500 o n a C R f i r s t s
0022520 h o t , l e t ' s t r y m
0022540 o v i n g f o r w a r d f r
0022560 o m t h e r e . ) 006 001 \r \r
0022600
0022620 C H #
0022640 ) \r
0022660
0022700 ( T
0022720 006
0022740 006 ( * E l s e , s k i p t
0022760 h e C R w e p a s s e d
0023000 o v e r ) 006 001 \r
0023020
0023040 ( A D D 1 C
0023060 H N O ) ) ) ) ) ) \r
0023100 ( S E T Q C H # ( I
0023120 M I N C H # ( 006 002 f e t c h
0023140 006 001 T E X T L E N 006 002 o f 006
0023160 001 T E X T O B J ) ) ) \r
0023200 ( 006 002 r e p e a t
0023220 w h i l e 006 001 ( I L E Q C H
0023240 N O C H # ) 006 002 d o 006 001 \r
0023260 \r
0023300 006 006 ( * S t a r t i
0023320 n g f r o m t h e k n o w
0023340 n l i n e b r e a k , m o
0023360 v e f o r w a r d u n t i l
0023400 w e f i n d t h e l i n
0023420 e \r 006 001 006
0023440 006 w h i c h h a s t h e r
0023460 i g h t C H # i n i t ) 006
0023500 001 \r \r
0023520
0023540 ( S E
0023560 T Q L I N E ( \ F O R M A T
0023600 L I N E T E X T O B J N I L
0023620 C H N O ) ) \r
0023640
*
0023700 ( 006 002 r e p l a c e 006 001 Y
0023720 B O T 006 002 o f 006 001 L I N E
0023740 006 002 w i t h 006 001 W H E I G H T
0023760 ) \r
0024000
0024020 ( 006 002 r
0024040 e p l a c e 006 001 N E X T L I N
0024060 E 006 002 o f 006 001 L I N E S 006
0024100 002 w i t h 006 001 L I N E ) \r
0024120
*
0024160 ( 006 002 r e p l a
0024200 c e 006 001 P R E V L I N E 006 002
0024220 o f 006 001 L I N E 006 002 w i t h
0024240 006 001 L I N E S ) \r
0024260
*
0024320 ( S E T Q L I N E S
0024340 L I N E ) \r
0024360
*
0024420 ( S E T Q C H N O ( A D D 1
0024440 ( 006 002 f e t c h 006 001 C H A R
0024460 L I M 006 002 o f 006 001 L I N E )
0024500 ) ) ) \r ( R
0024520 E T U R N L I N E ) ) ) ) \r \r
0024540 ( 006 004 \ T E D I T . F I N D . L
0024560 A S T . L I N E 006 001 \r ( L A
0024600 M B D A ( T E X T O B J L I
0024620 N E S ) 006 006 006 001
0024640
0024660 006 006 ( *
0024700 j d s " 2 1 - A u g - 8 4
0024720 1 2 : 1 6 " ) 006 001 \r
0024740 \r 006
0024760 006 ( * A m o n g t h e l i
0025000 n e d e s c r i p t o r s i
0025020 n L I N E S , f i n d t h
0025040 e l a s t o n e o n t h
0025060 e s c r e e n ; \r 006 001
0025100 006 006 t h e n r e t
0025120 u r n i t . ) 006 001 \r \r
0025140 ( O R L I N E S ( S E T Q
0025160 L I N E S ( 006 002 f e t c h 006 001
0025200 L I N E S 006 002 o f 006 001 T E
0025220 X T O B J ) ) )
0025240 006 006 ( * M a k e s u r e
0025260 a l i s t o f l i n e \r
0025300 006 001
0025320
*
0025360 006
0025400 006 d e s c r i p t o r s i s
0025420 s p e c i f i e d . ) 006 001 \r
0025440 ( C O N D \r (
0025460 ( 006 002 f e t c h 006 001 \ W I N D
0025500 O W 006 002 o f 006 001 T E X T O B
0025520 J )
0025540 006 006 (
0025560 * I f t h e r e ' s n o
0025600 w i n d o w , r e t u r n N
0025620 I L . ) 006 001 \r (
0025640 006 002 b i n d 006 001 ( O L I N E
0025660 _ L I N E S ) \r
0025700 ( L I N E _ L
0025720 I N E S ) \r
0025740 ( C U R Y _ ( 006 002 f
0025760 e t c h 006 001 Y B O T 006 002 o f
0026000 006 001 L I N E S ) ) 006 002 w h i
0026020 l e 006 001 ( A N D L I N E (
0026040 I G E Q ( 006 002 f e t c h 006 001
0026060 Y B O T 006 002 o f 006 001 L I N E
0026100 ) \r
0026120
*
0026200 ( 006 002 f e t c h 006 001
0026220 W B O T T O M 006 002 o f 006 001 T
0026240 E X T O B J ) ) ) \r
0026260 006 002 d o 006 001 \r
0026300 \r
0026320 006 006 ( * F i n d t h e
0026340 l o w e s t l i n e a b o v
0026360 e s c r e e n b o t t o m ,
0026400 a n d p u t i t i n O
0026420 L I N E . ) 006 001 \r \r
0026440 ( S E T Q O L
0026460 I N E L I N E ) \r
0026500 ( S E T Q L I
0026520 N E ( 006 002 f e t c h 006 001 N E
0026540 X T L I N E 006 002 o f 006 001 L I
0026560 N E ) ) 006 002 f i n a l l y 006 001
0026600 ( R E T U R N O L I N E ) )
0026620 ) \r ( T N I L )
0026640 ) ) ) \r \r ( 006 004 \ T E D I T . F
0026660 I N D . O V E R L A P P I N G .
0026700 L I N E 006 001 \r ( L A M B D A
0026720 ( L I N E S Y ) 006 006 006 001
0026740
*
0027000 006 006 ( * j d s
0027020 " 9 - D e c - 8 3 1 7 : 1
0027040 7 " ) 006 001 \r ( 006 002 w h i
0027060 l e 006 001 L I N E S 006 002 d o 006
0027100 001 ( C O N D \r
0027120 (
0027140 ( I L E Q ( 006 002 f e t c h 006 001
0027160 Y B O T 006 002 o f 006 001 L I N
0027200 E S ) \r
0027220
0027240 Y ) \r
0027260 ( R E
0027300 T U R N L I N E S ) ) \r
0027320
0027340 ( T ( S E T Q L I N
0027360 E S ( 006 002 f e t c h 006 001 N E
0027400 X T L I N E 006 002 o f 006 001 L I
0027420 N E S ) ) ) ) ) ) ) \r \r ( 006 004 \
0027440 T E D I T . F I N D . P R O T E
0027460 C T E D . E N D 006 001 \r ( L A
0027500 M B D A ( T E X T O B J C H
0027520 # L I M I T C H # ) 006 006 006 001
0027540
0027560 006 006 ( *
0027600 j d s " 9 - J a n - 8 5
0027620 1 3 : 2 5 " ) 006 001 \r
0027640 \r 006
0027660 006 ( * S t a r t i n g f r o
0027700 m a C H # i n a s e l
0027720 e c t a b l e r e g i o n ,
0027740 f i n d t h e C H # o f
0027760 t h e l a s t \r 006 001
0030000 006 006 s e l e c t a b
0030020 l e c h a r a c t e r f o l
0030040 l o w i n g t h a t . T h i
0030060 s i s u s e d t o l i m
0030100 i t s e l e c t i o n s t o
0030120 \r 006 001 006 006
0030140 u n p r o t e c t e d t e x t
0030160 , a n d t o p r e v e n t
0030200 s e l e c t i o n o f t h
0030220 e p r o t e c t e d t e x t
0030240 b e t w e e n t o w \r 006 001
0030260 006 006 u n p r
0030300 o t e c t e d a r e a s . ) 006
0030320 001 \r
0030340
*
0030400 006
0030420 006 ( * I f L I M I T C H #
0030440 i s g i v e n , t h e s e
0030460 a r c h \r 006 001
0030500
*
0030560 006 006 w i l l s t o p
0030600 t h e r e . ) 006 001 \r (
0030620 006 002 b i n d 006 001 ( O U R L I M
0030640 I T _ ( I M I N ( O R L
0030660 I M I T C H # ( 006 002 f e t c h
0030700 006 001 T E X T L E N 006 002 o f 006
0030720 001 T E X T O B J ) ) \r
0030740
0030760 ( 006 002 f e t c h
0031000 006 001 T E X T L E N 006 002 o f 006
0031020 001 T E X T O B J ) ) ) \r
0031040 ( P C T B _ (
0031060 006 002 f e t c h 006 001 P C T B 006
0031100 002 o f 006 001 T E X T O B J ) )
0031120 006 002 f o r 006 001 I 006 002 f r o m
0031140 006 001 ( A D D 1 ( \ C H T O P
0031160 C N O C H # ( 006 002 f e t c h
0031200 006 001 P C T B 006 002 o f 006 001 T
0031220 E X T O B J ) ) ) \r
0031240 006 002 t o 006 001 ( \ E D I T E L
0031260 T ( 006 002 f e t c h 006 001 P C T
0031300 B 006 002 o f 006 001 T E X T O B J
0031320 ) \r
0031340 \ P C T B L a s t P i e c
0031360 e O f f s e t ) 006 002 b y 006 001
0031400 \ E l t s P e r P i e c e \r
0031420 006 002 d o 006 001 006 006 ( *
0031440 M o v e f o r w a r d t h
0031460 r u t h e p i e c e s o f
0031500 t h e d o c u m e n t , l
0031520 o o k i n g f o r o n e t
0031540 h a t c o n t a i n s \r 006 001
0031560 006 006 p r o t
0031600 e c t e d t e x t . I f t
0031620 h a t c o m e s b e f o r e
0031640 t h e e n d o f t h e
0031660 r e g i o n w e ' r e i n t
0031700 e r e s t e d i n , \r 006 001
0031720 006 006 t e l l
0031740 t h e c a l l e r a b o u t
0031760 t h e e a r l i e r e n d
0032000 t o s e l e c t a b l e t
0032020 e x t . ) 006 001 \r
0032040 ( C O N D \r
0032060 ( ( I G R E A T E R P
0032100 ( \ E D I T E L T P C T B
0032120 ( S U B 1 I ) ) \r
0032140 O
0032160 U R L I M I T ) \r
0032200 \r 006 006
0032220 ( * W e ' v e p a s s e d
0032240 t h e l i m i t , s o i t
0032260 ' s t i m e t o g i v e
0032300 u p . \r 006 001
0032320 006 006 J u s t r e t u r n t h
0032340 e L I M I T C H # ) 006 001 \r \r
0032360 ( R E
0032400 T U R N O U R L I M I T ) ) \r
0032420 ( ( 006
0032440 002 f e t c h 006 001 C L P R O T E
0032460 C T E D 006 002 o f 006 001 ( 006 002 f
0032500 e t c h 006 001 P L O O K S 006 002
0032520 o f 006 001 ( \ E D I T E L T P
0032540 C T B I ) ) ) \r
0032560 \r 006 006
0032600 ( * W e ' v e f o u n d t
0032620 h e b e g i n n i n g o f
0032640 a p r o t e c t e d r e g i
0032660 o n - - \r 006 001
0032700 006 006 i . e . , t h e e n
0032720 d o f t h e s e l e c t a
0032740 b l e r e g i o n . T e l l
0032760 t h e c a l l e r a b o u
0033000 t i t . ) 006 001 \r \r
0033020 ( R E T U R N
0033040 ( S U B 1 ( \ E D I T E L T
0033060 P C T B ( S U B 1 I ) ) ) )
0033100 ) ) ) ) ) \r \r ( 006 004 \ T E D I T
0033120 . F I N D . P R O T E C T E D .
0033140 S T A R T 006 001 \r ( L A M B D
0033160 A ( T E X T O B J C H # L
0033200 I M I T C H # ) 006 006 006 001
0033220
0033240 006 006 ( * j d
0033260 s " 5 - F e b - 8 5 1 4 :
0033300 4 7 " ) 006 001 \r
0033320 \r 006 006 ( *
0033340 S t a r t i n g f r o m a
0033360 C H # i n a s e l e c t
0033400 a b l e r e g i o n , f i n
0033420 d t h e C H # o f t h e
0033440 e a r l i e s t \r 006 001
0033460 006 006 c o n t i g u
0033500 o u s l y - s e l e c t a b l e
0033520 c h a r a c t e r p r e c e
0033540 d i n g t h a t . \r 006 001
0033560 006 006 T h i s i s
0033600 u s e d t o l i m i t s
0033620 e l e c t i o n s t o u n p
0033640 r o t e c t e d t e x t , a
0033660 n d t o p r e v e n t s e
0033700 l e c t i o n \r 006 001
0033720 006 006 o f t h e p r
0033740 o t e c t e d t e x t b e t
0033760 w e e n t o w u n p r o t e
0034000 c t e d a r e a s . ) 006 001 \r
0034020 \r
0034040 006 006 ( * W i l l s t
0034060 o p l o o k i n g w h e n
0034100 i t p a s s e s L I M I T C
0034120 H # , o r a t t h e b e
0034140 g i n n i n g o f t h e \r
0034160 006 001 006 006 d o
0034200 c u m e n t . ) 006 001 \r \r
0034220 ( 006 002 b i n d 006 001 ( O U R L I
0034240 M I T _ ( O R L I M I T C
0034260 H # 1 ) ) \r
0034300 ( P C T B _ ( 006 002 f e t c
0034320 h 006 001 P C T B 006 002 o f 006 001
0034340 T E X T O B J ) ) 006 002 f o r 006
0034360 001 I \r 006 002 f r o
0034400 m 006 001 ( A D D 1 ( \ C H T O
0034420 P C N O ( I M A X 1 ( I M
0034440 I N C H # ( 006 002 f e t c h 006
0034460 001 T E X T L E N 006 002 o f 006 001
0034500 T E X T O B J ) ) ) \r
0034520
0034540 ( 006 002 f e t c h 006 001
0034560 P C T B 006 002 o f 006 001 T E X T
0034600 O B J ) ) ) 006 002 t o 006 001 \ F
0034620 i r s t P i e c e O f f s e t
0034640 006 002 b y 006 001 ( I M I N U S \
0034660 E l t s P e r P i e c e ) \r
0034700 006 002 d o 006 001 ( C O N
0034720 D \r (
0034740 ( I L E Q ( \ E D I T E L T
0034760 P C T B ( S U B 1 I ) ) \r
0035000
0035020 O U R L I M I T ) \r
0035040 \r
0035060 006 006 ( * I f h e s p e
0035100 c i f i e d a L I M I T C H
0035120 # , a n d w e h a v e p
0035140 a s s e d i t , s t o p b
0035160 o t h e r i n g a n d r e t
0035200 u r n \r 006 001
0035220 006 006 t h e L I M I T C H # )
0035240 006 001 \r \r
0035260 ( R E T U R N O U R L I M
0035300 I T ) ) \r
0035320 ( ( 006 002 f e t c h 006 001 C L
0035340 P R O T E C T E D 006 002 o f 006 001
0035360 ( 006 002 f e t c h 006 001 P L O O
0035400 K S 006 002 o f 006 001 ( \ E D I T
0035420 E L T P C T B I ) ) ) \r
0035440 \r
0035460 006 006 ( * W e h i t a
0035500 P R O T E C T E D p i e c e
0035520 o f t e x t . T h i s i
0035540 s t h e p l a c e t o s
0035560 t o p . \r 006 001
0035600 006 006 R e t u r n t h e C H
0035620 # j u s t A F T E R t h e
0035640 p r o t e c t e d t e x t
0035660 w e f o u n d . ) 006 001 \r \r
0035700 ( R E T
0035720 U R N ( \ E D I T E L T P C
0035740 T B ( A D D 1 I ) ) ) ) ) )
0035760 ) ) \r \r ( 006 004 \ T E D I T . W O
0036000 R D . B O U N D 006 001 \r ( L A
0036020 M B D A ( T E X T O B J P R
0036040 E V C H C H ) 006 006 006 001
0036060
0036100 006 006 ( *
0036120 j d s " 2 4 - J a n - 8 4
0036140 1 4 : 1 1 " ) 006 001 \r ( P
0036160 R O G ( ( R E A D S A ( 006 002
0036200 f e t c h 006 001 R E A D S A 006
0036220 002 o f 006 001 ( O R ( 006 002 f e t
0036240 c h 006 001 T X T W T B L 006 002 o
0036260 f 006 001 T E X T O B J ) \r
0036300
*
0036340 T E D I T . W O R D B
0036360 O U N D . R E A D T A B L E ) )
0036400 ) \r S Y N
0036420 1 S Y N 2 ) \r
0036440 ( C O N D \r
0036460 ( ( N O T ( A N D
0036500 ( F I X P P R E V C H ) \r
0036520
0036540 ( F I X P C H ) )
0036560 ) \r
0036600 ( R E T U R N T ) ) ) \r
0036620 ( S E T Q S Y N
0036640 1 ( \ S Y N C O D E R E A D
0036660 S A P R E V C H ) ) \r
0036700 ( S E T Q S Y N 2
0036720 ( \ S Y N C O D E R E A D S
0036740 A C H ) ) \r
0036760 ( R E T U R N ( N E Q S Y
0037000 N 1 S Y N 2 ) ) ) ) ) \r ) \r \r
0037020 ( R P A Q ? 006 002 T E D I T . E
0037040 X T E N D . P E N D I N G . D E
0037060 L E T E 006 001 T ) \r \r ( R P A Q
0037100 006 002 T E D I T . S E L E C T I
0037120 O N 006 001 ( c r e a t e S E L
0037140 E C T I O N ) ) \r \r ( R P A Q
0037160 006 002 T E D I T . S C R A T C H S
0037200 E L E C T I O N 006 001 ( c r e a
0037220 t e S E L E C T I O N ) ) \r \r
0037240 ( R P A Q 006 002 T E D I T . S H
0037260 I F T E D S E L E C T I O N 006 001
0037300 ( c r e a t e S E L E C T I
0037320 O N H A S C A R E T _ N I
0037340 L ) ) \r \r ( R P A Q 006 002 T E D
0037360 I T . C O P Y L O O K S S E L E
0037400 C T I O N 006 001 ( c r e a t e
0037420 S E L E C T I O N H A S C A R
0037440 E T _ N I L ) ) \r \r ( R P A
0037460 Q 006 002 T E D I T . M O V E S E
0037500 L E C T I O N 006 001 ( C R E A T
0037520 E S E L E C T I O N H A S C
0037540 A R E T _ N I L H O W H E
0037560 I G H T _ 3 2 7 6 7 ) ) \r \r
0037600 ( R P A Q 006 002 T E D I T . D E
0037620 L E T E S E L E C T I O N 006 001
0037640 ( C R E A T E S E L E C T I O
0037660 N H O W _ B L A C K S H A
0037700 D E H A S C A R E T _ N I
0037720 L H O W H E I G H T _ 3 2
0037740 7 6 7 ) ) \r \r ( R P A Q Q 006 002
0037760 S E L E C T I O N 006 001 N O B I
0040000 N D ) \r \r ( R P A Q Q 006 002 S E
0040020 L E C T I O N 006 001 N O B I N D
0040040 ) \r \r ( R P A Q Q 006 002 T E D I
0040060 T . S E L P E N D I N G 006 001 N
0040100 I L ) \r ( D E C L A R E % : D
0040120 O E V A L @ C O M P I L E D O
0040140 N T C O P Y \r \r ( G L O B A L V
0040160 A R S T E D I T . S E L E C T
0040200 I O N T E D I T . S C R A T C
0040220 H S E L E C T I O N T E D I T
0040240 . M O V E S E L E C T I O N T
0040260 E D I T . S H I F T E D S E L E
0040300 C T I O N \r T E
0040320 D I T . C O P Y L O O K S S E L
0040340 E C T I O N T E D I T . D E L
0040360 E T E S E L E C T I O N T E D
0040400 I T . S E L P E N D I N G T E
0040420 D I T . E X T E N D . P E N D I
0040440 N G . D E L E T E ) \r ) \r \r \r \r
0040460 006 004 ( * S e l e c t i o n m
0040500 a n i p u l a t i n g c o d e
0040520 ) 006 001 \r \r ( D E F I N E Q \r \r (
0040540 006 004 T E D I T . E X T E N D . S
0040560 E L 006 001 \r [ L A M B D A (
0040600 X Y O S E L T E X T O B J
0040620 S E L O P E R A T I O N S E
0040640 L W I N D O W N E W S E L ) 006
0040660 006 006 001 006 006 ( * ; " E d
0040700 i t e d 7 - J a n - 8 7 0
0040720 0 : 5 5 b y j d s " ) 006 001 \r
0040740 \r
0040760 006 006 ( * G a t h e r
0041000 a n e w s e l e c t e d
0041020 c h a r a c t e r , a n d e
0041040 x t e n d O S E L t o i n
0041060 c l u d e i t . \r 006 001
0041100 006 006 R e t u r n t
0041120 h e e x t e n d e d s e l e
0041140 c t i o n . ) 006 001 \r \r (
0041160 P R O G ( ( N S E L ( O R
0041200 N E W S E L ( 006 002 T E D I T .
0041220 S E L E C T 006 001 X Y T E X
0041240 T O B J ( S E L E C T Q ( 006
0041260 002 f e t c h 006 001 S E L K I N D
0041300 006 002 o f 006 001 O S E L ) \r
0041320
*
0041400 ( ( L I N E P
0041420 A R A ) \r
0041440
*
0041520 ' L I N E ) \r
0041540
*
0041620 ( ( W O R D C H A
0041640 R ) \r
0041660
*
0041740 ' T E X T ) \r
0041760
*
0042040 ' T E X T ) \r
0042060
0042100 ( O
0042120 R ( E Q ( 006 002 f e t c h 006 001
0042140 S E L K I N D 006 002 o f 006 001
0042160 O S E L ) \r
0042200
*
0042240 ' W O R D ) \r
0042260
0042300 (
0042320 E Q ( 006 002 f e t c h 006 001 S E
0042340 L K I N D 006 002 o f 006 001 O S E
0042360 L ) \r
0042400
0042420 ' P
0042440 A R A ) ) \r
0042460
0042500 S E L O P E R
0042520 A T I O N S E L W I N D O W
0042540 T ) ) ) \r
0042560 ( T E X T L E N ( 006 002 f e t c
0042600 h 006 001 T E X T L E N 006 002 o f
0042620 006 001 T E X T O B J ) ) \r
0042640 ( N P O I N T
0042660 N I L ) \r
0042700 ( S E T O S E L F L G N I L )
0042720 \r ( F I X
0042740 U P N E E D E D N I L ) ) \r
0042760 ( C O N D \r
0043000 ( ( Z E
0043020 R O P T E X T L E N ) \r
0043040 \r
0043060 006 006 ( * N o s e n s e
0043100 i n e x t e n d i n g a s
0043120 e l e c t i o n i f t h e r
0043140 e ' s n o t e x t ! ) 006 001 \r
0043160 \r (
0043200 R E T U R N N S E L ) ) ) \r
0043220 ( C O N D \r
0043240 ( ( A N
0043260 D N S E L ( 006 002 f e t c h 006
0043300 001 S E T 006 002 o f 006 001 N S E
0043320 L ) )
0043340 006 006 ( * I f t h e r
0043360 e ' s n o s e c o n d s e
0043400 l e c t i o n , \r 006 001
0043420
*
0043500 006 006 d o n ' t
0043520 b o t h e r t r y i n g ) 006
0043540 001 \r
0043560 ( 006 002 \ T E D I T . S E T . S E
0043600 L . L O O K S 006 001 N S E L S
0043620 E L O P E R A T I O N ) \r
0043640 \r
0043660 006 006 ( * M a k e t h e
0043700 n e w s e l e c t i o n b e
0043720 t h e s a m e k i n d a
0043740 s t h e o r i g i n a l ,
0043760 a s t o w h a t i t ' s
0044000 f o r \r 006 001
0044020 006 006 - - r e g u l a r , c
0044040 o p y - s o u r c e , e t c .
0044060 ) 006 001 \r \r
0044100 [ S E T Q N P O I N T
0044120 ( C O N D \r
0044140
0044160 ( ( I G E Q ( 006 002 f e
0044200 t c h 006 001 C H L I M 006 002 o f
0044220 006 001 N S E L ) \r
0044240
0044260 ( 006
0044300 002 f e t c h 006 001 C H L I M 006
0044320 002 o f 006 001 O S E L ) ) \r
0044340 \r
0044360 006 006 ( * T h e n e w s
0044400 e l e c t i o n e n d s t o
0044420 t h e r i g h t o f t h
0044440 e o l d o n e . \r 006 001
0044460 006 006 M o v e t h
0044500 i s e d g e . ) 006 001 \r \r
0044520
0044540 ' R I G
0044560 H T ) \r
0044600
0044620 ( ( I L E Q ( 006 002 f e t c
0044640 h 006 001 C H # 006 002 o f 006 001 N
0044660 S E L ) \r
0044700
0044720 ( 006 002 f e t
0044740 c h 006 001 C H # 006 002 o f 006 001
0044760 O S E L ) ) \r
0045000 \r 006 006 ( *
0045020 I f t h e n e w s e l e
0045040 c t i o n s t a r t s t o
0045060 l e f t o f o l d o n e ,
0045100 c a r e t g o e s a t t
0045120 h e L E F T ) 006 001 \r \r
0045140
0045160 ' L E F T
0045200 ) \r
0045220
0045240 ( [ I G R E A T E R P ( I A B
0045260 S ( I D I F F E R E N C E (
0045300 006 002 f e t c h 006 001 C H L I M
0045320 006 002 o f 006 001 N S E L ) \r
0045340
*
0045420 ( 006 002 f e t c h 006 001 C
0045440 H L I M 006 002 o f 006 001 O S E L
0045460 ) ) ) \r
0045500
0045520 ( I A B S
0045540 ( I D I F F E R E N C E ( 006 002
0045560 f e t c h 006 001 C H # 006 002 o f
0045600 006 001 N S E L ) \r
0045620
*
0045660 ( 006 002 f
0045700 e t c h 006 001 C H # 006 002 o f 006
0045720 001 O S E L ] \r
0045740
0045760 ( S E T Q S E T
0046000 O S E L F L G T ) \r
0046020
0046040 ' L E F T )
0046060 \r
0046100 (
0046120 T ( S E T Q S E T O S E L F
0046140 L G T ) \r
0046160
0046200 ' R I G H T ] \r
0046220 [ S E
0046240 L E C T Q N P O I N T \r
0046260 (
0046300 L E F T
0046320
0046340 006 006 ( * C
0046360 a r e t ' s t o t h e l e
0046400 f t . \r 006 001
0046420
*
0046500 006 006 K e e p t h e s a
0046520 m e r i g h t e n d ) 006 001 \r
0046540
0046560 [ 006 002 r e p l a
0046600 c e 006 001 C H L I M 006 002 o f 006
0046620 001 N S E L \r
0046640
0046660 006 002 w i t h 006 001 ( I M A X
0046700 ( 006 002 f e t c h 006 001 C H L I
0046720 M 006 002 o f 006 001 N S E L ) \r
0046740
*
0047000 ( S E L E C T Q ( 006
0047020 002 f e t c h 006 001 P O I N T 006
0047040 002 o f 006 001 O S E L ) \r
0047060
*
0047120 ( L E F T ( I P L
0047140 U S ( 006 002 f e t c h 006 001 C H
0047160 # 006 002 o f 006 001 O S E L ) \r
0047200
*
0047260 ( 006 002 f e t c h 006 001
0047300 D C H 006 002 o f 006 001 O S E L
0047320 ) ) ) \r
0047340
0047360 ( R
0047400 I G H T ( 006 002 f e t c h 006 001
0047420 C H L I M 006 002 o f 006 001 O S E
0047440 L ) ) \r
0047460
0047500 ( S
0047520 H O U L D N T ] \r
0047540
0047560 ( 006 002 r e p l a c e 006 001 X L
0047600 I M 006 002 o f 006 001 N S E L 006
0047620 002 w i t h 006 001 ( 006 002 f e t c h
0047640 006 001 X L I M 006 002 o f 006 001 O
0047660 S E L ) ) \r
0047700 ( 006
0047720 002 r e p l a c e 006 001 Y L I M
0047740 006 002 o f 006 001 N S E L 006 002 w i
0047760 t h 006 001 ( 006 002 f e t c h 006 001
0050000 Y L I M 006 002 o f 006 001 O S E L
0050020 ) ) \r
0050040 ( 006 002 r e
0050060 p l a c e 006 001 L N 006 002 o f 006
0050100 001 N S E L 006 002 w i t h 006 001
0050120 ( C O P Y ( 006 002 f e t c h 006 001
0050140 L N 006 002 o f 006 001 O S E L )
0050160 ) ) \r
0050200 ( C O N D
0050220 \r
0050240 ( ( N E
0050260 Q S E L O P E R A T I O N '
0050300 C O P Y ) \r
0050320 \r 006 006 ( *
0050340 T h e o l d s e l i s i
0050360 n a p r o t e c t e d a r
0050400 e a . O n l y l e t h i m
0050420 e x t e n d t o t h e s
0050440 t a r t o f i t . ) 006 001 \r \r
0050460
0050500 [ 006 002 r
0050520 e p l a c e 006 001 C H # 006 002 o
0050540 f 006 001 N S E L 006 002 w i t h 006
0050560 001 ( I M A X ( 006 002 f e t c h
0050600 006 001 C H # 006 002 o f 006 001 N S
0050620 E L ) \r
0050640
*
0050720 ( 006 002 \ T E D I T . F I N D . P
0050740 R O T E C T E D . S T A R T 006 001
0050760 \r
0051000
*
0051040 T E
0051060 X T O B J \r
0051100
*
0051160 ( S U B 1 ( 006 002 f e t c
0051200 h 006 001 C H L I M 006 002 o f 006 001
0051220 O S E L ) ) \r
0051240
*
0051320 ( 006 002 f e t c h 006 001
0051340 C H # 006 002 o f 006 001 N S E L ]
0051360 \r
0051400 ( S E
0051420 T Q F I X U P N E E D E D T
0051440 ) \r \r
0051460 006 006 ( * N o t e
0051500 t h a t t h e L 1 / L N
0051520 m a y b e i n v a l i d a
0051540 s a r e s u l t o f t h
0051560 i s c o n t r a c t i o n . \r
0051600 006 001 006 006 F o
0051620 r c e a \ F I X S E L l a
0051640 t e r . ) 006 001 \r \r
0051660
0051700 ) ) ) \r
0051720 ( R I G H
0051740 T
0051760
0052000 006 006 ( * P o i n t
0052020 ' s t o t h e r i g h t ;
0052040 \r 006 001
0052060
*
0052140 006 006 k e e p t h e s a m e
0052160 l e f t e n d . ) 006 001 \r
0052200
0052220 [ 006 002 r e p l a c e
0052240 006 001 C H # 006 002 o f 006 001 N S
0052260 E L \r
0052300 006
0052320 002 w i t h 006 001 ( I M I N ( 006
0052340 002 f e t c h 006 001 C H # 006 002 o
0052360 f 006 001 N S E L ) \r
0052400
*
0052440 ( S E L E C T Q ( 006 002 f e t
0052460 c h 006 001 P O I N T 006 002 o f 006
0052500 001 O S E L ) \r
0052520
*
0052560 ( L E F T ( 006 002 f e t c
0052600 h 006 001 C H # 006 002 o f 006 001 O
0052620 S E L ) ) \r
0052640
*
0052700 ( R I G H T ( I D I F F E R
0052720 E N C E ( 006 002 f e t c h 006 001
0052740 C H L I M 006 002 o f 006 001 O S E
0052760 L ) \r
0053000
*
0053040 ( 006 002 f
0053060 e t c h 006 001 D C H 006 002 o f 006
0053100 001 O S E L ) ) ) \r
0053120
*
0053160 ( S H O U L D N T ] \r
0053200
0053220 ( 006 002 r e p l
0053240 a c e 006 001 X 0 006 002 o f 006 001
0053260 N S E L 006 002 w i t h 006 001 ( 006
0053300 002 f e t c h 006 001 X 0 006 002 o f
0053320 006 001 O S E L ) ) \r
0053340
0053360 ( 006 002 r e p l a c e 006 001
0053400 Y 0 006 002 o f 006 001 N S E L 006
0053420 002 w i t h 006 001 ( 006 002 f e t c h
0053440 006 001 Y 0 006 002 o f 006 001 O S E
0053460 L ) ) \r
0053500 ( 006 002
0053520 r e p l a c e 006 001 L 1 006 002 o
0053540 f 006 001 N S E L 006 002 w i t h 006
0053560 001 ( C O P Y ( 006 002 f e t c h
0053600 006 001 L 1 006 002 o f 006 001 O S E
0053620 L ) ) ) \r
0053640 ( C
0053660 O N D \r
0053700
0053720 ( ( N E Q S E L O P E R A T I
0053740 O N ' C O P Y ) \r
0053760 \r 006
0054000 006 ( * T h e o l d s e l
0054020 i s i n a p r o t e c t e
0054040 d a r e a . O n l y l e t
0054060 h i m e x t e n d t o t
0054100 h e s t a r t o f i t . )
0054120 006 001 \r \r
0054140
0054160 [ 006 002 r e p l a c e 006 001 C H
0054200 L I M 006 002 o f 006 001 N S E L \r
0054220
*
0054260 006 002 w i t h 006 001 ( I M I N (
0054300 006 002 f e t c h 006 001 C H L I M
0054320 006 002 o f 006 001 N S E L ) \r
0054340
*
0054400 ( A D D 1 ( 006
0054420 002 \ T E D I T . F I N D . P R O
0054440 T E C T E D . E N D 006 001 \r
0054460
*
0054520 T
0054540 E X T O B J \r
0054560
*
0054620 ( 006 002 f e t c
0054640 h 006 001 C H # 006 002 o f 006 001 O
0054660 S E L ) \r
0054700
*
0054740 ( A D D 1 ( 006 002
0054760 \ T E D I T . F I N D . P R O T
0055000 E C T E D . E N D 006 001 \r
0055020
*
0055100 T E X T O B J \r
0055120
*
0055200 ( 006 002 f e t c h 006 001
0055220 C H # 006 002 o f 006 001 O S E L
0055240 ) \r
0055260
*
0055320 ( S U B 1
0055340 ( 006 002 f e t c h 006 001 C H L I
0055360 M 006 002 o f 006 001 N S E L ] \r
0055400
0055420 ( 006 002 r
0055440 e p l a c e 006 001 C H # 006 002 o
0055460 f 006 001 N S E L 006 002 w i t h 006
0055500 001 ( I M I N ( 006 002 f e t c h
0055520 006 001 C H L I M 006 002 o f 006 001
0055540 N S E L ) \r
0055560
*
0055640 ( 006 002 f e t c h 006 001 C H
0055660 # 006 002 o f 006 001 N S E L ) ) )
0055700 \r
0055720 ( S
0055740 E T Q F I X U P N E E D E D
0055760 T ) \r \r
0056000 006 006 ( * N o t
0056020 e t h a t t h e L 1 / L N
0056040 m a y b e i n v a l i d
0056060 a s a r e s u l t o f t
0056100 h i s c o n t r a c t i o n .
0056120 \r 006 001 006 006 F
0056140 o r c e a \ F I X S E L l
0056160 a t e r . ) 006 001 \r \r
0056200
0056220 ) ) ) \r
0056240 ( P R
0056260 O G N ( 006 002 r e p l a c e 006 001
0056300 C H L I M 006 002 o f 006 001 N S
0056320 E L 006 002 w i t h 006 001 ( 006 002 f
0056340 e t c h 006 001 C H L I M 006 002 o
0056360 f 006 001 O S E L ) ) \r
0056400
0056420 ( 006 002 r e p l a c e 006 001
0056440 X L I M 006 002 o f 006 001 N S E
0056460 L 006 002 w i t h 006 001 ( 006 002 f e
0056500 t c h 006 001 X L I M 006 002 o f 006
0056520 001 O S E L ) ) \r
0056540
0056560 ( 006 002 r e p l a c e 006 001 Y
0056600 L I M 006 002 o f 006 001 N S E L
0056620 006 002 w i t h 006 001 ( 006 002 f e t c
0056640 h 006 001 Y L I M 006 002 o f 006 001
0056660 O S E L ) ) \r
0056700
0056720 ( 006 002 r e p l a c e 006 001 L N
0056740 006 002 o f 006 001 N S E L 006 002 w i
0056760 t h 006 001 ( C O P Y ( 006 002 f e
0057000 t c h 006 001 L N 006 002 o f 006 001
0057020 O S E L ) ) ) \r
0057040
0057060 ( 006 002 r e p l a c e 006 001 C H
0057100 # 006 002 o f 006 001 N S E L 006 002
0057120 w i t h 006 001 ( 006 002 f e t c h 006
0057140 001 C H # 006 002 o f 006 001 O S E
0057160 L ) ) \r
0057200 ( 006 002
0057220 r e p l a c e 006 001 X 0 006 002 o
0057240 f 006 001 N S E L 006 002 w i t h 006
0057260 001 ( 006 002 f e t c h 006 001 X 0
0057300 006 002 o f 006 001 O S E L ) ) \r
0057320
0057340 ( 006 002 r e p l a c
0057360 e 006 001 Y 0 006 002 o f 006 001 N S
0057400 E L 006 002 w i t h 006 001 ( 006 002 f
0057420 e t c h 006 001 Y 0 006 002 o f 006 001
0057440 O S E L ) ) \r
0057460
0057500 ( 006 002 r e p l a c e 006 001 L 1
0057520 006 002 o f 006 001 N S E L 006 002 w
0057540 i t h 006 001 ( C O P Y ( 006 002 f
0057560 e t c h 006 001 L 1 006 002 o f 006 001
0057600 O S E L ) ) ) \r
0057620
0057640 ( S E T Q N P O I N T (
0057660 006 002 f e t c h 006 001 P O I N T
0057700 006 002 o f 006 001 O S E L ] \r
0057720 ( 006 002 r e
0057740 p l a c e 006 001 D C H 006 002 o f
0057760 006 001 N S E L 006 002 w i t h 006 001
0060000 ( I D I F F E R E N C E ( I
0060020 M I N ( A D D 1 T E X T L E
0060040 N ) \r
0060060
*
0060120 ( 006
0060140 002 f e t c h 006 001 C H L I M 006
0060160 002 o f 006 001 N S E L ) ) \r
0060200
*
0060240 ( 006 002 f
0060260 e t c h 006 001 C H # 006 002 o f 006
0060300 001 N S E L ) ) ) \r
0060320 \r 006
0060340 006 ( * T h e s e l e c t i o
0060360 n ' s l e n g t h c a n n o
0060400 t e x c e e d t h a t o f
0060420 t h e w h o l e t e x t .
0060440 ) 006 001 \r \r
0060460 ( 006 002 r e p l a c e 006 001
0060500 C H L I M 006 002 o f 006 001 N S E
0060520 L 006 002 w i t h 006 001 ( I P L U
0060540 S ( 006 002 f e t c h 006 001 C H #
0060560 006 002 o f 006 001 N S E L ) \r
0060600
*
0060640 (
0060660 006 002 f e t c h 006 001 D C H 006 002
0060700 o f 006 001 N S E L ) ) ) \r
0060720
*
0061000 006 006 ( * T
0061020 h i s a s s u r e s t h a t
0061040 t h e C H L I M \r 006 001
0061060
*
0061140 006 006 c o r
0061160 r e s p o n d s t o t h e
0061200 D C H . ) 006 001 \r
0061220 ( 006 002 r e p l a c e
0061240 006 001 P O I N T 006 002 o f 006 001
0061260 N S E L 006 002 w i t h 006 001 N P
0061300 O I N T ) \r
0061320 ( 006 002 r e p l a c e 006 001
0061340 ( S E L E C T I O N D X )
0061360 006 002 o f 006 001 N S E L 006 002 w i
0061400 t h 006 001 ( I D I F F E R E N C
0061420 E ( 006 002 f e t c h 006 001 X L I
0061440 M 006 002 o f 006 001 N S E L ) \r
0061460
*
0061540 ( 006 002 f e t c
0061560 h 006 001 X 0 006 002 o f 006 001 N S
0061600 E L ) ) ) \r
0061620 ( C O N D \r
0061640 ( ( N E Q
0061660 ( 006 002 f e t c h 006 001 S E L O
0061700 B J 006 002 o f 006 001 O S E L ) \r
0061720
0061740 ( 006 002 f e t c h 006
0061760 001 S E L O B J 006 002 o f 006 001
0062000 N S E L ) ) \r
0062020 ( 006 002 r e p l
0062040 a c e 006 001 S E L O B J 006 002 o
0062060 f 006 001 N S E L 006 002 w i t h 006
0062100 001 N I L ) ) ) \r
0062120 ( C O N D \r
0062140 ( F
0062160 I X U P N E E D E D \r
0062200 \r
0062220 006 006 ( * W e ' r e i n a
0062240 m e n u , a n d t h i s
0062260 s e l e c t i o n g o t c o
0062300 n t r a c t e d b e c a u s e
0062320 o f a p r o t e c t i o n
0062340 \r 006 001 006 006
0062360 v i o l a t i o n . F i x u
0062400 p e v e r y t h i n g . ) 006 001
0062420 \r \r
0062440 ( 006 002 \ F I
0062460 X S E L 006 001 N S E L T E X T
0062500 O B J ) ) ) \r
0062520 ( C O N D \r
0062540 ( S E T
0062560 O S E L F L G \r
0062600 \r 006 006
0062620 ( * F o r w h a t e v e r
0062640 r e a s o n , i t i s w i
0062660 s e t o c o p y t h e n
0062700 e w s e l i n t o t h e
0062720 o l d o n e . ) 006 001 \r \r
0062740
0062760 ( 006 002 \ C O P Y S E L
0063000 006 001 N S E L O S E L ) ) \r
0063020
0063040 ( T \r \r
0063060 006 006 ( * O t
0063100 h e r w i s e , s e t t h e
0063120 P O I N T o f t h e o l
0063140 d s e l t o c o r r e s p
0063160 o n d t o t h e n e w s
0063200 e l ' s . ) 006 001 \r
0063220
*
0063300 006 006 ( * ( r e p l
0063320 a c e P O I N T o f O S E
0063340 L w i t h N P O I N T ) ) 006
0063360 001 \r \r
0063400 006 006 ( * T H I S
0063420 W A S R E M O V E D , B E
0063440 C A U S E E X T E N D I N G
0063460 A P O I N T - S E L E C T I O
0063500 N W O U L D D I E W H E N
0063520 T H I S \r 006 001
0063540 006 006 W A S D O N E ) 006 001
0063560 \r \r
0063600 ) ) \r
0063620 ( R E T U R N N
0063640 S E L ) ) \r
0063660 ( T \r
0063700 \r 006 006 ( *
0063720 N o n e w s e l e c t i o
0063740 n w a s m a d e ; j u s t
0063760 r e t u r n t h e o l d
0064000 o n e . ) 006 001 \r \r
0064020 ( R E T U R N
0064040 O S E L ] ) \r \r ( 006 004 T E D I
0064060 T . S E L E C T 006 001 \r [ L A
0064100 M B D A ( X Y T E X T O B
0064120 J R E G I O N W O R D S E L
0064140 F L G S E L O P E R A T I O N
0064160 W I N D O W E X T E N D I N
0064200 G ) 006 006 006 001 \r
0064220
*
0064300 006 006 ( * ; " E d i t
0064320 e d 7 - J a n - 8 7 0 0 :
0064340 5 5 b y j d s " ) 006 001 \r
0064360 \r
0064400 006 006 ( * S e l e c t t
0064420 h e c h a r a c t e r w o r
0064440 d , l i n e , o r p a r a
0064460 g r a p h t h e m o u s e
0064500 i s p o i n t i n g a t . )
0064520 006 001 \r \r ( P R O G ( (
0064540 S E L N I L ) \r
0064560 ( T E X T L E N ( 006 002
0064600 f e t c h 006 001 T E X T L E N
0064620 006 002 o f 006 001 T E X T O B J ) )
0064640 \r P R E V
0064660 L I N E L 1 L N ) \r
0064700 ( S E T Q S E L
0064720 ( 006 002 T E D I T . S E L E C T .
0064740 L I N E . S C A N N E R 006 001 X
0064760 Y T E X T O B J ( \ T E D
0065000 I T . L I N E . L I S T T E X
0065020 T O B J W I N D O W ) \r
0065040
0065060 R E G I O N W
0065100 O R D S E L F L G S E L O P E
0065120 R A T I O N W I N D O W E X
0065140 T E N D I N G ) ) \r
0065160 ( C O N D \r
0065200 ( ( A N D ( 006 002
0065220 t y p e ? 006 001 S E L E C T I O
0065240 N S E L ) \r
0065260 ( 006 002 f e t
0065300 c h 006 001 S E T 006 002 o f 006 001
0065320 S E L ) )
0065340 006 006 ( *
0065360 H e p o i n t e d a t s
0065400 o m e t h i n g r e a l ; \r 006
0065420 001
0065440
*
0065500 006 006
0065520 r e t u r n t h a t . ) 006 001 \r
0065540 ( 006
0065560 002 \ T E D I T . S E T . S E L .
0065600 L O O K S 006 001 S E L S E L O
0065620 P E R A T I O N ) \r
0065640 [ C O N D \r
0065660 (
0065700 [ A N D ( C A R ( 006 002 f e t
0065720 c h 006 001 L 1 006 002 o f 006 001 S
0065740 E L ) ) \r
0065760 ( 006 002 f
0066000 e t c h 006 001 F M T H A R D C O
0066020 P Y 006 002 o f 006 001 ( 006 002 f e t
0066040 c h 006 001 L F M T S P E C 006 002
0066060 o f 006 001 ( C A R ( 006 002 f e t
0066100 c h 006 001 L 1 006 002 o f 006 001 S
0066120 E L ] \r
0066140 ( 006 002 r e p l a c e
0066160 006 001 X 0 006 002 o f 006 001 S E L
0066200 006 002 w i t h 006 001 ( F I X R
0066220 ( F Q U O T I E N T ( 006 002 f e
0066240 t c h 006 001 X 0 006 002 o f 006 001
0066260 S E L ) \r
0066300
*
0066340 3 5 . 2
0066360 7 7 7 8 ] \r
0066400 [ C O N D \r
0066420 ( [ A N D
0066440 ( C A R ( 006 002 f e t c h 006 001
0066460 L N 006 002 o f 006 001 S E L ) )
0066500 \r
0066520 ( 006 002 f e t c h
0066540 006 001 F M T H A R D C O P Y 006
0066560 002 o f 006 001 ( 006 002 f e t c h 006 001
0066600 L F M T S P E C 006 002 o f 006 001
0066620 ( C A R ( 006 002 f e t c h 006 001
0066640 L N 006 002 o f 006 001 S E L ] \r
0066660
0066700 ( 006 002 r e p l a c e 006 001 X
0066720 L I M 006 002 o f 006 001 S E L 006
0066740 002 w i t h 006 001 ( F I X R ( F
0066760 Q U O T I E N T ( 006 002 f e t c
0067000 h 006 001 X L I M 006 002 o f 006 001
0067020 S E L ) \r
0067040
*
0067100 3 5
0067120 . 2 7 7 7 8 ] \r
0067140 ( 006 002 r e p l a c e
0067160 006 001 D X 006 002 o f 006 001 S E L
0067200 006 002 w i t h 006 001 ( I D I F F
0067220 E R E N C E ( 006 002 f e t c h 006
0067240 001 X L I M 006 002 o f 006 001 S E
0067260 L ) \r
0067300
*
0067340 ( 006 002 f e t c h 006 001 X 0 006 002
0067360 o f 006 001 S E L ) ) ) \r
0067400 ( 006 002 \ F I
0067420 X S E L 006 001 S E L T E X T O
0067440 B J W I N D O W T ) \r
0067460 ( R E T U
0067500 R N S E L ) ) \r
0067520 ( ( 006 002 t y p e ? 006
0067540 001 L I N E D E S C R I P T O R
0067560 S E L ) \r
0067600 \r 006 006 ( *
0067620 H e p o i n t e d b e l o w
0067640 t h e b o t t o m o f t
0067660 h e t e x t . \r 006 001
0067700 006 006 S e l e c t t o
0067720 t h e r i g h t o f t h
0067740 e l a s t c h a r a c t e r
0067760 o n t h e s c r e e n . )
0070000 006 001 \r \r
0070020 ( C O N D \r
0070040 ( ( 006 002 f e t
0070060 c h 006 001 L H A S P R O T 006 002
0070100 o f 006 001 S E L )
0070120 006 006 (
0070140 * T h e l a s t l i n e
0070160 i s p r o t e c t e d . \r 006 001
0070200
*
0070260 006 006 D
0070300 o n ' t s e l e c t a n y t
0070320 h i n g . ) 006 001 \r
0070340 ( R E T U
0070360 R N ) ) ) \r
0070400 ( S E T Q P R E V L I
0070420 N E S E L ) \r
0070440 ( S E T Q S E L
0070460 ( 006 002 f e t c h 006 001 S C R A T
0070500 C H S E L 006 002 o f 006 001 T E X
0070520 T O B J ) ) \r
0070540 ( 006 002 r e p l a c e 006
0070560 001 S E T 006 002 o f 006 001 S E L
0070600 006 002 w i t h 006 001 T ) \r
0070620 ( 006 002 r e
0070640 p l a c e 006 001 \ T E X T O B J
0070660 006 002 o f 006 001 S E L 006 002 w i
0070700 t h 006 001 T E X T O B J ) \r
0070720 [ 006 002 r
0070740 e p l a c e 006 001 C H # 006 002 o
0070760 f 006 001 S E L 006 002 w i t h 006 001
0071000 ( I M A X 1 ( A D D 1 (
0071020 I M I N T E X T L E N ( 006 002
0071040 f e t c h 006 001 C H A R L I M
0071060 006 002 o f 006 001 P R E V L I N E ]
0071100 \r (
0071120 006 002 r e p l a c e 006 001 C H L I
0071140 M 006 002 o f 006 001 S E L 006 002 w
0071160 i t h 006 001 ( 006 002 f e t c h 006 001
0071200 C H # 006 002 o f 006 001 S E L )
0071220 ) \r
0071240 ( 006 002 r e p l a c e 006 001 D C H
0071260 006 002 o f 006 001 S E L 006 002 w i
0071300 t h 006 001 0 ) \r
0071320 [ 006 002 r e p l a c e
0071340 006 001 P O I N T 006 002 o f 006 001
0071360 S E L 006 002 w i t h 006 001 ( C O
0071400 N D \r
0071420
0071440 (
0071460 ( I G R E A T E R P ( 006 002 f e
0071500 t c h 006 001 C H # 006 002 o f 006 001
0071520 S E L ) \r
0071540
*
0071600 ( 006 002 f e t
0071620 c h 006 001 T E X T L E N 006 002 o
0071640 f 006 001 T E X T O B J ) ) \r
0071660 \r
0071700 006 006 ( * C a n ' t s e
0071720 l e c t t o t h e r i g h
0071740 t o f a c h a r a c t e r
0071760 p a s t E O F , o n l y
0072000 t o t h e l e f t - - \r 006
0072020 001 006 006 w h i
0072040 c h i s t h e r i g h t
0072060 e d g e o f t h e t e x t
0072100 . ) 006 001 \r \r
0072120
*
0072160 ' L E F T ) \r
0072200
*
0072240 ( T ' R I G H T ]
0072260 \r (
0072300 006 002 \ T E D I T . S E T . S E L
0072320 . L O O K S 006 001 S E L S E L
0072340 O P E R A T I O N ) \r
0072360 ( 006 002 \ F I X
0072400 S E L 006 001 S E L T E X T O B
0072420 J ) \r
0072440 ( R E T U R N S E L ] ) \r \r
0072460 ( 006 004 T E D I T . S C A N . L I
0072500 N E 006 001 \r [ L A M B D A (
0072520 T E X T O B J L I N E T H I
0072540 S L I N E X Y W O R D S E
0072560 L F L G S E L O P E R A T I O
0072600 N W I N D O W E X T E N D I
0072620 N G ) 006 006 006 001 \r
0072640
*
0072720 006 006 ( * ; " E d i
0072740 t e d 2 0 - F e b - 8 7 2 0
0072760 : 2 9 b y j d s " ) 006 001 \r
0073000 \r
0073020 006 006 ( * ; ; " G i v
0073040 e n a l i n e , f i n d
0073060 t h e c h a r a c t e r w h
0073100 i c h s t r a d d l e s t h
0073120 e m o u s e . " ) 006 001 \r \r
0073140 ( P R O G ( ( L N I L )
0073160 \r ( W L I
0073200 S T ( 006 002 f e t c h 006 001 ( T
0073220 H I S L I N E W I D T H S )
0073240 006 002 o f 006 001 T H I S L I N E )
0073260 ) \r ( C H
0073300 L I S T ( 006 002 f e t c h 006 001
0073320 ( T H I S L I N E C H A R S )
0073340 006 002 o f 006 001 T H I S L I N E
0073360 ) ) \r ( L
0073400 L I S T ( 006 002 f e t c h 006 001
0073420 ( T H I S L I N E L O O K S )
0073440 006 002 o f 006 001 T H I S L I N E
0073460 ) ) \r ( L
0073500 O O K N O 1 ) \r
0073520 ( D X 0 ) \r
0073540 O T X Y B O T Y
0073560 B A S E T X ( C H ( C H A
0073600 R C O D E S P A C E ) ) \r
0073620 P R E V C H
0073640 C H O B J B T X B C H B (
0073660 T E X T L E N ( 006 002 f e t c h
0073700 006 001 T E X T L E N 006 002 o f 006
0073720 001 T E X T O B J ) ) \r
0073740 L 1 L N C L O
0073760 O K S P C L O O K S ) \r
0074000 ( C O N D \r
0074020 ( ( N E Q
0074040 ( 006 002 f e t c h 006 001 D E S C
0074060 006 002 o f 006 001 T H I S L I N E )
0074100 \r
0074120 L I N E )
0074140
0074160 006 006
0074200 ( * ; \r 006 001
0074220
0074240 006 006 " I f t h e
0074260 c a c h e d o e s n ' t d e
0074300 s c r i b e t h i s l i n e
0074320 , c a l l \ F O R M A T L I
0074340 N E s o i t w i l l . " )
0074360 006 001 \r
0074400 ( \ F O R M A T L I N E T E
0074420 X T O B J N I L ( 006 002 f e t
0074440 c h 006 001 C H A R 1 006 002 o f 006
0074460 001 L I N E ) \r
0074500 L I N
0074520 E ) ) ) \r [
0074540 C O N D \r
0074560 ( ( 006 002 f e t c h 006 001 F M
0074600 T H A R D C O P Y 006 002 o f 006 001
0074620 ( 006 002 f e t c h 006 001 L F M T
0074640 S P E C 006 002 o f 006 001 L I N E
0074660 ) ) 006 006 ( * ; \r 006 001
0074700
*
0074740 006 006 " T h i
0074760 s i s a h a r d c o p y -
0075000 m o d e l i n e . C o n v
0075020 e r t u n i t s t o m i c
0075040 a s " ) 006 001 \r
0075060 ( S E T Q X ( F I
0075100 X R ( F T I M E S X 3 5 .
0075120 2 7 7 7 8 ] \r
0075140 [ S E T Q O T X ( S E T Q
0075160 T X B ( S E T Q T X ( 006
0075200 002 f e t c h 006 001 L E F T M A R
0075220 G I N 006 002 o f 006 001 L I N E ]
0075240 \r ( S E T Q
0075260 X ( I M A X X T X ) )
0075300
0075320 006 006
0075340 ( * ; \r 006 001
0075360
*
0075420 006 006 " T h e
0075440 m o u s e M U S T b e i
0075460 n s i d e t h e l i n e b
0075500 e i n g s e l e c t e d . " )
0075520 006 001 \r ( S E
0075540 T Q C H B ( S U B 1 ( 006 002
0075560 f e t c h 006 001 C H A R 1 006 002
0075600 o f 006 001 L I N E ) ) ) \r
0075620 ( S E T Q C L O
0075640 O K S ( \ E D I T E L T L L
0075660 I S T 0 ) ) \r
0075700 ( \ T E D I T . C H E C K
0075720 ( I G E Q X ( 006 002 f e t c h
0075740 006 001 L E F T M A R G I N 006 002
0075760 o f 006 001 L I N E ) ) ) 006 006 (
0076000 * ; \r 006 001
0076020
*
0076060 006 006 " T h e
0076100 m o u s e M U S T b e i n
0076120 s i d e t h e l i n e b e
0076140 i n g s e l e c t e d . " ) 006
0076160 001 \r ( 006 002 f
0076200 o r 006 001 I 006 002 f r o m 006 001
0076220 0 006 002 t o 006 001 ( 006 002 f e t c
0076240 h 006 001 L E N 006 002 o f 006 001 T
0076260 H I S L I N E ) 006 002 a s 006 001
0076300 C H N O 006 002 f r o m 006 001 ( S
0076320 U B 1 ( 006 002 f e t c h 006 001 C
0076340 H A R 1 006 002 o f 006 001 L I N E
0076360 ) ) \r
0076400 006 002 d o 006 001 ( S E T Q P R E
0076420 V C H C H ) \r
0076440 ( S E T Q P C
0076460 L O O K S C L O O K S ) \r
0076500 ( S
0076520 E T Q C H ( \ E D I T E L T
0076540 C H L I S T I ) ) \r
0076560 [ C O N
0076600 D \r
0076620 ( ( E Q C H L M I
0076640 n v i s i b l e R u n )
0076660 006
0076700 006 ( * ; " A n i n v i s i
0076720 b l e r u n - - s k i p
0076740 i t " ) 006 001 \r
0076760 ( 006 002 a d
0077000 d 006 001 C H N O ( \ E D I T E
0077020 L T L L I S T L O O K N O )
0077040 ) 006 006 ( * ; "
0077060 T h e l e n g t h o f t h
0077100 e r u n " ) 006 001 \r
0077120 ( 006
0077140 002 a d d 006 001 L O O K N O 1 )
0077160
0077200 006 006 ( *
0077220 ; \r 006 001
0077240
*
0077320 006 006 " M o v e t o n e x
0077340 t C L o o k f o r n e x t
0077360 t r a n s i t i o n " ) 006 001 \r
0077400
0077420 ( 006 002 a d d 006 001 I 1
0077440 )
0077460
0077500 006 006 ( * ; \r 006 001
0077520
*
0077600 006 006 " D o n ' t c o
0077620 u n t t h i s t o w a r d
0077640 t h e C H N O c o u n t e r
0077660 . " ) 006 001 \r
0077700 ( S E T Q
0077720 C H ( \ E D I T E L T C H L
0077740 I S T I ] \r
0077760 ( \ T E D I T . C
0100000 H E C K ( N E Q C H L M I
0100020 n v i s i b l e R u n ) )
0100040 006 006 ( * ; \r 006 001
0100060
*
0100140 006 006 " C a
0100160 n ' t h a v e 2 i n v i s
0100200 i b l e r u n s i n a r
0100220 o w . " ) 006 001 \r
0100240 [ C O N D \r
0100260
0100300 ( ( E Q C H L M L o o k s
0100320 C h a n g e )
0100340 006 006 ( *
0100360 ; \r 006 001
0100400
*
0100460 006 006 " C h a n g e o f C
0100500 h a r L o o k s - - m a k e
0100520 t h e s w i t c h " ) 006 001 \r
0100540
0100560 ( S E T Q C L O O K S
0100600 ( \ E D I T E L T L L I S T
0100620 L O O K N O ) ) 006 006 (
0100640 * ; " N e w l o o k s " )
0100660 006 001 \r
0100700 ( 006 002 a d d 006 001
0100720 L O O K N O 1 )
0100740
0100760 006 006 ( * ; \r 006 001
0101000
*
0101060 006 006 " M o
0101100 v e t o n e x t C L o o k
0101120 f o r n e x t t r a n s i
0101140 t i o n " ) 006 001 \r
0101160 ( 006 002
0101200 a d d 006 001 I 1 )
0101220
0101240 006 006 ( * ;
0101260 \r 006 001
0101300
*
0101340 006 006
0101360 " D o n ' t c o u n t t h i
0101400 s t o w a r d t h e C H N
0101420 O c o u n t e r . " ) 006 001 \r
0101440
0101460 ( S E T Q C H ( \ E D
0101500 I T E L T C H L I S T I ] \r
0101520
0101540 [ C O N D \r
0101560 ( ( A N D (
0101600 I L E S S P X T X ) \r
0101620
0101640 ( O R ( E Q S E
0101660 L O P E R A T I O N ' C O P Y
0101700 ) \r
0101720 (
0101740 006 002 f e t c h 006 001 C L S E L H
0101760 E R E 006 002 o f 006 001 P C L O O
0102000 K S ) \r
0102020
0102040 ( N O T ( 006 002 f e t c h 006 001
0102060 C L P R O T E C T E D 006 002 o
0102100 f 006 001 P C L O O K S ) ) ) \r
0102120
0102140 ( O R ( N O T
0102160 W O R D S E L F L G ) \r
0102200
0102220 ( N O T (
0102240 S M A L L P P R E V C H ) ) \r
0102260
0102300 ( 006 002
0102320 \ T E D I T . W O R D . B O U N
0102340 D 006 001 T E X T O B J P R E V
0102360 C H C H ) ) ) \r
0102400 \r 006 006
0102420 ( * ; ; " I f w e ' r e
0102440 b e y o n d t h e m o u s e
0102460 ' s X , a n d t h e c h
0102500 a r a c t e r i s s e l e c
0102520 t a b l e , a n d w e ' r e
0102540 i n c h a r s e l e c t
0102560 o r t h i s i s a w o r
0102600 d b o u n d a r y t h e n
0102620 S E L E C T ! ! ! " ) 006 001 \r \r
0102640
0102660 ( \ T E D I T . C H E C K
0102700 ( N O T ( Z E R O P I ) )
0102720 ) 006 006 ( *
0102740 ; \r 006 001
0102760
0103000 006 006 " W e
0103020 h a d b e s t n o t h a v
0103040 e f o u l e d o u t t o
0103060 t h e l e f t o f t h e
0103100 l e f t m a r g i n ! " ) 006 001
0103120 \r
0103140 ( S E T Q L ( 006 002
0103160 f e t c h 006 001 S C R A T C H S
0103200 E L 006 002 o f 006 001 T E X T O B
0103220 J ) ) 006 006 ( * ; " G r
0103240 a b t h e s c r a t c h s
0103260 e l " ) 006 001 \r
0103300 ( 006 002 r e
0103320 p l a c e 006 001 S E T 006 002 o f
0103340 006 001 L 006 002 w i t h 006 001 T )
0103360
0103400 006 006 ( * ; " M a r k i t
0103420 v a l i d " ) 006 001 \r
0103440 [ 006
0103460 002 r e p l a c e 006 001 S E L K I
0103500 N D 006 002 o f 006 001 L 006 002 w i
0103520 t h 006 001 ( C O N D \r
0103540
*
0103600 ( W O
0103620 R D S E L F L G ' W O R D ) \r
0103640
*
0103720 ( T ' C H A R ] \r
0103740
0103760 ( 006 002 \ T E D I T . S E L E C T
0104000 . C H A R A C T E R 006 001 T E X
0104020 T O B J L P R E V C H L I
0104040 N E X Y T X B W I N D O
0104060 W S E L O P E R A T I O N \r
0104100
0104120 E X T E N
0104140 D I N G ) \r
0104160 ( 006 002 r e p
0104200 l a c e 006 001 Y 0 006 002 o f 006 001
0104220 L 006 002 w i t h 006 001 ( 006 002 f
0104240 e t c h 006 001 Y B O T 006 002 o f
0104260 006 001 L I N E ) ) \r
0104300 ( 006
0104320 002 r e p l a c e 006 001 X 0 006 002
0104340 o f 006 001 L 006 002 w i t h 006 001
0104360 ( C O N D \r
0104400
*
0104440 ( ( 006 002 f e t c h 006 001 C
0104460 L S E L H E R E 006 002 o f 006 001
0104500 P C L O O K S ) \r
0104520
*
0104600 006 006 ( * ; \r 006 001
0104620
*
0104700 006 006 " I f C
0104720 L S e l H e r e , t h e n s
0104740 e l e c t t o R I G H T a
0104760 l w a y s . " ) 006 001 \r
0105000
*
0105040 T X ) \r
0105060
*
0105120 ( W O R D S
0105140 E L F L G T X B ) \r
0105160
*
0105220 ( T O T X ) )
0105240 ) \r
0105260 ( 006 002 r e p l a c e
0105300 006 001 ( S E L E C T I O N D X
0105320 ) 006 002 o f 006 001 L 006 002 w i t
0105340 h 006 001 ( C O N D \r
0105360
*
0105440 ( ( 006 002 f e t c h 006 001 C
0105460 L S E L H E R E 006 002 o f 006 001
0105500 P C L O O K S ) \r
0105520
*
0105600 0 ) \r
0105620
*
0105660 (
0105700 W O R D S E L F L G ( I D I F
0105720 F E R E N C E T X T X B ) )
0105740 \r
0105760
*
0106020 ( T D X )
0106040 ) ) \r
0106060 [ 006 002 r e p l a c
0106100 e 006 001 C H # 006 002 o f 006 001 L
0106120 006 002 w i t h 006 001 ( I M A X
0106140 1 ( C O N D \r
0106160
*
0106220 ( (
0106240 006 002 f e t c h 006 001 C L S E L H
0106260 E R E 006 002 o f 006 001 P C L O O
0106300 K S ) \r
0106320
*
0106360 ( A D D 1
0106400 C H N O ) ) \r
0106420
*
0106460 ( W
0106500 O R D S E L F L G ( A D D 1
0106520 C H B ) ) \r
0106540
*
0106600 ( T C
0106620 H N O ] \r
0106640 ( 006 002 r e p l
0106660 a c e 006 001 X L I M 006 002 o f 006
0106700 001 L 006 002 w i t h 006 001 ( C O
0106720 N D \r
0106740
*
0107000 ( ( 006 002 f e t c h 006 001 C L
0107020 S E L H E R E 006 002 o f 006 001 P
0107040 C L O O K S ) \r
0107060
*
0107120 T X ) \r
0107140
*
0107200 ( W O R D
0107220 S E L F L G T X ) \r
0107240
*
0107300 ( T T X )
0107320 ) ) \r
0107340 [ 006 002 r e p l a c
0107360 e 006 001 C H L I M 006 002 o f 006 001
0107400 L 006 002 w i t h 006 001 ( A D D
0107420 1 ( C O N D \r
0107440
*
0107500 ( (
0107520 006 002 f e t c h 006 001 C L S E L H
0107540 E R E 006 002 o f 006 001 P C L O O
0107560 K S ) \r
0107600
*
0107640 C H N O )
0107660 \r
0107700
*
0107740 ( W O R D S E L F
0107760 L G C H N O ) \r
0110000
*
0110040 (
0110060 T C H N O ] \r
0110100 ( 006 002 r
0110120 e p l a c e 006 001 Y L I M 006 002
0110140 o f 006 001 L 006 002 w i t h 006 001
0110160 ( 006 002 f e t c h 006 001 Y B O T
0110200 006 002 o f 006 001 L I N E ) ) \r
0110220
0110240 ( 006 002 f o r 006 001 L 1 006 002
0110260 o n 006 001 ( 006 002 f e t c h 006 001
0110300 L 1 006 002 o f 006 001 L ) 006 002 a
0110320 s 006 001 L N 006 002 o n 006 001 ( 006
0110340 002 f e t c h 006 001 L N 006 002 o f
0110360 006 001 L ) 006 002 a s 006 001 W W \r
0110400
0110420 006 002 i n s i d e 006
0110440 001 ( 006 002 f e t c h 006 001 \ W I
0110460 N D O W 006 002 o f 006 001 T E X T
0110500 O B J ) 006 002 w h e n 006 001 ( E
0110520 Q W W W I N D O W ) \r
0110540
0110560 006 002 d o 006 001 ( R P L A
0110600 C A L 1 L I N E ) \r
0110620
0110640 ( R P L A C A L N
0110660 L I N E ) ) \r
0110700 [ 006 002 r
0110720 e p l a c e 006 001 P O I N T 006
0110740 002 o f 006 001 L 006 002 w i t h 006 001
0110760 ( C O N D \r
0111000
*
0111040 ( ( 006 002 f e t c h
0111060 006 001 C L S E L H E R E 006 002 o
0111100 f 006 001 P C L O O K S ) \r
0111120
*
0111200 006 006 ( * ;
0111220 \r 006 001
0111240
0111260 006 006 " A l w a y s t o
0111300 t h e r i g h t o f a n
0111320 o t h e r w i s e - p r o t e c
0111340 t e d i n s e r t i o n p o
0111360 i n t m a r k e r " ) 006 001 \r
0111400
*
0111460 ' R I G H T ) \r
0111500
*
0111540 [ W O R D S E L
0111560 F L G ( C O N D \r
0111600
*
0111660 ( ( A N D (
0111700 N E Q P R E V C H ( C H A R
0111720 C O D E C R ) ) \r
0111740
*
0112020 (
0112040 I G E Q X ( L R S H ( I P
0112060 L U S T X T X B ) \r
0112100
*
0112200 1
0112220 ) ) ) \r
0112240
*
0112320 006 006 ( * ; \r 006 001
0112340
*
0112400 006 006 " T o t h e
0112420 r i g h t i f i t i s n '
0112440 t a C R a n d w e ' r e
0112460 r i g h t o f c e n t e r
0112500 . " ) 006 001 \r
0112520
*
0112600 ' R I G H T ) \r
0112620
*
0112700 ( T
0112720 ' L E F T ] \r
0112740
*
0113000 ( T ( C O N D \r
0113020
*
0113100 ( ( A N D ( I G E
0113120 Q D X 3 ) \r
0113140
*
0113220 ( N E Q P R E V C H
0113240 ( C H A R C O D E C R ) ) \r
0113260
*
0113340 ( I G E Q
0113360 X ( L R S H ( I P L U S
0113400 T X O T X ) \r
0113420
*
0113520 1 ) ) ) \r
0113540 \r 006 006 ( *
0113560 ; ; " I f i t ' s w i d
0113600 e e n o u g h t o s e n s
0113620 i b l y d e c i d e o n a
0113640 n e d g e f o r , t h i s
0113660 i s n ' t a C R , a n d
0113700 w e ' r e r i g h t o f
0113720 c e n t e r , t h e n p u t
0113740 t h e c a r e t t o t h
0113760 e R I G H T " ) 006 001 \r \r
0114000
*
0114060 ' R I G H T ) \r
0114100
*
0114160 ( T ' L E F T ] \r
0114200
0114220 ( 006 002 r e p l a c e 006 001 D C H
0114240 006 002 o f 006 001 L 006 002 w i t h
0114260 006 001 ( C O N D \r
0114300
*
0114340 ( ( 006 002 f e t c h
0114360 006 001 C L S E L H E R E 006 002 o
0114400 f 006 001 P C L O O K S ) \r
0114420
*
0114460 0 ) \r
0114500
*
0114540 ( W O
0114560 R D S E L F L G ( I D I F F E
0114600 R E N C E C H N O C H B ) )
0114620 \r
0114640
0114660 (
0114700 T 1 ) ) ) \r
0114720 ( R E T U
0114740 R N ) ) \r
0114760 ( T \r
0115000 \r
0115020 006 006 ( * ; ; " W e ' r e
0115040 n o t p a s t t h e m o u
0115060 s e y e t ; j u s t t r
0115100 a c k t h e l a s t w o r
0115120 d b o u n d a r y ( o r p
0115140 r o t e c t e d - t e x t b o
0115160 u n d a r y ) f o r w o r d
0115200 s e l e c t i o n . " ) 006 001 \r
0115220 \r
0115240 ( C O N D \r
0115260
0115300 ( ( O R ( A N D
0115320 ( N O T ( 006 002 f e t c h 006 001
0115340 C L P R O T E C T E D 006 002 o f
0115360 006 001 C L O O K S ) ) \r
0115400
0115420 (
0115440 006 002 \ T E D I T . W O R D . B O
0115460 U N D 006 001 T E X T O B J P R
0115500 E V C H C H ) ) \r
0115520
0115540 ( N E Q ( 006 002
0115560 f e t c h 006 001 C L P R O T E C
0115600 T E D 006 002 o f 006 001 P C L O O
0115620 K S ) \r
0115640
0115660 ( 006 002 f e t c h 006
0115700 001 C L P R O T E C T E D 006 002
0115720 o f 006 001 C L O O K S ) ) \r
0115740
0115760 ( 006 002 f
0116000 e t c h 006 001 C L S E L H E R E
0116020 006 002 o f 006 001 P C L O O K S )
0116040 ) \r
0116060 ( S E T
0116100 Q T X B T X ) \r
0116120
0116140 ( S E T Q C H B C H
0116160 N O ) \r
0116200 ( S
0116220 E T Q C H O B J B P R E V C
0116240 H ] \r
0116260 ( S E T Q O T X T X )
0116300 \r
0116320 ( S E T Q D X ( \ W O R D
0116340 E L T W L I S T I ) ) \r
0116360 ( S
0116400 E T Q T X ( I P L U S T X
0116420 D X ) ) ) \r
0116440 [ C O N D \r
0116460 ( ( A N D ( N O T L
0116500 ) \r
0116520 ( I G E Q ( 006 002 f e
0116540 t c h 006 001 L E N 006 002 o f 006 001
0116560 T H I S L I N E ) \r
0116600
0116620 0 ) \r
0116640 ( 006 002 f e t
0116660 c h 006 001 C L P R O T E C T E D
0116700 006 002 o f 006 001 C L O O K S ) )
0116720 \r \r
0116740 006 006 ( * ; ; " H
0116760 e ' s p o i n t i n g t o
0117000 t h e r i g h t o f t h e
0117020 l i n e , b u t t h e r e
0117040 ' s p r o t e c t e d t e x
0117060 t a t t h e e n d . S
0117100 e l e c t a p o i n t a t
0117120 t h e l a s t l e g a l
0117140 s p o t . " ) 006 001 \r \r
0117160 ( C O N D \r
0117200
0117220 ( ( S M A L L P C H O B J B )
0117240
0117260 006 006 ( *
0117300 ; \r 006 001
0117320
*
0117400 006 006 " A n d t h e l a
0117420 s t i t e m w a s n ' t a
0117440 m e n u b u t t o n " ) 006 001
0117460 \r
0117500 ( S E T Q L ( 006 002 f e
0117520 t c h 006 001 S C R A T C H S E L
0117540 006 002 o f 006 001 T E X T O B J )
0117560 ) \r
0117600 ( 006 002 r e p l a c e 006 001
0117620 S E T 006 002 o f 006 001 L 006 002
0117640 w i t h 006 001 T ) \r
0117660 ( 006 002 r
0117700 e p l a c e 006 001 Y 0 006 002 o f
0117720 006 001 L 006 002 w i t h 006 001 ( 006
0117740 002 f e t c h 006 001 Y B O T 006 002
0117760 o f 006 001 L I N E ) ) \r
0120000 ( 006
0120020 002 r e p l a c e 006 001 X 0 006 002
0120040 o f 006 001 L 006 002 w i t h 006 001
0120060 T X B ) \r
0120100 ( 006 002 r e p l a c
0120120 e 006 001 ( S E L E C T I O N D
0120140 X ) 006 002 o f 006 001 L 006 002 w i
0120160 t h 006 001 0 ) \r
0120200 ( 006 002 r e p
0120220 l a c e 006 001 C H # 006 002 o f 006
0120240 001 L 006 002 w i t h 006 001 ( I M
0120260 A X 1 ( A D D 1 C H B ) )
0120300 ) \r
0120320 ( 006 002 r e p l a c e 006 001
0120340 X L I M 006 002 o f 006 001 L 006
0120360 002 w i t h 006 001 T X B ) \r
0120400 (
0120420 006 002 r e p l a c e 006 001 C H L I
0120440 M 006 002 o f 006 001 L 006 002 w i t
0120460 h 006 001 ( I M A X 1 ( A D D
0120500 1 C H B ) ) ) \r
0120520 ( 006 002 r e
0120540 p l a c e 006 001 Y L I M 006 002 o
0120560 f 006 001 L 006 002 w i t h 006 001 (
0120600 006 002 f e t c h 006 001 Y B O T 006
0120620 002 o f 006 001 L I N E ) ) \r
0120640 (
0120660 006 002 f o r 006 001 L 1 006 002 o n 006
0120700 001 ( 006 002 f e t c h 006 001 L 1
0120720 006 002 o f 006 001 L ) 006 002 a s 006 001
0120740 L N 006 002 o n 006 001 ( 006 002 f e
0120760 t c h 006 001 L N 006 002 o f 006 001
0121000 L ) 006 002 a s 006 001 W W \r
0121020
0121040 006 002 i n s i d e 006 001 ( 006 002
0121060 f e t c h 006 001 \ W I N D O W
0121100 006 002 o f 006 001 T E X T O B J )
0121120 006 002 w h e n 006 001 ( E Q W W
0121140 W I N D O W ) \r
0121160 006 002 d
0121200 o 006 001 ( R P L A C A L 1 L
0121220 I N E ) \r
0121240 ( R P
0121260 L A C A L N L I N E ) ) \r
0121300
0121320 ( 006 002 r e p l a c e 006 001 P O
0121340 I N T 006 002 o f 006 001 L 006 002 w
0121360 i t h 006 001 ' L E F T ) \r
0121400 (
0121420 006 002 r e p l a c e 006 001 D C H
0121440 006 002 o f 006 001 L 006 002 w i t h 006
0121460 001 0 ) \r
0121500 ( 006 002 r e p l a c
0121520 e 006 001 S E L O B J 006 002 o f 006
0121540 001 L 006 002 w i t h 006 001 N I L
0121560 ) ) \r
0121600 ( T
0121620
*
0121660 006 006 ( * ; \r 006 001
0121700
0121720 006 006 " O
0121740 o p s - - t h e l a s t i t
0121760 e m W A S a m e n u b u
0122000 t t o n . D o n ' t l e t
0122020 i t b e s e l e c t e d .
0122040 " ) 006 001 \r
0122060 ( R E T U R N
0122100 ' D O N ' T ] \r
0122120 ( C O N D \r
0122140 ( L
0122160
*
0122220 006 006 ( * ; \r 006 001
0122240 006 006 " I f
0122260 w e f o u n d t h e p l a
0122300 c e h e ' s p o i n t i n g
0122320 , s e t u p t h e i n t
0122340 e r - p o i n t e r s s o e
0122360 a c h c a n f i n d t h e
0122400 o t h e r " ) 006 001 \r
0122420 ( 006 002 r e
0122440 p l a c e 006 001 \ T E X T O B J
0122460 006 002 o f 006 001 L 006 002 w i t h
0122500 006 001 T E X T O B J ) ) \r
0122520 ( T
0122540
*
0122600 006 006 ( * ;
0122620 \r 006 001
0122640
0122660 006 006 " W e d i d n ' t f i
0122700 n d w h a t h e w a s p
0122720 o i n t i n g a t . P o i
0122740 n t t o t h e e n d o f
0122760 t h e l i n e . " ) 006 001 \r
0123000 (
0123020 S E T Q L ( 006 002 f e t c h 006
0123040 001 S C R A T C H S E L 006 002 o
0123060 f 006 001 T E X T O B J ) ) \r
0123100 ( 006
0123120 002 r e p l a c e 006 001 S E T 006
0123140 002 o f 006 001 L 006 002 w i t h 006 001
0123160 T ) \r
0123200 [ 006 002 r e p l a c e 006 001
0123220 S E L K I N D 006 002 o f 006 001
0123240 L 006 002 w i t h 006 001 ( C O N D
0123260 \r
0123300
0123320 (
0123340 W O R D S E L F L G ' W O R D
0123360 ) \r
0123400
*
0123440 ( T ' C H A R ] 006
0123460 006 ( * ; \r 006 001
0123500 006 006 " T H I S M U S T P
0123520 R E C E D E T H E \ T E D I
0123540 T . S E L E C T . C H A R A C T
0123560 E R , S O O B J E C T S C
0123600 A N T U R N T H E S E L E
0123620 C T I O N V O L A T I L E . "
0123640 ) 006 001 \r
0123660 ( 006 002 \ T E D I T . S E
0123700 L E C T . C H A R A C T E R 006 001
0123720 T E X T O B J L C H L I
0123740 N E X Y T X B W I N D O
0123760 W S E L O P E R A T I O N E
0124000 X T E N D I N G ) \r
0124020 ( 006 002 r e p
0124040 l a c e 006 001 Y 0 006 002 o f 006 001
0124060 L 006 002 w i t h 006 001 ( 006 002 f
0124100 e t c h 006 001 Y B O T 006 002 o f
0124120 006 001 L I N E ) ) \r
0124140 [ 006 002 r e p
0124160 l a c e 006 001 X 0 006 002 o f 006 001
0124200 L 006 002 w i t h 006 001 ( C O N
0124220 D \r
0124240
0124260 ( W O R D
0124300 S E L F L G T X B ) \r
0124320
*
0124360 ( T ( I D I F F E R
0124400 E N C E T X D X ] \r
0124420 ( 006 002 r
0124440 e p l a c e 006 001 X L I M 006 002
0124460 o f 006 001 L 006 002 w i t h 006 001
0124500 T X ) \r
0124520 ( 006 002 r e p l a c e 006 001
0124540 ( S E L E C T I O N D X )
0124560 006 002 o f 006 001 L 006 002 w i t h 006
0124600 001 ( C O N D \r
0124620
*
0124660 ( W O
0124700 R D S E L F L G ( I D I F F E
0124720 R E N C E T X T X B ) ) \r
0124740
*
0125020 ( T D X ) ) ) \r
0125040 [ 006 002
0125060 r e p l a c e 006 001 C H # 006 002
0125100 o f 006 001 L 006 002 w i t h 006 001
0125120 ( C O N D \r
0125140
*
0125200 ( W O R D S E L F L G ( A D D
0125220 1 C H B ) ) \r
0125240
*
0125300 ( T ( I M I N ( 006 002 f e
0125320 t c h 006 001 C H A R L I M 006 002
0125340 o f 006 001 L I N E ) \r
0125360
*
0125420 T E
0125440 X T L E N ] \r
0125460 ( 006 002 r e p l a c
0125500 e 006 001 Y L I M 006 002 o f 006 001
0125520 L 006 002 w i t h 006 001 ( 006 002 f e
0125540 t c h 006 001 Y B O T 006 002 o f 006
0125560 001 L I N E ) ) \r
0125600 ( 006 002 r e p l
0125620 a c e 006 001 C H L I M 006 002 o f
0125640 006 001 L 006 002 w i t h 006 001 ( A
0125660 D D 1 ( I M I N ( 006 002 f e t
0125700 c h 006 001 C H A R L I M 006 002 o
0125720 f 006 001 L I N E ) \r
0125740
*
0126000 T
0126020 E X T L E N ) ) ) \r
0126040 [ 006 002 r e p
0126060 l a c e 006 001 P O I N T 006 002 o
0126100 f 006 001 L 006 002 w i t h 006 001 (
0126120 C O N D \r
0126140
*
0126200 [ ( N E Q C H ( C H A R C
0126220 O D E C R ) ) \r
0126240
*
0126320 006 006 ( * ; \r 006 001
0126340
0126360 006 006 " Y o u c a n s e
0126400 l e c t o n l y t o t h e
0126420 l e f t o f a C R ;
0126440 e l s e w h e r e , y o u c
0126460 a n s e l e c t t o t h e
0126500 r i g h t " ) 006 001 \r
0126520
*
0126560 ( C O N D \r
0126600
*
0126640 ( [
0126660 I G E Q X ( C O N D \r
0126700
*
0126760 ( W O R D S E
0127000 L F L G \r
0127020
*
0127100 006 006 ( * ; \r 006 001
0127120 006 006 " I f i t '
0127140 s a w o r d , c h e c k
0127160 o u r l o c a t i o n a g a
0127200 i n s t m i d - w o r d t o
0127220 s e e w h i c h s i d e
0127240 t o p u t t h e c a r e t
0127260 o n " ) 006 001 \r
0127300
*
0127360 ( L R S H
0127400 ( I P L U S T X T X B ) \r
0127420
*
0127520 1 ) ) \r
0127540
*
0127620 ( T \r
0127640
*
0127720 006 006 ( * ;
0127740 \r 006 001
0127760
*
0130040 006 006 " O t h e r w i s e , c
0130060 h e c k a g a i n s t m i d
0130100 - c h a r a c t e r " ) 006 001 \r
0130120
*
0130200 ( I
0130220 D I F F E R E N C E T X ( L
0130240 R S H D X 1 ] \r
0130260
*
0130340 006 006 ( * ; \r 006
0130360 001
0130400
0130420 006 006 " I f w e ' r
0130440 e t o t h e r i g h t o
0130460 f m i d - i t e m , p u t
0130500 t h e c a r e t o n t h e
0130520 r i g h t . " ) 006 001 \r
0130540
*
0130600 ' R I
0130620 G H T ) \r
0130640
*
0130700 ( T
0130720 006 006 ( * ; " O t h e r w
0130740 i s e , p u t i t o n t
0130760 h e l e f t . " ) 006 001 \r
0131000
*
0131060 ' L E F T ] \r
0131100
*
0131140 ( T ' L E F T ] \r
0131160 ( 006 002
0131200 f o r 006 001 L 1 006 002 o n 006 001
0131220 ( 006 002 f e t c h 006 001 L 1 006 002
0131240 o f 006 001 L ) 006 002 a s 006 001 L
0131260 N 006 002 o n 006 001 ( 006 002 f e t c
0131300 h 006 001 L N 006 002 o f 006 001 L )
0131320 006 002 a s 006 001 W W \r
0131340 006 002
0131360 i n s i d e 006 001 ( 006 002 f e t c
0131400 h 006 001 \ W I N D O W 006 002 o f
0131420 006 001 T E X T O B J ) 006 002 w h
0131440 e n 006 001 ( E Q W W W I N D
0131460 O W ) \r
0131500 006 002 d o 006 001 ( R
0131520 P L A C A L 1 L I N E ) \r
0131540
0131560 ( R P L A C A L N
0131600 L I N E ) ) \r
0131620 ( 006 002 r e p l a c
0131640 e 006 001 D C H 006 002 o f 006 001 L
0131660 006 002 w i t h 006 001 ( C O N D \r
0131700
*
0131740 ( W O R D S
0131760 E L F L G ( I D I F F E R E N
0132000 C E ( I M I N ( 006 002 f e t c
0132020 h 006 001 C H A R L I M 006 002 o f
0132040 006 001 L I N E ) \r
0132060
*
0132160 T E X T L E N ) \r
0132200
*
0132260 C H B ) ) \r
0132300
*
0132340 ( T 1 ) ) ) \r
0132360
0132400 ( 006 002 r e p l a c e 006 001 \ T E
0132420 X T O B J 006 002 o f 006 001 L 006
0132440 002 w i t h 006 001 T E X T O B J )
0132460 ) ) \r ( R E
0132500 T U R N L ] ) \r \r ( 006 004 T E D
0132520 I T . S E L E C T . L I N E . S
0132540 C A N N E R 006 001 \r [ L A M B
0132560 D A ( X Y T E X T O B J
0132600 L I N E . L I S T R E G I O N
0132620 W O R D S E L F L G S E L O
0132640 P E R A T I O N W I N D O W
0132660 E X T E N D I N G ) 006 006 006 001 \r
0132700
*
0132760 006 006 ( *
0133000 ; " E d i t e d 7 - J a
0133020 n - 8 7 0 0 : 5 4 b y j d
0133040 s " ) 006 001 \r
0133060
*
0133140 006 006 ( * ; \r 006 001
0133160
*
0133240 006 006 " F i n d t h e
0133260 t e x t l i n e t h e m o
0133300 u s e i s p o i n t i n g
0133320 a t . " ) 006 001 \r
0133340
*
0133420 006 006 ( * ; \r 006 001
0133440
0133460 006 006 " L I N E . L I S
0133500 T i s t h e d u m m y f
0133520 i r s t l i n e f o r t h
0133540 e w i n d o w i n w h i c
0133560 h s e l e c t i o n h a p p
0133600 e n e d . " ) 006 001 \r ( P
0133620 R O G ( ( L N I L ) \r
0133640 ( W W I D T H
0133660 ( 006 002 f e t c h 006 001 W R I G H
0133700 T 006 002 o f 006 001 T E X T O B J
0133720 ) ) \r ( T
0133740 H I S L I N E ( 006 002 f e t c h
0133760 006 001 T H I S L I N E 006 002 o f
0134000 006 001 T E X T O B J ) ) \r
0134020 ( T E X T L E N
0134040 ( 006 002 f e t c h 006 001 T E X T
0134060 L E N 006 002 o f 006 001 T E X T O
0134100 B J ) ) \r
0134120 ( W R E G ( D S P C L I P P I
0134140 N G R E G I O N N I L W I N
0134160 D O W ) ) \r
0134200 P R E V L I N E P A R A B O
0134220 U N D S P A R A S T A R T P
0134240 A R A E N D L 1 L N ) \r
0134260 ( 006 002 b i n d 006
0134300 001 ( L I N E _ ( 006 002 f e t
0134320 c h 006 001 N E X T L I N E 006 002
0134340 o f 006 001 L I N E . L I S T ) )
0134360 \r 006 002
0134400 w h i l e 006 001 ( A N D L I N
0134420 E ( I G E Q ( 006 002 f e t c h
0134440 006 001 Y B O T 006 002 o f 006 001 L
0134460 I N E ) \r
0134500
0134520 ( 006 002 f e t c h
0134540 006 001 B O T T O M 006 002 o f 006 001
0134560 W R E G ) ) ) \r
0134600 006 002 d o 006 001 \r
0134620 \r
0134640 006 006 ( * ; ; " S e a r c
0134660 h t h r u t h e l i s t
0134700 o f ( r e a l ) d i s p l a
0134720 y e d l i n e s , l o o k i
0134740 n g f o r t h e f i r s t
0134760 o n e w h o s e b o t t o
0135000 m i s b e l o w t h e m
0135020 o u s e . T h a t ' s t h
0135040 e l i n e w e ' r e p o i
0135060 n t i n g a t . " ) 006 001 \r \r
0135100 ( C O N
0135120 D \r
0135140 ( ( I L E Q ( 006 002 f e t c
0135160 h 006 001 Y B O T 006 002 o f 006 001
0135200 L I N E ) \r
0135220 Y )
0135240
*
0135300 006 006 ( * ; " F o u n d
0135320 i t . " ) 006 001 \r
0135340 ( S E L E C
0135360 T Q R E G I O N \r
0135400 (
0135420 ( T E X T W I N D O W )
0135440
0135460 006 006 ( * ; \r 006
0135500 001
0135520 006 006 " W e '
0135540 r e i n t h e r e g u l a
0135560 r t e x t a r e a , s o
0135600 s c a n a c c r o s s l o o
0135620 k i n g f o r t h e c h a
0135640 r a c t e r . " ) 006 001 \r
0135660
0135700 ( S E T Q L ( 006
0135720 002 T E D I T . S C A N . L I N E
0135740 006 001 T E X T O B J L I N E
0135760 T H I S L I N E X Y W O R
0136000 D S E L F L G S E L O P E R A
0136020 T I O N \r
0136040
0136060 W
0136100 I N D O W E X T E N D I N G )
0136120 ) ) \r
0136140 ( L I N E
0136160
*
0136220 006 006 ( * ; \r 006 001
0136240
*
0136300 006 006
0136320 " H e i s s e l e c t i n g
0136340 a n e n t i r e l i n e ,
0136360 o r a p a r a g r a p h .
0136400 " ) 006 001 \r
0136420
0136440 ( S E T Q L ( 006 002 f e t c h
0136460 006 001 S C R A T C H S E L 006 002
0136500 o f 006 001 T E X T O B J ) ) \r
0136520
0136540 ( 006 002 f o r
0136560 006 001 T L 1 006 002 o n 006 001 ( 006
0136600 002 f e t c h 006 001 L 1 006 002 o f
0136620 006 001 L ) 006 002 a s 006 001 T L N
0136640 006 002 o n 006 001 ( 006 002 f e t c h
0136660 006 001 L N 006 002 o f 006 001 L )
0136700 006 002 a s 006 001 W W \r
0136720
0136740 006 002 i n s i d e
0136760 006 001 ( 006 002 f e t c h 006 001 \ W
0137000 I N D O W 006 002 o f 006 001 T E X
0137020 T O B J ) 006 002 w h e n 006 001 (
0137040 E Q W W W I N D O W ) \r
0137060
0137100 006 002 d o
0137120 006 001 ( S E T Q L 1 T L 1 )
0137140 \r
0137160
0137200 ( S E T Q L N T L N ) \r
0137220
*
0137260 ( R E T U R N ) ) \r
0137300
0137320 ( C O N D \r
0137340
0137360 ( ( A N D
0137400 ( 006 002 f e t c h 006 001 L H A S P
0137420 R O T 006 002 o f 006 001 L I N E )
0137440 \r
0137460
0137500 ( N E Q S E L O P E
0137520 R A T I O N ' C O P Y ) ) 006 006
0137540 ( * ; \r 006 001
0137560
0137600 006
0137620 006 " I n a T E D I T m e n
0137640 u , y o u c a n ' t s e l
0137660 e c t a w h o l e p a r a
0137700 g r a p h o r l i n e . " )
0137720 006 001 \r
0137740
0137760 ( 006 002 r e p l a c e 006 001 S
0140000 E T 006 002 o f 006 001 L 006 002 w i
0140020 t h 006 001 N I L ) \r
0140040
0140060 ( R E T U R N
0140100 L ) ) )
0140120 006 006 ( * ; " T
0140140 h e s c r a t c h s e l e c
0140160 t i o n " ) 006 001 \r
0140200
0140220 ( 006 002 r e p l a c e 006 001
0140240 \ T E X T O B J 006 002 o f 006 001
0140260 L 006 002 w i t h 006 001 T E X T
0140300 O B J ) \r
0140320
*
0140400 006 006 ( * ; \r 006 001
0140420
*
0140460 006 006 " M a
0140500 k e s u r e h e k n o w s
0140520 w h a t d o c u m e n t t
0140540 h e s e l e c t i o n ' s i
0140560 n . " ) 006 001 \r
0140600
0140620 ( 006 002 r e p l a c e 006 001 S
0140640 E T 006 002 o f 006 001 L 006 002 w i
0140660 t h 006 001 T )
0140700 006 006 ( * ; " M a r k i t
0140720 v a l i d . " ) 006 001 \r
0140740
0140760 ( 006 002 r e p l a c e
0141000 006 001 S E L O B J 006 002 o f 006 001
0141020 L 006 002 w i t h 006 001 N I L )
0141040 006 006 ( * ; " N o t
0141060 s e l e c t i n g a n o b j
0141100 e c t j u s t y e t " ) 006 001
0141120 \r
0141140 ( C O N
0141160 D \r
0141200
0141220 [ W O R D S E L F L G
0141240 006
0141260 006 ( * ; " S e l e c t a
0141300 p a r a g r a p h . " ) 006 001 \r
0141320
0141340 ( 006
0141360 002 r e p l a c e 006 001 S E L K I
0141400 N D 006 002 o f 006 001 L 006 002 w i
0141420 t h 006 001 ' P A R A ) \r
0141440
*
0141520