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