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