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