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