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