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