$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>PROGRAMCHAT.TEDIT!2 0000000 X E R O X \t P R O G R A M C H A 0000020 T \r 2 \r \r 4 \r \r 1 \r \r P R O G R 0000040 A M C H A T \r 1 \r \r 4 \r \r B y : 0000060 I S L W S ( b l o o m b 0000100 e r g . p a @ x e r o x . c o m 0000120 ) \r D E S C R I P T I O N \r P R 0000140 O G R A M C H A T i s a L 0000160 i s p f u n c t i o n t h a 0000200 t i n v o k e s a w i n d 0000220 o w l e s s C h a t p r o c 0000240 e s s t o e x e c u t e a 0000260 s i n g l e c o m m a n d 0000300 l i n e o n a r e m o t e 0000320 h o s t . P R O G R A M C H 0000340 A T r e q u e s t s a l o 0000360 g i n i f o n e h a s n 0000400 o t b e e n m a d e r e c 0000420 e n t l y t o t h e r e m 0000440 o t e h o s t . A f t e 0000460 r e x e c u t i o n o f t 0000500 h e c o m m a n d , a n o 0000520 r m a l l o g o u t i s p 0000540 e r f o r m e d , a n d t h 0000560 e C h a t c o n n e c t i o 0000600 n i s c l o s e d . \r P 0000620 R O G R A M C H A T w a s w 0000640 r i t t e n b y E r i c S 0000660 c h o e n t o a l l o w i 0000700 n i t i a t i o n o f r e m 0000720 o t e c o m p u t a t i o n 0000740 f r o m L i s p w o r k s t 0000760 a t i o n s . I t w o r 0001000 k s w i t h b o t h V M S 0001020 a n d U n i x o p e r a t 0001040 i n g s y s t e m s o n t 0001060 h e r e m o t e h o s t . 0001100 \r T o u s e : \r L o a d 0001120 t h e m o d u l e w i t h : 0001140 \r \t ( L O A D ' P R O G R A M 0001160 C H A T . L C O M ) \r I n v o k 0001200 e t h e f u n c t o n w i 0001220 t h : \r ( P R O G R A M C H A T 0001240 h o s t n a m e c o m m a n 0001260 d S t r i n g w i n d o w F l 0001300 g ) \t [ F u n c t i o n ] \r w h 0001320 e r e \r h o s t n a m e i s 0001340 t h e n e t w o r k n a m e 0001360 o f t h e r e m o t e h 0001400 o s t , \r c o m m a n d S t r i 0001420 n g i s a s t r i n g w 0001440 h i c h i s t h e e x a c 0001460 t f o r m a t o f t h e 0001500 c o m m a n d t o b e r u 0001520 n f r o m t h e c o m m a 0001540 n d l i n e i n t e r p r e 0001560 t e r o f a V A X / V M S 0001600 h o s t ( o r f r o m t 0001620 h e s h e l l o f a V A 0001640 X / U n i x h o s t ) , a n 0001660 d \r w i n d o w F l g i s a 0001700 v a r i a b l e t h a t , 0001720 w h e n T , o p e n s a 0001740 w i n d o w a n d d i s p l 0001760 a y s a l o g o f d a t 0002000 a t r a n s f e r r e d b e 0002020 t w e e n t h e P R O G R A 0002040 M C H A T p r o c e s s a n 0002060 d t h e r e m o t e h o s 0002100 t . P R O G R A M C H A T 0002120 i s n o r m a l l y i n v o 0002140 k e d w i t h w i n d o w F 0002160 l g = N I L . \r W a r n i n 0002200 g s : \r 1 . \t W h e n l o a d 0002220 e d , P R O G R A M C H A T 0002240 a d d s o n t o t h e v 0002260 a r i a b l e N E T W O R K L 0002300 O G I N F O L O G O U T c l 0002320 a u s e s . \r 2 . \t P R O G R A 0002340 M C H A T p r o v i d e s n 0002360 o e r r o r h a n d l i n g 0002400 . I f t h e c o n n e c 0002420 t i o n t o t h e r e m o 0002440 t e h o s t i s b r o k e 0002460 n , n o e r r o r m e s s 0002500 a g e i s r e t u r n e d . 0002520 \0 \0 \0 \0 \0 003 ( L I S T ( ( P A 0002540 G E N I L ( P A P E R S I Z 0002560 E L E T T E R S T A R T I N 0002600 G P A G E # 2 1 5 ) ( 0 0 0002620 6 1 2 7 9 2 ) ( ( F O L I 0002640 O N I L ( P A R A L O O K S 0002660 ( Q U A D C E N T E R E D ) 0002700 C H A R L O O K S ( S U P E 0002720 R S C R I P T 0 I N V I S I 0002740 B L E O F F S E L E C T P O 0002760 I N T O F F P R O T E C T E 0003000 D O F F S I Z E 1 0 F A 0003020 M I L Y M O D E R N O V E R 0003040 L I N E O F F S T R I K E O 0003060 U T O F F U N D E R L I N E 0003100 O F F E X P A N S I O N R 0003120 E G U L A R S L O P E R E G 0003140 U L A R W E I G H T M E D I 0003160 U M I N V E R T E D O F F 0003200 U S E R I N F O N I L S T Y 0003220 L E N I L ) F O R M A T I N 0003240 F O N I L ) ( 1 7 4 3 6 0003260 2 8 8 3 6 ) N I L ) ( H E 0003300 A D I N G N I L ( H E A D I 0003320 N G T Y P E R U N N I N G H E 0003340 A D ) ( 8 4 7 4 4 5 2 8 0003360 3 6 ) N I L ) ( T E X T N 0003400 I L N I L ( 8 4 9 6 4 5 0003420 6 6 0 0 ) N I L ) ) ) ( P 0003440 A G E N I L ( P A P E R S I 0003460 Z E N I L . L E T T E R ) 0003500 ( 0 0 6 1 2 7 9 2 ) ( 0003520 ( F O L I O N I L ( P A R A 0003540 L O O K S ( Q U A D C E N T 0003560 E R E D ) C H A R L O O K S 0003600 ( S U P E R S C R I P T 0 I 0003620 N V I S I B L E O F F S E L 0003640 E C T P O I N T O F F P R O 0003660 T E C T E D O F F S I Z E 0003700 1 0 F A M I L Y M O D E R N 0003720 O V E R L I N E O F F S T 0003740 R I K E O U T O F F U N D E 0003760 R L I N E O F F E X P A N S 0004000 I O N R E G U L A R S L O P 0004020 E R E G U L A R W E I G H T 0004040 M E D I U M I N V E R T E D 0004060 O F F U S E R I N F O N I 0004100 L S T Y L E N I L ) F O R 0004120 M A T I N F O N I L ) ( 1 7 0004140 4 3 6 2 8 8 3 6 ) N I L 0004160 ) ( H E A D I N G N I L ( 0004200 H E A D I N G T Y P E R U N N 0004220 I N G H E A D ) ( 8 4 7 4 4 0004240 5 2 8 3 6 ) N I L ) ( T 0004260 E X T N I L N I L ( 8 4 0004300 9 6 4 5 6 6 0 0 ) N I L ) 0004320 ) ) ( P A G E N I L ( P A 0004340 P E R S I Z E N I L . L E 0004360 T T E R ) ( 0 0 6 1 2 7 0004400 9 2 ) ( ( F O L I O N I L 0004420 ( P A R A L O O K S ( Q U A D 0004440 C E N T E R E D ) C H A R L 0004460 O O K S ( S U P E R S C R I P 0004500 T 0 I N V I S I B L E O F 0004520 F S E L E C T P O I N T O F 0004540 F P R O T E C T E D O F F 0004560 S I Z E 1 0 F A M I L Y M 0004600 O D E R N O V E R L I N E O 0004620 F F S T R I K E O U T O F F 0004640 U N D E R L I N E O F F E 0004660 X P A N S I O N R E G U L A R 0004700 S L O P E R E G U L A R W 0004720 E I G H T M E D I U M I N V 0004740 E R T E D O F F U S E R I N 0004760 F O N I L S T Y L E N I L 0005000 ) F O R M A T I N F O N I L 0005020 ) ( 1 7 4 3 6 2 8 8 3 6 0005040 ) N I L ) ( H E A D I N G 0005060 N I L ( H E A D I N G T Y P E 0005100 R U N N I N G H E A D ) ( 8 0005120 4 7 4 4 5 2 8 3 6 ) N I 0005140 L ) ( T E X T N I L N I L 0005160 ( 8 4 9 6 4 5 6 6 0 0 ) 0005200 N I L ) ) ) ) ) \0 \0 \0 \0 \0 005 \0 0005220 \t \0 . \0 \0 \0 030 001 310 \0 \a \0 \0 \0 001 003 0005240 004 \0 \0 001 \0 030 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005260 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005300 ( \0 \0 \0 $ 001 310 \0 \a \0 \0 \0 001 002 004 \0 0005320 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005340 \0 \0 \0 \0 \0 \0 \0 \0 . \0 \0 \0 \0 001 310 \0 0005360 \a \0 \0 \0 001 003 004 \0 \0 001 001 310 001 \0 \0 \0 0005400 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005420 \0 \0 \0 \0 \0 \0 . \0 \0 \0 \0 001 310 \0 \a \0 0005440 \0 \0 001 003 004 \0 \0 001 \0 030 \0 \0 \0 \0 \0 \0 0005460 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005500 \0 \0 \0 \0 ( \0 \0 \0 \0 001 310 \0 \a \0 \0 \0 0005520 001 002 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005540 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 \0 0005560 \0 001 310 \0 021 \0 \0 \0 004 002 003 \0 \0 \0 \0 \0 0005600 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005620 \0 \0 \0 \0 ( \0 212 \0 212 001 8 \0 006 \0 \0 \0 0005640 004 002 003 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005660 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 212 \0 0005700 212 001 8 \0 \0 \0 \0 \0 004 002 004 \0 \0 \0 \0 \0 0005720 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005740 \0 \0 \0 \0 D \0 \0 \0 \0 001 310 \0 \0 \0 \0 \0 0005760 \0 003 004 \0 \0 001 001 310 001 \0 \0 \0 \0 \0 \0 \0 0006000 \v P A G E H E A D I N G \0 \v R U 0006020 N N I N G H E A D \0 \0 \0 \0 \0 \0 \0 0006040 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 \b \0 0006060 026 \0 \b T E R M I N A L \0 \n \0 \0 \0 0006100 \0 \0 \0 \0 \0 \0 024 \0 006 M O D E R N \0 0006120 \n \0 \0 \0 \0 \0 \0 001 \0 \0 027 \0 \t H E L 0006140 V E T I C A \0 \n \0 \0 \0 \0 \0 \0 002 \0 0006160 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0 0006200 \0 \0 002 \0 \0 024 \0 006 M O D E R N \0 \n 0006220 \0 \0 \0 \0 \0 \0 \0 \0 \0 024 \0 006 M O D E 0006240 R N \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 024 \0 006 0006260 M O D E R N \0 006 \0 \0 \0 \0 \0 \0 \0 \0 0006300 \0 022 \0 004 L O G O \0 030 \0 \0 \0 \0 \0 \0 0006320 \0 \0 \0 \0 \0 \0 \0 002 \0 \t \0 \0 \0 005 \0 \0 0006340 \0 \0 \b \0 \0 \0 001 \0 \0 \0 \0 \a \0 \0 \0 \f 0006360 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \t \0 \0 \0 0006400 002 \0 001 \0 \v H R U L E . G E T F N 0006420 001 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 0006440 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 0006460 \0 \0 \0 002 \0 \b \0 \0 \0 002 \0 001 \0 \v H R 0006500 U L E . G E T F N 001 \0 024 \0 006 M O 0006520 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006540 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \b \0 0006560 \0 \0 002 \0 001 \0 \v H R U L E . G E T 0006600 F N 001 \0 024 \0 006 M O D E R N \0 \n \0 0006620 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 0006640 \0 \0 \0 \0 \0 002 \0 \a \0 \0 \0 \f \0 \0 \0 \0 0006660 006 \0 \0 \0 \0 \0 002 \0 \a \0 \0 \0 002 \0 001 \0 0006700 \v H R U L E . G E T F N 001 \0 024 \0 0006720 006 M O D E R N \0 \f \0 \0 \0 \0 \0 \0 002 0006740 \0 \0 \0 \0 001 \0 \0 \0 \0 006 \0 \0 \0 \0 \0 002 0006760 \0 \b \0 \0 \0 002 \0 001 \0 \v H R U L E . 0007000 G E T F N 001 \0 024 \0 006 M O D E R N 0007020 \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 001 \0 \0 0007040 \0 \0 006 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0 $ \0 0007060 \0 \0 \0 005 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 0007100 \0 \0 002 \0 005 \0 \0 \0 \f \0 \0 \0 \0 004 \0 \0 0007120 \0 \0 \0 002 \0 005 \0 \0 \0 220 \0 \0 \0 \0 005 \0 0007140 \0 \0 005 \0 \0 \0 \0 002 \0 \0 \0 b \0 \0 \0 \0 0007160 005 \0 \0 \0 006 \0 \0 \0 \0 002 \0 \0 \0 4 \0 \0 0007200 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 264 \0 0007220 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 \b 0007240 \0 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 0007260 026 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 004 \0 \0 0007300 \0 001 \0 \0 \0 \0 005 \0 \0 \0 031 \0 \0 \0 \0 001 0007320 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 031 \0 \0 \0 \0 0007340 005 \0 \0 \0 \0 \0 002 \0 003 \0 \0 \0 \r \0 \0 \0 0007360 \0 005 \0 \0 \0 \b \0 \0 \0 \0 002 \0 \0 \0 001 \0 0007400 \0 \0 \0 005 \0 \0 \0 \r \0 \0 \0 \0 002 \0 \0 \0 0007420 001 \0 \0 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0 002 \0 0007440 \0 \0 \r \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 0007460 \0 \0 \0 006 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 0007500 002 \0 \0 \0 \b \0 \0 \0 \0 002 \0 \0 \0 ) \0 \0 0007520 \0 \0 005 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 \r \0 0007540 \0 \0 \0 002 \0 \0 \0 240 \0 \0 \0 \0 005 \0 \0 \0 0007560 \0 \0 002 \0 002 \0 \0 \0 \t \0 \0 \0 \0 002 \0 \0 0007600 \0 256 \0 \0 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0 002 0007620 \0 \0 \0 \b \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 0007640 005 \0 \0 \0 \n \0 \0 \0 \0 004 \0 \0 \0 \0 \0 002 0007660 \0 001 \0 \0 \0 S \0 \0 \0 \0 005 \0 \0 \0 \0 \0 0007700 002 \0 001 \0 \0 \0 y \0 \0 \0 \0 005 \0 \0 005 P 0007720 \0 G z 272 0007724