$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>RS232CHAT.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 1 -
0000120 J a n - 8 7 0 2 : 5 4 : 5 9 "
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 > R S 2 3 2 C H
0000220 A T . ; 2 4 ) \r " 1 9 - J a n
0000240 - 8 7 2 1 : 5 9 : 2 0 " b r
0000260 e c o m p i l e d c h a n g e
0000300 s % : R S 2 3 2 C H A T . H O
0000320 S T . F I L T E R R S 2 3 2 C
0000340 H A T . O P E N i n \r " X e
0000360 r o x L i s p 1 9 - J a n -
0000400 8 7 . . . " d a t e d " 1
0000420 9 - J a n - 8 7 2 2 : 2 8 : 2
0000440 9 " ) \r ( F I L E C R E A T E D
0000460 " 2 1 - J a n - 8 7 0 2 : 5
0000500 4 : 4 4 " { E R I S } < L I S
0000520 P C O R E > L I B R A R Y > R S
0000540 2 3 2 C H A T . ; 2 4 3 5 1 3
0000560 c h a n g e s t o % : ( V
0000600 A R S \r R S 2 3 2 C H A T C O
0000620 M S ) ( F N S R S 2 3 2 C H
0000640 A T . H O S T . F I L T E R R
0000660 S 2 3 2 C H A T . O P E N ) p
0000700 r e v i o u s d a t e % : "
0000720 2 - D e c - 8 6 0 3 : 0 3 :
0000740 4 5 " \r { E R I S } < L I S P
0000760 C O R E > L I B R A R Y > R S 2
0001000 3 2 C H A T . ; 2 3 ) \r R S 2 3
0001020 2 C H A T . H O S T . F I L T E
0001040 R : D 4 \r ( I 0 N A M E )
0001060 \0 & \0 \0 \0 001 @ o \0 \0 \0 g \0 \0 g
0001100 \0 \0 \f \0 \0 264 026 ` \0 \0 246 ` \0 \0 \t \0
0001120 \0 277 g \0 \0 g \0 \0 h 032 032 020 \0 ( 2 5
0001140 R S 2 3 2 C . I N I T 1 3
0001160 C L : M E M B E R ) \r ( 3 2 R
0001200 S 2 3 2 C H A T . O P E N 2 9
0001220 R S 2 3 2 2 2 R S 2 3 2 C
0001240 . D E F A U L T . I N I T . I N
0001260 F O 1 8 \ R S 2 3 2 F L G
0001300 1 0 S T R I N G . E Q U A L
0001320 7 : T E S T ) \r ( 4 ( R S
0001340 2 3 2 R S 2 3 2 C M O D E M
0001360 ) ) \r R S 2 3 2 C H A T . O P E
0001400 N : D 4 \r ( P 1 S T R E A
0001420 M P 0 O U T S T R E A M
0001440 I 0 H O S T ) \0 T 002 \0 \0 001
0001460 021 001 g \0 \0 g \0 \0 \n \0 \0 Y \b \0 \0
0001500 X I g \0 \0 g \0 \0 \v \0 \0 I g \0 \0 I
0001520 \t \0 \0 \v \0 \0 I g \0 \0 g \0 \0 \v \0 \0
0001540 I g \0 \0 g \0 \0 \v \0 \0 I g \0 \0 g \0
0001560 \0 \v \0 \0 I g \0 \0 o \0 \0 \0 \v \0 \0 I
0001600 H 032 020 \0 ( 7 8 S T R E A M P R
0001620 O P 6 7 S T R E A M P R O P
0001640 5 7 S T R E A M P R O P 4
0001660 7 S T R E A M P R O P 3 7
0001700 S T R E A M P R O P 3 4 R S
0001720 2 3 2 C . R E A D P . E V E N T
0001740 2 6 S T R E A M P R O P 1
0001760 5 R S 2 3 2 C . O U T P U T S
0002000 T R E A M 1 1 O P E N S T R
0002020 E A M ) \r ( 7 1 O P T I O N S
0002040 6 4 N I L L 6 1 S E N D
0002060 S C R E E N P A R A M S 5 4
0002100 N I L L 5 1 F L U S H & W A
0002120 I T 4 4 N I L L 4 1 L O
0002140 G I N F O 3 0 R E A D P E V
0002160 E N T 2 3 N I L L 2 0 S
0002200 E T D I S P L A Y T Y P E 8
0002220 I N P U T 5 { R S 2 3 2 } )
0002240 \r ( 7 5 ( ( " S e t L i n
0002260 e P a r a m e t e r s " ( Q
0002300 U O T E R S 2 3 2 C H A T . S
0002320 E T . P A R A M E T E R S ) "
0002340 M o d i f y R S 2 3 2 p a r
0002360 a m e t e r s " ) ) ) \r R S 2 3
0002400 2 C H A T . S E T . P A R A M E
0002420 T E R S A 0 0 0 1 : D 4 \r ( N
0002440 A M E S I : : * U N W I N D -
0002460 P R O T E C T * I 0 S I :
0002500 : * C L E A N U P - F O R M S *
0002520 F 0 W I N D O W ) \0 006 \0
0002540 001 \0 001 P \t \0 \0 020 \0 ( 3 R S 2 3
0002560 2 C M E N U . S E T . P A R A M
0002600 E T E R S ) \r N I L \r ( ) \r R S
0002620 2 3 2 C H A T . S E T . P A R A
0002640 M E T E R S : D 4 \r ( P 2
0002660 S I : : * R E S E T F O R M S *
0002700 P 1 P W I N D O W P 0
0002720 W I N D O W F 3 W I N D
0002740 O W ) \0 R 003 001 \0 \0 S 021 001 \0 H \t
0002760 \0 \0 021 001 001 g \0 \0 \t \0 \0 262 3 \b \0 \0
0003000 g \0 \0 ` \0 \0 \t \0 \0 h 032 032 h 032 h 032
0003020 021 001 002 g \0 \0 \t \0 \0 \t \0 \0 277 \b \0 \0
0003040 023 I \t \0 \0 o \0 \0 \0 I \n \0 \0 020 I \t
0003060 \0 \0 o \0 \0 \0 I \n \0 \0 020 \0 ( 7 9
0003100 P R I N 1 7 1 T E R P R I
0003120 6 6 P R I N 1 5 8 T E R P
0003140 R I 5 3 S I : : R E S E T U
0003160 N W I N D 4 9 \ M V L I S T
0003200 4 6 R S 2 3 2 C H A T . S E
0003220 T . P A R A M E T E R S A 0 0 0
0003240 1 3 0 C U R S O R 2 1 A
0003260 L L O W . B U T T O N . E V E N
0003300 T S 1 6 F N T Y P 7 G E
0003320 T P R O M P T W I N D O W ) \r (
0003340 4 3 S I : : R E S E T U N W I
0003360 N D 2 7 W A I T I N G C U R
0003400 S O R 2 4 C U R S O R 1 3
0003420 R S 2 3 2 C M E N U . S E T .
0003440 P A R A M E T E R S ) \r ( 7 5
0003460 " Y o u m u s t l o a d
0003500 R S 2 3 2 C M E N U t o u s
0003520 e t h i s f u n c t i o n "
0003540 6 2 " S e l e c t d e s i
0003560 r e d p a r a m e t e r s .
0003600 C h o o s e A p p l y ! w
0003620 h e n d o n e . " ) \r ( P R E
0003640 T T Y C O M P R I N T R S 2 3
0003660 2 C H A T C O M S ) \r ( R P A Q
0003700 Q R S 2 3 2 C H A T C O M S
0003720 ( ( * ; ; " S u p p o r t
0003740 f o r C H A T v i a t h e
0003760 R S 2 3 2 p o r t . " ) (
0004000 D E C L A R E % : D O N T C O
0004020 P Y ( F I L E S ( \r L O A D
0004040 C O M P ) C H A T D E C L S )
0004060 ) ( F N S R S 2 3 2 C H A T
0004100 . H O S T . F I L T E R R S 2
0004120 3 2 C H A T . O P E N R S 2 3
0004140 2 C H A T . S E T . P A R A M E
0004160 T E R S ) ( A D D V A R S (
0004200 \r N E T W O R K O S T Y P E S
0004220 ( R S 2 3 2 ) ) ( C H A T . P
0004240 R O T O C O L T Y P E S ( R S
0004260 2 3 2 . R S 2 3 2 C H A T .
0004300 H O S T . F I L T E R ) ) ) (
0004320 F I L E S D L R S 2 3 2 C C
0004340 H A T ) ) ) \r ( A D D T O V A R
0004360 N E T W O R K O S T Y P E S
0004400 ( R S 2 3 2 ) ) \r ( A D D T O V
0004420 A R C H A T . P R O T O C O L
0004440 T Y P E S ( R S 2 3 2 . R
0004460 S 2 3 2 C H A T . H O S T . F I
0004500 L T E R ) ) \r ( F I L E S L O A
0004520 D D L R S 2 3 2 C C H A T )
0004540 \r ( P U T P R O P S R S 2 3 2
0004560 C H A T C O P Y R I G H T (
0004600 " X e r o x C o r p o r a t i
0004620 o n " 1 9 8 5 1 9 8 6 1 9
0004640 8 7 ) ) \r N I L \r
0004651