$ od -c -N 50000 [phylum]<LISP>KOTO>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