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