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