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