$ od -c -N 50000 [eris]<TEdit>TEDITPAGE!38
0000000 006 001 ( F I L E C R E A T E D "
0000020 4 - J u n - 8 6 1 8 : 1 8 :
0000040 4 3 " 006 004 { E R I S } < T E D
0000060 I T > T E D I T P A G E . ; 3 8
0000100 006 001 8 9 8 5 6 \r \r
0000120 c h a n g e s t o : (
0000140 F N S T E D I T . P U T . P A
0000160 G E F R A M E S ) \r \r
0000200 p r e v i o u s d a t e :
0000220 " 2 2 - A p r - 8 6 1 0 : 5 4
0000240 : 2 4 " { E R I S } < T E D I
0000260 T > T E D I T P A G E . ; 3 7 )
0000300 \r \r \r ( * C o p y r i g h t
0000320 ( c ) 1 9 8 4 , 1 9 8 5 ,
0000340 1 9 8 6 b y X e r o x C o
0000360 r p o r a t i o n . A l l r
0000400 i g h t s r e s e r v e d . )
0000420 \r \r ( P R E T T Y C O M P R I N
0000440 T T E D I T P A G E C O M S )
0000460 \r \r ( R P A Q Q 006 002 T E D I T
0000500 P A G E C O M S 006 001 \r
0000520 ( ( R E C O R D S P A G
0000540 E F O R M A T T I N G S T A T E
0000560 P A G E R E G I O N ) \r
0000600 [ V A R S ( M A X P
0000620 A G E # 6 5 5 3 5 ) \r
0000640 ( M I N P A
0000660 G E # 1 ) \r
0000700 ( T E D I T . P A G E
0000720 . F R A M E S ( L I S T ( T
0000740 E D I T . S I N G L E . P A G E
0000760 F O R M A T N I L N I L N
0001000 I L N I L N I L 7 2 7 2
0001020 7 2 7 2 N I L 1 \r
0001040
*
0001100 ) \r
0001120
*
0001160 ( T E D I T . S I N G L
0001200 E . P A G E F O R M A T T 7
0001220 2 7 5 6 N I L ( Q U O T E
0001240 L E F T ) \r
0001260
*
0001320 7 2 7 2 7 2 7 2
0001340 N I L 1 ) \r
0001360
0001400 (
0001420 T E D I T . S I N G L E . P A G
0001440 E F O R M A T T 5 4 0 7 5
0001460 6 N I L ( Q U O T E R I G
0001500 H T ) \r
0001520
*
0001560 7 2 7 2 7 2 7 2 N I
0001600 L 1 ] \r ( C O
0001620 M S ( * C r e a t i o n ,
0001640 G E T , a n d P U T o f
0001660 p a g e f r a m e s . ) \r
0001700 ( F N S
0001720 T E D I T . G E T . P A G E F
0001740 R A M E S T E D I T . P A R S
0001760 E . P A G E F R A M E S T E D
0002000 I T . P U T . P A G E F R A M E
0002020 S \r
0002040 T E D I T . U N P A
0002060 R S E . P A G E F R A M E S ) )
0002100 \r ( C O M S (
0002120 * F o r s e t t i n g u p
0002140 p a g e l a y o u t s ) \r
0002160 ( F N
0002200 S T E D I T . S I N G L E . P
0002220 A G E F O R M A T T E D I T .
0002240 C O M P O U N D . P A G E F O R
0002260 M A T T E D I T . P A G E F O
0002300 R M A T \ M I C A S T O P T S
0002320 \r
0002340 \ P T S T O M I C A S
0002360 ) ) \r ( C O M S
0002400 ( * P e r f o r m p a g e
0002420 l a y o u t , b a s e d o
0002440 n a r e g u l a r e x p r
0002460 e s s i o n o f t y p e d
0002500 r e g i o n s . ) \r
0002520 ( F N S T E D
0002540 I T . F O R M A T . H A R D C O
0002560 P Y T E D I T . F O R M A T B
0002600 O X T E D I T . F O R M A T H
0002620 E A D I N G T E D I T . F O R
0002640 M A T P A G E \r
0002660 T E D I
0002700 T . F O R M A T T E X T B O X
0002720 T E D I T . F O R M A T F O L I
0002740 O \ T E D I T . F O R M A T .
0002760 F O U N D B O X ? ) \r
0003000 ( * A u x
0003020 f u n c t i o n t o c a p t
0003040 u r e p a g e h e a d i n g
0003060 s d u r i n g l i n e f o
0003100 r m a t t i n g . ) \r
0003120 ( F N S T E
0003140 D I T . H A R D C O P Y . P A G
0003160 E H E A D I N G ) ) \r
0003200 ( C O M S ( * H a n d
0003220 l e v a r y i n g p a p e r
0003240 s i z e s ) \r
0003260 ( F N S S C A L E
0003300 P A G E U N I T S S C A L E P
0003320 A G E X U N I T S S C A L E P
0003340 A G E Y U N I T S \ T E D I T
0003360 . P A P E R H E I G H T \r
0003400
0003420 \ T E D I T . P A P E R W I D
0003440 T H ) \r
0003460 ( G L O B A L V A R S T E
0003500 D I T . P A P E R . S I Z E S )
0003520 \r [
0003540 V A R S ( T E D I T . P A P E
0003560 R . S I Z E S ( Q U O T E (
0003600 ( A 0 2 3 8 4 3 3 7 0 ) \r
0003620
*
0003660 ( A
0003700 1 1 6 8 4 2 3 8 4 ) \r
0003720
*
0003760 ( A 2
0004000 1 1 9 1 1 6 8 4 ) \r
0004020
*
0004060 ( A 3 8 4
0004100 2 1 1 9 1 ) \r
0004120
*
0004160 ( A 4 5 9 5 8
0004200 4 2 ) \r
0004220
*
0004260 ( A 5 4 2 0 5 9 5 ) \r
0004300
*
0004340 (
0004360 B 0 2 8 3 5 4 0 0 8 ) \r
0004400
*
0004440 ( B 1
0004460 2 0 0 4 2 8 3 5 ) \r
0004500
*
0004540 ( B 2 1
0004560 4 1 7 2 0 0 4 ) \r
0004600
*
0004640 ( B 3 1 0 0
0004660 1 1 4 1 7 ) \r
0004700
*
0004740 ( B 4 7 0 9 1
0004760 0 0 1 ) \r
0005000
*
0005040 ( B 5 4 9 9 7 0 9 ]
0005060 \r (
0005100 D E C L A R E : E V A L @ C O
0005120 M P I L E D O N T C O P Y (
0005140 R E C O R D S T E D I T P A P
0005160 E R S I Z E ) ) ) \r
0005200 ( C O M S ( * P a g e
0005220 n u m b e r i n g o p t i o n
0005240 s u p p o r t ) \r
0005260 ( F N S R O M
0005300 A N N U M E R A L S ) ) ) ) \r [
0005320 D E C L A R E : E V A L @ C O
0005340 M P I L E \r \r ( R E C O R D
0005360 006 002 P A G E F O R M A T T I N G
0005400 S T A T E 006 001 (
0005420
0005440 006 003 ( * C o
0005460 n t a i n s t h e s t a t e
0005500 f o r a T E d i t \r 006 001
0005520
*
0005600 006 003 p
0005620 a g e - f o r m a t t i n g j
0005640 o b . ) 006 001 \r
0005660
0005700 P A G E #
0005720
0005740 006 003 ( * T h e c u r
0005760 r e n t p a g e n u m b e r
0006000 . \r 006 001
0006020
*
0006100 006 003 C o u n t e d f r o m
0006120 1 ) 006 001 \r
0006140
0006160 F I R S T P A G E \r
0006200 \r
0006220 006 003 ( * T i f t h e c
0006240 u r r e n t p a g e i s t
0006260 h e " f i r s t p a g e "
0006300 % . \r 006 001 006
0006320 003 I s s e t i n i t i a l l
0006340 y , a n d c a n b e s e
0006360 t a g a i n b y t h e u
0006400 s e r a t w i l l . \r 006 001
0006420 006 003 G e t s
0006440 r e s e t a f t e r e a c h
0006460 p a g e i m a g e i s p
0006500 r i n t e d . ) 006 001 \r \r
0006520
0006540 M I N P A G E
0006560 #
0006600 006 003 ( * T h
0006620 e p a g e # o f t h e
0006640 f i r s t p a g e t o b e
0006660 \r 006 001
0006700
*
0006760 006 003 p r i n t e d , o r N
0007000 I L ) 006 001 \r
0007020
0007040 M A X P A G E #
0007060
0007100 006 003 ( * T h e p a g e
0007120 # o f t h e l a s t p
0007140 a g e t o b e \r 006 001
0007160
*
0007240 006 003 p r i n
0007260 t e d , o r N I L ) 006 001 \r
0007300
0007320 S T A T
0007340 E
0007360 006 003 ( *
0007400 O n e o f F O R M A T T I
0007420 N G o r S E A R C H I N G .
0007440 ) 006 001 \r
0007460
0007500 R E Q U I R E D R E G I O N T
0007520 Y P E
0007540 006 003 ( * I f S T A T E i
0007560 s S E A R C H I N G , t h e
0007600 k i n d o f \r 006 001
0007620
*
0007700 006 003 b o x w
0007720 e ' r e l o o k i n g f o r
0007740 . ) 006 001 \r
0007760
0010000 M A I N S T R E A M
0010020
0010040 006 003 ( * T h e p r i n c
0010060 i p a l t e x t o b j / s t r
0010100 e a m s o u r c e ) 006 001 \r
0010120
0010140 C H N O
0010160
0010200 006 003 ( *
0010220 O u r p o s i t i o n i n
0010240 t h a t s t r e a m ) 006 001 \r
0010260
0010300 P R E S
0010320 S R E G I O N
0010340 006 003 ( *
0010360 T h e p r e s s c o d e '
0010400 s R E G I O N i n f o . ) 006
0010420 001 \r
0010440 P
0010460 A G E H E A D I N G S
0010500 006
0010520 003 ( * T h e l i s t o f
0010540 c u r r e n t v a l u e s t
0010560 o b e \r 006 001
0010600
*
0010660 006 003 p r i n t e d ,
0010700 i n d e x e d b y h e a d i
0010720 n g t y p e ) 006 001 \r
0010740
0010760 P A G E # G E N
0011000 E R A T O R
0011020 006 003 ( * L i s
0011040 t o f p a g e n u m b e r
0011060 s ; \r 006 001
0011100
*
0011160 006 003 l a t e r , m a y b e
0011200 , a f u n c t i o n t o
0011220 g e n e r a t e \r 006 001
0011240
*
0011320 006 003 p a g e
0011340 n u m b e r s . U s e d t o
0011360 f i l l i n \r 006 001
0011400
*
0011460 006 003 P A G E #
0011500 T E X T , b e l o w ) 006 001 \r
0011520
0011540 P A G E
0011560 # T E X T
0011600 006 003 ( *
0011620 I f s p e c i a l p a g e
0011640 n u m b e r s a r e i n
0011660 u s e , \r 006 001
0011700
*
0011760 006 003 t h i s i s t
0012000 h e p l a c e t o t a k e
0012020 t h e m f r o m . \r 006 001
0012040
*
0012120 006 003 P A G
0012140 E # i s s t i l l u s e d
0012160 f o r r e c t o / v e r s o
0012200 \r 006 001
0012220
*
0012300 006 003 d e c i s i o n s & c )
0012320 006 001 \r
0012340
0012360 P A G E I S R E C T O
0012400
0012420 006 003 ( * T i f t h i s i
0012440 s a r e c t o p a g e ,
0012460 N I L i f \r 006 001
0012500
*
0012560 006 003 i t ' s a
0012600 V E R S O p a g e . ) 006 001 \r
0012620
0012640 P A G E
0012660 F O O T N O T E L I N E S
0012700 006 003 ( *
0012720 A l i s t o f e x t a n
0012740 t f o o t n o t e l i n e s
0012760 \r 006 001
0013000
*
0013060 006 003 t h a t s h o u l d a
0013100 p p e a r a t t h e n e x
0013120 t \r 006 001
0013140
*
0013220 006 003 o p p o r t u n i t y )
0013240 006 001 \r
0013260
0013300 P A G E F L O A T I N G T O P L
0013320 I N E S
0013340 006 003 ( * A l i s t o f l
0013360 i n e s t h a t s h o u l d
0013400 f l o a t \r 006 001
0013420
*
0013500 006 003 t o t h e
0013520 t o p o f t h e n e x t
0013540 a v a i l a b l e p l a c e )
0013560 006 001 \r
0013600
0013620 P A G E C O U N T
0013640
0013660 006 003 ( * T h e n u m b e r
0013700 o f p a g e s w e ' v e f
0013720 o r m a t t e d \r 006 001
0013740
*
0014020 006 003 s o f a
0014040 r . ) 006 001 \r
0014060
0014100 P A G E L I N E C A C H E
0014120
0014140 006 003 ( * A c a c h e
0014160 f o r p r e - c r e a t e d
0014200 \r 006 001
0014220
*
0014300 006 003 L I N E D E S C R I P T O R
0014320 / T H I S L I N E s e t s ,
0014340 t o a v o i d \r 006 001
0014360
*
0014440 006 003 t h e o
0014460 v e r h e a d o f r e - a l
0014500 l o c a t i n g t h e m a l
0014520 l \r 006 001
0014540
*
0014620 006 003 t h e t i m e ) 006 001 \r
0014640
0014660 ) \r
0014700
0014720 P A G E C
0014740 O U N T _ 0 ) \r \r ( D A T A
0014760 T Y P E 006 002 P A G E R E G I O
0015000 N 006 001 ( R E G I O N F I L L M
0015020 E T H O D
0015040 006 003 ( *
0015060 W h a t k i n d o f a
0015100 r e g i o n t h i s i s -
0015120 - \r 006 001
0015140
*
0015220 006 003 T E X T , F O L I O ,
0015240 P A G E H E A D I N G , e t c
0015260 . ) 006 001 \r
0015300
0015320 R E G I O N S P E C
0015340
0015360 006 003 ( * T h e p a g e -
0015400 r e l a t i v e r e g i o n
0015420 t h i s \r 006 001
0015440
*
0015520 006 003 o c c u p i e s )
0015540 006 001 \r
0015560 R
0015600 E G I O N L O C A L I N F O
0015620
0015640 006 003 ( * A P L I S T f o r
0015660 l o c a l i n f o r m a t i
0015700 o n ) 006 001 \r
0015720
0015740 ( R E G I O N P A R E N T
0015760 F U L L X P O I N T E R )
0016000 006 003 ( * T h e p a r e
0016020 n t n o d e f o r t h i s
0016040 b o x , f o r \r 006 001
0016060
*
0016140 006 003 s u b -
0016160 b o x e s ) 006 001 \r
0016200
0016220 R E G I O N S U B B O
0016240 X E S
0016260 006 003 ( * T h e s
0016300 u b - r e g i o n s o f t h
0016320 i s r e g i o n ) 006 001 \r
0016340
0016360 R E G I O N T
0016400 Y P E
0016420 006 003 ( * A
0016440 u s e r - s e t t a b l e r
0016460 e g i o n t y p e ) 006 001 \r
0016500
0016520 ) ) \r ] \r (
0016540 / D E C L A R E D A T A T Y P E
0016560 ( Q U O T E P A G E R E G I
0016600 O N ) \r ( Q U O T
0016620 E ( P O I N T E R P O I N T
0016640 E R P O I N T E R F U L L X
0016660 P O I N T E R P O I N T E R
0016700 P O I N T E R ) ) \r
0016720 ( Q U O T E ( ( P A G E R E
0016740 G I O N 0 P O I N T E R ) \r
0016760 (
0017000 P A G E R E G I O N 2 P O I
0017020 N T E R ) \r
0017040 ( P A G E R E G I O N
0017060 4 P O I N T E R ) \r
0017100 ( P A G E
0017120 R E G I O N 6 F U L L X P O
0017140 I N T E R ) \r
0017160 ( P A G E R E G I O
0017200 N 8 P O I N T E R ) \r
0017220 ( P A G
0017240 E R E G I O N 1 0 P O I N T
0017260 E R ) ) ) \r ( Q U
0017300 O T E 1 2 ) ) \r \r ( R P A Q Q
0017320 006 002 M A X P A G E # 006 001 6 5
0017340 5 3 5 ) \r \r ( R P A Q Q 006 002 M
0017360 I N P A G E # 006 001 1 ) \r \r ( R
0017400 P A Q 006 002 T E D I T . P A G E
0017420 . F R A M E S 006 001 ( L I S T
0017440 ( T E D I T . S I N G L E . P A
0017460 G E F O R M A T N I L N I L
0017500 N I L N I L N I L 7 2
0017520 7 2 7 2 7 2 N I L 1 ) \r
0017540
0017560 ( T
0017600 E D I T . S I N G L E . P A G E
0017620 F O R M A T T 7 2 7 5 6
0017640 N I L ( Q U O T E L E F T )
0017660 \r
0017700
0017720 7 2 7 2 7 2 7
0017740 2 N I L 1 ) \r
0017760
0020000 ( T E D I T . S I
0020020 N G L E . P A G E F O R M A T
0020040 T 5 4 0 7 5 6 N I L ( Q
0020060 U O T E R I G H T ) \r
0020100
*
0020140 7 2 7 2 7 2 7 2 N I L
0020160 1 ) ) ) \r \r \r \r 006 004 ( * C r
0020200 e a t i o n , G E T , a n d
0020220 P U T o f p a g e f r a
0020240 m e s . ) 006 001 \r \r ( D E F I N E
0020260 Q \r \r ( 006 004 T E D I T . G E T .
0020300 P A G E F R A M E S 006 001 \r [
0020320 L A M B D A ( F I L E )
0020340
*
0020400 006 003 ( * j
0020420 d s " 1 8 - J u n - 8 4 0 2
0020440 : 5 5 " ) 006 001 \r
0020460
*
0020540 006 003 ( * R e a d a
0020560 b u n c h o f p a g e f
0020600 r a m e s f r o m t h e f
0020620 i l e , a n d r e t u r n 006
0020640 001 \r \t \t \t \t \t \t \t 006 003
0020660 i t . ) 006 001 \r ( 006 002 T E
0020700 D I T . P A R S E . P A G E F R
0020720 A M E S 006 001 ( R E A D F I L
0020740 E ] ) \r \r ( 006 004 T E D I T . P A
0020760 R S E . P A G E F R A M E S 006 001
0021000 \r [ L A M B D A ( P A G E
0021020 L I S T P A R E N T )
0021040
0021060 006 003
0021100 ( * j d s " 3 1 - J u l - 8
0021120 4 1 5 : 3 0 " ) 006 001 \r
0021140
*
0021220 006 003 ( * T a
0021240 k e a n e x t e r n a l p
0021260 a g e f r a m e a n d i n t
0021300 e r n a l i z e i t . ) 006 001 \r
0021320 ( P R O G ( F R A M E
0021340 T Y P E P A G E F R A M E ) \r
0021360 ( C O N D \r
0021400 \t ( ( 006 002 t y p e ? 006 001
0021420 P A G E R E G I O N P A G E
0021440 L I S T ) \r \t ( R E
0021460 T U R N P A G E L I S T ) ) \r
0021500 \t ( ( N E Q ( Q U O T
0021520 E L I S T ) \r \t \t ( S E T
0021540 Q F R A M E T Y P E ( 006 002 p
0021560 o p 006 001 P A G E L I S T ) ) )
0021600 \r \t [ S E T Q P A
0021620 G E F R A M E ( 006 002 c r e a t
0021640 e 006 001 P A G E R E G I O N \r \t
0021660 \t \t \t R E G I O N F
0021700 I L L M E T H O D _ F R A M
0021720 E T Y P E \r \t \t \t \t
0021740 R E G I O N T Y P E _ ( 006 002 p
0021760 o p 006 001 P A G E L I S T ) \r \t
0022000 \t \t \t R E G I O N L
0022020 O C A L I N F O _ ( 006 002 p o p
0022040 006 001 P A G E L I S T ) \r \t \t \t
0022060 \t R E G I O N S P E
0022100 C _ ( O R ( 006 002 p o p 006 001
0022120 P A G E L I S T ) \r \t \t \t \t \t \t
0022140 ( L I S T 0 0
0022160 0 0 ] \r \t ( 006 002 r
0022200 e p l a c e 006 001 R E G I O N S
0022220 U B B O X E S 006 002 o f 006 001 P
0022240 A G E F R A M E 006 002 w i t h 006
0022260 001 ( 006 002 f o r 006 001 A L I S T
0022300 006 002 i n 006 001 ( 006 002 p o p 006 001
0022320 P A G E L I S T ) \r \t \t \t \t \t
0022340 \t \t 006 002 c o l l e c t 006 001
0022360 ( 006 002 T E D I T . P A R S E .
0022400 P A G E F R A M E S 006 001 A L I
0022420 S T \r \t \t \t \t \t \t \t \t \t \t \t P
0022440 A G E F R A M E ) ) ) \r \t
0022460 ( R E T U R N P A G E F
0022500 R A M E ) ) \r \t ( T (
0022520 R E T U R N ( 006 002 f o r 006 001
0022540 F R A M E S P E C 006 002 i n 006 001
0022560 ( C A R P A G E L I S T )
0022600 006 002 c o l l e c t 006 001 ( 006 002 T
0022620 E D I T . P A R S E . P A G E F
0022640 R A M E S 006 001 F R A M E S P E
0022660 C N I L ] \r ) \r \r ( 006 004 T E D
0022700 I T . P U T . P A G E F R A M E
0022720 S 006 001 \r [ L A M B D A ( F
0022740 I L E P A G E F R A M E S ) 006
0022760 003 006 001
0023000
0023020 006 003 ( * j d s "
0023040 4 - J u n - 8 6 1 6 : 0 2 " )
0023060 006 001 \r
0023100
*
0023160 006 003 ( * P u t o u t a d
0023200 e s c r i p t i o n o f a
0023220 s e t o f \r 006 001
0023240
*
0023320 006 003 p a g e - l a
0023340 y o u t f r a m e s ) 006 001 \r
0023360 ( P R O G ( S T R ) \r
0023400 ( \ D W O U T
0023420 F I L E 0 )
0023440
0023460 006 003 ( *
0023500 T h e l e n g t h o f t
0023520 h i s r u n o f l o o k s
0023540 ) 006 001 \r ( \
0023560 S M A L L P O U T F I L E \
0023600 P i e c e D e s c r i p t o r P
0023620 A G E F R A M E )
0023640 006 003 ( * M a r k t h i s
0023660 a s a s e t o f p a g e
0023700 f r a m e s ) 006 001 \r
0023720 ( P R I N 2 ( 006 002 T
0023740 E D I T . U N P A R S E . P A G
0023760 E F R A M E S 006 001 P A G E F R
0024000 A M E S ) \r
0024020 F I L E ] ) \r \r (
0024040 006 004 T E D I T . U N P A R S E .
0024060 P A G E F R A M E S 006 001 \r [
0024100 L A M B D A ( P A G E F R A M
0024120 E )
0024140
0024160 006 003 ( * j
0024200 d s " 3 1 - J u l - 8 4 1 5
0024220 : 0 0 " ) 006 001 \r
0024240
*
0024320 006 003 ( * T a k e a
0024340 n i n t e r n a l p a g e
0024360 f r a m e , a n d c r e a t
0024400 e a n e q u i v a l e n t 006
0024420 001 \r \t \t \t \t \t \t \t 006 003
0024440 l i s t s t r u c t u r e . )
0024460 006 001 \r ( C O N D \r
0024500 [ ( L I S T P P A G E F
0024520 R A M E ) \r \t ( L I S T ( Q U
0024540 O T E L I S T ) \r \t
0024560 ( 006 002 f o r 006 001 F R A M E
0024600 006 002 i n 006 001 P A G E F R A M E
0024620 006 002 c o l l e c t 006 001 ( 006 002
0024640 T E D I T . U N P A R S E . P A
0024660 G E F R A M E S 006 001 F R A M E
0024700 ] \r ( T ( L I S T
0024720 ( 006 002 f e t c h 006 001 R E G I
0024740 O N F I L L M E T H O D 006 002 o
0024760 f 006 001 P A G E F R A M E ) \r \t
0025000 ( 006 002 f e t c h 006
0025020 001 R E G I O N T Y P E 006 002 o
0025040 f 006 001 P A G E F R A M E ) \r \t
0025060 ( 006 002 f e t c h 006
0025100 001 R E G I O N L O C A L I N F
0025120 O 006 002 o f 006 001 P A G E F R A
0025140 M E ) \r \t ( 006 002 f
0025160 e t c h 006 001 R E G I O N S P E
0025200 C 006 002 o f 006 001 P A G E F R A
0025220 M E ) \r \t ( 006 002 f
0025240 o r 006 001 S U B R E G I O N 006
0025260 002 i n 006 001 ( 006 002 f e t c h 006 001
0025300 R E G I O N S U B B O X E S
0025320 006 002 o f 006 001 P A G E F R A M E
0025340 ) 006 002 c o l l e c t 006 001 ( 006
0025360 002 T E D I T . U N P A R S E . P
0025400 A G E F R A M E S 006 001 \r \t \t \t \t
0025420 \t \t \t \t \t S U B R
0025440 E G I O N ] ) \r ) \r \r \r \r 006 004 (
0025460 * F o r s e t t i n g u p
0025500 p a g e l a y o u t s ) 006 001
0025520 \r \r ( D E F I N E Q \r \r ( 006 004 T
0025540 E D I T . S I N G L E . P A G E
0025560 F O R M A T 006 001 \r [ L A M B
0025600 D A ( P A G E # S ? P X P
0025620 Y P F O N T P Q U A D L E
0025640 F T R I G H T T O P B O T
0025660 T O M C O L S C O L W I D T
0025700 H I N T E R C O L H E A D I
0025720 N G S U N I T S \r \t \t
0025740 P A G E P R O P S P A P E R S
0025760 I Z E )
0026000 006 003 ( * j
0026020 d s " 8 - J a n - 8 6 1 4
0026040 : 3 2 " ) 006 001 \r
0026060
*
0026140 006 003 ( * G i v e n
0026160 a d e s c r i p t i o n i n
0026200 t h e a r g s , c r e a t
0026220 e a p a g e f r a m e 006 001 \r
0026240 \t \t \t \t \t \t \t 006 003 t o
0026260 d e s c r i b e a s i n g
0026300 l e k i n d o f p a g e .
0026320 ) 006 001 \r ( 006 001 P R O G 006
0026340 001 ( [ P A G E R E G I O N (
0026360 006 002 c r e a t e 006 001 P A G E R
0026400 E G I O N \r \t \t \t \t R E G
0026420 I O N F I L L M E T H O D _ (
0026440 006 001 Q U O T E 006 001 P A G E ) \r
0026460 \t \t \t \t R E G I O N S P E
0026500 C _ ( 006 002 c r e a t e 006 001 R
0026520 E G I O N \r \t \t \t \t \t \t \t L E
0026540 F T _ 0 \r \t \t \t \t \t \t \t B
0026560 O T T O M _ 0 \r \t \t \t \t \t \t
0026600 \t W I D T H _ 6 1 2 \r \t \t
0026620 \t \t \t \t \t H E I G H T _ 7
0026640 9 2 ) \r \t \t \t \t R E G I O
0026660 N L O C A L I N F O _ ( 006 001 C
0026700 O N S 006 001 ( 006 001 Q U O T E 006 001
0026720 P A P E R S I Z E ) \r \t \t \t \t
0026740 \t \t \t ( 006 001 C O N S 006 001
0026760 P A P E R S I Z E P A G E P
0027000 R O P S ] \r \t ( P A P
0027020 E R W I D T H ( 006 002 \ T E D I
0027040 T . P A P E R W I D T H 006 001 P
0027060 A P E R S I Z E ) ) \r \t
0027100 ( P A P E R H E I G H T ( 006
0027120 002 \ T E D I T . P A P E R H E I
0027140 G H T 006 001 P A P E R S I Z E )
0027160 ) \r \t ( L A N D S C A
0027200 P E ? ( 006 001 L I S T G E T 006 001
0027220 P A G E P R O P S ( 006 001 Q U
0027240 O T E 006 001 L A N D S C A P E ?
0027260 ) ) ) \r \t P A G E W I
0027300 D T H S U B R E G I O N S F
0027320 O L I O F O L I O L E F T S
0027340 C A L E F A C T O R H E A D I
0027360 N G R E G I O N S ) \r \t
0027400 ( 006 001 C O N D 006 001 \r \t
0027420 ( L A N D S C A P E ?
0027440
*
0027500 006 003 ( * T h e p a p e r i
0027520 s t o b e p r i n t e d
0027540 o n s i d e w a y s - - s
0027560 o - c a l l e d 006 001 \r \t \t \t \t \t
0027600 \t \t 006 003 l a n d s c a
0027620 p e m o d e . S w i t c h
0027640 t h e w i d t h a n d h e
0027660 i g h t . ) 006 001 \r \t \t \t ( 006
0027700 002 s w a p 006 001 P A P E R W I D
0027720 T H P A P E R H E I G H T ) )
0027740 ) \r \t ( 006 001 S E L E C T
0027760 Q 006 001 U N I T S \r \t \t
0030000 ( ( P O I N T S N I L )
0030020
0030040 006 003 ( * I f
0030060 u n i t s a r e i n p r
0030100 i n t e r s p o i n t s , t
0030120 h e d e f a u l t , d o n
0030140 o 006 001 \r \t \t \t \t \t \t \t
0030160 006 003 s c a l i n g ) 006 001 \r \t \t \t
0030200 ( 006 001 S E T Q 006 001 S C A L E
0030220 F A C T O R 1 ) ) \r \t \t
0030240 ( P I C A S
0030260
0030300 006 003 ( * T
0030320 h e u n i t s a r e i n
0030340 p i c a s - - 1 2 p t s p e r
0030360 . 006 001 \r \t \t \t \t \t \t \t
0030400 006 003 S c a l e a l l v a l u
0030420 e s . ) 006 001 \r \t \t \t
0030440 ( 006 001 S E T Q 006 001 S C A L E F
0030460 A C T O R 1 2 ) ) \r \t \t
0030500 ( I N C H E S
0030520
0030540 006 003 ( * T
0030560 h e u n i t s a r e i n
0030600 i n c h e s , a t 7 2 . 2 7
0030620 p t s p e r . 006 001 \r \t \t \t \t \t
0030640 \t \t 006 003 S e t t h e
0030660 s c a l e f a c t o r ) 006 001
0030700 \r \t \t \t ( 006 001 S E
0030720 T Q 006 001 S C A L E F A C T O R
0030740 7 2 ) ) \r \t \t (
0030760 M I C A S
0031000
0031020 006 003 ( * T h e u n
0031040 i t s a r e M I C A S , a
0031060 t 2 5 4 0 t o t h e i n
0031100 c h . ) 006 001 \r \t \t \t
0031120 ( 006 001 S E T Q 006 001 S C A L E F
0031140 A C T O R . 0 2 8 3 4 6 4 6 )
0031160 ) \r \t \t [ C M
0031200
*
0031240 006 003 ( * U n i t s a r e
0031260 i n C M , a t 7 2 . 2 7 /
0031300 2 . 5 4 p t s p e r . ) 006 001 \r
0031320 \t \t \t ( 006 001 S E T Q 006 001
0031340 S C A L E F A C T O R ( 006 001 C
0031360 O N S T A N T 006 001 ( 006 001 F Q U
0031400 O T I E N T 006 001 7 2 2 . 5 4
0031420 ] \r \t \t ( 006 001 \ I
0031440 L L E G A L . A R G 006 001 U N I
0031460 T S ) )
0031500 006 003 ( * W e n e e d
0031520 t o d o t h e s c a l i n
0031540 g . ) 006 001 \r \t ( 006 001 S E
0031560 T Q 006 001 P X ( 006 002 S C A L E
0031600 P A G E X U N I T S 006 001 P X
0031620 S C A L E F A C T O R P A P E
0031640 R S I Z E ) ) \r \t ( 006 001
0031660 S E T Q 006 001 P Y ( 006 002 S C A
0031700 L E P A G E Y U N I T S 006 001 P
0031720 Y S C A L E F A C T O R P A
0031740 P E R S I Z E ) ) \r \t [
0031760 006 001 A N D 006 001 L E F T ( 006 001
0032000 S E T Q 006 001 L E F T ( 006 001 F
0032020 I X R 006 001 ( 006 001 F T I M E S 006
0032040 001 L E F T S C A L E F A C T
0032060 O R ] \r \t [ 006 001 A N D 006
0032100 001 R I G H T ( 006 001 S E T Q 006
0032120 001 R I G H T ( 006 001 F I X R 006
0032140 001 ( 006 001 F T I M E S 006 001 R I
0032160 G H T S C A L E F A C T O R ]
0032200 \r \t [ 006 001 A N D 006 001 T
0032220 O P ( 006 001 S E T Q 006 001 T O P
0032240 ( 006 001 F I X R 006 001 ( 006 001 F T
0032260 I M E S 006 001 T O P S C A L E
0032300 F A C T O R ] \r \t [ 006 001
0032320 A N D 006 001 B O T T O M ( 006 001
0032340 S E T Q 006 001 B O T T O M ( 006
0032360 001 F I X R 006 001 ( 006 001 F T I M E
0032400 S 006 001 B O T T O M S C A L E
0032420 F A C T O R ] \r \t [ 006 001
0032440 A N D 006 001 C O L W I D T H (
0032460 006 001 S E T Q 006 001 C O L W I D T
0032500 H ( 006 001 F I X R 006 001 ( 006 001 F
0032520 T I M E S 006 001 C O L W I D T H
0032540 S C A L E F A C T O R ] \r \t
0032560 [ 006 001 A N D 006 001 I N T E
0032600 R C O L ( 006 001 S E T Q 006 001 I
0032620 N T E R C O L ( 006 001 F I X R 006
0032640 001 ( 006 001 F T I M E S 006 001 I N
0032660 T E R C O L S C A L E F A C T
0032700 O R ] \r \t [ 006 001 S E T Q
0032720 006 001 H E A D I N G S ( 006 002 f
0032740 o r 006 001 H D G 006 002 i n 006 001
0032760 H E A D I N G S 006 002 c o l l e
0033000 c t 006 001 ( 006 001 L I S T 006 001 (
0033020 006 001 C A R 006 001 H D G ) \r \t \t \t
0033040 \t \t \t \t \t \t ( 006 002 S C A L E P A
0033060 G E X U N I T S 006 001 \r \t \t \t \t \t
0033100 \t \t \t \t ( 006 001 C A D R 006 001
0033120 H D G ) \r \t \t \t \t \t \t \t \t \t
0033140 S C A L E F A C T O R P A P E
0033160 R S I Z E ) \r \t \t \t \t \t \t \t \t \t
0033200 ( 006 002 S C A L E P A G E Y U N I
0033220 T S 006 001 \r \t \t \t \t \t \t \t \t \t
0033240 ( 006 001 C A D D R 006 001 H D G ) \r
0033260 \t \t \t \t \t \t \t \t \t S C A L E
0033300 F A C T O R P A P E R S I Z E
0033320 ] \r \t ( 006 001 S E T Q 006 001
0033340 P A G E W I D T H ( 006 001 I D
0033360 I F F E R E N C E 006 001 ( 006 001 I
0033400 D I F F E R E N C E 006 001 P A P
0033420 E R W I D T H R I G H T ) \r \t
0033440 \t \t \t \t L E F T ) ) \r
0033460 \t ( 006 001 C O N D 006 001 \r \t
0033500 [ P A G E # S ? (
0033520 006 001 S E L E C T Q 006 001 P Q U A
0033540 D \r \t \t \t \t ( L E F T
0033560
0033600 006 003 ( * I f t h e p
0033620 a g e n u m b e r i s f l
0033640 u s h l e f t , s e t u p
0033660 t h e r e g i o n 006 001 \r \t \t
0033700 \t \t \t \t \t 006 003 t o s
0033720 t a r t w h e r e h e s p
0033740 e c i f i e d . ) 006 001 \r \t \t \t \t
0033760 \t ( 006 001 S E T Q 006 001 F O L I O
0034000 L E F T P X ) ) \r \t \t \t \t
0034020 ( R I G H T
0034040 006 003 ( *
0034060 I f i t ' s f l u s h r i
0034100 g h t , s e t u p t h e
0034120 r e g i o n t o E N D 006 001
0034140 \r \t \t \t \t \t \t \t 006 003 t
0034160 h e r e ) 006 001 \r \t \t \t \t \t ( 006
0034200 001 S E T Q 006 001 F O L I O L E F
0034220 T ( 006 001 I D I F F E R E N C E
0034240 006 001 P X 2 8 8 ) ) ) \r \t \t \t
0034260 \t ( ( C E N T E R E D N I
0034300 L ) 006 003
0034320 ( * O t h e r w i s e , c e
0034340 n t e r t h e p a g e n u
0034360 m b e r a r o u n d t h e
0034400 p o i n t 006 001 \r \t \t \t \t \t \t \t
0034420 006 003 h e s p e c i f
0034440 i e s ) 006 001 \r \t \t \t \t (
0034460 006 001 S E T Q 006 001 F O L I O L E
0034500 F T ( 006 001 I D I F F E R E N C
0034520 E 006 001 P X 1 4 4 ) ) ) \r \t \t
0034540 \t \t ( 006 001 S H O U L D N T 006
0034560 001 ) ) \r \t \t [ 006 001
0034600 S E T Q 006 001 S U B R E G I O N
0034620 S \r \t \t \t ( 006 001 L I S T 006 001
0034640 ( 006 001 S E T Q 006 001 F O L I O \r
0034660 \t \t \t \t ( 006 002 c r e a t e
0034700 006 001 P A G E R E G I O N \r \t \t
0034720 \t \t \t R E G I O N F I
0034740 L L M E T H O D _ ( 006 001 Q U O
0034760 T E 006 001 F O L I O ) \r \t \t \t \t
0035000 \t R E G I O N S P E C
0035020 _ ( 006 002 c r e a t e 006 001 R E
0035040 G I O N \r \t \t \t \t \t \t \t \t
0035060 L E F T _ F O L I O L E F T
0035100 \r \t \t \t \t \t \t \t \t B O T T
0035120 O M _ P Y \r \t \t \t \t \t \t \t \t
0035140 W I D T H _ 2 8 8 \r \t
0035160 \t \t \t \t \t \t \t H E I G H T
0035200 _ 3 6 ] \r \t \t
0035220 ( 006 002 r e p l a c e 006 001 R E G
0035240 I O N L O C A L I N F O 006 002 o
0035260 f 006 001 F O L I O \r \t \t \t 006
0035300 002 w i t h 006 001 ( 006 001 L I S T 006
0035320 001 ( 006 001 Q U O T E 006 001 P A R
0035340 A L O O K S ) \r \t \t \t \t \t ( 006
0035360 001 L I S T 006 001 ( 006 001 Q U O T E
0035400 006 001 Q U A D ) \r \t \t \t \t \t \t
0035420 ( 006 001 O R 006 001 P Q U A D ( 006
0035440 001 Q U O T E 006 001 C E N T E R E
0035460 D ) ) ) \r \t \t \t \t \t ( 006 001 Q U
0035500 O T E 006 001 C H A R L O O K S )
0035520 \r \t \t \t \t \t ( 006 001 \ T E D I T
0035540 . U N P A R S E . C H A R L O O
0035560 K S . L I S T 006 001 ( 006 001 006 001 \r
0035600 \t \t \t \t \t \t \t \t 006 001
0035620 \ T E D I T . P A R S E . C H A
0035640 R L O O K S . L I S T 006 001 \r \t \t
0035660 \t \t \t \t \t \t \t P F O N T
0035700 ) ) \r \t \t \t \t \t ( 006 001 Q U O T
0035720 E 006 001 F O R M A T I N F O ) \r
0035740 \t \t \t \t \t ( 006 001 L I S T G E T
0035760 006 001 P A G E P R O P S ( 006 001
0036000 Q U O T E 006 001 F O L I O I N F
0036020 O ] \r \t ( T ( 006 001
0036040 S E T Q 006 001 S U B R E G I O N
0036060 S N I L ) ) ) \r \t [ 006
0036100 001 C O N D 006 001 \r \t (
0036120 H E A D I N G S
0036140
0036160 006 003
0036200 ( * T h e r e a r e p a g
0036220 e h e a d i n g s s p e c i
0036240 f i e d f o r t h i s p a
0036260 g e . ) 006 001 \r \t \t \t [ 006 001 S E T
0036300 Q 006 001 H E A D I N G R E G I O
0036320 N S ( 006 002 f o r 006 001 H E A D
0036340 I N G 006 002 i n 006 001 H E A D I
0036360 N G S \r \t \t \t \t \t \t 006 002 c o
0036400 l l e c t 006 001 \r \r
0036420 006 003 ( * R u n t h r
0036440 u t h e l i s t o f h e
0036460 a d i n g s , b u i l d i n g
0036500 a b o x f o r e a c h .
0036520 B y d e f a u l t , a h
0036540 e a d i n g w i l l h a v e
0036560 t h e s a m e w i d t h
0036600 r i g h t 006 001 \r \t 006 003 m a
0036620 r g i n a s t h e l e f t
0036640 m a r g i n t h a t w a s
0036660 s p e c i f i e d . ) 006 001 \r \r
0036700 \r \t \t \t \t \t \t \t ( 006 002 c
0036720 r e a t e 006 001 \r \t \t \t \t \t \t \t
0036740 P A G E R E G I O N \r
0036760 \t \t \t \t \t \t \t R E G
0037000 I O N F I L L M E T H O D _ (
0037020 006 001 Q U O T E 006 001 H E A D I N
0037040 G ) \r \t \t \t \t \t \t \t
0037060 R E G I O N S P E C _ ( 006 002 c
0037100 r e a t e 006 001 \r \t \t \t \t \t \t \t \t
0037120 R E G I O N \r \t \t \t \t \t \t \t \t L
0037140 E F T _ ( 006 001 C A D R 006 001 H
0037160 E A D I N G ) \r \t \t \t \t \t \t \t \t
0037200 B O T T O M _ ( 006 001 C A D D R
0037220 006 001 H E A D I N G ) \r \t \t \t \t
0037240 \t \t \t \t W I D T H _ ( 006 001 I M
0037260 A X 006 001 ( 006 001 I D I F F E R E
0037300 N C E 006 001 \r \t \t \t \t \t \t \t \t \t \t
0037320 P A P E R W I D T H \r \t \t \t \t
0037340 \t \t \t \t \t \t ( 006 001 C A D R 006 001
0037360 H E A D I N G ) ) \r \t \t \t \t \t
0037400 \t \t \t \t 7 2 ) \r \t
0037420 \t \t \t \t \t \t \t H E I G H T _
0037440 3 6 ) \r \t \t \t \t \t \t \t
0037460 R E G I O N L O C A L I N F O
0037500 _ ( 006 001 L I S T 006 001 ( 006 001 Q
0037520 U O T E 006 001 \r \t \t \t \t \t \t \t \t \t
0037540 \t \t H E A D I N G T Y P E ) \r
0037560 \t \t \t \t \t \t \t \t \t \t
0037600 ( 006 001 C A R 006 001 H E A D I N
0037620 G ] \r \t \t \t ( 006 001 S E T Q 006 001
0037640 S U B R E G I O N S ( 006 001 A P
0037660 P E N D 006 001 S U B R E G I O N
0037700 S H E A D I N G R E G I O N S
0037720 ] \r \t [ 006 001 C O N D 006 001
0037740 \r \t [ ( 006 001 O R 006 001
0037760 ( 006 001 N U L L 006 001 C O L S )
0040000 \r \t \t ( 006 001 I E Q P 006
0040020 001 C O L S 1 ) )
0040040
0040060 006 003 ( * T h e r e i s
0040100 a s i n g l e c o l u m n ,
0040120 s o t r e a t i t a s
0040140 j u s t o n e 006 001 \r \t \t \t \t
0040160 \t \t \t 006 003 t e x t r
0040200 e g i o n b o u n d e d b y
0040220 t h e p a g e m a r g i n
0040240 s . ) 006 001 \r \t \t ( 006 001 S E T Q 006
0040260 001 S U B R E G I O N S \r \t \t
0040300 ( 006 001 N C O N C 1 006 001 S U B
0040320 R E G I O N S \r \t \t \t (
0040340 006 002 c r e a t e 006 001 P A G E R
0040360 E G I O N \r \t \t \t \t
0040400 R E G I O N F I L L M E T H O D
0040420 _ ( 006 001 Q U O T E 006 001 T E X
0040440 T ) \r \t \t \t \t R E G
0040460 I O N S P E C _ ( 006 002 c r e a
0040500 t e 006 001 R E G I O N \r \t \t \t \t
0040520 \t \t \t L E F T _ L E
0040540 F T \r \t \t \t \t \t \t \t B O
0040560 T T O M _ B O T T O M \r \t \t
0040600 \t \t \t \t \t W I D T H _
0040620 P A G E W I D T H \r \t \t \t \t \t
0040640 \t \t H E I G H T _ ( 006
0040660 001 I D I F F E R E N C E 006 001 (
0040700 006 001 I D I F F E R E N C E 006 001 \r
0040720 \t \t \t \t \t \t \t \t \t \t P
0040740 A P E R H E I G H T T O P ) \r
0040760 \t \t \t \t \t \t \t \t \t \t B O T
0041000 T O M ] \r \t ( T
0041020
*
0041060 006 003 ( *
0041100 T h e r e a r e s e v e r a
0041120 l c o l u m n s . 006 001 \r \t \t \t
0041140 \t \t \t \t 006 003 W e n e
0041160 e d t o c r e a t e a t
0041200 e x t b o x f o r e a c h
0041220 c o l . ) 006 001 \r \t \t [ 006 001 C
0041240 O N D 006 001 \r \t \t [ ( 006 001 N
0041260 U L L 006 001 C O L W I D T H )
0041300
0041320 006 003 ( * H e w
0041340 a n t s u s t o f i l l
0041360 i n t h e c o l u m n w i
0041400 d t h , g i v e n 006 001 \r \t \t
0041420 \t \t \t \t \t 006 003 m a r g
0041440 i n s a n d i n t e r c o l
0041460 u m n s p a c i n g . ) 006 001 \r
0041500 \t \t ( 006 001 C O N D 006 001
0041520 \r \t \t [ I N T E R
0041540 C O L ( 006 001 S E T Q 006 001 C O
0041560 L W I D T H ( 006 001 F I X R 006 001
0041600 ( 006 001 F Q U O T I E N T 006 001
0041620 ( 006 001 I D I F F E R E N C E 006 001
0041640 \r \t \t \t \t \t \t \t \t \t P A G E W
0041660 I D T H \r \t \t \t \t \t \t \t \t \t (
0041700 006 001 I T I M E S 006 001 I N T E R
0041720 C O L \r \t \t \t \t \t \t \t \t \t \t
0041740 ( 006 001 S U B 1 006 001 C O L S )
0041760 ) ) \r \t \t \t \t \t \t \t \t
0042000 C O L S ] \r \t \t
0042020 ( T
0042040
0042060 006 003 ( * C a n '
0042100 t d e f a u l t b o t h o
0042120 f t h e m . ) 006 001 \r \t \t \t
0042140 ( 006 001 S H O U L D N T 006 001 " C
0042160 a n ' t d e f a u l t b o t
0042200 h C o l w i d t h a n d
0042220 s p a c i n g " ] \r \t \t (
0042240 ( 006 001 N U L L 006 001 I N T E R C
0042260 O L )
0042300 006 003 ( *
0042320 O r e l s e h e w a n t s
0042340 t o g i v e u s j u s t
0042360 t h e c o l w i d t h a
0042400 n d 006 001 \r \t \t \t \t \t \t \t
0042420 006 003 h a v e u s c a l c
0042440 t h e s p a c i n g . ) 006 001
0042460 \r \t \t ( 006 001 S E T Q 006
0042500 001 I N T E R C O L ( 006 001 F I
0042520 X R 006 001 ( 006 001 F Q U O T I E N
0042540 T 006 001 ( 006 001 I D I F F E R E N
0042560 C E 006 001 P A G E W I D T H (
0042600 006 001 I T I M E S 006 001 \r \t \t \t \t
0042620 \t \t \t \t \t \t \t C O L W I D T H
0042640 \r \t \t \t \t \t \t \t \t \t \t \t
0042660 C O L S ) ) \r \t \t \t \t \t \t \t
0042700 ( 006 001 S U B 1 006 001 C O L
0042720 S ] \r \t \t ( 006 002 f o r 006 001 C
0042740 O L 006 002 f r o m 006 001 1 006 002
0042760 t o 006 001 C O L S 006 002 a s 006 001
0043000 C L E F T 006 002 f r o m 006 001
0043020 L E F T 006 002 b y 006 001 ( 006 001 I
0043040 P L U S 006 001 C O L W I D T H
0043060 I N T E R C O L ) \r \t \t
0043100 006 002 d o 006 001 ( 006 001 S E T Q 006 001
0043120 S U B R E G I O N S \r \t \t \t
0043140 ( 006 001 N C O N C 1 006 001 S U
0043160 B R E G I O N S \r \t \t \t \t
0043200 ( 006 002 c r e a t e 006 001 P A
0043220 G E R E G I O N \r \t \t \t \t \t
0043240 R E G I O N F I L L M
0043260 E T H O D _ ( 006 001 Q U O T E 006
0043300 001 T E X T ) \r \t \t \t \t \t
0043320 R E G I O N S P E C _
0043340 ( 006 002 c r e a t e 006 001 R E G I
0043360 O N \r \t \t \t \t \t \t \t \t
0043400 L E F T _ C L E F T \r \t \t \t
0043420 \t \t \t \t \t B O T T O M
0043440 _ B O T T O M \r \t \t \t \t \t \t
0043460 \t \t W I D T H _ C
0043500 O L W I D T H \r \t \t \t \t \t \t \t \t
0043520 H E I G H T _ ( 006 001
0043540 I D I F F E R E N C E 006 001 \r \t \t
0043560 \t \t \t \t \t \t ( 006 001
0043600 I D I F F E R E N C E 006 001 P A
0043620 P E R H E I G H T T O P ) \r \t
0043640 \t \t \t \t \t \t \t B O
0043660 T T O M ] \r \t ( 006 002 r e
0043700 p l a c e 006 001 R E G I O N S U
0043720 B B O X E S 006 002 o f 006 001 P A
0043740 G E R E G I O N 006 002 w i t h 006
0043760 001 S U B R E G I O N S ) \r \t
0044000 ( 006 001 R E T U R N 006 001 P
0044020 A G E R E G I O N ] ) \r \r ( 006 004
0044040 T E D I T . C O M P O U N D . P
0044060 A G E F O R M A T 006 001 \r [ L
0044100 A M B D A ( 006 002 F I R S T 006 001
0044120 V E R S O R E C T O )
0044140
0044160 006 003 (
0044200 * j d s " 2 7 - J u l - 8 4
0044220 1 0 : 1 5 " ) 006 001 \r (
0044240 006 002 c r e a t e 006 001 P A G E R
0044260 E G I O N \r \t R E G I O
0044300 N F I L L M E T H O D _ ( Q U
0044320 O T E S E Q U E N C E ) \r \t
0044340 R E G I O N S U B B O X E
0044360 S _ ( L I S T F I R S T (
0044400 006 002 c r e a t e 006 001 P A G E R
0044420 E G I O N \r \t \t \t \t \t \t R E G I
0044440 O N F I L L M E T H O D _ ( Q
0044460 U O T E A L T E R N A T E ) \r
0044500 \t \t \t \t \t \t R E G I O N S U B B
0044520 O X E S _ ( L I S T ( O R
0044540 V E R S O F I R S T ) \r \t \t \t
0044560 \t \t \t \t \t ( O R R
0044600 E C T O V E R S O F I R S T
0044620 ) ) \r \t \t \t \t \t \t R E G I O N S
0044640 P E C _ ( L I S T 0 0 0
0044660 0 ) ) ) \r \t R E G I O
0044700 N S P E C _ ( L I S T 0 0
0044720 0 0 ] ) \r \r ( 006 004 T E D I T
0044740 . P A G E F O R M A T 006 001 \r
0044760 [ L A M B D A ( S T R E A M
0045000 F O R M A T )
0045020
0045040 006 003 ( *
0045060 j d s " 9 - J a n - 8 6 1
0045100 5 : 2 8 " ) 006 001 \r \r
0045120 006 003 ( * * P r o g r
0045140 a m m a t i c i n t e r f a c
0045160 e f o r p a g e f o r m a
0045200 t t i n g ) 006 001 \r \r \r (
0045220 006 001 P R O G 006 001 ( ( 006 001 T E X
0045240 T O B J 006 001 ( 006 001 T E X T O B
0045260 J 006 001 S T R E A M ) ) ) \r \t
0045300 ( 006 001 C O N D 006 001 \r \t
0045320 ( [ 006 001 O R 006 001 ( 006 002
0045340 t y p e ? 006 001 P A G E R E G I
0045360 O N F O R M A T ) \r \t \t
0045400 ( 006 001 A N D 006 001 ( 006 001 L I
0045420 S T P 006 001 F O R M A T ) \r \t \t
0045440 \t ( 006 002 t y p e ? 006 001
0045460 P A G E R E G I O N ( 006 001 C A
0045500 R 006 001 F O R M A T ] \r \r
0045520 006 003 ( * I t ' s
0045540 i n o n e o f t h e t
0045560 w o f o r m s a c c e p t a
0045600 b l e t o t h e p a g e
0045620 f o r m a t t e r - - e i t h e
0045640 r a r e a l t r e e o f
0045660 l a y o u t i n f o , o r
0045700 a l i s t o f 006 001 \r \t
0045720 006 003 f i r s t / l e f t / r i
0045740 g h t i n f o s ) 006 001 \r \r \r \t
0045760 \t ( 006 002 r e p l a c e 006 001 T X
0046000 T P A G E F R A M E S 006 002 o f
0046020 006 001 T E X T O B J 006 002 w i t
0046040 h 006 001 F O R M A T ) \r \t \t ( 006
0046060 002 r e p l a c e 006 001 \ D I R T
0046100 Y 006 002 o f 006 001 T E X T O B J
0046120 006 002 w i t h 006 001 T ) ) \r \t
0046140 ( ( 006 001 L I S T P 006 001
0046160 F O R M A T )
0046200
0046220 006 003 ( * I t ' s
0046240 l i k e l y t o b e a l
0046260 i s t a c c e p t a b l e t
0046300 o t h e p a r s e r . 006 001 \r
0046320 \t \t \t \t \t \t \t 006 003 T r
0046340 y i t t h a t w a y . ) 006
0046360 001 \r \t \t ( 006 002 r e p l a c e 006 001
0046400 T X T P A G E F R A M E S 006
0046420 002 o f 006 001 T E X T O B J 006 002
0046440 w i t h 006 001 F O R M A T ) \r \t
0046460 \t ( 006 002 r e p l a c e 006 001 \ D
0046500 I R T Y 006 002 o f 006 001 T E X T
0046520 O B J 006 002 w i t h 006 001 T ) )
0046540 \r \t ( T ( 006 001 \ I
0046560 L L E G A L . A R G 006 001 F O R
0046600 M A T ] ) \r \r ( 006 004 \ M I C A S
0046620 T O P T S 006 001 \r [ L A M B D
0046640 A ( M i c a V a l u e )
0046660
*
0046720 006 003 ( * j d s " 3
0046740 1 - J u l - 8 4 1 3 : 5 6 " )
0046760 006 001 \r ( F I X R ( F Q
0047000 U O T I E N T M i c a V a l u
0047020 e 3 5 . 2 7 7 7 8 ] ) \r \r ( 006
0047040 004 \ P T S T O M I C A S 006 001 \r
0047060 [ L A M B D A ( P o i n t V
0047100 a l u e ) 006 003 006 001
0047120
*
0047160 006 003 ( * j
0047200 d s \r
0047220
*
0047300 "
0047320 9 - F e b - 8 6 1 5 : 2 7 "
0047340 ) 006 001 \r ( H E L P )
0047360
*
0047440 006
0047460 003 ( * ( F I X R ( F T I M E
0047500 S \r
0047520
*
0047600 P o
0047620 i n t V a l u e 3 5 . 2 7 7 7
0047640 8 ) ) ) 006 001 \r ] ) \r ) \r
0047660 \r \r \r 006 004 ( * P e r f o r m
0047700 p a g e l a y o u t , b a s
0047720 e d o n a r e g u l a r
0047740 e x p r e s s i o n o f t y
0047760 p e d r e g i o n s . ) 006 001 \r
0050000 \r ( D E F I N E Q \r \r ( 006 004 T E
0050020 D I T . F O R M A T . H A R D C
0050040 O P Y 006 001 \r [ L A M B D A
0050060 ( S T R E A M F I L E D O N
0050100 T S E N D B R E A K P A G E T
0050120 I T L E S E R V E R P R I N
0050140 T O P T I O N S I M A G E T Y
0050160 P E F I R S T P G # ) 006 003 006 001
0050200 \r
0050220
*
0050260 006 003
0050300 ( * j d s " 2 2 - A p r - 8
0050320 6 0 9 : 0 7 " ) 006 001 \r
0050340 \r
0050360 006 003 ( * * F o r m a t a
0050400 d o c u m e n t f o r h a
0050420 r d c o p y ) 006 001 \r \r (
0050440 R E S E T L S T ( P R O G (
0050460 ( T E X T O B J ( T E X T O B
0050500 J S T R E A M ) ) \r
0050520
0050540 ( F O R C E N E X T P A G E N
0050560 I L ) \r
0050600 [ F O R M A T
0050620 T I N G S T A T E ( 006 002 c r e
0050640 a t e 006 001 P A G E F O R M A T
0050660 T I N G S T A T E \r
0050700
*
0050740 P A G E # _ ( C
0050760 O N D \r
0051000
*
0051040 ( ( N U M
0051060 B E R P F I R S T P G # ) ) \r
0051100
*
0051160 ( T N I L ) ) \r
0051200
*
0051240 F I R
0051260 S T P A G E _ T \r
0051300
*
0051340 S T A T E _
0051360 F I R S T P G # \r
0051400
*
0051440 M I N P A G E # _
0051460 N I L \r
0051500
*
0051540 M A X P A G E # _ 6 5 5
0051560 3 5 \r
0051600
*
0051640 C H N O _ 1 \r
0051660
*
0051720 P A G E H E A D I N
0051740 G S _ ( L I S T N I L N I
0051760 L ) \r
0052000
*
0052040 P A G E # G E N E R A T O R _
0052060 ( A N D ( L I S T P F I R S
0052100 T P G # ) \r
0052120
*
0052200 ( C D R F I R
0052220 S T P G # ) ) \r
0052240
*
0052300 P A G E # T E X T _
0052320 ( A N D ( L I S T P F I R S
0052340 T P G # ) \r
0052360
*
0052440 ( C A R F I R S T P G #
0052460 ] \r
0052500 T E X T L E N T
0052520 H I S L I N E L I N E R E G
0052540 I O N L I N E S N C H N O
0052560 P R S T R E A M P A G E F R A
0052600 M E S S C R A T C H F I L E
0052620 W A S O P E N \r
0052640 B E
0052660 F O R E F N A F T E R F N ) \r
0052700
0052720 ( S E T Q P A G E F R
0052740 A M E S ( O R ( 006 002 f e t c
0052760 h 006 001 T X T P A G E F R A M E
0053000 S 006 002 o f 006 001 T E X T O B J
0053020 ) \r
0053040
0053060 T E D I T
0053100 . P A G E . F R A M E S ) ) \r
0053120
0053140 [ C O N D \r
0053160
0053200 ( ( L I S T P P A G E F R A M
0053220 E S )
0053240 006 003 ( * I f i t
0053260 ' s a l i s t , p a c k
0053300 i t i n t o a r e a l \r
0053320 006 001
0053340
*
0053400 006
0053420 003 s e t o f s p e c s . ) 006
0053440 001 \r
0053460 ( S E T Q
0053500 P A G E F R A M E S ( 006 002 T E
0053520 D I T . C O M P O U N D . P A G
0053540 E F O R M A T 006 001 ( C A R P
0053560 A G E F R A M E S ) \r
0053600
*
0053640 ( C A D R
0053660 P A G E F R A M E S ) \r
0053700
*
0053740 ( C A
0053760 D D R P A G E F R A M E S ] \r
0054000
0054020 ( S E T Q T E X T L E
0054040 N ( 006 002 f e t c h 006 001 T E X
0054060 T L E N 006 002 o f 006 001 T E X T
0054100 O B J ) ) \r
0054120 ( S E T Q
0054140 T H I S L I N E ( 006 002 f e t c
0054160 h 006 001 T H I S L I N E 006 002 o
0054200 f 006 001 T E X T O B J ) ) \r
0054220
0054240 ( 006 002 r e p l a c e 006 001 P
0054260 R E S S R E G I O N 006 002 o f 006
0054300 001 F O R M A T T I N G S T A T
0054320 E 006 002 w i t h 006 001 T E D I T
0054340 . D E F A U L T P A G E R E G I
0054360 O N ) \r
0054400
*
0054460 006 003 ( * P r i n t i n t
0054500 h e u s u a l r e g i o n
0054520 o n t h e \r 006 001
0054540
*
0054620 006 003 p a g e ) 006 001
0054640 \r
0054660 [ S E T Q B R E A K
0054700 P A G E T I T L E ( C O N D \r
0054720
*
0054760 ( B R E
0055000 A K P A G E T I T L E ) \r
0055020
*
0055060 ( ( L I S T G
0055100 E T P R I N T O P T I O N S
0055120 ( Q U O T E D O C U M E N T .
0055140 N A M E ) ) ) \r
0055160
*
0055220 ( [ O R ( N O T ( 006
0055240 002 f e t c h 006 001 T X T F I L E
0055260 006 002 o f 006 001 T E X T O B J )
0055300 ) \r
0055320
*
0055360 ( 006 002 t y p e ? 006 001 S T
0055400 R E A M ( 006 002 f e t c h 006 001
0055420 F U L L N A M E \r
0055440
*
0055520 006 002 o f 006
0055540 001 ( 006 002 f e t c h 006 001 T X T
0055560 F I L E 006 002 o f 006 001 T E X T
0055600 O B J ) ) ) \r
0055620
*
0055660 ( 006 002 t y p e ?
0055700 006 001 S T R I N G P ( 006 002 f e
0055720 t c h 006 001 T X T F I L E 006 002
0055740 o f 006 001 T E X T O B J ) ) \r
0055760
*
0056040 ( 006 002 t y p e ? 006 001 S T R I N
0056060 G P ( 006 002 f e t c h 006 001 F U
0056100 L L N A M E \r
0056120
*
0056200 006 002 o f 006 001
0056220 ( 006 002 f e t c h 006 001 T X T F
0056240 I L E 006 002 o f 006 001 T E X T O
0056260 B J ] \r
0056300
*
0056340 " T E d i t H a r d c o p y
0056360 O u t p u t " ) \r
0056400
*
0056440 ( T ( 006 002 f e t c
0056460 h 006 001 F U L L N A M E 006 002 o
0056500 f 006 001 ( 006 002 f e t c h 006 001 T
0056520 X T F I L E 006 002 o f 006 001 T E
0056540 X T O B J ] \r
0056560 [ S E T Q
0056600 S C R A T C H F I L E ( O R
0056620 F I L E ( P R I N T E R . S
0056640 C R A T C H . F I L E ( T E X
0056660 T S T R E A M S T R E A M ] \r
0056700
0056720 ( S E T Q B E F O R E
0056740 F N ( T E X T P R O P T E X
0056760 T O B J ( Q U O T E B E F O
0057000 R E H A R D C O P Y F N ) ) ) \r
0057020
0057040 [ C O N D \r
0057060
0057100 ( B E F O R E F N
0057120
0057140 006 003 ( * L e t
0057160 t h e g u y d o a n y p
0057200 r e - h a r d c o p y \r 006 001
0057220
*
0057300 006 003 p r
0057320 o c e s s i n g h e w a n t
0057340 s t o d o ) 006 001 \r
0057360
0057400 ( C O N D \r
0057420
*
0057460 ( ( E Q ( Q U O T E D O N '
0057500 T ) \r
0057520
0057540 ( A P P L Y *
0057560 B E F O R E F N T E X T S T
0057600 R E A M T E X T O B J ) ) \r
0057620
*
0057700 006 003 ( *
0057720 I f i t s a y s n o t
0057740 t o d o t h e h a r d c o
0057760 p y , \r 006 001
0060000
*
0060060 006 003 t h e n d o n ' t
0060100 . ) 006 001 \r
0060120
0060140 ( R E T U R N ] \r
0060160
0060200 ( R E S E T L S T ( S
0060220 E T Q A F T E R F N ( T E X
0060240 T P R O P T E X T O B J ( Q
0060260 U O T E A F T E R H A R D C O
0060300 P Y F N ) ) ) \r
0060320
0060340 ( A N D A F T E R F N
0060360 ( R E S E T S A V E N I L (
0060400 L I S T A F T E R F N T E X
0060420 T S T R E A M ) ) ) \r
0060440
*
0060520 006 003 ( * S e t
0060540 u p t o d o t h e u s
0060560 e r ' s c l e a n u p o n
0060600 \r 006 001
0060620
*
0060700 006 003 t h e w a y o u t , a
0060720 s w e l l . ) 006 001 \r
0060740
0060760 ( T E D I T . P R O
0061000 M P T P R I N T T E X T O B J
0061020 " F o r m a t t i n g f o r
0061040 p r i n t . . . " T ) \r
0061060
0061100 [ C O N D \r
0061120
0061140 ( ( A
0061160 N D F I L E ( O P E N P F
0061200 I L E ) \r
0061220
0061240 ( I M A G E S
0061260 T R E A M T Y P E F I L E ) )
0061300 006 003 ( * T h e f i l e
0061320 h e h a n d e d u s i s
0061340 a l r e a d y a n \r 006 001
0061360
*
0061440 006 003 i m a
0061460 g e - t y p e f i l e . J u
0061500 s t a p p e n d t h e n e
0061520 w \r 006 001
0061540
*
0061620 006 003 s t u f f t o i t .
0061640 ) 006 001 \r
0061660
0061700 ( S E T Q W A S O P E N
0061720 T ) \r
0061740
0061760 ( S E T Q P R S T R E A
0062000 M F I L E ) ) \r
0062020
0062040 ( T
0062060
0062100 006 003 ( * T ' w a s
0062120 n ' t a n i m a g e s t r
0062140 e a m , s o l e t ' s \r 006
0062160 001
0062200
*
0062240 006 003
0062260 o p e n u s o n e . ) 006 001 \r
0062300
*
0062340 ( R E S E T S A V E ( S E T
0062360 Q P R S T R E A M ( O P E N
0062400 I M A G E S T R E A M \r
0062420
*
0062500 S C R A T C H F
0062520 I L E \r
0062540
*
0062620 [ O R I M A G E T Y P E \r
0062640
*
0062720 ( S
0062740 E T Q I M A G E T Y P E \r
0062760
*
0063040 (
0063060 C A R ( P R I N T E R P R O P
0063100 ( P R I N T E R T Y P E \r
0063120
*
0063240 S E R V E R ) \r
0063260
*
0063360 ( Q U O T E C A
0063400 N P R I N T ] \r
0063420
*
0063500 ( L I S T ( Q U O T E
0063520 F O N T ) \r
0063540
*
0063620 ( F O N T C R
0063640 E A T E ( Q U O T E G A C H
0063660 A ) \r
0063700
*
0063760 1 0 ) \r
0064000
*
0064100 ( Q U O T E B R E A K P A
0064120 G E F I L E N A M E ) \r
0064140
*
0064220 B R
0064240 E A K P A G E T I T L E ) ) ) \r
0064260
*
0064320 ( Q U O T E (
0064340 A N D R E S E T S T A T E (
0064360 D E L F I L E ( C L O S E F ?
0064400 O L D V A L U E ] \r
0064420
*
0064500 006 003 ( * S o
0064520 w e c l o s e a n d d e l
0064540 e t e t h e f i l e i n
0064560 \r 006 001
0064600
*
0064660 006 003 c a s e o f t r o u b l
0064700 e . ) 006 001 \r
0064720
0064740 ( S T R E A M P R O P P R S
0064760 T R E A M ( Q U O T E F O R
0065000 M A T T I N G S T A T E ) \r
0065020
*
0065060 F O R M A T T I N G S T A T E )
0065100 006 003 ( *
0065120 S o t h a t s u b s i d i a
0065140 r y p e o p l e c a n f i
0065160 n d \r 006 001
0065200
*
0065260 006 003 o u t t h e s t a
0065300 t e o f t h e f o r m a t
0065320 t i n g . ) 006 001 \r
0065340
0065360 ( D S P R I G H T M A R
0065400 G I N 6 5 5 3 5 P R S T R E
0065420 A M ) \r
0065440 (
0065460 006 002 w h i l e 006 001 ( I L E Q
0065500 ( 006 002 f e t c h 006 001 C H N O
0065520 006 002 o f 006 001 F O R M A T T I N
0065540 G S T A T E ) \r
0065560
*
0065620 T E X T L E N ) \r
0065640
0065660 006 002 d o 006 001 ( 006
0065700 002 f o r 006 001 R E G I O N 006 002
0065720 i n s i d e 006 001 P A G E F R A
0065740 M E S \r
0065760
0066000 006 002 d o 006 001 (
0066020 006 002 T E D I T . F O R M A T B O
0066040 X 006 001 T E X T O B J P R S T
0066060 R E A M ( 006 002 f e t c h 006 001
0066100 C H N O 006 002 o f 006 001 \r
0066120
*
0066240 F O R M A T T I N G S T A
0066260 T E \r
0066300
*
0066400 ) \r
0066420
*
0066460 R E G I O N F O R M A T
0066500 T I N G S T A T E I M A G E T
0066520 Y P E ) ) ) \r
0066540
0066560 [ C O N D \r
0066600
0066620 ( ( N O T W A S O
0066640 P E N )
0066660 006 003 ( * O n l y i
0066700 f w e c r e a t e d t h e
0066720 i m a g e s t r e a m \r 006
0066740 001
0066760
*
0067020 006 003
0067040 s h o u l d w e c l o s e
0067060 i t . ) 006 001 \r
0067100
0067120 ( S E T Q P R S T
0067140 R E A M ( C L O S E F P R S
0067160 T R E A M ) ) \r
0067200
0067220 ( O R D O N T S
0067240 E N D ( S E N D . F I L E . T
0067260 O . P R I N T E R P R S T R E
0067300 A M S E R V E R \r
0067320
*
0067360 ( A P
0067400 P E N D P R I N T O P T I O N
0067420 S ( L I S T ( Q U O T E D
0067440 O C U M E N T . N A M E ) \r
0067460
*
0067560 B R E A
0067600 K P A G E T I T L E ] \r
0067620
0067640 ( O R F I L E
0067660 ( D E L F I L E S C R A T C H
0067700 F I L E ) ) ) \r
0067720 ( T E D
0067740 I T . P R O M P T P R I N T T
0067760 E X T O B J ( C O N C A T (
0070000 M K S T R I N G ( 006 002 f e t c
0070020 h 006 001 ( P A G E F O R M A T T
0070040 I N G S T A T E \r
0070060
*
0070160 P A G E C O U
0070200 N T ) \r
0070220
*
0070300 006 002 o f 006 001 F
0070320 O R M A T T I N G S T A T E ) )
0070340 \r
0070360
*
0070420 " p g d o n e .
0070440 " ] ) \r \r ( 006 004 T E D I T . F O
0070460 R M A T B O X 006 001 \r [ L A M
0070500 B D A ( T E X T O B J P R S
0070520 T R E A M C H # R E G I O N
0070540 F O R M A T T I N G S T A T E
0070560 S E R V E R T Y P E ) 006 003 006 001
0070600 \r
0070620
*
0070660 006 003
0070700 ( * j d s " 3 - A p r - 8
0070720 6 1 4 : 1 3 " ) 006 001 \r
0070740 \r
0070760 006 003 ( * G r a b t e x t
0071000 f r o m t h e T E X T O B J
0071020 , s t a r t i n g w i t h
0071040 C H # , a n d u s e i t
0071060 t o f i l l R E G I O N o
0071100 n \r 006 001 006
0071120 003 a p a g e . R e t u r n
0071140 a l i s t o f l i n e d
0071160 e s c r i p t o r s w h i c h
0071200 , t a k e n t o g e t h e r
0071220 , f i l l t h e \r 006 001
0071240 006 003 r e g i o n
0071260 . ) 006 001 \r \r ( P R O G
0071300 ( ( R E G I O N S P E C ( 006 002
0071320 f e t c h 006 001 ( P A G E R E G
0071340 I O N R E G I O N S P E C )
0071360 006 002 o f 006 001 R E G I O N ) ) \r
0071400 ( T E X T
0071420 L E N ( 006 002 f e t c h 006 001 T
0071440 E X T L E N 006 002 o f 006 001 T E
0071460 X T O B J ) ) \r
0071500 C H N O N C H N O L I
0071520 N E S S U B R E G I O N S P E
0071540 C ) \r ( S E
0071560 L E C T Q ( 006 002 f e t c h 006 001
0071600 R E G I O N F I L L M E T H O
0071620 D 006 002 o f 006 001 R E G I O N )
0071640 \r (
0071660 T E X T
0071700
0071720 006 003
0071740 ( * A n o r m a l t e x t
0071760 r e g i o n . \r 006 001
0072000
*
0072060 006 003 F i l l i
0072100 t w i t h t e x t f o r m
0072120 a t t e d t h e u s u a l
0072140 \r 006 001
0072160
*
0072240 006 003 w a y . ) 006 001 \r
0072260 [ C
0072300 O N D \r
0072320 ( ( 006 002 \
0072340 T E D I T . F O R M A T . F O U
0072360 N D B O X ? 006 001 R E G I O N
0072400 F O R M A T T I N G S T A T E )
0072420 \r
0072440
*
0072500 006 003
0072520 ( * O n l y f o r m a t i
0072540 f w e ' r e n o t l o o k
0072560 i n g \r 006 001
0072600
*
0072660 006 003 f o r s o m e t h
0072700 i n g e l s e . ) 006 001 \r
0072720
0072740 ( S E T Q L I N E S
0072760 ( 006 002 T E D I T . F O R M A T
0073000 T E X T B O X 006 001 T E X T O B
0073020 J P R S T R E A M C H # R
0073040 E G I O N F O R M A T T I N G
0073060 S T A T E ] ) \r
0073100 ( F O L I O
0073120
*
0073160 006 003 ( * A P a g e
0073200 N u m b e r . F i l l i t
0073220 i n a c c o r d i n g \r 006
0073240 001
0073260
*
0073320 006 003
0073340 t o t h e i n s t r u c t i
0073360 o n s ) 006 001 \r
0073400 [ C O N
0073420 D \r
0073440 ( ( 006 002 \ T
0073460 E D I T . F O R M A T . F O U N
0073500 D B O X ? 006 001 R E G I O N F
0073520 O R M A T T I N G S T A T E ) \r
0073540
*
0073620 006 003 (
0073640 * O n l y f o r m a t i f
0073660 w e ' r e n o t l o o k i
0073700 n g \r 006 001
0073720
*
0074000 006 003 f o r s o m e t h i
0074020 n g e l s e . ) 006 001 \r
0074040
0074060 ( S E T Q L I N E S
0074100 ( 006 002 T E D I T . F O R M A T
0074120 F O L I O 006 001 T E X T O B J
0074140 P R S T R E A M F O R M A T T
0074160 I N G S T A T E R E G I O N ]
0074200 ) \r
0074220 ( H E A D I N G
0074240
0074260 006
0074300 003 ( * A P a g e h e a d i
0074320 n g . F i l l i t i n f
0074340 r o m a \r 006 001
0074360
*
0074440 006 003 t e x t s o u
0074460 r c e w e s a v e d f o r
0074500 t h e o c c a s i o n . ) 006
0074520 001 \r
0074540 [ C O N D \r
0074560
0074600 ( ( 006 002 \ T E
0074620 D I T . F O R M A T . F O U N D
0074640 B O X ? 006 001 R E G I O N F O
0074660 R M A T T I N G S T A T E ) \r
0074700
*
0074760 006 003 ( *
0075000 O n l y f o r m a t i f
0075020 w e ' r e n o t l o o k i n
0075040 g \r 006 001
0075060
*
0075140 006 003 f o r s o m e t h i n
0075160 g e l s e . ) 006 001 \r
0075200
0075220 ( S E T Q L I N E
0075240 S ( 006 002 T E D I T . F O R M A
0075260 T H E A D I N G 006 001 T E X T O
0075300 B J P R S T R E A M F O R M
0075320 A T T I N G S T A T E R E G I
0075340 O N ] ) \r
0075360 ( P A G E
0075400
*
0075440 006 003 ( * T h i s b o x
0075460 i s r e a l l y a P A G E
0075500 F R A M E . \r 006 001
0075520
*
0075600 006 003 F i l l i t
0075620 i n a n d d o w h a t e
0075640 v e r o t h e r \r 006 001
0075660
*
0075740 006 003 p r o c
0075760 e s s i n g i s n e e d f u
0076000 l f o r e n d o f p a g
0076020 e . ) 006 001 \r
0076040 ( S E T Q
0076060 L I N E S N I L )
0076100
0076120 006 003 ( * T h i s w i l
0076140 l s e n d a l o n g i t s
0076160 o w n l i n e s \r 006 001
0076200
*
0076260 006 003 t o
0076300 t h e p r i n t e r . ) 006 001 \r
0076320
0076340 ( 006 002 \ T E D I T . F O
0076360 R M A T . F O U N D B O X ? 006 001
0076400 R E G I O N F O R M A T T I
0076420 N G S T A T E ) \r
0076440
*
0076520 006 003 ( * S o t h
0076540 a t i f t h i s i s t h
0076560 e b o x h e ' s \r 006 001
0076600
*
0076660 006 003 l o o
0076700 k i n g f o r , w e ' l l
0076720 s p o t i t a n d s t o p
0076740 \r 006 001
0076760
*
0077040 006 003 s e a r c h i n g ) 006 001 \r
0077060
0077100 ( 006 002 T E D I T . F O R
0077120 M A T P A G E 006 001 T E X T O B
0077140 J P R S T R E A M C H # R
0077160 E G I O N F O R M A T T I N G
0077200 S T A T E ) ) \r
0077220 ( ( R E C U R S I V
0077240 E S E Q U E N C E A L T E R
0077260 N A T E S E L E C T I O N R
0077300 E P E A T ) \r
0077320
*
0077400 006 003 ( * T h i s b
0077420 o x i s r e a l l y a l
0077440 i s t o f b o x e s . \r 006 001
0077460
*
0077540 006 003 F
0077560 i l l t h e m . ) 006 001 \r
0077600
0077620 ( 006 002 \ T E D I T . F O R M A T
0077640 . F O U N D B O X ? 006 001 R E G
0077660 I O N F O R M A T T I N G S T
0077700 A T E ) \r
0077720
*
0100000 006 003 ( * S o t h a t i
0100020 f t h i s i s t h e b o
0100040 x h e ' s \r 006 001
0100060
*
0100140 006 003 l o o k i n g
0100160 f o r , w e ' l l s p o t
0100200 i t a n d s t o p \r 006 001
0100220
*
0100300 006 003 s
0100320 e a r c h i n g ) 006 001 \r
0100340 (
0100360 S E L E C T Q ( 006 002 f e t c h
0100400 006 001 R E G I O N F I L L M E T
0100420 H O D 006 002 o f 006 001 R E G I O
0100440 N ) \r
0100460 ( ( S E Q U
0100500 E N C E R E C U R S I V E )
0100520 \r
0100540
*
0100600 006 003
0100620 ( * J u s t r u n t h r u
0100640 f i l l i n g i n t h e
0100660 \r 006 001
0100700
*
0100760 006 003 s u b - b o x e s i n o
0101000 r d e r . ) 006 001 \r
0101020
0101040 ( 006 002 b i n d 006 001 S
0101060 U B R E G I O N S P E C 006 002 f
0101100 o r 006 001 S U B R E G I O N 006
0101120 002 i n 006 001 ( 006 002 f e t c h 006 001
0101140 ( P A G E R E G I O N R E G
0101160 I O N S U B B O X E S ) \r
0101200
*
0101300 006 002 o f 006 001 R E G I O N ) \r
0101320
0101340 006
0101360 002 w h i l e 006 001 ( I L E Q (
0101400 006 002 f e t c h 006 001 ( P A G E F
0101420 O R M A T T I N G S T A T E C
0101440 H N O ) 006 002 o f 006 001 F O R M
0101460 A T T I N G S T A T E ) \r
0101500
*
0101540 T E X T L E N )
0101560 \r
0101600
0101620 006 002 d o 006 001 [ S E T Q S U B
0101640 R E G I O N S P E C ( 006 002 c r
0101660 e a t e 006 001 R E G I O N \r
0101700
*
0101760 006 002 u s i n g 006 001
0102000 ( 006 002 f e t c h 006 001 R E G I
0102020 O N S P E C 006 002 o f 006 001 S U
0102040 B R E G I O N ) \r
0102060
*
0102140 L E F T _ ( I
0102160 P L U S ( 006 002 f e t c h 006 001
0102200 L E F T \r
0102220
*
0102320 006 002 o f 006 001 ( 006 002 f e
0102340 t c h 006 001 R E G I O N S P E C
0102360 \r
0102400
*
0102500 006 002 o f 006 001 S U B
0102520 R E G I O N ) ) \r
0102540
*
0102640 ( 006 002 f e t c h 006 001
0102660 L E F T 006 002 o f 006 001 R E G I
0102700 O N S P E C \r
0102720
*
0103020 ) ) \r
0103040
*
0103120 B O T T
0103140 O M _ ( I P L U S ( 006 002 f e
0103160 t c h 006 001 B O T T O M \r
0103200
*
0103300 006 002
0103320 o f 006 001 ( 006 002 f e t c h 006 001
0103340 R E G I O N S P E C \r
0103360
*
0103500 006 002 o f 006 001 S U B R E G I
0103520 O N ) ) \r
0103540
*
0103640 ( 006 002 f e t c h 006 001 B O
0103660 T T O M \r
0103700
*
0104000 006 002 o f 006 001 R E G
0104020 I O N S P E C ] \r
0104040
0104060 ( 006 002 T E
0104100 D I T . F O R M A T B O X 006 001
0104120 T E X T O B J P R S T R E A M
0104140 ( 006 002 f e t c h 006 001 ( P A G
0104160 E F O R M A T T I N G S T A T E
0104200 \r
0104220
*
0104300 C H N
0104320 O ) 006 002 o f 006 001 F O R M A T
0104340 T I N G S T A T E ) \r
0104360
*
0104420 ( 006 002 c r e a t e 006 001
0104440 P A G E R E G I O N 006 002 u s i
0104460 n g 006 001 S U B R E G I O N R
0104500 E G I O N S P E C _ \r
0104520
*
0104600 S
0104620 U B R E G I O N S P E C ) \r
0104640
*
0104700 F O R M A T T I N
0104720 G S T A T E ) ) ) \r
0104740
0104760 ( A L T E R N A T E
0105000
0105020 006 003 ( * R u n
0105040 t h r o u g h t h e s u b -
0105060 b o x e s \r 006 001
0105100
*
0105160 006 003 r e p e a t e d
0105200 l y i n s e q u e n c e . )
0105220 006 001 \r
0105240
0105260 ( 006 002 w h i l e 006 001
0105300 ( I L E Q ( 006 002 f e t c h 006 001
0105320 ( P A G E F O R M A T T I N G
0105340 S T A T E C H N O ) 006 002 o f
0105360 006 001 F O R M A T T I N G S T A
0105400 T E ) \r
0105420
*
0105460 T E X T L E N ) \r
0105500
*
0105540 006 002 d o 006 001 ( 006 002 b i n d 006
0105560 001 S U B R E G I O N S P E C
0105600 006 002 f o r 006 001 S U B R E G I O
0105620 N \r
0105640
0105660 006 002 i
0105700 n 006 001 ( 006 002 f e t c h 006 001 (
0105720 P A G E R E G I O N R E G I O
0105740 N S U B B O X E S ) 006 002 o f 006
0105760 001 R E G I O N ) \r
0106000
*
0106040 006 002 w h i l e 006 001 (
0106060 I L E Q ( 006 002 f e t c h 006 001
0106100 ( P A G E F O R M A T T I N G S
0106120 T A T E C H N O ) 006 002 o f 006
0106140 001 \r
0106160
*
0106260 F O R M A T T
0106300 I N G S T A T E \r
0106320
*
0106400 ) \r
0106420
*
0106500 T E X T L E N ) \r
0106520
*
0106560 006 002 d o 006 001 [ S E T Q
0106600 S U B R E G I O N S P E C \r
0106620
*
0106660 ( 006
0106700 002 c r e a t e 006 001 R E G I O N
0106720 \r
0106740
*
0107000 006 002 u s i n g 006 001 ( 006 002
0107020 f e t c h 006 001 R E G I O N S P
0107040 E C 006 002 o f 006 001 S U B R E G
0107060 I O N ) \r
0107100
*
0107140 L E F
0107160 T _ ( I P L U S ( 006 002 f e t
0107200 c h 006 001 L E F T \r
0107220
*
0107320 006 002 o f 006 001 ( 006 002 f e t c
0107340 h 006 001 R E G I O N S P E C \r
0107360
*
0107460 006 002 o
0107500 f 006 001 S U B R E G I O N ) ) \r
0107520
*
0107620 ( 006 002 f e t c h 006 001
0107640 L E F T 006 002 o f 006 001 R E G I
0107660 O N S P E C ) ) \r
0107700
*
0107760 B O T T O M _ ( I P L U S
0110000 ( 006 002 f e t c h 006 001 B O T T O
0110020 M \r
0110040
*
0110120 006 002 o f
0110140 006 001 ( 006 002 f e t c h 006 001 R E
0110160 G I O N S P E C \r
0110200
*
0110300 006 002 o f 006 001
0110320 S U B R E G I O N ) ) \r
0110340
*
0110440 ( 006 002 f e t c h 006 001 B O
0110460 T T O M 006 002 o f 006 001 R E G I
0110500 O N S P E C ] \r
0110520
*
0110560 ( 006 002 T E D I T . F
0110600 O R M A T B O X 006 001 T E X T O
0110620 B J P R S T R E A M ( 006 002 f
0110640 e t c h 006 001 ( \r
0110660
*
0110760 P A G E F
0111000 O R M A T T I N G S T A T E \r
0111020
*
0111140 C H N O ) \r
0111160
*
0111300 006 002 o f 006 001 F O R M A T T I N
0111320 G S T A T E \r
0111340
*
0111440 ) \r
0111460
*
0111540 ( 006 002 c r e a t e 006 001
0111560 P A G E R E G I O N 006 002 u s
0111600 i n g 006 001 S U B R E G I O N
0111620 R E G I O N S P E C _ \r
0111640
*
0111740 S U B R
0111760 E G I O N S P E C ) \r
0112000
*
0112060 F O R M A T T I N G S T A T E )
0112100 ) ) ) \r
0112120 ( S E L E
0112140 C T I O N
0112160
0112200 006 003 ( * D o o n e o r
0112220 a n o t h e r b o x , d e p
0112240 e n d i n g o n \r 006 001
0112260
*
0112340 006 003 s o m e
0112360 c r i t e r i o n . ) 006 001 ) \r
0112400
0112420 ( S H O U L D N T
0112440 ) )
0112460 006 003 (
0112500 * F o r n o w , d r a w
0112520 a b o x a r o u n d i t ,
0112540 t o o . ) 006 001 \r
0112560 ) \r
0112600 N I L )
0112620 \r ( 006 002 f o
0112640 r 006 001 L I N E 006 002 i n 006 001
0112660 L I N E S 006 002 w h e n 006 001 L
0112700 I N E 006 002 d o 006 001
0112720 006 003
0112740 ( * R u n t h r u t h e
0112760 l i n e s d i s p l a y i n g
0113000 t h e m \r 006 001
0113020
*
0113100 006 003 a l l . ) 006 001 \r
0113120
*
0113160 ( B L O C K
0113200 ) \r
0113220
0113240 ( C O N
0113260 D \r
0113300
0113320 (
0113340 ( O R ( N O T ( 006 002 f e t c
0113360 h 006 001 ( P A G E F O R M A T T
0113400 I N G S T A T E M I N P A G E
0113420 # ) \r
0113440
*
0113500 006 002 o
0113520 f 006 001 F O R M A T T I N G S T
0113540 A T E ) ) \r
0113560
*
0113620 ( I G E Q ( 006
0113640 002 f e t c h 006 001 ( P A G E F O
0113660 R M A T T I N G S T A T E P A
0113700 G E # ) \r
0113720
*
0114000 006 002 o f 006 001 F O R M A T T I N
0114020 G S T A T E ) \r
0114040
*
0114120 ( 006 002 f e t c h 006 001 ( P A G E
0114140 F O R M A T T I N G S T A T E
0114160 M I N P A G E # ) \r
0114200
*
0114260 006 002 o f 006 001 F O R M
0114300 A T T I N G S T A T E ) ) ) \r
0114320
*
0114400 006 003 ( *
0114420 W e ' r e b e y o n d t h
0114440 e m i n p a g e n u m b e
0114460 r - - \r 006 001
0114500
*
0114560 006 003 g o a h e a d a
0114600 n d p r i n t t h e l i n
0114620 e ) 006 001 \r
0114640
*
0114700 ( \ T E D I T . H A R D C
0114720 O P Y . D I S P L A Y L I N E
0114740 ( 006 002 f e t c h 006 001 ( T E X T
0114760 S T R E A M T E X T O B J \r
0115000
*
0115120 ) \r
0115140
*
0115240 006 002 o f 006 001 (
0115260 006 002 f e t c h 006 001 L T E X T O
0115300 B J \r
0115320
*
0115420 006 002 o f 006 001 L I
0115440 N E ) ) \r
0115460
*
0115520 L I N E \r
0115540
*
0115620 ( 006 002 f e t c h 006 001 C
0115640 A C H E 006 002 o f 006 001 L I N E
0115660 ) \r
0115700
*
0115740 R E G I O N P R
0115760 S T R E A M ) ) ) \r
0116000
*
0116040 [ C O N D \r
0116060
*
0116120 ( ( E Q T E X T
0116140 O B J ( 006 002 f e t c h 006 001 (
0116160 T E X T S T R E A M T E X T O
0116200 B J ) \r
0116220
*
0116300 006 002 o f 006 001 ( 006 002 f e t c h
0116320 006 001 L T E X T O B J 006 002 o f
0116340 006 001 L I N E ) ) ) \r
0116360
*
0116440 006 003 ( * T h i
0116460 s l i n e r e f e r s b a
0116500 c k t o t h e m a i n \r
0116520 006 001
0116540
*
0116600 006
0116620 003 t e x t , s o u p d a t e
0116640 t h e c u r r e n t - c h a
0116660 r \r 006 001
0116700
*
0116760 006 003 p o i n t e r . ) 006 001 \r
0117000
*
0117040 ( S
0117060 E T Q C H N O ( A D D 1 (
0117100 006 002 f e t c h 006 001 C H A R L I
0117120 M 006 002 o f 006 001 L I N E ] \r
0117140
*
0117200 ( 006 002 p u s h
0117220 006 001 ( 006 002 f e t c h 006 001 ( P
0117240 A G E F O R M A T T I N G S T A
0117260 T E P A G E L I N E C A C H E
0117300 ) \r
0117320
*
0117360 006 002 o f 006 001 F O R M
0117400 A T T I N G S T A T E ) \r
0117420
*
0117460 L I N
0117500 E ) \r
0117520
0117540 ( 006 002
0117560 r e p l a c e 006 001 L T E X T O
0117600 B J 006 002 o f 006 001 L I N E 006
0117620 002 w i t h 006 001 N I L ) ) \r
0117640 ( C O N D \r
0117660 ( C H N O
0117700 ( 006 002 r e p l a c e 006 001 ( P
0117720 A G E F O R M A T T I N G S T A
0117740 T E C H N O ) 006 002 o f 006 001
0117760 F O R M A T T I N G S T A T E
0120000 006 002 w i t h 006 001 C H N O ] ) \r
0120020 \r ( T E D I T . F O R M A T H E
0120040 A D I N G \r [ L A M B D A
0120060 ( T E X T O B J P R S T R E A
0120100 M F O R M A T T I N G S T A T
0120120 E P A G E R E G I O N )
0120140
0120160 ( * j d s \r
0120200
*
0120300 " 1 - M a r - 8 5 1
0120320 5 : 3 1 " ) \r
0120340 \r
0120360 ( * G r a b t e x t f r o
0120400 m t h e T E X T O B J , s
0120420 t a r t i n g w i t h C H #
0120440 , a n d u s e i t t o
0120460 f i l l \r
0120500 R E G I O N o n a p a
0120520 g e . R e t u r n a l i s
0120540 t o f l i n e d e s c r i
0120560 p t o r s w h i c h , t a k
0120600 e n t o g e t h e r , \r
0120620 f i l l t
0120640 h e r e g i o n . ) \r \r
0120660 ( P R O G ( ( C H N O 1 )
0120700 \r [ R E G
0120720 I O N ( f o r V A L U E i
0120740 n ( f e t c h ( P A G E R E
0120760 G I O N R E G I O N S P E C )
0121000 o f P A G E R E G I O N ) \r
0121020
0121040 c o l l e c t ( F
0121060 I X R ( F T I M E S ( D S P
0121100 S C A L E N I L P R S T R E
0121120 A M ) \r
0121140
0121160 V
0121200 A L U E ] \r
0121220 ( L O C A L I N F O ( f e t
0121240 c h ( P A G E R E G I O N R
0121260 E G I O N L O C A L I N F O )
0121300 o f P A G E R E G I O N ) ) \r
0121320 H E A D I
0121340 N G S T R E A M H E A D I N G
0121360 T E X T O B J P R E C O N D I
0121400 T I O N S T E X T L E N T H
0121420 I S L I N E L I N E Y B O T
0121440 ( F O R C E N E X T P A G E \r
0121460
*
0121600 N I L ) \r
0121620 L I N E S H E A D I N G )
0121640 \r [ C O N D
0121660 \r ( (
0121700 S E T Q P R E C O N D I T I O
0121720 N S ( L I S T G E T L O C A
0121740 L I N F O ( Q U O T E P R E
0121760 C O N D I T I O N S ) ) ) \r
0122000
*
0122100 ( * T h e r
0122120 e a r e \r
0122140
*
0122240 p r e c o n d i t i o n s
0122260 f o r t h i s \r
0122300
*
0122400 h e a d i n g t o
0122420 a p p e a r . \r
0122440
*
0122540 C h e c k t h e m . ) \r
0122560 ( C
0122600 O N D \r
0122620 ( ( f o r F O R M
0122640 i n s i d e P R E C O N D I T
0122660 I O N S t h e r e i s ( N O
0122700 T ( E V A L F O R M ) ) ) (
0122720 * O n e o f t h e \r
0122740
*
0123040 p r e d i c a
0123060 t e s r e t u r n e d \r
0123100
*
0123200 N I L , s o
0123220 d o n ' t d i s p l a y \r
0123240
*
0123340 t h i s
0123360 h e a d i n g . ) \r
0123400 ( R E T
0123420 U R N ] \r (
0123440 C O N D \r
0123460 ( [ N O T ( S E T Q H E
0123500 A D I N G ( L I S T G E T (
0123520 f e t c h P A G E H E A D I N
0123540 G S o f F O R M A T T I N G
0123560 S T A T E ) \r
0123600
0123620 (
0123640 L I S T G E T L O C A L I N F
0123660 O ( Q U O T E H E A D I N G
0123700 T Y P E ] \r
0123720
*
0124020 ( * T h e r e ' s n o t
0124040 e x t f o r \r
0124060
*
0124160 t h i s h e a d i n g
0124200 . \r
0124220
*
0124300 P u n
0124320 t . ) \r
0124340 ( R E T U R N ) ) ) \r
0124360 [ S E T Q H E A
0124400 D I N G T E X T O B J ( f e t
0124420 c h ( T E X T S T R E A M T
0124440 E X T O B J ) o f ( S E T Q
0124460 H E A D I N G S T R E A M \r
0124500
*
0124560 ( O
0124600 P E N T E X T S T R E A M \r
0124620
*
0124700 " "
0124720 N I L N I L N I L \r
0124740
*
0125020 ( L I
0125040 S T ( Q U O T E P A R A L O
0125060 O K S ) \r
0125100
*
0125160 ( f e t c
0125200 h P P A R A L O O K S \r
0125220
*
0125320 o f ( C A R H E
0125340 A D I N G ] \r
0125360 ( \ T E D I T . I N S E R T .
0125400 P I E C E S H E A D I N G T E
0125420 X T O B J 1 H E A D I N G )
0125440 \r ( f o r
0125460 P C i n H E A D I N G d o
0125500 ( a d d ( f e t c h T E X
0125520 T L E N o f H E A D I N G T
0125540 E X T O B J ) \r
0125560
0125600 ( f e
0125620 t c h P L E N o f P C ) )
0125640 ) \r ( S E T
0125660 Q T E X T L E N ( f e t c h
0125700 T E X T L E N o f H E A D
0125720 I N G T E X T O B J ) ) \r
0125740 ( S E T Q L I N
0125760 E S ( w h i l e ( A N D (
0126000 I L E S S P C H N O T E X T
0126020 L E N ) \r
0126040
0126060 ( N O T F O R C
0126100 E N E X T P A G E ) ) \r
0126120
0126140 c o l l e c t ( S E
0126160 T Q T H I S L I N E ( c r e
0126200 a t e T H I S L I N E ) ) \r
0126220
0126240 ( S
0126260 E T Q F O R C E N E X T P A G
0126300 E ( \ T E D I T . H A R D C O
0126320 P Y . F O R M A T L I N E H E
0126340 A D I N G T E X T O B J \r
0126360
*
0126440 ( f e t c h W I
0126460 D T H o f R E G I O N ) \r
0126500
*
0126560 C H N O T H
0126600 I S L I N E ( S E T Q L I N
0126620 E ( c r e a t e \r
0126640
*
0126760 L I N E D E S C R I P T O R
0127000 \r
0127020
*
0127120 ) ) \r
0127140
*
0127220 P R S T R E A M
0127240 T ) ) \r
0127260
0127300 ( r e p l a c e C A C
0127320 H E o f L I N E w i t h
0127340 T H I S L I N E )
0127360 ( * M a r k t h i s l i n
0127400 e a s \r
0127420
*
0127520 h a v i n g c a c h e d p
0127540 r i n t \r
0127560
*
0127660 i n f o . ) \r
0127700
0127720 ( r e p l a c e
0127740 L T E X T O B J o f L I N E
0127760 w i t h H E A D I N G S T R
0130000 E A M ) \r
0130020
*
0130120 ( * A n d r e m e m b e r
0130140 t h e \r
0130160
*
0130260 d o c u m e n t i t c a m
0130300 e f r o m . ) \r
0130320
0130340 ( a d d ( f e
0130360 t c h L E F T M A R G I N o
0130400 f L I N E ) \r
0130420
0130440 ( f e t
0130460 c h L E F T o f R E G I O
0130500 N ) )
0130520 ( * F o r m a t t h e
0130540 n e x t \r
0130560
*
0130660 p o s s i b l e l i n e )
0130700 \r
0130720
0130740 [ C O N D \r
0130760
0131000 [ Y B O T
0131020
*
0131060 ( * W e ' r e i n t o i
0131100 t ; \r
0131120
*
0131200 t a
0131220 k e a c c o u n t o f t h
0131240 i s \r
0131260
*
0131340 l
0131360 i n e ' s h e i g h t ) \r
0131400
*
0131440 ( S E T Q Y B O T
0131460 ( I D I F F E R E N C E Y B
0131500 O T ( f e t c h L H E I G H
0131520 T o f L I N E ] \r
0131540
0131560 ( T
0131600
*
0131640 ( * J u s t s t
0131660 a r t i n g o u t ; \r
0131700
*
0132000 f i n d t h e
0132020 l i n e ' s \r
0132040
*
0132140 p o s i t i o n w i t h
0132160 r e s p e c t \r
0132200
*
0132300 t o t h e t o p
0132320 o f t h e \r
0132340
*
0132440 r e g i o n t o b e
0132460 f i l l e d . ) \r
0132500
0132520 ( S
0132540 E T Q Y B O T ( I D I F F E
0132560 R E N C E ( f e t c h B O T
0132600 T O M o f R E G I O N ) \r
0132620
*
0132700 ( f e t c h D E S
0132720 C E N T o f L I N E ] \r
0132740
*
0133040 ( * T h i
0133060 s l i n e i s g o o d ; \r
0133100
*
0133200 u s e i
0133220 t . ) \r
0133240
0133260 ( r e p l a c e Y B O T
0133300 o f L I N E w i t h Y B
0133320 O T ) \r
0133340
0133360 ( r e p l a c e Y B A S
0133400 E o f L I N E w i t h (
0133420 I P L U S Y B O T ( f e t c
0133440 h D E S C E N T o f L I N
0133460 E ) ) ) \r
0133500
0133520 ( S E T Q C H N O (
0133540 A D D 1 ( f e t c h C H A R
0133560 L I M o f L I N E ) ) )
0133600 ( * K e e p t r a c k o f
0133620 t h e \r
0133640
*
0133740 n e x t c h a r a c t e r .
0133760 . . ) \r
0134000
0134020 L I N E ) ) \r
0134040 ( R E T U R N L I N E
0134060 S ] ) \r \r ( 006 004 T E D I T . F O
0134100 R M A T P A G E 006 001 \r [ L A
0134120 M B D A ( T E X T O B J P R
0134140 S T R E A M C H # R E G I O
0134160 N F O R M A T T I N G S T A T
0134200 E ) 006 003 006 001
0134220 006 003 ( * j d s \r
0134240
*
0134340 " 1 7 - F
0134360 e b - 8 6 1 6 : 1 8 " ) 006 001 \r
0134400
*
0134500 006 003 ( *
0134520 S e n d t h e t e x t t o
0134540 \r
0134560
*
0134640 t h e
0134660 p r i n t e r . ) 006 001 \r
0134700 ( P R O G ( ( F O R C E N E
0134720 X T P A G E N I L ) \r
0134740 ( C H N O C H #
0134760 ) \r ( P A
0135000 G E # ( 006 002 f e t c h 006 001 (
0135020 P A G E F O R M A T T I N G S T
0135040 A T E P A G E # ) 006 002 o f 006
0135060 001 F O R M A T T I N G S T A T
0135100 E ) ) \r (
0135120 P A G E P R O P S ( 006 002 f e t
0135140 c h 006 001 ( P A G E R E G I O N
0135160 R E G I O N L O C A L I N F O
0135200 ) 006 002 o f 006 001 R E G I O N )
0135220 ) \r T E X
0135240 T L E N T H I S L I N E L I
0135260 N E L I N E S N C H N O T
0135300 P A G E ) \r
0135320 ( S E T Q T E X T L E N ( 006
0135340 002 f e t c h 006 001 T E X T L E N
0135360 006 002 o f 006 001 T E X T O B J )
0135400 ) \r ( S E T
0135420 Q T H I S L I N E ( 006 002 f e
0135440 t c h 006 001 T H I S L I N E 006
0135460 002 o f 006 001 T E X T O B J ) )
0135500 006 003 (
0135520 * P r i n t i n t h e u
0135540 s u a l \r
0135560
*
0135660 r e g i o n o n t h e p
0135700 a g e ) 006 001 \r
0135720 ( C O N D \r
0135740 ( P A G E #
0135760
*
0136040 006 003 ( * I F w e ' v e
0136060 a l r e a d y \r
0136100
*
0136200 g o t a s t a r t i
0136220 n g p a g e \r
0136240
*
0136340 n u m b e r , d o n '
0136360 t s e t \r
0136400
*
0136500 a n o t h e r o n e ) 006 001
0136520 ) \r (
0136540 ( S E T Q T P A G E ( L I S
0136560 T G E T P A G E P R O P S (
0136600 Q U O T E S T A R T I N G P A
0136620 G E # ) ) ) 006 003 (
0136640 * I f t h i s p a g e \r
0136660
*
0136760 t e m p l
0137000 a t e s p e c i f i e s a
0137020 \r
0137040
*
0137120 s t a r
0137140 t i n g p a g e n u m b e r
0137160 , \r
0137200
*
0137260 u s
0137300 e i t . ) 006 001 \r
0137320 ( S E T Q P A G
0137340 E # T P A G E ) \r
0137360 ( 006 002 r e p l a
0137400 c e 006 001 ( P A G E F O R M A T
0137420 T I N G S T A T E P A G E # )
0137440 006 002 o f 006 001 F O R M A T T I
0137460 N G S T A T E 006 002 w i t h 006 001
0137500 T P A G E ) ) \r
0137520 ( T ( S E T Q P
0137540 A G E # 1 ) \r
0137560 ( 006 002 r e p l a
0137600 c e 006 001 ( P A G E F O R M A T
0137620 T I N G S T A T E P A G E # )
0137640 006 002 o f 006 001 F O R M A T T I
0137660 N G S T A T E 006 002 w i t h 006 001
0137700 P A G E # ) ) ) \r
0137720 ( C O N D \r
0137740 ( ( L I S T G E T
0137760 P A G E P R O P S ( Q U O T
0140000 E L A N D S C A P E ? ) )
0140020
0140040 006 003 ( * T h i s i
0140060 s a \r
0140100
*
0140200 l a n d s c a p e p a g e . )
0140220 006 001 \r
0140240 ( D S P P U S H S T A T E P
0140260 R S T R E A M ) \r
0140300 ( D S P R O T A T
0140320 E 9 0 P R S T R E A M ) \r
0140340 ( D S
0140360 P T R A N S L A T E 0 - 2 1
0140400 5 9 0 P R S T R E A M ) ) ) \r
0140420 [ 006 002 w h i
0140440 l e 006 001 [ A N D ( I L E Q
0140460 C H N O T E X T L E N ) \r
0140500
0140520 ( E Q ( Q U O
0140540 T E P A G E H E A D I N G ) \r
0140560
0140600 ( 006
0140620 002 f e t c h 006 001 F M T P A R A
0140640 T Y P E 006 002 o f 006 001 ( 006 002 f
0140660 e t c h 006 001 P P A R A L O O K
0140700 S \r
0140720
*
0141000 006 002 o f 006 001 ( \ C H T O P C
0141020 C H N O \r
0141040
*
0141140 ( 006 002 f e t c h 006 001 P C
0141160 T B \r
0141200
*
0141300 006 002 o f 006 001 T E X T O B
0141320 J ] \r
0141340 006 002 d o 006 001
0141360
*
0141420 006 003
0141440 ( * G o t h r u a n y \r
0141460
*
0141520