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