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