$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>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 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 r e s e t s t h e v a r i a 0002260 b l e N E T W O R K L O G I N 0002300 F O . \r 2 . \t P R O G R A M C H 0002320 A T p r o v i d e s n o e 0002340 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 i o 0002400 n t o t h e r e m o t e 0002420 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 g e 0002460 i s r e t u r n e d . \0 \0 \0 0002500 \0 \0 003 ( L I S T ( ( P A G E 0002520 N I L ( P A P E R S I Z E L 0002540 E T T E R S T A R T I N G P A 0002560 G E # 2 1 5 ) ( 0 0 6 1 0002600 2 7 9 2 ) ( ( F O L I O N 0002620 I L ( P A R A L O O K S ( Q 0002640 U A D C E N T E R E D ) C H 0002660 A R L O O K S ( S U P E R S C 0002700 R I P T 0 I N V I S I B L E 0002720 O F F S E L E C T P O I N T 0002740 O F F P R O T E C T E D O 0002760 F F S I Z E 1 0 F A M I L 0003000 Y M O D E R N O V E R L I N 0003020 E O F F S T R I K E O U T 0003040 O F F U N D E R L I N E O F 0003060 F E X P A N S I O N R E G U 0003100 L A R S L O P E R E G U L A 0003120 R W E I G H T M E D I U M 0003140 I N V E R T E D O F F U S E 0003160 R I N F O N I L S T Y L E 0003200 N I L ) F O R M A T I N F O 0003220 N I L ) ( 1 7 4 3 6 2 8 8 0003240 3 6 ) N I L ) ( H E A D I 0003260 N G N I L ( H E A D I N G T 0003300 Y P E R U N N I N G H E A D ) 0003320 ( 8 4 7 4 4 5 2 8 3 6 ) 0003340 N I L ) ( T E X T N I L 0003360 N I L ( 8 4 9 6 4 5 6 6 0003400 0 0 ) N I L ) ) ) ( P A G E 0003420 N I L ( P A P E R S I Z E 0003440 N I L . L E T T E R ) ( 0 0003460 0 6 1 2 7 9 2 ) ( ( F O 0003500 L I O N I L ( P A R A L O O 0003520 K S ( Q U A D C E N T E R E 0003540 D ) C H A R L O O K S ( S U 0003560 P E R S C R I P T 0 I N V I 0003600 S I B L E O F F S E L E C T 0003620 P O I N T O F F P R O T E C 0003640 T E D O F F S I Z E 1 0 0003660 F A M I L Y M O D E R N O V 0003700 E R L I N E O F F S T R I K 0003720 E O U T O F F U N D E R L I 0003740 N E O F F E X P A N S I O N 0003760 R E G U L A R S L O P E R 0004000 E G U L A R W E I G H T M E 0004020 D I U M I N V E R T E D O F 0004040 F U S E R I N F O N I L S 0004060 T Y L E N I L ) F O R M A T 0004100 I N F O N I L ) ( 1 7 4 3 0004120 6 2 8 8 3 6 ) N I L ) ( 0004140 H E A D I N G N I L ( H E A 0004160 D I N G T Y P E R U N N I N G 0004200 H E A D ) ( 8 4 7 4 4 5 2 0004220 8 3 6 ) N I L ) ( T E X T 0004240 N I L N I L ( 8 4 9 6 0004260 4 5 6 6 0 0 ) N I L ) ) ) 0004300 ( P A G E N I L ( P A P E R 0004320 S I Z E N I L . L E T T E 0004340 R ) ( 0 0 6 1 2 7 9 2 ) 0004360 ( ( F O L I O N I L ( P A 0004400 R A L O O K S ( Q U A D C E 0004420 N T E R E D ) C H A R L O O K 0004440 S ( S U P E R S C R I P T 0 0004460 I N V I S I B L E O F F S 0004500 E L E C T P O I N T O F F P 0004520 R O T E C T E D O F F S I Z 0004540 E 1 0 F A M I L Y M O D E 0004560 R N O V E R L I N E O F F 0004600 S T R I K E O U T O F F U N 0004620 D E R L I N E O F F E X P A 0004640 N S I O N R E G U L A R S L 0004660 O P E R E G U L A R W E I G 0004700 H T M E D I U M I N V E R T 0004720 E D O F F U S E R I N F O 0004740 N I L S T Y L E N I L ) F 0004760 O R M A T I N F O N I L ) ( 0005000 1 7 4 3 6 2 8 8 3 6 ) N 0005020 I L ) ( H E A D I N G N I L 0005040 ( H E A D I N G T Y P E R U 0005060 N N I N G H E A D ) ( 8 4 7 0005100 4 4 5 2 8 3 6 ) N I L ) 0005120 ( T E X T N I L N I L ( 8 0005140 4 9 6 4 5 6 6 0 0 ) N I 0005160 L ) ) ) ) ) \0 \0 \0 \0 \0 005 \0 \t \0 . 0005200 \0 \0 \0 030 001 310 \0 \a \0 \0 \0 001 003 004 \0 \0 0005220 001 \0 030 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005240 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 0005260 \0 $ 001 310 \0 \a \0 \0 \0 001 002 004 \0 \0 \0 \0 0005300 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005320 \0 \0 \0 \0 \0 . \0 \0 \0 \0 001 310 \0 \a \0 \0 0005340 \0 001 003 004 \0 \0 001 001 310 001 \0 \0 \0 \0 \0 \0 0005360 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005400 \0 \0 \0 . \0 \0 \0 \0 001 310 \0 \a \0 \0 \0 001 0005420 003 004 \0 \0 001 \0 030 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005440 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005460 \0 ( \0 \0 \0 \0 001 310 \0 \a \0 \0 \0 001 002 004 0005500 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005520 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 \0 \0 \0 001 310 0005540 \0 021 \0 \0 \0 004 002 003 \0 \0 \0 \0 \0 \0 \0 \0 0005560 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005600 \0 ( \0 212 \0 212 001 8 \0 006 \0 \0 \0 004 002 003 0005620 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005640 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 212 \0 212 001 8 0005660 \0 \0 \0 \0 \0 004 002 004 \0 \0 \0 \0 \0 \0 \0 \0 0005700 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005720 \0 D \0 \0 \0 \0 001 310 \0 \0 \0 \0 \0 \0 003 004 0005740 \0 \0 001 001 310 001 \0 \0 \0 \0 \0 \0 \0 \v P A 0005760 G E H E A D I N G \0 \v R U N N I 0006000 N G H E A D \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006020 \0 \0 \0 \0 \0 \0 \0 \0 \0 004 \0 \b \0 026 \0 \b 0006040 T E R M I N A L \0 \n \0 \0 \0 \0 \0 \0 0006060 \0 \0 \0 024 \0 006 M O D E R N \0 \n \0 \0 0006100 \0 \0 \0 \0 001 \0 \0 027 \0 \t H E L V E T 0006120 I C A \0 \n \0 \0 \0 \0 \0 \0 002 \0 \0 024 \0 0006140 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 002 0006160 \0 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 0006200 \0 \0 \0 \0 \0 \0 024 \0 006 M O D E R N \0 0006220 \f \0 \0 \0 \0 \0 \0 002 \0 \0 024 \0 006 M O D 0006240 E R N \0 006 \0 \0 \0 \0 \0 \0 \0 \0 \0 022 \0 0006260 004 L O G O \0 030 \0 \0 \0 \0 \0 \0 \0 \0 \0 0006300 \0 \0 \0 \0 002 \0 \t \0 \0 \0 005 \0 \0 \0 \0 \b 0006320 \0 \0 \0 001 \0 \0 \0 \0 \a \0 \0 \0 \f \0 \0 \0 0006340 \0 005 \0 \0 \0 \0 \0 002 \0 \t \0 \0 \0 002 \0 001 0006360 \0 \v H R U L E . G E T F N 001 \0 024 0006400 \0 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 0006420 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 0006440 002 \0 \b \0 \0 \0 002 \0 001 \0 \v H R U L E 0006460 . G E T F N 001 \0 024 \0 006 M O D E R 0006500 N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 0006520 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 \b \0 \0 \0 002 0006540 \0 001 \0 \v H R U L E . G E T F N 001 0006560 \0 024 \0 006 M O D E R N \0 \n \0 \0 \0 \0 0006600 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 005 \0 \0 \0 0006620 \0 \0 002 \0 \a \0 \0 \0 \f \0 \0 \0 \0 006 \0 \0 0006640 \0 \0 \0 002 \0 \a \0 \0 \0 002 \0 001 \0 \v H R 0006660 U L E . G E T F N 001 \0 024 \0 006 M O 0006700 D E R N \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 0006720 \0 001 \0 \0 \0 \0 006 \0 \0 \0 \0 \0 002 \0 \b \0 0006740 \0 \0 002 \0 001 \0 \v H R U L E . G E T 0006760 F N 001 \0 024 \0 006 M O D E R N \0 \f \0 0007000 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 001 \0 \0 \0 \0 006 0007020 \0 \0 \0 \0 \0 002 \0 006 \0 \0 \0 $ \0 \0 \0 \0 0007040 005 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 0007060 \0 005 \0 \0 \0 \f \0 \0 \0 \0 004 \0 \0 \0 \0 \0 0007100 002 \0 005 \0 \0 \0 220 \0 \0 \0 \0 005 \0 \0 \0 005 0007120 \0 \0 \0 \0 002 \0 \0 \0 b \0 \0 \0 \0 005 \0 \0 0007140 \0 006 \0 \0 \0 \0 002 \0 \0 \0 4 \0 \0 \0 \0 005 0007160 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 264 \0 \0 \0 \0 0007200 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 \b \0 \0 \0 0007220 \0 004 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 026 \0 \0 0007240 \0 \0 005 \0 \0 \0 \0 \0 002 \0 004 \0 \0 \0 001 \0 0007260 \0 \0 \0 005 \0 \0 \0 031 \0 \0 \0 \0 001 \0 \0 \0 0007300 \0 \0 002 \0 005 \0 \0 \0 031 \0 \0 \0 \0 005 \0 \0 0007320 \0 \0 \0 002 \0 003 \0 \0 \0 \r \0 \0 \0 \0 005 \0 0007340 \0 \0 \b \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 \0 \0 0007360 005 \0 \0 \0 \r \0 \0 \0 \0 002 \0 \0 \0 001 \0 \0 0007400 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0 002 \0 \0 \0 \r 0007420 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 0007440 006 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 002 \0 \0 0007460 \0 \b \0 \0 \0 \0 002 \0 \0 \0 ) \0 \0 \0 \0 005 0007500 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 \r \0 \0 \0 \0 0007520 002 \0 \0 \0 240 \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 0007540 \0 002 \0 \0 \0 \t \0 \0 \0 \0 002 \0 \0 \0 256 \0 0007560 \0 \0 \0 005 \0 \0 \0 \t \0 \0 \0 \0 002 \0 \0 \0 0007600 \b \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 005 \0 \0 0007620 \0 \n \0 \0 \0 \0 004 \0 \0 \0 \0 \0 002 \0 001 \0 0007640 \0 \0 @ \0 \0 \0 \0 005 \0 \0 \0 \0 \0 002 \0 001 0007660 \0 \0 \0 y \0 \0 \0 \0 005 \0 \0 005 = \0 G z 0007700 272 0007701