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