$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLDEFFER.DCOM!19
0000000 ( F I L E C R E A T E D " 1 2
0000020 - O c t - 8 6 1 5 : 5 0 : 3 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 > S O U R C E S > C M L D E F
0000120 F E R . ; 1 9 ) \r " 1 - O c
0000140 t - 8 6 2 0 : 2 3 : 1 5 " "
0000160 C O M P I L E - F I L E d " i
0000200 n " " d a t e d " 1 - O
0000220 c t - 8 6 2 1 : 2 4 : 4 4 " )
0000240 \r ( F I L E C R E A T E D " 1
0000260 2 - O c t - 8 6 1 5 : 5 0 : 1
0000300 7 " { E R I S } < L I S P C O
0000320 R E > S O U R C E S > C M L D E
0000340 F F E R . ; 1 9 1 9 8 8 6 c
0000360 h a n g e s t o : ( F U N C
0000400 T I O N S \r D E F I N L I N E
0000420 D E F M A C R O ) p r e v i
0000440 o u s d a t e : " 9 - O c
0000460 t - 8 6 2 1 : 2 6 : 4 1 " {
0000500 E R I S } < L I S P C O R E > S
0000520 O U R C E S > C M L D E F F E R
0000540 . ; 1 8 ) \r ( R P A Q Q C M L
0000560 D E F F E R C O M S ( ( * ;
0000600 ; ; \r " D E F - D E F I N E -
0000620 T Y P E a n d D E F D E F I
0000640 N E R - - Y o u r O n e -
0000660 S t o p P r o v i d e r s o
0000700 f C u s t o m i z e d F i l
0000720 e M a n a g e r F a c i l i
0000740 t i e s . " ) ( * \r ; ; \r
0000760 " B E V E R Y C A R E F U L
0001000 C H A N G I N G A N Y T H I
0001020 N G I N T H I S F I L E !
0001040 ! ! I t i s h e a v i l
0001060 y s e l f - r e f e r e n t i
0001100 a l a n d t h i c k w i t
0001120 h b o o t s t r a p p i n g
0001140 p r o b l e m s . A l l b
0001160 u t t h e m o s t t r i v
0001200 i a l c h a n g e s ( a n d
0001220 s o m e o f t h o s e )
0001240 a r e v e r y t r i c k y
0001260 t o m a k e w i t h o u t
0001300 b l o w i n g y o u r s e l f
0001320 o u t o f t h e w a t e
0001340 r . . . Y o u h a v e b
0001360 e e n w a r n e d . " \r ) (
0001400 C O M S ( I N I T V A R S (
0001420 F I L E P K G F L G ) ) ( C O
0001440 M S ( F N S P P R I N T - D
0001460 E F I N E R \ D E F I N E - T
0001500 Y P E - G E T D E F R E M O V
0001520 E - C O M M E N T S ) ( \r F U
0001540 N C T I O N S \ D E F I N E -
0001560 T Y P E - S A V E - D E F N ) )
0001600 ) ( V A R I A B L E S * D E
0001620 F I N I T I O N - H A S H - T A
0001640 B L E * ) ( D E F I N E - T Y
0001660 P E S D E F I N E - T Y P E S
0001700 \r F U N C T I O N S V A R I
0001720 A B L E S ) ( F U N C T I O N
0001740 S D E F D E F I N E R D E F
0001760 - D E F I N E - T Y P E W I T
0002000 H O U T - F I L E P K G ) ( F
0002020 U N C T I O N S D E F U N D
0002040 E F I N L I N E \r D E F M A C
0002060 R O ) ( F U N C T I O N S D
0002100 E F V A R D E F P A R A M E T
0002120 E R D E F C O N S T A N T D
0002140 E F G L O B A L V A R D E F G
0002160 L O B A L P A R A M E T E R )
0002200 ( * ; ; \r " D o n ' t n o
0002220 t e f i l e p a c k a g e
0002240 c h a n g e s t o m a c r o
0002260 - f n . " ) ( P R O P P R O
0002300 P T Y P E M A C R O - F N )
0002320 ( * ; ; \r " A r r a n g e
0002340 f o r t h e c o r r e c t
0002360 c o m p i l e r t o b e u
0002400 s e d . " ) ( P R O P F I L
0002420 E T Y P E C M L D E F F E R )
0002440 ) ) \r ( R P A Q ? F I L E P K
0002460 G F L G ) \r P P R I N T - D E F
0002500 I N E R D 1 \r ( P 3 # R P
0002520 A R S P 2 C U R R E N T
0002540 P 1 D E F I N E D P 0
0002560 D E F I N E R I 0 D E F I
0002600 N E - E X P R E S S I O N F
0002620 4 C O M M E N T F L G ) \0 326
0002640 004 001 \0 001 @ 001 @ 002 b \0 001 @ 002 b \0 277
0002660 \b \0 \0 021 023 003 o \0 \0 \0 \t \0 \0 277 H \t
0002700 \0 \0 277 k \t \0 \0 I 003 262 5 o \0 \0 \0 \t
0002720 \0 \0 277 ` \0 \0 \t \0 \0 277 I 001 \t \0 \0 277
0002740 ` \0 \0 \t \0 \0 277 k \t \0 \0 277 I 002 i d
0002760 d \f \0 \0 277 o \0 \0 \0 \t \0 \0 260 024 ` \0
0003000 \0 \t \0 \0 277 I \t \0 \0 277 ` \0 \0 \t \0 \0
0003020 277 @ d 001 003 262 025 277 k \t \0 \0 277 @ 001 @
0003040 002 b \0 277 i \n \0 \0 277 @ 001 005 \a 251 @ d
0003060 001 003 001 T 360 262 026 277 k \t \0 \0 277 @ 001 @
0003100 002 b \0 277 i d \v \0 \0 277 @ i d \v \0 \0
0003120 221 h 200 i 233 \b \0 \0 277 J \t \0 \0 277 l 003
0003140 200 k \t \0 \0 277 @ i d d \f \0 \0 o \0 \0
0003160 \0 \t \0 \0 h \t \0 \0 020 \0 ( 3 2 3 Q
0003200 T E R P R I 3 1 7 Q P R I N
0003220 1 3 1 0 Q P R I N T D E F
0003240 3 0 0 Q S P A C E S 2 7 0 Q
0003260 D S P X P O S I T I O N 2 6
0003300 3 Q T E R P R I 2 5 3 Q F
0003320 I T P 2 4 4 Q P R I N T D E
0003340 F 2 2 7 Q S P A C E S 2 0
0003360 3 Q P R I N T D E F 1 6 7 Q
0003400 S P A C E S 1 5 3 Q C H A
0003420 N G E F O N T 1 4 4 Q P R I
0003440 N 2 1 3 7 Q C H A N G E F O
0003460 N T 1 2 7 Q P R I N 1 1 1
0003500 7 Q P R I N T D E F 1 0 6 Q
0003520 S P A C E S 1 0 1 Q C H A
0003540 N G E F O N T 7 2 Q P R I N
0003560 2 6 4 Q C H A N G E F O N T
0003600 5 5 Q P R I N 1 4 2 Q S
0003620 P A C E S 3 5 Q P R I N 2
0003640 3 0 Q P R I N 1 1 6 Q D S
0003660 P X P O S I T I O N ) \r ( 1 5 0
0003700 Q D E F A U L T F O N T 1 3
0003720 4 Q P R E T T Y C O M F O N T
0003740 7 6 Q D E F A U L T F O N T
0003760 6 1 Q P R E T T Y C O M F O
0004000 N T ) \r ( 3 1 4 Q " ) " 1
0004020 2 4 Q " ) " 5 2 Q " ( "
0004040 2 5 Q " ( " ) \r \ D E F I N E
0004060 - T Y P E - G E T D E F D 1 \r
0004100 ( P 1 D E F N P 0 H A
0004120 S H - T A B L E I 2 O P T
0004140 I O N S I 1 T Y P E I
0004160 0 N A M E ) \0 ; 002 \0 \0 003 A `
0004200 \0 \0 \n \0 \0 021 001 \0 H 226 @ H \n \0 \0 265
0004220 020 @ 004 l 004 360 264 \t @ 301 002 311 \0 A ' 021
0004240 001 001 B g \0 \0 360 250 B 003 232 g \0 \0 B 034
0004260 224 I \t \0 \0 020 I 020 \0 ( 6 6 Q C O
0004300 P Y - T R E E 2 0 Q C L : G
0004320 E T H A S H 6 C L : G E T H
0004340 A S H ) \r ( 5 7 Q E D I T 4
0004360 7 Q E D I T 3 * D E F I N
0004400 I T I O N - H A S H - T A B L E
0004420 * ) \r ( ) \r R E M O V E - C O M
0004440 M E N T S D 1 \r ( I 0 X
0004460 F 2 C O M M E N T F L G )
0004500 \0 2 002 001 \0 001 @ 003 265 004 @ 020 001 003 001 R
0004520 360 225 @ 002 b \0 260 361 @ 001 \t \0 \0 @ 002 \t
0004540 \0 \0 021 002 001 H d @ 001 360 230 277 I @ 002 360
0004560 221 @ 020 H I 032 020 \0 ( 3 3 Q R E M
0004600 O V E - C O M M E N T S 2 6 Q
0004620 R E M O V E - C O M M E N T S
0004640 ) \r N I L \r ( ) \r \ D E F I N E
0004660 - T Y P E - S A V E - D E F N
0004700 D 1 \r ( L ( 2 D E F I N I T
0004720 I O N 1 T Y P E 0 N A M
0004740 E ) ) \0 O 001 \0 \0 003 @ 004 l 004 360 225
0004760 @ A \n \0 \0 277 A ` \0 \0 \n \0 \0 021 001 \0
0005000 H 263 ' o \0 \0 \0 A \n \0 \0 277 A ` \0 \0
0005020 g \0 \0 g \0 \0 g \0 \0 l 2 g \0 \0 l 2
0005040 \r 006 \0 \0 \v \0 \0 270 @ H B \v \0 \0 023 @
0005060 A g \0 \0 \v \0 \0 020 \0 ( 1 1 4 Q M
0005100 A R K A S C H A N G E D 1 0 3
0005120 Q C L : P U T H A S H 7 4 Q
0005140 C L : P U T H A S H 7 1 Q
0005160 M A K E - H A S H - T A B L E
0005200 4 0 Q W A R N 2 2 Q C L :
0005220 G E T H A S H 1 2 Q R E M P
0005240 R O P ) \r ( 1 1 1 Q C H A N G
0005260 E D 6 3 Q : R E H A S H - S
0005300 I Z E 5 6 Q : S I Z E 5 3
0005320 Q C L : E Q U A L 5 0 Q :
0005340 T E S T 4 5 Q * D E F I N I
0005360 T I O N - H A S H - T A B L E *
0005400 1 7 Q * D E F I N I T I O N
0005420 - H A S H - T A B L E * ) \r (
0005440 3 4 Q " C o u l d n ' t f i
0005460 n d a h a s h - t a b l e
0005500 f o r ~ S d e f i n i t i o
0005520 n s . ~ % % O n e w i l l b
0005540 e c r e a t e d . " ) \r ( P R
0005560 O C L A I M ( Q U O T E ( G
0005600 L O B A L * D E F I N I T I O
0005620 N - H A S H - T A B L E * ) ) )
0005640 \r ( O R ( B O U N D P ( Q U
0005660 O T E * D E F I N I T I O N -
0005700 H A S H - T A B L E * ) ) ( S
0005720 E T Q * D E F I N I T I O N -
0005740 H A S H - T A B L E * ( H A S
0005760 H A R R A Y 2 0 ) ) ) \r ( A D
0006000 D T O V A R P R E T T Y D E F
0006020 M A C R O S ( D E F I N E - T
0006040 Y P E S X ( P * ( M A P
0006060 C A R ( Q U O T E X ) ( F
0006100 U N C T I O N ( L A M B D A
0006120 ( I T E M ) ( C L : D O ( (
0006140 D E F \r ( G E T D E F I T E
0006160 M ( Q U O T E D E F I N E -
0006200 T Y P E S ) ) ) ) ( D E F D
0006220 E F ) ( C E R R O R " R e -
0006240 f e t c h t h e d e f i n i
0006260 t i o n " \r " N o ~ S d e
0006300 f i n i t i o n f o r ~ S "
0006320 ( Q U O T E D E F I N E - T
0006340 Y P E S ) I T E M ) ) ) ) ) )
0006360 ) ) \r ( A D D T O V A R P R E
0006400 T T Y T Y P E L S T ( C H A N
0006420 G E D D E F I N E - T Y P E S L
0006440 S T D E F I N E - T Y P E S
0006460 " C o m m o n L i s p d e f
0006500 i n i t i o n t y p e " ) ) \r
0006520 ( C O N D ( ( N O T ( C L :
0006540 G E T H A S H ( Q U O T E D
0006560 E F I N E - T Y P E S ) * D E
0006600 F I N I T I O N - H A S H - T A
0006620 B L E * ) ) ( C L : P U T H A
0006640 S H ( Q U O T E D E F I N E
0006660 - T Y P E S \r ) * D E F I N I
0006700 T I O N - H A S H - T A B L E *
0006720 ( M A K E - H A S H - T A B L
0006740 E ( Q U O T E : T E S T )
0006760 ( Q U O T E C L : E Q U A L )
0007000 ( Q U O T E : S I Z E ) 5
0007020 0 ( Q U O T E \r : R E H A S
0007040 H - S I Z E ) 5 0 ) ) ) ) \r (
0007060 A D D T O V A R F I L E P K G
0007100 T Y P E S D E F I N E - T Y P
0007120 E S ) \r ( P U T P R O P S D E
0007140 F I N E - T Y P E S G E T D E
0007160 F \ D E F I N E - T Y P E - G
0007200 E T D E F ) \r ( P U T P R O P S
0007220 D E F I N E - T Y P E S F I
0007240 L E P K G C O N T E N T S N I
0007260 L L ) \r ( P U T P R O P S D E
0007300 F I N E - T Y P E S P R O P T
0007320 Y P E D E F I N E - T Y P E S
0007340 ) \r ( A D D T O V A R P R E T
0007360 T Y D E F M A C R O S ( F U N
0007400 C T I O N S X ( P * ( M
0007420 A P C A R ( Q U O T E X )
0007440 ( F U N C T I O N ( L A M B D
0007460 A ( I T E M ) ( C L : D O
0007500 ( ( D E F ( \r G E T D E F I
0007520 T E M ( Q U O T E F U N C T
0007540 I O N S ) ) ) ) ( D E F D E
0007560 F ) ( C E R R O R " R e - f
0007600 e t c h t h e d e f i n i t
0007620 i o n " " N o ~ S d e f i
0007640 n i t i o n f o r ~ S " \r
0007660 ( Q U O T E F U N C T I O N S
0007700 ) I T E M ) ) ) ) ) ) ) ) \r (
0007720 A D D T O V A R P R E T T Y T
0007740 Y P E L S T ( C H A N G E D F
0007760 U N C T I O N S L S T F U N C
0010000 T I O N S " C o m m o n L i
0010020 s p f u n c t i o n s " ) ) \r
0010040 ( C O N D ( ( N O T ( C L :
0010060 G E T H A S H ( Q U O T E F
0010100 U N C T I O N S ) * D E F I N
0010120 I T I O N - H A S H - T A B L E
0010140 * ) ) ( C L : P U T H A S H
0010160 ( Q U O T E F U N C T I O N S
0010200 ) \r * D E F I N I T I O N - H
0010220 A S H - T A B L E * ( M A K E
0010240 - H A S H - T A B L E ( Q U O
0010260 T E : T E S T ) ( Q U O T E
0010300 C L : E Q U A L ) ( Q U O T
0010320 E : S I Z E ) 5 0 ( Q U O
0010340 T E \r : R E H A S H - S I Z E
0010360 ) 5 0 ) ) ) ) \r ( A D D T O V
0010400 A R F I L E P K G T Y P E S
0010420 F U N C T I O N S ) \r ( P U T P
0010440 R O P S F U N C T I O N S G
0010460 E T D E F \ D E F I N E - T Y
0010500 P E - G E T D E F ) \r ( P U T P
0010520 R O P S F U N C T I O N S F
0010540 I L E P K G C O N T E N T S N
0010560 I L L ) \r ( P U T P R O P S F
0010600 U N C T I O N S P R O P T Y P
0010620 E F U N C T I O N S ) \r ( A D
0010640 D T O V A R P R E T T Y D E F
0010660 M A C R O S ( V A R I A B L E
0010700 S X ( P * ( M A P C A R
0010720 ( Q U O T E X ) ( F U N C
0010740 T I O N ( L A M B D A ( I T
0010760 E M ) ( C L : D O ( ( D E F
0011000 ( \r G E T D E F I T E M (
0011020 Q U O T E V A R I A B L E S )
0011040 ) ) ) ( D E F D E F ) ( C
0011060 E R R O R " R e - f e t c h
0011100 t h e d e f i n i t i o n "
0011120 " N o ~ S d e f i n i t i o
0011140 n f o r ~ S " \r ( Q U O T
0011160 E V A R I A B L E S ) I T E
0011200 M ) ) ) ) ) ) ) ) \r ( A D D T O
0011220 V A R P R E T T Y T Y P E L S
0011240 T ( C H A N G E D V A R I A B
0011260 L E S L S T V A R I A B L E S
0011300 " C o m m o n L i s p v a
0011320 r i a b l e s " ) ) \r ( C O N D
0011340 ( ( N O T ( C L : G E T H A
0011360 S H ( Q U O T E V A R I A B
0011400 L E S ) * D E F I N I T I O N
0011420 - H A S H - T A B L E * ) ) (
0011440 C L : P U T H A S H ( Q U O T
0011460 E V A R I A B L E S ) \r * D
0011500 E F I N I T I O N - H A S H - T
0011520 A B L E * ( M A K E - H A S H
0011540 - T A B L E ( Q U O T E : T
0011560 E S T ) ( Q U O T E C L : E
0011600 Q U A L ) ( Q U O T E : S I
0011620 Z E ) 5 0 ( Q U O T E \r :
0011640 R E H A S H - S I Z E ) 5 0 )
0011660 ) ) ) \r ( A D D T O V A R F I
0011700 L E P K G T Y P E S V A R I A
0011720 B L E S ) \r ( P U T P R O P S
0011740 V A R I A B L E S G E T D E F
0011760 \ D E F I N E - T Y P E - G E
0012000 T D E F ) \r ( P U T P R O P S
0012020 V A R I A B L E S F I L E P K
0012040 G C O N T E N T S N I L L ) \r
0012060 ( P U T P R O P S V A R I A B
0012100 L E S P R O P T Y P E V A R
0012120 I A B L E S ) \r e x p a n d - D
0012140 E F D E F I N E R D 1 \r ( L
0012160 ( 1 $ $ M A C R O - E N V I R
0012200 O N M E N T 0 $ $ M A C R O
0012220 - F O R M ) ) 001 1 \v \0 \0 002 @ 002
0012240 \t \0 \0 021 241 \n @ 271 H 001 272 H 002 [ 001 274
0012260 K 002 ] 001 276 M 002 A i \v \0 \0 \t \0 \0 _
0012300 016 001 _ 020 277 O 016 002 001 _ 022 277 O 016 002 002
0012320 001 _ 024 277 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0012340 J g \0 \0 g \0 \0 N 032 032 O 022 g \0 \0 g
0012360 \0 \0 g \0 \0 g \0 \0 g \0 \0 O 020 032 h 032
0012400 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0012420 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0
0012440 \0 L h 032 032 h 032 032 h 032 032 o \0 \0 \0 032
0012460 032 032 h 032 032 032 h 032 032 032 o \0 \0 \0 032 032
0012500 032 h 032 032 h 032 \n \0 \0 032 032 032 g \0 \0 g
0012520 \0 \0 g \0 \0 J g \0 \0 032 h 032 032 032 h 032
0012540 032 O 024 264 035 g \0 \0 g \0 \0 g \0 \0 J h
0012560 032 032 o \0 \0 \0 032 032 O 024 h 032 032 032 h 032
0012600 g \0 \0 J h 032 032 h 032 \n \0 \0 032 032 032 h
0012620 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g
0012640 \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0
0012660 I h 032 032 h 032 032 032 032 h 032 032 032 h 032 032
0012700 032 g \0 \0 J h 032 032 h 032 032 032 032 020 \0 (
0012720 3 5 5 Q \ A P P E N D 2 2 5
0012740 2 Q \ A P P E N D 2 4 0 Q
0012760 \ M V L I S T 3 5 Q P A R S
0013000 E - B O D Y 4 R E M O V E -
0013020 C O M M E N T S ) \r ( 4 4 5 Q
0013040 Q U O T E 4 2 1 Q Q U O T E
0013060 4 0 6 Q Q U O T E 4 0 3 Q
0013100 \ D E F I N E - T Y P E - S A
0013120 V E - D E F N 4 0 0 Q F I L
0013140 E P K G F L G 3 7 5 Q A N D
0013160 3 6 6 Q E V A L - W H E N
0013200 3 4 4 Q Q U O T E 3 1 7 Q
0013220 Q U O T E 3 1 4 Q D O C U M
0013240 E N T A T I O N 3 1 1 Q S E
0013260 T F 2 7 2 Q P P R I N T - D
0013300 E F I N E R 2 6 6 Q P R E T
0013320 T Y P R I N T M A C R O S 2 6
0013340 3 Q A D D T O V A R 2 6 0 Q
0013360 W I T H O U T - F I L E P K G
0013400 2 0 2 Q Q U O T E 1 7 7 Q
0013420 \ , 1 7 4 Q Q U O T E 1
0013440 6 5 Q \ D E F I N E - T Y P E
0013460 - S A V E - D E F N 1 6 2 Q
0013500 F I L E P K G F L G 1 5 7 Q
0013520 A N D 1 5 0 Q E V A L - W H
0013540 E N 1 3 4 Q P R O G N 1 3
0013560 1 Q \ , 1 2 6 Q W I T H O
0013600 U T - F I L E P K G 1 2 3 Q
0013620 P R O G N 1 2 0 Q B Q U O T
0013640 E 1 1 0 Q % % O R I G I N A
0013660 L - D E F I N I T I O N 1 0 5
0013700 Q & W H O L E 1 0 1 Q D E
0013720 F M A C R O 7 6 Q P R O G N
0013740 7 3 Q W I T H O U T - F I L
0013760 E P K G 7 0 Q P R O G N ) \r
0014000 ( 4 1 6 Q ( Q U O T E F U
0014020 N C T I O N S ) 3 7 2 Q ( C
0014040 L : E V A L ) 3 2 7 Q ( ( Q
0014060 U O T E C L : F U N C T I O N
0014100 ) ) 2 3 7 Q ( ( Q U O T E
0014120 ( \ , N A M E ) ) ) 2 2 0 Q
0014140 ( ( Q U O T E ( \ , % % O
0014160 R I G I N A L - D E F I N I T I
0014200 O N ) ) ) \r 1 7 1 Q ( Q U O
0014220 T E ( \ , N A M E ) ) 1 5
0014240 4 Q ( C L : E V A L ) ) \r ( S
0014260 E T F - M A C R O - F U N C T I
0014300 O N ( Q U O T E D E F D E F
0014320 I N E R ) ( Q U O T E e x p
0014340 a n d - D E F D E F I N E R ) )
0014360 \r ( A D D T O V A R P R E T T
0014400 Y P R I N T M A C R O S ( D E
0014420 F D E F I N E R . P P R I N
0014440 T - D E F I N E R ) ) \r e x p a
0014460 n d - D E F - D E F I N E - T Y
0014500 P E D 1 \r ( L ( 1 $ $ M A
0014520 C R O - E N V I R O N M E N T
0014540 0 $ $ M A C R O - F O R M ) )
0014560 001 _ 005 \0 \0 002 @ 002 \t \0 \0 021 A 004 @
0014600 271 H 001 272 H 002 001 273 g \0 \0 g \0 \0 g \0
0014620 \0 g \0 \0 g \0 \0 J g \0 \0 g \0 \0 g \0
0014640 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 o \0
0014660 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0
0014700 \0 J h 032 032 h 032 032 032 h 032 032 h 032 o \0
0014720 \0 \0 g \0 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0
0014740 J h 032 032 o \0 \0 \0 032 032 032 032 h 032 032 032
0014760 032 h 032 032 032 h 032 032 h 032 032 032 h 032 032 032
0015000 h 032 032 032 h 032 032 032 g \0 \0 g \0 \0 o \0
0015020 \0 \0 J o \0 \0 \0 \v \0 \0 \ d \t \0 \0 246
0015040 277 L \t \0 \0 277 L J K h 032 032 032 h 032 032
0015060 032 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0
0015100 \0 \0 032 032 g \0 \0 g \0 \0 g \0 \0 J h 032
0015120 032 o \0 \0 \0 032 032 o \0 \0 \0 032 032 h 032 032
0015140 032 g \0 \0 g \0 \0 J h 032 032 032 g \0 \0 J
0015160 o \0 \0 \0 032 032 g \0 \0 J o \0 \0 \0 032 032
0015200 g \0 \0 J g \0 \0 J h 032 032 032 032 h 032 032
0015220 032 032 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0
0015240 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0015260 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032
0015300 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h
0015320 032 032 032 032 020 \0 ( 2 5 5 Q S E T
0015340 2 4 7 Q B O U N D P 2 4 2 Q
0015360 P A C K * 4 R E M O V E -
0015400 C O M M E N T S ) \r ( 5 2 3 Q
0015420 Q U O T E 4 7 7 Q Q U O T E
0015440 4 6 4 Q Q U O T E 4 6 1 Q
0015460 \ D E F I N E - T Y P E - S A
0015500 V E - D E F N 4 5 6 Q F I L
0015520 E P K G F L G 4 5 3 Q A N D
0015540 4 4 4 Q E V A L - W H E N
0015560 4 1 7 Q P R O P T Y P E 4 1
0015600 3 Q P U T P R O P S 4 0 1 Q
0015620 P U T P R O P S 3 6 7 Q P
0015640 U T P R O P S 3 5 7 Q F I L
0015660 E P K G T Y P E S 3 5 4 Q A
0015700 D D T O V A R 3 2 5 Q Q U O
0015720 T E 3 2 2 Q C L : G E T H A
0015740 S H 3 1 7 Q S E T F 3 0 2
0015760 Q Q U O T E 2 7 7 Q C L :
0016000 G E T H A S H 2 7 4 Q C L :
0016020 U N L E S S 2 2 6 Q P R E T
0016040 T Y T Y P E L S T 2 2 3 Q A
0016060 D D T O V A R 1 5 0 Q Q U O
0016100 T E 1 3 5 Q C E R R O R 1
0016120 1 1 Q Q U O T E 1 0 6 Q I
0016140 T E M 1 0 3 Q G E T D E F
0016160 1 0 0 Q D E F 7 5 Q C L :
0016200 D O 6 6 Q L A M B D A 6 3
0016220 Q F U N C T I O N 5 4 Q M
0016240 A P C A R 5 1 Q * 4 6 Q
0016260 P 4 3 Q X 3 7 Q P R E T
0016300 T Y D E F M A C R O S 3 4 Q
0016320 A D D T O V A R 3 1 Q P R O
0016340 G N 2 6 Q W I T H O U T - F
0016360 I L E P K G 2 3 Q P R O G N
0016400 ) \r ( 4 7 4 Q ( Q U O T E
0016420 D E F I N E - T Y P E S ) 4 5
0016440 0 Q ( C L : E V A L ) 4 0 6
0016460 Q ( F I L E P K G C O N T E N
0016500 T S N I L L ) 3 7 4 Q ( G
0016520 E T D E F \ D E F I N E - T Y
0016540 P E - G E T D E F ) \r 3 4 3 Q
0016560 ( ( M A K E - H A S H - T A B
0016600 L E ( Q U O T E : T E S T )
0016620 ( Q U O T E C L : E Q U A L
0016640 ) ( Q U O T E : S I Z E )
0016660 6 2 Q ( Q U O T E : R E H A
0016700 S H - S I Z E ) 6 2 Q ) ) 3
0016720 3 5 Q \r ( * D E F I N I T I O
0016740 N - H A S H - T A B L E * ) 3
0016760 1 2 Q ( * D E F I N I T I O N
0017000 - H A S H - T A B L E * ) 2 3
0017020 7 Q " L S T " 2 3 2 Q " C
0017040 H A N G E D " 1 6 0 Q ( I T
0017060 E M ) 1 4 5 Q " N o ~ S
0017100 d e f i n i t i o n f o r ~
0017120 S " \r 1 4 1 Q " R e - f e t
0017140 c h t h e d e f i n i t i o
0017160 n " 1 3 2 Q ( D E F D E F
0017200 ) 7 2 Q ( I T E M ) 6 0 Q
0017220 ( Q U O T E X ) ) \r ( S E T
0017240 F - M A C R O - F U N C T I O N
0017260 ( Q U O T E D E F - D E F I
0017300 N E - T Y P E ) ( Q U O T E
0017320 e x p a n d - D E F - D E F I N
0017340 E - T Y P E ) ) \r ( A D D T O V
0017360 A R P R E T T Y P R I N T M A
0017400 C R O S ( D E F - D E F I N E
0017420 - T Y P E . P P R I N T - D
0017440 E F I N E R ) ) \r e x p a n d -
0017460 W I T H O U T - F I L E P K G
0017500 D 1 \r ( L ( 1 $ $ M A C R O
0017520 - E N V I R O N M E N T 0 $
0017540 $ M A C R O - F O R M ) ) \0 =
0017560 001 \0 \0 002 @ 002 021 001 \0 g \0 \0 g \0 \0 o
0017600 \0 \0 \0 H 032 032 g \0 \0 o \0 \0 \0 g \0 \0
0017620 o \0 \0 \0 g \0 \0 o \0 \0 \0 o \0 \0 \0 H
0017640 032 032 032 h 032 032 032 h 032 032 032 h 032 032 032 020
0017660 \0 N I L \r ( 4 2 Q L E T 3 3
0017700 Q A N D 2 4 Q E V A L - W
0017720 H E N 1 2 Q E V A L - W H E
0017740 N 7 P R O G N ) \r ( 5 2 Q
0017760 ( D E C L A R E ( S P E C I
0020000 A L F I L E P K G F L G D F
0020020 N F L G ) ) 4 6 Q ( F I L E
0020040 P K G F L G ( D F N F L G T
0020060 ) ) 3 7 Q ( N E Q D F N F
0020100 L G ( Q U O T E P R O P ) )
0020120 3 0 Q \r ( C L : E V A L )
0020140 1 6 Q ( C L : L O A D ) ) \r (
0020160 S E T F - M A C R O - F U N C T
0020200 I O N ( Q U O T E W I T H O
0020220 U T - F I L E P K G ) ( Q U O
0020240 T E e x p a n d - W I T H O U
0020260 T - F I L E P K G ) ) \r e x p a
0020300 n d - D E F U N D 1 \r ( L (
0020320 1 $ $ M A C R O - E N V I R O
0020340 N M E N T 0 $ $ M A C R O -
0020360 F O R M ) ) \0 304 \t \0 \0 002 @ 002 \t
0020400 \0 \0 021 201 \b @ 271 H 001 272 H 002 [ 001 274 K
0020420 002 A i \v \0 \0 \t \0 \0 ] 001 276 M 002 001 _
0020440 016 277 M 002 002 001 _ 020 277 g \0 \0 g \0 \0 g
0020460 \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h
0020500 032 032 g \0 \0 g \0 \0 L O 016 g \0 \0 J N
0020520 032 032 h 032 \n \0 \0 032 032 h 032 032 h 032 032 032
0020540 O 020 264 035 g \0 \0 g \0 \0 g \0 \0 J h 032
0020560 032 o \0 \0 \0 032 032 O 020 h 032 032 032 h 032 032
0020600 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0020620 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g
0020640 \0 \0 I h 032 032 h 032 032 032 032 h 032 032 032 h
0020660 032 032 032 g \0 \0 J h 032 032 h 032 032 032 032 020
0020700 \0 ( 1 3 1 Q \ A P P E N D 2
0020720 3 3 Q \ M V L I S T 3 0 Q
0020740 P A R S E - B O D Y 4 R E M
0020760 O V E - C O M M E N T S ) \r ( 2
0021000 7 0 Q Q U O T E 2 4 4 Q Q
0021020 U O T E 2 3 1 Q Q U O T E
0021040 2 2 6 Q \ D E F I N E - T Y P
0021060 E - S A V E - D E F N 2 2 3 Q
0021100 F I L E P K G F L G 2 2 0 Q
0021120 A N D 2 1 1 Q E V A L - W
0021140 H E N 1 5 7 Q Q U O T E 1
0021160 5 4 Q D O C U M E N T A T I O
0021200 N 1 5 1 Q S E T F 1 2 0 Q
0021220 C L : B L O C K 1 1 2 Q C
0021240 L : L A M B D A 1 0 7 Q C L
0021260 : F U N C T I O N 7 5 Q Q U
0021300 O T E 7 2 Q S Y M B O L - F
0021320 U N C T I O N 6 7 Q S E T F
0021340 6 4 Q P R O G N 6 1 Q W
0021360 I T H O U T - F I L E P K G 5
0021400 6 Q P R O G N ) \r ( 2 4 1 Q
0021420 ( Q U O T E F U N C T I O N
0021440 S ) 2 1 5 Q ( C L : E V A L
0021460 ) 1 6 7 Q ( ( Q U O T E C
0021500 L : F U N C T I O N ) ) ) \r ( S
0021520 E T F - M A C R O - F U N C T I
0021540 O N ( Q U O T E D E F U N )
0021560 ( Q U O T E e x p a n d - D
0021600 E F U N ) ) \r ( A D D T O V A R
0021620 P R E T T Y P R I N T M A C R
0021640 O S ( D E F U N . P P R I
0021660 N T - D E F I N E R ) ) \r e x p
0021700 a n d - D E F I N L I N E D 1
0021720 \r ( L ( 1 $ $ M A C R O - E
0021740 N V I R O N M E N T 0 $ $ M
0021760 A C R O - F O R M ) ) \0 311 \v \0
0022000 \0 002 @ 002 \t \0 \0 021 241 \n @ 271 H 001 272 H
0022020 002 [ 001 274 K 002 275 A 276 g \0 \0 g \0 \0 M
0022040 N i \v \0 \0 \t \0 \0 _ 024 001 _ 022 277 O 024
0022060 002 001 _ 020 277 g \0 \0 L O 020 g \0 \0 J O
0022100 022 032 032 h 032 \n \0 \0 032 032 _ 016 277 g \0 \0
0022120 g \0 \0 J L M 032 032 032 g \0 \0 J o \0 \0
0022140 \0 J h 032 032 J \t \0 \0 \n \0 \0 o \0 \0 \0
0022160 g \0 \0 g \0 \0 O 016 h 032 032 o \0 \0 \0 032
0022200 032 h 032 032 032 032 032 h 032 032 032 h 032 032 g \0
0022220 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0
0022240 \0 J h 032 032 o \0 \0 \0 g \0 \0 I h 032 032
0022260 h 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0
0022300 J h 032 032 h 032 032 032 032 020 \0 ( 1 5 1 Q
0022320 X C L : P A C K 1 4 6 Q S
0022340 Y M B O L - P A C K A G E 1 0
0022360 5 Q \ A P P E N D 2 4 5 Q
0022400 \ M V L I S T 4 2 Q P A R S
0022420 E - B O D Y 4 R E M O V E -
0022440 C O M M E N T S ) \r ( 2 7 5 Q
0022460 Q U O T E 2 5 1 Q Q U O T E
0022500 2 3 6 Q Q U O T E 2 3 3 Q
0022520 \ D E F I N E - T Y P E - S A
0022540 V E - D E F N 2 3 0 Q F I L
0022560 E P K G F L G 2 2 5 Q A N D
0022600 2 1 6 Q E V A L - W H E N
0022620 1 6 3 Q Q U O T E 1 6 0 Q
0022640 C O N S 1 3 1 Q D E F O P T
0022660 I M I Z E R 1 2 0 Q D E F U
0022700 N 1 1 5 Q P R O G N 7 3 Q
0022720 C L : B L O C K 6 5 Q C L
0022740 : L A M B D A 3 4 Q W I T H
0022760 O U T - F I L E P K G 3 1 Q
0023000 P R O G N ) \r ( 2 4 6 Q ( Q
0023020 U O T E F U N C T I O N S )
0023040 2 2 2 Q ( C L : E V A L ) 1
0023060 7 4 Q ( A R G S ) 1 5 5 Q
0023100 ( & R E S T A R G S ) 1 3 6
0023120 Q " d e f i n l i n e - " ) \r
0023140 ( S E T F - M A C R O - F U N C
0023160 T I O N ( Q U O T E D E F I
0023200 N L I N E ) ( Q U O T E e x
0023220 p a n d - D E F I N L I N E ) )
0023240 \r ( A D D T O V A R P R E T T
0023260 Y P R I N T M A C R O S ( D E
0023300 F I N L I N E . P P R I N T
0023320 - D E F I N E R ) ) \r e x p a n
0023340 d - D E F M A C R O D 1 \r ( L
0023360 ( 1 $ $ M A C R O - E N V I
0023400 R O N M E N T 0 $ $ M A C R
0023420 O - F O R M ) ) 001 ' \f \0 \0 002 @
0023440 002 \t \0 \0 021 261 \v @ 271 H 001 272 H 002 [ 001
0023460 274 K 002 275 g \0 \0 g \0 \0 J 221 h 200 i 251
0023500 J 004 l 004 360 221 h 200 i 230 o \0 \0 \0 J \n
0023520 \0 \0 277 o \0 \0 \0 J h 032 032 J \t \0 \0 \n
0023540 \0 \0 _ 026 277 L g \0 \0 M J h g \0 \0 g
0023560 \0 \0 \r \a \0 \0 \t \0 \0 _ 024 001 _ 022 277 O
0023600 024 002 _ 020 001 _ 016 277 O 020 002 001 276 g \0 \0
0023620 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 O 026 h
0023640 032 032 h 032 032 g \0 \0 g \0 \0 o \0 \0 \0 O
0023660 016 g \0 \0 J O 022 h 032 032 032 h 032 \n \0 \0
0023700 032 032 h 032 032 h 032 032 032 g \0 \0 g \0 \0 g
0023720 \0 \0 J h 032 032 h 032 032 g \0 \0 O 026 h 032
0023740 032 h 032 032 032 N 264 034 g \0 \0 g \0 \0 g \0
0023760 \0 J h 032 032 o \0 \0 \0 032 032 N h 032 032 032
0024000 h 032 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0
0024020 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0024040 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032
0024060 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h
0024100 032 032 032 032 020 \0 ( 2 4 0 Q \ A P P
0024120 E N D 2 1 3 1 Q \ M V L I S
0024140 T 1 2 6 Q P A R S E - D E F
0024160 M A C R O 1 0 2 Q X C L : P
0024200 A C K 7 7 Q S Y M B O L - P
0024220 A C K A G E 6 2 Q C L : E R
0024240 R O R 4 R E M O V E - C O M
0024260 M E N T S ) \r ( 4 3 3 Q Q U O
0024300 T E 4 0 7 Q Q U O T E 3 7
0024320 4 Q Q U O T E 3 7 1 Q \ D
0024340 E F I N E - T Y P E - S A V E -
0024360 D E F N 3 6 6 Q F I L E P K
0024400 G F L G 3 6 3 Q A N D 3 5
0024420 4 Q E V A L - W H E N 3 2 1
0024440 Q Q U O T E 3 1 6 Q D O C
0024460 U M E N T A T I O N 3 1 3 Q
0024500 S E T F 2 7 4 Q Q U O T E
0024520 2 6 2 Q Q U O T E 2 5 7 Q
0024540 M A C R O - F U N C T I O N 2
0024560 5 4 Q S E T F 2 2 4 Q C L
0024600 : B L O C K 2 1 3 Q C L : L
0024620 A M B D A 2 1 0 Q C L : F U
0024640 N C T I O N 1 7 5 Q Q U O T
0024660 E 1 7 2 Q S Y M B O L - F U
0024700 N C T I O N 1 6 7 Q S E T F
0024720 1 6 0 Q E V A L - W H E N
0024740 1 2 2 Q $ $ M A C R O - E N V
0024760 I R O N M E N T 1 1 7 Q : E
0025000 N V I R O N M E N T 1 1 1 Q
0025020 $ $ M A C R O - F O R M 3 2 Q
0025040 W I T H O U T - F I L E P K G
0025060 2 7 Q P R O G N ) \r ( 4 0
0025100 4 Q ( Q U O T E F U N C T I
0025120 O N S ) 3 6 0 Q ( C L : E V
0025140 A L ) 3 3 1 Q ( ( Q U O T E
0025160 C L : F U N C T I O N ) ) 2
0025200 1 7 Q ( $ $ M A C R O - F O R
0025220 M $ $ M A C R O - E N V I R O
0025240 N M E N T ) \r 1 6 4 Q ( C L
0025260 : E V A L C L : C O M P I L E
0025300 C L : L O A D ) 6 7 Q " e
0025320 x p a n d - " 5 6 Q " I l l
0025340 e g a l n a m e u s e d i
0025360 n D E F M A C R O : ~ S " )
0025400 \r ( S E T F - M A C R O - F U N
0025420 C T I O N ( Q U O T E D E F
0025440 M A C R O ) ( Q U O T E e x
0025460 p a n d - D E F M A C R O ) ) \r
0025500 ( A D D T O V A R P R E T T Y
0025520 P R I N T M A C R O S ( D E F
0025540 M A C R O . P P R I N T - D
0025560 E F I N E R ) ) \r e x p a n d -
0025600 D E F V A R D 1 \r ( L ( 1
0025620 $ $ M A C R O - E N V I R O N M
0025640 E N T 0 $ $ M A C R O - F O
0025660 R M ) ) \0 302 \a \0 \0 002 @ 002 \t \0 \0
0025700 021 a 006 @ 271 H 001 272 H 002 [ d 220 001 274 K
0025720 241 h 200 i 275 K 002 264 005 K 002 001 276 g \0 \0
0025740 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J
0025760 h 032 032 h 032 032 h 032 032 M 264 ! g \0 \0 g
0026000 \0 \0 g \0 \0 J h 032 032 h 032 032 g \0 \0 J
0026020 L h 032 032 032 h 032 032 032 h 032 N 264 034 g \0
0026040 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032
0026060 032 N h 032 032 032 h 032 \n \0 \0 032 032 h 032 032
0026100 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0
0026120 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 I h
0026140 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032 g
0026160 \0 \0 J h 032 032 h 032 032 032 032 020 \0 ( 1 7
0026200 7 Q \ A P P E N D 2 4 R E
0026220 M O V E - C O M M E N T S ) \r (
0026240 2 6 6 Q Q U O T E 2 4 2 Q
0026260 Q U O T E 2 2 7 Q Q U O T E
0026300 2 2 4 Q \ D E F I N E - T Y
0026320 P E - S A V E - D E F N 2 2 1
0026340 Q F I L E P K G F L G 2 1 6
0026360 Q A N D 2 0 7 Q E V A L -
0026400 W H E N 1 5 3 Q Q U O T E
0026420 1 5 0 Q D O C U M E N T A T I
0026440 O N 1 4 5 Q S E T F 1 2 3
0026460 Q S E T Q 1 1 1 Q Q U O T
0026500 E 1 0 6 Q B O U N D P 1 0
0026520 3 Q O R 6 3 Q S P E C I A
0026540 L 6 0 Q Q U O T E 5 5 Q
0026560 P R O C L A I M 5 2 Q P R O
0026600 G N 4 7 Q W I T H O U T - F
0026620 I L E P K G 4 4 Q P R O G N
0026640 ) \r ( 2 3 7 Q ( Q U O T E
0026660 V A R I A B L E S ) 2 1 3 Q
0026700 ( C L : E V A L ) 1 6 3 Q (
0026720 ( Q U O T E V A R I A B L E )
0026740 ) ) \r ( S E T F - M A C R O - F
0026760 U N C T I O N ( Q U O T E D
0027000 E F V A R ) ( Q U O T E e x
0027020 p a n d - D E F V A R ) ) \r ( A
0027040 D D T O V A R P R E T T Y P R
0027060 I N T M A C R O S ( D E F V A
0027100 R . P P R I N T - D E F I N
0027120 E R ) ) \r e x p a n d - D E F P
0027140 A R A M E T E R D 1 \r ( L (
0027160 1 $ $ M A C R O - E N V I R O
0027200 N M E N T 0 $ $ M A C R O -
0027220 F O R M ) ) \0 235 006 \0 \0 002 @ 002 \t
0027240 \0 \0 021 Q 005 @ 271 H 001 272 H 002 [ 001 274 K
0027260 002 d 220 001 275 g \0 \0 g \0 \0 g \0 \0 g \0
0027300 \0 g \0 \0 g \0 \0 J h 032 032 h 032 032 h 032
0027320 032 g \0 \0 J L h 032 032 032 M 264 034 g \0 \0
0027340 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032
0027360 M h 032 032 032 h 032 032 032 032 h 032 032 g \0 \0
0027400 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0027420 J h 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h
0027440 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J
0027460 h 032 032 h 032 032 032 032 020 \0 ( 4 R E M
0027500 O V E - C O M M E N T S ) \r ( 2
0027520 2 1 Q Q U O T E 1 7 5 Q Q
0027540 U O T E 1 6 2 Q Q U O T E
0027560 1 5 7 Q \ D E F I N E - T Y P
0027600 E - S A V E - D E F N 1 5 4 Q
0027620 F I L E P K G F L G 1 5 1 Q
0027640 A N D 1 4 2 Q E V A L - W
0027660 H E N 1 1 0 Q Q U O T E 1
0027700 0 5 Q D O C U M E N T A T I O
0027720 N 1 0 2 Q S E T F 6 6 Q
0027740 S E T Q 5 1 Q S P E C I A L
0027760 4 6 Q Q U O T E 4 3 Q P
0030000 R O C L A I M 4 0 Q P R O G
0030020 N 3 5 Q W I T H O U T - F I
0030040 L E P K G 3 2 Q P R O G N )
0030060 \r ( 1 7 2 Q ( Q U O T E V
0030100 A R I A B L E S ) 1 4 6 Q (
0030120 C L : E V A L ) 1 2 0 Q ( (
0030140 Q U O T E V A R I A B L E ) )
0030160 ) \r ( S E T F - M A C R O - F U
0030200 N C T I O N ( Q U O T E D E
0030220 F P A R A M E T E R ) ( Q U O
0030240 T E e x p a n d - D E F P A R
0030260 A M E T E R ) ) \r ( A D D T O V
0030300 A R P R E T T Y P R I N T M A
0030320 C R O S ( D E F P A R A M E T
0030340 E R . P P R I N T - D E F I
0030360 N E R ) ) \r e x p a n d - D E F
0030400 C O N S T A N T D 1 \r ( L (
0030420 1 $ $ M A C R O - E N V I R O
0030440 N M E N T 0 $ $ M A C R O -
0030460 F O R M ) ) \0 250 006 \0 \0 002 @ 002 \t
0030500 \0 \0 021 Q 005 @ 271 H 001 272 H 002 [ 001 274 K
0030520 002 d 220 001 275 g \0 \0 g \0 \0 g \0 \0 g \0
0030540 \0 J L h 032 032 032 g \0 \0 g \0 \0 J h 032
0030560 032 g \0 \0 g \0 \0 J h 032 032 h 032 032 o \0
0030600 \0 \0 032 032 032 M 264 034 g \0 \0 g \0 \0 g \0
0030620 \0 J h 032 032 o \0 \0 \0 032 032 M h 032 032 032
0030640 h 032 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g
0030660 \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o
0030700 \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032 h
0030720 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h 032
0030740 032 032 032 020 \0 ( 4 R E M O V E - C
0030760 O M M E N T S ) \r ( 2 3 4 Q Q
0031000 U O T E 2 1 0 Q Q U O T E
0031020 1 7 5 Q Q U O T E 1 7 2 Q
0031040 \ D E F I N E - T Y P E - S A V
0031060 E - D E F N 1 6 7 Q F I L E
0031100 P K G F L G 1 6 4 Q A N D
0031120 1 5 5 Q E V A L - W H E N 1
0031140 2 3 Q Q U O T E 1 2 0 Q D
0031160 O C U M E N T A T I O N 1 1 5
0031200 Q S E T F 7 1 Q C O N S T
0031220 A N T 6 6 Q Q U O T E 5 7
0031240 Q Q U O T E 5 4 Q P U T H
0031260 A S H 4 3 Q S E T Q 4 0 Q
0031300 P R O G N 3 5 Q W I T H O
0031320 U T - F I L E P K G 3 2 Q P
0031340 R O G N ) \r ( 2 0 5 Q ( Q U
0031360 O T E V A R I A B L E S ) 1
0031400 6 1 Q ( C L : E V A L ) 1 3
0031420 3 Q ( ( Q U O T E V A R I A
0031440 B L E ) ) 1 0 4 Q ( C O M P
0031460 V A R M A C R O H A S H ) ) \r (
0031500 S E T F - M A C R O - F U N C T
0031520 I O N ( Q U O T E D E F C O
0031540 N S T A N T ) ( Q U O T E e
0031560 x p a n d - D E F C O N S T A N
0031600 T ) ) \r ( A D D T O V A R P R
0031620 E T T Y P R I N T M A C R O S
0031640 ( D E F C O N S T A N T . P
0031660 P R I N T - D E F I N E R ) ) \r
0031700 e x p a n d - D E F G L O B A L
0031720 V A R D 1 \r ( L ( 1 $ $ M
0031740 A C R O - E N V I R O N M E N T
0031760 0 $ $ M A C R O - F O R M )
0032000 ) \0 302 \a \0 \0 002 @ 002 \t \0 \0 021 a 006
0032020 @ 271 H 001 272 H 002 [ d 220 001 274 K 241 h 200
0032040 i 275 K 002 264 005 K 002 001 276 g \0 \0 g \0 \0
0032060 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0032100 h 032 032 h 032 032 M 264 ! g \0 \0 g \0 \0 g
0032120 \0 \0 J h 032 032 h 032 032 g \0 \0 J L h 032
0032140 032 032 h 032 032 032 h 032 N 264 034 g \0 \0 g \0
0032160 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032 N h
0032200 032 032 032 h 032 \n \0 \0 032 032 h 032 032 g \0 \0
0032220 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0032240 J h 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h
0032260 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J
0032300 h 032 032 h 032 032 032 032 020 \0 ( 1 7 7 Q
0032320 \ A P P E N D 2 4 R E M O V
0032340 E - C O M M E N T S ) \r ( 2 6 6
0032360 Q Q U O T E 2 4 2 Q Q U O
0032400 T E 2 2 7 Q Q U O T E 2 2
0032420 4 Q \ D E F I N E - T Y P E -
0032440 S A V E - D E F N 2 2 1 Q F
0032460 I L E P K G F L G 2 1 6 Q A
0032500 N D 2 0 7 Q E V A L - W H E
0032520 N 1 5 3 Q Q U O T E 1 5 0
0032540 Q D O C U M E N T A T I O N
0032560 1 4 5 Q S E T F 1 2 3 Q S
0032600 E T Q 1 1 1 Q Q U O T E 1
0032620 0 6 Q B O U N D P 1 0 3 Q
0032640 O R 6 3 Q G L O B A L 6 0
0032660 Q Q U O T E 5 5 Q P R O C
0032700 L A I M 5 2 Q P R O G N 4
0032720 7 Q W I T H O U T - F I L E P
0032740 K G 4 4 Q P R O G N ) \r (
0032760 2 3 7 Q ( Q U O T E V A R I
0033000 A B L E S ) 2 1 3 Q ( C L :
0033020 E V A L ) 1 6 3 Q ( ( Q U O
0033040 T E V A R I A B L E ) ) ) \r (
0033060 S E T F - M A C R O - F U N C T
0033100 I O N ( Q U O T E D E F G L
0033120 O B A L V A R ) ( Q U O T E
0033140 e x p a n d - D E F G L O B A L
0033160 V A R ) ) \r ( A D D T O V A R
0033200 P R E T T Y P R I N T M A C R O
0033220 S ( D E F G L O B A L V A R
0033240 . P P R I N T - D E F I N E R
0033260 ) ) \r e x p a n d - D E F G L O
0033300 B A L P A R A M E T E R D 1 \r
0033320 ( L ( 1 $ $ M A C R O - E N
0033340 V I R O N M E N T 0 $ $ M A
0033360 C R O - F O R M ) ) \0 235 006 \0 \0
0033400 002 @ 002 \t \0 \0 021 Q 005 @ 271 H 001 272 H 002
0033420 [ 001 274 K 002 d 220 001 275 g \0 \0 g \0 \0 g
0033440 \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h
0033460 032 032 h 032 032 g \0 \0 J L h 032 032 032 M 264
0033500 034 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0
0033520 \0 \0 032 032 M h 032 032 032 h 032 032 032 032 h 032
0033540 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0
0033560 \0 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 I
0033600 h 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032
0033620 g \0 \0 J h 032 032 h 032 032 032 032 020 \0 ( 4
0033640 R E M O V E - C O M M E N T S
0033660 ) \r ( 2 2 1 Q Q U O T E 1 7
0033700 5 Q Q U O T E 1 6 2 Q Q U
0033720 O T E 1 5 7 Q \ D E F I N E
0033740 - T Y P E - S A V E - D E F N
0033760 1 5 4 Q F I L E P K G F L G
0034000 1 5 1 Q A N D 1 4 2 Q E V
0034020 A L - W H E N 1 1 0 Q Q U O
0034040 T E 1 0 5 Q D O C U M E N T
0034060 A T I O N 1 0 2 Q S E T F
0034100 6 6 Q S E T Q 5 1 Q G L O
0034120 B A L 4 6 Q Q U O T E 4 3
0034140 Q P R O C L A I M 4 0 Q P
0034160 R O G N 3 5 Q W I T H O U T
0034200 - F I L E P K G 3 2 Q P R O
0034220 G N ) \r ( 1 7 2 Q ( Q U O T
0034240 E V A R I A B L E S ) 1 4 6
0034260 Q ( C L : E V A L ) 1 2 0 Q
0034300 ( ( Q U O T E V A R I A B L
0034320 E ) ) ) \r ( S E T F - M A C R O
0034340 - F U N C T I O N ( Q U O T E
0034360 D E F G L O B A L P A R A M E
0034400 T E R ) ( Q U O T E e x p a
0034420 n d - D E F G L O B A L P A R A
0034440 M E T E R ) ) \r ( A D D T O V A
0034460 R P R E T T Y P R I N T M A C
0034500 R O S ( D E F G L O B A L P A
0034520 R A M E T E R . P P R I N T
0034540 - D E F I N E R ) ) \r ( P U T P
0034560 R O P S M A C R O - F N P R
0034600 O P T Y P E F U N C T I O N S
0034620 ) \r ( P U T P R O P S C M L D
0034640 E F F E R F I L E T Y P E C
0034660 O M P I L E - F I L E ) \r ( P U
0034700 T P R O P S C M L D E F F E R
0034720 C O P Y R I G H T ( " X e r
0034740 o x C o r p o r a t i o n "
0034760 1 9 8 6 1 9 0 0 ) ) \r N I L \r
0035000