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