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