$ od -c -N 50000 [eris]<LispCore>SOURCES>LLSYMBOL!9
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 6 - O c t - 8 6 0 0 : 0 3 : 5
0000140 7 " 006 004 { E R I S } < L I S P
0000160 C O R E > S O U R C E S > L L S
0000200 Y M B O L . ; 9 006 001 1 2 0 6 8
0000220 \r \r c h a n g e
0000240 s t o % : ( F U N C T I O
0000260 N S C L : S Y M B O L - F U N
0000300 C T I O N U N D O A B L Y - S
0000320 E T F - S Y M B O L - F U N C T
0000340 I O N ) \r
0000360 ( V A R S L
0000400 L S Y M B O L C O M S ) \r \r
0000420 p r e v i o u s d a t
0000440 e % : " 2 5 - O c t - 8 6 2
0000460 3 : 0 7 : 4 6 " { E R I S } <
0000500 L I S P C O R E > S O U R C E S
0000520 > L L S Y M B O L . ; 8 ) \r \r \r
0000540 ( * " \r C o p y r i g h t (
0000560 c ) 1 9 8 6 b y X e r o x
0000600 C o r p o r a t i o n . A
0000620 l l r i g h t s r e s e r v
0000640 e d . \r " ) \r \r ( P R E T T Y C
0000660 O M P R I N T L L S Y M B O L
0000700 C O M S ) \r \r ( R P A Q Q 006 002
0000720 L L S Y M B O L C O M S 006 001 (
0000740 ( * ; ; " S y m b o l f u
0000760 n c t i o n s . " ) \r
0001000
0001020 ( * ; ; " S E T B O U N D
0001040 P a n d R E M P R O P a r
0001060 e a l r e a d y i n I n t
0001100 e r l i s p - D " ) \r
0001120
0001140 ( F U N C T I O N S C L : M A
0001160 K U N B O U N D C L : S Y M B
0001200 O L - N A M E C L : S Y M B O
0001220 L - V A L U E G E T C L : G
0001240 E T F \r
0001260
0001300 C L : G E T - P R O P E R T I
0001320 E S ) \r
0001340 ( P ( M O V
0001360 D ' G E T P R O P L I S T '
0001400 C L : S Y M B O L - P L I S T )
0001420 ) \r
0001440 ( F U N C T I O N
0001460 S C L : F B O U N D P C L :
0001500 F M A K U N B O U N D C L : S
0001520 Y M B O L - F U N C T I O N S
0001540 E T F - S Y M B O L - F U N C T
0001560 I O N \r
0001600
0001620 U N D O A B L Y - S E T F - S
0001640 Y M B O L - F U N C T I O N ) \r
0001660
0001700 ( V A R I A B L E S
0001720 * G E N S Y M - C O U N T E R *
0001740 * G E N S Y M - P R E F I X *
0001760 ) \r
0002000 ( F U N C T I O N
0002020 S C L : C O P Y - S Y M B O L
0002040 C L : G E N S Y M M A K E -
0002060 K E Y W O R D C L : G E N T E
0002100 M P C L : K E Y W O R D P ) \r
0002120
0002140 ( P R O P F I L E T
0002160 Y P E L L S Y M B O L ) ) ) \r
0002200 \r \r \r 006 004 ( * ; ; " S y m b
0002220 o l f u n c t i o n s . " ) 006
0002240 001 \r \r \r \r \r 006 004 ( * ; ; " S
0002260 E T B O U N D P a n d R E
0002300 M P R O P a r e a l r e a d
0002320 y i n I n t e r l i s p - D
0002340 " ) 006 001 \r \r ( C L : D E F U N
0002360 006 002 C L : M A K U N B O U N D 006
0002400 001 ( C L : S Y M B O L ) " M
0002420 a k e a s y m b o l u n b
0002440 o u n d . " ( S E T C L : S
0002460 Y M B O L ' N O B I N D ) 006 006
0002500 006 001 \r
0002520
*
0002560 006 006 ( * ;
0002600 " u n b o u n d s y m b o
0002620 l s a r e s e t t o I L
0002640 : N O B I N D " ) 006 001 \r
0002660
*
0002740 ( P U T H A S
0002760 H C L : S Y M B O L N I L
0003000 C O M P V A R M A C R O H A S H
0003020 ) 006 006 006 001 \r
0003040
*
0003120 006 006 ( * ; " r e m o v
0003140 e a n y c o n s t a n t e
0003160 n t r y " ) 006 001 \r
0003200
*
0003260 C L : S Y M B O L )
0003300 \r \r ( C L : D E F U N 006 002 C L
0003320 : S Y M B O L - N A M E 006 001 (
0003340 C L : S Y M B O L ) ( C L : C
0003360 H E C K - T Y P E C L : S Y M
0003400 B O L C L : S Y M B O L ) \r
0003420
*
0003460 ( M K S T R I N G C L
0003500 : S Y M B O L ) ) \r \r ( C L : D
0003520 E F U N 006 002 C L : S Y M B O L
0003540 - V A L U E 006 001 ( C L : S Y M
0003560 B O L ) 006 006 006 001
0003600 006 006 ( * ; ; " L i
0003620 k e E V A L V , b u t m u
0003640 s t g i v e e r r o r i f
0003660 u n b o u n d - u s e s
0003700 f a c t t h a t \ e v a l
0003720 h a s a n o p c o d e w h
0003740 i c h h o o k s i n t o f
0003760 r e e v a r i a b l e m i c
0004000 r o c o d e " ) 006 001 \r ( C
0004020 L : C H E C K - T Y P E C L :
0004040 S Y M B O L C L : S Y M B O L
0004060 ) \r ( \ E V A L C L : S
0004100 Y M B O L ) ) \r \r ( C L : D E F
0004120 U N 006 002 G E T 006 001 ( C L : S
0004140 Y M B O L I N D I C A T O R
0004160 & O P T I O N A L ( D E F A U
0004200 L T N I L ) ) " L o o k o
0004220 n t h e p r o p e r t y l
0004240 i s t o f S Y M B O L f o
0004260 r t h e s p e c i f i e d
0004300 I N D I C A T O R . I f t h
0004320 i s i s f o u n d , r e t
0004340 u r n t h e a s s o c i a t
0004360 e d v a l u e , e l s e r
0004400 e t u r n D E F A U L T . " \r
0004420 ( C L : G E T F ( G E T
0004440 P R O P L I S T C L : S Y M B
0004460 O L ) \r I N
0004500 D I C A T O R D E F A U L T )
0004520 ) \r \r ( C L : D E F U N 006 002 C
0004540 L : G E T F 006 001 ( P L A C E
0004560 I N D I C A T O R & O P T I O
0004600 N A L ( D E F A U L T N I L
0004620 ) ) " S e a r c h e s t h e
0004640 p r o p e r t y l i s t s
0004660 t o r e d i n P l a c e f
0004700 o r a n i n d i c a t o r
0004720 E Q t o I n d i c a t o r .
0004740 I f o n e i s f o u n
0004760 d , t h e c o r r e s p o n
0005000 d i n g v a l u e i s r e
0005020 t u r n e d , e l s e t h e
0005040 D e f a u l t i s r e t u
0005060 r n e d . " \r ( C L : D O
0005100 ( ( P L I S T P L A C E (
0005120 C D D R P L I S T ) ) ) \r
0005140 ( ( N U L L P
0005160 L I S T ) \r
0005200 D E F A U L T ) \r
0005220 ( C O N D \r
0005240 ( ( L I T A T O M
0005260 ( C D R P L I S T ) ) \r
0005300 ( E R R
0005320 O R ( C O N C A T P L A C E
0005340 " i s a m a l f o r m e
0005360 d p r o p e r t y l i s t .
0005400 " ) ) ) \r
0005420 ( ( E Q ( C A R P L I S
0005440 T ) \r
0005460 I N D I C A T O R ) \r
0005500 ( R
0005520 E T U R N ( C A D R P L I S
0005540 T ) ) ) ) ) ) \r \r ( C L : D E F
0005560 U N 006 002 C L : G E T - P R O P
0005600 E R T I E S 006 001 ( P L A C E
0005620 I N D I C A T O R - L I S T )
0005640 " L i k e G E T F , e x c e
0005660 p t t h a t I n d i c a t o
0005700 r - L i s t i s a l i s t
0005720 o f i n d i c a t o r s w
0005740 h i c h w i l l b e l o o
0005760 k e d f o r i n t h e p
0006000 r o p e r t y l i s t s t o
0006020 r e d i n P l a c e . T h
0006040 r e e v a l u e s a r e r
0006060 e t u r n e d , s e e m a n
0006100 u a l f o r d e t a i l s .
0006120 " \r ( C L : D O ( ( P L
0006140 I S T P L A C E ( C D D R
0006160 P L I S T ) ) ) \r
0006200 ( ( N U L L P L I S T )
0006220 \r ( C L :
0006240 V A L U E S N I L N I L N
0006260 I L ) ) \r (
0006300 C O N D \r
0006320 ( ( L I T A T O M ( C D R
0006340 P L I S T ) ) \r
0006360 ( E R R O R ( C
0006400 O N C A T P L A C E " i s
0006420 a m a l f o r m e d p r o
0006440 p r t y l i s t . " ) ) ) \r
0006460 ( ( M E
0006500 M Q ( C A R P L I S T ) \r
0006520
0006540 I N D I C A T O R - L I S
0006560 T ) \r
0006600 ( R E T U R N ( C L : V A L
0006620 U E S ( C A R P L I S T ) \r
0006640
0006660 ( C A
0006700 D R P L I S T ) \r
0006720
0006740 P L I S T ) ) ) )
0006760 ) ) \r \r ( M O V D ' G E T P R
0007000 O P L I S T ' C L : S Y M B O
0007020 L - P L I S T ) \r ( C L : D E F
0007040 U N 006 002 C L : F B O U N D P 006
0007060 001 ( F N ) ( A N D ( C L :
0007100 S Y M B O L P F N ) \r
0007120
0007140 ( O R (
0007160 C L : S P E C I A L - F O R M -
0007200 P F N ) \r
0007220
0007240 ( A R G T Y P
0007260 E F N ) \r
0007300
0007320 ( C L : M A C
0007340 R O - F U N C T I O N F N ) )
0007360 \r
0007400
0007420 T ) ) \r \r ( C L : D E F U N 006
0007440 002 C L : F M A K U N B O U N D 006
0007460 001 ( C L : S Y M B O L ) ( P
0007500 U T D C L : S Y M B O L N I
0007520 L ) \r
0007540
0007560 ( R E M P R O P
0007600 C L : S Y M B O L ' C L : M
0007620 A C R O - F U N C T I O N ) \r
0007640
*
0007700 ( R E M P R O P C L :
0007720 S Y M B O L ' C L : : S P E C
0007740 I A L - F O R M ) \r
0007760
0010000 C
0010020 L : S Y M B O L ) \r \r ( C L : D
0010040 E F U N 006 002 C L : S Y M B O L
0010060 - F U N C T I O N 006 001 ( C L :
0010100 S Y M B O L & A U X ( D E F
0010120 ( G E T D C L : S Y M B O L
0010140 ) ) ) ( C O N D \r
0010160
*
0010260 ( D E F ) 006 006 006 001 \r
0010300
*
0010360 006 006 ( * ;
0010400 " G E T D r e t u r n e d n
0010420 o n - N I L " ) 006 001 \r
0010440
*
0010540 ( ( C L : S E T Q D E F
0010560 ( \r
0010600
*
0010700 C L : S P E C I A
0010720 L - F O R M - P \r
0010740
*
0011060 C L : S Y M B O L ) ) 006 006 006 001 \r
0011100
*
0011160 006 006 ( * ; \r 006 001
0011200
0011220 006
0011240 006 " R e t u r n s o m e t h i
0011260 n g r e p r e s e n t i n g
0011300 t h e s p e c i a l - f o r m
0011320 ' s i m p l e m e n t a t i o
0011340 n . " ) 006 001 \r
0011360
*
0011460 ( C O N S : S P E C I A L - F
0011500 O R M D E F ) ) \r
0011520
*
0011620 ( ( C L : S E T Q D E F
0011640 ( \r
0011660
*
0011760 C L : M A C R O - F
0012000 U N C T I O N \r
0012020
*
0012120 C
0012140 L : S Y M B O L ) ) 006 006 006 001 \r
0012160
*
0012240 006 006 ( * ; \r 006 001
0012260
*
0012320 006 006 " R e t u r n s
0012340 o m e t h i n g r e p r e s e
0012360 n t i n g t h e m a c r o '
0012400 s i m p l e m e n t a t i o n
0012420 . " ) 006 001 \r
0012440
*
0012520 (
0012540 C O N S : M A C R O D E F )
0012560 ) \r
0012600
*
0012660 ( T ( C L
0012700 : E R R O R ' \r
0012720
*
0013020 U N D E F
0013040 I N E D - F U N C T I O N \r
0013060
*
0013200 : N A M E C L : S Y M B O L
0013220 ) ) ) ) \r \r ( C L : D E F U N
0013240 006 002 S E T F - S Y M B O L - F U
0013260 N C T I O N 006 001 ( C L : S Y M
0013300 B O L C L : : D E F I N I T I
0013320 O N ) 006 006 006 001 006 006 ( *
0013340 ; ; " i n v e r s e o f
0013360 S Y M B O L - F U N C T I O N "
0013400 ) 006 001 \r ( 006 002 I F 006 001 (
0013420 L I S T P C L : : D E F I N I
0013440 T I O N ) \r 006 002 T
0013460 H E N 006 001 ( C A S E ( C A R
0013500 C L : : D E F I N I T I O N )
0013520 \r
0013540 ( : M A C R O 006 006 006 001
0013560
0013600 006 006
0013620 ( * ; " S Y M B O L - F U N
0013640 C T I O N c o n s e s u p
0013660 t h i s l i s t " ) 006 001 \r
0013700
0013720 ( C L : S E T F
0013740 ( C L : M A C R O - F U N C T I
0013760 O N C L : S Y M B O L ) \r
0014000
0014020 ( C
0014040 D R C L : : D E F I N I T I O
0014060 N ) ) \r
0014100 ( C L
0014120 : R E T U R N - F R O M S E T
0014140 F - S Y M B O L - F U N C T I O
0014160 N C L : : D E F I N I T I O N
0014200 ) ) \r
0014220 ( : S P E C I A L - F
0014240 O R M ( C L : S E T F ( G E
0014260 T C L : S Y M B O L ' S P E
0014300 C I A L - F O R M ) \r
0014320
*
0014360 ( C D R C L : : D E F I
0014400 N I T I O N ) ) \r
0014420
0014440 ( C L : R E T U R N - F R O
0014460 M S E T F - S Y M B O L - F U
0014500 N C T I O N C L : : D E F I N
0014520 I T I O N ) ) ) \r 006 002
0014540 E L S E I F 006 001 ( C L : S Y M
0014560 B O L P C L : : D E F I N I T
0014600 I O N ) \r 006 002 T H
0014620 E N 006 001 ( C L : R E T U R N -
0014640 F R O M S E T F - S Y M B O L
0014660 - F U N C T I O N ( P U T D
0014700 C L : S Y M B O L ( G E T D
0014720 C L : : D E F I N I T I O N ) \r
0014740
*
0015020 T ) ) \r
0015040 C L : : D E F I N
0015060 I T I O N ) \r ( P U T D
0015100 C L : S Y M B O L C L : : D E
0015120 F I N I T I O N T ) ) \r \r ( C
0015140 L : D E F U N 006 002 U N D O A B
0015160 L Y - S E T F - S Y M B O L - F
0015200 U N C T I O N 006 001 ( C L : S Y
0015220 M B O L C L : : D E F I N I T
0015240 I O N ) 006 006 006 001 \r
0015260
*
0015340 006 006 ( * ; ; " u n d o a
0015360 b l e i n v e r s e o f S
0015400 Y M B O L - F U N C T I O N " )
0015420 006 001 \r ( 006 002 I F 006 001 ( N
0015440 U L L L I S P X H I S T ) \r
0015460 006 002 T H E N 006 001 006
0015500 006 006 001
0015520
*
0015560 006 006 ( * ; " d o n '
0015600 t m a k e u n d o a b l e "
0015620 ) 006 001 \r
0015640 ( S E T F - S Y M B O L - F U N
0015660 C T I O N C L : S Y M B O L
0015700 C L : : D E F I N I T I O N ) \r
0015720 006 002 E L S E 006 001 ( U
0015740 N D O A B L Y ( 006 002 I F 006 001
0015760 ( L I S T P C L : : D E F I N
0016000 I T I O N ) \r
0016020 006
0016040 002 T H E N 006 001 ( C A S E ( C
0016060 A R C L : : D E F I N I T I O
0016100 N ) \r
0016120
0016140 ( : M A C R O 006 006
0016160 006 001
0016200 006 006 ( * ; " S Y M B O L - F
0016220 U N C T I O N c o n s e s u
0016240 p t h i s l i s t " ) 006 001 \r
0016260
*
0016320 ( C L : S E
0016340 T F ( C L : M A C R O - F U N
0016360 C T I O N C L : S Y M B O L )
0016400 \r
0016420
*
0016460 ( C D R C L : : D E F I N
0016500 I T I O N ) ) \r
0016520
*
0016560 ( C L : R E T U R N - F R O
0016600 M U N D O A B L Y - S E T F -
0016620 S Y M B O L - F U N C T I O N
0016640 \r
0016660
*
0016720 C L : : D E F I N I T I O N
0016740 ) ) \r
0016760
0017000 ( : S P E C I A L -
0017020 F O R M ( C L : S E T F ( G
0017040 E T C L : S Y M B O L ' S P
0017060 E C I A L - F O R M ) \r
0017100
*
0017160 ( C D R C L : : D E
0017200 F I N I T I O N ) ) \r
0017220
*
0017260 ( C L : R E T U R N -
0017300 F R O M U N D O A B L Y - S E
0017320 T F - S Y M B O L - F U N C T I
0017340 O N \r
0017360
*
0017420 C L : : D E F I N I T
0017440 I O N ) ) ) \r
0017460 006 002 E
0017500 L S E I F 006 001 ( C L : S Y M B
0017520 O L P C L : : D E F I N I T I
0017540 O N ) \r
0017560 006 002 T H
0017600 E N 006 001 ( C L : R E T U R N -
0017620 F R O M U N D O A B L Y - S E
0017640 T F - S Y M B O L - F U N C T I
0017660 O N ( P U T D C L : S Y M B
0017700 O L \r
0017720
*
0020020 ( G E T D C L : : D E
0020040 F I N I T I O N \r
0020060
*
0020200 ) \r
0020220
*
0020320 T ) ) \r
0020340
0020360 C L : : D E F I N I T I
0020400 O N ) \r
0020420 ( P U T D C L : S Y
0020440 M B O L C L : : D E F I N I T
0020460 I O N T ) ) ) ) \r \r ( C L : D
0020500 E F V A R 006 002 * G E N S Y M -
0020520 C O U N T E R * 006 001 0 ) \r \r (
0020540 C L : D E F V A R 006 002 * G E N
0020560 S Y M - P R E F I X * 006 001 " G
0020600 " ) \r \r ( C L : D E F U N 006
0020620 002 C L : C O P Y - S Y M B O L 006
0020640 001 ( S Y M & O P T I O N A L
0020660 C O P Y - P R O P S ) ( C L
0020700 : C H E C K - T Y P E S Y M
0020720 C L : S Y M B O L ) \r
0020740
*
0021000 (
0021020 L E T ( ( N E W S Y M ( C L
0021040 : M A K E - S Y M B O L ( C L
0021060 : S Y M B O L - N A M E \r
0021100
*
0021220 S Y M ) ) ) ) \r
0021240
*
0021320 ( C O N D \r
0021340
*
0021420 ( C O P Y - P R O P S (
0021440 C L : S E T F ( C L : S Y M B
0021460 O L - V A L U E \r
0021500
*
0021600 N E W S Y
0021620 M ) \r
0021640
*
0021740 ( C L : S Y M B O L - V A L
0021760 U E \r
0022000
*
0022100 S Y M ) ) \r
0022120
*
0022200 ( C L :
0022220 S E T F ( C L : S Y M B O L -
0022240 F U N C T I O N \r
0022260
*
0022360 N E W S Y M ) \r
0022400
*
0022500 ( C L : S Y M B
0022520 O L - F U N C T I O N S Y M )
0022540 ) \r
0022560
*
0022640 ( C L : S E T F ( C
0022660 L : S Y M B O L - P L I S T N
0022700 E W S Y M ) \r
0022720
*
0023020 ( C O P Y ( C L : S Y M B O
0023040 L - P L I S T \r
0023060
*
0023160 S Y M ) ) ) )
0023200 ) \r
0023220
*
0023260 N E W S Y
0023300 M ) ) \r \r ( C L : D E F U N 006
0023320 002 C L : G E N S Y M 006 001 ( & O
0023340 P T I O N A L X ) ( 006 002 D E
0023360 C L A R E 006 001 ( C L : S P E C
0023400 I A L * G E N S Y M - C O U N
0023420 T E R * * G E N S Y M - P R E
0023440 F I X * ) ) \r
0023460
0023500 ( C L : E T Y
0023520 P E C A S E X ( N U L L ) \r
0023540
*
0023600 ( S T R I N G
0023620 ( C L : S E T F * G E N S Y
0023640 M - P R E F I X * X ) ) \r
0023660
*
0023720 ( I N T E G E R
0023740 ( C L : S E T F * G E N S Y M
0023760 - C O U N T E R * X ) ) ) \r
0024000
*
0024040 ( P R O G 1 ( C L : M A K E
0024060 - S Y M B O L ( C O N C A T
0024100 * G E N S Y M - P R E F I X *
0024120 ( M K S T R I N G \r
0024140
*
0024260 * G E N S Y M - C O U N T E R *
0024300 \r
0024320
*
0024420 ) ) ) \r
0024440
*
0024500 ( C L : I N C F *
0024520 G E N S Y M - C O U N T E R * )
0024540 ) ) \r \r ( C L : D E F U N 006 002
0024560 M A K E - K E Y W O R D 006 001 (
0024600 C L : S Y M B O L ) ( 006 002 D E
0024620 C L A R E 006 001 ( C L : S P E C
0024640 I A L * K E Y W O R D - P A C
0024660 K A G E * ) ) \r
0024700
0024720 ( C L : I
0024740 N T E R N ( C L : S Y M B O L
0024760 - N A M E C L : S Y M B O L )
0025000 \r
0025020
0025040 * K E Y W
0025060 O R D - P A C K A G E * ) ) \r \r
0025100 ( C L : D E F U N 006 002 C L : G
0025120 E N T E M P 006 001 ( & O P T I O
0025140 N A L ( P R E F I X " T " )
0025160 \r
0025200 ( P A
0025220 C K A G E * P A C K A G E * )
0025240 ) ( C L : C H E C K - T Y P E
0025260 P R E F I X S T R I N G P )
0025300 \r
0025320
*
0025360 ( C L : C H E C K - T Y P E
0025400 P A C K A G E P A C K A G E
0025420 ) \r
0025440
*
0025500 ( C L : D O ( ( C O U N
0025520 T E R 0 ( C L : 1 + C O U
0025540 N T E R ) ) \r
0025560
*
0025640 ( C L : N A M E S T R I N G ) )
0025660 \r
0025700
*
0025740 ( ( N U L L
0025760 ( C L : F I N D - S Y M B O L
0026000 ( S E T Q C L : N A M E S T R
0026020 I N G \r
0026040
*
0026140 ( C O N C A T P R E F
0026160 I X \r
0026200
*
0026300 ( M K S T R
0026320 I N G \r
0026340
*
0026440 C O U N
0026460 T E R ) ) ) \r
0026500
*
0026560 P A C
0026600 K A G E ) ) \r
0026620
*
0026700 ( C L : I N T E R N C L : N A
0026720 M E S T R I N G P A C K A G E
0026740 ) ) ) ) \r \r ( C L : D E F U N
0026760 006 002 C L : K E Y W O R D P 006 001
0027000 ( O B J E C T ) ( A N D ( C
0027020 L : S Y M B O L P O B J E C T
0027040 ) \r
0027060
0027100 ( E Q ( C L : S Y
0027120 M B O L - P A C K A G E O B J
0027140 E C T ) \r
0027160
0027200 * K E
0027220 Y W O R D - P A C K A G E * ) )
0027240 ) \r \r \r ( P U T P R O P S 006 002
0027260 L L S Y M B O L F I L E T Y P
0027300 E 006 001 C L : C O M P I L E - F
0027320 I L E ) \r ( P U T P R O P S L
0027340 L S Y M B O L C O P Y R I G H
0027360 T ( " X e r o x C o r p o r
0027400 a t i o n " 1 9 8 6 ) ) \r ( D
0027420 E C L A R E % : D O N T C O P
0027440 Y \r ( F I L E M A P ( N I
0027460 L ) ) ) \r S T O P \r
0027472