$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>PROGRAMCHAT!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 0 - F e b - 8 7 0 8 : 1 4 : 4
0000140 9 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L Y R I C > P R O G
0000200 R A M C H A T . ; 1 006 001 7 2 4
0000220 6 \r \r p r e v
0000240 i o u s d a t e % : " 1 0 -
0000260 N o v - 8 6 1 3 : 3 5 : 5 9 "
0000300 { I N D I G O } < G S L W S >
0000320 K O T O > L I B R A R Y > P R O
0000340 G R A M C H A T . ; 2 ) \r \r \r (
0000360 * " \r C o p y r i g h t ( c
0000400 ) 1 9 8 5 , 1 9 8 6 , 1 9
0000420 8 7 b y X e r o x C o r p
0000440 o r a t i o n . A l l r i
0000460 g h t s r e s e r v e d . \r "
0000500 ) \r \r ( P R E T T Y C O M P R I
0000520 N T P R O G R A M C H A T C O
0000540 M S ) \r \r ( R P A Q Q 006 002 P R
0000560 O G R A M C H A T C O M S 006 001
0000600 ( ( F N S O P E N C H A T S T
0000620 R E A M P R O G R A M C H A T
0000640 P R O G R A M C H A T . L O G
0000660 I N P R O G R A M C H A T . O
0000700 U T P U T ) \r
0000720 (
0000740 V A R S N E T W O R K L O G I
0000760 N F O ) ) ) \r ( D E F I N E Q \r
0001000 \r ( 006 004 O P E N C H A T S T R E
0001020 A M 006 001 \r ( L A M B D A (
0001040 H O S T ) 006 006 006 001
0001060
*
0001120 006 006 ( * e j s % :
0001140 " 2 3 - F e b - 8 5 1 9 : 2
0001160 2 " ) 006 001 \r ( P R O G
0001200 ( O P E N F U N C T I O N ) \r
0001220 ( C O N D \r
0001240 ( ( B O
0001260 U N D P ' C H A T . P R O T O
0001300 C O L T Y P E S ) \r
0001320 ( C O N D \r
0001340 (
0001360 ( 006 002 f o r 006 001 P R O T O C O
0001400 L 006 002 i n 006 001 C H A T . P R
0001420 O T O C O L T Y P E S 006 002 t h
0001440 e r e i s 006 001 ( S E T Q O P
0001460 E N F U N C T I O N ( A P P L
0001500 Y * ( C D R \r
0001520
*
0001640 P R O T O C O L \r
0001660
*
0002000 ) \r
0002020
*
0002140 H O S T ) ) ) \r
0002160
0002200 ( R E T U R N ( A P P L Y *
0002220 ( C A D R O P E N F U N C T
0002240 I O N ) \r
0002260
0002300 ( C A R O P E N F
0002320 U N C T I O N ) ) ) ) ) ) \r
0002340 ( ( B O U
0002360 N D P ' C H A T . P R O T O C
0002400 O L S ) \r
0002420 ( C O N D \r
0002440 ( ( 006 002 f o
0002460 r 006 001 P R O T O C O L 006 002 i
0002500 n 006 001 C H A T . P R O T O C O
0002520 L S 006 002 t h e r e i s 006 001 (
0002540 S E T Q O P E N F U N C T I O
0002560 N ( A P P L Y * P R O T O C
0002600 O L H O S T ) ) ) \r
0002620 ( R E
0002640 T U R N ( A P P L Y * ( C A
0002660 D R O P E N F U N C T I O N )
0002700 \r
0002720
0002740 ( C A R O P E N F U N C T
0002760 I O N ) ) ) ) ) ) ) ) ) ) \r \r (
0003000 006 004 P R O G R A M C H A T 006 001 \r
0003020 ( L A M B D A ( H O S T
0003040 C M D S T R E A M L O G S T R
0003060 E A M ) 006 006 006 001
0003100
0003120 006 006 ( * D S B " 9 - N o
0003140 v - 8 6 1 3 : 0 2 " ) 006 001 \r
0003160 ( P R O G ( ( S T R E A
0003200 M P A I R ( 006 002 O P E N C H A
0003220 T S T R E A M 006 001 H O S T ) )
0003240 \r I N C H
0003260 A T O U T C H A T ) \r
0003300 ( C O N D \r
0003320 ( S T R E A M
0003340 P A I R ( S E T Q I N C H A
0003360 T ( C A R S T R E A M P A I
0003400 R ) ) \r
0003420 ( S E T Q O U
0003440 T C H A T ( C D R S T R E A
0003460 M P A I R ) ) \r
0003500 ( S E T
0003520 F I L E I N F O O U T C H A T
0003540 ' E N D O F S T R E A M O P
0003560 ( F U N C T I O N C H A T . E
0003600 N D O F S T R E A M O P ) ) \r
0003620
0003640 ( S E T F I L E I N F O
0003660 I N C H A T ' E N D O F S T R
0003700 E A M O P ( F U N C T I O N
0003720 C H A T . E N D O F S T R E A M
0003740 O P ) ) \r
0003760 ( A D D . P R
0004000 O C E S S ` ( 006 002 P R O G R A
0004020 M C H A T . O U T P U T 006 001 (
0004040 Q U O T E % , I N C H A T )
0004060 \r
0004100
0004120 ( Q U O T E
0004140 % , L O G S T R E A M ) ) )
0004160 \r
0004200 ( B L O C K ) \r
0004220
0004240 ( 006 002 P R O G R A M C H A T .
0004260 L O G I N 006 001 H O S T I N C
0004300 H A T O U T C H A T ) \r
0004320
0004340 ( C O N D \r
0004360 ( (
0004400 S T R I N G P C M D S T R E A
0004420 M ) \r
0004440 ( S E T Q
0004460 C M D S T R E A M ( O P E N
0004500 S T R I N G S T R E A M C M D
0004520 S T R E A M ' I N P U T ) ) )
0004540 ) \r
0004560 ( C O N D \r
0004600
0004620 ( ( N U L L L O G S T R
0004640 E A M ) \r
0004660 ( S E
0004700 T Q L O G S T R E A M ( O P
0004720 E N S T R E A M ' { N U L L }
0004740 ' O U T P U T ) ) ) ) \r
0004760
0005000 ( 006 002 w h i l e 006 001 ( A N D
0005020 ( O P E N P O U T C H A T
0005040 ' O U T P U T ) \r
0005060
0005100 ( N O T ( E
0005120 O F P C M D S T R E A M ) ) )
0005140 006 002 d o 006 001 ( B O U T O U
0005160 T C H A T ( B I N C M D S T
0005200 R E A M ) ) \r
0005220
*
0005300 ( B L O C K ) \r
0005320
0005340 006 002 f i n a l l y 006 001 ( C O
0005360 N D \r
0005400
0005420 ( ( E O F P C M D S
0005440 T R E A M ) \r
0005460
0005500 ( C L O S E
0005520 F C M D S T R E A M ) \r
0005540
*
0005600 ( B O U T O U T C H A T ( C
0005620 H A R C O D E C R ) ) \r
0005640
*
0005700 ( 006 002 P R O G R A M C H A T . L
0005720 O G I N 006 001 H O S T I N C H
0005740 A T O U T C H A T ' L O G O
0005760 U T ) \r
0006000
0006020 ( F O R C E O U T
0006040 P U T O U T C H A T T ) \r
0006060
*
0006120 ( 006 002 u n t i l 006 001 ( N O
0006140 T ( O P E N P I N C H A T
0006160 ' I N P U T ) ) 006 002 d o 006 001
0006200 ( B L O C K ) \r
0006220
0006240 006 002
0006260 f i n a l l y 006 001 ( C L O S E
0006300 F O U T C H A T ) ) ) ) ) ) )
0006320 ) ) ) \r \r ( 006 004 P R O G R A M C
0006340 H A T . L O G I N 006 001 \r ( L
0006360 A M B D A ( H O S T I N S T
0006400 R E A M O U T S T R E A M O
0006420 P T I O N ) 006 006 006 001
0006440 006 006 (
0006460 * e j s % : " 2 4 - J a n -
0006500 8 5 1 8 : 5 2 " ) 006 001 \r
0006520 \r
0006540 006 006 ( * * L o g i n t
0006560 o H O S T . I f a j o b
0006600 a l r e a d y e x i s t s
0006620 o n H O S T , A t t a c h
0006640 t o i t u n l e s s O P T
0006660 I O N \r 006 001
0006700 006 006 o v e r r i d e s . ) 006 001
0006720 \r \r ( P R O G ( ( L O
0006740 G I N F O ( C D R ( A S S O
0006760 C ( O R ( G E T O S T Y P E
0007000 H O S T ) \r
0007020
0007040 ' I F S )
0007060 \r
0007100
0007120 N E T W O R K L O G I N F O )
0007140 ) ) \r N A
0007160 M E / P A S S C O M ) \r
0007200 ( O R L O G I N
0007220 F O ( R E T U R N ) ) \r
0007240 ( S E T Q N A M
0007260 E / P A S S ( \ I N T E R N A
0007300 L / G E T P A S S W O R D H O
0007320 S T ) ) \r (
0007340 S E T Q C O M ( C O N D \r
0007360
0007400 ( O P T I O N ) \r
0007420
0007440 ( ( A S S O C ' A
0007460 T T A C H L O G I N F O ) \r
0007500
0007520 ( O R ( C H A T
0007540 . L O G I N F O I N S T R E A
0007560 M H O S T ( C A R N A M E
0007600 / P A S S ) ) \r
0007620
0007640 ' L O G I N ) ) \r
0007660
0007700 ( T \r
0007720 \r 006 006 (
0007740 * D o n ' t k n o w h o w
0007760 t o d o a n y t h i n g
0010000 b u t l o g i n , s o s i
0010020 l l y t o t r y a n y t h
0010040 i n g e l s e ) 006 001 \r \r
0010060
0010100 ' L O G I N ) ) )
0010120 \r ( C O N D
0010140 \r ( (
0010160 N U L L ( S E T Q L O G I N
0010200 F O ( A S S O C C O M L O
0010220 G I N F O ) ) ) \r
0010240 ( p r i n t o u t
0010260 P R O M P T W I N D O W T
0010300 " L o g i n o p t i o n "
0010320 C O M " n o t i m p l e m
0010340 e n t e d f o r t h i s t
0010360 y p e o f h o s t " ) ) \r
0010400 ( T (
0010420 006 002 f o r 006 001 X 006 002 i n 006 001
0010440 ( C D R L O G I N F O ) 006
0010460 002 d o 006 001 ( S E L E C T Q X
0010500 \r
0010520
*
0010560 ( C R ( B O U T O U T S T R
0010600 E A M ( C H A R C O D E C R
0010620 ) ) \r
0010640
*
0010700 ( F O R C E O U T P
0010720 U T O U T S T R E A M ) ) \r
0010740
*
0011000 ( U
0011020 S E R N A M E ( P R I N 3 (
0011040 C A R N A M E / P A S S ) \r
0011060
*
0011140 O
0011160 U T S T R E A M ) ) \r
0011200
*
0011240 ( P A S S W
0011260 O R D ( P R I N 3 ( \ D E C
0011300 R Y P T . P W D ( C D R N A
0011320 M E / P A S S ) ) \r
0011340
*
0011420 O U T S T R
0011440 E A M ) ) \r
0011460
*
0011520 ( W A I T
0011540 006 006 ( * S o m e s y s
0011560 t e m s d o n o t p e r m
0011600 i t \r 006 001
0011620
*
0011700 006 006 t y p e a h e a d ) 006
0011720 001 \r
0011740
*
0012000 ( C O N D \r
0012020
*
0012100 ( ( N O T ( C H A T
0012120 . F L U S H & W A I T I N S T
0012140 R E A M ) ) \r
0012160
*
0012240 006 006 ( * C o u l d n '
0012260 t s y n c , s o w a i t
0012300 l o n g e r . ) 006 001 \r
0012320
*
0012400 ( D I S M I S S C H A
0012420 T . W A I T . T I M E ) ) ) \r
0012440
*
0012520 ( D I S M I S S C H A
0012540 T . W A I T . T I M E ) ) \r
0012560
*
0012620 ( P R
0012640 I N 3 X O U T S T R E A M )
0012660 ) ) \r
0012700 ( F O R C E O U T P U T
0012720 O U T S T R E A M ) ) ) ) ) ) \r
0012740 \r ( 006 004 P R O G R A M C H A T .
0012760 O U T P U T 006 001 \r ( L A M B
0013000 D A ( I N C H A T S T R E A M
0013020 L O G S T R E A M ) 006 006 006 001
0013040
0013060 006 006 ( * e
0013100 j s % : " 2 3 - F e b - 8 5
0013120 1 9 : 1 8 " ) 006 001 \r ( 006
0013140 002 b i n d 006 001 C H 006 002 w h i
0013160 l e 006 001 ( A N D ( N E Q C
0013200 H - 1 ) \r
0013220 ( O
0013240 P E N P I N C H A T S T R E A
0013260 M ' I N P U T ) ) 006 002 d o 006
0013300 001 ( S E T Q C H ( B I N
0013320 I N C H A T S T R E A M ) ) \r
0013340
*
0013420 ( C O N D \r
0013440
*
0013520 ( ( N E Q C H
0013540 - 1 ) \r
0013560
*
0013640 ( C O N D \r
0013660
*
0013740 ( L O G S T R E A M
0013760 ( B O U T L O G S T R E A M
0014000 C H ) ) ) ) ) \r
0014020 006 002 f i n a l l y 006 001 ( C O N
0014040 D \r
0014060 ( ( O P E N P I N C H
0014100 A T S T R E A M ) \r
0014120 ( C L
0014140 O S E F I N C H A T S T R E A
0014160 M ) ) ) ) ) ) \r ) \r \r ( R P A Q
0014200 Q 006 002 N E T W O R K L O G I N
0014220 F O 006 001 \r ( ( T
0014240 E N E X ( L O G I N " L O G
0014260 I N " U S E R N A M E "
0014300 " P A S S W O R D " \r " )
0014320 \r
0014340 ( A T T A C H " A T T A C H
0014360 " U S E R N A M E " " P
0014400 A S S W O R D " \r " ) \r
0014420 ( W H
0014440 E R E " W H E R E " U S E
0014460 R N A M E C R " A T T A C H
0014500 " U S E R N A M E " "
0014520 P A S S W O R D C R ) \r
0014540 ( L O G
0014560 O U T " L O G O U T " C R )
0014600 ) \r ( T O P S 2
0014620 0 ( L O G I N " L O G I N
0014640 " U S E R N A M E C R P A
0014660 S S W O R D C R ) \r
0014700 ( A T T A C
0014720 H " A T T A C H " U S E R
0014740 N A M E " 033 " C R P A S S
0014760 W O R D C R ) \r
0015000 ( W H E R E "
0015020 L O G I N " U S E R N A M E
0015040 C R P A S S W O R D C R )
0015060 \r
0015100 ( L O G O U T " L O G O U T "
0015120 C R ) ) \r ( U
0015140 N I X ( L O G I N W A I T
0015160 C R W A I T U S E R N A M E
0015200 C R W A I T P A S S W O R
0015220 D C R W A I T W A I T W
0015240 A I T W A I T C R ) \r
0015260 ( L O G O
0015300 U T W A I T C R " l o g o
0015320 u t " C R ) ) \r
0015340 ( I F S ( L O G I N " L o
0015360 g i n " U S E R N A M E "
0015400 " P A S S W O R D C R ) \r
0015420 ( A T
0015440 T A C H ) \r
0015460 ( L O G O U T " Q u i t
0015500 " C R ) ) \r (
0015520 V M S ( L O G I N U S E R N
0015540 A M E C R P A S S W O R D
0015560 C R ) \r
0015600 ( L O G O U T " L O G O U T
0015620 " C R ) ) \r (
0015640 N S ( L O G I N " L o g o n
0015660 " C R U S E R N A M E C R
0015700 P A S S W O R D C R ) \r
0015720 ( L O G O U
0015740 T " L O G O F F " C R ) ) )
0015760 ) \r ( P U T P R O P S P R O G
0016000 R A M C H A T C O P Y R I G H
0016020 T ( " X e r o x C o r p o r
0016040 a t i o n " 1 9 8 5 1 9 8 6
0016060 1 9 8 7 ) ) \r ( D E C L A R E
0016100 % : D O N T C O P Y \r ( F
0016120 I L E M A P ( N I L ( 5 0 3
0016140 6 2 6 5 ( O P E N C H A T S
0016160 T R E A M 5 1 3 . 1 5 3 3
0016200 ) ( P R O G R A M C H A T 1
0016220 5 3 5 . 3 2 8 3 ) ( P R O
0016240 G R A M C H A T . L O G I N 3
0016260 2 8 5 \r . 5 5 9 9 ) ( P R
0016300 O G R A M C H A T . O U T P U T
0016320 5 6 0 1 . 6 2 6 3 ) ) ) )
0016340 ) \r S T O P \r
0016347