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