$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSYMBOL.DCOM!2
0000000 ( F I L E C R E A T E D " 2 7
0000020 - A u g - 8 6 1 5 : 5 8 : 4 6
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > L I B R A R Y > C M L S Y M
0000120 B O L . ; 2 7 ) \r " 1 8 - A u
0000140 g - 8 6 1 2 : 4 2 : 2 0 " "
0000160 C O M P I L E - F I L E d " i
0000200 n " X e r o x L i s p 1 8
0000220 - A u g - 8 6 . . . " d a t
0000240 e d " 1 8 - A u g - 8 6 1 3
0000260 : 5 5 : 0 8 " ) \r ( F I L E C R
0000300 E A T E D " 2 7 - A u g - 8 6
0000320 1 5 : 5 8 : 0 5 " { E R I S
0000340 } < L I S P C O R E > L I B R A
0000360 R Y > C M L S Y M B O L . ; 2 7
0000400 1 5 1 5 7 c h a n g e s t
0000420 o : ( V A R S \r C M L T R A
0000440 N S L A T E D C M L S Y M B O
0000460 L C O M S ) ( F U N C T I O N
0000500 S C L : G E N T E M P C L :
0000520 G E N S Y M C L : M A K E - K
0000540 E Y W O R D ) p r e v i o u s
0000560 d a t e : \r " 2 2 - A u g -
0000600 8 6 1 7 : 5 2 : 0 4 " { E R
0000620 I S } < L I S P C O R E > L I B
0000640 R A R Y > C M L S Y M B O L . ;
0000660 2 5 ) \r ( R P A Q Q C M L S Y
0000700 M B O L C O M S ( ( * ; ;
0000720 \r " B o g u s d e f i n i t i
0000740 o n s n e e d e d u n t i l
0000760 p a c k a g e s a r e i n
0001000 t h e l o a d u p . D O
0001020 N O T F O R G E T t o r
0001040 e m o v e t h e a d v i c e
0001060 o n C O M P . U S E R F N
0001100 i n t h e B Y T E C O M P I
0001120 L E R . " \r ) ( F N S M A K
0001140 E - S Y M B O L C O P Y - S Y
0001160 M B O L I N T E R N M A K E
0001200 - K E Y W O R D G E N T E M P
0001220 K E Y W O R D P D W I M K E
0001240 Y W O R D ) ( D E C L A R E :
0001260 \r D O N T E V A L @ L O A D
0001300 D O C O P Y ( A D D V A R S
0001320 ( D W I M U S E R F O R M S (
0001340 D W I M K E Y W O R D ) ) ) )
0001360 ( V A R S C M L T R A N S L A
0001400 T E D ) ( F N S C M L T R A
0001420 N S L A T E ) \r ( * ; ; "
0001440 % " S y m b o l f u n c t i o
0001460 n s . S E T B O U N D P
0001500 R E M P R O P a r e a l r e
0001520 a d y i n I n t e r l i s p
0001540 % " " ) ( F N S M A K U N B
0001560 O U N D \r S Y M B O L - N A M
0001600 E S Y M B O L - V A L U E G
0001620 E T G E T F G E T - P R O P
0001640 E R T I E S ) ( P R O P D M
0001660 A C R O G E T G E T F S Y
0001700 M B O L - P L I S T ) ( P (
0001720 M O V D ( Q U O T E \r G E T
0001740 P R O P L I S T ) ( Q U O T E
0001760 S Y M B O L - P L I S T ) ) )
0002000 ( S E T F S G E T S Y M B
0002020 O L - P L I S T S Y M B O L -
0002040 V A L U E S Y M B O L - F U N
0002060 C T I O N ) ( F N S F B O U
0002100 N D P \r F M A K U N B O U N D
0002120 S Y M B O L - F U N C T I O N
0002140 S E T F - S Y M B O L - F U N
0002160 C T I O N ) ( I N I T V A R S
0002200 ( * G E N S Y M - C O U N T E
0002220 R * 0 ) ( * G E N S Y M - P
0002240 R E F I X * " G " \r ) ) ( F
0002260 U N C T I O N S C L : C O P Y
0002300 - S Y M B O L C L : G E N S Y
0002320 M C L : M A K E - K E Y W O R
0002340 D C L : G E N T E M P C L :
0002360 K E Y W O R D P ) ( P R O P
0002400 F I L E T Y P E \r C M L S Y M
0002420 B O L ) ( D E C L A R E : D
0002440 O N T E V A L @ L O A D D O E
0002460 V A L @ C O M P I L E D O N T
0002500 C O P Y C O M P I L E R V A R
0002520 S ( A D D V A R S ( N L A M
0002540 A ) ( N L A M L ) ( L A M A
0002560 \r G E T F G E T G E N T E
0002600 M P I N T E R N C O P Y - S
0002620 Y M B O L M A K E - S Y M B O
0002640 L ) ) ) ) ) \r M A K E - S Y M B
0002660 O L D 1 \r ( L ( 0 N A M E
0002700 ) ) \0 025 \0 \0 \0 001 @ 005 \a 224 @ \t \0
0002720 \0 020 g \0 \0 @ \n \0 \0 \t \0 \0 020 \0 ( 2
0002740 2 Q G E N S Y M 1 7 Q C O
0002760 N C A T E N A T E 7 G E N S
0003000 Y M ) \r ( 1 3 Q S T R I N G )
0003020 \r ( ) \r C O P Y - S Y M B O L
0003040 D 1 \r ( L ( 1 C O P Y - P R
0003060 O P S 0 S Y M B O L ) ) \0
0003100 031 001 \0 \0 002 @ \t \0 \0 021 001 \0 A 234 H 301
0003120 002 @ 301 002 311 \0 \t \0 \0 024 \0 H 020 \0 ( 2
0003140 3 Q C O P Y - L I S T 3 G
0003160 E N S Y M ) \r N I L \r ( ) \r I N
0003200 T E R N D 1 \r ( L ( 0 - a
0003220 r g s - ) ) \0 [ 003 \0 002 \0 e 021 001
0003240 \0 k a 021 021 002 l 002 H 361 223 g \0 \0 202 l
0003260 002 a Z d g \0 \0 360 262 & 277 I \t \0 \0 233
0003300 I \t \0 \0 I \t \0 \0 \n \0 \0 020 g \0 \0 I
0003320 \n \0 \0 g \0 \0 I \n \0 \0 \n \0 \0 020 226 J
0003340 g \0 \0 360 264 \a I \t \0 \0 020 g \0 \0 J o
0003360 \0 \0 \0 \f \0 \0 020 \0 ( 1 3 0 Q E C
0003400 A S E - F A I L 1 1 4 Q P A
0003420 C K * 7 7 Q S E T 7 4 Q
0003440 P A C K * 6 5 Q P A C K *
0003460 5 5 Q S E T 5 2 Q P A C K
0003500 * 4 6 Q P A C K * 4 1 Q
0003520 K E Y W O R D P ) \r ( 1 2 0 Q
0003540 P A C K A G E 1 0 5 Q P C L
0003560 7 0 Q : 6 1 Q : 3 1 Q
0003600 K E Y W O R D 2 0 Q P C L
0003620 ) \r ( 1 2 5 Q ( K E Y W O R
0003640 D ( N I L P C L ) ) ) \r M A
0003660 K E - K E Y W O R D D 1 \r ( I
0003700 0 X ) \0 G \0 \0 \0 001 @ \t \0 \0
0003720 l : 360 263 9 o \0 \0 \0 @ l 003 \n \0 \0 l
0003740 : 360 262 # o \0 \0 \0 @ k h i \r 005 \0 \0
0003760 254 o \0 \0 \0 @ k h i \r 005 \0 \0 226 @ l
0004000 004 \n \0 \0 200 @ \n \0 \0 b \0 200 @ d \n \0
0004020 \0 020 \0 ( 1 0 4 Q S E T 7 4 Q
0004040 P A C K * 6 7 Q S U B S T
0004060 R I N G 6 0 Q S T R P O S
0004100 4 3 Q S T R P O S 2 2 Q N
0004120 T H C H A R C O D E 3 C H C
0004140 O N 1 ) \r N I L \r ( 5 0 Q "
0004160 I L " 3 3 Q " C L " 1 4 Q
0004200 " : " ) \r G E N T E M P D 1
0004220 \r ( L ( 1 P A C K A G E 0
0004240 P R E F I X ) ) \0 \t \0 \0 \0 002
0004260 @ h d i \f \0 \0 020 \0 ( 6 G E N S
0004300 Y M ) \r N I L \r ( ) \r K E Y W O
0004320 R D P D 1 \r ( I 0 X ) \0
0004340 \n \0 \0 \0 001 @ k \n \0 \0 l : 360 020 \0 (
0004360 4 N T H C H A R C O D E ) \r N
0004400 I L \r ( ) \r D W I M K E Y W O R
0004420 D D 1 \r ( F 0 F A U L T X
0004440 F 1 F A U L T A P P L Y F
0004460 L G ) \0 034 \0 002 \0 \0 Q h 360 264 027 P
0004500 004 l 004 360 264 020 P k \n \0 \0 l : 360 264 006
0004520 P \t \0 \0 020 \0 ( 3 1 Q M A K E -
0004540 K E Y W O R D 2 0 Q N T H C
0004560 H A R C O D E ) \r N I L \r ( ) \r
0004600 ( A D D T O V A R D W I M U S
0004620 E R F O R M S ( D W I M K E Y
0004640 W O R D ) ) \r ( R P A Q Q C M
0004660 L T R A N S L A T E D ( A P P
0004700 E N D A P P L Y A R R A Y P
0004720 A S S E R T A S S O C A T
0004740 A N A T O M B L O C K B R
0004760 E A K C H A R A C T E R C O
0005000 E R C E C O L L E C T \r C O
0005020 M P I L E C O S C O U N T
0005040 D E L E T E D O D O * E L
0005060 T E Q U A L E R R O R E V
0005100 A L E V A L H O O K E V E R
0005120 Y E X P T F I N A L L Y F
0005140 I N D F I R S T F L O O R
0005160 \r F U N C T I O N G C D G E
0005200 T H A S H I F I N I T I A L
0005220 L Y I N T E R S E C T I O N
0005240 J O I N L A M B D A L D I F
0005260 F L E N G T H L I S T P L
0005300 O A D L O G M A P M A P C
0005320 M A P C \r M A P C A R M A
0005340 P C O N M A P H A S H M A P
0005360 L I S T M E M B E R M E R G
0005400 E M O D N O T A N Y N O T
0005420 E V E R Y N R E V E R S E N
0005440 T H P O P P O S I T I O N
0005460 P R I N 1 P R I N T \r P U S
0005500 H P U S H N E W P U T H A S
0005520 H R E A D R E M O V E R E
0005540 P L A C E R E V E R S E S E
0005560 T Q S I N S O M E S O R T
0005600 S Q R T S T R I N G P S U
0005620 B L I S S U B S T S U M T
0005640 A N \r T E R P R I U N I O N
0005660 U N L E S S U N T I L W H
0005700 E N Z E R O P * ) ) \r C M L
0005720 T R A N S L A T E D 1 \r ( I
0005740 0 X F 0 C M L T R A N S
0005760 L A T E D ) \0 = \0 001 \0 001 @ d 004
0006000 l 004 360 262 $ P 034 230 o \0 \0 \0 @ \n \0 \0
0006020 020 o \0 \0 \0 @ k h i \r 005 \0 \0 226 @ l
0006040 004 \n \0 \0 020 @ 020 003 262 375 @ d 001 \t \0 \0
0006060 @ 002 \t \0 \0 \v \0 \0 020 \0 ( 7 2 Q W
0006100 A L K - R E C O N S 6 7 Q C
0006120 M L T R A N S L A T E 6 2 Q
0006140 C M L T R A N S L A T E 4 6 Q
0006160 S U B A T O M 3 7 Q S T R
0006200 P O S 2 2 Q P A C K * ) \r N
0006220 I L \r ( 2 7 Q " I L : " 1
0006240 6 Q " C L : " ) \r M A K U N B
0006260 O U N D D 1 \r ( I 0 S Y M
0006300 B O L ) \0 \t \0 \0 \0 001 @ g \0 \0 \n
0006320 \0 \0 020 \0 ( 6 S E T ) \r ( 3 N
0006340 O B I N D ) \r ( ) \r S Y M B O L
0006360 - N A M E D 1 \r ( I 0 S Y
0006400 M B O L ) \0 \t \0 \0 \0 001 @ 006 \0 \0
0006420 \t \0 \0 020 \0 ( 6 M K S T R I N G
0006440 ) \r ( 3 L I T A T O M ) \r ( )
0006460 \r S Y M B O L - V A L U E D 1
0006500 \r ( I 0 S Y M B O L ) \0 \a
0006520 \0 \0 \0 001 @ 006 \0 \0 , 020 \0 N I L \r (
0006540 3 L I T A T O M ) \r ( ) \r G E
0006560 T D 1 \r ( L ( 2 D E F A U
0006600 L T 1 I N D I C A T O R 0
0006620 S Y M B O L ) ) \0 \f \0 \0 \0 003
0006640 @ 301 002 311 \0 A B \v \0 \0 020 \0 ( 1 1 Q
0006660 G E T F ) \r N I L \r ( ) \r G E
0006700 T F D 1 \r ( L ( 2 D E F A
0006720 U L T 1 I N D I C A T O R
0006740 0 P L A C E ) ) \0 & 001 \0 \0 003
0006760 @ 021 001 \0 H 265 004 B 020 002 003 256 o \0 \0 \0
0007000 @ \n \0 \0 277 H 002 002 X 260 354 H d 001 A 360
0007020 262 366 002 001 020 \0 ( 2 3 Q C L : E R
0007040 R O R ) \r N I L \r ( 1 7 Q "
0007060 ~ S i s a m a l f o r m e
0007100 d p r o p e r t y l i s t .
0007120 " ) \r G E T - P R O P E R T I E
0007140 S D 1 \r ( P 0 P L I S T
0007160 I 1 I N D I C A T O R - L I
0007200 S T I 0 P L A C E ) \0 ;
0007220 001 \0 \0 002 @ 021 001 \0 H d 245 d d \v \0 \0
0007240 020 002 003 256 o \0 \0 \0 @ \n \0 \0 277 H 002 002
0007260 X 260 350 H 001 A g \0 \0 g \0 \0 \t \0 \0 \f
0007300 \0 \0 262 353 H 001 H 002 001 H \v \0 \0 020 \0 (
0007320 7 0 Q V A L U E S 5 5 Q C
0007340 L : M E M B E R 5 2 Q S Y M
0007360 B O L - F U N C T I O N 2 7 Q
0007400 C L : E R R O R 1 3 Q V A
0007420 L U E S ) \r ( 4 7 Q E Q 4 4
0007440 Q : T E S T ) \r ( 2 3 Q "
0007460 ~ S i s a m a l f o r m e
0007500 d p r o p r t y l i s t . "
0007520 ) \r ( P U T P R O P S G E T
0007540 D M A C R O ( D E F M A C R O
0007560 ( S Y M B O L I N D I C A T
0007600 O R & R E S T T A I L ) (
0007620 B Q U O T E ( G E T F ( S Y
0007640 M B O L - P L I S T ( \ , S
0007660 Y M B O L ) ) \r ( \ , I N D
0007700 I C A T O R ) ( \ , @ T A I
0007720 L ) ) ) ) ) \r ( P U T P R O P S
0007740 G E T F D M A C R O ( D E
0007760 F M A C R O ( P L A C E I N
0010000 D I C A T O R & O P T I O N A
0010020 L D E F A U L T ) ( C O N D
0010040 ( D E F A U L T ( Q U O T E
0010060 I G N O R E M A C R O ) \r )
0010100 ( T ( L I S T ( Q U O T E
0010120 L I S T G E T ) P L A C E I
0010140 N D I C A T O R ) ) ) ) ) \r ( P
0010160 U T P R O P S S Y M B O L - P
0010200 L I S T D M A C R O ( = .
0010220 G E T P R O P L I S T ) ) \r (
0010240 M O V D ( Q U O T E G E T P
0010260 R O P L I S T ) ( Q U O T E
0010300 S Y M B O L - P L I S T ) ) \r (
0010320 R E M P R O P ( Q U O T E G
0010340 E T ) ( Q U O T E S E T F -
0010360 I N V E R S E ) ) \r ( R E M P R
0010400 O P ( Q U O T E G E T ) (
0010420 Q U O T E S E T F N ) ) \r s e
0010440 t f - e x p a n d e r - G E T
0010460 D 1 \r ( L ( 1 e n v - G E T
0010500 0 w h o l e - G E T ) ) \0
0010520 } \t \0 \0 002 @ 002 \t \0 \0 l 003 363 250 l 002
0010540 @ 002 \t \0 \0 363 237 o \0 \0 \0 g \0 \0 @ 002
0010560 \t \0 \0 \v \0 \0 020 @ 002 021 A 004 H 001 271 H
0010600 002 Z 001 273 J 002 d 220 001 274 \b \0 \0 \b \0 \0
0010620 \b \0 \0 \b \0 \0 021 004 \b M N L 264 006 O 016
0010640 h 032 032 032 I K L d 221 h 032 032 032 O 020 h
0010660 032 g \0 \0 M N O 020 h 032 032 032 032 g \0 \0
0010700 M N L 264 006 O 016 h 032 032 032 032 \r 005 \0 \0
0010720 020 \0 ( 1 7 2 Q V A L U E S 1
0010740 0 0 Q G E N S Y M 7 5 Q G
0010760 E N S Y M 7 2 Q G E N S Y M
0011000 6 7 Q G E N S Y M 4 0 Q
0011020 C L : E R R O R 3 5 Q C L :
0011040 L E N G T H 1 7 Q C L : L E
0011060 N G T H 4 C L : L E N G T H
0011100 ) \r ( 1 5 2 Q G E T 1 3 6 Q
0011120 P U T P R O P 3 0 Q G E T
0011140 ) \r ( 2 5 Q " S e t f e x
0011160 p a n d e r f o r ~ S c a
0011200 n n o t b e c a l l e d w
0011220 i t h ~ S a r g s . " ) \r (
0011240 P U T P R O P ( Q U O T E G
0011260 E T ) ( Q U O T E S E T F -
0011300 M E T H O D - E X P A N D E R )
0011320 ( Q U O T E s e t f - e x p
0011340 a n d e r - G E T ) ) \r ( R E M
0011360 P R O P ( Q U O T E S Y M B
0011400 O L - P L I S T ) ( Q U O T E
0011420 S E T F - M E T H O D - E X P
0011440 A N D E R ) ) \r ( P U T P R O P
0011460 S S Y M B O L - P L I S T S
0011500 E T F - I N V E R S E S E T P
0011520 R O P L I S T ) \r ( R E M P R O
0011540 P ( Q U O T E S Y M B O L -
0011560 V A L U E ) ( Q U O T E S E
0011600 T F - M E T H O D - E X P A N D
0011620 E R ) ) \r ( P U T P R O P S S
0011640 Y M B O L - V A L U E S E T F
0011660 - I N V E R S E S E T ) \r ( R
0011700 E M P R O P ( Q U O T E S Y
0011720 M B O L - F U N C T I O N ) (
0011740 Q U O T E S E T F - M E T H O
0011760 D - E X P A N D E R ) ) \r ( P U
0012000 T P R O P S S Y M B O L - F U
0012020 N C T I O N S E T F - I N V E
0012040 R S E S E T F - S Y M B O L -
0012060 F U N C T I O N ) \r F B O U N D
0012100 P D 1 \r ( I 0 F N ) \0 032
0012120 \0 \0 \0 001 @ 004 l 004 360 264 023 @ \t \0 \0 252
0012140 @ \t \0 \0 245 @ \t \0 \0 264 003 i 020 \0 ( 2
0012160 4 Q M A C R O - F U N C T I O
0012200 N 1 7 Q A R G T Y P E 1 2
0012220 Q S P E C I A L - F O R M - P
0012240 ) \r N I L \r ( ) \r F M A K U N B
0012260 O U N D D 1 \r ( I 0 S Y M
0012300 B O L ) \0 006 \0 \0 \0 001 @ \t \0 \0 020
0012320 \0 ( 3 P U T D ) \r N I L \r ( )
0012340 \r S Y M B O L - F U N C T I O N
0012360 D 1 \r ( I 0 F N ) \0 . \0
0012400 \0 \0 001 @ d 004 l 004 360 262 ! \t \0 \0 263 033
0012420 @ \t \0 \0 d j 360 244 d l 002 360 222 277 i 201
0012440 277 h 225 @ \t \0 \0 265 \b @ l . \n \0 \0 020
0012460 \0 ( 5 3 Q \ L I S P E R R O R
0012500 4 3 Q G E T D 2 0 Q A R
0012520 G T Y P E 1 2 Q S P E C I A
0012540 L - F O R M - P ) \r N I L \r ( )
0012560 \r S E T F - S Y M B O L - F U N
0012600 C T I O N D 1 \r ( I 1 V A
0012620 L I 0 F N ) \0 \0 \0 \0 002
0012640 @ A \t \0 \0 222 A 260 023 A \t \0 \0 221 A 211
0012660 A d 004 l 004 360 222 \t \0 \0 i \v \0 \0 020 \0
0012700 ( 3 5 Q P U T D 3 1 Q G E
0012720 T D 1 4 Q E X P R P 4 C
0012740 C O D E P ) \r N I L \r ( ) \r ( R
0012760 P A Q ? * G E N S Y M - C O U
0013000 N T E R * 0 ) \r ( R P A Q ?
0013020 * G E N S Y M - P R E F I X *
0013040 " G " ) \r C L : C O P Y - S Y M
0013060 B O L D 1 \r ( L ( 1 C O P
0013100 Y - P R O P S 0 S Y M ) )
0013120 \0 M 001 \0 \0 002 @ 021 001 \0 H g \0 \0 \n \0
0013140 \0 262 1 023 @ \t \0 \0 \t \0 \0 021 001 \0 A 262
0013160 ! H @ \t \0 \0 \n \0 \0 277 H @ \t \0 \0 \n
0013200 \0 \0 277 H 301 002 @ 301 002 311 \0 \t \0 \0 024 \0
0013220 H 020 i g \0 \0 H g \0 \0 \f \0 \0 b \0 023
0013240 260 266 \0 ( 1 0 6 Q C H E C K - T
0013260 Y P E - F A I L 6 7 Q C O P
0013300 Y 5 3 Q S E T F - S Y M B O
0013320 L - F U N C T I O N 5 0 Q S
0013340 Y M B O L - F U N C T I O N 4
0013360 2 Q S E T 3 7 Q S Y M B O
0013400 L - V A L U E 2 4 Q M A K E
0013420 - S Y M B O L 2 1 Q S Y M B
0013440 O L - N A M E 1 2 Q \ I N S
0013460 T A N C E - P ) \r ( 1 0 3 Q S
0013500 Y M B O L 7 7 Q S Y M 7
0013520 L I T A T O M ) \r ( ) \r C L : G
0013540 E N S Y M D 1 \r ( L ( 0 X
0013560 ) F 2 * G E N S Y M - C O
0013600 U N T E R * F 3 * G E N S
0013620 Y M - P R E F I X * ) \0 X 002 002
0013640 \0 001 @ 021 021 001 H o \0 \0 \0 034 263 $ H \t
0013660 \0 \0 263 036 H 3 265 023 i g \0 \0 H o \0
0013700 \0 \0 \f \0 \0 b \0 023 260 332 271 j I 363 263 353
0013720 023 @ d \t \0 \0 225 277 @ c 006 277 206 3 223
0013740 @ c 004 277 g \0 \0 S R \t \0 \0 \v \0 \0 \t
0013760 \0 \0 R k 324 c 004 277 020 \0 ( 1 1 7 Q
0014000 C L : M A K E - S Y M B O L 1
0014020 1 4 Q C O N C A T E N A T E
0014040 1 1 1 Q M K S T R I N G 6 3
0014060 Q C L : S T R I N G P 4 2 Q
0014100 C H E C K - T Y P E - F A I L
0014120 1 7 Q C L : S T R I N G P )
0014140 \r ( 1 0 4 Q S I M P L E - S T
0014160 R I N G 3 2 Q X ) \r ( 3 7
0014200 Q ( O R N U L L S T R I N
0014220 G ( I N T E G E R 0 C L :
0014240 * ) ) 1 0 Q ( N I L ) ) \r C
0014260 L : M A K E - K E Y W O R D D
0014300 1 \r ( L ( 0 S Y M B O L )
0014320 F 0 * K E Y W O R D - P A C
0014340 K A G E * ) \0 \n \0 001 \0 001 @ \t \0
0014360 \0 P \n \0 \0 020 \0 ( 7 C L : I N T
0014400 E R N 3 S Y M B O L - N A M
0014420 E ) \r N I L \r ( ) \r C L : G E N
0014440 T E M P D 1 \r ( L ( 0 - a
0014460 r g s - ) F 7 * P A C K A
0014500 G E * ) \0 k \a 001 002 \0 e 021 001 \0 k
0014520 H 361 224 o \0 \0 \0 201 k a 021 Q 006 l 002 H
0014540 361 222 W 016 202 l 002 a 272 I [ \t \0 \0 262 &
0014560 J \ g \0 \0 \n \0 \0 262 * j 275 g \0 \0 I
0014600 M \t \0 \0 \v \0 \0 ^ J \n \0 \0 263 $ N J
0014620 \n \0 \0 020 i g \0 \0 K g \0 \0 \f \0 \0 Y
0014640 260 312 i g \0 \0 L g \0 \0 \f \0 \0 Z 260 303
0014660 M k 324 260 310 \0 ( 1 4 1 Q C H E C
0014700 K - T Y P E - F A I L 1 2 3 Q
0014720 C H E C K - T Y P E - F A I L
0014740 1 0 7 Q C L : I N T E R N
0014760 1 0 0 Q F I N D - S Y M B O L
0015000 7 3 Q C O N C A T E N A T E
0015020 7 0 Q M K S T R I N G 5 4
0015040 Q \ I N S T A N C E - P 4 2
0015060 Q C L : S T R I N G P ) \r ( 1
0015100 3 6 Q P A C K A G E 1 3 2 Q
0015120 P A C K A G E 1 2 0 Q S T
0015140 R I N G 1 1 4 Q P R E F I X
0015160 6 3 Q S I M P L E - S T R I
0015200 N G 5 1 Q P A C K A G E ) \r
0015220 ( 1 3 Q " T " ) \r C L : K E
0015240 Y W O R D P D 1 \r ( L ( 0
0015260 O B J E C T ) F 0 * K E Y
0015300 W O R D - P A C K A G E * ) \0
0015320 017 \0 001 \0 001 @ 004 l 004 360 264 \b @ \t \0 \0
0015340 P 360 020 \0 ( 1 2 Q S Y M B O L -
0015360 P A C K A G E ) \r N I L \r ( ) \r
0015400 ( P U T P R O P S C M L S Y M
0015420 B O L F I L E T Y P E C O M
0015440 P I L E - F I L E ) \r ( P U T P
0015460 R O P S C M L S Y M B O L C
0015500 O P Y R I G H T ( " X e r o x
0015520 C o r p o r a t i o n " 1 9
0015540 8 6 ) ) \r S T O P \r
0015552