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