$ od -c -N 50000 [phylum]<LISP>Lyric>Lispusers>SEDIT-COMPILE.TEDIT!1 0000000 X E R O X \t S E D I T - C O M P 0000020 I L E \r 2 \r \r 4 \r \r 1 \r \r S E D 0000040 I T - C O M P I L E \r 1 \r \r 4 \r 0000060 \r B y : D o u g C u t t i 0000100 n g ( C u t t i n g . P A @ X 0000120 e r o x . C O M ) \r T h i s d 0000140 o c u m e n t l a s t e d i 0000160 t e d o n O c t o b e r 8 0000200 , 1 9 8 7 . \r I N T R O D U C 0000220 T I O N \r T h i s m o d u l e 0000240 a d d s t h r e e n e w 0000260 c o m m a n d s t o L y r i 0000300 c S E d i t : \r C o n t r o l 0000320 - C \t [ S E d i t C o m m a n 0000340 d ] \r C o m p l e t e t h e 0000360 c u r r e n t e d i t a n d 0000400 a t t e m p t t o c o m p 0000420 i l e i t . T h i s w i 0000440 l l w o r k f o r F N S 0000460 a n d m o s t d e f i n e r 0000500 s . \r C o n t r o l - M e t a - 0000520 C \t [ S E d i t C o m m a n d 0000540 ] \r J u s t l i k e C o n t 0000560 r o l - C , b u t c l o s e 0000600 s t h e w i n d o w a f t 0000620 e r c o m p i l a t i o n i 0000640 s c o m p l e t e . \r C o n t 0000660 r o l - M e t a - X \t [ S E d i 0000700 t C o m m a n d ] \r J u s t 0000720 l i k e C o n t r o l - X ( 0000740 D o n e ) , b u t c l o s e 0000760 s t h e w i n d o w t o o 0001000 . \r C A U T I O N S \r S E D I T 0001020 - C O M P I L E c a l l s I 0001040 L : S E D I T . R E S E T w h 0001060 e n i t i s l o a d e d 0001100 s o t h a t S E d i t 271 s 0001120 c o m m a n d t a b l e i s 0001140 r e b u i l t . T h i s 0001160 w i l l c a u s e a b r e 0001200 a k i f a n y S E d i t 0001220 w i n d o w s a r e o p e n 0001240 . T h u s w e r e c o m 0001260 m e n d c l o s i n g a l l 0001300 S E d i t w i n d o w s b 0001320 e f o r e l o a d i n g t h 0001340 i s m o d u l e . \r D u e t 0001360 o t h e w a y w e i n v 0001400 o k e t h e c o m p i l e r 0001420 , c o d e b l o c k s p r 0001440 o d u c e d b y S E D I T - 0001460 C O M P I L E m a y s o m e 0001500 t i m e s h a v e t h e w 0001520 r o n g f r a m e n a m e . 0001540 F o r e x a m p l e , i 0001560 f I L : D F N F L G i s I 0001600 L : P R O P t h e n S E D I 0001620 T - C O M P I L E w i l l p 0001640 r o d u c e c o d e b l o c 0001660 k s w i t h n a m e s l i 0001700 k e " l a m b d a i n l a 0001720 m b d a i n n i l " . \r \0 \0 0001740 \0 \0 \0 003 ( L I S T ( ( P A G E 0001760 N I L ( P A P E R S I Z E 0002000 L E T T E R S T A R T I N G P 0002020 A G E # 2 4 0 ) ( 0 0 6 0002040 1 2 7 9 2 ) ( ( F O L I O 0002060 N I L ( P A R A L O O K S ( 0002100 Q U A D C E N T E R E D ) C 0002120 H A R L O O K S ( S U P E R S 0002140 C R I P T 0 I N V I S I B L 0002160 E O F F S E L E C T P O I N 0002200 T O F F P R O T E C T E D 0002220 O F F S I Z E 1 0 F A M I 0002240 L Y M O D E R N O V E R L I 0002260 N E O F F S T R I K E O U T 0002300 O F F U N D E R L I N E O 0002320 F F E X P A N S I O N R E G 0002340 U L A R S L O P E R E G U L 0002360 A R W E I G H T M E D I U M 0002400 I N V E R T E D O F F U S 0002420 E R I N F O N I L S T Y L E 0002440 N I L ) F O R M A T I N F O 0002460 N I L ) ( 1 7 4 3 6 2 8 0002500 8 3 6 ) N I L ) ( H E A D 0002520 I N G N I L ( H E A D I N G 0002540 T Y P E R U N N I N G H E A D 0002560 ) ( 8 4 7 4 4 5 2 8 3 6 0002600 ) N I L ) ( T E X T N I L 0002620 N I L ( 8 4 9 6 4 5 6 0002640 6 0 0 ) N I L ) ) ) ( P A G 0002660 E N I L ( P A P E R S I Z E 0002700 N I L . L E T T E R ) ( 0002720 0 0 6 1 2 7 9 2 ) ( ( F 0002740 O L I O N I L ( P A R A L O 0002760 O K S ( Q U A D C E N T E R 0003000 E D ) C H A R L O O K S ( S 0003020 U P E R S C R I P T 0 I N V 0003040 I S I B L E O F F S E L E C 0003060 T P O I N T O F F P R O T E 0003100 C T E D O F F S I Z E 1 0 0003120 F A M I L Y M O D E R N O 0003140 V E R L I N E O F F S T R I 0003160 K E O U T O F F U N D E R L 0003200 I N E O F F E X P A N S I O 0003220 N R E G U L A R S L O P E 0003240 R E G U L A R W E I G H T M 0003260 E D I U M I N V E R T E D O 0003300 F F U S E R I N F O N I L 0003320 S T Y L E N I L ) F O R M A 0003340 T I N F O N I L ) ( 1 7 4 0003360 3 6 2 8 8 3 6 ) N I L ) 0003400 ( H E A D I N G N I L ( H E 0003420 A D I N G T Y P E R U N N I N 0003440 G H E A D ) ( 8 4 7 4 4 5 0003460 2 8 3 6 ) N I L ) ( T E X 0003500 T N I L N I L ( 8 4 9 6 0003520 4 5 6 6 0 0 ) N I L ) ) ) 0003540 ( P A G E N I L ( P A P E 0003560 R S I Z E N I L . L E T T 0003600 E R ) ( 0 0 6 1 2 7 9 2 0003620 ) ( ( F O L I O N I L ( P 0003640 A R A L O O K S ( Q U A D C 0003660 E N T E R E D ) C H A R L O O 0003700 K S ( S U P E R S C R I P T 0003720 0 I N V I S I B L E O F F 0003740 S E L E C T P O I N T O F F 0003760 P R O T E C T E D O F F S I 0004000 Z E 1 0 F A M I L Y M O D 0004020 E R N O V E R L I N E O F F 0004040 S T R I K E O U T O F F U 0004060 N D E R L I N E O F F E X P 0004100 A N S I O N R E G U L A R S 0004120 L O P E R E G U L A R W E I 0004140 G H T M E D I U M I N V E R 0004160 T E D O F F U S E R I N F O 0004200 N I L S T Y L E N I L ) 0004220 F O R M A T I N F O N I L ) 0004240 ( 1 7 4 3 6 2 8 8 3 6 ) 0004260 N I L ) ( H E A D I N G N I 0004300 L ( H E A D I N G T Y P E R 0004320 U N N I N G H E A D ) ( 8 4 0004340 7 4 4 5 2 8 3 6 ) N I L ) 0004360 ( T E X T N I L N I L ( 0004400 8 4 9 6 4 5 6 6 0 0 ) N 0004420 I L ) ) ) ) ) \0 \0 \0 \0 \0 005 \0 006 \0 0004440 . \0 \0 \0 \0 001 310 \0 \a \0 \0 \0 001 003 004 \0 0004460 \0 001 001 310 001 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004500 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 ( \0 0004520 \0 \0 \0 001 310 \0 \a \0 \0 \0 001 002 004 \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 ( \0 \0 \0 \0 001 310 \0 021 \0 0004600 \0 \0 004 002 003 \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 ( \0 0004640 212 \0 212 001 8 \0 006 \0 \0 \0 004 002 003 \0 \0 \0 0004660 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0004700 \0 \0 \0 \0 \0 \0 ( \0 212 \0 212 001 8 \0 \0 \0 0004720 \0 \0 004 002 004 \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 D \0 0004760 \0 \0 \0 001 310 \0 \0 \0 \0 \0 \0 003 004 \0 \0 001 0005000 001 310 001 \0 \0 \0 \0 \0 \0 \0 \v P A G E H 0005020 E A D I N G \0 \v R U N N I N G H 0005040 E A D \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005060 \0 \0 \0 \0 \0 \0 004 \0 005 \0 024 \0 006 M O D 0005100 E R N \0 \n \0 \0 \0 \0 \0 \0 002 \0 \0 024 \0 0005120 006 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 0005140 \0 \0 024 \0 006 M O D E R N \0 \f \0 \0 \0 0005160 \0 \0 \0 002 \0 \0 024 \0 006 M O D E R N \0 0005200 006 \0 \0 \0 \0 \0 \0 \0 \0 \0 022 \0 004 L O G 0005220 O \0 030 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005240 002 \0 006 \0 \0 \0 005 \0 \0 \0 \0 005 \0 \0 \0 001 0005260 \0 \0 \0 \0 004 \0 \0 \0 016 \0 \0 \0 \0 002 \0 \0 0005300 \0 \0 \0 002 \0 006 \0 \0 \0 002 \0 001 \0 \v H R 0005320 U L E . G E T F N 001 \0 024 \0 006 M O 0005340 D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 0005360 \0 001 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 005 \0 0005400 \0 \0 002 \0 001 \0 \v H R U L E . G E T 0005420 F N 001 \0 024 \0 006 M O D E R N \0 \n \0 0005440 \0 \0 \0 \0 \0 \0 \0 \0 \0 \0 001 \0 \0 \0 \0 002 0005460 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 002 \0 001 \0 \v 0005500 H R U L E . G E T F N 001 \0 024 \0 006 0005520 M O D E R N \0 \n \0 \0 \0 \0 \0 \0 \0 \0 0005540 \0 \0 \0 001 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 0005560 004 \0 \0 \0 016 \0 \0 \0 \0 003 \0 \0 \0 \0 \0 002 0005600 \0 004 \0 \0 \0 002 \0 001 \0 \v H R U L E . 0005620 G E T F N 001 \0 024 \0 006 M O D E R N 0005640 \0 \f \0 \0 \0 \0 \0 \0 002 \0 \0 \0 \0 001 \0 \0 0005660 \0 \0 003 \0 \0 \0 \0 \0 002 \0 005 \0 \0 \0 002 \0 0005700 001 \0 \v H R U L E . G E T F N 001 \0 0005720 024 \0 006 M O D E R N \0 \f \0 \0 \0 \0 \0 0005740 \0 002 \0 \0 \0 \0 001 \0 \0 \0 \0 003 \0 \0 \0 \0 0005760 \0 002 \0 003 \0 \0 \0 ) \0 \0 \0 \0 002 \0 \0 \0 0006000 \0 \0 002 \0 002 \0 \0 \0 - \0 \0 \0 \0 002 \0 \0 0006020 \0 001 \0 \0 \0 \0 001 \0 \0 \0 \0 \0 002 \0 001 \0 0006040 \0 \0 \f \0 \0 \0 \0 001 \0 \0 \0 001 \0 \0 \0 \0 0006060 002 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 4 \0 \0 \0 0006100 \0 002 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 032 \0 \0 0006120 \0 \0 002 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 ` \0 0006140 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 001 \0 \0 \0 037 0006160 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 0006200 J \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 001 \0 \0 0006220 \0 037 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 002 \0 0006240 \0 \0 7 \0 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 002 0006260 \0 \0 \0 \b \0 \0 \0 \0 001 \0 \0 \0 001 \0 \0 \0 0006300 \0 002 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 340 \0 \0 0006320 \0 \0 002 \0 \0 \0 \0 \0 002 \0 002 \0 \0 \0 363 \0 0006340 \0 \0 \0 002 \0 \0 \0 \0 \0 002 \0 002 \0 \0 003 336 0006360 \0 4 z 272 0006364