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