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