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