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