$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TEDITCOMMAND!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 " 3
0000120 1 - M a r - 8 7 1 0 : 5 8 : 3
0000140 3 " 006 004 { E R I S } < T E D I
0000160 T > T E D I T C O M M A N D . ;
0000200 2 4 006 001 4 6 6 1 4 \r \r
0000220 c h a n g e s t o % :
0000240 ( F N S T E D I T . S E T
0000260 F U N C T I O N T E D I T . G
0000300 E T S Y N T A X T E D I T . S
0000320 E T S Y N T A X ) \r \r
0000340 p r e v i o u s d a t e % :
0000360 " 2 6 - F e b - 8 7 1 2 : 3
0000400 8 : 1 5 " { E R I S } < T E D
0000420 I T > T E D I T C O M M A N D .
0000440 ; 2 2 ) \r \r \r ( * " \r C o p y
0000460 r i g h t ( c ) 1 9 8 3 ,
0000500 1 9 8 4 , 1 9 8 5 , 1 9 8 6
0000520 , 1 9 8 7 b y J o h n S
0000540 y b a l s k y & X e r o x
0000560 C o r p o r a t i o n . A l
0000600 l r i g h t s r e s e r v e
0000620 d . \r " ) \r \r ( P R E T T Y C O
0000640 M P R I N T T E D I T C O M M
0000660 A N D C O M S ) \r \r ( R P A Q Q
0000700 006 002 T E D I T C O M M A N D C
0000720 O M S 006 001 ( ( F I L E S T E
0000740 D I T D E C L S ) \r
0000760
0001000 ( D E C L A R E % : E V
0001020 A L @ C O M P I L E D O N T C
0001040 O P Y ( C O N S T A N T S (
0001060 \ S C R A T C H L E N 6 4 ) )
0001100 \r
0001120
0001140 ( F I L E S ( L O A D C O M
0001160 P ) \r
0001200
0001220 T E D I T D
0001240 E C L S ) ) \r
0001260
0001300 ( F N S \ T E D I T . I N S E
0001320 R T . T T Y . B U F F E R \ T
0001340 E D I T . I N T E R R U P T . S
0001360 E T U P \ T E D I T . M A R K
0001400 A C T I V E \r
0001420
0001440 \ T E D I T . M A R
0001460 K I N A C T I V E \ P N C \
0001500 T E D I T . C O M M A N D . L O
0001520 O P \ T E D I T . C O M M A N
0001540 D . R E S E T . S E T U P \r
0001560
0001600 ) \r
0001620
0001640 [ I N I T V A R S
0001660 ( T E D I T . I N T E R R U P
0001700 T S ' ( ( 2 B R E A K ) \r
0001720
*
0002000 ( 5 E R R O R ) \r
0002020
*
0002100 ( 7 H E L P ) \r
0002120
*
0002200 ( 2 0 C O N T R
0002220 O L - T ] \r
0002240 (
0002260 V A R S ( T E D I T . C O P Y
0002300 . P E N D I N G N I L ) \r
0002320
0002340 ( T E
0002360 D I T . C O P Y L O O K S . P E
0002400 N D I N G N I L ) \r
0002420
0002440 ( T E D I T
0002460 . M O V E . P E N D I N G N I
0002500 L ) \r
0002520
0002540 ( T E D I T . D E L . P E N
0002560 D I N G N I L ) \r
0002600
0002620 ( T E D I T .
0002640 B L U E P E N D I N G D E L E T
0002660 E N I L ) ) \r
0002700
0002720 ( G L O B A L V A R S T E D
0002740 I T . C O P Y . P E N D I N G
0002760 T E D I T . C O P Y L O O K S .
0003000 P E N D I N G T E D I T . M O
0003020 V E . P E N D I N G \r
0003040
0003060 T E D I
0003100 T . D E L . P E N D I N G T E
0003120 D I T . B L U E P E N D I N G D
0003140 E L E T E T E D I T . I N T E
0003160 R R U P T S ) \r
0003200
0003220 ( C O M S ( * R e a d - t
0003240 a b l e U t i l i t i e s ) \r
0003260
0003300 (
0003320 F N S \ T E D I T . R E A D T
0003340 A B L E \ T E D I T . W O R D
0003360 B O U N D . R E A D T A B L E
0003400 T E D I T . G E T S Y N T A X
0003420 \r
0003440
0003460 T E D I T . S E T S Y
0003500 N T A X T E D I T . G E T F U
0003520 N C T I O N T E D I T . S E T
0003540 F U N C T I O N T E D I T . W
0003560 O R D G E T \r
0003600
0003620 T E D I
0003640 T . W O R D S E T ) \r
0003660
0003700 [ D E C L A
0003720 R E % : D O N T E V A L @ L O
0003740 A D D O C O P Y ( V A R S
0003760 ( T E D I T . R E A D T A B L E
0004000 ( \r
0004020
*
0004120 \ T E D I T . R
0004140 E A D T A B L E \r
0004160
*
0004300 ) ) \r
0004320
*
0004400 ( T E D I T . W
0004420 O R D B O U N D . R E A D T A B
0004440 L E \r
0004460
*
0004540 ( \ T E D I T
0004560 . W O R D B O U N D . R E A D T
0004600 A B L E ] \r
0004620
0004640 ( G L O B A L V A R S
0004660 T E D I T . R E A D T A B L E
0004700 T E D I T . W O R D B O U N D
0004720 . R E A D T A B L E ) ) ) ) \r (
0004740 F I L E S L O A D T E D I T D
0004760 E C L S ) \r ( D E C L A R E % :
0005000 E V A L @ C O M P I L E D O
0005020 N T C O P Y \r ( D E C L A R E
0005040 % : E V A L @ C O M P I L E
0005060 \r \r ( R P A Q Q 006 002 \ S C R A
0005100 T C H L E N 006 001 6 4 ) \r \r ( C
0005120 O N S T A N T S ( \ S C R A T
0005140 C H L E N 6 4 ) ) \r ) \r \r ( F
0005160 I L E S L O A D ( L O A D C O
0005200 M P ) \r T E D I T
0005220 D E C L S ) \r ) \r ( D E F I N E
0005240 Q \r \r ( 006 004 \ T E D I T . I N S
0005260 E R T . T T Y . B U F F E R 006 001
0005300 \r ( L A M B D A ( S C R A
0005320 T C H P A S S T E X T O B J
0005340 S E L ) 006 006 006 001
0005360
0005400 006 006 ( * j d s " 9 - F
0005420 e b - 8 6 1 5 : 2 3 " ) 006 001 \r
0005440 \r
0005460 006 006 ( * * O B S O
0005500 L E T E | 2 / 9 / 8 6 | ? ?
0005520 J D S ) 006 001 \r \r ( H E
0005540 L P )
0005560
*
0005620 006 006 ( * ( P R O G
0005640 ( ( T L E N ( f e t c h \r 006
0005660 001
0005700
*
0005740 006 006
0005760 ( S T R I N G P O F F S T )
0006000 o f S C R A T C H ) ) ) \r 006 001
0006020
*
0006100 006 006 (
0006120 C O N D ( ( N O T ( Z E R O
0006140 P T L E N ) ) \r 006 001
0006160
*
0006240 006 006 ( * I f
0006260 t h e r e a r e t y p e d -
0006300 a h e a d c h a r a c t e r s
0006320 \r 006 001
0006340
*
0006420 006 006 c a c h e d , i n s e r
0006440 t t h e m i n t h e t e
0006460 x t o b j e c t \r 006 001
0006500
*
0006560 006 006 a n d
0006600 c l e a r t h e c a c h e .
0006620 ) \r 006 001
0006640
*
0006720 006 006 ( r e p l a c e ( S T R
0006740 I N G P O F F S T ) o f S
0006760 C R A T C H \r 006 001
0007000
*
0007060 006 006 w i t h 0 )
0007100 ( r e p l a c e ( S T R I N
0007120 G P L E N G T H ) o f \r 006
0007140 001
0007160
*
0007220 006 006
0007240 S C R A T C H w i t h \ S C
0007260 R A T C H L E N ) \r 006 001
0007300
*
0007360 006 006 ( r e p l
0007400 a c e ( S T R I N G P L E N
0007420 G T H ) o f P A S S w i t
0007440 h \r 006 001
0007460
*
0007540 006 006 T L E N ) ( T E D I T
0007560 . \ I N S E R T P A S S S E
0007600 L T E X T O B J \r 006 001
0007620
*
0007700 006 006 B L A N
0007720 K S E E N C R S E E N ) ) ) )
0007740 ) 006 001 \r ) ) \r \r ( 006 004 \
0007760 T E D I T . I N T E R R U P T .
0010000 S E T U P 006 001 \r ( L A M B D
0010020 A ( P R O C F O R C E O F F
0010040 ) 006 006 006 001
0010060
0010100 006 006 ( * j d
0010120 s " 1 2 - S e p - 8 4 1 5 :
0010140 3 6 " ) 006 001 \r
0010160 \r 006 006 ( *
0010200 D i s a r m a n y i n c o
0010220 n v e n i e n t i n t e r r u
0010240 p t s , a n d s a v e r e
0010260 - a r m i n g i n f o o n
0010300 t h e w i n d o w . ) 006 001 \r \r
0010320 ( P R O G ( ( T E X T
0010340 O B J ( A N D ( P R O C E S
0010360 S P R O P P R O C ' W I N D
0010400 O W ) \r
0010420 ( W I
0010440 N D O W P R O P ( P R O C E S
0010460 S P R O P P R O C ' W I N D
0010500 O W ) \r
0010520
0010540 ' T E X T O B J ) \r
0010560
0010600 ( T E X T O B J
0010620 ( P R O C E S S P R O P P R O
0010640 C ' W I N D O W ) ) ) ) ) \r
0010660 ( U N I N T E
0010700 R R U P T A B L Y \r
0010720 ( C O N D \r
0010740 (
0010760 ( A N D F O R C E O F F ( P
0011000 R O C E S S P R O P P R O C
0011020 ' T E D I T . I N T E R R U P T
0011040 S ) ) \r
0011060
*
0011140 006 006 ( * T h e r e a r e
0011160 d i s a r m e d i n t e r r u
0011200 p t s ; \r 006 001
0011220
*
0011300 006 006 r e - a r m t h e
0011320 m . ) 006 001 \r
0011340 ( R E S E T . I
0011360 N T E R R U P T S ( P R O C E
0011400 S S P R O P P R O C ' T E D
0011420 I T . I N T E R R U P T S ) ) \r
0011440
0011460 ( P R O C E S S P R O P P
0011500 R O C ' T E D I T . I N T E R
0011520 R U P T S N I L ) ) \r
0011540 ( ( A
0011560 N D ( N O T F O R C E O F F
0011600 ) \r
0011620 ( N O T ( P
0011640 R O C E S S P R O P P R O C
0011660 ' T E D I T . I N T E R R U P T
0011700 S ) ) ) \r
0011720
*
0012000 006 006 ( * T h e r e a r e
0012020 n ' t a n y i n t e r r u p
0012040 t s \r 006 001
0012060
*
0012140 006 006 d i s a r m e d ; g
0012160 o d o i t . ) 006 001 \r
0012200 ( P
0012220 R O C E S S P R O P P R O C
0012240 ' T E D I T . I N T E R R U P T
0012260 S ( R E S E T . I N T E R R U
0012300 P T S \r
0012320
*
0012360 ( O R (
0012400 A N D T E X T O B J ( T E X
0012420 T P R O P T E X T O B J \r
0012440
*
0012540 ' I N
0012560 T E R R U P T S ) ) \r
0012600
*
0012660 T E D I T . I N T E
0012700 R R U P T S ) \r
0012720
*
0012760 T
0013000 ) ) ) ) ) ) \r P R O C )
0013020 ) \r \r ( 006 004 \ T E D I T . M A R
0013040 K A C T I V E 006 001 \r ( L A M
0013060 B D A ( T E X T O B J ) 006 006 006
0013100 001
0013120
0013140 006 006 ( *
0013160 j d s " 1 7 - N O V - 8 3 1
0013200 4 : 3 1 " ) 006 001 \r ( 006 002
0013220 r e p l a c e 006 001 E D I T O P
0013240 A C T I V E 006 002 o f 006 001 T E
0013260 X T O B J 006 002 w i t h 006 001 T
0013300 ) \r T E X T O B J ) ) \r
0013320 \r ( 006 004 \ T E D I T . M A R K I
0013340 N A C T I V E 006 001 \r ( L A M
0013360 B D A ( T E X T O B J ) 006 006 006
0013400 001
0013420
0013440 006 006 ( *
0013460 j d s " 1 7 - N O V - 8 3 1
0013500 4 : 3 2 " ) 006 001 \r ( 006 002
0013520 r e p l a c e 006 001 E D I T O P
0013540 A C T I V E 006 002 o f 006 001 T E
0013560 X T O B J 006 002 w i t h 006 001 N
0013600 I L ) \r T E X T O B J )
0013620 ) \r \r ( 006 004 \ P N C 006 001 \r (
0013640 L A M B D A ( C H S T R ) 006
0013660 006 006 001
0013700
0013720 006 006
0013740 ( * j d s " 7 - J U N - 8
0013760 2 1 4 : 0 3 " ) 006 001 \r
0014000 ( P R O G ( ( L E N ( 006 002 f
0014020 e t c h 006 001 ( S T R I N G P
0014040 L E N G T H ) 006 002 o f 006 001 S
0014060 T R ) ) \r
0014100 ( O F F S T ( 006 002 f e t c h 006
0014120 001 ( S T R I N G P O F F S T
0014140 ) 006 002 o f 006 001 S T R ) ) ) \r
0014160 ( C O N D \r
0014200 ( ( Z
0014220 E R O P L E N ) \r
0014240 ( E R R O R "
0014260 N O R O O M L E F T I N
0014300 S T R I N G T O P U T C H
0014320 A R A C T E R " ) ) \r
0014340 ( T ( U N I N
0014360 T E R R U P T A B L Y \r
0014400
0014420 ( \ P U T B A S E B Y T E ( 006
0014440 002 f e t c h 006 001 ( S T R I N G
0014460 P B A S E ) 006 002 o f 006 001 S
0014500 T R ) \r
0014520 O
0014540 F F S T C H ) \r
0014560 ( 006 002
0014600 r e p l a c e 006 001 ( S T R I N
0014620 G P O F F S T ) 006 002 o f 006 001
0014640 S T R 006 002 w i t h 006 001 ( A
0014660 D D 1 O F F S T ) ) \r
0014700
0014720 ( 006 002 r e p l a c e 006 001 ( S T
0014740 R I N G P L E N G T H ) 006 002
0014760 o f 006 001 S T R 006 002 w i t h 006
0015000 001 ( S U B 1 L E N ) ) ) ) )
0015020 ) ) ) \r \r ( 006 004 \ T E D I T . C
0015040 O M M A N D . L O O P 006 001 \r
0015060 [ L A M B D A ( S T R E A M
0015100 R T B L ) 006 006 006 001
0015120
0015140 006
0015160 006 ( * ; " E d i t e d 2 6
0015200 - F e b - 8 7 1 2 : 3 3 b y
0015220 j d s " ) 006 001 \r
0015240
*
0015320 006 006 ( * ; \r 006 001
0015340 006 006 " M
0015360 a i n c o m m a n d l o o p
0015400 f o r t h e T E D I T e
0015420 d i t o r . I n c l u d e s
0015440 k e y b o a r d p o l l i n
0015460 g a n d c o m m a n d d i
0015500 s p a t c h " ) 006 001 \r (
0015520 P R O G ( ( T E X T O B J (
0015540 C O N D \r
0015560 ( ( 006 002
0015600 t y p e ? 006 001 S T R E A M S
0015620 T R E A M ) \r
0015640 (
0015660 006 002 f e t c h 006 001 ( T E X T S
0015700 T R E A M T E X T O B J ) 006
0015720 002 o f 006 001 S T R E A M ) ) \r
0015740
0015760 ( T S T R E A M )
0016000 ) ) \r ( I
0016020 S C R S T R I N G ( A L L O C
0016040 S T R I N G \ S C R A T C H L
0016060 E N " " ) ) \r
0016100 S E L W I N D O W L
0016120 I N E S I P A S S S T R I N G
0016140 T T Y W I N D O W ) \r
0016160 ( S E T Q S E L
0016200 ( 006 002 f e t c h 006 001 S E L 006
0016220 002 o f 006 001 T E X T O B J ) ) \r
0016240 ( S E T Q
0016260 W I N D O W ( 006 002 f e t c h 006
0016300 001 \ W I N D O W 006 002 o f 006 001
0016320 T E X T O B J ) ) \r
0016340 ( S E T Q L I N E S
0016360 ( 006 002 f e t c h 006 001 L I N E
0016400 S 006 002 o f 006 001 T E X T O B J
0016420 ) ) \r ( S E
0016440 T Q I P A S S S T R I N G (
0016460 S U B S T R I N G I S C R S T
0016500 R I N G 1 ) )
0016520 006 006 ( * ; " U s e d i n s
0016540 i d e \ I N S E R T \ T T Y \
0016560 B U F F E R " ) 006 001 \r
0016600 ( S E T Q R T B L
0016620 ( O R R T B L ( 006 002 f e t c
0016640 h 006 001 T X T R T B L 006 002 o f
0016660 006 001 T E X T O B J ) \r
0016700
0016720 T E D I T . R E A D T
0016740 A B L E ) )
0016760 006 006 ( * ;
0017000 \r 006 001
0017020
*
0017060 006 006 " U s e d
0017100 t o d e r i v e c o m m a n
0017120 d c h a r a c t e r s f r o
0017140 m t y p e - i n " ) 006 001 \r
0017160 ( 006 002 f o r 006 001
0017200 W W 006 002 i n s i d e 006 001 W
0017220 I N D O W 006 002 d o 006 001 ( W I
0017240 N D O W P R O P W W ' P R O
0017260 C E S S ( T H I S . P R O C E
0017300 S S ) ) ) \r
0017320
*
0017400 006 006 ( * ; " A n d t
0017420 h e w i n d o w t o t h i
0017440 s p r o c e s s " ) 006 001 \r
0017460 ( 006 002 w h i l e
0017500 006 001 ( N O T ( T T Y . P R O
0017520 C E S S P ) ) 006 002 d o 006 001
0017540
0017560 006 006 ( * ; \r 006 001
0017600
*
0017640 006 006 " W
0017660 a i t u n t i l w e r e a
0017700 l l y h a v e t h e T T Y
0017720 b e f o r e p r o c e e d i
0017740 n g . " ) 006 001 \r
0017760
*
0020020 ( D I S M I S S 2 5 0 ) ) \r
0020040 ( R E S E T
0020060 L S T \r (
0020100 R E S E T S A V E ( 006 002 \ T E
0020120 D I T . C O M M A N D . R E S E
0020140 T . S E T U P 006 001 ( L I S T
0020160 T E X T O B J W I N D O W ) \r
0020200
0020220 T ) )
0020240 \r ( P R O
0020260 G ( C H F N T C H ( D I
0020300 R T Y N I L ) \r
0020320 ( B
0020340 L A N K S E E N N I L ) \r
0020360
0020400 I N S C H # \r
0020420 (
0020440 C R S E E N N I L ) \r
0020460
0020500 T L E N C H N O ( R E A D
0020520 S A ( 006 002 f e t c h 006 001 R E
0020540 A D S A 006 002 o f 006 001 % # C U
0020560 R R E N T R D T B L # ) ) \r
0020600
0020620 ( T E R M S A ( O R (
0020640 006 002 f e t c h 006 001 T X T T E R
0020660 M S A 006 002 o f 006 001 T E X T O
0020700 B J ) \r
0020720
0020740 \ P R I M T E R M S A
0020760 ) ) \r
0021000 ( T E D I T S A
0021020 ( 006 002 f e t c h 006 001 R E A D
0021040 S A 006 002 o f 006 001 R T B L ) )
0021060 \r
0021100 ( T E D I T F N H A
0021120 S H ( 006 002 f e t c h 006 001 R E
0021140 A D M A C R O D E F S 006 002 o f
0021160 006 001 R T B L ) ) \r
0021200 (
0021220 L O O P F N ( T E X T P R O P
0021240 T E X T O B J ' L O O P F N
0021260 ) ) \r
0021300 ( C H A R F N
0021320 ( T E X T P R O P T E X T O B
0021340 J ' C H A R F N ) ) \r
0021360
0021400 C O M M A N D F N ) \r
0021420 ( 006 002
0021440 w h i l e 006 001 ( N O T ( 006 002
0021460 f e t c h 006 001 E D I T F I N I
0021500 S H E D F L G 006 002 o f 006 001 T
0021520 E X T O B J ) ) \r
0021540 006 002 d
0021560 o 006 001 \r
0021600 [ E R S E T Q \r
0021620
0021640 ( 006 002 w h i l e 006 001
0021660 ( N O T ( 006 002 f e t c h 006 001
0021700 E D I T F I N I S H E D F L G
0021720 006 002 o f 006 001 T E X T O B J ) )
0021740 \r
0021760 006 002 d o 006 001
0022000 ( P R O G N ( \ W A I T F O R
0022020 S Y S B U F P 2 5 )
0022040 006 006 ( * ; " A w a i t
0022060 t y p e - i n o r m o u s e
0022100 a c t i o n " ) 006 001 \r
0022120
0022140 ( 006
0022160 002 w h i l e 006 001 ( O R T E D
0022200 I T . S E L P E N D I N G ( 006
0022220 002 f e t c h 006 001 E D I T O P A
0022240 C T I V E 006 002 o f 006 001 T E X
0022260 T O B J ) ) \r
0022300
0022320 006 002 d o
0022340 006 001
0022360 006 006 ( * ; \r
0022400 006 001
0022420 006 006 " D o n '
0022440 t d o a n y t h i n g w h
0022460 i l e h e ' s s e l e c t i
0022500 n g o r o n e o f t h e
0022520 l o c k - o u t o p s i s
0022540 a c t i v e . " ) 006 001 \r
0022560
*
0022620 [ C O N D \r
0022640
*
0022700 ( ( E Q T E D I T
0022720 . S E L P E N D I N G T E X T
0022740 O B J ) \r
0022760
*
0023040 006 006 ( * ; \r 006 001
0023060
0023100 006 006 " ( O R ( E Q T
0023120 E D I T . S E L P E N D I N G
0023140 T E X T O B J ) ( f e t c h
0023160 T C U P o f ( f e t c h C
0023200 A R E T o f T E X T O B J )
0023220 ) ) " ) 006 001 \r
0023240
*
0023320 006 006 ( * ; \r 006 001
0023340 006 006 " I f t
0023360 h i s T E d i t i s t h e
0023400 o n e b e i n g s e l e c
0023420 t e d i n , o r t h e c
0023440 a r e t i s e x p l i c i t
0023460 l y v i s i b l e , f l a s
0023500 h i t " ) 006 001 \r
0023520
*
0023560 ( T E D I T . F L A S
0023600 H C A R E T ( 006 002 f e t c h 006
0023620 001 C A R E T 006 002 o f 006 001 T
0023640 E X T O B J ] \r
0023660
*
0023720 ( B L O C K ) ) \r
0023740
0023760 [ C O N D
0024000 \r
0024020
0024040 ( ( 006 002 f e t c h 006
0024060 001 ( T E X T O B J E D I T F
0024100 I N I S H E D F L G ) 006 002 o f
0024120 006 001 T E X T O B J ) ) \r
0024140
*
0024200 ( T ( C O N D \r
0024220
*
0024260 ( ( 006 002 f e t c h 006
0024300 001 T X T N E E D S U P D A T E
0024320 006 002 o f 006 001 T E X T O B J )
0024340 \r
0024360
*
0024420 006 006
0024440 ( * ; \r 006 001
0024460 006 006 "
0024500 W e g o t h e r e s o m e
0024520 h o w w i t h t h e w i n
0024540 d o w n o t i n s y n c
0024560 w i t h t h e t e x t .
0024600 R u n a n u p d a t e . " )
0024620 006 001 \r
0024640
0024660 (
0024700 \ S H O W S E L S E L N I L
0024720 N I L ) \r
0024740
*
0025000 ( T E D I T . U P D A T E .
0025020 S C R E E N T E X T O B J N
0025040 I L T ) \r
0025060
*
0025120 ( \ F I X S E L S E L T
0025140 E X T O B J ) \r
0025160
*
0025220 ( \ S H O W S E L S E
0025240 L N I L T ) ) ) \r
0025260
*
0025320 ( T E D I T . F L A S H C
0025340 A R E T ( 006 002 f e t c h 006 001
0025360 C A R E T 006 002 o f 006 001 T E X
0025400 T O B J ) ) \r
0025420
*
0025500 006 006 ( * ; \r 006 001
0025520
0025540 006 006 " F l a s h t h e c a r
0025560 e t p e r i o d i c a l l y
0025600 ( B U T n o t w h i l e w
0025620 e ' r e h e r e o n l y t
0025640 o c l e a n u p a n d q u
0025660 i t . ) " ) 006 001 \r
0025700
*
0025740 ( 006 002 r e p l a c e 006 001 E D
0025760 I T O P A C T I V E 006 002 o f 006
0026000 001 T E X T O B J 006 002 w i t h
0026020 006 001 T ) \r
0026040
*
0026120 006 006 ( * ; \r 006 001
0026140
*
0026200 006 006 " B e f o r e
0026220 s t a r t i n g t o w o r
0026240 k , n o t e t h a t w e '
0026260 r e d o i n g s o m e t h i
0026300 n g . " ) 006 001 \r
0026320
*
0026360 ( A N D L O O P F N ( E R S
0026400 E T Q ( A P P L Y * L O O P
0026420 F N S T R E A M ) ) ) \r
0026440
*
0026520 006 006 ( * ;
0026540 \r 006 001
0026560
0026600 006 006
0026620 " I f t h e g u y w a n t
0026640 s c o n t r o l d u r i n g
0026660 t h e l o o p , g i v e
0026700 i t t o h i m . " ) 006 001 \r
0026720
*
0027000 006 006 ( *
0027020 ; " P r o c e s s a n y
0027040 p e n d i n g s e l e c t i o
0027060 n s " ) 006 001 \r
0027100
0027120 [
0027140 C O N D \r
0027160
*
0027220 ( T E D I T . C O P Y . P E N D
0027240 I N G \r
0027260
*
0027340 006 006 ( * ; \r 006 001
0027360
*
0027440 006 006 " H a v e
0027460 t o c o p y t h e s h i
0027500 f t e d S E L t o c a r e
0027520 t . " ) 006 001 \r
0027540
*
0027600 ( S E T Q T
0027620 E D I T . C O P Y . P E N D I N
0027640 G N I L ) \r
0027660
*
0027720 ( \ C O P Y S
0027740 E L T E D I T . S H I F T E D
0027760 S E L E C T I O N \r
0030000
*
0030060 ( 006 002 f e t c h 006 001 S H
0030100 I F T E D S E L 006 002 o f 006 001
0030120 T E X T O B J ) ) \r
0030140
*
0030200 ( E R S
0030220 E T Q ( T E D I T . C O P Y
0030240 ( 006 002 f e t c h 006 001 S H I F T
0030260 E D S E L 006 002 o f 006 001 T E X
0030300 T O B J ) \r
0030320
*
0030400 ( 006 002 f e t c h 006
0030420 001 S E L 006 002 o f 006 001 T E X
0030440 T O B J ) ) ) \r
0030460
*
0030520 ( 006 002 r e p
0030540 l a c e 006 001 S E T 006 002 o f 006
0030560 001 T E D I T . S H I F T E D S
0030600 E L E C T I O N 006 002 w i t h 006
0030620 001 N I L ) \r
0030640
*
0030700 ( 006 002 r e p l
0030720 a c e 006 001 L 1 006 002 o f 006 001
0030740 T E D I T . S H I F T E D S E L
0030760 E C T I O N 006 002 w i t h 006 001
0031000 N I L ) \r
0031020
*
0031060 ( 006 002 r e p l a c
0031100 e 006 001 L N 006 002 o f 006 001 T E
0031120 D I T . S H I F T E D S E L E C
0031140 T I O N 006 002 w i t h 006 001 N I
0031160 L ) \r
0031200
*
0031240 ( \ C O P Y S E L T
0031260 E D I T . S H I F T E D S E L E
0031300 C T I O N \r
0031320
*
0031360 (
0031400 006 002 f e t c h 006 001 S H I F T E
0031420 D S E L 006 002 o f 006 001 T E X T
0031440 O B J ) ) ) \r
0031460
*
0031520 ( T E D I T . C O P Y L O O
0031540 K S . P E N D I N G \r
0031560
*
0031640 006 006 ( * ; \r
0031660 006 001
0031700
*
0031740 006
0031760 006 " H a v e t o c o p y t
0032000 h e s h i f t e d S E L t
0032020 o c a r e t . " ) 006 001 \r
0032040
*
0032100 ( S E T Q T
0032120 E D I T . C O P Y L O O K S . P
0032140 E N D I N G N I L ) \r
0032160
*
0032220 ( \ C O P Y S E
0032240 L T E D I T . C O P Y L O O K
0032260 S S E L E C T I O N ( 006 002 f e
0032300 t c h 006 001 S H I F T E D S E L
0032320 \r
0032340
*
0032440 006 002 o f 006 001 T E X T O B
0032460 J ) ) \r
0032500
*
0032540 [ E R S E T Q ( C O N D \r
0032560
*
0032640 ( ( E Q ' P A R A
0032660 ( 006 002 f e t c h 006 001 S E L K I
0032700 N D \r
0032720
*
0033000 006 002 o f 006 001 (
0033020 006 002 f e t c h 006 001 S H I F T E
0033040 D S E L \r
0033060
*
0033160 006 002 o f 006 001 T E X T O B J ) )
0033200 ) \r
0033220
*
0033260 006
0033300 006 ( * ; \r 006 001
0033320
0033340 006 006 " c o p y t h e
0033360 p a r a g r a p h l o o k s
0033400 , s i n c e t h e s o u r
0033420 c e s e l e c t i o n t y p
0033440 e w a s p a r a g r a p h "
0033460 ) 006 001 \r
0033500
*
0033540 ( T E D
0033560 I T . C O P Y . P A R A L O O K
0033600 S T E X T O B J \r
0033620
*
0033700 ( 006 002 f e t c
0033720 h 006 001 S H I F T E D S E L 006
0033740 002 o f 006 001 T E X T O B J ) \r
0033760
*
0034040 ( 006
0034060 002 f e t c h 006 001 S E L 006 002 o
0034100 f 006 001 T E X T O B J ) ) ) \r
0034120
*
0034200 ( T 006 006 ( *
0034220 ; " c o p y t h e c h a
0034240 r a c t e r l o o k s " ) 006 001
0034260 \r
0034300
*
0034340 ( T E D I
0034360 T . C O P Y . L O O K S T E X
0034400 T O B J \r
0034420
*
0034500 ( 006 002 f e t c h 006 001
0034520 S H I F T E D S E L 006 002 o f
0034540 006 001 T E X T O B J ) \r
0034560
*
0034640 ( 006 002
0034660 f e t c h 006 001 S E L 006 002 o f
0034700 006 001 T E X T O B J ] \r
0034720
*
0034760 ( \ S H O W S E
0035000 L ( 006 002 f e t c h 006 001 S H I
0035020 F T E D S E L 006 002 o f 006 001 T
0035040 E X T O B J ) \r
0035060
*
0035120 N I L N
0035140 I L ) \r
0035160
*
0035220 ( 006 002 r e p l a c e 006 001 S E T
0035240 006 002 o f 006 001 T E D I T . C O
0035260 P Y L O O K S S E L E C T I O N
0035300 006 002 w i t h 006 001 N I L ) \r
0035320
*
0035360 ( 006 002 r e
0035400 p l a c e 006 001 L 1 006 002 o f 006
0035420 001 T E D I T . C O P Y L O O K
0035440 S S E L E C T I O N 006 002 w i t
0035460 h 006 001 N I L ) \r
0035500
*
0035540 ( 006 002 r e p l a c e 006
0035560 001 L N 006 002 o f 006 001 T E D I
0035600 T . C O P Y L O O K S S E L E C
0035620 T I O N 006 002 w i t h 006 001 N I
0035640 L ) \r
0035660
0035700 (
0035720 \ C O P Y S E L T E D I T . C
0035740 O P Y L O O K S S E L E C T I O
0035760 N ( 006 002 f e t c h 006 001 S H I
0036000 F T E D S E L \r
0036020
*
0036120 006 002 o f 006 001
0036140 T E X T O B J ) ) ) \r
0036160
*
0036220 ( T E D I T . M O
0036240 V E . P E N D I N G \r
0036260
*
0036340 006 006 ( * ;
0036360 \r 006 001
0036400
*
0036440 006 006 "
0036460 H a v e t o m o v e t h e
0036500 c t r l - s h i f t S E L
0036520 t o c a r e t . " ) 006 001 \r
0036540
*
0036620 ( S E T Q T E D I T . M O V E
0036640 . P E N D I N G N I L ) \r
0036660
*
0036740 ( \ C O P Y S E L T E D I T .
0036760 M O V E S E L E C T I O N ( 006
0037000 002 f e t c h 006 001 M O V E S E L
0037020 \r
0037040
*
0037140 006 002 o f 006 001 T E X T O
0037160 B J ) ) \r
0037200
*
0037240 ( T E D I T . D O
0037260 . B L U E P E N D I N G D E L E
0037300 T E S E L T E X T O B J ) \r
0037320
*
0037400 ( E R S E T Q ( T E D I T
0037420 . M O V E ( 006 002 f e t c h 006 001
0037440 M O V E S E L 006 002 o f 006 001
0037460 T E X T O B J ) \r
0037500
*
0037560 ( 006 002 f e t
0037600 c h 006 001 S E L 006 002 o f 006 001
0037620 T E X T O B J ) ) ) \r
0037640
*
0037700 ( 006 002
0037720 r e p l a c e 006 001 S E T 006 002
0037740 o f 006 001 T E D I T . M O V E S
0037760 E L E C T I O N 006 002 w i t h 006
0040000 001 N I L ) \r
0040020
*
0040060 ( 006 002 r e p l
0040100 a c e 006 001 L 1 006 002 o f 006 001
0040120 T E D I T . M O V E S E L E C T
0040140 I O N 006 002 w i t h 006 001 N I L
0040160 ) \r
0040200
*
0040240 ( 006 002 r e p l a c e 006 001
0040260 L N 006 002 o f 006 001 T E D I T
0040300 . M O V E S E L E C T I O N 006
0040320 002 w i t h 006 001 N I L ) \r
0040340
*
0040400 (
0040420 \ C O P Y S E L T E D I T . M
0040440 O V E S E L E C T I O N ( 006 002
0040460 f e t c h 006 001 M O V E S E L \r
0040500
*
0040620 006 002 o f 006 001 T E X T O B
0040640 J ) ) ) \r
0040660
*
0040720 ( T E D I T . D E L . P E N D I
0040740 N G \r
0040760
*
0041040 006 006 ( * ; " D e l e t e
0041060 t h e c u r r e n t s e l e
0041100 c t i o n . " ) 006 001 \r
0041120
*
0041160 ( S E
0041200 T Q T E D I T . D E L . P E N
0041220 D I N G N I L ) \r
0041240
*
0041320 006 006 ( * ; \r 006
0041340 001
0041360
*
0041420 006 006
0041440 " A b o v e a l l , r e s e
0041460 t t h e d e m a n d f l a
0041500 g f i r s t " ) 006 001 \r
0041520
*
0041560 ( E
0041600 R S E T Q ( C O N D \r
0041620
*
0041700 ( ( 006 002 f e t
0041720 c h 006 001 S E T 006 002 o f 006 001
0041740 T E D I T . D E L E T E S E L E
0041760 C T I O N ) \r
0042000
*
0042060 006 006 ( * ; \r 006 001
0042100
*
0042140 006 006 " O
0042160 n l y t r y t h e d e l e
0042200 t i o n i f h e r e a l l
0042220 y s e t t h e s e l e c t
0042240 i o n . " ) 006 001 \r
0042260
*
0042340 ( \ S H O W S E L
0042360 ( 006 002 f e t c h 006 001 D E L E
0042400 T E S E L 006 002 o f 006 001 T E X
0042420 T O B J ) \r
0042440
*
0042520 N I L N
0042540 I L ) \r
0042560
*
0042640 006 006 ( * ; " T u r n o f
0042660 f t h e s e l e c t i o n
0042700 h i g h l i g h t s " ) 006 001 \r
0042720
*
0043000 ( \ S
0043020 H O W S E L ( 006 002 f e t c h 006
0043040 001 S E L 006 002 o f 006 001 T E X
0043060 T O B J ) \r
0043100
*
0043160 N I L N
0043200 I L ) \r
0043220
*
0043300 ( 006 002 r e p l a c e 006 001 S
0043320 E T \r
0043340
*
0043420 006 002 o f 006 001 ( 006 002 f e
0043440 t c h 006 001 D E L E T E S E L
0043460 006 002 o f 006 001 T E X T O B J ) \r
0043500
*
0043600 006 002 w i t h 006 001 N I L ) \r
0043620
*
0043700 ( \ C
0043720 O P Y S E L T E D I T . D E L
0043740 E T E S E L E C T I O N \r
0043760
*
0044060 ( 006 002 f e t c h 006 001 S E L
0044100 006 002 o f 006 001 T E X T O B J )
0044120 ) \r
0044140
*
0044220 ( \ T E D I T . S E T . S E L .
0044240 L O O K S ( 006 002 f e t c h 006 001
0044260 S E L \r
0044300
*
0044400 006 002 o f
0044420 006 001 T E X T O B J ) \r
0044440
*
0044540 ' N O R M A L ) \r
0044560
*
0044640 006 006 ( * ; " G
0044660 r a b t h e s e l e c t i o
0044700 n w e ' r e t o u s e " )
0044720 006 001 \r
0044740
*
0045020 ( \ T E D I T . D E L E T E
0045040 ( 006 002 f e t c h 006 001 S E L 006
0045060 002 o f 006 001 T E X T O B J ) \r
0045100
*
0045200 ( 006 002 f e t c h 006 001 \
0045220 T E X T O B J \r
0045240
*
0045340 006 002 o f 006 001 ( 006 002 f e t c h 006
0045360 001 S E L 006 002 o f 006 001 T E X
0045400 T O B J ) ) \r
0045420
*
0045500 N I L )
0045520 \r
0045540
*
0045600 (
0045620 006 002 r e p l a c e 006 001 L 1 006
0045640 002 o f 006 001 T E D I T . D E L E
0045660 T E S E L E C T I O N \r
0045700
*
0045760 006 002 w
0046000 i t h 006 001 N I L ) \r
0046020
*
0046100 ( 006 002 r e p l
0046120 a c e 006 001 L N 006 002 o f 006 001
0046140 T E D I T . D E L E T E S E L E
0046160 C T I O N \r
0046200
*
0046260 006 002 w i t h 006 001
0046300 N I L ] \r
0046320
0046340 ( U N
0046360 I N T E R R U P T A B L Y \r
0046400
*
0046440 ( 006 002 r e p
0046460 l a c e 006 001 ( S T R I N G P
0046500 O F F S T ) 006 002 o f 006 001 I S
0046520 C R S T R I N G 006 002 w i t h 006
0046540 001 0 ) \r
0046560
*
0046620 ( 006 002 r e p l a c e 006 001 ( S
0046640 T R I N G P L E N G T H ) 006
0046660 002 o f 006 001 I S C R S T R I N G
0046700 006 002 w i t h 006 001 \ S C R A T
0046720 C H L E N ) ) \r
0046740
*
0047000 ( 006 002 w h i l e 006 001 ( \ S Y S
0047020 B U F P ) \r
0047040
*
0047100 006 002 d o 006 001
0047120 006 006 ( * ; " H
0047140 a n d l e u s e r t y p e -
0047160 i n " ) 006 001 \r
0047200
*
0047240 ( S E T Q C H ( \
0047260 G E T K E Y ) ) \r
0047300
*
0047340 ( C O N D \r
0047360
*
0047420 ( C
0047440 H A R F N 006 006 ( * ;
0047460 \r 006 001
0047500
*
0047540 006 006 " G i v e t h e
0047560 O E M u s e r c o n t r o l
0047600 f o r e a c h c h a r a c
0047620 t e r t y p e d . " ) 006 001 \r
0047640
*
0047720 ( S E T Q T C H
0047740 ( A P P L Y * C H A R F N
0047760 S T R E A M C H ) ) \r
0050000
*
0050060 ( O R ( E Q T C H
0050100 T ) \r
0050120
*
0050160 (
0050200 S E T Q C H T C H ) ) \r
0050220
*
0050300 006 006 ( *
0050320 ; \r 006 001 006 006 " A n
0050340 d l e t h i m r e t u r n
0050360 o n e o f N I L f o r
0050400 ' i g n o r e t h i s c h a
0050420 r ' , T f o r ' l e a v
0050440 e i t b e ' o r a n e
0050460 w c h a r c o d e . " ) 006 001 \r
0050500
*
0050560 ) ) \r
0050600
*
0050640 ( S E L E C T
0050660 C ( A N D C H ( \ S Y N C
0050700 O D E T E D I T S A C H ) )
0050720 \r
0050740
*
0051000 ( C H A R D E L E T E . T
0051020 T C \r
0051040
*
0051120 006 006 ( * ; \r 006 001
0051140
*
0051200 006 006 " B a c k s p a c e h
0051220 a n d l e r : R e m o v e t
0051240 h e c h a r a c t e r j u s
0051260 t b e f o r e S E L : C H #
0051300 . " ) 006 001 \r
0051320
*
0051360 ( \ T
0051400 E D I T . C H A R D E L E T E
0051420 T E X T O B J I S C R S T R I
0051440 N G S E L ) \r
0051460
*
0051520 (
0051540 T E D I T . R E S E T . E X T E
0051560 N D . P E N D I N G . D E L E T
0051600 E S E L ) ) \r
0051620
*
0051660 ( W O R D D
0051700 E L E T E . T T C \r
0051720
*
0052000 ( \ T E D I T . W O R D D E
0052020 L E T E T E X T O B J ) \r
0052040
*
0052120 ( T E D I T . R E S E
0052140 T . E X T E N D . P E N D I N G
0052160 . D E L E T E S E L ) ) \r
0052200
*
0052260 ( D E L E T E . T T C \r
0052300
*
0052360 006 006 ( * ;
0052400 \r 006 001
0052420
*
0052460 006 006 " D E L K
0052500 e y h a n d l e r : D e l e
0052520 t e t h e s e l e c t e d
0052540 c h a r a c t e r s " ) 006 001 \r
0052560
*
0052640 ( \ T
0052660 E D I T . D E L E T E S E L
0052700 T E X T O B J ) \r
0052720
*
0053000 ( T E D I T . R E
0053020 S E T . E X T E N D . P E N D I
0053040 N G . D E L E T E \r
0053060
*
0053140 S E L ) ) \r
0053160
*
0053240 ( U N D O . T T C 006 006 ( *
0053260 ; \r 006 001
0053300
*
0053340 006 006
0053360 " H e h i t t h e C A N C
0053400 E L k e y , s o g o U N
0053420 D O s o m e t h i n g " ) 006 001
0053440 \r
0053460
*
0053520 ( T E
0053540 D I T . U N D O T E X T O B J
0053560 ) \r
0053600
*
0053640 ( T
0053660 E D I T . R E S E T . E X T E N
0053700 D . P E N D I N G . D E L E T E
0053720 S E L ) ) \r
0053740
*
0054000 ( R E D O . T
0054020 T C 006 006 ( * ; \r 006 001
0054040
*
0054120 006 006 " H e h i
0054140 t t h e R E D O k e y ,
0054160 s o g o R E D O s o m e t
0054200 h i n g " ) 006 001 \r
0054220
*
0054300 ( T E D I T . R E D O
0054320 T E X T O B J ) \r
0054340
*
0054420 ( T E D I T . R E S
0054440 E T . E X T E N D . P E N D I N
0054460 G . D E L E T E S E L ) ) \r
0054500
*
0054560 ( F U N C T I O N C A L L . T
0054600 T C \r
0054620
*
0054700 006 006 ( * ; \r 006 001
0054720
*
0054760 006 006 " T
0055000 h i s i s a s p e c i a l
0055020 c h a r a c t e r - - i t
0055040 c a l l s a f u n c t i o
0055060 n " ) 006 001 \r
0055100
*
0055140 ( C O
0055160 N D \r
0055200
*
0055240 ( ( S
0055260 E T Q F N ( G E T H A S H
0055300 C H T E D I T F N H A S H ) )
0055320 \r
0055340
*
0055400 006 006
0055420 ( * ; \r 006 001
0055440
*
0055520 006 006 " T h e r e I S a
0055540 c o m m a n d f u n c t i o n
0055560 t o b e c a l l e d . " )
0055600 006 001 \r
0055620
*
0055660 ( A
0055700 P P L Y * F N ( 006 002 f e t c
0055720 h 006 001 S T R E A M H I N T 006
0055740 002 o f 006 001 T E X T O B J ) \r
0055760
*
0056060 T E X T O B J S E L ) \r
0056100
*
0056160 006 006 ( *
0056200 ; " d o i t " ) 006 001 \r
0056220
*
0056300 ( \ S H O W S E
0056320 L S E L N I L N I L ) \r
0056340
*
0056420 ( T E D I T
0056440 . R E S E T . E X T E N D . P E
0056460 N D I N G . D E L E T E S E L
0056500 ) \r
0056520
*
0056560 006
0056600 006 ( * ; \r 006 001
0056620
*
0056660 006 006 " A f t
0056700 e r a u s e r f u n c t i
0056720 o n , n o m o r e b l u e
0056740 - p e n d i n g - d e l e t e "
0056760 ) 006 001 \r
0057000
*
0057040 (
0057060 \ S H O W S E L S E L N I L
0057100 T ) \r
0057120
*
0057200 006 006 ( * ; " A n d f o r
0057220 g e t a n y p e n d i n g
0057240 d e l e t i o n . " ) 006 001 \r
0057260
*
0057340 ) ) ) \r
0057360
*
0057420 (
0057440 N E X T . T T C 006 006 ( * ;
0057460 \r 006 001
0057500 006 006 " M o
0057520 v e t o t h e n e x t b
0057540 l a n k t o f i l l i n .
0057560 F o r n o w , b l a n k
0057600 s a r e d e l i m i t e d
0057620 b y > > . . . < < " ) 006 001 \r
0057640
*
0057720 ( T E D I
0057740 T . N E X T T E X T O B J ) )
0057760 \r
0060000
*
0060040 ( E X P A N D . T T C \r
0060060
*
0060140 006 006 (
0060160 * ; " E X P A N D A N A
0060200 B B R E V I A T I O N " ) 006 001 \r
0060220
*
0060300 ( \
0060320 T E D I T . A B B R E V . E X P
0060340 A N D ( 006 002 f e t c h 006 001 S
0060360 T R E A M H I N T \r
0060400
*
0060520 006 002 o f 006 001 T E X T O B J )
0060540 ) ) \r
0060560
*
0060620 ( S E L E C T C ( A
0060640 N D T E R M S A C H ( 006 002
0060660 f e t c h 006 001 T E R M C L A S
0060700 S \r
0060720
*
0061000 006
0061020 002 o f 006 001 ( \ S Y N C O D E
0061040 T E R M S A C H ) ) \r
0061060
*
0061140 ) \r
0061160
*
0061240 ( C H A R D E L E T E .
0061260 T C \r
0061300
*
0061360 006 006 ( * ; \r 006 001
0061400
*
0061440 006 006 " B a c k s p a c e h
0061460 a n d l e r : R e m o v e t
0061500 h e c h a r a c t e r j u s
0061520 t b e f o r e S E L : C H #
0061540 . " ) 006 001 \r
0061560
*
0061640 ( \ T E D
0061660 I T . C H A R D E L E T E T E
0061700 X T O B J \r
0061720
*
0062020 I S C R S T R I N G S E
0062040 L ) \r
0062060
*
0062140 ( \r
0062160
*
0062240 T E
0062260 D I T . R E S E T . E X T E N D
0062300 . P E N D I N G . D E L E T E \r
0062320
*
0062420 S E L ) ) \r
0062440
*
0062520 ( W O R D D E L E T E . T C
0062540 \r
0062560
*
0062620 006
0062640 006 ( * ; " B a c k - W O R D
0062660 h a n d l e r " ) 006 001 \r
0062700
*
0063000 ( \ T E D I T . W O R D D E
0063020 L E T E T E X T O B J ) \r
0063040
*
0063140 ( \r
0063160
*
0063240 T E D I T . R
0063260 E S E T . E X T E N D . P E N D
0063300 I N G . D E L E T E \r
0063320
*
0063420 S E L ) ) \r
0063440
*
0063500 ( L I
0063520 N E D E L E T E . T C \r
0063540
*
0063620 006 006 ( * ;
0063640 \r 006 001
0063660
*
0063720 006 006 " D E L K
0063740 e y h a n d l e r : D e l e
0063760 t e t h e s e l e c t e d
0064000 c h a r a c t e r s " ) 006 001 \r
0064020
*
0064120 ( \ T E D I T . D E L E
0064140 T E S E L T E X T O B J ) \r
0064160
*
0064260 ( \r
0064300
*
0064360 T E D I T
0064400 . R E S E T . E X T E N D . P E
0064420 N D I N G . D E L E T E \r
0064440
*
0064540 S E L ) ) \r
0064560
*
0064620 (
0064640 C O N D \r
0064660
*
0064720 ( C
0064740 H 006 006 ( * ; \r 006 001
0064760
*
0065020 006 006
0065040 " A n y o t h e r k e y w
0065060 a s h i t : J u s t i n s
0065100 e r t t h e c h a r a c t e
0065120 r . " ) 006 001 \r
0065140
*
0065220 ( T E D I T . D O . B L
0065240 U E P E N D I N G D E L E T E
0065260 S E L T E X T O B J ) \r
0065300
*
0065360 006 006 ( * ;
0065400 \r 006 001
0065420
*
0065460 006 006 " H a
0065500 n d l e b l u e p e n d i n
0065520 g d e l e t e , i f t h e
0065540 r e i s o n e . " ) 006 001 \r
0065560
*
0065640 ( T E D
0065660 I T . \ I N S E R T C H S E
0065700 L T E X T O B J B L A N K S
0065720 E E N \r
0065740
*
0066020 C R S E E N ]
0066040 \r
0066060
0066100 ( 006 002 r e p l a c e 006 001
0066120 E D I T O P A C T I V E 006 002 o
0066140 f 006 001 T E X T O B J 006 002 w i
0066160 t h 006 001 N I L ] \r
0066200 ( 006
0066220 002 r e p l a c e 006 001 E D I T O
0066240 P A C T I V E 006 002 o f 006 001 T
0066260 E X T O B J 006 002 w i t h 006 001
0066300 N I L ] ) \r \r ( 006 004 \ T E D I T
0066320 . C O M M A N D . R E S E T . S
0066340 E T U P 006 001 \r ( L A M B D A
0066360 ( T E X T & W I N D S T A R
0066400 T I N G ) 006 006 006 001
0066420
0066440 006 006 ( * j d s
0066460 " 3 1 - J u l - 8 6 1 7 : 1
0066500 8 " ) 006 001 \r
0066520 \r 006 006 ( *
0066540 I f S T A R T I N G i s T
0066560 , s e t u p t h e r e s
0066600 e t - d r i v e n c o n n e c
0066620 t i o n s a n d v a l u e s
0066640 f o r \r 006 001
0066660 006 006 e d i t i n g ; o t h
0066700 e r w i s e , b r e a k l i
0066720 n k s a n d r e s e t v a
0066740 l u e s f o r n o n - e d i
0066760 t i n g ) 006 001 \r \r ( P R
0067000 O G ( ( T E X T O B J ( C A
0067020 R T E X T & W I N D ) ) \r
0067040 ( W I N D O W
0067060 ( C A D R T E X T & W I N D
0067100 ) ) \r ( O
0067120 T T Y W I N D O W ( C A D D R
0067140 T E X T & W I N D ) ) \r
0067160 ( O T T Y E N T
0067200 R Y F N ( C A D D D R T E X
0067220 T & W I N D ) ) \r
0067240 ( O T T Y E X I T F N
0067260 ( C A R ( C D D D D R T E X
0067300 T & W I N D ) ) ) \r
0067320 ( O W I N D O W ( C
0067340 A D R ( C D D D D R T E X T
0067360 & W I N D ) ) ) \r
0067400 T T Y W I N D O W ) \r
0067420 ( C O N D \r
0067440 ( S T A
0067460 R T I N G \r
0067500 \r 006 006 ( *
0067520 W e ' r e g o i n g I N T
0067540 O t h e c o m m a n d l o
0067560 o p . S e t u p a l l t
0067600 h e s t u f f ) 006 001 \r \r
0067620
0067640 ( S E T Q O W I N D O W (
0067660 P R O C E S S P R O P ( T H I
0067700 S . P R O C E S S ) \r
0067720
*
0067760 ' W I N D O W \r
0070000
*
0070040 ( C A R W I N D O W
0070060 ) ) ) 006 006 ( * A t
0070100 t a c h t h e p r o c e s s
0070120 t o t h i s w i n d o w .
0070140 ) 006 001 \r
0070160 ( 006 002 \ T E D I
0070200 T . I N T E R R U P T . S E T U
0070220 P 006 001 ( T H I S . P R O C E S
0070240 S ) ) \r \r
0070260 006 006 ( * D i
0070300 s a r m a l l i n t e r r u
0070320 p t c h a r s , r e - a r m
0070340 t h e m w h e n w e l e
0070360 a v e t h e e d i t ) 006 001 \r
0070400 \r
0070420 ( S E T Q O T T Y E
0070440 X I T F N ( P R O C E S S P R
0070460 O P ( T H I S . P R O C E S S
0070500 ) \r
0070520
0070540 ' T
0070560 T Y E X I T F N \r
0070600
*
0070640 ' \ T E D I T . P R O
0070660 C E X I T F N ) ) \r
0070700 \r 006
0070720 006 ( * S e t u p f u n c t
0070740 i o n s f o r g e t t i n g
0070760 i n a n d o u t o f t
0071000 h e e d i t p r o c e s s )
0071020 006 001 \r \r
0071040 ( S E T Q O T
0071060 T Y E N T R Y F N ( P R O C E
0071100 S S P R O P ( T H I S . P R O
0071120 C E S S ) \r
0071140
*
0071200 ' T T Y E N T R Y F N \r
0071220
*
0071260 ' \ T E
0071300 D I T . P R O C E N T R Y F N )
0071320 ) \r
0071340 ( C O N D \r
0071360
0071400 ( ( N E Q ( T E X T P R
0071420 O P T E X T O B J ' T T Y W
0071440 I N D O W ) \r
0071460
0071500 ' D O N ' T ) \r
0071520 \r
0071540 006 006 ( * H e c a n s u p
0071560 p r e s s t h e a b i l i t
0071600 y t o c o p y - s e l e c t
0071620 t h i n g s i n t o t h i
0071640 s w i n d o w i f h e \r
0071660 006 001 006 006 w a
0071700 n t s . . . . ) 006 001 \r \r
0071720
0071740 ( S E T Q T T Y W I N
0071760 D O W ( O R ( T E X T P R O
0072000 P T E X T O B J ' T T Y W I
0072020 N D O W ) \r
0072040
*
0072100 ( C R E A T E W D E F A U
0072120 L T T T Y R E G I O N " T T Y
0072140 W i n d o w f o r T E d i
0072160 t " N I L T ) ) ) \r
0072200
0072220 ( S E T Q O T T Y W I
0072240 N D O W ( T T Y D I S P L A Y
0072260 S T R E A M T T Y W I N D O W
0072300 ) ) \r
0072320 ( P R O C
0072340 E S S P R O P ( T H I S . P R
0072360 O C E S S ) \r
0072400
0072420 ' T E D I T T T Y W
0072440 I N D O W T T Y W I N D O W )
0072460 \r
0072500 ( W I N D O W
0072520 P R O P T T Y W I N D O W '
0072540 P R O C E S S N I L ) \r
0072560
0072600 ( W I N D O W P R O P
0072620 T T Y W I N D O W ' C L O S
0072640 E F N ( F U N C T I O N ( L
0072660 A M B D A ( W W ) \r
0072700
*
0072760 ( W
0073000 I N D O W P R O P W W ' P R
0073020 O C E S S N I L ) ) ) ) \r
0073040 \r
0073060 006 006 ( * S o t h a t
0073100 t h e r e i s n ' t a c i
0073120 r c u l a r i t y i n t h e
0073140 P R O C E S S - > T T Y W
0073160 I N D O W - > P R O C E S S
0073200 ) 006 001 \r \r
0073220 ( W I
0073240 N D O W P R O P T T Y W I N D
0073260 O W ' C O P Y I N S E R T F N
0073300 ( F U N C T I O N \ T E D I
0073320 T . C O P Y I N S E R T F N ) )
0073340 \r
0073360 ( W I N D O W
0073400 P R O P T T Y W I N D O W '
0073420 M A I N W I N D O W ( C A R
0073440 W I N D O W ) ) ) ) ) \r
0073460 ( T
0073500
*
0073540 006 006 ( * C o
0073560 m i n g O U T O F t h e
0073600 c o m m a n d l o o p - - \r
0073620 006 001
0073640
*
0073700 006
0073720 006 r e s e t e v e r y t h i n
0073740 g ) 006 001 \r
0073760 ( P R O C E S S P R O
0074000 P ( T H I S . P R O C E S S )
0074020 \r
0074040 ' W I N D O W \r
0074060
0074100 ( C A R W I N D
0074120 O W ) ) \r \r
0074140 006 006 ( * D
0074160 e t a c h t h e w i n d o w
0074200 f r o m t h e e d i t p
0074220 r o c e s s , t o p r e v e
0074240 n t c i r c u l a r i t y t
0074260 h e r e ) 006 001 \r \r
0074300 ( W I N D O W
0074320 P R O P ( C A R W I N D O W
0074340 ) \r
0074360 ' P R O C E S
0074400 S N I L ) \r
0074420 ( 006 002 \ T E D I T
0074440 . I N T E R R U P T . S E T U P
0074460 006 001 ( T H I S . P R O C E S S
0074500 ) \r
0074520 T )
0074540
0074560 006
0074600 006 ( * R e - a r m t h e i
0074620 n t e r r u p t s w e t u r
0074640 n e d o f f \r 006 001
0074660
*
0074740 006 006 c o m i n g
0074760 i n . ) 006 001 \r
0075000 ( C O N D \r
0075020
0075040 ( ( A N D ( T X T F I L E
0075060 T E X T O B J ) \r
0075100
0075120 ( N O T ( W I N D O W P R
0075140 O P ( C A R W I N D O W ) \r
0075160
*
0075220 ' T E D I T - C L O S
0075240 I N G - F I L E T ) ) ) 006 006 (
0075260 * R e m e m b e r t o c l
0075300 o s e t h e f i l e w e
0075320 w e r e \r 006 001
0075340
*
0075420 006 006 e d i t i n g (
0075440 O n l y i f t h e w i n d
0075460 o w f u n c t i o n \r 006 001
0075500
*
0075560 006 006 i s
0075600 n ' t c l o s i n g i t . )
0075620 ) 006 001 \r
0075640 ( C L O S E F ?
0075660 ( T X T F I L E T E X T O B
0075700 J ) ) \r
0075720 ( W I N D O W P
0075740 R O P ( C A R W I N D O W )
0075760 \r
0076000 ' T E D
0076020 I T - C L O S I N G - F I L E
0076040 N I L ) \r \r
0076060 006 006 ( * A
0076100 n d l e t a n y o n e e l
0076120 s e w h o w a n t s t o
0076140 t r y c l o s i n g t h e
0076160 f i l e d o s o . ) 006 001 \r \r
0076200
0076220 ) ) \r
0076240 ( P R O C E S S P
0076260 R O P ( T H I S . P R O C E S
0076300 S ) \r
0076320 ' T T Y E X
0076340 I T F N O T T Y E X I T F N )
0076360 \r
0076400 ( P R O C E S S P R O P ( T
0076420 H I S . P R O C E S S ) \r
0076440
0076460 ' T T Y E N T R Y F N
0076500 O T T Y E N T R Y F N ) \r
0076520 ( 006 002
0076540 r e p l a c e 006 001 T X T H I S
0076560 T O R Y 006 002 o f 006 001 T E X T
0076600 O B J 006 002 w i t h 006 001 N I L
0076620 ) \r \r
0076640 006 006 ( * T o p
0076660 r e v e n t c i r c u l a r i
0076700 t i e s a r i s i n g f r o
0076720 m t h e n e e d t o r e
0076740 m e m b e r t e x t o b j s
0076760 i n t h e \r 006 001
0077000 006 006 h i s t o r y l i
0077020 s t . ) 006 001 \r \r
0077040 ( 006 002 r e p l a
0077060 c e 006 001 S E L W I N D O W 006
0077100 002 o f 006 001 T E X T O B J 006 002
0077120 w i t h 006 001 N I L ) \r
0077140 \r
0077160 006 006 ( * T o p r e v e n t
0077200 a c i r c u l a r i t y t
0077220 h r u t h e w i n d o w b
0077240 a c k t o t h e t e x t o
0077260 b j . ) 006 001 \r \r
0077300 ( C O N D \r
0077320
0077340 ( ( N E Q ( T E X T P R O P
0077360 T E X T O B J ' T T Y W I N
0077400 D O W ) \r
0077420 ' D
0077440 O N ' T ) \r
0077460 \r 006 006 ( *
0077500 H e c a n s u p p r e s s
0077520 t h e a b i l i t y t o c
0077540 o p y - s e l e c t t h i n g
0077560 s i n t o t h i s w i n d
0077600 o w i f h e \r 006 001
0077620 006 006 w a n t s . . .
0077640 . ) 006 001 \r \r
0077660 ( T T Y D I
0077700 S P L A Y S T R E A M O T T Y
0077720 W I N D O W ) \r
0077740 ( P R O
0077760 C E S S P R O P ( T H I S . P
0100000 R O C E S S ) \r
0100020
0100040 ' T E D I T T T Y W I N D
0100060 O W N I L ) ) ) ) ) \r
0100100 ( R E T U R N ( L
0100120 I S T T E X T O B J W I N D
0100140 O W O T T Y W I N D O W O T
0100160 T Y E N T R Y F N O T T Y E X
0100200 I T F N O W I N D O W ) ) ) )
0100220 ) \r ) \r \r ( R P A Q ? 006 002 T E
0100240 D I T . I N T E R R U P T S 006 001
0100260 ' ( ( 2 B R E A K ) \r
0100300
0100320 ( 5 E R R O R )
0100340 \r
0100360 ( 7 H E
0100400 L P ) \r
0100420 ( 2
0100440 0 C O N T R O L - T ) ) ) \r \r
0100460 ( R P A Q Q 006 002 T E D I T . C
0100500 O P Y . P E N D I N G 006 001 N I
0100520 L ) \r \r ( R P A Q Q 006 002 T E D
0100540 I T . C O P Y L O O K S . P E N
0100560 D I N G 006 001 N I L ) \r \r ( R P
0100600 A Q Q 006 002 T E D I T . M O V E
0100620 . P E N D I N G 006 001 N I L ) \r
0100640 \r ( R P A Q Q 006 002 T E D I T .
0100660 D E L . P E N D I N G 006 001 N I
0100700 L ) \r \r ( R P A Q Q 006 002 T E D
0100720 I T . B L U E P E N D I N G D E
0100740 L E T E 006 001 N I L ) \r ( D E C
0100760 L A R E % : D O E V A L @ C O
0101000 M P I L E D O N T C O P Y \r \r
0101020 ( G L O B A L V A R S T E D I
0101040 T . C O P Y . P E N D I N G T
0101060 E D I T . C O P Y L O O K S . P
0101100 E N D I N G T E D I T . M O V
0101120 E . P E N D I N G T E D I T .
0101140 D E L . P E N D I N G \r
0101160 T E D I T . B L U E P E
0101200 N D I N G D E L E T E T E D I
0101220 T . I N T E R R U P T S ) \r ) \r
0101240 \r \r \r 006 004 ( * R e a d - t a b
0101260 l e U t i l i t i e s ) 006 001 \r
0101300 \r ( D E F I N E Q \r \r ( 006 004 \ T
0101320 E D I T . R E A D T A B L E 006 001
0101340 \r ( L A M B D A N I L 006 006
0101360 006 001
0101400
*
0101440 006 006 ( * j d s " 1 2 - S
0101460 e p - 8 6 1 3 : 4 8 " ) 006 001 \r
0101500 \r
0101520 006 006 ( * C r e a t e
0101540 a T E d i t r e a d - t a
0101560 b l e , t o c o n t r o l
0101600 w h i c h c h a r a c t e r s
0101620 h a v e w h a t f u n c t
0101640 i o n s \r 006 001
0101660 006 006 a n d c a l l w h i
0101700 c h c o m m a n d s . ) 006 001 \r
0101720 \r ( P R O G ( ( R T B
0101740 L ( 006 002 c r e a t e 006 001 R E
0101760 A D T A B L E P \r
0102000
0102020 R E A D M A C R O D E F S _
0102040 ( H A S H A R R A Y 5 0 ) )
0102060 ) ) \r ( 006 002
0102100 f o r 006 001 C H 006 002 i n 006 001
0102120 ( C H A R C O D E ( B S ^ A
0102140 ^ W D E L % # A % # B
0102160 % # C E S C ) ) 006 002 a s 006 001
0102200 C L \r
0102220 006 002 i n 006 001 ( L I S T C H
0102240 A R D E L E T E . T T C C H A
0102260 R D E L E T E . T T C W O R D
0102300 D E L E T E . T T C D E L E T
0102320 E . T T C U N D O . T T C N
0102340 E X T . T T C \r
0102360 C
0102400 M D . T T C R E D O . T T C )
0102420 006 002 d o 006 001
0102440 006 006 ( * S
0102460 e t u p t h e d e f a u l
0102500 t s y n t a x c l a s s e s
0102520 \r 006 001
0102540
*
0102620 006 006 f o r c o m m a n d c
0102640 h a r a c t e r s ) 006 001 \r
0102660
*
0102720 ( \ S E T S Y N
0102740 C O D E ( 006 002 f e t c h 006 001
0102760 R E A D S A 006 002 o f 006 001 R T
0103000 B L ) \r
0103020
*
0103060 C H C L ) ) \r
0103100 ( 006 002 f o r 006 001
0103120 C H 006 002 i n 006 001 ( C H A R
0103140 C O D E ( ^ X ) ) 006 002 a s 006
0103160 001 F N 006 002 i n 006 001 ' ( \ T
0103200 E D I T . A B B R E V . E X P A
0103220 N D ) \r
0103240 006 002 d o 006 001
0103260
*
0103320 006 006 ( * S e t u p
0103340 t h e d e f a u l t f u n
0103360 c t i o n - c a l l i n g \r 006
0103400 001
0103420
*
0103460 006 006
0103500 c h a r a c t e r s ( ^ X t
0103520 o e x p a n d a b b r e v s
0103540 f o r \r 006 001
0103560
*
0103640 006 006 n o w ) ) 006 001 \r
0103660 (
0103700 \ S E T S Y N C O D E ( 006 002 f
0103720 e t c h 006 001 R E A D S A 006 002
0103740 o f 006 001 R T B L ) \r
0103760
0104000 C H F U N C T I O N C A L
0104020 L . T T C ) \r
0104040 ( P U T H A S H
0104060 C H F N ( 006 002 f e t c h 006 001
0104100 R E A D M A C R O D E F S 006
0104120 002 o f 006 001 R T B L ) ) ) \r
0104140 ( 006 002 T E D I T
0104160 . S E T F U N C T I O N 006 001 (
0104200 C H A R C O D E ^ O ) \r
0104220 ( F
0104240 U N C T I O N G E T . O B J .
0104260 F R O M . U S E R ) \r
0104300 R T B L
0104320 )
0104340
0104360 006 006 ( * A n d
0104400 f o r i m a g e o b j e c
0104420 t c a p t u r e ) 006 001 \r
0104440 ( R E T U R N R
0104460 T B L ) ) ) ) \r \r ( 006 004 \ T E D
0104500 I T . W O R D B O U N D . R E A
0104520 D T A B L E 006 001 \r ( L A M B
0104540 D A N I L 006 006 006 001
0104560
*
0104620 006 006 ( * j
0104640 d s " 2 8 - A P R - 8 3 1 7
0104660 : 2 8 " ) 006 001 \r
0104700 \r 006 006 (
0104720 * C r e a t e a r e a d t
0104740 a b l e w h i c h w i l l
0104760 l e t T E d i t f i n d w
0105000 o r d b o u n d a r i e s . \r
0105020 006 001 006 006 A
0105040 w o r d b o u n d a r y i s
0105060 a n y p o i n t w h e r e
0105100 t h e S Y N C O D E o f
0105120 t h e a d j a c e n t c h a
0105140 r a c t e r s i s \r 006 001
0105160 006 006 d i f f e r
0105200 e n t ) 006 001 \r \r ( P R O
0105220 G ( ( R T B L ( 006 002 c r e a
0105240 t e 006 001 R E A D T A B L E P \r
0105260
0105300 R E A D M A C R
0105320 O D E F S _ ( H A R R A Y
0105340 5 0 ) ) ) ) \r
0105360 ( 006 002 f o r 006 001 C H 006 002 f
0105400 r o m 006 001 0 006 002 t o 006 001 2
0105420 5 5 006 002 d o 006 001 ( \ S E T S
0105440 Y N C O D E ( 006 002 f e t c h 006
0105460 001 R E A D S A 006 002 o f 006 001
0105500 R T B L ) \r
0105520
*
0105560 C H P U N C T . T T C ) ) \r
0105600 \r
0105620 006 006 ( * B y d e f a
0105640 u l t , e v e r y c h a r a
0105660 c t e r e x c e p t t h o s
0105700 e n o t e d b e l o w i s
0105720 a p u n c t u a t i o n \r
0105740 006 001 006 006 c h
0105760 a r a c t e r ) 006 001 \r \r
0106000 ( 006 002 f o r 006 001 C
0106020 H 006 002 f r o m 006 001 ( C H A R
0106040 C O D E A ) 006 002 t o 006 001 (
0106060 C H A R C O D E Z ) 006 002 d o
0106100 006 001 ( \ S E T S Y N C O D E
0106120 ( 006 002 f e t c h 006 001 R E A D S
0106140 A 006 002 o f 006 001 R T B L ) \r
0106160
*
0106240 C H
0106260 T E X T . T T C ) ) \r
0106300
*
0106360 006 006 ( * U p p
0106400 e r c a s e a l p h a ) 006 001
0106420 \r ( 006 002 f o
0106440 r 006 001 C H 006 002 f r o m 006 001
0106460 ( C H A R C O D E a ) 006 002 t
0106500 o 006 001 ( C H A R C O D E z )
0106520 006 002 d o 006 001 ( \ S E T S Y N
0106540 C O D E ( 006 002 f e t c h 006 001
0106560 R E A D S A 006 002 o f 006 001 R T
0106600 B L ) \r
0106620
*
0106700 C H T E X T . T T C ) ) \r
0106720
*
0107000 006 006 (
0107020 * L o w e r c a s e a l p
0107040 h a ) 006 001 \r
0107060 ( 006 002 f o r 006 001 C H 006 002 f r
0107100 o m 006 001 ( C H A R C O D E 0
0107120 ) 006 002 t o 006 001 ( C H A R C O
0107140 D E 9 ) 006 002 d o 006 001 ( \ S
0107160 E T S Y N C O D E ( 006 002 f e t
0107200 c h 006 001 R E A D S A 006 002 o f
0107220 006 001 R T B L ) \r
0107240
*
0107320 C H T E X T . T
0107340 T C ) ) \r
0107360
*
0107440 006 006 ( * A n d d i g i t
0107460 s a r e t e x t c h a r a
0107500 c t e r s ) 006 001 \r
0107520 ( 006 002 f o r 006 001 C H 006
0107540 002 i n 006 001 ( C H A R C O D E
0107560 ( C R S P A C E T A B ^ L
0107600 ) ) 006 002 d o 006 001 ( \ S E T S
0107620 Y N C O D E ( 006 002 f e t c h 006
0107640 001 R E A D S A 006 002 o f 006 001
0107660 R T B L ) \r
0107700
*
0107760 C H W H I T E S P A C E .
0110000 T T C ) ) \r
0110020
*
0110100 006 006 ( * A n d t h e s
0110120 e a r e w h i t e s p a c
0110140 e ) 006 001 \r (
0110160 006 002 f o r 006 001 C H 006 002 i n 006
0110200 001 ( L I S T M S P A C E N
0110220 S P A C E T H I N S P A C E
0110240 F I G S P A C E ) \r
0110260 006 002 d o 006 001 ( \
0110300 S E T S Y N C O D E ( 006 002 f e
0110320 t c h 006 001 R E A D S A 006 002 o
0110340 f 006 001 R T B L ) \r
0110360
0110400 C H T E X T . T T C ) ) \r
0110420 ( R E T U R N
0110440 R T B L ) ) ) ) \r \r ( 006 004 T E
0110460 D I T . G E T S Y N T A X 006 001 \r
0110500 [ L A M B D A ( C H T A
0110520 B L E ) 006 006 006 001
0110540
*
0110600 006 006 ( * ; " E d i t e d
0110620 3 1 - M a r - 8 7 1 0 : 0 1
0110640 b y j d s " ) 006 001 \r
0110660
*
0110740 006 006 ( * ; \r
0110760 006 001
0111000
*
0111040 006 006 " F i n d T E d
0111060 i t ' s i n t e r p r e t a t
0111100 i o n o f a g i v e n c
0111120 h a r a c t e r " ) 006 001 \r
0111140 ( S E L E C T C ( \ S Y N C
0111160 O D E [ 006 002 f e t c h 006 001 R
0111200 E A D S A 006 002 o f 006 001 ( C O
0111220 N D \r
0111240
0111260 ( (
0111300 006 002 t y p e ? 006 001 T E X T O B
0111320 J T A B L E ) \r
0111340
*
0111420 006 006 ( * ; \r 006 001
0111440 006 006 " I f g i v e n
0111460 a T E X T O B J i n p l
0111500 a c e o f a r e a d t a
0111520 b l e , c o e r c e i t t
0111540 o t h e r e a d t a b l e
0111560 f o r t h a t e d i t s
0111600 e s s i o n " ) 006 001 \r
0111620
*
0111660 ( O R ( 006 002 f e
0111700 t c h 006 001 ( T E X T O B J T
0111720 X T R T B L ) 006 002 o f 006 001 T
0111740 A B L E ) \r
0111760
*
0112020 T E D I T . R E A D
0112040 T A B L E ) ) \r
0112060
*
0112120 ( ( 006 002 t y p e ? 006 001 S
0112140 T R E A M T A B L E ) \r
0112160
*
0112240 006 006 ( * ;
0112260 \r 006 001 006 006 " I f g
0112300 i v e n a T E X T O B J i
0112320 n p l a c e o f a r e a
0112340 d t a b l e , c o e r c e
0112360 i t t o t h e r e a d t
0112400 a b l e f o r t h a t e d
0112420 i t s e s s i o n " ) 006 001 \r
0112440
*
0112500 ( O R (
0112520 006 002 f e t c h 006 001 ( T E X T O
0112540 B J T X T R T B L ) 006 002 o f
0112560 006 001 ( 006 002 f e t c h 006 001 ( T
0112600 E X T S T R E A M \r
0112620
*
0112740 T E X T O B J ) \r
0112760
*
0113060 006 002 o
0113100 f 006 001 T A B L E ) ) \r
0113120
*
0113160 T E D I
0113200 T . R E A D T A B L E ) ) \r
0113220
*
0113260 ( T ( O R
0113300 T A B L E T E D I T . R E A D
0113320 T A B L E ] \r
0113340 ( C O N D
0113360 \r
0113400 ( ( L I T A T O
0113420 M C H )
0113440 006 006
0113460 ( * ; \r 006 001
0113500
*
0113560 006 006 " S y m b o l s a r e
0113600 c o n v e r t e d t o n u m
0113620 e r i c c h a r c o d e s " )
0113640 006 001 \r
0113660 ( A P P L
0113700 Y * ' C H A R C O D E C H )
0113720 ) \r
0113740 ( ( S T R I N
0113760 G P C H )
0114000 006
0114020 006 ( * ; " A s a r e s t
0114040 r i n g c h a r - n a m e s "
0114060 ) 006 001 \r
0114100 ( A P P
0114120 L Y * ' C H A R C O D E C H
0114140 ) ) \r
0114160 ( T C H )
0114200 ) ) \r ( W O R D
0114220 D E L E T E . T T C \r
0114240 ' W O R D D E
0114260 L E T E ) \r ( C
0114300 H A R D E L E T E . T T C \r
0114320 ' C H A
0114340 R D E L E T E ) \r
0114360 ( D E L E T E . T T C ' D E
0114400 L E T E ) \r ( U
0114420 N D O . T T C ' U N D O ) \r
0114440 ( R E D O . T T C
0114460 ' R E D O ) \r
0114500 ( F U N C T I O N C A L L . T T
0114520 C \r
0114540 ' F N ) \r ( C M
0114560 D . T T C ' C M D ) \r
0114600 ( N E X T . T T C ' N
0114620 E X T ) \r ( E X
0114640 P A N D . T T C ' E X P A N D
0114660 ) \r N I L ] ) \r
0114700 \r ( 006 004 T E D I T . S E T S Y N
0114720 T A X 006 001 \r [ L A M B D A
0114740 ( C H A R C L A S S T A B L
0114760 E ) 006 006 006 001
0115000
0115020 006 006 ( * ; " E
0115040 d i t e d 3 1 - M a r - 8 7
0115060 1 0 : 0 0 b y j d s " ) 006 001
0115100 \r
0115120
*
0115160 006 006
0115200 ( * ; \r 006 001
0115220
*
0115300 006 006 " S E T S T E D I T - S T
0115320 Y L E S Y N T A X B I T S
0115340 I N A T E R M T A B L E " )
0115360 006 001 \r ( P R O G 1 ( 006
0115400 002 T E D I T . G E T S Y N T A X
0115420 006 001 ( S E T Q C H A R ( C
0115440 O N D \r
0115460
0115500 ( (
0115520 L I T A T O M C H A R ) \r
0115540
*
0115600 ( A P P L Y *
0115620 ' C H A R C O D E C H A R )
0115640 ) \r
0115660
0115700 ( ( S T
0115720 R I N G P C H A R ) \r
0115740
*
0116000 ( A P P L Y * '
0116020 C H A R C O D E C H A R ) ) \r
0116040
*
0116100 ( T C H A
0116120 R ) ) ) \r
0116140 T A B L E ) \r
0116160 ( \ S E T S Y
0116200 N C O D E [ 006 002 f e t c h 006 001
0116220 R E A D S A 006 002 o f 006 001 (
0116240 C O N D \r
0116260
*
0116320 ( ( 006 002 t y p e ? 006 001 T E X
0116340 T O B J T A B L E ) \r
0116360
*
0116440 006 006 ( * ;
0116460 \r 006 001 006 006 " I f g i
0116500 v e n a T E X T O B J i n
0116520 p l a c e o f a r e a d
0116540 t a b l e , c o e r c e i
0116560 t t o t h e r e a d t a
0116600 b l e f o r t h a t e d i
0116620 t s e s s i o n " ) 006 001 \r
0116640
*
0116700 ( O R (
0116720 006 002 f e t c h 006 001 ( T E X T O
0116740 B J T X T R T B L ) 006 002 o f
0116760 006 001 T A B L E ) \r
0117000
*
0117040 T E D I T
0117060 . R E A D T A B L E ) ) \r
0117100
*
0117140 ( ( 006 002 t y p
0117160 e ? 006 001 S T R E A M T A B L
0117200 E ) \r
0117220
*
0117300 006 006 ( * ; \r 006 001 006
0117320 006 " I f g i v e n a T E X
0117340 T O B J i n p l a c e o f
0117360 a r e a d t a b l e , c
0117400 o e r c e i t t o t h e
0117420 r e a d t a b l e f o r t
0117440 h a t e d i t s e s s i o n
0117460 " ) 006 001 \r
0117500
*
0117540 ( O R ( 006 002 f e t c h 006 001
0117560 ( T E X T O B J T X T R T B
0117600 L ) 006 002 o f 006 001 ( 006 002 f e t
0117620 c h 006 001 ( T E X T S T R E A M
0117640 \r
0117660
*
0117760 T E X T O B J ) \r
0120000
*
0120100 006
0120120 002 o f 006 001 T A B L E ) ) \r
0120140
*
0120200 T
0120220 E D I T . R E A D T A B L E ) )
0120240 \r
0120260
0120300 ( T
0120320 ( O R T A B L E T E D I T .
0120340 R E A D T A B L E ] \r
0120360 C H A
0120400 R \r
0120420 ( S E L E C T Q C L A
0120440 S S \r
0120460 ( C H A R D E
0120500 L E T E C H A R D E L E T E .
0120520 T T C ) \r
0120540 ( W O R D
0120560 D E L E T E W O R D D E L E T
0120600 E . T T C ) \r
0120620 ( ( D
0120640 E L E T E L I N E D E L E T E
0120660 ) \r
0120700 D E
0120720 L E T E . T T C ) \r
0120740
0120760 ( U N D O U N D O . T T C ) \r
0121000
0121020 ( R E D O R E D O
0121040 . T T C ) \r
0121060 ( C M D
0121100 C M D . T T C ) \r
0121120
0121140 ( F N F U N C T I O N C A L L
0121160 . T T C ) \r
0121200 ( N E X
0121220 T N E X T . T T C ) \r
0121240
0121260 ( E X P A N D E X P A N D
0121300 . T T C ) \r
0121320 N O N E
0121340 . T T C ] ) \r \r ( 006 004 T E D I T
0121360 . G E T F U N C T I O N 006 001 \r
0121400 ( L A M B D A ( C H A R C O
0121420 D E T A B L E ) 006 006 006 001
0121440
*
0121500 006 006 ( * j d s " 1 9 - S e p
0121520 - 8 5 1 7 : 0 6 " ) 006 001 \r
0121540 \r
0121560 006 006 ( * G e t s t h e
0121600 F N t h a t i s c a l l
0121620 e d w h e n C H i s h i
0121640 t i n s i d e T E D I T . )
0121660 006 001 \r \r ( S E T Q T A
0121700 B L E ( C O N D \r
0121720 ( ( 006
0121740 002 t y p e ? 006 001 T E X T O B J
0121760 T A B L E ) \r
0122000 \r 006 006 (
0122020 * I f g i v e n a T E X
0122040 T O B J i n p l a c e o f
0122060 a r e a d t a b l e , c
0122100 o e r c e i t t o t h e
0122120 r e a d t a b l e f o r \r
0122140 006 001 006 006 t h
0122160 a t e d i t s e s s i o n )
0122200 006 001 \r \r
0122220 ( 006 002 f e t c h
0122240 006 001 ( T E X T O B J T X T R
0122260 T B L ) 006 002 o f 006 001 T A B L
0122300 E ) ) \r
0122320 ( ( 006 002 t y p e ?
0122340 006 001 S T R E A M T A B L E )
0122360 \r \r
0122400 006 006 ( * I f g i
0122420 v e n a T E X T O B J i n
0122440 p l a c e o f a r e a d
0122460 t a b l e , c o e r c e i
0122500 t t o t h e r e a d t a
0122520 b l e f o r \r 006 001
0122540 006 006 t h a t e d i t
0122560 s e s s i o n ) 006 001 \r \r
0122600
0122620 ( 006 002 f e t c h 006 001 ( T E X
0122640 T O B J T X T R T B L ) 006 002
0122660 o f 006 001 ( 006 002 f e t c h 006 001
0122700 ( T E X T S T R E A M T E X T
0122720 O B J ) 006 002 o f 006 001 T A B L
0122740 E ) ) ) \r
0122760 ( T ( O R T
0123000 A B L E T E D I T . R E A D T
0123020 A B L E ) ) ) ) \r ( S E
0123040 T Q C H A R C O D E ( C O N
0123060 D \r
0123100 ( ( L I T A T O
0123120 M C H A R C O D E ) \r
0123140
0123160 ( A P P L Y * ' C H A R
0123200 C O D E C H A R C O D E ) ) \r
0123220
0123240 ( T C H A R C O D
0123260 E ) ) ) \r ( A N D T A
0123300 B L E ( 006 002 t y p e ? 006 001 R
0123320 E A D T A B L E P T A B L E )
0123340 \r ( I E Q P
0123360 F U N C T I O N C A L L . T T C
0123400 ( \ S Y N C O D E ( 006 002 f e
0123420 t c h 006 001 R E A D S A 006 002 o
0123440 f 006 001 T A B L E ) \r
0123460
*
0123520 C H A R C O D E ) ) \r
0123540 ( 006 002 f e t c h 006 001
0123560 R E A D M A C R O D E F S 006
0123600 002 o f 006 001 T A B L E ) \r
0123620 ( G E T H A S H C
0123640 H A R C O D E ( 006 002 f e t c h
0123660 006 001 R E A D M A C R O D E F S
0123700 006 002 o f 006 001 T A B L E ) ) )
0123720 ) ) \r \r ( 006 004 T E D I T . S E T
0123740 F U N C T I O N 006 001 \r [ L A
0123760 M B D A ( C H A R C O D E F
0124000 N R T B L ) 006 006 006 001
0124020
0124040 006 006 ( *
0124060 ; " E d i t e d 3 1 - M a
0124100 r - 8 7 1 0 : 5 8 b y j d
0124120 s " ) 006 001 \r
0124140
*
0124220 006 006 ( * ; \r 006 001
0124240
0124260 006 006 " S e t T
0124300 E D I T s ( r e a d ) t a b
0124320 l e s o t h a t F N i s
0124340 c a l l e d w h e n e v e r
0124360 C H A R C O D E i s t y p
0124400 e d . " ) 006 001 \r
0124420
*
0124500 006 006 ( * ; \r 006 001
0124520
*
0124600 006 006 " I f F N i s N I L
0124620 , m a k e t h e c h a r a
0124640 c t e r b e n o r m a l a
0124660 g a i n . " ) 006 001 \r [ S
0124700 E T Q R T B L ( C O N D \r
0124720
0124740 ( ( 006 002 t y p e ? 006 001 T E X
0124760 T O B J R T B L )
0125000
0125020 006 006 ( * ; \r 006 001 006
0125040 006 " I f g i v e n a T E X
0125060 T O B J i n p l a c e o f
0125100 a r e a d t a b l e , c
0125120 o e r c e i t t o t h e
0125140 r e a d t a b l e f o r t
0125160 h a t e d i t s e s s i o n
0125200 " ) 006 001 \r
0125220 ( 006 002 f e t c h
0125240 006 001 ( T E X T O B J T X T R
0125260 T B L ) 006 002 o f 006 001 R T B L
0125300 ) ) \r
0125320 ( ( 006 002 t y p e ? 006 001
0125340 S T R E A M R T B L )
0125360
0125400 006 006 ( * ; \r 006 001
0125420 006 006 " I f g i v e n a
0125440 T E X T O B J i n p l a c
0125460 e o f a r e a d t a b l
0125500 e , c o e r c e i t t o
0125520 t h e r e a d t a b l e f
0125540 o r t h a t e d i t s e s
0125560 s i o n " ) 006 001 \r
0125600 ( 006 002 f
0125620 e t c h 006 001 ( T E X T O B J
0125640 T X T R T B L ) 006 002 o f 006 001
0125660 ( 006 002 f e t c h 006 001 ( T E X T
0125700 S T R E A M T E X T O B J )
0125720 006 002 o f 006 001 R T B L ) ) ) \r
0125740
0125760 ( T ( O R R T B L T E D
0126000 I T . R E A D T A B L E ] \r
0126020 ( \ S E T S Y N C O D E (
0126040 006 002 f e t c h 006 001 R E A D S A
0126060 006 002 o f 006 001 R T B L ) \r
0126100 ( S E T Q C
0126120 H A R C O D E ( C O N D \r
0126140
0126160 ( ( L I T
0126200 A T O M C H A R C O D E ) \r
0126220
0126240 ( A P
0126260 P L Y * ' C H A R C O D E C
0126300 H A R C O D E ) ) \r
0126320
0126340 ( ( S T R I N G P
0126360 C H A R C O D E ) \r
0126400
0126420 ( A P P L Y *
0126440 ' C H A R C O D E C H A R C
0126460 O D E ) ) \r
0126500
0126520 ( T C H A R C O D E ) )
0126540 ) \r ( C O
0126560 N D \r
0126600 ( F N
0126620
*
0126660 006 006 ( * ; \r 006 001
0126700
0126720 006 006 " H e
0126740 g a v e u s a f u n c t
0126760 i o n t o c a l l . S e
0127000 t u p t h e s y n t a x
0127020 s o i t I S c a l l e d .
0127040 " ) 006 001 \r
0127060 F U N C T I O N C
0127100 A L L . T T C ) \r
0127120 ( T
0127140
*
0127200 006 006 ( * ; \r 006 001
0127220 006 006 " H e g a v e
0127240 u s a f u n c t i o n o
0127260 f N I L , m e a n i n g '
0127300 t u r n i t o f f ' .
0127320 C a u s e t h i s c h a r a
0127340 c t e r t o b e c o m e n
0127360 o r m a l . " ) 006 001 \r
0127400 N O N E
0127420 . T T C ) ) )
0127440
0127460 006 006 ( * ; \r
0127500 006 001
0127520
*
0127560 006 006 " M
0127600 a r k t h e c h a r a c t e
0127620 r a s i n v o k i n g a
0127640 f u n c t i o n " ) 006 001 \r
0127660 ( O R ( 006 002 f e t c h 006 001
0127700 R E A D M A C R O D E F S 006 002
0127720 o f 006 001 R T B L ) \r
0127740 ( 006 002 r e p l a c e 006 001
0127760 R E A D M A C R O D E F S 006 002
0130000 o f 006 001 R T B L 006 002 w i t h
0130020 006 001 ( H A R R A Y 5 0 ) ) )
0130040 006 006 ( * ; \r 006 001
0130060
*
0130120 006 006 " M a k e
0130140 s u r e t h e r e ' s a
0130160 h a s h t a b l e t o s t
0130200 o r e t h e f u n c t i o n
0130220 i n . " ) 006 001 \r ( P U
0130240 T H A S H C H A R C O D E F
0130260 N ( 006 002 f e t c h 006 001 R E A
0130300 D M A C R O D E F S 006 002 o f 006
0130320 001 R T B L ] ) \r \r ( 006 004 T E D
0130340 I T . W O R D G E T 006 001 \r (
0130360 L A M B D A ( C H T A B L E
0130400 ) 006 006 006 001
0130420
0130440 006 006
0130460 ( * j d s " 2 7 - M A Y - 8
0130500 3 1 3 : 2 4 " ) 006 001 \r
0130520 ( \ S Y N C O D E ( 006 002 f e t
0130540 c h 006 001 R E A D S A 006 002 o f
0130560 006 001 ( O R T A B L E T E D
0130600 I T . W O R D B O U N D . R E A
0130620 D T A B L E ) ) \r
0130640 ( C O N D \r
0130660 ( ( S M A L L P
0130700 C H ) ) \r
0130720 ( T ( C H C O N 1 C
0130740 H ) ) ) ) ) ) \r \r ( 006 004 T E D I
0130760 T . W O R D S E T 006 001 \r ( L
0131000 A M B D A ( C H A R C O D E
0131020 C L A S S T A B L E ) 006 006 006 001
0131040
0131060 006 006 (
0131100 * j d s " 1 - J U N - 8 3
0131120 1 2 : 2 3 " ) 006 001 \r
0131140
*
0131220 006 006 ( * S E T
0131240 S T E D I T - S T Y L E S Y
0131260 N T A X B I T S I N A \r
0131300 006 001
0131320
*
0131360 006
0131400 006 T E R M T A B L E ) 006 001 \r
0131420 ( \ S E T S Y N C O D E (
0131440 006 002 f e t c h 006 001 R E A D S A
0131460 006 002 o f 006 001 ( O R T A B L
0131500 E T E D I T . W O R D B O U N
0131520 D . R E A D T A B L E ) ) \r
0131540 ( C O N D \r
0131560 ( ( S
0131600 M A L L P C H A R C O D E ) )
0131620 \r (
0131640 T ( C H C O N 1 C H A R C O
0131660 D E ) ) ) \r
0131700 ( C O N D \r
0131720 ( ( F I X P C L A S
0131740 S ) ) \r
0131760 ( T ( S E L E C T Q C L
0132000 A S S \r
0132020 ( P U N C T U
0132040 A T I O N P U N C T . T T C )
0132060 \r
0132100 ( W H I T E S P A C
0132120 E W H I T E S P A C E . T T C
0132140 ) \r
0132160 ( T E X T T E X
0132200 T . T T C ) \r
0132220 T E X T
0132240 . T T C ) ) ) ) ) ) \r ) \r ( D E
0132260 C L A R E % : D O N T E V A L
0132300 @ L O A D D O C O P Y \r \r (
0132320 R P A Q 006 002 T E D I T . R E A
0132340 D T A B L E 006 001 ( \ T E D I T
0132360 . R E A D T A B L E ) ) \r \r ( R
0132400 P A Q 006 002 T E D I T . W O R D
0132420 B O U N D . R E A D T A B L E 006
0132440 001 ( \ T E D I T . W O R D B O
0132460 U N D . R E A D T A B L E ) ) \r
0132500 ) \r ( D E C L A R E % : D O E
0132520 V A L @ C O M P I L E D O N T
0132540 C O P Y \r \r ( G L O B A L V A R
0132560 S T E D I T . R E A D T A B L
0132600 E T E D I T . W O R D B O U N
0132620 D . R E A D T A B L E ) \r ) \r (
0132640 P U T P R O P S T E D I T C O
0132660 M M A N D C O P Y R I G H T
0132700 ( " J o h n S y b a l s k y
0132720 & X e r o x C o r p o r a t
0132740 i o n " 1 9 8 3 1 9 8 4 1
0132760 9 8 5 1 9 8 6 1 9 8 7 ) ) \r
0133000 ( D E C L A R E % : D O N T C
0133020 O P Y \r ( F I L E M A P (
0133040 N I L ( 2 7 1 3 3 2 9 1 5
0133060 ( \ T E D I T . I N S E R T . T
0133100 T Y . B U F F E R 2 7 2 3 .
0133120 4 0 7 4 ) ( \ T E D I T . I
0133140 N T E R R U P T . S E T U P 4
0133160 0 7 6 . 5 6 4 9 ) \r ( \ T
0133200 E D I T . M A R K A C T I V E
0133220 5 6 5 1 . 5 8 3 9 ) ( \ T
0133240 E D I T . M A R K I N A C T I V
0133260 E 5 8 4 1 . 6 0 3 3 ) (
0133300 \ P N C 6 0 3 5 . 6 6 7 5
0133320 ) ( \r \ T E D I T . C O M M A
0133340 N D . L O O P 6 6 7 7 . 2
0133360 7 8 4 5 ) ( \ T E D I T . C O
0133400 M M A N D . R E S E T . S E T U
0133420 P 2 7 8 4 7 . 3 2 9 1 3 )
0133440 ) ( 3 3 4 7 3 4 6 2 5 2 (
0133460 \r \ T E D I T . R E A D T A B L
0133500 E 3 3 4 8 3 . 3 5 1 2 7 )
0133520 ( \ T E D I T . W O R D B O U
0133540 N D . R E A D T A B L E 3 5 1
0133560 2 9 . 3 7 1 6 1 ) ( T E D
0133600 I T . G E T S Y N T A X 3 7 1
0133620 6 3 . \r 3 9 3 5 9 ) ( T E
0133640 D I T . S E T S Y N T A X 3 9
0133660 3 6 1 . 4 1 7 0 2 ) ( T E
0133700 D I T . G E T F U N C T I O N
0133720 4 1 7 0 4 . 4 2 9 6 2 ) (
0133740 T E D I T . S E T F U N C T I O
0133760 N 4 2 9 6 4 . \r 4 5 2 7 2
0134000 ) ( T E D I T . W O R D G E T
0134020 4 5 2 7 4 . 4 5 5 4 3 )
0134040 ( T E D I T . W O R D S E T 4
0134060 5 5 4 5 . 4 6 2 5 0 ) ) ) )
0134100 ) \r S T O P \r
0134107