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