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