$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>RS232CHAT!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 006
0000100 001 ( F I L E C R E A T E D " 2
0000120 1 - J a n - 8 7 0 2 : 5 4 : 4
0000140 4 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > R S 2
0000200 3 2 C H A T . ; 2 4 006 001 3 5 1
0000220 3 \r \r c h a n
0000240 g e s t o % : ( V A R S
0000260 R S 2 3 2 C H A T C O M S ) \r
0000300
0000320 ( F N S R S 2 3 2 C H A
0000340 T . H O S T . F I L T E R R S
0000360 2 3 2 C H A T . O P E N ) \r \r
0000400 p r e v i o u s d a
0000420 t e % : " 2 - D e c - 8 6
0000440 0 3 : 0 3 : 4 5 " { E R I S }
0000460 < L I S P C O R E > L I B R A R
0000500 Y > R S 2 3 2 C H A T . ; 2 3 )
0000520 \r \r \r ( * " \r C o p y r i g h
0000540 t ( c ) 1 9 8 5 , 1 9 8 6
0000560 , 1 9 8 7 b y X e r o x
0000600 C o r p o r a t i o n . A l
0000620 l r i g h t s r e s e r v e
0000640 d . \r " ) \r \r ( P R E T T Y C O
0000660 M P R I N T R S 2 3 2 C H A T
0000700 C O M S ) \r \r ( R P A Q Q 006 002
0000720 R S 2 3 2 C H A T C O M S 006 001
0000740 ( \r \r
0000760 006 006 ( * ; ; "
0001000 S u p p o r t f o r C H A T
0001020 v i a t h e R S 2 3 2 p
0001040 o r t . " ) 006 001 \r \r
0001060
0001100 ( D E C L A R E % : D O N T C
0001120 O P Y ( F I L E S ( L O A D
0001140 C O M P ) \r
0001160
*
0001220 C H A T D E C L S
0001240 ) ) \r
0001260 ( F N S R S
0001300 2 3 2 C H A T . H O S T . F I L
0001320 T E R R S 2 3 2 C H A T . O P
0001340 E N R S 2 3 2 C H A T . S E T
0001360 . P A R A M E T E R S ) \r
0001400
0001420 ( A D D V A R S ( N E T
0001440 W O R K O S T Y P E S ( R S 2
0001460 3 2 ) ) \r
0001500
0001520 ( C H A T . P R O T O C O L
0001540 T Y P E S ( R S 2 3 2 . R
0001560 S 2 3 2 C H A T . H O S T . F I
0001600 L T E R ) ) ) \r
0001620 ( F
0001640 I L E S D L R S 2 3 2 C C H
0001660 A T ) ) ) \r \r \r \r 006 004 ( * ; ;
0001700 " S u p p o r t f o r C H
0001720 A T v i a t h e R S 2 3 2
0001740 p o r t . " ) 006 001 \r \r ( D E C
0001760 L A R E % : D O N T C O P Y
0002000 \r ( F I L E S L O A D ( L O A
0002020 D C O M P ) \r C H
0002040 A T D E C L S ) \r ) \r ( D E F I
0002060 N E Q \r \r ( 006 004 R S 2 3 2 C H A
0002100 T . H O S T . F I L T E R 006 001 \r
0002120 [ L A M B D A ( N A M E )
0002140 006 006 006 001
0002160
*
0002220 006 006 ( * ; " E d i t e d
0002240 2 1 - J a n - 8 7 0 2 : 5 1
0002260 b y j d s " ) 006 001 \r
0002300 \r
0002320 006 006 ( * ; ; " D e c i d e
0002340 i f t h e c h a t h o s t
0002360 n a m e d N A M E i s s
0002400 u p p o s e d t o b e a n
0002420 R S 2 3 2 c h a t c o n n
0002440 e c t i o n . " ) 006 001 \r \r
0002460 ( C O N D \r ( (
0002500 C L : M E M B E R N A M E '
0002520 ( R S 2 3 2 R S 2 3 2 C M O
0002540 D E M ) : T E S T ' S T R I
0002560 N G . E Q U A L ) \r
0002600
*
0002660 006 006 ( * ; " Y
0002700 u p , i t ' s a l i k e l
0002720 y l o o k i n g n a m e . "
0002740 ) 006 001 \r ( C O N
0002760 D \r ( ( N
0003000 U L L \ R S 2 3 2 F L G )
0003020
0003040 006
0003060 006 ( * ; \r 006 001
0003100
*
0003140 006 006
0003160 " N e e d t o f i r e u p
0003200 R S 2 3 2 ( i t w a s n '
0003220 t i n i t i a l i z e d . ) "
0003240 ) 006 001 \r
0003260 ( R S 2 3 2 C . I N I T R S 2
0003300 3 2 C . D E F A U L T . I N I T
0003320 . I N F O ) ) ) \r
0003340 ( L I S T ' R S 2 3 2 ( F
0003360 U N C T I O N R S 2 3 2 C H A
0003400 T . O P E N ] ) \r \r ( 006 004 R S 2
0003420 3 2 C H A T . O P E N 006 001 \r
0003440 [ L A M B D A ( H O S T ) 006 006
0003460 006 001
0003500
0003520 006
0003540 006 ( * ; " E d i t e d 2 1
0003560 - J a n - 8 7 0 2 : 5 3 b y
0003600 j d s " ) 006 001 \r \r 006 006 ( * ;
0003620 ; ; " R e t u r n a p a i
0003640 r o f s t r e a m s f o r
0003660 a c h a t c o n n e c t i
0003700 o n . A d d C H A T s p
0003720 e c i f i c o p e r a t i o n
0003740 s t o t h e S T R E A M
0003760 v i a S T R E A M P R O P . "
0004000 ) 006 001 \r \r ( P R O G (
0004020 O U T S T R E A M S T R E A M
0004040 ) \r ( S E T
0004060 Q S T R E A M ( O P E N S T
0004100 R E A M ' { R S 2 3 2 } ' I
0004120 N P U T ) ) \r
0004140 ( S E T Q O U T S T R E A M
0004160 ( R S 2 3 2 C . O U T P U T S
0004200 T R E A M ) ) \r
0004220 ( S T R E A M P R O P S T
0004240 R E A M ' S E T D I S P L A Y
0004260 T Y P E ( F U N C T I O N N
0004300 I L L ) ) \r
0004320 ( S T R E A M P R O P S T R E
0004340 A M ' R E A D P E V E N T (
0004360 R S 2 3 2 C . R E A D P . E V E
0004400 N T S T R E A M ) ) \r
0004420 ( S T R E A M P R O
0004440 P S T R E A M ' L O G I N F
0004460 O ( F U N C T I O N N I L L
0004500 ) ) \r ( S T
0004520 R E A M P R O P S T R E A M
0004540 ' F L U S H & W A I T ( F U N
0004560 C T I O N N I L L ) ) \r
0004600 ( S T R E A M P R
0004620 O P S T R E A M ' S E N D S
0004640 C R E E N P A R A M S ( F U N
0004660 C T I O N N I L L ) ) \r
0004700 [ S T R E A M P R
0004720 O P S T R E A M ' O P T I O
0004740 N S ' ( ( " S e t L i n e
0004760 P a r a m e t e r s " ' R S 2
0005000 3 2 C H A T . S E T . P A R A M
0005020 E T E R S \r
0005040
*
0005100 " M o d i f y R S
0005120 2 3 2 p a r a m e t e r s " ]
0005140 \r ( R E T U
0005160 R N ( C O N S S T R E A M
0005200 O U T S T R E A M ] ) \r \r ( 006 004
0005220 R S 2 3 2 C H A T . S E T . P A
0005240 R A M E T E R S 006 001 \r ( L A
0005260 M B D A N I L 006 006 006 001
0005300
*
0005340 006 006 ( *
0005360 e j s % : " 2 4 - D e c - 8
0005400 5 1 4 : 5 7 " ) 006 001 \r
0005420 ( L E T * ( ( W I N D O W W
0005440 I N D O W ) \r
0005460 ( P W I N D O W ( G E T P
0005500 R O M P T W I N D O W W I N D
0005520 O W ) ) ) \r
0005540 ( C O N D \r
0005560 ( ( F N T Y P ' R S 2 3
0005600 2 C M E N U . S E T . P A R A M
0005620 E T E R S ) \r
0005640 ( A L L O W . B U T T
0005660 O N . E V E N T S ) \r
0005700 ( R E S E T F
0005720 O R M ( C U R S O R W A I T
0005740 I N G C U R S O R ) \r
0005760
0006000 ( R S 2 3 2 C M E N U . S E T .
0006020 P A R A M E T E R S W I N D O
0006040 W ) ) \r
0006060 ( p r i n t o u t P W I N
0006100 D O W T " S e l e c t d e
0006120 s i r e d p a r a m e t e r s
0006140 . C h o o s e A p p l y !
0006160 w h e n d o n e . " ) ) \r
0006200 ( T (
0006220 p r i n t o u t P W I N D O W
0006240 T " Y o u m u s t l o a
0006260 d R S 2 3 2 C M E N U t o
0006300 u s e t h i s f u n c t i o
0006320 n " ) ) ) ) ) ) \r ) \r \r ( A D D
0006340 T O V A R 006 002 N E T W O R K O
0006360 S T Y P E S 006 001 ( R S 2 3 2 )
0006400 ) \r \r ( A D D T O V A R 006 002 C
0006420 H A T . P R O T O C O L T Y P E
0006440 S 006 001 ( R S 2 3 2 . R S 2
0006460 3 2 C H A T . H O S T . F I L T
0006500 E R ) ) \r ( F I L E S L O A D
0006520 D L R S 2 3 2 C C H A T ) \r (
0006540 P U T P R O P S R S 2 3 2 C H
0006560 A T C O P Y R I G H T ( " X
0006600 e r o x C o r p o r a t i o n
0006620 " 1 9 8 5 1 9 8 6 1 9 8 7
0006640 ) ) \r ( D E C L A R E % : D O
0006660 N T C O P Y \r ( F I L E M A
0006700 P ( N I L ( 1 0 6 7 3 2 9
0006720 0 ( R S 2 3 2 C H A T . H O S
0006740 T . F I L T E R 1 0 7 7 .
0006760 1 8 0 0 ) ( R S 2 3 2 C H A T
0007000 . O P E N 1 8 0 2 . 2 6 9
0007020 9 ) ( \r R S 2 3 2 C H A T . S
0007040 E T . P A R A M E T E R S 2 7
0007060 0 1 . 3 2 8 8 ) ) ) ) ) \r S
0007100 T O P \r
0007104