$ od -c -N 50000 [phylum]<LISPUSERS>koto>PROGRAMCHAT.TEDIT!1 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 \r D E S C R I P T I O N \r P 0000140 R O G R A M C H A T i s a 0000160 L i s p f u n c t i o n t h 0000200 a t i n v o k e s a w i n 0000220 d o w l e s s C h a t p r o 0000240 c e s s t o e x e c u t e 0000260 a 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 0000320 e h o s t . P R O G R A M C 0000340 H A T r e q u e s t s a l 0000360 o g i n i f o n e h a s 0000400 n o t b e e n m a d e r e 0000420 c e n t l y t o t h e r e 0000440 m o t e h o s t . A f t 0000460 e r e x e c u t i o n o f 0000500 t h e c o m m a n d , a n 0000520 o r m a l l o g o u t i s 0000540 p e r f o r m e d , a n d t 0000560 h e C h a t c o n n e c t i 0000600 o n i s c l o s e d . \r 0000620 P R O G R A M C H A T w a s 0000640 w r i t t e n b y E r i c 0000660 S c h o e n t o a l l o w 0000700 i n i t i a t i o n o f r e 0000720 m 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 0000760 t a t i o n s . I t w o 0001000 r k s w i t h b o t h V M 0001020 S a n d U n i x o p e r a 0001040 t i n g s y s t e m s o n 0001060 t 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 ( 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 . W h e n l o a 0002220 d e d , P R O G R A M C H A T 0002240 r e s e t s t h e v a r i 0002260 a b l e N E T W O R K L O G I 0002300 N F O . \r 2 . P R O G R A M 0002320 C H A T p r o v i d e s n o 0002340 e r r o r h a n d l i n g . 0002360 I f t h e c o n n e c t 0002400 i o n t o t h e r e m o t 0002420 e h o s t i s b r o k e n 0002440 , n o e r r o r m e s s a 0002460 g e i s r e t u r n e d . \0 0002500 \0 \0 \0 \0 003 ( L I S T ( ( P A G 0002520 E N I L ( F O L I O I N F O 0002540 ( A R A B I C ) S T A R T I 0002560 N G P A G E # 1 ) ( 0 0 0002600 6 1 2 7 9 2 ) ( ( F O L I O 0002620 N I L ( P A R A L O O K S 0002640 ( Q U A D C E N T E R E D ) 0002660 C H A R L O O K S ( S U P E R 0002700 S C R I P T 0 S I Z E 1 0 0002720 F A M I L Y M O D E R N O 0002740 V E R L I N E O F F S T R I 0002760 K E O U T O F F U N D E R L 0003000 I N E O F F S L O P E R E 0003020 G U L A R W E I G H T M E D 0003040 I U M ) F O R M A T I N F O 0003060 ( A R A B I C ) ) ( 1 7 4 3 0003100 6 2 8 8 3 6 ) N I L ) ( 0003120 H E A D I N G N I L ( H E A 0003140 D I N G T Y P E R U N N I N G 0003160 H E A D ) ( 8 4 7 4 4 4 4 0003200 4 3 6 ) N I L ) ( T E X T 0003220 N I L N I L ( 8 4 9 6 0003240 4 5 6 6 0 0 ) N I L ) ) ) 0003260 ( P A G E N I L N I L ( 0 0003300 0 6 1 2 7 9 2 ) ( ( F O 0003320 L I O N I L ( P A R A L O O 0003340 K S ( Q U A D C E N T E R E 0003360 D ) C H A R L O O K S ( S U 0003400 P E R S C R I P T 0 S I Z E 0003420 1 0 F A M I L Y M O D E R 0003440 N O V E R L I N E O F F S 0003460 T R I K E O U T O F F U N D 0003500 E R L I N E O F F S L O P E 0003520 R E G U L A R W E I G H T 0003540 M E D I U M ) ) ( 2 8 2 4 2 0003560 7 2 3 6 ) N I L ) ( H E 0003600 A D I N G N I L ( H E A D I 0003620 N G T Y P E R U N N I N G H E 0003640 A D ) ( 8 4 7 4 4 4 4 4 0003660 3 6 ) N I L ) ( T E X T N 0003700 I L N I L ( 8 4 9 6 4 5 0003720 6 6 0 0 ) N I L ) ) ) ( P 0003740 A G E N I L N I L ( 0 0 0003760 6 1 2 7 9 2 ) ( ( F O L I 0004000 O N I L ( P A R A L O O K S 0004020 ( Q U A D C E N T E R E D ) 0004040 C H A R L O O K S ( S U P E 0004060 R S C R I P T 0 S I Z E 1 0004100 0 F A M I L Y M O D E R N 0004120 O V E R L I N E O F F S T R 0004140 I K E O U T O F F U N D E R 0004160 L I N E O F F S L O P E R 0004200 E G U L A R W E I G H T M E 0004220 D I U M ) ) ( 2 8 2 4 2 7 0004240 2 3 6 ) N I L ) ( H E A D 0004260 I N G N I L ( H E A D I N G 0004300 T Y P E R U N N I N G H E A D 0004320 ) ( 8 4 7 4 4 4 4 4 3 6 0004340 ) N I L ) ( T E X T N I L 0004360 N I L ( 8 4 9 6 4 5 6 0004400 6 0 0 ) N I L ) ) ) ) ) \0 \0 \0 0004420 \0 \0 005 \0 \b \0 . \0 \0 \0 $ 001 310 \0 \v \0 0004440 \0 \0 004 003 004 \0 \0 001 001 310 001 \0 \0 \0 \0 \0 0004460 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004500 \0 \0 \0 \0 . \0 \0 \0 \0 001 310 \0 \v \0 \0 \0 0004520 004 003 004 \0 \0 001 001 310 001 \0 \0 \0 \0 \0 \0 \0 0004540 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004560 \0 \0 ( \0 \0 \0 \0 001 310 \0 \f \0 \0 \0 005 002 0004600 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004620 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 \0 \0 001 0004640 310 \0 021 \0 \0 \0 004 002 003 \0 \0 \0 \0 \0 \0 \0 0004660 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004700 \0 \0 ( \0 212 \0 212 001 8 \0 006 \0 \0 \0 004 002 0004720 003 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004740 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 \0 \0 001 0004760 310 \0 \v \0 \0 \0 004 002 004 \0 \0 \0 \0 \0 \0 \0 0005000 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005020 \0 \0 ( \0 212 \0 212 001 8 \0 \0 \0 \0 \0 004 002 0005040 004 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005060 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 D \0 \0 \0 \0 001 0005100 310 \0 \0 \0 \0 \0 \0 003 004 \0 \0 001 001 310 001 \0 0005120 \0 \0 \0 \0 \0 \0 \v P A G E H E A D I 0005140 N G \0 \v R U N N I N G H E A D \0 0005160 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005200 \0 \0 004 \0 \b \0 024 \0 006 M O D E R N \0 0005220 \n \0 \0 \0 \0 \0 \0 001 \0 \0 027 \0 \t H E L 0005240 V E T I C A \0 \n \0 \0 \0 \0 \0 \0 002 \0 0005260 \0 027 \0 \t H E L V E T I C A \0 \n \0 0005300 \0 \0 \0 \0 \0 \0 \0 \0 024 \0 006 M O D E R 0005320 N \0 \n \0 \0 \0 \0 \0 \0 002 \0 \0 024 \0 006 M 0005340 O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 0005360 024 \0 006 M O D E R N \0 \f \0 \0 \0 \0 \0 0005400 \0 002 \0 \0 024 \0 006 M O D E R N \0 006 \0 0005420 \0 \0 \0 \0 \0 \0 \0 \0 022 \0 004 L O G O \0 0005440 030 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 002 \0 0005460 \b \0 \0 \0 005 \0 \0 \0 \0 \b \0 \0 \0 001 \0 \0 0005500 \0 \0 \a \0 \0 \0 \f \0 \0 \0 \0 005 \0 \0 \0 \0 0005520 \0 002 \0 \b \0 \0 \0 002 \0 001 \0 \v H R U L 0005540 E . G E T F N 001 \0 024 \0 006 M O D E 0005560 R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 0005600 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \a \0 \0 \0 0005620 002 \0 001 \0 \v H R U L E . G E T F N 0005640 001 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 0005660 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 0005700 \0 \0 \0 002 \0 \a \0 \0 \0 002 \0 001 \0 \v H R 0005720 U L E . G E T F N 001 \0 024 \0 006 M O 0005740 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005760 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 0006000 \0 \0 \f \0 \0 \0 \0 006 \0 \0 \0 \0 \0 002 \0 005 0006020 \0 \0 \0 002 \0 001 \0 \v H R U L E . G E 0006040 T F N 001 \0 024 \0 006 M O D E R N \0 \f 0006060 \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 001 \0 \0 \0 \0 0006100 006 \0 \0 \0 \0 \0 002 \0 \a \0 \0 \0 002 \0 001 \0 0006120 \v H R U L E . G E T F N 001 \0 024 \0 0006140 006 M O D E R N \0 \f \0 \0 \0 \0 \0 \0 002 0006160 \0 \0 \0 \0 001 \0 \0 \0 \0 006 \0 \0 \0 \0 \0 002 0006200 \0 004 \0 \0 \0 % \0 \0 \0 \0 005 \0 \0 \0 \0 \0 0006220 002 \0 003 \0 \0 \0 001 \0 \0 \0 \0 002 \0 \0 \0 \0 0006240 \0 002 \0 003 \0 \0 \0 \v \0 \0 \0 \0 002 \0 \0 \0 0006260 001 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 \0 003 \0 \0 0006300 \0 220 \0 \0 \0 \0 005 \0 \0 \0 005 \0 \0 \0 \0 001 0006320 \0 \0 \0 b \0 \0 \0 \0 005 \0 \0 \0 006 \0 \0 \0 0006340 \0 001 \0 \0 \0 4 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 0006360 002 \0 003 \0 \0 \0 264 \0 \0 \0 \0 005 \0 \0 \0 \0 0006400 \0 002 \0 003 \0 \0 \0 \b \0 \0 \0 \0 004 \0 \0 \0 0006420 \0 \0 002 \0 002 \0 \0 \0 026 \0 \0 \0 \0 005 \0 \0 0006440 \0 \0 \0 002 \0 002 \0 \0 \0 031 \0 \0 \0 \0 005 \0 0006460 \0 \0 \0 \0 002 \0 002 \0 \0 \0 031 \0 \0 \0 \0 005 0006500 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 \r \0 \0 \0 \0 0006520 005 \0 \0 \0 \b \0 \0 \0 \0 001 \0 \0 \0 001 \0 \0 0006540 \0 \0 005 \0 \0 \0 \r \0 \0 \0 \0 001 \0 \0 \0 001 0006560 \0 \0 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0 001 \0 \0 0006600 \0 \r \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 002 \0 0006620 \0 \0 006 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 001 0006640 \0 \0 \0 \b \0 \0 \0 \0 001 \0 \0 \0 ) \0 \0 \0 0006660 \0 005 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 \r \0 \0 0006700 \0 \0 001 \0 \0 \0 240 \0 \0 \0 \0 005 \0 \0 \0 \0 0006720 \0 002 \0 001 \0 \0 \0 \t \0 \0 \0 \0 001 \0 \0 \0 0006740 256 \0 \0 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0 001 \0 0006760 \0 \0 \b \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 003 0007000 \0 \0 \0 \n \0 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 0007020 003 \0 \0 \0 A \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 0007040 \0 006 \0 \0 \0 z \0 \0 \0 \0 005 \0 \0 005 ? \0 0007060 H z 272 0007063