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