$ od -c -N 50000 [phylum]<LISP>KOTO>Library>DMCHAT.DCOM!1
0000000 ( F I L E C R E A T E D " 2 0
0000020 - S e p - 8 5 1 2 : 5 3 : 4 6
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > D M C H A T
0000120 . ; 6 ) \r " 1 7 - S e p - 8 5
0000140 0 9 : 0 2 : 2 2 " r e c o m
0000160 p i l e d c h a n g e s : D
0000200 M C H A T . H A N D L E C H A R
0000220 A C T E R i n " I N T E R L
0000240 I S P - D 1 7 - S e p - 8 5
0000260 . . . " d a t e d \r " 1 7 -
0000300 S e p - 8 5 0 9 : 0 7 : 4 3 "
0000320 ) \r ( F I L E C R E A T E D "
0000340 2 0 - S e p - 8 5 1 2 : 5 3 :
0000360 2 2 " { E R I S } < L I S P C
0000400 O R E > L I B R A R Y > D M C H
0000420 A T . ; 6 1 1 5 6 7 c h a n
0000440 g e s t o : ( F N S \r D M
0000460 C H A T . H A N D L E C H A R A
0000500 C T E R ) p r e v i o u s d
0000520 a t e : " 5 - S e p - 8 5
0000540 1 5 : 1 2 : 2 7 " { E R I S }
0000560 < L I S P C O R E > L I B R A R
0000600 Y > D M C H A T . ; 5 ) \r D M C
0000620 H A T . A D D R E S S D 1 \r (
0000640 I 2 C H A R I 1 D M 2
0000660 5 0 0 . S T A T E I 0 C H
0000700 A T . S T A T E ) \0 303 \0 \0 \0 003
0000720 B l 030 360 253 B l 036 360 246 B d l 037 360 231
0000740 277 A 006 \0 \0 h 024 \0 h 020 l \f 360 232 A 006
0000760 \0 \0 m 377 024 \0 m 377 020 j A 006 \0 \0 311 \0
0001000 361 262 023 A 006 \0 \0 B l ` 346 = 002 = 002 024
0001020 \0 = 002 020 @ 006 \0 \0 A 006 \0 \0 311 \0 @ 006
0001040 \0 \0 310 020 332 @ 006 \0 \0 310 \f @ 006 \0 \0 310
0001060 020 331 = 002 d = 004 361 221 277 d < 002 277 277 =
0001100 002 = 002 315 016 277 d < 002 277 277 @ 006 \0 \0 @
0001120 006 \0 \0 310 022 @ 006 \0 \0 311 * B l ` 346 @
0001140 006 \0 \0 310 021 332 331 = 002 d = 004 361 241 277 d
0001160 < 002 277 277 = 002 = 002 315 017 277 d < 002 277 277
0001200 @ 006 \0 \0 311 004 \v \0 \0 A 006 \0 \0 h 024 \0
0001220 i 020 \0 ( 2 7 0 Q M O V E T O )
0001240 \r ( 2 7 4 Q D M 2 5 0 0 . S T
0001260 A T E 2 6 3 Q C H A T . S T
0001300 A T E 2 2 2 Q C H A T . S T
0001320 A T E 2 1 0 Q C H A T . S T
0001340 A T E 2 0 2 Q C H A T . S T
0001360 A T E 1 7 6 Q C H A T . S T
0001400 A T E 1 3 6 Q C H A T . S T
0001420 A T E 1 3 0 Q C H A T . S T
0001440 A T E 1 2 1 Q C H A T . S T
0001460 A T E 1 1 3 Q D M 2 5 0 0 .
0001500 S T A T E 1 0 7 Q C H A T .
0001520 S T A T E 6 6 Q D M 2 5 0 0
0001540 . S T A T E 5 5 Q D M 2 5 0
0001560 0 . S T A T E 4 1 Q D M 2 5
0001600 0 0 . S T A T E 2 4 Q D M 2
0001620 5 0 0 . S T A T E ) \r ( ) \r D M
0001640 C H A T . C L E A R D 1 \r ( I
0001660 2 S E T R O L L I 1 D
0001700 M 2 5 0 0 . S T A T E I 0
0001720 C H A T . S T A T E ) \0 037 \0 \0
0001740 \0 003 @ 006 \0 \0 311 002 \t \0 \0 @ A \n \0 \0
0001760 B 230 @ 006 \0 \0 k 317 \0 0 277 @ \t \0 \0 020
0002000 \0 ( 3 4 Q T E R M . H O M E
0002020 1 5 Q D M C H A T . C L E A R
0002040 M O D E S 1 0 Q C L E A R W
0002060 ) \r ( 2 3 Q C H A T . S T A T
0002100 E 3 C H A T . S T A T E ) \r
0002120 ( ) \r D M C H A T . C L E A R M
0002140 O D E S D 1 \r ( I 1 D M 2
0002160 5 0 0 . S T A T E I 0 C H
0002200 A T . S T A T E ) \0 l \0 \0 \0 002
0002220 A 006 \0 \0 312 \0 ` j 360 232 A 006 \0 \0 312 \0
0002240 p j 360 263 A @ 006 \0 \0 311 & @ 006 \0 \0 311
0002260 004 \n \0 \0 277 @ 006 \0 \0 @ 006 \0 \0 311 & 024
0002300 $ 277 A 006 \0 \0 A 006 \0 \0 j 317 \0 ` 277 j
0002320 d 360 241 k 200 j = 002 = 002 317 \0 p 277 d <
0002340 002 277 277 277 A 006 \0 \0 A 006 \0 \0 h 024 \0 277
0002360 j 317 \0 P 277 j d 360 h 360 020 \0 ( 4 3 Q
0002400 D S P F O N T ) \r ( 1 3 3 Q
0002420 D M 2 5 0 0 . S T A T E 1 2 7
0002440 Q D M 2 5 0 0 . S T A T E 7
0002460 1 Q D M 2 5 0 0 . S T A T E
0002500 6 5 Q D M 2 5 0 0 . S T A T E
0002520 5 4 Q C H A T . S T A T E
0002540 5 0 Q C H A T . S T A T E 3
0002560 6 Q C H A T . S T A T E 3 0
0002600 Q C H A T . S T A T E 1 5 Q
0002620 D M 2 5 0 0 . S T A T E 3
0002640 D M 2 5 0 0 . S T A T E ) \r ( )
0002660 \r D M C H A T . H A N D L E C H
0002700 A R A C T E R D 1 \r ( I 2
0002720 D M 2 5 0 0 . S T A T E I 1
0002740 C H A T . S T A T E I 0
0002760 C H A R F 2 I N V E R T W
0003000 I N D O W F N ) 002 270 002 001 \0 003 @
0003020 l \a 360 262 G ` \0 \0 l 006 360 246 ` \0 \0 l
0003040 \b 360 236 A 006 \0 \0 311 002 \t \0 \0 311 \0 l \a
0003060 ! 020 B 006 \0 \0 312 \0 \0 j 360 264 003 202 261 002
0003100 207 A 006 \0 \0 311 002 k R 017 016 B 006 \0 \0 k
0003120 317 \0 \0 277 k j 360 h 360 020 B 006 \0 \0 312 \0
0003140 \0 j 360 263 026 A 006 \0 \0 311 002 k R 017 016 277
0003160 B 006 \0 \0 j 317 \0 \0 277 B 006 \0 \0 312 \0 @
0003200 j 360 263 037 @ l \r 360 231 B 006 \0 \0 312 \0 0
0003220 j 360 235 A \t \0 \0 277 B 006 \0 \0 j 317 \0 @
0003240 277 B 006 \0 \0 311 \0 231 A B @ \v \0 \0 222 261
0003260 002 025 l @ 361 263 M l 177 @ 361 262 G B 006
0003300 \0 \0 B 006 \0 \0 j 317 \0 277 j d 360 241 k
0003320 200 j 021 002 001 H I 317 \0 020 277 I 022 277 B 006
0003340 \0 \0 312 \0 0 j 360 264 003 202 261 001 333 B 006 \0
0003360 \0 312 \0 P j 360 244 A \t \0 \0 277 A B @ \v
0003400 \0 \0 020 B 006 \0 \0 312 \0 020 j 360 263 023 B 006
0003420 \0 \0 j 317 \0 020 277 @ l \n 360 222 261 001 250 B
0003440 006 \0 \0 312 \0 j 360 263 A @ d l \r 360 262
0003460 033 277 B 006 \0 \0 k 317 \0 020 277 B 006 \0 \0 j
0003500 317 \0 277 j d 360 h 360 020 l 002 360 263 023 @
0003520 l 034 360 253 @ l 036 360 246 @ d l 037 360 232 277
0003540 B 006 \0 \0 j 317 \0 277 @ l \n 360 262 034 B
0003560 006 \0 \0 312 \0 P j 360 247 A \t \0 \0 277 261 001
0003600 F A \t \0 \0 277 261 001 > @ d l \r 360 262 026
0003620 277 B 006 \0 \0 j 317 \0 0 277 A B i \v \0 \0
0003640 277 261 001 # l \b 360 262 034 B 006 \0 \0 312 \0 P
0003660 j 360 247 A \t \0 \0 277 261 001 \f A \t \0 \0 277
0003700 261 001 004 @ d l 027 360 230 277 A \t \0 \0 277 261
0003720 \0 365 l \f 360 233 B 006 \0 \0 m 377 024 \0 277 261
0003740 \0 345 @ d l 002 360 236 277 A \t \0 \0 277 A B
0003760 \n \0 \0 277 261 \0 320 l 030 360 262 024 A B \n \0
0004000 \0 277 A 006 \0 \0 j 317 \0 0 277 261 \0 271 @ l
0004020 036 360 246 @ d l 037 360 231 277 A B \n \0 \0 277
0004040 261 \0 244 l 034 360 262 * B 006 \0 \0 312 \0 0 j
0004060 360 264 003 202 261 \0 221 B 006 \0 \0 312 \0 P j 360
0004100 246 A \t \0 \0 277 260 ~ A B \n \0 \0 277 260 v
0004120 @ d l 032 360 262 033 277 B 006 \0 \0 312 \0 P j
0004140 360 246 A \t \0 \0 277 260 ] A \t \0 \0 277 260 V
0004160 l 016 360 247 @ d l 017 360 262 / 277 A g \0 \0
0004200 B 006 \0 \0 B 006 \0 \0 312 \0 p j 360 221 k 200
0004220 j 021 002 001 H I 317 \0 p 277 I 022 j 360 h 360
0004240 h 360 \v \0 \0 277 260 036 l 020 360 231 B 006 \0 \0
0004260 k 317 \0 P 277 215 @ l 035 360 264 \v A 006 \0 \0
0004300 k 317 \0 0 h 020 \0 ( 1 2 2 5 Q T E
0004320 R M . M O D I F Y . A T T R I B
0004340 U T E S 1 1 3 5 Q T E R M .
0004360 U P 1 1 2 6 Q T E R M . D E
0004400 L E T E L I N E 1 0 7 5 Q D
0004420 M C H A T . R I G H T 1 0 6 5
0004440 Q T E R M . A D D C H A R 1
0004460 0 1 7 Q D M C H A T . C L E A
0004500 R 7 6 1 Q D M C H A T . C L
0004520 E A R M O D E S 7 4 3 Q D M
0004540 C H A T . C L E A R M O D E S
0004560 7 3 5 Q T E R M . H O M E 6
0004600 7 6 Q T E R M . E R A S E . T
0004620 O . E O L 6 5 7 Q T E R M .
0004640 L E F T 6 4 7 Q T E R M . D
0004660 E L C H A R 6 2 0 Q D M C H
0004700 A T . N E W L I N E 5 6 5 Q
0004720 T E R M . D O W N 5 5 5 Q T
0004740 E R M . A D D L I N E 3 6 2 Q
0004760 D M C H A T . P R I N T C H A
0005000 R 3 5 3 Q T E R M . A D D C
0005020 H A R 2 3 6 Q D M C H A T .
0005040 A D D R E S S 2 0 7 Q T E R
0005060 M . D O W N 3 4 Q \ I N S U
0005100 R E W I N D O W ) \r ( 1 2 6 0 Q
0005120 C H A T . S T A T E 1 2 4 0
0005140 Q D M 2 5 0 0 . S T A T E 1
0005160 1 7 0 Q D M 2 5 0 0 . S T A T
0005200 E 1 1 6 4 Q D M 2 5 0 0 . S
0005220 T A T E 1 1 6 0 Q B R I G H
0005240 T 1 1 1 4 Q D M 2 5 0 0 . S
0005260 T A T E 1 0 5 3 Q D M 2 5 0
0005300 0 . S T A T E 1 0 3 4 Q D M
0005320 2 5 0 0 . S T A T E 7 6 6 Q
0005340 C H A T . S T A T E 7 1 2 Q
0005360 D M 2 5 0 0 . S T A T E 6 3 5
0005400 Q D M 2 5 0 0 . S T A T E 6
0005420 0 5 Q D M 2 5 0 0 . S T A T E
0005440 5 4 3 Q D M 2 5 0 0 . S T A
0005460 T E 5 2 4 Q D M 2 5 0 0 . S
0005500 T A T E 4 5 7 Q D M 2 5 0 0
0005520 . S T A T E 4 4 6 Q D M 2 5
0005540 0 0 . S T A T E 4 2 3 Q D M
0005560 2 5 0 0 . S T A T E 4 0 2 Q
0005600 D M 2 5 0 0 . S T A T E 3 6 7
0005620 Q D M 2 5 0 0 . S T A T E 3
0005640 4 1 Q D M 2 5 0 0 . S T A T E
0005660 3 2 2 Q D M 2 5 0 0 . S T A
0005700 T E 2 6 6 Q D M 2 5 0 0 . S
0005720 T A T E 2 6 2 Q D M 2 5 0 0
0005740 . S T A T E 2 2 5 Q D M 2 5
0005760 0 0 . S T A T E 2 1 4 Q D M
0006000 2 5 0 0 . S T A T E 1 7 5 Q
0006020 D M 2 5 0 0 . S T A T E 1 5 5
0006040 Q D M 2 5 0 0 . S T A T E 1
0006060 4 4 Q D M 2 5 0 0 . S T A T E
0006100 1 3 1 Q C H A T . S T A T E
0006120 1 1 6 Q D M 2 5 0 0 . S T A
0006140 T E 7 7 Q D M 2 5 0 0 . S T
0006160 A T E 6 5 Q C H A T . S T A
0006200 T E 4 6 Q D M 2 5 0 0 . S T
0006220 A T E 2 7 Q C H A T . S T A
0006240 T E 1 7 Q \ M A C H I N E T
0006260 Y P E 1 0 Q \ M A C H I N E
0006300 T Y P E ) \r ( ) \r D M C H A T .
0006320 N E W L I N E D 1 \r ( I 2
0006340 E X P L I C I T I 1 D M 2
0006360 5 0 0 . S T A T E I 0 C H
0006400 A T . S T A T E ) \0 G \0 \0 \0 003
0006420 @ 006 \0 \0 j 315 016 277 j @ 006 \0 \0 310 017 @
0006440 006 \0 \0 311 004 \v \0 \0 A 006 \0 \0 k 317 \0 @
0006460 277 k j 360 h 360 B 236 A 006 \0 \0 k 317 \0 020
0006500 277 k j 360 h 360 020 A 006 \0 \0 k 317 \0 277
0006520 k j 360 h 360 020 \0 ( 2 7 Q M O V E
0006540 T O ) \r ( 7 2 Q D M 2 5 0 0 .
0006560 S T A T E 5 3 Q D M 2 5 0 0
0006600 . S T A T E 3 3 Q D M 2 5 0
0006620 0 . S T A T E 2 2 Q C H A T
0006640 . S T A T E 1 4 Q C H A T .
0006660 S T A T E 3 C H A T . S T A
0006700 T E ) \r ( ) \r D M C H A T . P R
0006720 I N T C H A R D 1 \r ( I 2
0006740 C H A R I 1 D M 2 5 0 0 .
0006760 S T A T E I 0 C H A T . S
0007000 T A T E ) \0 Z \0 \0 \0 003 @ 006 \0 \0
0007020 311 004 d 006 \0 \0 311 = 002 B l 002 = 006 016
0007040 277 277 277 @ 006 \0 \0 @ 006 \0 \0 310 016 @ 006 \0
0007060 \0 310 020 324 = 002 = 002 315 016 277 d < 002 277 277
0007100 @ 006 \0 \0 310 \f 375 361 263 033 ` \0 \0 225 @ A
0007120 \n \0 \0 020 A 006 \0 \0 k 317 \0 0 277 k j 360
0007140 h 360 020 h 020 \0 ( 1 0 6 Q D M C H
0007160 A T . N E W L I N E ) \r ( 1 1 3
0007200 Q D M 2 5 0 0 . S T A T E 1
0007220 0 0 Q C H A T . A U T O C R L
0007240 F 6 7 Q C H A T . S T A T E
0007260 4 4 Q C H A T . S T A T E
0007300 3 6 Q C H A T . S T A T E 3
0007320 2 Q C H A T . S T A T E 1 1
0007340 Q S T R E A M 3 C H A T .
0007360 S T A T E ) \r ( ) \r D M C H A T
0007400 . R I G H T D 1 \r ( I 1 D
0007420 M 2 5 0 0 . S T A T E I 0
0007440 C H A T . S T A T E ) \0 G \0 \0
0007460 \0 002 @ 006 \0 \0 310 016 @ 006 \0 \0 310 020 330 @
0007500 006 \0 \0 310 \f 375 361 262 + @ 006 \0 \0 @ 006 \0
0007520 \0 310 016 @ 006 \0 \0 310 020 324 315 016 @ 006 \0 \0
0007540 310 016 @ 006 \0 \0 310 017 @ 006 \0 \0 311 004 \v \0
0007560 \0 020 @ A \n \0 \0 020 \0 ( 1 0 4 Q D
0007600 M C H A T . N E W L I N E 7 6
0007620 Q M O V E T O ) \r ( 7 1 Q C
0007640 H A T . S T A T E 6 3 Q C H
0007660 A T . S T A T E 5 5 Q C H A
0007700 T . S T A T E 4 4 Q C H A T
0007720 . S T A T E 3 6 Q C H A T .
0007740 S T A T E 3 2 Q C H A T . S
0007760 T A T E 2 0 Q C H A T . S T
0010000 A T E 1 1 Q C H A T . S T A
0010020 T E 3 C H A T . S T A T E )
0010040 \r ( ) \r D M C H A T . S T A T E
0010060 D 1 \r ( I 0 C H A T . S T
0010100 A T E ) \0 016 \0 \0 \0 001 @ \t \0 \0 @
0010120 \t \0 \0 ` \0 \0 037 020 \0 ( 7 T E R M
0010140 . H O M E 3 T E R M . R E S
0010160 E T . D I S P L A Y . P A R M S
0010200 ) \r ( 1 2 Q 004 003 D M 2 5 0 0 .
0010220 S T A T E T Y P E # ) \r ( ) \r (
0010240 P R E T T Y C O M P R I N T D
0010260 M C H A T C O M S ) \r ( R P A Q
0010300 Q D M C H A T C O M S ( ( *
0010320 D M p e c u l i a r f u n
0010340 c t i o n s ) ( F N S D M C
0010360 H A T . A D D R E S S D M C H
0010400 A T . C L E A R D M C H A T .
0010420 C L E A R M O D E S \r D M C H
0010440 A T . H A N D L E C H A R A C T
0010460 E R D M C H A T . N E W L I N
0010500 E D M C H A T . P R I N T C H
0010520 A R D M C H A T . R I G H T
0010540 D M C H A T . S T A T E ) ( *
0010560 T e r m i n a l e m u l a t
0010600 o r \r s u p p o r t ) ( F I
0010620 L E S C H A T T E R M I N A L
0010640 ) ( A D D V A R S ( C H A T
0010660 . D R I V E R T Y P E S ( D M
0010700 2 5 0 0 D M C H A T . H A N D
0010720 L E C H A R A C T E R D M C H
0010740 A T . S T A T E ) \r ) ) ( D E
0010760 C L A R E : E V A L @ C O M P
0011000 I L E D O N T C O P Y ( F I
0011020 L E S ( S O U R C E ) C H A
0011040 T D E C L S ) ( R E C O R D S
0011060 D M 2 5 0 0 . S T A T E ) )
0011100 ( I N I T R E C O R D S \r D M
0011120 2 5 0 0 . S T A T E ) ) ) \r ( F
0011140 I L E S L O A D C H A T T E R
0011160 M I N A L ) \r ( A D D T O V A R
0011200 C H A T . D R I V E R T Y P E
0011220 S ( D M 2 5 0 0 D M C H A T
0011240 . H A N D L E C H A R A C T E R
0011260 D M C H A T . S T A T E ) ) \r
0011300 ( / D E C L A R E D A T A T Y P
0011320 E ( Q U O T E D M 2 5 0 0 .
0011340 S T A T E ) ( Q U O T E ( F
0011360 L A G F L A G F L A G F L
0011400 A G F L A G P O I N T E R
0011420 F L A G F L A G F L A G ) )
0011440 ( \r Q U O T E ( ( D M 2 5 0
0011460 0 . S T A T E 0 ( F L A G B
0011500 I T S . 0 ) ) ( D M 2 5 0
0011520 0 . S T A T E 0 ( F L A G B
0011540 I T S . 1 6 ) ) ( D M 2 5
0011560 0 0 . S T A T E 0 ( F L A G
0011600 B I T S . 3 2 \r ) ) ( D M
0011620 2 5 0 0 . S T A T E 0 ( F L
0011640 A G B I T S . 4 8 ) ) ( D
0011660 M 2 5 0 0 . S T A T E 0 ( F
0011700 L A G B I T S . 6 4 ) ) (
0011720 D M 2 5 0 0 . S T A T E 0 P
0011740 O I N T E R ) ( \r D M 2 5 0 0
0011760 . S T A T E 0 ( F L A G B I
0012000 T S . 8 0 ) ) ( D M 2 5 0
0012020 0 . S T A T E 0 ( F L A G B
0012040 I T S . 9 6 ) ) ( D M 2 5
0012060 0 0 . S T A T E 0 ( F L A G
0012100 B I T S . 1 1 2 ) ) ) ) (
0012120 \r Q U O T E 2 ) ) \r ( P U T P
0012140 R O P S D M C H A T C O P Y
0012160 R I G H T ( " X e r o x C o
0012200 r p o r a t i o n " 1 9 8 4
0012220 1 9 8 5 ) ) \r N I L \r
0012233