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