$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>PROGRAMCHAT.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 " 2 0 -
0000120 F e b - 8 7 0 8 : 1 5 : 3 8 "
0000140 ( " c o m p i l e d o n "
0000160 { E R I S } < L I S P U S E R
0000200 S > L Y R I C > P R O G R A M C
0000220 H A T . ; 1 ) \r " 2 1 - J a n
0000240 - 8 7 2 1 : 1 3 : 0 9 " b c
0000260 o m p l ' d i n " X e r o x
0000300 L i s p 1 8 - F e b - 8 7
0000320 . . . " d a t e d " 1 8 - F
0000340 e b - 8 7 2 0 : 0 0 : 0 6 " )
0000360 \r ( F I L E C R E A T E D " 2
0000400 0 - F e b - 8 7 0 8 : 1 4 : 4
0000420 9 " { E R I S } < L I S P U S
0000440 E R S > L Y R I C > P R O G R A
0000460 M C H A T . ; 1 7 2 4 6 p r
0000500 e v i o u s d a t e % : \r "
0000520 1 0 - N o v - 8 6 1 3 : 3 5 :
0000540 5 9 " { I N D I G O } < G S L
0000560 W S > K O T O > L I B R A R Y >
0000600 P R O G R A M C H A T . ; 2 ) \r
0000620 O P E N C H A T S T R E A M :
0000640 D 4 \r ( P 5 P R O T O C O L
0000660 P 0 O P E N F U N C T I O
0000700 N I 0 H O S T F 6 C
0000720 H A T . P R O T O C O L T Y P E
0000740 S F 7 C H A T . P R O T O
0000760 C O L S ) \0 m 006 002 \0 001 021 @ 003 g
0001000 \0 \0 \t \0 \0 262 / V 021 021 005 L 003 265 021 h
0001020 022 264 B H 002 001 272 H 001 k J 017 016 020 001 ]
0001040 002 271 @ k I 017 016 X 225 M 265 346 i 260 343 L
0001060 002 \ 260 332 g \0 \0 \t \0 \0 264 031 W 016 021 021
0001100 005 L 003 265 021 h 022 264 \f H 002 001 273 H 001 k
0001120 K 017 016 020 001 275 @ k M 017 016 X 225 M 265 350
0001140 i 260 345 L 002 \ 260 334 \0 ( 6 1 B O U
0001160 N D P 8 B O U N D P ) \r ( 5
0001200 8 C H A T . P R O T O C O L S
0001220 5 C H A T . P R O T O C O L
0001240 T Y P E S ) \r ( ) \r P R O G R A
0001260 M C H A T : D 4 \r ( P 2 O
0001300 U T C H A T P 1 I N C H A
0001320 T P 0 S T R E A M P A I R
0001340 I 2 L O G S T R E A M I
0001360 1 C M D S T R E A M I 0
0001400 H O S T ) \0 270 003 \0 \0 003 @ \t \0
0001420 \0 021 ! 002 H d 242 261 \0 233 001 271 H 002 Z g
0001440 \0 \0 g \0 \0 \v \0 \0 277 I g \0 \0 g \0 \0
0001460 \v \0 \0 277 g \0 \0 g \0 \0 I h 032 032 g \0
0001500 \0 B h 032 032 h 032 032 032 \t \0 \0 277 \b \0 \0
0001520 277 @ I J \v \0 \0 277 A \t \0 \0 231 A g \0
0001540 \0 \n \0 \0 b 002 277 B 253 g \0 \0 g \0 \0 \n
0001560 \0 \0 b 004 277 J g \0 \0 \n \0 \0 225 A \t \0
0001600 \0 262 7 A \t \0 \0 264 + A \t \0 \0 277 J l
0001620 \r \n \0 \0 277 @ I J g \0 \0 \f \0 \0 277 J
0001640 i \n \0 \0 277 I g \0 \0 \n \0 \0 245 J \t \0
0001660 \0 h 020 \b \0 \0 260 356 J A \n \0 \0 277 \b
0001700 \0 \0 260 262 \0 ( 1 8 0 B L O C K
0001720 1 7 6 B O U T 1 6 8 B L O
0001740 C K 1 6 3 C L O S E F 1 5
0001760 8 O P E N P 1 5 0 F O R C
0002000 E O U T P U T 1 4 4 P R O G
0002020 R A M C H A T . L O G I N 1 3
0002040 4 B O U T 1 2 7 C L O S E
0002060 F 1 2 1 E O F P 1 1 5 E
0002100 O F P 1 1 0 O P E N P 1 0
0002120 0 O P E N S T R E A M 8 6
0002140 O P E N S T R I N G S T R E A M
0002160 7 8 S T R I N G P 7 3 P
0002200 R O G R A M C H A T . L O G I N
0002220 6 6 B L O C K 6 2 A D D
0002240 . P R O C E S S 3 7 S E T F
0002260 I L E I N F O 2 6 S E T F I
0002300 L E I N F O 3 O P E N C H A
0002320 T S T R E A M ) \r ( 1 5 5 I N
0002340 P U T 1 4 1 L O G O U T 1
0002360 0 7 O U T P U T 9 7 O U T
0002400 P U T 9 4 { N U L L } 8 3
0002420 I N P U T 5 1 Q U O T E
0002440 4 4 Q U O T E 4 1 P R O G
0002460 R A M C H A T . O U T P U T 3
0002500 4 C H A T . E N D O F S T R E
0002520 A M O P 3 1 E N D O F S T R
0002540 E A M O P 2 3 C H A T . E N
0002560 D O F S T R E A M O P 2 0 E
0002600 N D O F S T R E A M O P ) \r ( )
0002620 \r P R O G R A M C H A T . L O G
0002640 I N : D 4 \r ( P 3 X P
0002660 2 C O M P 1 N A M E / P
0002700 A S S P 0 L O G I N F O
0002720 I 3 O P T I O N I 2 O
0002740 U T S T R E A M I 1 I N S
0002760 T R E A M I 0 H O S T F
0003000 4 C H A T . W A I T . T I M
0003020 E F 5 N E T W O R K L O G
0003040 I N F O ) \0 264 004 002 \0 004 @ \t \0 \0
0003060 265 005 g \0 \0 U 026 002 021 ! 002 H 264 003 202 261
0003100 \0 237 @ \t \0 \0 Y C 265 024 g \0 \0 H 026 230
0003120 A @ I 001 \v \0 \0 265 005 g \0 \0 Z d H 026
0003140 X 265 t ` \0 \0 \t \0 \0 277 o \0 \0 \0 ` \0
0003160 \0 \n \0 \0 277 J ` \0 \0 \n \0 \0 277 o \0 \0
0003200 \0 ` \0 \0 \n \0 \0 260 V d 001 021 001 003 K d
0003220 g \0 \0 360 235 277 B l \r \n \0 \0 277 B \t \0
0003240 \0 260 3 g \0 \0 360 223 I 001 260 & K d g \0
0003260 \0 360 227 277 I 002 \t \0 \0 260 027 g \0 \0 360 236
0003300 A \t \0 \0 244 T \t \0 \0 277 T \t \0 \0 204 K
0003320 B \n \0 \0 023 002 003 265 262 B \t \0 \0 h 020 \0
0003340 ( 1 7 6 F O R C E O U T P U T
0003360 1 6 7 P R I N 3 1 6 1 D
0003400 I S M I S S 1 5 6 D I S M I
0003420 S S 1 5 1 C H A T . F L U S
0003440 H & W A I T 1 4 0 \ D E C R
0003460 Y P T . P W D 1 1 6 F O R C
0003500 E O U T P U T 1 1 1 B O U T
0003520 9 0 P R I N 1 7 9 P R I
0003540 N 1 7 1 P R I N 1 6 0 T
0003560 E R P R I 4 2 C H A T . L O
0003600 G I N F O 2 5 \ I N T E R N
0003620 A L / G E T P A S S W O R D 3
0003640 G E T O S T Y P E ) \r ( 1 4 5
0003660 W A I T 1 3 2 P A S S W O
0003700 R D 1 2 1 U S E R N A M E
0003720 1 0 2 C R 8 7 P R O M P T
0003740 W I N D O W 7 6 P R O M P T
0003760 W I N D O W 6 8 P R O M P T
0004000 W I N D O W 5 7 P R O M P T
0004020 W I N D O W 4 7 L O G I N
0004040 3 2 A T T A C H 8 I F S )
0004060 \r ( 8 4 " n o t i m p l
0004100 e m e n t e d f o r t h i s
0004120 t y p e o f h o s t " 6
0004140 5 " L o g i n o p t i o n
0004160 " ) \r P R O G R A M C H A T . O
0004200 U T P U T : D 4 \r ( P 0 C
0004220 H I 1 L O G S T R E A M
0004240 I 0 I N C H A T S T R E A M
0004260 ) \0 2 001 \0 \0 002 021 020 \0 H m 377 360 247
0004300 @ g \0 \0 \n \0 \0 253 @ \t \0 \0 264 \a @ \t
0004320 \0 \0 h 020 @ X d m 377 360 263 341 277 A 262
0004340 334 A H \n \0 \0 277 260 324 \0 ( 4 5 B O
0004360 U T 2 5 C L O S E F 1 9
0004400 O P E N P 1 4 O P E N P ) \r
0004420 ( 1 1 I N P U T ) \r ( ) \r ( P
0004440 R E T T Y C O M P R I N T P R
0004460 O G R A M C H A T C O M S ) \r (
0004500 R P A Q Q P R O G R A M C H A
0004520 T C O M S ( ( F N S O P E N
0004540 C H A T S T R E A M P R O G R
0004560 A M C H A T P R O G R A M C H
0004600 A T . L O G I N P R O G R A M
0004620 C H A T . O U T P U T ) ( V A
0004640 R S \r N E T W O R K L O G I N
0004660 F O ) ) ) \r ( R P A Q Q N E T
0004700 W O R K L O G I N F O ( ( T E
0004720 N E X ( L O G I N " L O G I
0004740 N " U S E R N A M E " "
0004760 P A S S W O R D " \r " )
0005000 ( A T T A C H " A T T A C H
0005020 " U S E R N A M E " " P
0005040 A S S W O R D " \r " ) ( W
0005060 H E R E " W H E R E " U S
0005100 E R N A M E C R " A T T A C
0005120 H " U S E R N A M E " "
0005140 P A S S W O R D C R ) ( L
0005160 O G O U T " L O G O U T " C
0005200 R ) ) ( T O P S 2 0 ( \r L O
0005220 G I N " L O G I N " U S E
0005240 R N A M E C R P A S S W O R
0005260 D C R ) ( A T T A C H " A
0005300 T T A C H " U S E R N A M E
0005320 " 033 " C R P A S S W O R D
0005340 C R ) ( W H E R E " L O G
0005360 I N " \r U S E R N A M E C
0005400 R P A S S W O R D C R ) (
0005420 L O G O U T " L O G O U T "
0005440 C R ) ) ( U N I X ( L O G I
0005460 N W A I T C R W A I T U
0005500 S E R N A M E C R W A I T
0005520 P A S S W O R D C R \r W A I
0005540 T W A I T W A I T W A I T
0005560 C R ) ( L O G O U T W A I
0005600 T C R " l o g o u t " C R
0005620 ) ) ( I F S ( L O G I N "
0005640 L o g i n " U S E R N A M E
0005660 " " P A S S W O R D C R
0005700 ) \r ( A T T A C H ) ( L O G
0005720 O U T " Q u i t " C R ) )
0005740 ( V M S ( L O G I N U S E R
0005760 N A M E C R P A S S W O R D
0006000 C R ) ( L O G O U T " L O
0006020 G O U T " C R ) ) ( N S (
0006040 L O G I N \r " L o g o n " C
0006060 R U S E R N A M E C R P A
0006100 S S W O R D C R ) ( L O G O
0006120 U T " L O G O F F " C R ) )
0006140 ) ) \r ( P U T P R O P S P R O
0006160 G R A M C H A T C O P Y R I G
0006200 H T ( " X e r o x C o r p o
0006220 r a t i o n " 1 9 8 5 1 9 8
0006240 6 1 9 8 7 ) ) \r N I L \r
0006255