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