$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLDEFFER.DCOM!24
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 (
0000100 F I L E C R E A T E D " 2 5 -
0000120 O c t - 8 6 2 3 : 1 3 : 3 5 "
0000140 ( " c o m p i l e d o n "
0000160 { E R I S } < L I S P C O R E
0000200 > S O U R C E S > C M L D E F F
0000220 E R . ; 2 4 ) \r " 2 1 - O c t
0000240 - 8 6 0 4 : 1 3 : 0 1 " " C
0000260 O M P I L E - F I L E d " i n
0000300 " X e r o x L i s p 2 1 -
0000320 O c t - 8 6 . . . " d a t e
0000340 d " 2 1 - O c t - 8 6 0 4 :
0000360 4 8 : 4 3 " ) \r ( F I L E C R E
0000400 A T E D " 2 5 - O c t - 8 6
0000420 2 3 : 1 3 : 1 9 " { E R I S }
0000440 < L I S P C O R E > S O U R C E
0000460 S > C M L D E F F E R . ; 2 4
0000500 1 6 8 5 1 c h a n g e s t o
0000520 % : ( F N S \r \ D E F I N E
0000540 - T Y P E - D E L D E F \ D E
0000560 F I N E - T Y P E - G E T D E F
0000600 ) ( D E F I N E - T Y P E S
0000620 D E F I N E - T Y P E S ) ( F
0000640 U N C T I O N S D E F D E F I
0000660 N E R \r D E F - D E F I N E -
0000700 T Y P E ) ( V A R S C M L D
0000720 E F F E R C O M S ) p r e v i
0000740 o u s d a t e % : " 2 1 - O
0000760 c t - 8 6 1 4 : 3 5 : 2 2 "
0001000 \r { E R I S } < L I S P C O R E
0001020 > S O U R C E S > C M L D E F F
0001040 E R . ; 2 1 ) \r ( R P A Q Q C
0001060 M L D E F F E R C O M S ( ( *
0001100 ; ; ; \r " D E F - D E F I N
0001120 E - T Y P E a n d D E F D E
0001140 F I N E R - - P r o v i d e
0001160 s c u s t o m i z e d F i l
0001200 e M a n a g e r f a c i l i
0001220 t i e s . " ) ( * ; ; \r "
0001240 B E V E R Y C A R E F U L
0001260 C H A N G I N G A N Y T H I N
0001300 G I N T H I S F I L E ! !
0001320 ! I t i s s e l f - r e
0001340 f e r e n t i a l a n d h a
0001360 s m a n y b o o t s t r a
0001400 p p i n g p r o b l e m s .
0001420 E v e n t r i v i a l c h
0001440 a n g e s a r e v e r y t
0001460 r i c k y t o m a k e w i
0001500 t h o u t b l o w i n g y o
0001520 u r s e l f o u t o f t h
0001540 e w a t e r . . . " \r ) ( C
0001560 O M S ( I N I T V A R S ( F
0001600 I L E P K G F L G ) ) ( C O M
0001620 S ( F N S P P R I N T - D E
0001640 F I N E R \ D E F I N E - T Y
0001660 P E - G E T D E F \ D E F I N
0001700 E - T Y P E - D E L D E F \r R
0001720 E M O V E - C O M M E N T S )
0001740 ( F U N C T I O N S \ D E F I
0001760 N E - T Y P E - S A V E - D E F
0002000 N ) ) ) ( V A R I A B L E S
0002020 * D E F I N I T I O N - H A S H
0002040 - T A B L E * ) ( \r D E F I N
0002060 E - T Y P E S D E F I N E - T
0002100 Y P E S F U N C T I O N S V
0002120 A R I A B L E S ) ( F U N C T
0002140 I O N S D E F D E F I N E R
0002160 D E F - D E F I N E - T Y P E
0002200 W I T H O U T - F I L E P K G )
0002220 \r ( F U N C T I O N S C L :
0002240 D E F U N D E F I N L I N E
0002260 D E F M A C R O ) ( F U N C T
0002300 I O N S C L : D E F V A R C
0002320 L : D E F P A R A M E T E R C
0002340 L : D E F C O N S T A N T \r D
0002360 E F G L O B A L V A R D E F G
0002400 L O B A L P A R A M E T E R )
0002420 ( * ; ; " D o n ' t n o t
0002440 e f i l e p a c k a g e c
0002460 h a n g e s t o m a c r o -
0002500 f n . " ) ( P R O P P R O P
0002520 T Y P E \r M A C R O - F N )
0002540 ( * ; ; " A r r a n g e f
0002560 o r t h e c o r r e c t c
0002600 o m p i l e r t o b e u s
0002620 e d . " ) ( P R O P F I L E
0002640 T Y P E C M L D E F F E R ) )
0002660 ) \r ( R P A Q ? F I L E P K G
0002700 F L G ) \r P P R I N T - D E F I
0002720 N E R D 1 \r ( P 3 % # R P
0002740 A R S P 2 C U R R E N T
0002760 P 1 D E F I N E D P 0
0003000 D E F I N E R I 0 D E F I
0003020 N E - E X P R E S S I O N F
0003040 4 P R E T T Y C O M F O N T
0003060 F 5 D E F A U L T F O N T
0003100 F 6 C O M M E N T F L G )
0003120 \0 311 004 003 \0 001 @ 001 @ 002 b \0 001 @ 002 b
0003140 \0 277 \b \0 \0 021 023 003 o \0 \0 \0 \t \0 \0 277
0003160 H \t \0 \0 277 k \t \0 \0 I 003 262 0 o \0 \0
0003200 \0 \t \0 \0 277 T \t \0 \0 277 I 001 \t \0 \0 277
0003220 U \t \0 \0 277 k \t \0 \0 277 I 002 i d d \f
0003240 \0 \0 277 o \0 \0 \0 \t \0 \0 215 T \t \0 \0 277
0003260 I \t \0 \0 277 U \t \0 \0 277 @ d 001 003 262 025
0003300 277 k \t \0 \0 277 @ 001 @ 002 b \0 277 i \n \0
0003320 \0 277 @ 001 005 \a 251 @ d 001 003 001 V 360 262 026
0003340 277 k \t \0 \0 277 @ 001 @ 002 b \0 277 i d \v
0003360 \0 \0 277 @ i d \v \0 \0 253 \b \0 \0 277 J \t
0003400 \0 \0 277 l 003 200 k \t \0 \0 277 @ i d d \f
0003420 \0 \0 o \0 \0 \0 \t \0 \0 h \t \0 \0 020 \0 (
0003440 1 9 8 T E R P R I 1 9 4 P
0003460 R I N 1 1 8 7 P R I N T D E
0003500 F 1 7 9 S P A C E S 1 7 1
0003520 D S P X P O S I T I O N 1 6
0003540 6 T E R P R I 1 6 2 F I T
0003560 P 1 5 5 P R I N T D E F 1
0003600 4 2 S P A C E S 1 2 2 P R
0003620 I N T D E F 1 1 0 S P A C E
0003640 S 9 8 C H A N G E F O N T
0003660 9 3 P R I N 2 8 8 C H A N
0003700 G E F O N T 8 3 P R I N 1
0003720 7 5 P R I N T D E F 6 6 S
0003740 P A C E S 6 1 C H A N G E F
0003760 O N T 5 6 P R I N 2 5 0
0004000 C H A N G E F O N T 4 5 P R
0004020 I N 1 3 4 S P A C E S 2 9
0004040 P R I N 2 2 4 P R I N 1
0004060 1 4 D S P X P O S I T I O N )
0004100 \r N I L \r ( 1 9 1 " ) " 8
0004120 0 " ) " 4 2 " ( " 2 1
0004140 " ( " ) \r \ D E F I N E - T Y P
0004160 E - G E T D E F D 1 \r ( P 0
0004200 C L : H A S H - T A B L E I
0004220 2 O P T I O N S I 1 T
0004240 Y P E I 0 N A M E ) \0 024
0004260 001 \0 \0 003 A ` \0 \0 \n \0 \0 021 001 \0 H 264
0004300 \a @ H \n \0 \0 020 \0 ( 1 7 C L : G
0004320 E T H A S H 6 C L : G E T H
0004340 A S H ) \r ( 3 * D E F I N I T
0004360 I O N - H A S H - T A B L E * )
0004400 \r ( ) \r \ D E F I N E - T Y P E
0004420 - D E L D E F D 1 \r ( P 1
0004440 F N P 0 H T I 1 T Y
0004460 P E I 0 N A M E ) \0 - 002
0004500 \0 \0 002 A ` \0 \0 \n \0 \0 021 001 \0 H 225 @
0004520 H \n \0 \0 277 A 301 002 311 \0 g \0 \0 ' 212 d
0004540 001 021 001 001 @ k I 016 023 002 003 265 364 h 020 \0
0004560 ( 1 6 R E M H A S H 6 C L
0004600 : G E T H A S H ) \r ( 2 5 U N
0004620 D E F I N E R S 3 * D E F I
0004640 N I T I O N - H A S H - T A B L
0004660 E * ) \r ( ) \r R E M O V E - C O
0004700 M M E N T S D 1 \r ( I 0 X
0004720 F 2 C O M M E N T F L G )
0004740 \0 2 002 001 \0 001 @ 003 265 004 @ 020 001 003 001
0004760 R 360 225 @ 002 b \0 260 361 @ 001 \t \0 \0 @ 002
0005000 \t \0 \0 021 002 001 H d @ 001 360 230 277 I @ 002
0005020 360 221 @ 020 H I 032 020 \0 ( 2 7 R E M
0005040 O V E - C O M M E N T S 2 2
0005060 R E M O V E - C O M M E N T S )
0005100 \r N I L \r ( ) \r \ D E F I N E -
0005120 T Y P E - S A V E - D E F N D
0005140 1 \r ( L ( 2 D E F I N I T I
0005160 O N 1 T Y P E 0 N A M E
0005200 ) ) \0 [ \a \0 \0 003 @ 004 l 004 360 225 @
0005220 A \n \0 \0 277 A ` \0 \0 \n \0 \0 021 a 006 H
0005240 263 - o \0 \0 \0 A \n \0 \0 277 A 273 ` \0 \0
0005260 272 g \0 \0 g \0 \0 g \0 \0 l 2 g \0 \0 l
0005300 2 \r 006 \0 \0 271 K J I \v \0 \0 270 @ 276 H
0005320 275 B 274 N M L \v \0 \0 023 @ A g \0 \0 \v
0005340 \0 \0 020 \0 ( 8 8 M A R K A S C H
0005360 A N G E D 7 9 C L : : P U T
0005400 H A S H 6 6 C L : : P U T H
0005420 A S H 5 9 C L : M A K E - H
0005440 A S H - T A B L E 3 2 C L :
0005460 W A R N 1 8 C L : G E T H A
0005500 S H 1 0 R E M P R O P ) \r (
0005520 8 5 C H A N G E D 5 3 : R
0005540 E H A S H - S I Z E 4 8 : S
0005560 I Z E 4 5 C L : E Q U A L
0005600 4 2 : T E S T 3 8 * D E F
0005620 I N I T I O N - H A S H - T A B
0005640 L E * 1 5 * D E F I N I T I
0005660 O N - H A S H - T A B L E * ) \r
0005700 ( 2 8 " C o u l d n ' t f
0005720 i n d a h a s h - t a b l e
0005740 f o r ~ S d e f i n i t i
0005760 o n s . ~ % % O n e w i l l
0006000 b e c r e a t e d . " ) \r ( C
0006020 L : P R O C L A I M ( Q U O T
0006040 E ( G L O B A L * D E F I N
0006060 I T I O N - H A S H - T A B L E
0006100 * ) ) ) \r ( O R ( B O U N D P
0006120 ( Q U O T E * D E F I N I T
0006140 I O N - H A S H - T A B L E * )
0006160 ) ( S E T Q * D E F I N I T
0006200 I O N - H A S H - T A B L E *
0006220 ( H A S H A R R A Y 2 0 ) ) )
0006240 \r ( L E T * ( ( A 2 8 3 5 (
0006260 Q U O T E D E F I N E - T Y P
0006300 E S ) ) ( A 2 8 3 6 ( Q U O
0006320 T E D E F I N E - T Y P E S )
0006340 ) ( A 2 8 3 7 ( Q U O T E
0006360 " D e f i n i t i o n t y p e
0006400 " ) ) ) ( \r P R O G N ( C O
0006420 N D ( ( C L : F B O U N D P
0006440 ( Q U O T E S E T - D O C U M
0006460 E N T A T I O N ) ) ( S E T -
0006500 D O C U M E N T A T I O N A 2
0006520 8 3 5 A 2 8 3 6 A 2 8 3 7 )
0006540 ) ) A 2 8 3 7 ) ) \r ( S E T Q
0006560 P R E T T Y D E F M A C R O S
0006600 ( C O N S ( Q U O T E ( D
0006620 E F I N E - T Y P E S X ( P
0006640 * ( M A P C A R ( Q U O T
0006660 E X ) ( F U N C T I O N (
0006700 L A M B D A ( I T E M ) ( \r
0006720 C L : D O ( ( D E F ( G E T
0006740 D E F I T E M ( Q U O T E
0006760 D E F I N E - T Y P E S ) ) ) )
0007000 ( D E F D E F ) ( C L : C
0007020 E R R O R " R e - f e t c h
0007040 t h e d e f i n i t i o n "
0007060 \r " N o ~ S d e f i n i t i
0007100 o n f o r ~ S " ( Q U O T
0007120 E D E F I N E - T Y P E S )
0007140 I T E M ) ) ) ) ) ) ) ) P R E
0007160 T T Y D E F M A C R O S ) ) \r (
0007200 S E T Q P R E T T Y T Y P E L
0007220 S T ( C O N S ( Q U O T E
0007240 ( A 2 8 3 4 D E F I N E - T Y
0007260 P E S " D e f i n i t i o n
0007300 t y p e " ) ) P R E T T Y T Y
0007320 P E L S T ) ) \r ( C L : P R O C
0007340 L A I M ( Q U O T E ( G L O
0007360 B A L A 2 8 3 4 ) ) ) \r ( O R
0007400 ( B O U N D P ( Q U O T E
0007420 A 2 8 3 4 ) ) ( S E T Q A 2
0007440 8 3 4 N I L ) ) \r ( C O N D
0007460 ( ( N O T ( C L : G E T H A S
0007500 H ( Q U O T E D E F I N E -
0007520 T Y P E S ) * D E F I N I T I
0007540 O N - H A S H - T A B L E * ) )
0007560 ( L E T * ( ( A 2 8 3 8 (
0007600 Q U O T E \r D E F I N E - T Y
0007620 P E S ) ) ( A 2 8 3 9 * D E
0007640 F I N I T I O N - H A S H - T A
0007660 B L E * ) ( A 2 8 4 1 ( C L
0007700 : M A K E - H A S H - T A B L E
0007720 : T E S T ( Q U O T E C L
0007740 : E Q U A L ) : S I Z E \r 5
0007760 0 : R E H A S H - S I Z E 5
0010000 0 ) ) ) ( C L : : P U T H A S
0010020 H A 2 8 3 8 A 2 8 3 9 A 2
0010040 8 4 1 ) ) ) ) \r ( S E T Q F I
0010060 L E P K G T Y P E S ( C L : A
0010100 D J O I N ( Q U O T E D E F
0010120 I N E - T Y P E S ) F I L E P
0010140 K G T Y P E S ) ) \r ( L E T *
0010160 ( ( A 2 8 4 2 ( Q U O T E D
0010200 E F I N E - T Y P E S ) ) ( A
0010220 2 8 4 3 ( Q U O T E G E T D
0010240 E F ) ) ( A 2 8 4 5 ( Q U O
0010260 T E \ D E F I N E - T Y P E -
0010300 G E T D E F ) ) ) ( \r P U T P
0010320 R O P A 2 8 4 2 A 2 8 4 3
0010340 A 2 8 4 5 ) ) \r ( L E T * ( (
0010360 A 2 8 4 6 ( Q U O T E D E F
0010400 I N E - T Y P E S ) ) ( A 2 8
0010420 4 7 ( Q U O T E D E L D E F
0010440 ) ) ( A 2 8 4 9 ( Q U O T E
0010460 \ D E F I N E - T Y P E - D E
0010500 L D E F ) ) ) ( \r P U T P R O
0010520 P A 2 8 4 6 A 2 8 4 7 A 2
0010540 8 4 9 ) ) \r ( L E T * ( ( A 2
0010560 8 5 0 ( Q U O T E D E F I N
0010600 E - T Y P E S ) ) ( A 2 8 5 1
0010620 ( Q U O T E F I L E P K G C
0010640 O N T E N T S ) ) ( A 2 8 5 3
0010660 ( Q U O T E N I L L ) ) )
0010700 ( P U T P R O P \r A 2 8 5 0
0010720 A 2 8 5 1 A 2 8 5 3 ) ) \r ( L
0010740 E T * ( ( A 2 8 5 4 ( Q U O
0010760 T E D E F I N E - T Y P E S )
0011000 ) ( A 2 8 5 5 ( Q U O T E
0011020 U N D E F I N E R S ) ) ( A 2
0011040 8 5 7 ( Q U O T E U N D E F
0011060 I N E R ) ) ) ( P U T P R O P
0011100 \r A 2 8 5 4 A 2 8 5 5 A 2
0011120 8 5 7 ) ) \r ( L E T * ( ( A 2
0011140 8 5 9 ( Q U O T E F U N C T
0011160 I O N S ) ) ( A 2 8 6 0 ( Q
0011200 U O T E D E F I N E - T Y P E
0011220 S ) ) ( A 2 8 6 1 ( Q U O T
0011240 E " C o m m o n L i s p f
0011260 u n c t i o n s " ) ) ) \r ( P
0011300 R O G N ( C O N D ( ( C L :
0011320 F B O U N D P ( Q U O T E S
0011340 E T - D O C U M E N T A T I O N
0011360 ) ) ( S E T - D O C U M E N T
0011400 A T I O N A 2 8 5 9 A 2 8 6
0011420 0 A 2 8 6 1 ) ) ) A 2 8 6 1
0011440 ) ) \r ( S E T Q P R E T T Y D
0011460 E F M A C R O S ( C O N S (
0011500 Q U O T E ( F U N C T I O N S
0011520 X ( P * ( M A P C A R
0011540 ( Q U O T E X ) ( F U N C T
0011560 I O N ( L A M B D A ( I T E
0011600 M ) ( C L : D O \r ( ( D E F
0011620 ( G E T D E F I T E M ( Q
0011640 U O T E F U N C T I O N S ) )
0011660 ) ) ( D E F D E F ) ( C L
0011700 : C E R R O R " R e - f e t c
0011720 h t h e d e f i n i t i o n
0011740 " \r " N o ~ S d e f i n i
0011760 t i o n f o r ~ S " ( Q U
0012000 O T E F U N C T I O N S ) I
0012020 T E M ) ) ) ) ) ) ) ) P R E T
0012040 T Y D E F M A C R O S ) ) \r ( S
0012060 E T Q P R E T T Y T Y P E L S
0012100 T ( C O N S ( Q U O T E (
0012120 A 2 8 5 8 F U N C T I O N S
0012140 " C o m m o n L i s p f u n
0012160 c t i o n s " ) ) P R E T T Y
0012200 T Y P E L S T ) ) \r ( C L : P R
0012220 O C L A I M ( Q U O T E ( G
0012240 L O B A L A 2 8 5 8 ) ) ) \r (
0012260 O R ( B O U N D P ( Q U O T
0012300 E A 2 8 5 8 ) ) ( S E T Q
0012320 A 2 8 5 8 N I L ) ) \r ( C O N
0012340 D ( ( N O T ( C L : G E T H
0012360 A S H ( Q U O T E F U N C T
0012400 I O N S ) * D E F I N I T I O
0012420 N - H A S H - T A B L E * ) )
0012440 ( L E T * ( ( A 2 8 6 2 ( Q
0012460 U O T E F U N C T I O N S ) )
0012500 ( \r A 2 8 6 3 * D E F I N I
0012520 T I O N - H A S H - T A B L E *
0012540 ) ( A 2 8 6 5 ( C L : M A K
0012560 E - H A S H - T A B L E : T E
0012600 S T ( Q U O T E C L : E Q U
0012620 A L ) : S I Z E 5 0 : R E
0012640 H A S H - S I Z E \r 5 0 ) ) )
0012660 ( C L : : P U T H A S H A 2
0012700 8 6 2 A 2 8 6 3 A 2 8 6 5 )
0012720 ) ) ) \r ( S E T Q F I L E P K
0012740 G T Y P E S ( C L : A D J O I
0012760 N ( Q U O T E F U N C T I O
0013000 N S ) F I L E P K G T Y P E S
0013020 ) ) \r ( L E T * ( ( A 2 8 6 6
0013040 ( Q U O T E F U N C T I O N
0013060 S ) ) ( A 2 8 6 7 ( Q U O T
0013100 E G E T D E F ) ) ( A 2 8 6
0013120 9 ( Q U O T E \ D E F I N E
0013140 - T Y P E - G E T D E F ) ) )
0013160 ( P U T P R O P \r A 2 8 6 6
0013200 A 2 8 6 7 A 2 8 6 9 ) ) \r ( L
0013220 E T * ( ( A 2 8 7 0 ( Q U O
0013240 T E F U N C T I O N S ) ) (
0013260 A 2 8 7 1 ( Q U O T E D E L
0013300 D E F ) ) ( A 2 8 7 3 ( Q U
0013320 O T E \ D E F I N E - T Y P E
0013340 - D E L D E F ) ) ) ( P U T P
0013360 R O P \r A 2 8 7 0 A 2 8 7 1
0013400 A 2 8 7 3 ) ) \r ( L E T * (
0013420 ( A 2 8 7 4 ( Q U O T E F U
0013440 N C T I O N S ) ) ( A 2 8 7 5
0013460 ( Q U O T E F I L E P K G C
0013500 O N T E N T S ) ) ( A 2 8 7 7
0013520 ( Q U O T E N I L L ) ) )
0013540 ( P U T P R O P A 2 8 7 4 \r
0013560 A 2 8 7 5 A 2 8 7 7 ) ) \r ( L
0013600 E T * ( ( A 2 8 7 8 ( Q U O
0013620 T E F U N C T I O N S ) ) (
0013640 A 2 8 7 9 ( Q U O T E U N D
0013660 E F I N E R S ) ) ( A 2 8 8 1
0013700 ( Q U O T E U N D E F I N E
0013720 R ) ) ) ( P U T P R O P A 2
0013740 8 7 8 \r A 2 8 7 9 A 2 8 8 1
0013760 ) ) \r ( L E T * ( ( A 2 8 8 3
0014000 ( Q U O T E V A R I A B L E
0014020 S ) ) ( A 2 8 8 4 ( Q U O T
0014040 E D E F I N E - T Y P E S ) )
0014060 ( A 2 8 8 5 ( Q U O T E "
0014100 C o m m o n L i s p v a r i
0014120 a b l e s " ) ) ) \r ( P R O G
0014140 N ( C O N D ( ( C L : F B O
0014160 U N D P ( Q U O T E S E T -
0014200 D O C U M E N T A T I O N ) )
0014220 ( S E T - D O C U M E N T A T I
0014240 O N A 2 8 8 3 A 2 8 8 4 A
0014260 2 8 8 5 ) ) ) A 2 8 8 5 ) ) \r
0014300 ( S E T Q P R E T T Y D E F M
0014320 A C R O S ( C O N S ( Q U O
0014340 T E ( V A R I A B L E S X
0014360 ( P * ( M A P C A R ( Q U
0014400 O T E X ) ( F U N C T I O N
0014420 ( L A M B D A ( I T E M )
0014440 ( C L : D O \r ( ( D E F ( G
0014460 E T D E F I T E M ( Q U O T
0014500 E V A R I A B L E S ) ) ) )
0014520 ( D E F D E F ) ( C L : C E
0014540 R R O R " R e - f e t c h t
0014560 h e d e f i n i t i o n " \r
0014600 " N o ~ S d e f i n i t i o
0014620 n f o r ~ S " ( Q U O T E
0014640 V A R I A B L E S ) I T E M
0014660 ) ) ) ) ) ) ) ) P R E T T Y D
0014700 E F M A C R O S ) ) \r ( S E T Q
0014720 P R E T T Y T Y P E L S T (
0014740 C O N S ( Q U O T E ( A 2 8
0014760 8 2 V A R I A B L E S " C o
0015000 m m o n L i s p v a r i a b
0015020 l e s " ) ) P R E T T Y T Y P
0015040 E L S T ) ) \r ( C L : P R O C L
0015060 A I M ( Q U O T E ( G L O B
0015100 A L A 2 8 8 2 ) ) ) \r ( O R
0015120 ( B O U N D P ( Q U O T E A
0015140 2 8 8 2 ) ) ( S E T Q A 2 8
0015160 8 2 N I L ) ) \r ( C O N D (
0015200 ( N O T ( C L : G E T H A S H
0015220 ( Q U O T E V A R I A B L E
0015240 S ) * D E F I N I T I O N - H
0015260 A S H - T A B L E * ) ) ( L E
0015300 T * ( ( A 2 8 8 6 ( Q U O T
0015320 E V A R I A B L E S ) ) ( \r
0015340 A 2 8 8 7 * D E F I N I T I O
0015360 N - H A S H - T A B L E * ) (
0015400 A 2 8 8 9 ( C L : M A K E - H
0015420 A S H - T A B L E : T E S T
0015440 ( Q U O T E C L : E Q U A L )
0015460 : S I Z E 5 0 : R E H A S
0015500 H - S I Z E \r 5 0 ) ) ) ( C
0015520 L : : P U T H A S H A 2 8 8 6
0015540 A 2 8 8 7 A 2 8 8 9 ) ) ) )
0015560 \r ( S E T Q F I L E P K G T Y
0015600 P E S ( C L : A D J O I N (
0015620 Q U O T E V A R I A B L E S )
0015640 F I L E P K G T Y P E S ) ) \r
0015660 ( L E T * ( ( A 2 8 9 0 ( Q
0015700 U O T E V A R I A B L E S ) )
0015720 ( A 2 8 9 1 ( Q U O T E G
0015740 E T D E F ) ) ( A 2 8 9 3 (
0015760 Q U O T E \ D E F I N E - T Y
0016000 P E - G E T D E F ) ) ) ( P U
0016020 T P R O P \r A 2 8 9 0 A 2 8
0016040 9 1 A 2 8 9 3 ) ) \r ( L E T *
0016060 ( ( A 2 8 9 4 ( Q U O T E
0016100 V A R I A B L E S ) ) ( A 2 8
0016120 9 5 ( Q U O T E D E L D E F
0016140 ) ) ( A 2 8 9 7 ( Q U O T E
0016160 \ D E F I N E - T Y P E - D E
0016200 L D E F ) ) ) ( P U T P R O P
0016220 \r A 2 8 9 4 A 2 8 9 5 A 2
0016240 8 9 7 ) ) \r ( L E T * ( ( A 2
0016260 8 9 8 ( Q U O T E V A R I A
0016300 B L E S ) ) ( A 2 8 9 9 ( Q
0016320 U O T E F I L E P K G C O N T
0016340 E N T S ) ) ( A 2 9 0 1 ( Q
0016360 U O T E N I L L ) ) ) ( P U
0016400 T P R O P A 2 8 9 8 \r A 2 8
0016420 9 9 A 2 9 0 1 ) ) \r ( L E T *
0016440 ( ( A 2 9 0 2 ( Q U O T E
0016460 V A R I A B L E S ) ) ( A 2 9
0016500 0 3 ( Q U O T E U N D E F I
0016520 N E R S ) ) ( A 2 9 0 5 ( Q
0016540 U O T E U N D E F I N E R ) )
0016560 ) ( P U T P R O P A 2 9 0 2
0016600 \r A 2 9 0 3 A 2 9 0 5 ) ) \r
0016620 ( L E T * ( ( A 2 9 0 6 ( Q
0016640 U O T E D E F D E F I N E R )
0016660 ) ( A 2 9 0 7 ( Q U O T E
0016700 D E F I N E R - F O R ) ) ( A
0016720 2 9 0 9 ( Q U O T E F U N C
0016740 T I O N S ) ) ) ( P U T P R O
0016760 P \r A 2 9 0 6 A 2 9 0 7 A
0017000 2 9 0 9 ) ) \r ( L E T * ( ( A
0017020 2 9 1 0 ( Q U O T E F U N C
0017040 T I O N S ) ) ( A 2 9 1 1 (
0017060 Q U O T E D E F I N E D - B Y
0017100 ) ) ( A 2 9 1 3 ( C L : A D
0017120 J O I N ( Q U O T E D E F D
0017140 E F I N E R ) ( G E T \r A 2
0017160 9 1 0 A 2 9 1 1 ) ) ) ) ( P
0017200 U T P R O P A 2 9 1 0 A 2 9
0017220 1 1 A 2 9 1 3 ) ) \r e x p a n
0017240 d - D E F D E F I N E R D 1 \r
0017260 ( L ( 1 $ $ M A C R O - E N
0017300 V I R O N M E N T 0 $ $ M A
0017320 C R O - F O R M ) ) 001 o \v \0 \0
0017340 002 @ 002 \t \0 \0 021 241 \n @ 271 H 001 272 H 002
0017360 [ 001 274 K 002 ] 001 276 M 002 A i \v \0 \0 \t
0017400 \0 \0 _ 016 001 _ 020 277 O 016 002 001 _ 022 277 O
0017420 016 002 002 001 _ 024 277 g \0 \0 g \0 \0 g \0 \0
0017440 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0
0017460 \0 032 032 g \0 \0 L h 032 032 h 032 032 032 g \0
0017500 \0 g \0 \0 J h 032 032 g \0 \0 g \0 \0 L h
0017520 032 032 o \0 \0 \0 032 032 h 032 032 032 g \0 \0 J
0017540 g \0 \0 g \0 \0 N 032 032 O 022 g \0 \0 g \0
0017560 \0 g \0 \0 g \0 \0 g \0 \0 O 020 032 h 032 032
0017600 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0017620 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0
0017640 L h 032 032 h 032 032 h 032 032 o \0 \0 \0 032 032
0017660 032 h 032 032 032 h 032 032 032 o \0 \0 \0 032 032 032
0017700 h 032 032 h 032 \n \0 \0 032 032 032 g \0 \0 g \0
0017720 \0 g \0 \0 J g \0 \0 032 h 032 032 032 h 032 032
0017740 O 024 264 035 g \0 \0 g \0 \0 g \0 \0 J h 032
0017760 032 o \0 \0 \0 032 032 O 024 h 032 032 032 h 032 g
0020000 \0 \0 J h 032 032 h 032 \n \0 \0 032 032 032 032 032
0020020 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0020040 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g \0
0020060 \0 I h 032 032 h 032 032 032 032 h 032 032 032 h 032
0020100 032 032 g \0 \0 J h 032 032 h 032 032 032 032 020 \0
0020120 ( 2 9 7 \ A P P E N D 2 2 3
0020140 0 \ A P P E N D 2 3 2 \ M
0020160 V L I S T 2 9 P A R S E - B
0020200 O D Y 4 R E M O V E - C O M
0020220 M E N T S ) \r ( 3 5 5 Q U O T
0020240 E 3 3 5 Q U O T E 3 2 4
0020260 Q U O T E 3 2 1 \ D E F I N
0020300 E - T Y P E - S A V E - D E F N
0020320 3 1 8 F I L E P K G F L G
0020340 3 1 5 A N D 3 0 8 C L : E
0020360 V A L - W H E N 2 8 8 Q U O
0020400 T E 2 6 7 Q U O T E 2 6 4
0020420 C L : D O C U M E N T A T I O
0020440 N 2 6 1 C L : S E T F 2 4
0020460 6 P P R I N T - D E F I N E R
0020500 2 4 2 P R E T T Y P R I N T
0020520 M A C R O S 2 3 9 A D D T O
0020540 V A R 2 3 6 W I T H O U T -
0020560 F I L E P K G 1 9 0 Q U O T
0020600 E 1 8 7 \ , 1 8 4 Q U O
0020620 T E 1 7 7 \ D E F I N E - T
0020640 Y P E - S A V E - D E F N 1 7
0020660 4 F I L E P K G F L G 1 7 1
0020700 A N D 1 6 4 C L : E V A L
0020720 - W H E N 1 5 2 P R O G N
0020740 1 4 9 \ , 1 4 6 W I T H O
0020760 U T - F I L E P K G 1 4 3 P
0021000 R O G N 1 4 0 B Q U O T E
0021020 1 3 2 % % O R I G I N A L - D
0021040 E F I N I T I O N 1 2 9 & W
0021060 H O L E 1 2 5 D E F M A C R
0021100 O 1 0 8 Q U O T E 1 0 5
0021120 G E T 9 8 Q U O T E 9 5
0021140 C L : P U S H N E W 8 4 Q U
0021160 O T E 7 1 Q U O T E 6 8
0021200 G E T 6 5 C L : S E T F 6
0021220 2 P R O G N 5 9 W I T H O
0021240 U T - F I L E P K G 5 6 P R
0021260 O G N ) \r ( 3 3 2 ( Q U O T
0021300 E F U N C T I O N S ) 3 1 2
0021320 ( C L : E V A L ) 2 7 5 (
0021340 ( Q U O T E C L : F U N C T I
0021360 O N ) ) 2 1 9 ( ( Q U O T E
0021400 ( \ , N A M E ) ) ) 2 0 4
0021420 ( ( Q U O T E ( \ , % % O
0021440 R I G I N A L - D E F I N I T I
0021460 O N ) ) ) \r 1 8 1 ( Q U O T
0021500 E ( \ , N A M E ) ) 1 6 8
0021520 ( C L : E V A L ) 1 1 6 (
0021540 ( Q U O T E D E F I N E D - B
0021560 Y ) ) 7 9 ( ( Q U O T E D
0021600 E F I N E R - F O R ) ) ) \r ( S
0021620 E T F - M A C R O - F U N C T I
0021640 O N ( Q U O T E D E F D E F
0021660 I N E R ) ( Q U O T E e x p
0021700 a n d - D E F D E F I N E R ) )
0021720 \r ( A D D T O V A R P R E T T
0021740 Y P R I N T M A C R O S ( D E
0021760 F D E F I N E R . P P R I N
0022000 T - D E F I N E R ) ) \r ( L E T
0022020 * ( ( A 2 9 2 2 ( Q U O T E
0022040 D E F - D E F I N E - T Y P E
0022060 ) ) ( A 2 9 2 3 ( Q U O T E
0022100 D E F I N E R - F O R ) ) (
0022120 A 2 9 2 5 ( Q U O T E D E F
0022140 I N E - T Y P E S ) ) ) ( \r P
0022160 U T P R O P A 2 9 2 2 A 2 9
0022200 2 3 A 2 9 2 5 ) ) \r ( L E T *
0022220 ( ( A 2 9 2 6 ( Q U O T E
0022240 D E F I N E - T Y P E S ) ) (
0022260 A 2 9 2 7 ( Q U O T E D E F
0022300 I N E D - B Y ) ) ( A 2 9 2 9
0022320 ( C L : A D J O I N ( Q U O
0022340 T E \r D E F - D E F I N E - T
0022360 Y P E ) ( G E T A 2 9 2 6
0022400 A 2 9 2 7 ) ) ) ) ( P U T P R
0022420 O P A 2 9 2 6 A 2 9 2 7 A
0022440 2 9 2 9 ) ) \r e x p a n d - D E
0022460 F - D E F I N E - T Y P E D 1
0022500 \r ( L ( 1 $ $ M A C R O - E
0022520 N V I R O N M E N T 0 $ $ M
0022540 A C R O - F O R M ) ) 001 334 \a \0
0022560 \0 002 @ 002 \t \0 \0 021 a 006 @ 271 H 001 272 H
0022600 002 [ 001 274 K 002 275 g \0 \0 M \n \0 \0 277 \b
0022620 \0 \0 276 M o \0 \0 \0 \n \0 \0 g \0 \0 g \0
0022640 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032
0022660 032 o \0 \0 \0 032 032 g \0 \0 L h 032 032 h 032
0022700 032 032 g \0 \0 g \0 \0 J g \0 \0 g \0 \0 g
0022720 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 o
0022740 \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g
0022760 \0 \0 J h 032 032 h 032 032 032 h 032 032 h 032 o
0023000 \0 \0 \0 g \0 \0 o \0 \0 \0 o \0 \0 \0 g \0
0023020 \0 J h 032 032 o \0 \0 \0 032 032 032 032 h 032 032
0023040 032 032 h 032 032 032 h 032 032 h 032 032 032 h 032 032
0023060 032 h 032 032 032 h 032 032 o \0 \0 \0 032 032 g \0
0023100 \0 g \0 \0 N J L h 032 032 032 h 032 032 o \0
0023120 \0 \0 032 032 g \0 \0 N o \0 \0 \0 032 032 g \0
0023140 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032
0023160 032 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0
0023200 \0 \0 032 032 o \0 \0 \0 032 032 h 032 032 032 g \0
0023220 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032 g \0
0023240 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032
0023260 032 o \0 \0 \0 032 032 g \0 \0 g \0 \0 g \0 \0
0023300 J h 032 032 o \0 \0 \0 032 032 o \0 \0 \0 032 032
0023320 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0
0023340 \0 032 032 o \0 \0 \0 032 032 g \0 \0 g \0 \0 g
0023360 \0 \0 J h 032 032 o \0 \0 \0 032 032 o \0 \0 \0
0023400 032 032 h 032 032 032 032 032 032 032 032 032 032 032 h 032
0023420 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0
0023440 \0 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 I
0023460 h 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032
0023500 g \0 \0 J h 032 032 h 032 032 032 032 020 \0 ( 4
0023520 0 K E Y W O R D - T E S T 3
0023540 1 G E N S Y M 2 7 F I N D
0023560 - K E Y W O R D 4 R E M O V
0023600 E - C O M M E N T S ) \r ( 4 6 4
0023620 Q U O T E 4 4 4 Q U O T E
0023640 4 3 3 Q U O T E 4 3 0 \
0023660 D E F I N E - T Y P E - S A V E
0023700 - D E F N 4 2 7 F I L E P K
0023720 G F L G 4 2 4 A N D 4 1 7
0023740 C L : E V A L - W H E N 3 8
0023760 3 Q U O T E 3 8 0 G E T
0024000 3 7 7 C L : S E T F 3 5 8
0024020 Q U O T E 3 5 5 G E T 3 5
0024040 2 C L : S E T F 3 3 3 Q U
0024060 O T E 3 3 0 G E T 3 2 7
0024100 C L : S E T F 3 0 8 Q U O T
0024120 E 3 0 5 G E T 3 0 2 C L
0024140 : S E T F 2 8 9 Q U O T E
0024160 2 8 6 C L : P U S H N E W 2
0024200 6 3 Q U O T E 2 6 0 C L :
0024220 G E T H A S H 2 5 7 C L : S
0024240 E T F 2 4 4 Q U O T E 2 4
0024260 1 C L : G E T H A S H 2 3 8
0024300 C L : U N L E S S 2 2 8 D
0024320 E F G L O B A L V A R 2 0 9
0024340 Q U O T E 2 0 6 C L : P U S
0024360 H 1 5 8 Q U O T E 1 4 7
0024400 C L : C E R R O R 1 2 7 Q U
0024420 O T E 1 2 4 I T E M 1 2 1
0024440 G E T D E F 1 1 8 D E F
0024460 1 1 5 C L : D O 1 0 8 L A
0024500 M B D A 1 0 5 F U N C T I O
0024520 N 9 8 M A P C A R 9 5 *
0024540 9 2 P 8 9 X 8 5 Q U
0024560 O T E 8 2 C L : P U S H 7
0024600 1 Q U O T E 5 8 Q U O T E
0024620 5 5 C L : D O C U M E N T A
0024640 T I O N 5 2 C L : S E T F
0024660 4 9 P R O G N 4 6 W I T H
0024700 O U T - F I L E P K G 4 3 P
0024720 R O G N 2 3 : U N D E F I N
0024740 E R ) \r ( 4 4 1 ( Q U O T E
0024760 D E F I N E - T Y P E S ) 4
0025000 2 1 ( C L : E V A L ) 3 9 7
0025020 ( ( Q U O T E U N D E F I N
0025040 E R ) ) 3 9 1 ( ( Q U O T E
0025060 U N D E F I N E R S ) ) 3 7
0025100 2 ( ( Q U O T E N I L L ) )
0025120 \r 3 6 6 ( ( Q U O T E F I
0025140 L E P K G C O N T E N T S ) )
0025160 3 4 7 ( ( Q U O T E \ D E F
0025200 I N E - T Y P E - D E L D E F )
0025220 ) 3 4 1 ( ( Q U O T E D E
0025240 L D E F ) ) 3 2 2 ( ( Q U O
0025260 T E \ D E F I N E - T Y P E -
0025300 G E T D E F ) ) \r 3 1 6 ( (
0025320 Q U O T E G E T D E F ) ) 2
0025340 9 7 ( F I L E P K G T Y P E S
0025360 ) 2 7 7 ( ( C L : M A K E -
0025400 H A S H - T A B L E : T E S T
0025420 ( Q U O T E C L : E Q U A L
0025440 ) : S I Z E 5 0 : R E H A
0025460 S H - S I Z E 5 0 ) ) \r 2 7
0025500 1 ( * D E F I N I T I O N - H
0025520 A S H - T A B L E * ) 2 5 2
0025540 ( * D E F I N I T I O N - H A S
0025560 H - T A B L E * ) 2 3 3 ( N
0025600 I L ) 2 2 3 ( P R E T T Y T
0025620 Y P E L S T ) 2 0 1 ( P R E
0025640 T T Y D E F M A C R O S ) \r 1
0025660 6 6 ( I T E M ) 1 5 5 " N
0025700 o ~ S d e f i n i t i o n
0025720 f o r ~ S " 1 5 1 " R e -
0025740 f e t c h t h e d e f i n i
0025760 t i o n " 1 4 4 ( D E F D
0026000 E F ) 1 1 2 ( I T E M ) 1
0026020 0 2 ( Q U O T E X ) \r 6 6
0026040 ( ( Q U O T E D E F I N E -
0026060 T Y P E S ) ) 3 7 ( : U N D
0026100 E F I N E R ) ) \r ( S E T F - M
0026120 A C R O - F U N C T I O N ( Q
0026140 U O T E D E F - D E F I N E -
0026160 T Y P E ) ( Q U O T E e x p
0026200 a n d - D E F - D E F I N E - T
0026220 Y P E ) ) \r ( A D D T O V A R
0026240 P R E T T Y P R I N T M A C R O
0026260 S ( D E F - D E F I N E - T Y
0026300 P E . P P R I N T - D E F I
0026320 N E R ) ) \r ( L E T * ( ( A 2
0026340 9 3 5 ( Q U O T E D E F - D
0026360 E F I N E - T Y P E ) ) ( A 2
0026400 9 3 6 ( Q U O T E C L : F U
0026420 N C T I O N ) ) ( A 2 9 3 7
0026440 \r " D e f i n e N A M E a s
0026460 a n e w d e f i n i t i o
0026500 n t y p e " ) ) ( P R O G N
0026520 ( C O N D ( ( C L : F B O U
0026540 N D P ( Q U O T E S E T - D
0026560 O C U M E N T A T I O N ) ) (
0026600 \r S E T - D O C U M E N T A T I
0026620 O N A 2 9 3 5 A 2 9 3 6 A
0026640 2 9 3 7 ) ) ) A 2 9 3 7 ) ) \r
0026660 e x p a n d - W I T H O U T - F
0026700 I L E P K G D 1 \r ( L ( 1
0026720 $ $ M A C R O - E N V I R O N M
0026740 E N T 0 $ $ M A C R O - F O
0026760 R M ) ) \0 = 001 \0 \0 002 @ 002 021 001 \0
0027000 g \0 \0 g \0 \0 o \0 \0 \0 H 032 032 g \0 \0
0027020 o \0 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 o \0
0027040 \0 \0 o \0 \0 \0 H 032 032 032 h 032 032 032 h 032
0027060 032 032 h 032 032 032 020 \0 N I L \r ( 3 4
0027100 L E T 2 7 A N D 2 0 C L
0027120 : E V A L - W H E N 1 0 C L
0027140 : E V A L - W H E N 7 P R O
0027160 G N ) \r ( 4 2 ( D E C L A R
0027200 E ( C L : S P E C I A L F I
0027220 L E P K G F L G D F N F L G )
0027240 ) 3 8 ( F I L E P K G F L G
0027260 ( D F N F L G T ) ) 3 1
0027300 ( N E Q D F N F L G ( Q U O
0027320 T E P R O P ) ) 2 4 \r ( C
0027340 L : E V A L ) 1 4 ( C L : L
0027360 O A D ) ) \r ( S E T F - M A C R
0027400 O - F U N C T I O N ( Q U O T
0027420 E W I T H O U T - F I L E P K
0027440 G ) ( Q U O T E e x p a n d
0027460 - W I T H O U T - F I L E P K G
0027500 ) ) \r ( L E T * ( ( A 2 9 3 9
0027520 ( Q U O T E C L : D E F U N
0027540 ) ) ( A 2 9 4 0 ( Q U O T E
0027560 D E F I N E R - F O R ) ) (
0027600 A 2 9 4 2 ( Q U O T E F U N
0027620 C T I O N S ) ) ) ( P U T P R
0027640 O P A 2 9 3 9 \r A 2 9 4 0
0027660 A 2 9 4 2 ) ) \r ( L E T * ( (
0027700 A 2 9 4 3 ( Q U O T E F U N
0027720 C T I O N S ) ) ( A 2 9 4 4
0027740 ( Q U O T E D E F I N E D - B
0027760 Y ) ) ( A 2 9 4 6 ( C L : A
0030000 D J O I N ( Q U O T E C L :
0030020 D E F U N ) ( G E T \r A 2 9
0030040 4 3 A 2 9 4 4 ) ) ) ) ( P U
0030060 T P R O P A 2 9 4 3 A 2 9 4
0030100 4 A 2 9 4 6 ) ) \r C L : : e x
0030120 p a n d - D E F U N D 1 \r ( L
0030140 ( 1 $ $ M A C R O - E N V I
0030160 R O N M E N T 0 $ $ M A C R
0030200 O - F O R M ) ) \0 304 \t \0 \0 002 @
0030220 002 \t \0 \0 021 201 \b @ 271 H 001 272 H 002 [ 001
0030240 274 K 002 A i \v \0 \0 \t \0 \0 ] 001 276 M 002
0030260 001 _ 016 277 M 002 002 001 _ 020 277 g \0 \0 g \0
0030300 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032
0030320 032 h 032 032 g \0 \0 g \0 \0 L O 016 g \0 \0
0030340 J N 032 032 h 032 \n \0 \0 032 032 h 032 032 h 032
0030360 032 032 O 020 264 035 g \0 \0 g \0 \0 g \0 \0 J
0030400 h 032 032 o \0 \0 \0 032 032 O 020 h 032 032 032 h
0030420 032 032 032 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0
0030440 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0
0030460 \0 g \0 \0 I h 032 032 h 032 032 032 032 h 032 032
0030500 032 h 032 032 032 g \0 \0 J h 032 032 h 032 032 032
0030520 032 020 \0 ( 8 9 \ A P P E N D 2
0030540 2 7 \ M V L I S T 2 4 P A
0030560 R S E - B O D Y 4 R E M O V
0030600 E - C O M M E N T S ) \r ( 1 8 4
0030620 Q U O T E 1 6 4 Q U O T E
0030640 1 5 3 Q U O T E 1 5 0 \
0030660 D E F I N E - T Y P E - S A V E
0030700 - D E F N 1 4 7 F I L E P K
0030720 G F L G 1 4 4 A N D 1 3 7
0030740 C L : E V A L - W H E N 1 1
0030760 1 Q U O T E 1 0 8 C L : D
0031000 O C U M E N T A T I O N 1 0 5
0031020 C L : S E T F 8 0 C L : B
0031040 L O C K 7 4 C L : L A M B D
0031060 A 7 1 F U N C T I O N 6 1
0031100 Q U O T E 5 8 C L : S Y M
0031120 B O L - F U N C T I O N 5 5
0031140 C L : S E T F 5 2 P R O G N
0031160 4 9 W I T H O U T - F I L E
0031200 P K G 4 6 P R O G N ) \r (
0031220 1 6 1 ( Q U O T E F U N C T
0031240 I O N S ) 1 4 1 ( C L : E V
0031260 A L ) 1 1 9 ( ( Q U O T E
0031300 C L : F U N C T I O N ) ) ) \r (
0031320 S E T F - M A C R O - F U N C T
0031340 I O N ( Q U O T E C L : D E
0031360 F U N ) ( Q U O T E C L : :
0031400 e x p a n d - D E F U N ) ) \r (
0031420 A D D T O V A R P R E T T Y P
0031440 R I N T M A C R O S ( C L : D
0031460 E F U N . P P R I N T - D E
0031500 F I N E R ) ) \r ( L E T * ( (
0031520 A 2 9 5 3 ( Q U O T E D E F
0031540 I N L I N E ) ) ( A 2 9 5 4
0031560 ( Q U O T E D E F I N E R - F
0031600 O R ) ) ( A 2 9 5 6 ( Q U O
0031620 T E F U N C T I O N S ) ) )
0031640 ( P U T P R O P A 2 9 5 3 \r
0031660 A 2 9 5 4 A 2 9 5 6 ) ) \r ( L
0031700 E T * ( ( A 2 9 5 7 ( Q U O
0031720 T E F U N C T I O N S ) ) (
0031740 A 2 9 5 8 ( Q U O T E D E F
0031760 I N E D - B Y ) ) ( A 2 9 6 0
0032000 ( C L : A D J O I N ( Q U O
0032020 T E D E F I N L I N E ) ( G
0032040 E T \r A 2 9 5 7 A 2 9 5 8 )
0032060 ) ) ) ( P U T P R O P A 2 9
0032100 5 7 A 2 9 5 8 A 2 9 6 0 ) )
0032120 \r e x p a n d - D E F I N L I N
0032140 E D 1 \r ( L ( 1 $ $ M A C
0032160 R O - E N V I R O N M E N T 0
0032200 $ $ M A C R O - F O R M ) )
0032220 \0 311 \v \0 \0 002 @ 002 \t \0 \0 021 241 \n @ 271
0032240 H 001 272 H 002 [ 001 274 K 002 275 A 276 g \0 \0
0032260 g \0 \0 M N i \v \0 \0 \t \0 \0 _ 024 001 _
0032300 022 277 O 024 002 001 _ 020 277 g \0 \0 L O 020 g
0032320 \0 \0 J O 022 032 032 h 032 \n \0 \0 032 032 _ 016
0032340 277 g \0 \0 g \0 \0 J L M 032 032 032 g \0 \0
0032360 J o \0 \0 \0 J h 032 032 J \t \0 \0 \n \0 \0
0032400 o \0 \0 \0 g \0 \0 g \0 \0 O 016 h 032 032 o
0032420 \0 \0 \0 032 032 h 032 032 032 032 032 h 032 032 032 h
0032440 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g
0032460 \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0
0032500 I h 032 032 h 032 032 032 032 h 032 032 032 h 032 032
0032520 032 g \0 \0 J h 032 032 h 032 032 032 032 020 \0 (
0032540 1 0 5 X C L : P A C K 1 0 2
0032560 C L : S Y M B O L - P A C K A
0032600 G E 6 9 \ A P P E N D 2 3
0032620 7 \ M V L I S T 3 4 P A R
0032640 S E - B O D Y 4 R E M O V E
0032660 - C O M M E N T S ) \r ( 1 8 9
0032700 Q U O T E 1 6 9 Q U O T E
0032720 1 5 8 Q U O T E 1 5 5 \ D
0032740 E F I N E - T Y P E - S A V E -
0032760 D E F N 1 5 2 F I L E P K G
0033000 F L G 1 4 9 A N D 1 4 2
0033020 C L : E V A L - W H E N 1 1 5
0033040 Q U O T E 1 1 2 C O N S
0033060 8 9 D E F O P T I M I Z E R
0033100 8 0 C L : D E F U N 7 7 P
0033120 R O G N 5 9 C L : B L O C K
0033140 5 3 C L : L A M B D A 2 8
0033160 W I T H O U T - F I L E P K G
0033200 2 5 P R O G N ) \r ( 1 6 6
0033220 ( Q U O T E F U N C T I O N
0033240 S ) 1 4 6 ( C L : E V A L )
0033260 1 2 4 ( A R G S ) 1 0 9
0033300 ( & R E S T A R G S ) 9 4
0033320 " d e f i n l i n e - " ) \r ( S
0033340 E T F - M A C R O - F U N C T I
0033360 O N ( Q U O T E D E F I N L
0033400 I N E ) ( Q U O T E e x p a
0033420 n d - D E F I N L I N E ) ) \r (
0033440 A D D T O V A R P R E T T Y P
0033460 R I N T M A C R O S ( D E F I
0033500 N L I N E . P P R I N T - D
0033520 E F I N E R ) ) \r ( L E T * (
0033540 ( A 2 9 6 4 ( Q U O T E D E
0033560 F M A C R O ) ) ( A 2 9 6 5
0033600 ( Q U O T E D E F I N E R - F
0033620 O R ) ) ( A 2 9 6 7 ( Q U O
0033640 T E F U N C T I O N S ) ) )
0033660 ( P U T P R O P A 2 9 6 4 \r
0033700 A 2 9 6 5 A 2 9 6 7 ) ) \r ( L
0033720 E T * ( ( A 2 9 6 8 ( Q U O
0033740 T E F U N C T I O N S ) ) (
0033760 A 2 9 6 9 ( Q U O T E D E F
0034000 I N E D - B Y ) ) ( A 2 9 7 1
0034020 ( C L : A D J O I N ( Q U O
0034040 T E D E F M A C R O ) ( G E
0034060 T \r A 2 9 6 8 A 2 9 6 9 ) )
0034100 ) ) ( P U T P R O P A 2 9 6
0034120 8 A 2 9 6 9 A 2 9 7 1 ) ) \r
0034140 C L : : e x p a n d - D E F M A
0034160 C R O D 1 \r ( L ( 1 $ $ M
0034200 A C R O - E N V I R O N M E N T
0034220 0 $ $ M A C R O - F O R M )
0034240 ) 001 037 \f \0 \0 002 @ 002 \t \0 \0 021 261 \v
0034260 @ 271 H 001 272 H 002 [ 001 274 K 002 275 g \0 \0
0034300 g \0 \0 J 225 J 004 l 004 360 250 o \0 \0 \0 J
0034320 \n \0 \0 277 o \0 \0 \0 J h 032 032 J \t \0 \0
0034340 \n \0 \0 _ 026 277 L g \0 \0 M J h g \0 \0
0034360 g \0 \0 \r \a \0 \0 \t \0 \0 _ 024 001 _ 022 277
0034400 O 024 002 _ 020 001 _ 016 277 O 020 002 001 276 g \0
0034420 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 O 026
0034440 h 032 032 h 032 032 g \0 \0 g \0 \0 o \0 \0 \0
0034460 O 016 g \0 \0 J O 022 h 032 032 032 h 032 \n \0
0034500 \0 032 032 h 032 032 h 032 032 032 g \0 \0 g \0 \0
0034520 g \0 \0 J h 032 032 h 032 032 g \0 \0 O 026 h
0034540 032 032 h 032 032 032 N 264 034 g \0 \0 g \0 \0 g
0034560 \0 \0 J h 032 032 o \0 \0 \0 032 032 N h 032 032
0034600 032 h 032 032 032 032 032 h 032 032 g \0 \0 o \0 \0
0034620 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032
0034640 032 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032
0034660 032 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032
0034700 h 032 032 032 032 020 \0 ( 1 5 2 \ A P P
0034720 E N D 2 8 1 \ M V L I S T
0034740 7 8 P A R S E - D E F M A C R
0034760 O 5 8 X C L : P A C K 5 5
0035000 C L : S Y M B O L - P A C K A
0035020 G E 4 2 C L : E R R O R 4
0035040 R E M O V E - C O M M E N T S
0035060 ) \r ( 2 7 5 Q U O T E 2 5 5
0035100 Q U O T E 2 4 4 Q U O T E
0035120 2 4 1 \ D E F I N E - T Y P
0035140 E - S A V E - D E F N 2 3 8
0035160 F I L E P K G F L G 2 3 5 A
0035200 N D 2 2 8 C L : E V A L - W
0035220 H E N 2 0 1 Q U O T E 1 9
0035240 8 C L : D O C U M E N T A T I
0035260 O N 1 9 5 C L : S E T F 1
0035300 8 0 Q U O T E 1 7 0 Q U O
0035320 T E 1 6 7 C L : M A C R O -
0035340 F U N C T I O N 1 6 4 C L :
0035360 S E T F 1 4 0 C L : B L O C
0035400 K 1 3 1 C L : L A M B D A
0035420 1 2 8 F U N C T I O N 1 1 7
0035440 Q U O T E 1 1 4 C L : S Y
0035460 M B O L - F U N C T I O N 1 1
0035500 1 C L : S E T F 1 0 4 C L
0035520 : E V A L - W H E N 7 4 $ $
0035540 M A C R O - E N V I R O N M E N
0035560 T 7 1 : E N V I R O N M E N
0035600 T 6 5 $ $ M A C R O - F O R
0035620 M 2 6 W I T H O U T - F I L
0035640 E P K G 2 3 P R O G N ) \r (
0035660 2 5 2 ( Q U O T E F U N C
0035700 T I O N S ) 2 3 2 ( C L : E
0035720 V A L ) 2 0 9 ( ( Q U O T E
0035740 C L : F U N C T I O N ) ) 1
0035760 3 5 ( $ $ M A C R O - F O R M
0036000 $ $ M A C R O - E N V I R O N
0036020 M E N T ) \r 1 0 8 ( C L : E
0036040 V A L C L : C O M P I L E C
0036060 L : L O A D ) 4 7 " e x p a
0036100 n d - " 3 8 " I l l e g a l
0036120 n a m e u s e d i n D E
0036140 F M A C R O : ~ S " ) \r ( S E
0036160 T F - M A C R O - F U N C T I O
0036200 N ( Q U O T E D E F M A C R
0036220 O ) ( Q U O T E C L : : e x
0036240 p a n d - D E F M A C R O ) ) \r
0036260 ( A D D T O V A R P R E T T Y
0036300 P R I N T M A C R O S ( D E F
0036320 M A C R O . P P R I N T - D
0036340 E F I N E R ) ) \r ( L E T * (
0036360 ( A 2 9 7 5 ( Q U O T E C L
0036400 : D E F V A R ) ) ( A 2 9 7 6
0036420 ( Q U O T E D E F I N E R -
0036440 F O R ) ) ( A 2 9 7 8 ( Q U
0036460 O T E V A R I A B L E S ) ) )
0036500 ( P U T P R O P A 2 9 7 5 \r
0036520 A 2 9 7 6 A 2 9 7 8 ) ) \r (
0036540 L E T * ( ( A 2 9 7 9 ( Q U
0036560 O T E V A R I A B L E S ) )
0036600 ( A 2 9 8 0 ( Q U O T E D E
0036620 F I N E D - B Y ) ) ( A 2 9 8
0036640 2 ( C L : A D J O I N ( Q U
0036660 O T E C L : D E F V A R ) (
0036700 G E T \r A 2 9 7 9 A 2 9 8 0
0036720 ) ) ) ) ( P U T P R O P A 2
0036740 9 7 9 A 2 9 8 0 A 2 9 8 2 )
0036760 ) \r C L : : e x p a n d - D E F
0037000 V A R D 1 \r ( L ( 1 $ $ M
0037020 A C R O - E N V I R O N M E N T
0037040 0 $ $ M A C R O - F O R M )
0037060 ) \0 302 \a \0 \0 002 @ 002 \t \0 \0 021 a 006
0037100 @ 271 H 001 272 H 002 [ d 220 001 274 K h 360 h
0037120 360 275 K 002 264 005 K 002 001 276 g \0 \0 g \0 \0
0037140 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0037160 h 032 032 h 032 032 M 264 ! g \0 \0 g \0 \0 g
0037200 \0 \0 J h 032 032 h 032 032 g \0 \0 J L h 032
0037220 032 032 h 032 032 032 h 032 N 264 034 g \0 \0 g \0
0037240 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032 N h
0037260 032 032 032 h 032 \n \0 \0 032 032 h 032 032 g \0 \0
0037300 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0037320 J h 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h
0037340 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J
0037360 h 032 032 h 032 032 032 032 020 \0 ( 1 2 7 \
0037400 A P P E N D 2 4 R E M O V E
0037420 - C O M M E N T S ) \r ( 1 8 2
0037440 Q U O T E 1 6 2 Q U O T E
0037460 1 5 1 Q U O T E 1 4 8 \ D
0037500 E F I N E - T Y P E - S A V E -
0037520 D E F N 1 4 5 F I L E P K G
0037540 F L G 1 4 2 A N D 1 3 5
0037560 C L : E V A L - W H E N 1 0 7
0037600 Q U O T E 1 0 4 C L : D O
0037620 C U M E N T A T I O N 1 0 1
0037640 C L : S E T F 8 3 S E T Q
0037660 7 3 Q U O T E 7 0 B O U N
0037700 D P 6 7 O R 5 1 C L : S
0037720 P E C I A L 4 8 Q U O T E
0037740 4 5 C L : P R O C L A I M 4
0037760 2 P R O G N 3 9 W I T H O
0040000 U T - F I L E P K G 3 6 P R
0040020 O G N ) \r ( 1 5 9 ( Q U O T
0040040 E V A R I A B L E S ) 1 3 9
0040060 ( C L : E V A L ) 1 1 5 (
0040100 ( Q U O T E V A R I A B L E )
0040120 ) ) \r ( S E T F - M A C R O - F
0040140 U N C T I O N ( Q U O T E C
0040160 L : D E F V A R ) ( Q U O T E
0040200 C L : : e x p a n d - D E F V
0040220 A R ) ) \r ( A D D T O V A R P
0040240 R E T T Y P R I N T M A C R O S
0040260 ( C L : D E F V A R . P P
0040300 R I N T - D E F I N E R ) ) \r (
0040320 L E T * ( ( A 2 9 8 7 ( Q U
0040340 O T E C L : D E F P A R A M E
0040360 T E R ) ) ( A 2 9 8 8 ( Q U
0040400 O T E D E F I N E R - F O R )
0040420 ) ( A 2 9 9 0 ( Q U O T E
0040440 V A R I A B L E S ) ) ) ( P U
0040460 T P R O P \r A 2 9 8 7 A 2 9
0040500 8 8 A 2 9 9 0 ) ) \r ( L E T *
0040520 ( ( A 2 9 9 1 ( Q U O T E
0040540 V A R I A B L E S ) ) ( A 2 9
0040560 9 2 ( Q U O T E D E F I N E
0040600 D - B Y ) ) ( A 2 9 9 4 ( C
0040620 L : A D J O I N ( Q U O T E
0040640 C L : D E F P A R A M E T E R )
0040660 \r ( G E T A 2 9 9 1 A 2 9
0040700 9 2 ) ) ) ) ( P U T P R O P
0040720 A 2 9 9 1 A 2 9 9 2 A 2 9 9
0040740 4 ) ) \r C L : : e x p a n d - D
0040760 E F P A R A M E T E R D 1 \r (
0041000 L ( 1 $ $ M A C R O - E N V
0041020 I R O N M E N T 0 $ $ M A C
0041040 R O - F O R M ) ) \0 235 006 \0 \0 002
0041060 @ 002 \t \0 \0 021 Q 005 @ 271 H 001 272 H 002 [
0041100 001 274 K 002 d 220 001 275 g \0 \0 g \0 \0 g \0
0041120 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 h 032
0041140 032 h 032 032 g \0 \0 J L h 032 032 032 M 264 034
0041160 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0
0041200 \0 032 032 M h 032 032 032 h 032 032 032 032 h 032 032
0041220 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0
0041240 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 I h
0041260 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032 g
0041300 \0 \0 J h 032 032 h 032 032 032 032 020 \0 ( 4
0041320 R E M O V E - C O M M E N T S )
0041340 \r ( 1 4 5 Q U O T E 1 2 5
0041360 Q U O T E 1 1 4 Q U O T E
0041400 1 1 1 \ D E F I N E - T Y P E
0041420 - S A V E - D E F N 1 0 8 F
0041440 I L E P K G F L G 1 0 5 A N
0041460 D 9 8 C L : E V A L - W H E
0041500 N 7 2 Q U O T E 6 9 C L
0041520 : D O C U M E N T A T I O N 6
0041540 6 C L : S E T F 5 4 S E T
0041560 Q 4 1 C L : S P E C I A L
0041600 3 8 Q U O T E 3 5 C L : P
0041620 R O C L A I M 3 2 P R O G N
0041640 2 9 W I T H O U T - F I L E
0041660 P K G 2 6 P R O G N ) \r (
0041700 1 2 2 ( Q U O T E V A R I A
0041720 B L E S ) 1 0 2 ( C L : E V
0041740 A L ) 8 0 ( ( Q U O T E V
0041760 A R I A B L E ) ) ) \r ( S E T F
0042000 - M A C R O - F U N C T I O N
0042020 ( Q U O T E C L : D E F P A R
0042040 A M E T E R ) ( Q U O T E C
0042060 L : : e x p a n d - D E F P A R
0042100 A M E T E R ) ) \r ( A D D T O V
0042120 A R P R E T T Y P R I N T M A
0042140 C R O S ( C L : D E F P A R A
0042160 M E T E R . P P R I N T - D
0042200 E F I N E R ) ) \r ( L E T * (
0042220 ( A 2 9 9 8 ( Q U O T E C L
0042240 : D E F C O N S T A N T ) ) (
0042260 A 2 9 9 9 ( Q U O T E D E F
0042300 I N E R - F O R ) ) ( A 3 0 0
0042320 1 ( Q U O T E V A R I A B L
0042340 E S ) ) ) ( P U T P R O P \r
0042360 A 2 9 9 8 A 2 9 9 9 A 3 0 0
0042400 1 ) ) \r ( L E T * ( ( A 3 0 0
0042420 2 ( Q U O T E V A R I A B L
0042440 E S ) ) ( A 3 0 0 3 ( Q U O
0042460 T E D E F I N E D - B Y ) )
0042500 ( A 3 0 0 5 ( C L : A D J O I
0042520 N ( Q U O T E C L : D E F C
0042540 O N S T A N T ) ( \r G E T A
0042560 3 0 0 2 A 3 0 0 3 ) ) ) ) (
0042600 P U T P R O P A 3 0 0 2 A 3
0042620 0 0 3 A 3 0 0 5 ) ) \r C L : :
0042640 e x p a n d - D E F C O N S T A
0042660 N T D 1 \r ( L ( 1 $ $ M A
0042700 C R O - E N V I R O N M E N T
0042720 0 $ $ M A C R O - F O R M ) )
0042740 \0 250 006 \0 \0 002 @ 002 \t \0 \0 021 Q 005 @
0042760 271 H 001 272 H 002 [ 001 274 K 002 d 220 001 275 g
0043000 \0 \0 g \0 \0 g \0 \0 g \0 \0 J L h 032 032
0043020 032 g \0 \0 g \0 \0 J h 032 032 g \0 \0 g \0
0043040 \0 J h 032 032 h 032 032 o \0 \0 \0 032 032 032 M
0043060 264 034 g \0 \0 g \0 \0 g \0 \0 J h 032 032 o
0043100 \0 \0 \0 032 032 M h 032 032 032 h 032 032 032 032 h
0043120 032 032 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g
0043140 \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0
0043160 I h 032 032 h 032 032 032 032 h 032 032 032 h 032 032
0043200 032 g \0 \0 J h 032 032 h 032 032 032 032 020 \0 (
0043220 4 R E M O V E - C O M M E N T
0043240 S ) \r ( 1 5 6 Q U O T E 1 3
0043260 6 Q U O T E 1 2 5 Q U O T
0043300 E 1 2 2 \ D E F I N E - T Y
0043320 P E - S A V E - D E F N 1 1 9
0043340 F I L E P K G F L G 1 1 6
0043360 A N D 1 0 9 C L : E V A L -
0043400 W H E N 8 3 Q U O T E 8 0
0043420 C L : D O C U M E N T A T I O
0043440 N 7 7 C L : S E T F 5 7
0043460 C O N S T A N T 5 4 Q U O T
0043500 E 4 7 Q U O T E 4 4 P U
0043520 T H A S H 3 5 S E T Q 3 2
0043540 P R O G N 2 9 W I T H O U
0043560 T - F I L E P K G 2 6 P R O
0043600 G N ) \r ( 1 3 3 ( Q U O T E
0043620 V A R I A B L E S ) 1 1 3
0043640 ( C L : E V A L ) 9 1 ( ( Q
0043660 U O T E V A R I A B L E ) )
0043700 6 8 ( C O M P V A R M A C R O
0043720 H A S H ) ) \r ( S E T F - M A C
0043740 R O - F U N C T I O N ( Q U O
0043760 T E C L : D E F C O N S T A N
0044000 T ) ( Q U O T E C L : : e x
0044020 p a n d - D E F C O N S T A N T
0044040 ) ) \r ( A D D T O V A R P R E
0044060 T T Y P R I N T M A C R O S (
0044100 C L : D E F C O N S T A N T .
0044120 P P R I N T - D E F I N E R )
0044140 ) \r ( L E T * ( ( A 3 0 0 9
0044160 ( Q U O T E D E F G L O B A L
0044200 V A R ) ) ( A 3 0 1 0 ( Q U
0044220 O T E D E F I N E R - F O R )
0044240 ) ( A 3 0 1 2 ( Q U O T E
0044260 V A R I A B L E S ) ) ) ( P U
0044300 T P R O P \r A 3 0 0 9 A 3 0
0044320 1 0 A 3 0 1 2 ) ) \r ( L E T *
0044340 ( ( A 3 0 1 3 ( Q U O T E
0044360 V A R I A B L E S ) ) ( A 3 0
0044400 1 4 ( Q U O T E D E F I N E
0044420 D - B Y ) ) ( A 3 0 1 6 ( C
0044440 L : A D J O I N ( Q U O T E
0044460 D E F G L O B A L V A R ) ( \r
0044500 G E T A 3 0 1 3 A 3 0 1 4 )
0044520 ) ) ) ( P U T P R O P A 3 0
0044540 1 3 A 3 0 1 4 A 3 0 1 6 ) )
0044560 \r e x p a n d - D E F G L O B A
0044600 L V A R D 1 \r ( L ( 1 $ $
0044620 M A C R O - E N V I R O N M E N
0044640 T 0 $ $ M A C R O - F O R M
0044660 ) ) \0 302 \a \0 \0 002 @ 002 \t \0 \0 021 a
0044700 006 @ 271 H 001 272 H 002 [ d 220 001 274 K h 360
0044720 h 360 275 K 002 264 005 K 002 001 276 g \0 \0 g \0
0044740 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032
0044760 032 h 032 032 h 032 032 M 264 ! g \0 \0 g \0 \0
0045000 g \0 \0 J h 032 032 h 032 032 g \0 \0 J L h
0045020 032 032 032 h 032 032 032 h 032 N 264 034 g \0 \0 g
0045040 \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032 N
0045060 h 032 032 032 h 032 \n \0 \0 032 032 h 032 032 g \0
0045100 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0
0045120 \0 J h 032 032 o \0 \0 \0 g \0 \0 I h 032 032
0045140 h 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0
0045160 J h 032 032 h 032 032 032 032 020 \0 ( 1 2 7
0045200 \ A P P E N D 2 4 R E M O V
0045220 E - C O M M E N T S ) \r ( 1 8 2
0045240 Q U O T E 1 6 2 Q U O T E
0045260 1 5 1 Q U O T E 1 4 8 \
0045300 D E F I N E - T Y P E - S A V E
0045320 - D E F N 1 4 5 F I L E P K
0045340 G F L G 1 4 2 A N D 1 3 5
0045360 C L : E V A L - W H E N 1 0
0045400 7 Q U O T E 1 0 4 C L : D
0045420 O C U M E N T A T I O N 1 0 1
0045440 C L : S E T F 8 3 S E T Q
0045460 7 3 Q U O T E 7 0 B O U
0045500 N D P 6 7 O R 5 1 G L O
0045520 B A L 4 8 Q U O T E 4 5
0045540 C L : P R O C L A I M 4 2 P
0045560 R O G N 3 9 W I T H O U T -
0045600 F I L E P K G 3 6 P R O G N
0045620 ) \r ( 1 5 9 ( Q U O T E V
0045640 A R I A B L E S ) 1 3 9 ( C
0045660 L : E V A L ) 1 1 5 ( ( Q U
0045700 O T E V A R I A B L E ) ) ) \r
0045720 ( S E T F - M A C R O - F U N C
0045740 T I O N ( Q U O T E D E F G
0045760 L O B A L V A R ) ( Q U O T E
0046000 e x p a n d - D E F G L O B A
0046020 L V A R ) ) \r ( A D D T O V A R
0046040 P R E T T Y P R I N T M A C R
0046060 O S ( D E F G L O B A L V A R
0046100 . P P R I N T - D E F I N E
0046120 R ) ) \r ( L E T * ( ( A 3 0 1
0046140 9 ( Q U O T E D E F G L O B
0046160 A L P A R A M E T E R ) ) ( A
0046200 3 0 2 0 ( Q U O T E D E F I
0046220 N E R - F O R ) ) ( A 3 0 2 2
0046240 ( Q U O T E V A R I A B L E
0046260 S ) ) ) ( \r P U T P R O P A
0046300 3 0 1 9 A 3 0 2 0 A 3 0 2 2
0046320 ) ) \r ( L E T * ( ( A 3 0 2 3
0046340 ( Q U O T E V A R I A B L E
0046360 S ) ) ( A 3 0 2 4 ( Q U O T
0046400 E D E F I N E D - B Y ) ) (
0046420 A 3 0 2 6 ( C L : A D J O I N
0046440 ( Q U O T E \r D E F G L O B
0046460 A L P A R A M E T E R ) ( G E
0046500 T A 3 0 2 3 A 3 0 2 4 ) ) )
0046520 ) ( P U T P R O P A 3 0 2 3
0046540 A 3 0 2 4 A 3 0 2 6 ) ) \r e
0046560 x p a n d - D E F G L O B A L P
0046600 A R A M E T E R D 1 \r ( L (
0046620 1 $ $ M A C R O - E N V I R O
0046640 N M E N T 0 $ $ M A C R O -
0046660 F O R M ) ) \0 235 006 \0 \0 002 @ 002 \t
0046700 \0 \0 021 Q 005 @ 271 H 001 272 H 002 [ 001 274 K
0046720 002 d 220 001 275 g \0 \0 g \0 \0 g \0 \0 g \0
0046740 \0 g \0 \0 g \0 \0 J h 032 032 h 032 032 h 032
0046760 032 g \0 \0 J L h 032 032 032 M 264 034 g \0 \0
0047000 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032
0047020 M h 032 032 032 h 032 032 032 032 h 032 032 g \0 \0
0047040 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0047060 J h 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h
0047100 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J
0047120 h 032 032 h 032 032 032 032 020 \0 ( 4 R E M
0047140 O V E - C O M M E N T S ) \r ( 1
0047160 4 5 Q U O T E 1 2 5 Q U O
0047200 T E 1 1 4 Q U O T E 1 1 1
0047220 \ D E F I N E - T Y P E - S A
0047240 V E - D E F N 1 0 8 F I L E
0047260 P K G F L G 1 0 5 A N D 9
0047300 8 C L : E V A L - W H E N 7
0047320 2 Q U O T E 6 9 C L : D O
0047340 C U M E N T A T I O N 6 6 C
0047360 L : S E T F 5 4 S E T Q 4
0047400 1 G L O B A L 3 8 Q U O T
0047420 E 3 5 C L : P R O C L A I M
0047440 3 2 P R O G N 2 9 W I T
0047460 H O U T - F I L E P K G 2 6
0047500 P R O G N ) \r ( 1 2 2 ( Q U
0047520 O T E V A R I A B L E S ) 1
0047540 0 2 ( C L : E V A L ) 8 0
0047560 ( ( Q U O T E V A R I A B L E
0047600 ) ) ) \r ( S E T F - M A C R O -
0047620 F U N C T I O N ( Q U O T E
0047640 D E F G L O B A L P A R A M E T
0047660 E R ) ( Q U O T E e x p a n
0047700 d - D E F G L O B A L P A R A M
0047720 E T E R ) ) \r ( A D D T O V A R
0047740 P R E T T Y P R I N T M A C R
0047760 O S ( D E F G L O B A L P A R
0050000 A M E T E R . P P R I N T -
0050020 D E F I N E R ) ) \r ( P U T P R
0050040 O P S M A C R O - F N P R O
0050060 P T Y P E F U N C T I O N S )
0050100 \r ( P U T P R O P S C M L D E
0050120 F F E R F I L E T Y P E C L
0050140 : C O M P I L E - F I L E ) \r (
0050160 P U T P R O P S C M L D E F F
0050200 E R C O P Y R I G H T ( " X
0050220 e r o x C o r p o r a t i o n
0050240 " 1 9 8 6 1 9 0 0 ) ) \r N I
0050260 L \r
0050262