$ od -c -N 50000 [eris]<Lisp>KOTO>demos>KAL.DCOM!1
0000000 ( F I L E C R E A T E D " 1 5
0000020 - M a r - 8 4 1 4 : 5 8 : 4 4
0000040 " ( " c o m p i l e d o n
0000060 " { I C E } < D E N B E R > L
0000100 I S P > K A L . ; 1 6 ) " 2 5
0000120 - F e b - 8 4 1 7 : 1 6 : 3 4
0000140 " \r r e c o m p i l e d e x
0000160 p r s : A D V A N C E D O K
0000200 A L E R A S E S I N C O L O
0000220 R Q K A L K A L C O N T R O
0000240 L R O T A T E C O L O R M A P
0000260 P R O C S P O T S S T A R T
0000300 K A L i n \r W O R K d a t
0000320 e d " 1 - M a r - 8 4 1 4
0000340 : 2 4 : 2 2 " ) \r ( F I L E C R
0000360 E A T E D " 1 5 - M a r - 8 4
0000400 1 4 : 5 6 : 0 8 " { I C E }
0000420 < D E N B E R > L I S P > K A L
0000440 . ; 1 6 7 1 2 8 c h a n g e
0000460 s t o : ( V A R S K A L C
0000500 O M S ) ( F N S D O K A L \r
0000520 E R A S E S K A L S P O T
0000540 S K A L C O N T R O L ) p r
0000560 e v i o u s d a t e : " 2 8
0000600 - D e c - 8 3 2 1 : 5 6 : 4 2
0000620 " { P H Y L U M } < L I S P U
0000640 S E R S > K A L . ; 4 ) \r A D V
0000660 A N C E D 1 \r ( L ( 0 S T
0000700 A T E ) ) \0 G \0 \0 \0 001 @ d 001 @
0000720 002 001 330 @ 002 001 346 n 177 377 345 030 @ 002 002 002
0000740 @ 002 002 002 001 k 331 030 @ 002 002 002 001 j 360 264
0000760 " @ 002 @ 002 001 @ 002 002 001 330 @ 002 002 001 346
0001000 n 177 377 345 030 @ 002 002 002 @ 002 002 002 002 001 030
0001020 001 020 \0 N I L \r N I L \r ( ) \r D O
0001040 K A L D 1 \r ( F 2 X S T A
0001060 T E B F 3 Y S T A T E B
0001100 F 4 X S T A T E E F 5
0001120 Y S T A T E E F 6 P E R I
0001140 O D F 7 K A L M E N U F
0001160 1 0 Q P E R S I S T E N C E
0001200 ) \0 225 002 \a \0 \0 R 002 002 002 V 030 S 002
0001220 002 002 V 030 R \t \0 \0 c \b S \t \0 \0 c \n
0001240 W 020 k 021 002 001 I H 361 263 3 R \t \0 \0 277
0001260 S \t \0 \0 277 R 001 S 001 \n \0 \0 277 \b \0 \0
0001300 277 ` \0 \0 k 345 j 360 250 W 016 \t \0 \0 \t \0
0001320 \0 277 \b \0 \0 277 I k 330 Y 260 315 023 T \t \0
0001340 \0 277 U \t \0 \0 277 T 001 U 001 \n \0 \0 277 R
0001360 \t \0 \0 277 S \t \0 \0 277 R 001 S 001 \n \0 \0
0001400 277 \b \0 \0 277 ` \0 \0 k 345 j 360 250 W 016 \t
0001420 \0 \0 \t \0 \0 277 \b \0 \0 277 260 303 \0 ( 2 2
0001440 0 Q B L O C K 2 1 4 Q K A
0001460 L C O N T R O L 2 1 1 Q M E
0001500 N U 1 7 3 Q G E T M O U S E
0001520 S T A T E 1 6 7 Q S P O T S
0001540 1 5 7 Q A D V A N C E 1 5
0001560 2 Q A D V A N C E 1 4 5 Q
0001600 E R A S E S 1 3 5 Q A D V A
0001620 N C E 1 3 0 Q A D V A N C E
0001640 1 1 4 Q B L O C K 1 1 0 Q
0001660 K A L C O N T R O L 1 0 5 Q
0001700 M E N U 6 7 Q G E T M O U
0001720 S E S T A T E 6 3 Q S P O T
0001740 S 5 3 Q A D V A N C E 4 6
0001760 Q A D V A N C E 2 5 Q C O
0002000 P Y 1 7 Q C O P Y ) \r ( 1 7
0002020 7 Q L A S T M O U S E B U T T
0002040 O N S 7 3 Q L A S T M O U S
0002060 E B U T T O N S ) \r ( ) \r E R A
0002100 S E S D 1 \r ( P 3 Y 1 P
0002120 2 X 1 P 1 Y 0 P 0
0002140 X 0 I 1 Y I 0 X
0002160 F 4 K A L W I N D O W F
0002200 5 W I N D O W S I D E ) \0 n
0002220 004 002 \0 002 @ 342 342 342 342 342 342 342 n 177 377 345
0002240 A 342 342 342 342 342 342 342 n 177 377 345 021 " 003 I
0002260 H 361 264 N U k 331 H 331 272 U k 331 I 331 273
0002300 T H I j \f \0 \0 277 T I H j \f \0 \0 277
0002320 T J I j \f \0 \0 277 T I J j \f \0 \0 277
0002340 T J K j \f \0 \0 277 T K J j \f \0 \0 277
0002360 T H K j \f \0 \0 277 T K H j \f \0 \0 h
0002400 020 \0 ( 1 5 2 Q B I T M A P B I
0002420 T 1 4 2 Q B I T M A P B I T
0002440 1 3 2 Q B I T M A P B I T
0002460 1 2 2 Q B I T M A P B I T 1
0002500 1 2 Q B I T M A P B I T 1 0
0002520 2 Q B I T M A P B I T 7 2 Q
0002540 B I T M A P B I T 6 2 Q B
0002560 I T M A P B I T ) \r N I L \r ( )
0002600 \r I N C O L O R Q D 1 \r N I L
0002620 \0 331 002 \0 \0 \0 \b \0 \0 d g \0 \0 360 246
0002640 d g \0 \0 360 262 [ 277 l P \t \0 \0 343 l 257
0002660 360 264 003 202 261 \0 260 o \0 \0 \0 i \n \0 \0 277
0002700 i \t \0 \0 ` \0 \0 037 d o \0 \0 \0 024 004 277
0002720 d g \0 \0 024 022 277 d g \0 \0 024 277 d g
0002740 \0 \0 024 034 277 j d n 177 377 d h 032 032 032 032
0002760 021 002 001 H d I 024 \n 277 022 l 005 \n \0 \0 020
0003000 d g \0 \0 360 245 d g \0 \0 360 221 h 020 d g
0003020 \0 \0 360 246 d g \0 \0 360 262 L 277 o \0 \0 \0
0003040 i \n \0 \0 277 i \t \0 \0 ` \0 \0 037 d o \0
0003060 \0 \0 024 004 277 d g \0 \0 024 022 277 d g \0 \0
0003100 024 277 d g \0 \0 024 034 277 j d n 177 377 d
0003120 h 032 032 032 032 021 002 001 H d I 024 \n 277 022 l
0003140 005 \n \0 \0 020 277 o \0 \0 \0 i \n \0 \0 020 \0
0003160 ( 3 2 6 Q P R I N 1 3 1 4 Q
0003200 M E N U 2 2 1 Q T E R P R
0003220 I 2 1 4 Q P R I N 1 1 4 7
0003240 Q M E N U 5 4 Q T E R P R
0003260 I 4 7 Q P R I N 1 2 5 Q
0003300 \ D E V I C E . I N P U T 2
0003320 M A C H I N E T Y P E ) \r ( 2 5
0003340 7 Q D E F A U L T M E N U H E
0003360 L D F N 2 5 0 Q C L R P R O
0003400 M P T 2 4 1 Q C o l o r ?
0003420 2 2 4 Q 004 003 M E N U T Y P E #
0003440 2 0 0 Q D O R A D O 1 7 2
0003460 Q Q U O T E 1 6 2 Q D A N
0003500 D E L I O N 1 5 4 Q Q U O T
0003520 E 1 1 2 Q D E F A U L T M E
0003540 N U H E L D F N 1 0 3 Q C L
0003560 R P R O M P T 7 4 Q C o l o
0003600 r ? 5 7 Q 004 003 M E N U T Y P
0003620 E # 1 4 Q D O L P H I N 6
0003640 Q U O T E ) \r ( 3 2 2 Q "
0003660 U n k n o w n m a c h i n e
0003700 t y p e . " 2 3 2 Q ( ( Y e
0003720 s T ) ( N o N I L ) ) 2
0003740 1 0 Q " I n c o l o r ? "
0003760 6 5 Q ( ( Y e s T ) ( N o
0004000 N I L ) ) 4 3 Q " I n c
0004020 o l o r ? " ) \r K A L D 1 \r (
0004040 F 2 K A L I N C O L O R F
0004060 3 P E R I O D F 4 K A
0004100 L W I N D O W F 5 K A L M
0004120 E N U F 6 K A L O L D I N
0004140 C O L O R F 7 P E R S I S
0004160 T E N C E F 1 0 Q X S T A
0004200 T E E F 1 1 Q W I N D O W
0004220 S I D E F 1 2 Q S P O T S
0004240 H I F T F 1 3 Q Y S T A T
0004260 E B F 1 4 Q X S T A T E B
0004300 F 1 5 Q Y S T A T E E )
0004320 001 ( 002 \f \0 \0 n ' 020 c 006 n 023 210 c 016
0004340 n 001 302 c 022 l \a c 024 \b \0 \0 c 004 o \0
0004360 \0 \0 \t \0 \0 ` \0 \0 \t \0 \0 311 \0 \t \0 \0
0004400 U 263 4 ` \0 \0 037 d o \0 \0 \0 024 004 277 d
0004420 g \0 \0 024 277 d g \0 \0 024 034 277 j d n
0004440 177 377 d h 032 032 032 032 021 002 001 H d I 024 \n
0004460 277 022 c \n 277 T 226 R d V 360 263 # 277 R 224
0004500 \b \0 \0 260 027 l d n 001 314 n 001 326 h 032
0004520 032 032 032 o \0 \0 \0 \n \0 \0 c \b 277 R c \f
0004540 d 231 i \t \0 \0 277 j \t \0 \0 203 T \t \0 \0
0004560 277 k o \0 \0 \0 l 003 k S h 032 032 032 032 032
0004600 c 030 h d d d d h 032 032 032 032 032 c 020 k
0004620 o \0 \0 \0 l 003 k S h 032 032 032 032 032 c 026
0004640 h d d d d h 032 032 032 032 032 c 032 o \0 \0
0004660 \0 \t \0 \0 R 264 G ` \0 \0 037 d o \0 \0 \0
0004700 024 004 277 d o \0 \0 \0 024 022 277 d g \0 \0 024
0004720 277 d g \0 \0 024 034 277 j d n 177 377 d h
0004740 032 032 032 032 021 002 001 H d I 024 \n 277 022 l 005
0004760 \n \0 \0 264 \t o \0 \0 \0 \t \0 \0 020 \0 ( 4
0005000 4 5 Q A D D . P R O C E S S
0005020 4 3 4 Q M E N U 3 3 5 Q A
0005040 D D . P R O C E S S 2 3 1 Q
0005060 C L E A R W 2 2 4 Q C O L O
0005100 R B A C K G R O U N D 2 1 7 Q
0005120 C O L O R D I S P L A Y 2 0
0005140 3 Q C R E A T E W 1 5 4 Q
0005160 C O L O R S C R E E N B I T M A
0005200 P 5 1 Q T E R P R I 4 4 Q
0005220 \ I N S U R E W I N D O W 3
0005240 6 Q P R O M P T P R I N T 2
0005260 5 Q I N C O L O R Q ) \r ( 3 7
0005300 7 Q D E F A U L T M E N U H E
0005320 L D F N 3 7 0 Q C L R P R O
0005340 M P T 3 4 3 Q 004 003 M E N U T
0005360 Y P E # 1 0 3 Q D E F A U L
0005400 T M E N U H E L D F N 7 4 Q
0005420 C L R P R O M P T 5 7 Q 004 003
0005440 M E N U T Y P E # 4 1 Q P R
0005460 O M P T W I N D O W ) \r ( 4 4
0005500 2 Q ( R O T A T E C O L O R M
0005520 A P P R O C ) 3 6 1 Q " R o
0005540 t a t e c o l o r s ? " 3 5
0005560 1 Q ( ( Y e s T ) ( N o
0005600 N I L ) ) 3 3 2 Q ( D O K A
0005620 L ) 2 7 5 Q - 3 4 2 1 Q 2
0005640 3 7 Q - 3 4 7 1 Q 2 0 0 Q
0005660 " K a l e i d o s c o p e V
0005700 . 1 . 1 " 6 5 Q ( ( " S T O
0005720 P " ( Q U O T E S T O P )
0005740 " E n d s t h e p r o g r a
0005760 m . " ) ( " P e r i o d " (
0006000 Q U O T E P E R I O D ) " L
0006020 e t s y o u c h a n g e t
0006040 h e g e n e r a t o r p e r
0006060 i o d " ) ( " P e r s i s t e
0006100 n c e " ( Q U O T E P E R S
0006120 I S T E N C E ) " L e t s y
0006140 o u c h a n g e t h e d r
0006160 a w / e r a s e i n t e r v a
0006200 l " ) ) 3 3 Q " K A L : U
0006220 s e m i d d l e b u t t o n
0006240 f o r c o n t r o l m e n
0006260 u . " ) \r K A L C O N T R O L
0006300 D 1 \r ( I 0 A C T I O N F
0006320 0 P E R I O D F 1 P E
0006340 R S I S T E N C E ) \0 S \0 002 \0
0006360 001 @ d g \0 \0 360 233 277 g \0 \0 \t \0 \0 i
0006400 \t \0 \0 020 g \0 \0 360 262 033 ` \0 \0 o \0 \0
0006420 \0 P \t \0 \0 o \0 \0 \0 \v \0 \0 \n \0 \0 001
0006440 c \0 020 @ g \0 \0 360 264 032 ` \0 \0 o \0 \0
0006460 \0 Q \t \0 \0 o \0 \0 \0 \v \0 \0 \n \0 \0 001
0006500 c 002 020 \0 ( 1 1 5 Q P R O C E S
0006520 S . R E A D 1 1 2 Q C O N C
0006540 A T 1 0 3 Q M K S T R I N G
0006560 5 5 Q P R O C E S S . R E A
0006600 D 5 2 Q C O N C A T 4 3 Q
0006620 M K S T R I N G 2 1 Q P R
0006640 O C E S S . R E T U R N 1 5 Q
0006660 D E L . P R O C E S S ) \r ( 7
0006700 3 Q P R O M P T W I N D O W
0006720 6 5 Q P E R S I S T E N C E
0006740 3 3 Q P R O M P T W I N D O W
0006760 2 5 Q P E R I O D 1 2 Q
0007000 R O T A T E C O L O R M A P P R
0007020 O C 4 S T O P ) \r ( 1 0 7
0007040 Q " ) t o : " 7 7 Q "
0007060 S e t p e r s i s t e n c e
0007100 ( c u r r e n t l y " 4 7 Q
0007120 " ) t o : " 3 7 Q " S
0007140 e t p e r i o d ( c u r r e
0007160 n t l y " ) \r R O T A T E C O
0007200 L O R M A P P R O C D 1 \r ( F
0007220 0 R O T A T E W A I T ) \0
0007240 020 \0 001 \0 \0 \b \0 \0 k \n \0 \0 277 P \t \0
0007260 \0 277 260 363 \0 ( 1 3 Q D I S M I S
0007300 S 6 R O T A T E C O L O R M
0007320 A P 2 S C R E E N C O L O R
0007340 M A P ) \r N I L \r ( ) \r S P O T
0007360 S D 1 \r ( I 1 Y I 0
0007400 X F 5 K A L W I N D O W
0007420 F 6 W I N D O W S I D E F
0007440 7 X S T A T E B F 1 0 Q
0007460 K A L I N C O L O R ) \0 | 005
0007500 004 \0 002 @ 342 342 342 342 342 342 342 n 177 377 345 A
0007520 342 342 342 342 342 342 342 n 177 377 345 021 2 004 I H
0007540 361 264 \ V k 331 H 331 272 V k 331 I 331 273 W
0007560 016 001 W 020 223 \b \0 \0 201 l 002 334 274 U H I
0007600 L \f \0 \0 277 U I H L \f \0 \0 277 U J I
0007620 L \f \0 \0 277 U I J L \f \0 \0 277 U J K
0007640 L \f \0 \0 277 U K J L \f \0 \0 277 U H K
0007660 L \f \0 \0 277 U K H L \f \0 \0 h 020 \0 (
0007700 1 7 0 Q B I T M A P B I T 1
0007720 6 0 Q B I T M A P B I T 1 5
0007740 0 Q B I T M A P B I T 1 4 0
0007760 Q B I T M A P B I T 1 3 0 Q
0010000 B I T M A P B I T 1 2 0 Q
0010020 B I T M A P B I T 1 1 0 Q B
0010040 I T M A P B I T 1 0 0 Q B I
0010060 T M A P B I T 6 4 Q M A X I
0010100 M U M C O L O R ) \r N I L \r ( )
0010120 \r S T A R T K A L D 1 \r N I L
0010140 \0 \t \0 \0 \0 \0 o \0 \0 \0 \t \0 \0 020 \0
0010160 ( 6 A D D . P R O C E S S ) \r
0010200 N I L \r ( 3 ( D O K A L ) )
0010220 \r ( P R E T T Y C O M P R I N T
0010240 K A L C O M S ) \r ( R P A Q Q
0010260 K A L C O M S ( ( R E C O R
0010300 D S G ) ( V A R S ( K A L
0010320 O L D I N C O L O R ) ( K A L
0010340 W I N D O W ) ( K A L M E N U
0010360 ) R O T A T E W A I T ) ( F
0010400 N S A D V A N C E D O K A L
0010420 \r E R A S E S I N C O L O R
0010440 Q K A L K A L C O N T R O L
0010460 R O T A T E C O L O R M A P P
0010500 R O C S P O T S S T A R T K
0010520 A L ) ) ) \r ( R E C O R D G
0010540 ( A B C P E R I O D C O U
0010560 N T P E R I O D ) ) \r ( R P A
0010600 Q Q K A L O L D I N C O L O R
0010620 N I L ) \r ( R P A Q Q K A L
0010640 W I N D O W N I L ) \r ( R P A
0010660 Q Q K A L M E N U N I L ) \r
0010700 ( R P A Q Q R O T A T E W A I
0010720 T 3 0 0 0 ) \r ( P U T P R O P
0010740 S K A L C O P Y R I G H T
0010760 ( " X e r o x C o r p o r a t
0011000 i o n " 1 9 8 3 1 9 8 4 ) )
0011020 \r N I L \r
0011025