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