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