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