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