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