$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>TEDITHISTORY!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 2
0000120 1 - O c t - 8 6 0 4 : 1 0 : 5
0000140 8 " 006 004 { E R I S } < T E D I
0000160 T > T E D I T H I S T O R Y . ;
0000200 9 006 001 2 9 6 5 9 \r \r
0000220 p r e v i o u s d a t e
0000240 % : " 6 - O c t - 8 6 1 3
0000260 : 0 5 : 5 9 " { E R I S } < T
0000300 E D I T > T E D I T H I S T O R
0000320 Y . ; 8 ) \r \r \r ( * " \r C o p
0000340 y r i g h t ( c ) 1 9 8 3 ,
0000360 1 9 8 4 , 1 9 8 5 , 1 9 8
0000400 6 b y J o h n S y b a l s
0000420 k y & X e r o x C o r p o
0000440 r a t i o n . A l l r i g
0000460 h t s r e s e r v e d . \r " )
0000500 \r \r ( P R E T T Y C O M P R I N
0000520 T T E D I T H I S T O R Y C O
0000540 M S ) \r \r ( R P A Q Q 006 002 T E
0000560 D I T H I S T O R Y C O M S 006 001
0000600 ( ( F I L E S T E D I T D E
0000620 C L S ) \r
0000640 ( D
0000660 E C L A R E % : E V A L @ C O
0000700 M P I L E D O N T C O P Y (
0000720 C O N S T A N T S ( \ S C R A
0000740 T C H L E N 6 4 ) ) \r
0000760
0001000 ( F I L
0001020 E S ( L O A D C O M P ) \r
0001040
*
0001100 T E D I T D E C L S )
0001120 ) \r
0001140 ( G L O B
0001160 A L V A R S T E D I T . H I S
0001200 T O R Y . T Y P E L S T T E D
0001220 I T . H I S T O R Y L S T ) \r
0001240
0001260 ( I N I T V A R
0001300 S ( T E D I T . H I S T O R Y
0001320 . T Y P E L S T N I L ) \r
0001340
0001360 ( T
0001400 E D I T . H I S T O R Y L S T
0001420 N I L ) ) \r
0001440 (
0001460 F N S \ T E D I T . H I S T O
0001500 R Y A D D T E D I T . U N D O
0001520 T E D I T . U N D O . I N S E
0001540 R T I O N T E D I T . U N D O
0001560 . D E L E T I O N \r
0001600
0001620 T E D I T . R
0001640 E D O T E D I T . R E D O . I
0001660 N S E R T I O N T E D I T . U
0001700 N D O . M O V E T E D I T . U
0001720 N D O . R E P L A C E \r
0001740
0001760 T E D I T
0002000 . R E D O . R E P L A C E T E
0002020 D I T . R E D O . M O V E ) ) )
0002040 \r ( F I L E S L O A D T E D I
0002060 T D E C L S ) \r ( D E C L A R E
0002100 % : E V A L @ C O M P I L E
0002120 D O N T C O P Y \r ( D E C L A
0002140 R E % : E V A L @ C O M P I L
0002160 E \r \r ( R P A Q Q 006 002 \ S C
0002200 R A T C H L E N 006 001 6 4 ) \r \r
0002220 ( C O N S T A N T S ( \ S C R
0002240 A T C H L E N 6 4 ) ) \r ) \r \r
0002260 ( F I L E S L O A D ( L O A D
0002300 C O M P ) \r T E D
0002320 I T D E C L S ) \r ) \r ( D E C L
0002340 A R E % : D O E V A L @ C O M
0002360 P I L E D O N T C O P Y \r \r (
0002400 G L O B A L V A R S T E D I T
0002420 . H I S T O R Y . T Y P E L S T
0002440 T E D I T . H I S T O R Y L S
0002460 T ) \r ) \r \r ( R P A Q ? 006 002 T
0002500 E D I T . H I S T O R Y . T Y P
0002520 E L S T 006 001 N I L ) \r \r ( R P
0002540 A Q ? 006 002 T E D I T . H I S T
0002560 O R Y L S T 006 001 N I L ) \r ( D
0002600 E F I N E Q \r \r ( 006 004 \ T E D I
0002620 T . H I S T O R Y A D D 006 001 \r
0002640 ( L A M B D A ( T E X T O B
0002660 J E V E N T ) 006 006 006 001
0002700
*
0002740 006 006 ( * j d s " 1 0 - J a n
0002760 - 8 4 1 6 : 2 6 " ) 006 001 \r
0003000 \r
0003020 006 006 ( * A d d a n e
0003040 w e v e n t t o t h e h
0003060 i s t o r y l i s t . F o r
0003100 n o w , t h i s j u s t
0003120 r e - s e t s t h e w h o l
0003140 e \r 006 001 006
0003160 006 l i s t t o b e t h e
0003200 o n e e v e n t . . . ) 006 001 \r
0003220 \r ( 006 002 r e p l a c e 006
0003240 001 T X T H I S T O R Y 006 002 o
0003260 f 006 001 T E X T O B J 006 002 w i
0003300 t h 006 001 E V E N T ) ) ) \r \r (
0003320 006 004 T E D I T . U N D O 006 001 \r
0003340 ( L A M B D A ( T E X T O B
0003360 J ) 006 006 006 001
0003400
*
0003440 006 006 ( * j d s " 2 1 - M a y
0003460 - 8 4 1 4 : 1 0 " ) 006 001 \r
0003500
*
0003560 006 006 ( *
0003600 U n d o t h e l a s t t h
0003620 i n g t h i s g u y d i d
0003640 . ) 006 001 \r
0003660
*
0003740 006 006 ( * F o r m a t o f
0003760 t h e h i s t o r y l i s
0004000 t % : \r 006 001
0004020
*
0004100 006 006 ( S e l e c t o r - k
0004120 i n d - o f - l a s t - o p -
0004140 - i n f o - - ) ) 006 001 \r
0004160 ( P R O G ( ( S E L ( 006 002 f
0004200 e t c h 006 001 S E L 006 002 o f 006
0004220 001 T E X T O B J ) ) \r
0004240 E V E N T C H #
0004260 L E N F I R S T P I E C E )
0004300 \r ( C O N D
0004320 \r ( (
0004340 S E T Q E V E N T ( 006 002 f e
0004360 t c h 006 001 T X T H I S T O R Y
0004400 006 002 o f 006 001 T E X T O B J )
0004420 ) \r \r
0004440 006 006 ( * T h e r
0004460 e r e a l l y i s s o m e
0004500 t h i n g t o U N D O . D
0004520 e c i d e w h a t , & f i
0004540 x i t . ) 006 001 \r \r
0004560 ( S E T Q L E
0004600 N ( 006 002 f e t c h 006 001 T H L
0004620 E N 006 002 o f 006 001 E V E N T )
0004640 ) 006
0004660 006 ( * L e n g t h o f t h
0004700 e t e x t t h a t w a s
0004720 \r 006 001
0004740
*
0005020 006 006 i n s e r t e d / d e l e t
0005040 e d / c h a n g e d ) 006 001 \r
0005060 ( S E T
0005100 Q C H # ( 006 002 f e t c h 006 001
0005120 T H C H # 006 002 o f 006 001 E V
0005140 E N T ) )
0005160 006 006 ( * S t a r t i n g
0005200 C H # o f t h e c h a n
0005220 g e ) 006 001 \r
0005240 ( S E T Q F I R S T P
0005260 I E C E ( 006 002 f e t c h 006 001
0005300 T H F I R S T P I E C E 006 002 o
0005320 f 006 001 E V E N T ) ) 006 006 ( *
0005340 F i r s t p i e c e a f f e
0005360 c t e d b y t h e c h a n
0005400 g e ) 006 001 \r
0005420 ( R E S E T L S T ( R
0005440 E S E T S A V E ( C U R S O R
0005460 W A I T I N G C U R S O R ) )
0005500 \r
0005520 ( \ S H O W S E L
0005540 S E L N I L N I L ) \r
0005560
0005600 ( S E L E C T Q ( 006 002 f e
0005620 t c h 006 001 T H A C T I O N 006
0005640 002 o f 006 001 E V E N T ) \r
0005660
0005700 ( ( I n s e r t C
0005720 o p y I n c l u d e )
0005740 006 006 ( * I
0005760 t w a s a n i n s e r t i
0006000 o n ) 006 001 \r
0006020
0006040 ( 006 002 T E D I T . U N D
0006060 O . I N S E R T I O N 006 001 T E
0006100 X T O B J E V E N T L E N
0006120 C H # F I R S T P I E C E ) )
0006140 \r
0006160 ( D e l e t
0006200 e
0006220 006 006
0006240 ( * I t w a s a d e l e
0006260 t i o n ) 006 001 \r
0006300
0006320 ( 006 002 T E D I
0006340 T . U N D O . D E L E T I O N 006
0006360 001 T E X T O B J E V E N T
0006400 L E N C H # F I R S T P I E
0006420 C E ) ) \r
0006440 ( L
0006460 o o k s
0006500
0006520 006 006 ( * I t w a s a
0006540 c h a r a c t e r - l o o k s
0006560 c h a n g e ) 006 001 \r
0006600
0006620 ( T E D I T
0006640 . U N D O . L O O K S T E X T
0006660 O B J E V E N T L E N C H
0006700 # F I R S T P I E C E ) ) \r
0006720
0006740 ( P a r a L o o
0006760 k s
0007000 006 006 ( *
0007020 I t w a s a P A R A l
0007040 o o k s c h a n g e ) 006 001 \r
0007060
*
0007120 ( T E D I T . U N D O . P
0007140 A R A L O O K S T E X T O B J
0007160 E V E N T L E N C H # F
0007200 I R S T P I E C E ) ) \r
0007220
0007240 ( M o v e ( 006 002 T E
0007260 D I T . U N D O . M O V E 006 001
0007300 T E X T O B J E V E N T L E
0007320 N C H # F I R S T P I E C E
0007340 ) \r
0007360
*
0007420 006
0007440 006 ( * H e m o v e d s o m
0007460 e t e x t ) 006 001 \r
0007500
0007520 ) \r
0007540
0007560 ( R e p l a c e ( 006 002
0007600 T E D I T . U N D O . R E P L A
0007620 C E 006 001 T E X T O B J E V E
0007640 N T L E N C H # F I R S T
0007660 P I E C E ) \r
0007700
*
0007760 006 006 ( * H e r e p l
0010000 a c e d o n e p i e c e o
0010020 f t e x t w i t h \r 006 001
0010040
*
0010120 006 006 a n
0010140 o t h e r . ) 006 001 \r
0010160
0010200 ) \r
0010220
0010240 ( G e t
0010260
0010300 006 006 ( *
0010320 H e d i d a G E T - -
0010340 n o t u n d o a b l e . ) 006 001
0010360 \r
0010400 (
0010420 T E D I T . P R O M P T P R I N
0010440 T T E X T O B J " Y o u c
0010460 a n ' t U N D O a G E T .
0010500 " T ) ) \r
0010520 (
0010540 P u t
0010560
0010600 006 006 ( * H e d i d a
0010620 P U T - - n o t u n d o
0010640 a b l e . ) 006 001 \r
0010660
0010700 ( T E D I T . P R
0010720 O M P T P R I N T T E X T O B
0010740 J " Y o u c a n ' t u n d
0010760 o a P u t . " T ) ) \r
0011000
0011020 ( C O N D \r
0011040
0011060 ( ( A N D (
0011100 S E T Q U N D O F N ( A S S
0011120 O C ( 006 002 f e t c h 006 001 T H
0011140 A C T I O N 006 002 o f 006 001 E V
0011160 E N T ) \r
0011200
*
0011240 T E D I T
0011260 . H I S T O R Y . T Y P E L S T
0011300 ) ) \r
0011320
0011340 ( S E T Q U N D O F
0011360 N ( C A D D R U N D O F N )
0011400 ) ) \r
0011420
*
0011500 006 006 ( * T E D I T . H I S T O
0011520 R Y . T Y P E L S T i s a n
0011540 A L S T o f \r 006 001
0011560
*
0011640 006 006 f o r m
0011660 ( t y p e r e d o f n u n d
0011700 o f n ) ) 006 001 \r
0011720
0011740 ( A P P L Y * U N D
0011760 O F N T E X T O B J E V E N
0012000 T L E N C H # F I R S T P
0012020 I E C E ) ) \r
0012040
0012060 ( T ( T E D I T . P R O
0012100 M P T P R I N T T E X T O B J
0012120 ( C O N C A T " U N D O n
0012140 o t i m p l e m e n t e d f
0012160 o r " \r
0012200
*
0012260 ( 006 002 f e t c h 006 001
0012300 T H A C T I O N 006 002 o f 006 001
0012320 E V E N T ) ) \r
0012340
0012360 T
0012400 ) ) ) ) \r
0012420 ( \ S H O W
0012440 S E L S E L N I L T ) ) )
0012460 \r ( T
0012500 ( T E D I T . P R O M P T P R
0012520 I N T T E X T O B J " N o t
0012540 h i n g t o U N D O . " T
0012560 ) ) ) ) ) ) \r \r ( 006 004 T E D I T
0012600 . U N D O . I N S E R T I O N 006
0012620 001 \r ( L A M B D A ( T E X
0012640 T O B J E V E N T L E N C
0012660 H # F I R S T P I E C E ) 006 006
0012700 006 001
0012720 006 006 ( * j d s " 2 7 -
0012740 A u g - 8 5 1 5 : 0 4 " ) 006 001
0012760 \r
0013000
*
0013040 006 006
0013060 ( * U N D O a p r i o r
0013100 I n s e r t , C o p y , o r
0013120 \r 006 001
0013140
*
0013220 006 006 I n c l u d e . ) 006 001 \r
0013240 ( P R O G ( O B J D E
0013260 L E T E F N ) \r
0013300 ( 006 002 r e p l a c e 006 001 \
0013320 I N S E R T P C V A L I D 006 002
0013340 o f 006 001 T E X T O B J 006 002 w
0013360 i t h 006 001 N I L ) \r
0013400 \r
0013420 006 006 ( * K e e p T E d i t
0013440 f r o m r e u s i n g t h e
0013460 c u r r e n t c a c h e p
0013500 i e c e i n t h e f u t u
0013520 r e - - \r 006 001
0013540 006 006 i t i s p r o b a b
0013560 l y i n v a l i d ) 006 001 \r \r
0013600 ( \ D E L E T
0013620 E C H C H # ( I P L U S C
0013640 H # L E N ) \r
0013660 L E N T E X
0013700 T O B J ) \r
0013720 ( \ F I X D L I N E S ( 006 002 f
0013740 e t c h 006 001 L I N E S 006 002 o
0013760 f 006 001 T E X T O B J ) \r
0014000 ( 006
0014020 002 f e t c h 006 001 S E L 006 002 o
0014040 f 006 001 T E X T O B J ) \r
0014060 C H
0014100 # \r
0014120 ( I P L U S C H # L E
0014140 N ) \r
0014160 T E X T O B J )
0014200
*
0014240 006 006 ( * F i x t h e l i n
0014260 e d e s c r i p t o r s &
0014300 \r 006 001
0014320
*
0014400 006 006 s e l e c t i o n ) 006 001 \r
0014420 ( T E D I T .
0014440 U P D A T E . S C R E E N T E
0014460 X T O B J )
0014500 006 006 ( *
0014520 F i x u p t h e d i s p
0014540 l a y f o r a l l t h i s
0014560 \r 006 001
0014600
*
0014660 006 006 f o o f a r a w ) 006 001 \r
0014700 ( 006 002 r e p l
0014720 a c e 006 001 P O I N T 006 002 o f
0014740 006 001 ( 006 002 f e t c h 006 001 S E
0014760 L 006 002 o f 006 001 T E X T O B J
0015000 ) 006 002 w i t h 006 001 ' L E F T
0015020 ) \r ( \ F I
0015040 X S E L ( 006 002 f e t c h 006 001
0015060 S E L 006 002 o f 006 001 T E X T O
0015100 B J ) \r
0015120 T E X T O B J )
0015140
*
0015200 006 006 ( * R e a l l y f i x
0015220 t h e s e l e c t i o n ) 006
0015240 001 \r ( 006 002 r
0015260 e p l a c e 006 001 T H A C T I O
0015300 N 006 002 o f 006 001 E V E N T 006
0015320 002 w i t h 006 001 ' D e l e t e )
0015340 \r \r
0015360 006 006 ( * M a k e
0015400 t h e U N D O b e U N D O
0015420 a b l e , b y c h a n g i n
0015440 g t h e e v e n t t o a
0015460 d e l e t i o n . ) 006 001 \r \r
0015500 ) ) ) \r \r ( 006 004 T E D
0015520 I T . U N D O . D E L E T I O N
0015540 006 001 \r ( L A M B D A ( T E
0015560 X T O B J E V E N T L E N
0015600 C H # F I R S T P I E C E ) 006
0015620 006 006 001
0015640 006 006 ( * j d s " 2 7
0015660 - A u g - 8 5 1 4 : 5 9 " ) 006
0015700 001 \r
0015720
*
0015760 006
0016000 006 ( * U N D O a p r i o r
0016020 D e l e t i o n o f t e x
0016040 t . ) 006 001 \r ( P R O G
0016060 ( ( I N S P C # ( \ C H T O P
0016100 C N O C H # ( 006 002 f e t c h
0016120 006 001 P C T B 006 002 o f 006 001 T
0016140 E X T O B J ) ) ) \r
0016160 ( N P C ( 006 002 f e t
0016200 c h 006 001 N E X T P I E C E 006
0016220 002 o f 006 001 F I R S T P I E C E
0016240 ) ) \r ( P
0016260 C T B ( 006 002 f e t c h 006 001 P
0016300 C T B 006 002 o f 006 001 T E X T O
0016320 B J ) ) \r
0016340 ( S E L ( 006 002 f e t c h 006 001
0016360 S E L 006 002 o f 006 001 T E X T O
0016400 B J ) ) \r
0016420 ( O T E X T L E N ( 006 002 f e t
0016440 c h 006 001 T E X T L E N 006 002 o
0016460 f 006 001 T E X T O B J ) ) \r
0016500 N E W P I E C
0016520 E I N S P C O B J E C T I
0016540 N S E R T F N ) \r
0016560 ( 006 002 r e p l a c e 006 001
0016600 \ I N S E R T P C V A L I D 006
0016620 002 o f 006 001 T E X T O B J 006 002
0016640 w i t h 006 001 N I L ) \r
0016660 \r
0016700 006 006 ( * K e e p f u t u r
0016720 e p e o p l e f r o m s t
0016740 e p p i n g o n t h e c u
0016760 r r e n t c a c h e p i e c
0017000 e , w h i c h i s \r 006 001
0017020 006 006 p r o b a
0017040 b l y n o l o n g e r v a
0017060 l i d . ) 006 001 \r \r
0017100 ( C O N D \r
0017120 ( ( I G R E A T E R
0017140 P C H # ( \ E D I T E L T
0017160 P C T B I N S P C # ) ) \r
0017200 ( S E T
0017220 Q I N S P C ( \ S P L I T P
0017240 I E C E ( \ E D I T E L T P
0017260 C T B ( A D D 1 I N S P C #
0017300 ) ) \r
0017320
0017340 C H # T E X T O B J
0017360 I N S P C # ) ) \r
0017400 ( 006 002 a d d 006 001
0017420 I N S P C # 1 ) ) \r
0017440 ( T ( S E T Q
0017460 I N S P C ( \ E D I T E L T
0017500 P C T B ( A D D 1 I N S P
0017520 C # ) ) ) ) ) \r
0017540 ( S E T Q N E W P I E C E
0017560 ( 006 002 c r e a t e 006 001 P I E
0017600 C E 006 002 u s i n g 006 001 F I R
0017620 S T P I E C E ) ) \r
0017640 ( 006 002 r e p l a c e 006 001
0017660 T H F I R S T P I E C E 006 002
0017700 o f 006 001 E V E N T 006 002 w i t
0017720 h 006 001 N E W P I E C E ) \r
0017740 ( 006 002 b i n d 006
0017760 001 ( T L _ 0 ) 006 002 w h i
0020000 l e 006 001 ( I L E S S P T L
0020020 L E N ) 006 002 d o 006 001 ( \ I N
0020040 S E R T P I E C E N E W P I E
0020060 C E I N S P C T E X T O B J
0020100 ) \r
0020120
*
0020200 006 006 ( * I n s e r t t h e
0020220 p i e c e b a c k i n ) 006 001
0020240 \r
0020260
*
0020320 ( C O N D \r
0020340
*
0020400 ( (
0020420 A N D ( S E T Q O B J E C T
0020440 ( 006 002 f e t c h 006 001 P O B J
0020460 006 002 o f 006 001 N E W P I E C E
0020500 ) ) \r
0020520
*
0020560 ( S
0020600 E T Q I N S E R T F N ( I M
0020620 A G E O B J P R O P O B J E C
0020640 T \r
0020660
*
0020760 ' W H E N I N S E R T E D
0021000 F N ) ) ) \r
0021020 \r 006 006 ( *
0021040 I f t h i s i s a n i m
0021060 a g e o b j e c t , a n d i
0021100 t h a s a n i n s e r t f
0021120 n , c a l l i t . ) 006 001 \r \r
0021140
*
0021220 ( A P P L Y * I N
0021240 S E R T F N O B J E C T ( \
0021260 T E D I T . P R I M A R Y W \r
0021300
*
0021420 T E X T O B J ) \r
0021440
*
0021520 N I L \r
0021540
*
0021620 ( T E X
0021640 T S T R E A M T E X T O B J )
0021660 ) ) ) \r
0021700
*
0021740 ( S E T Q T L (
0021760 I P L U S T L ( 006 002 f e t c
0022000 h 006 001 P L E N 006 002 o f 006 001
0022020 F I R S T P I E C E ) ) ) \r
0022040
*
0022120 006 006 ( *
0022140 K e e p t r a c k o f h
0022160 o w m u c h w e ' v e \r 006
0022200 001
0022220
*
0022260 006 006
0022300 r e - i n s e r t e d ) 006 001 \r
0022320
*
0022400 ( S E T Q F I R S T P I E C
0022420 E N P C ) \r
0022440
*
0022520 006 006 ( * M o v e t
0022540 o t h e n e x t p i e c e
0022560 t o i n s e r t ) 006 001 \r
0022600
*
0022660 ( A N D N P C ( S E T Q N
0022700 P C ( 006 002 f e t c h 006 001 N E
0022720 X T P I E C E 006 002 o f 006 001 N
0022740 P C ) ) ) \r
0022760
*
0023020 ( S E T Q N E
0023040 W P I E C E ( 006 002 c r e a t e
0023060 006 001 P I E C E 006 002 u s i n g
0023100 006 001 F I R S T P I E C E ) ) )
0023120 \r
0023140
*
0023200 006 006
0023220 ( * D o n e h e r e b e c
0023240 a u s e \ I N S E R T P I E C
0023260 E \r 006 001
0023300
*
0023360 006 006 c r e a m s t h e N
0023400 E X T P I E C E f i e l d . )
0023420 006 001 \r ( 006 002
0023440 r e p l a c e 006 001 T E X T L E
0023460 N 006 002 o f 006 001 T E X T O B J
0023500 006 002 w i t h 006 001 ( I P L U S
0023520 ( 006 002 f e t c h 006 001 T E X T
0023540 L E N 006 002 o f 006 001 T E X T O
0023560 B J ) \r
0023600
*
0023640 L E N ) ) \r
0023660 \r
0023700 006 006 ( * R e s e t t h e
0023720 t e x t l e n g t h a n d
0023740 E O F p t r o f t h e t
0023760 e x t s t r e a m . ) 006 001 \r \r
0024000 ( \ F I X I
0024020 L I N E S T E X T O B J S E
0024040 L C H # L E N O T E X T L
0024060 E N ) 006 006 (
0024100 * F i x t h e l i n e d
0024120 e s c r i p t o r s & \r 006 001
0024140
*
0024220 006 006 s
0024240 e l e c t i o n ) 006 001 \r
0024260 ( T E D I T . U P D
0024300 A T E . S C R E E N T E X T O
0024320 B J )
0024340 006 006 ( * F i
0024360 x u p t h e d i s p l a y
0024400 f o r a l l t h i s \r 006
0024420 001
0024440
*
0024500 006 006
0024520 f o o f a r a w ) 006 001 \r
0024540 ( 006 002 r e p l a c e
0024560 006 001 C H # 006 002 o f 006 001 S E
0024600 L 006 002 w i t h 006 001 C H # )
0024620
0024640 006 006 ( * M a k e t
0024660 h e s e l e c t i o n p o i
0024700 n t a t t h e \r 006 001
0024720
*
0025000 006 006 r e - i
0025020 n s e r t e d t e x t ) 006 001 \r
0025040 ( 006 002 r e p
0025060 l a c e 006 001 C H L I M 006 002 o
0025100 f 006 001 S E L 006 002 w i t h 006 001
0025120 ( I P L U S C H # L E N )
0025140 ) \r ( 006 002 r
0025160 e p l a c e 006 001 D C H 006 002 o
0025200 f 006 001 S E L 006 002 w i t h 006 001
0025220 L E N ) \r
0025240 ( 006 002 r e p l a c e 006 001 P O I
0025260 N T 006 002 o f 006 001 S E L 006 002
0025300 w i t h 006 001 ( 006 002 f e t c h 006
0025320 001 T H P O I N T 006 002 o f 006 001
0025340 E V E N T ) ) \r
0025360 ( \ T E D I T . S E T . S
0025400 E L . L O O K S S E L ' N O
0025420 R M A L ) \r
0025440 ( \ F I X S E L S E L T E X
0025460 T O B J )
0025500
0025520 006 006 ( * R e a l l y f
0025540 i x t h e s e l e c t i o n
0025560 ) 006 001 \r ( 006
0025600 002 r e p l a c e 006 001 T H A C T
0025620 I O N 006 002 o f 006 001 E V E N T
0025640 006 002 w i t h 006 001 ' I n s e r
0025660 t ) \r \r
0025700 006 006 ( * M a k
0025720 e t h e U N D O b e U N
0025740 D O a b l e , b y c h a n g
0025760 i n g t h e e v e n t t o
0026000 a i n s e r t i o n . ) 006 001
0026020 \r \r ) ) ) \r \r ( 006 004
0026040 T E D I T . R E D O 006 001 \r (
0026060 L A M B D A ( T E X T O B J )
0026100 006 006 006 001
0026120
0026140 006 006
0026160 ( * j d s " 4 - S e p - 8
0026200 5 1 6 : 3 0 " ) 006 001 \r
0026220
*
0026300 006 006 ( * R E
0026320 D O t h e l a s t t h i n
0026340 g t h i s g u y d i d . )
0026360 006 001 \r ( P R O G ( ( S
0026400 E L ( 006 002 f e t c h 006 001 S E
0026420 L 006 002 o f 006 001 T E X T O B J
0026440 ) ) \r E V
0026460 E N T C H ) \r
0026500 ( C O N D \r
0026520 ( ( S E T Q E V E N
0026540 T ( 006 002 f e t c h 006 001 T X T
0026560 H I S T O R Y 006 002 o f 006 001 T
0026600 E X T O B J ) ) \r
0026620 \r 006 006
0026640 ( * T h e r e r e a l l y
0026660 i s s o m e t h i n g t o
0026700 R E D O D e c i d e w h a t
0026720 , & d o i t . ) 006 001 \r \r
0026740 ( R E
0026760 S E T L S T ( R E S E T S A V
0027000 E ( C U R S O R W A I T I N
0027020 G C U R S O R ) ) \r
0027040 (
0027060 \ S H O W S E L S E L N I L
0027100 N I L ) \r
0027120 ( S E L E
0027140 C T Q ( 006 002 f e t c h 006 001 T
0027160 H A C T I O N 006 002 o f 006 001 E
0027200 V E N T ) \r
0027220 (
0027240 ( I n s e r t C o p y I n c
0027260 l u d e )
0027300 006 006 ( * I t w a s a
0027320 n i n s e r t i o n ) 006 001 \r
0027340
0027360 ( 006 002
0027400 T E D I T . R E D O . I N S E R
0027420 T I O N 006 001 T E X T O B J E
0027440 V E N T \r
0027460
0027500 ( I M A X
0027520 1 ( S E L E C T Q ( 006 002 f e
0027540 t c h 006 001 P O I N T 006 002 o f
0027560 006 001 S E L ) \r
0027600
*
0027640 ( L E F T (
0027660 006 002 f e t c h 006 001 C H # 006 002
0027700 o f 006 001 S E L ) ) \r
0027720
*
0027760 ( R I G
0030000 H T ( 006 002 f e t c h 006 001 C H
0030020 L I M 006 002 o f 006 001 S E L ) )
0030040 \r
0030060
*
0030120 N I L ) ) ) ) \r
0030140
0030160 ( D e l e t e
0030200
0030220 006 006 ( * I t w
0030240 a s a d e l e t i o n ) 006 001
0030260 \r
0030300
0030320 ( \ T E D I T . D E L E T E
0030340 S E L T E X T O B J ) ) \r
0030360
0030400 ( R e p l a c e
0030420 ( 006 002 T E D I T . R E D O . R
0030440 E P L A C E 006 001 T E X T O B J
0030460 E V E N T ) ) \r
0030500
0030520 ( L o o k s
0030540
0030560 006 006 ( * I t w a
0030600 s a l o o k s c h a n g e
0030620 ) 006 001 \r
0030640
0030660 ( T E D I T . R E D O .
0030700 L O O K S T E X T O B J E V
0030720 E N T \r
0030740
0030760 ( I M A X
0031000 1 ( S E L E C T Q ( 006 002 f
0031020 e t c h 006 001 P O I N T 006 002 o
0031040 f 006 001 S E L ) \r
0031060
*
0031120 ( L E F
0031140 T ( 006 002 f e t c h 006 001 C H #
0031160 006 002 o f 006 001 S E L ) ) \r
0031200
*
0031260 ( R I G H T ( 006 002 f e t c h
0031300 006 001 C H L I M 006 002 o f 006 001
0031320 S E L ) ) \r
0031340
*
0031400 N I L ) ) ) )
0031420 \r
0031440 ( P a r a L
0031460 o o k s
0031500 006 006
0031520 ( * I t w a s a P a r a
0031540 g r a p h l o o k s c h a n
0031560 g e ) 006 001 \r
0031600
0031620 ( T E D I T
0031640 . R E D O . P A R A L O O K S
0031660 T E X T O B J E V E N T \r
0031700
*
0031740 ( I M A X 1
0031760 ( S E L E C T Q ( 006 002 f e t
0032000 c h 006 001 P O I N T 006 002 o f 006
0032020 001 S E L ) \r
0032040
*
0032100 ( L
0032120 E F T ( 006 002 f e t c h 006 001 C
0032140 H # 006 002 o f 006 001 S E L ) ) \r
0032160
*
0032240 ( R I G H T ( 006
0032260 002 f e t c h 006 001 C H L I M 006
0032300 002 o f 006 001 S E L ) ) \r
0032320
*
0032400 N I L ) ) ) ) \r
0032420
0032440 ( F i n d
0032460
0032500 006 006 ( * E X A
0032520 C T - M A T C H C L : S E A R
0032540 C H C O M M A N D ) 006 001 \r
0032560
0032600 ( R E
0032620 S E T L S T ( R E S E T S A V
0032640 E ( C U R S O R W A I T I N
0032660 G C U R S O R ) ) \r
0032700
*
0032740 ( T E D I T . P R O M P T P R I
0032760 N T T E X T O B J " S e a r
0033000 c h i n g . . . " T ) \r
0033020
*
0033060 ( S E T Q S E L ( 006 002
0033100 f e t c h 006 001 S E L 006 002 o f
0033120 006 001 T E X T O B J ) ) \r
0033140
*
0033200 ( \ S H O W S E L S E L
0033220 N I L N I L ) \r
0033240
*
0033300 ( S E T Q C H ( T E D I T .
0033320 F I N D T E X T O B J ( 006 002
0033340 f e t c h 006 001 T H A U X I N F
0033360 O 006 002 o f 006 001 E V E N T ) )
0033400 ) \r
0033420
0033440 ( C O N D \r
0033460
*
0033520 ( C H ( T E D I
0033540 T . P R O M P T P R I N T T E
0033560 X T O B J " d o n e . " ) \r
0033600
*
0033640 ( 006 002 r
0033660 e p l a c e 006 001 C H # 006 002 o
0033700 f 006 001 S E L 006 002 w i t h 006 001
0033720 C H ) \r
0033740
*
0034000 ( 006 002 r e p l a c e 006 001 C
0034020 H L I M 006 002 o f 006 001 S E L \r
0034040
*
0034120 006 002 w i t h 006 001 ( I P L U S
0034140 C H ( N C H A R S ( 006 002 f e
0034160 t c h 006 001 T H A U X I N F O
0034200 006 002 o f 006 001 E V E N T ) ) ) )
0034220 \r
0034240
0034260 ( 006
0034300 002 r e p l a c e 006 001 D C H 006
0034320 002 o f 006 001 S E L 006 002 w i t h
0034340 006 001 ( N C H A R S ( 006 002 f e
0034360 t c h 006 001 T H A U X I N F O \r
0034400
*
0034520 006 002 o f 006 001 E V E N T ) ) )
0034540 \r
0034560
0034600 ( 006
0034620 002 r e p l a c e 006 001 P O I N T
0034640 006 002 o f 006 001 S E L 006 002 w i
0034660 t h 006 001 ' R I G H T ) \r
0034700
*
0034740 ( \ F I X S
0034760 E L S E L T E X T O B J ) \r
0035000
*
0035040 ( T E
0035060 D I T . N O R M A L I Z E C A R
0035100 E T T E X T O B J ) \r
0035120
*
0035160 ( \ S H O W S
0035200 E L S E L N I L T ) ) \r
0035220
*
0035260 ( T ( T E D I
0035300 T . P R O M P T P R I N T T E
0035320 X T O B J " [ N o t f o u n
0035340 d ] " ) ) ) ) \r
0035360
0035400 ( 006 002 r e p l a c
0035420 e 006 001 \ I N S E R T P C V A L
0035440 I D 006 002 o f 006 001 T E X T O B
0035460 J 006 002 w i t h 006 001 N I L ) \r
0035500
*
0035560 006 006 (
0035600 * D r o p t h e c a c h e
0035620 d p i e c e . \r 006 001
0035640
*
0035720 006 006 W H Y ? ? )
0035740 006 001 \r
0035760
0036000 ) \r
0036020 ( ( M
0036040 o v e R e p l a c e M o v e )
0036060
0036100 006 006 ( * H e m o v e d s
0036120 o m e t e x t ) 006 001 \r
0036140
0036160 ( 006 002 T E D
0036200 I T . R E D O . M O V E 006 001 T
0036220 E X T O B J E V E N T ( 006 002
0036240 f e t c h 006 001 T H L E N 006 002
0036260 o f 006 001 E V E N T ) \r
0036300
*
0036340 ( I M A X 1 ( S E L E C T
0036360 Q ( 006 002 f e t c h 006 001 P O I
0036400 N T 006 002 o f 006 001 S E L ) \r
0036420
*
0036500 ( L E F T ( 006 002 f e t c h 006 001
0036520 C H # 006 002 o f 006 001 S E L )
0036540 ) \r
0036560
*
0036620 ( R I G H T ( 006 002 f e t
0036640 c h 006 001 C H L I M 006 002 o f 006
0036660 001 S E L ) ) \r
0036700
*
0036740 N I L ) ) \r
0036760
*
0037020 ( 006 002 f e t c h 006 001 T
0037040 H F I R S T P I E C E 006 002 o f
0037060 006 001 E V E N T ) ) ) \r
0037100
0037120 ( G e t
0037140
0037160 006 006 ( * H e
0037200 d i d a G E T - - n o
0037220 t u n d o a b l e . ) 006 001 \r
0037240
0037260 ( T E
0037300 D I T . P R O M P T P R I N T
0037320 T E X T O B J " Y o u c a n
0037340 ' t R E D O a G E T . "
0037360 T ) ) \r
0037400 ( P u
0037420 t
0037440
0037460 006 006 ( * H e d i d a P
0037500 U T - - n o t u n d o a b
0037520 l e . ) 006 001 \r
0037540
0037560 ( T E D I T . P R O M
0037600 P T P R I N T T E X T O B J
0037620 " Y o u c a n ' t R E D O
0037640 a P U T . " T ) ) \r
0037660
0037700 ( T E D I T . P R O M
0037720 P T P R I N T T E X T O B J
0037740 ( C O N C A T " R E D O o f
0037760 t h e a c t i o n " \r
0040000
*
0040060 ( 006 002 f e t c
0040100 h 006 001 T H A C T I O N 006 002 o
0040120 f 006 001 E V E N T ) \r
0040140
*
0040220 " i s n ' t i m
0040240 p l e m e n t e d . " ) \r
0040260
0040300 T ) )
0040320 \r
0040340 ( \ S H O W S E L
0040360 S E L N I L T ) ) ) \r
0040400 ( T ( T E
0040420 D I T . P R O M P T P R I N T
0040440 T E X T O B J " N o t h i n g
0040460 t o R E D O . " T ) ) ) )
0040500 ) ) \r \r ( 006 004 T E D I T . R E D
0040520 O . I N S E R T I O N 006 001 \r
0040540 ( L A M B D A ( T E X T O B J
0040560 E V E N T C H # ) 006 006 006 001
0040600
0040620 006
0040640 006 ( * j d s " 4 - S e p -
0040660 8 5 1 6 : 2 7 " ) 006 001 \r
0040700
*
0040760 006 006 ( * R
0041000 E D O a p r i o r I n s e
0041020 r t / C o p y / I n c l u d e
0041040 o f \r 006 001
0041060
*
0041140 006 006 t e x t . ) 006 001 \r
0041160 ( P R O G ( I N S P C I
0041200 N S P C # N P C ( S E L (
0041220 006 002 f e t c h 006 001 S E L 006 002
0041240 o f 006 001 T E X T O B J ) ) \r
0041260
0041300 ( P C T B ( 006 002 f e t c h 006 001
0041320 P C T B 006 002 o f 006 001 T E X
0041340 T O B J ) ) \r
0041360 ( L E N ( 006 002
0041400 f e t c h 006 001 T H L E N 006 002
0041420 o f 006 001 E V E N T ) ) \r
0041440 ( F
0041460 I R S T P I E C E ( 006 002 c r e
0041500 a t e 006 001 P I E C E 006 002 u s
0041520 i n g 006 001 ( 006 002 f e t c h 006 001
0041540 T H F I R S T P I E C E 006 002
0041560 o f 006 001 E V E N T ) \r
0041600
*
0041640 P N E
0041660 W _ T ) ) \r
0041700 ( O T E X T L
0041720 E N ( 006 002 f e t c h 006 001 T E
0041740 X T L E N 006 002 o f 006 001 T E X
0041760 T O B J ) ) \r
0042000 O B J C O P Y
0042020 F N O R I G F I R S T P C ) \r
0042040 ( S E T Q
0042060 O R I G F I R S T P C F I R S
0042100 T P I E C E ) \r
0042120 ( 006 002 r e p l a c e 006 001 T
0042140 H F I R S T P I E C E 006 002 o f
0042160 006 001 E V E N T 006 002 w i t h 006
0042200 001 F I R S T P I E C E ) \r
0042220 \r
0042240 006 006 ( * S o w e c a
0042260 n U N D O t h i s , a n d
0042300 r e m o v e t h e r i g h
0042320 t s e t o f p i e c e s .
0042340 ) 006 001 \r \r (
0042360 006 002 r e p l a c e 006 001 \ I N S
0042400 E R T P C V A L I D 006 002 o f 006
0042420 001 T E X T O B J 006 002 w i t h
0042440 006 001 N I L ) 006 006
0042460 ( * F o r c e a n y f u r
0042500 t h e r i n s e r t i o n s
0042520 t o \r 006 001
0042540
*
0042620 006 006 m a k e n e w p i
0042640 e c e s . ) 006 001 \r
0042660 ( S E T Q N P C ( 006 002
0042700 f e t c h 006 001 N E X T P I E C
0042720 E 006 002 o f 006 001 F I R S T P I
0042740 E C E ) ) \r
0042760 ( S E T Q I N S P C # ( \ C
0043000 H T O P C N O C H # P C T B
0043020 ) ) \r \r
0043040 006 006 ( * P i e
0043060 c e % # o f t h e p i e
0043100 c e w e ' r e t o i n s e
0043120 r t i n s i d e o r i n
0043140 f r o n t o f ) 006 001 \r \r
0043160 ( S E T Q I N S
0043200 P C ( \ E D I T E L T P C T
0043220 B ( A D D 1 I N S P C # ) )
0043240 ) \r ( S E T
0043260 Q I N S P C ( C O N D \r
0043300
0043320 ( ( I E Q P C H
0043340 # ( \ E D I T E L T P C T B
0043360 I N S P C # ) ) 006 006 ( *
0043400 W e ' r e i n s e r t i n g
0043420 j u s t b e f o r e a n \r
0043440 006 001
0043460
*
0043520 006
0043540 006 e x i s t i n g p i e c e )
0043560 006 001 \r
0043600 I N S
0043620 P C ) \r
0043640 ( T
0043660 \r \r
0043700 006 006 ( * W e m u
0043720 s t s p l i t t h i s p i
0043740 e c e , a n d i n s e r t
0043760 b e f o r e t h e s e c o n
0044000 d p a r t . ) 006 001 \r \r
0044020
0044040 ( P R O G 1 (
0044060 \ S P L I T P I E C E I N S P
0044100 C C H # T E X T O B J I N
0044120 S P C # ) \r
0044140
0044160 ( 006 002 a d d 006
0044200 001 I N S P C # \ E l t s P e
0044220 r P i e c e ) ) ) ) ) \r
0044240 ( 006 002 b i n d 006 001
0044260 ( T L _ 0 ) 006 002 w h i l e
0044300 006 001 ( I L E S S P T L L E
0044320 N ) \r
0044340 006 002 d o 006 001 \r
0044360 \r 006 006 (
0044400 * L o o p t h r u t h e
0044420 p i e c e s o f t h e p r
0044440 i o r i n s e r t i o n , i
0044460 n s e r t i n g c o p i e s
0044500 o f e n o u g h o f \r 006 001
0044520 006 006 t h e m
0044540 t o c o v e r t h e l e
0044560 n g t h o f t h e i n s e
0044600 r t i o n . ) 006 001 \r \r
0044620 ( C O N D
0044640 \r
0044660 ( ( S E T Q O B J (
0044700 006 002 f e t c h 006 001 P O B J 006
0044720 002 o f 006 001 F I R S T P I E C E
0044740 ) ) 006 006 ( * T h i s
0044760 p i e c e d e s c r i b e s
0045000 a n o b j e c t ) 006 001 \r
0045020
0045040 ( C O N D \r
0045060 ( (
0045100 S E T Q C O P Y F N ( I M A
0045120 G E O B J P R O P O B J ' C
0045140 O P Y F N ) ) \r
0045160
0045200 ( S E T Q O B J ( A P P L Y
0045220 * C O P Y F N O B J ( 006 002
0045240 f e t c h 006 001 S T R E A M H I
0045260 N T 006 002 o f 006 001 T E X T O B
0045300 J ) \r
0045320
0045340 ( 006 002 f
0045360 e t c h 006 001 S T R E A M H I N
0045400 T 006 002 o f 006 001 T E X T O B J
0045420 ) ) ) \r
0045440 ( C O N
0045460 D \r
0045500 ( ( E
0045520 Q O B J ' D O N ' T ) \r
0045540
0045560 ( T E D I T
0045600 . P R O M P T P R I N T T E X
0045620 T O B J " C O P Y o f t h
0045640 i s o b j e c t n o t a l
0045660 l o w e d . " T ) \r
0045700
0045720 ( R E T F R O M
0045740 ' T E D I T . C O P Y ) ) \r
0045760
0046000 ( T ( 006 002 r
0046020 e p l a c e 006 001 P O B J 006 002
0046040 o f 006 001 F I R S T P I E C E
0046060 006 002 w i t h 006 001 O B J ) ) ) )
0046100 \r
0046120 ( O B J ( 006 002
0046140 r e p l a c e 006 001 P O B J 006
0046160 002 o f 006 001 F I R S T P I E C E
0046200 006 002 w i t h 006 001 ( C O P Y
0046220 O B J ) ) ) ) \r
0046240 ( C O N
0046260 D \r
0046300 ( ( S E T Q
0046320 C O P Y F N ( I M A G E O B J
0046340 P R O P O B J ' W H E N C O
0046360 P I E D F N ) ) \r
0046400
*
0046460 006 006 ( * I f t h
0046500 e r e ' s a n e v e n t f n
0046520 f o r c o p y i n g , \r 006
0046540 001
0046560
*
0046620 006 006
0046640 u s e i t . ) 006 001 \r
0046660
0046700 ( A P P L Y * C O P Y F
0046720 N O B J ( W I N D O W P R O
0046740 P ( C A R ( 006 002 f e t c h 006
0046760 001 \ W I N D O W 006 002 o f 006 001
0047000 T E X T O B J ) ) \r
0047020
*
0047060 ' D S
0047100 P ) \r
0047120
0047140 ( 006 002 f e t c h 006 001 S T R
0047160 E A M H I N T 006 002 o f 006 001 T
0047200 E X T O B J ) \r
0047220
0047240 ( 006 002 f e t c h 006
0047260 001 S T R E A M H I N T 006 002 o
0047300 f 006 001 T E X T O B J ) ) ) ) )
0047320 ) \r
0047340 ( \ I N S E R T P I E C E
0047360 F I R S T P I E C E I N S P C
0047400 T E X T O B J ) 006
0047420 006 ( * I n s e r t t h e p
0047440 i e c e b a c k i n ) 006 001 \r
0047460
0047500 ( S E T Q T L ( I P L U S
0047520 T L ( 006 002 f e t c h 006 001 P L
0047540 E N 006 002 o f 006 001 F I R S T P
0047560 I E C E ) ) ) \r
0047600
*
0047660 006 006 ( * K e e p
0047700 t r a c k o f h o w m u c
0047720 h w e ' v e \r 006 001
0047740
*
0050020 006 006 r e - i n s
0050040 e r t e d ) 006 001 \r
0050060 ( S E T Q F
0050100 I R S T P I E C E ( 006 002 c r e
0050120 a t e 006 001 P I E C E 006 002 u s
0050140 i n g 006 001 N P C P N E W _
0050160 T ) ) \r
0050200
*
0050260 006 006 ( * M o v e t o
0050300 t h e n e x t p i e c e t
0050320 o i n s e r t ) 006 001 \r
0050340 ( A N D
0050360 N P C ( S E T Q N P C (
0050400 006 002 f e t c h 006 001 N E X T P I
0050420 E C E 006 002 o f 006 001 N P C ) )
0050440 ) \r
0050460
*
0050540 006 006 ( * D o n e h e r e b
0050560 e c a u s e \ I N S E R T P I
0050600 E C E \r 006 001
0050620
*
0050700 006 006 c r e a m s t h e
0050720 N E X T P I E C E f i e l d
0050740 . ) 006 001 ) \r
0050760 ( \ T E D I T . D I F F U S E .
0051000 P A R A L O O K S ( 006 002 f e t
0051020 c h 006 001 P R E V P I E C E 006
0051040 002 o f 006 001 O R I G F I R S T P
0051060 C ) \r
0051100 I N S P C )
0051120
*
0051160 006 006 ( * p r o p a g a t e p
0051200 a r a g r a p h f o r m a t t
0051220 i n g i n t o \r 006 001
0051240
*
0051320 006 006 t h e n
0051340 e w i n s e r t i o n ) 006 001 \r
0051360 ( 006 002 r e p
0051400 l a c e 006 001 T E X T L E N 006
0051420 002 o f 006 001 T E X T O B J 006 002
0051440 w i t h 006 001 ( I P L U S ( 006
0051460 002 f e t c h 006 001 T E X T L E N
0051500 006 002 o f 006 001 T E X T O B J )
0051520 \r
0051540
*
0051600 L E N ) ) \r
0051620 \r 006 006
0051640 ( * R e s e t t h e t e x
0051660 t l e n g t h a n d E O F
0051700 p t r o f t h e t e x t
0051720 s t r e a m . ) 006 001 \r \r
0051740 ( \ F I X I L I N
0051760 E S T E X T O B J S E L C
0052000 H # L E N O T E X T L E N )
0052020 006 006 ( * F
0052040 i x t h e l i n e d e s c
0052060 r i p t o r s & \r 006 001
0052100
*
0052160 006 006 s e l e
0052200 c t i o n ) 006 001 \r
0052220 ( T E D I T . U P D A T E
0052240 . S C R E E N T E X T O B J )
0052260
0052300 006 006 ( * F i x u
0052320 p t h e d i s p l a y f o
0052340 r a l l t h i s \r 006 001
0052360
*
0052440 006 006 f o o
0052460 f a r a w ) 006 001 \r
0052500 ( 006 002 r e p l a c e 006 001
0052520 C H # 006 002 o f 006 001 S E L 006
0052540 002 w i t h 006 001 C H # )
0052560
0052600 006 006 ( * M a k e t h e
0052620 s e l e c t i o n p o i n t
0052640 a t t h e \r 006 001
0052660
*
0052740 006 006 r e - i n s e
0052760 r t e d t e x t ) 006 001 \r
0053000 ( 006 002 r e p l a c
0053020 e 006 001 C H L I M 006 002 o f 006 001
0053040 S E L 006 002 w i t h 006 001 ( I
0053060 P L U S C H # L E N ) ) \r
0053100 ( 006 002 r e p l
0053120 a c e 006 001 D C H 006 002 o f 006 001
0053140 S E L 006 002 w i t h 006 001 L E
0053160 N ) \r ( \ T
0053200 E D I T . S E T . S E L . L O O
0053220 K S S E L ' N O R M A L ) \r
0053240 ( \ F I X S
0053260 E L S E L T E X T O B J )
0053300
0053320 006 006 (
0053340 * R e a l l y f i x t h e
0053360 s e l e c t i o n ) 006 001 \r
0053400 ( 006 002 r e p l a
0053420 c e 006 001 T H A C T I O N 006 002
0053440 o f 006 001 E V E N T 006 002 w i t
0053460 h 006 001 ' I n s e r t ) \r
0053500 \r
0053520 006 006 ( * M a k e t h e
0053540 U N D O b e U N D O a b l e
0053560 , b y c h a n g i n g t h
0053600 e e v e n t t o a i n s
0053620 e r t i o n . ) 006 001 \r \r
0053640 ) ) ) \r \r ( 006 004 T E D I T .
0053660 U N D O . M O V E 006 001 \r ( L
0053700 A M B D A ( T E X T O B J E
0053720 V E N T L E N C H # F I R
0053740 S T P I E C E ) 006 006 006 001
0053760 006 006 (
0054000 * j d s " 6 - M a r - 8 5
0054020 2 1 : 1 2 " ) 006 001 \r
0054040
*
0054120 006 006 ( * U N D
0054140 O a M O V E c o m m a n d
0054160 ) 006 001 \r ( P R O G ( (
0054200 T O O B J ( 006 002 f e t c h 006 001
0054220 T H A U X I N F O 006 002 o f 006
0054240 001 E V E N T ) ) \r
0054260 ( F R O M O B J ( 006
0054300 002 f e t c h 006 001 T H T E X T O
0054320 B J 006 002 o f 006 001 E V E N T )
0054340 ) \r ( S O
0054360 U R C E C H # ( 006 002 f e t c h
0054400 006 001 T H O L D I N F O 006 002 o
0054420 f 006 001 E V E N T ) ) \r
0054440 ( C H # ( 006 002 f
0054460 e t c h 006 001 T H C H # 006 002 o
0054500 f 006 001 E V E N T ) ) \r
0054520 T O S E L T O T
0054540 E X T L E N ) \r
0054560 ( \ S H O W S E L ( 006 002 f
0054600 e t c h 006 001 S E L 006 002 o f 006
0054620 001 T O O B J ) \r
0054640 N I L N I
0054660 L ) \r \r
0054700 006 006 ( * T u r
0054720 n o f f t h e s e l e c t
0054740 i o n s i n t h e o l d
0054760 s o u r c e a n d t a r g e
0055000 t d o c u m e n t s ) 006 001 \r \r
0055020 ( \ S H O W
0055040 S E L ( 006 002 f e t c h 006 001 S
0055060 E L 006 002 o f 006 001 F R O M O B
0055100 J ) \r
0055120 N I L N I L ) \r
0055140 ( \ D E L E T E C
0055160 H C H # ( I P L U S C H #
0055200 L E N ) \r
0055220 L E N F R O M O
0055240 B J ) \r \r
0055260 006 006 ( * D e
0055300 l e t e t h e c h a r a c t
0055320 e r s w e m o v e d , f r
0055340 o m t h e p l a c e w e
0055360 m o v e d t h e m t o ) 006 001
0055400 \r \r ( \ F I
0055420 X D L I N E S ( 006 002 f e t c h
0055440 006 001 L I N E S 006 002 o f 006 001
0055460 F R O M O B J ) \r
0055500 ( 006 002 f e t
0055520 c h 006 001 S E L 006 002 o f 006 001
0055540 F R O M O B J ) \r
0055560 C H # \r
0055600 (
0055620 I P L U S C H # L E N ) \r
0055640
0055660 F R O M O B J ) \r
0055700 ( 006 002 r e p l a c e 006 001
0055720 C H # 006 002 o f 006 001 ( 006 002 f e
0055740 t c h 006 001 S E L 006 002 o f 006 001
0055760 F R O M O B J ) 006 002 w i t h
0056000 006 001 ( 006 002 r e p l a c e 006 001
0056020 C H L I M 006 002 o f 006 001 ( 006 002
0056040 f e t c h 006 001 S E L 006 002 o f
0056060 006 001 F R O M O B J ) \r
0056100
*
0056160 006 002 w i t h 006 001 C H
0056200 # ) ) \r \r
0056220 006 006 ( * M a
0056240 k e t h i s d o c u m e n t
0056260 ' s s e l e c t i o n b e
0056300 a p o i n t s e l a t t
0056320 h e p l a c e t h e t e x
0056340 t u s e d t o \r 006 001
0056360 006 006 b e . ) 006 001 \r
0056400 \r ( 006 002 r e
0056420 p l a c e 006 001 D C H 006 002 o f
0056440 006 001 ( 006 002 f e t c h 006 001 S E
0056460 L 006 002 o f 006 001 F R O M O B J
0056500 ) 006 002 w i t h 006 001 0 ) \r
0056520 ( 006 002 r e p l a
0056540 c e 006 001 P O I N T 006 002 o f 006
0056560 001 ( 006 002 f e t c h 006 001 S E L
0056600 006 002 o f 006 001 F R O M O B J )
0056620 006 002 w i t h 006 001 ' L E F T )
0056640 \r
0056660
*
0056720 006 006
0056740 ( * M a r k l i n e s f o
0056760 r u p d a t e , a n d f i
0057000 x t h e \r 006 001
0057020
*
0057100 006 006 s e l e c t i o
0057120 n ) 006 001 \r (
0057140 S E T Q T O T E X T L E N (
0057160 006 002 f e t c h 006 001 T E X T L E
0057200 N 006 002 o f 006 001 T O O B J ) )
0057220 \r \r
0057240 006 006 ( * T h e p
0057260 r e - i n s e r t i o n l e n
0057300 o f t h e p l a c e t h
0057320 e t e x t i s r e t u r n
0057340 i n g t o , f o r t h e
0057360 l i n e \r 006 001
0057400 006 006 u d p a t e r b e l o
0057420 w ) 006 001 \r \r
0057440 ( \ T E D I T . I N S E R T . P
0057460 I E C E S T O O B J S O U R
0057500 C E C H # ( 006 002 f e t c h 006 001
0057520 T H F I R S T P I E C E 006 002
0057540 o f 006 001 E V E N T ) \r
0057560 L E N
0057600 ) \r \r
0057620 006 006 ( * P u t
0057640 t h e p i e c e s w e m o
0057660 v e d b a c k w h e r e t
0057700 h e y c a m e f r o m \r 006 001
0057720 006 006 ( n o
0057740 n e e d t o c o p y t h e
0057760 m , s i n c e w e d i d
0060000 t h a t o n t h e o r i g
0060020 i n a l m o v e . ) ) 006 001 \r \r
0060040 ( \ F I X I
0060060 L I N E S T O O B J ( 006 002 f
0060100 e t c h 006 001 S E L 006 002 o f 006
0060120 001 T O O B J ) \r
0060140 S O U R C E
0060160 C H # L E N T O T E X T L E
0060200 N ) \r \r
0060220 006 006 ( * M a r
0060240 k l i n e s t h a t n e e
0060260 d u p d a t i n g , a n d
0060300 f i x u p t h e s e l e c
0060320 t i o n ) 006 001 \r \r
0060340 ( 006 002 a d d 006 001 ( 006 002 f
0060360 e t c h 006 001 T E X T L E N 006
0060400 002 o f 006 001 T O O B J ) \r
0060420 L E N )
0060440
*
0060500 006 006 ( * U
0060520 p d a t e t h e t e x t l
0060540 e n g t h o f t h e \r 006 001
0060560
*
0060640 006 006 e
0060660 r s t w h i l e m o v e s o
0060700 u r c e ) 006 001 \r
0060720 ( T E D I T . U P D A T E .
0060740 S C R E E N F R O M O B J )
0060760
0061000 006 006 ( * U p d a t e
0061020 t h e e r s t w h i l e t
0061040 e x t \r 006 001
0061060
*
0061140 006 006 l o c a t i o n ' s
0061160 i m a g e . ) 006 001 \r
0061200 ( C O N D \r
0061220 ( ( N E Q F R
0061240 O M O B J T O O B J ) \r
0061260 \r
0061300 006 006 ( * I f t h e y a
0061320 r e n ' t t h e s a m e d
0061340 o c u m e n t , w e n e e d
0061360 t o u p d a t e t h e o
0061400 t h e r d o c u m e n t i m
0061420 a g e \r 006 001
0061440 006 006 a s w e l l . ) 006 001 \r \r
0061460 ( T
0061500 E D I T . U P D A T E . S C R E
0061520 E N T O O B J ) ) ) \r
0061540 ( \ F I X S E L (
0061560 006 002 f e t c h 006 001 S E L 006 002
0061600 o f 006 001 T O O B J ) \r
0061620 T O O
0061640 B J ) \r \r
0061660 006 006 ( * F i
0061700 x u p t h e s e l e c t i
0061720 o n s s o t h e i r i m a
0061740 g e s w i l l b e O K ) 006
0061760 001 \r \r ( \ F
0062000 I X S E L ( 006 002 f e t c h 006 001
0062020 S E L 006 002 o f 006 001 F R O M
0062040 O B J ) \r
0062060 F R O M O B J ) \r
0062100 ( \ C O P Y S
0062120 E L ( 006 002 f e t c h 006 001 S E
0062140 L 006 002 o f 006 001 F R O M O B J
0062160 ) \r
0062200 T E D I T . S E L E C T I
0062220 O N ) \r \r
0062240 006 006 ( * I t
0062260 ' s h a n d y t o t h i n
0062300 k o f t h i s a s t h e
0062320 l a s t s e l e c t i o n
0062340 m a d e , a l s o . ) 006 001 \r \r
0062360 ( 006 002 r e p
0062400 l a c e 006 001 T H A C T I O N
0062420 006 002 o f 006 001 E V E N T 006 002 w
0062440 i t h 006 001 ' M o v e ) \r
0062460 ( 006 002 r e p l a c
0062500 e 006 001 T H T E X T O B J 006 002
0062520 o f 006 001 E V E N T 006 002 w i t
0062540 h 006 001 T O O B J ) \r
0062560 ( 006 002 r e p l a c e 006
0062600 001 T H A U X I N F O 006 002 o f
0062620 006 001 E V E N T 006 002 w i t h 006
0062640 001 F R O M O B J ) \r
0062660 ( 006 002 r e p l a c e 006
0062700 001 T H O L D I N F O 006 002 o f
0062720 006 001 E V E N T 006 002 w i t h 006
0062740 001 C H # ) \r
0062760 ( 006 002 r e p l a c e 006 001 T H
0063000 C H # 006 002 o f 006 001 E V E N T
0063020 006 002 w i t h 006 001 S O U R C E
0063040 C H # ) \r (
0063060 \ S H O W S E L ( 006 002 f e t c
0063100 h 006 001 S E L 006 002 o f 006 001 T
0063120 O O B J ) \r
0063140 N I L T ) \r
0063160 ( \ S H O W S E
0063200 L ( 006 002 f e t c h 006 001 S E L
0063220 006 002 o f 006 001 F R O M O B J )
0063240 \r
0063260 N I L T ) ) ) ) \r \r ( 006 004
0063300 T E D I T . U N D O . R E P L A
0063320 C E 006 001 \r ( L A M B D A (
0063340 T E X T O B J E V E N T L E
0063360 N C H # F I R S T P I E C E
0063400 ) 006 006 006 001
0063420 006 006 ( * j d s "
0063440 6 - M a r - 8 5 2 1 : 1 2 "
0063460 ) 006 001 \r ( P R O G ( (
0063500 O L D E V E N T ( 006 002 f e t c
0063520 h 006 001 T H O L D I N F O 006 002
0063540 o f 006 001 E V E N T ) ) \r
0063560 ( C H # ( 006 002
0063600 f e t c h 006 001 T H C H # 006 002
0063620 o f 006 001 E V E N T ) ) \r
0063640 ( S E L ( 006 002
0063660 f e t c h 006 001 S E L 006 002 o f
0063700 006 001 T E X T O B J ) ) ) \r
0063720 ( \ S H O W S E
0063740 L S E L N I L N I L ) \r
0063760 ( 006 002 T E D I
0064000 T . U N D O . I N S E R T I O N
0064020 006 001 T E X T O B J E V E N T
0064040 L E N C H # F I R S T P I
0064060 E C E ) \r (
0064100 \ S H O W S E L S E L N I L
0064120 N I L ) \r
0064140 ( 006 002 T E D I T . U N D O . D E
0064160 L E T I O N 006 001 T E X T O B J
0064200 O L D E V E N T ( 006 002 f e t
0064220 c h 006 001 T H L E N 006 002 o f 006
0064240 001 O L D E V E N T ) \r
0064260 C H #
0064300 \r
0064320 ( 006 002 f e t c h 006 001 T H F
0064340 I R S T P I E C E 006 002 o f 006 001
0064360 O L D E V E N T ) ) \r
0064400 ( 006 002 r e p l a c e
0064420 006 001 T H O L D I N F O 006 002 o
0064440 f 006 001 O L D E V E N T 006 002 w
0064460 i t h 006 001 E V E N T ) \r
0064500 ( 006 002 r e p l a c
0064520 e 006 001 T H A C T I O N 006 002 o
0064540 f 006 001 O L D E V E N T 006 002 w
0064560 i t h 006 001 ' R e p l a c e ) \r
0064600 ( 006 002 r e p
0064620 l a c e 006 001 T H O L D I N F O
0064640 006 002 o f 006 001 E V E N T 006 002
0064660 w i t h 006 001 N I L ) \r
0064700 ( 006 002 \ T E D I T .
0064720 H I S T O R Y A D D 006 001 T E X
0064740 T O B J O L D E V E N T ) \r
0064760 ( 006 002 r e p l
0065000 a c e 006 001 C H # 006 002 o f 006 001
0065020 S E L 006 002 w i t h 006 001 C H
0065040 # ) \r ( 006 002
0065060 r e p l a c e 006 001 C H L I M
0065100 006 002 o f 006 001 S E L 006 002 w i t
0065120 h 006 001 ( I P L U S C H # (
0065140 006 002 f e t c h 006 001 T H L E N
0065160 006 002 o f 006 001 O L D E V E N T )
0065200 ) ) \r ( 006 002
0065220 r e p l a c e 006 001 D C H 006 002
0065240 o f 006 001 S E L 006 002 w i t h 006
0065260 001 ( 006 002 f e t c h 006 001 T H L
0065300 E N 006 002 o f 006 001 O L D E V E
0065320 N T ) ) \r (
0065340 006 002 r e p l a c e 006 001 P O I N
0065360 T 006 002 o f 006 001 S E L 006 002 w
0065400 i t h 006 001 ( 006 002 f e t c h 006 001
0065420 T H P O I N T 006 002 o f 006 001
0065440 E V E N T ) ) \r
0065460 ( 006 002 r e p l a c e 006 001 T
0065500 H P O I N T 006 002 o f 006 001 O L
0065520 D E V E N T 006 002 w i t h 006 001
0065540 ( 006 002 f e t c h 006 001 T H P O I
0065560 N T 006 002 o f 006 001 E V E N T )
0065600 ) \r ( \ F I
0065620 X S E L S E L T E X T O B J
0065640 ) \r ( \ S H
0065660 O W S E L S E L N I L T )
0065700 ) ) ) \r \r ( 006 004 T E D I T . R E
0065720 D O . R E P L A C E 006 001 \r (
0065740 L A M B D A ( T E X T O B J
0065760 E V E N T ) 006 006 006 001
0066000
0066020 006 006
0066040 ( * j d s " 6 - M a r - 8
0066060 5 2 2 : 0 4 " ) 006 001 \r
0066100 ( P R O G ( ( O L D E V E N T
0066120 ( 006 002 f e t c h 006 001 T H O L
0066140 D I N F O 006 002 o f 006 001 E V E
0066160 N T ) ) \r
0066200 ( C H # ( 006 002 f e t c h 006 001
0066220 C H # 006 002 o f 006 001 ( 006 002 f e
0066240 t c h 006 001 S E L 006 002 o f 006 001
0066260 T E X T O B J ) ) ) \r
0066300 ( S E L ( 006 002 f
0066320 e t c h 006 001 S E L 006 002 o f 006
0066340 001 T E X T O B J ) ) ) \r
0066360 ( \ S H O W S E L
0066400 S E L N I L N I L ) \r
0066420 ( \ D E L E T E
0066440 C H ( 006 002 f e t c h 006 001 C H
0066460 # 006 002 o f 006 001 S E L ) \r
0066500 (
0066520 006 002 f e t c h 006 001 C H L I M
0066540 006 002 o f 006 001 S E L ) \r
0066560 ( I D
0066600 I F F E R E N C E ( 006 002 f e t
0066620 c h 006 001 C H L I M 006 002 o f 006
0066640 001 S E L ) \r
0066660 (
0066700 006 002 f e t c h 006 001 C H # 006 002
0066720 o f 006 001 S E L ) ) \r
0066740 T E X T
0066760 O B J ) \r (
0067000 \ F I X D L I N E S ( 006 002 f e
0067020 t c h 006 001 L I N E S 006 002 o f
0067040 006 001 T E X T O B J ) \r
0067060 S E L
0067100 \r
0067120 ( 006 002 f e t c h 006 001 C H #
0067140 006 002 o f 006 001 S E L ) \r
0067160 ( 006
0067200 002 f e t c h 006 001 C H L I M 006
0067220 002 o f 006 001 S E L ) \r
0067240 T E X T
0067260 O B J ) \r (
0067300 006 002 r e p l a c e 006 001 P O I N
0067320 T 006 002 o f 006 001 S E L 006 002 w
0067340 i t h 006 001 ' L E F T ) \r
0067360 ( 006 002 T E D I T .
0067400 R E D O . I N S E R T I O N 006 001
0067420 T E X T O B J E V E N T C
0067440 H # ) \r ( 006
0067460 002 r e p l a c e 006 001 T H O L D
0067500 I N F O 006 002 o f 006 001 E V E N
0067520 T 006 002 w i t h 006 001 ( S E T Q
0067540 O L D E V E N T ( 006 002 f e t
0067560 c h 006 001 T X T H I S T O R Y
0067600 006 002 o f 006 001 T E X T O B J ) )
0067620 ) \r ( 006 002 r
0067640 e p l a c e 006 001 T H A C T I O
0067660 N 006 002 o f 006 001 O L D E V E N
0067700 T 006 002 w i t h 006 001 ' R e p l
0067720 a c e ) \r (
0067740 006 002 r e p l a c e 006 001 T H A C
0067760 T I O N 006 002 o f 006 001 E V E N
0070000 T 006 002 w i t h 006 001 ' R e p l
0070020 a c e ) \r (
0070040 006 002 r e p l a c e 006 001 T H C H
0070060 # 006 002 o f 006 001 E V E N T 006
0070100 002 w i t h 006 001 C H # ) \r
0070120 ( 006 002 \ T E D I T
0070140 . H I S T O R Y A D D 006 001 T E
0070160 X T O B J E V E N T ) ) ) ) \r
0070200 \r ( 006 004 T E D I T . R E D O . M
0070220 O V E 006 001 \r ( L A M B D A
0070240 ( T E X T O B J E V E N T L
0070260 E N C H # F I R S T P I E C
0070300 E ) 006 006 006 001
0070320 006 006 ( * j d s
0070340 " 6 - M a r - 8 5 2 1 : 1 3
0070360 " ) 006 001 \r ( P R O G (
0070400 ( F R O M O B J T E X T O B J
0070420 ) \r ( S O
0070440 U R C E C H # ( 006 002 f e t c h
0070460 006 001 T H O L D I N F O 006 002 o
0070500 f 006 001 E V E N T ) ) \r
0070520 ( O L D C H # (
0070540 006 002 f e t c h 006 001 T H C H #
0070560 006 002 o f 006 001 E V E N T ) ) \r
0070600 ( S E L (
0070620 006 002 f e t c h 006 001 S E L 006 002
0070640 o f 006 001 T E X T O B J ) ) \r
0070660 ( M O V E S
0070700 E L ( 006 002 f e t c h 006 001 M O
0070720 V E S E L 006 002 o f 006 001 T E X
0070740 T O B J ) ) \r
0070760 O L D C H L I M ) \r
0071000 ( 006 002 r e p l a c e
0071020 006 001 C H # 006 002 o f 006 001 M O
0071040 V E S E L 006 002 w i t h 006 001 O
0071060 L D C H # ) \r
0071100 ( 006 002 r e p l a c e 006 001 C H
0071120 L I M 006 002 o f 006 001 M O V E S
0071140 E L 006 002 w i t h 006 001 ( I P L
0071160 U S O L D C H # L E N ) ) \r
0071200 ( 006 002 r e p
0071220 l a c e 006 001 D C H 006 002 o f 006
0071240 001 M O V E S E L 006 002 w i t h
0071260 006 001 L E N ) \r
0071300 ( 006 002 r e p l a c e 006 001 S
0071320 E T 006 002 o f 006 001 M O V E S E
0071340 L 006 002 w i t h 006 001 T ) \r
0071360 ( \ F I X S E L
0071400 M O V E S E L T E X T O B J
0071420 ) \r ( \ T E
0071440 D I T . S E T . S E L . L O O K
0071460 S M O V E S E L ' M O V E )
0071500 \r ( T E D I
0071520 T . M O V E M O V E S E L S
0071540 E L ) ) ) ) \r ) \r ( P U T P R O
0071560 P S T E D I T H I S T O R Y
0071600 C O P Y R I G H T ( " J o h n
0071620 S y b a l s k y & X e r o
0071640 x C o r p o r a t i o n " 1
0071660 9 8 3 1 9 8 4 1 9 8 5 1 9
0071700 8 6 ) ) \r ( D E C L A R E % :
0071720 D O N T C O P Y \r ( F I L E
0071740 M A P ( N I L ( 1 4 0 6 2
0071760 9 5 4 4 ( \ T E D I T . H I S
0072000 T O R Y A D D 1 4 1 6 . 1
0072020 7 4 1 ) ( T E D I T . U N D O
0072040 1 7 4 3 . 5 4 9 4 ) ( \r
0072060 T E D I T . U N D O . I N S E R
0072100 T I O N 5 4 9 6 . 6 9 8 4
0072120 ) ( T E D I T . U N D O . D E
0072140 L E T I O N 6 9 8 6 . 1 1
0072160 2 9 1 ) ( T E D I T . R E D O
0072200 1 1 2 9 3 . 1 6 7 0 6 )
0072220 ( \r T E D I T . R E D O . I N S
0072240 E R T I O N 1 6 7 0 8 . 2
0072260 2 4 3 7 ) ( T E D I T . U N D
0072300 O . M O V E 2 2 4 3 9 . 2
0072320 6 2 9 9 ) ( T E D I T . U N D
0072340 O . R E P L A C E 2 6 3 0 1
0072360 . 2 7 5 8 7 ) \r ( T E D I T
0072400 . R E D O . R E P L A C E 2 7
0072420 5 8 9 . 2 8 7 9 9 ) ( T E
0072440 D I T . R E D O . M O V E 2 8
0072460 8 0 1 . 2 9 5 4 2 ) ) ) ) )
0072500 \r S T O P \r
0072506