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