$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLARRAY-SUPPORT.DCOM!2
0000000 ( F I L E C R E A T E D " 2
0000020 - O c t - 8 6 1 6 : 1 6 : 0 4
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < P E D E R S E N >
0000100 L I S P > C M L A R R A Y - S U
0000120 P P O R T . ; 1 1 ) \r " 1 -
0000140 O c t - 8 6 2 0 : 2 3 : 1 5 "
0000160 " C O M P I L E - F I L E d "
0000200 i n " X e r o x L i s p
0000220 1 - O c t - 8 6 . . . " d
0000240 a t e d " 1 - O c t - 8 6
0000260 2 1 : 2 4 : 4 4 " ) \r ( F I L E
0000300 C R E A T E D " 2 1 - S e p -
0000320 8 6 1 9 : 4 2 : 3 5 " { Q V
0000340 } < P E D E R S E N > L I S P >
0000360 C M L A R R A Y - S U P P O R T
0000400 . ; 1 1 2 9 9 8 7 c h a n g
0000420 e s t o : ( F U N C T I O N
0000440 S \r % % G E N E R A L - A R R
0000460 A Y - A D J U S T - B A S E %
0000500 % C H E C K - N O T - W R I T E
0000520 A B L E % % G E T - A R R A Y
0000540 - O F F S E T % % G E T - B A
0000560 S E - A R R A Y ) ( V A R S
0000600 \r C M L A R R A Y - S U P P O R
0000620 T C O M S ) p r e v i o u s
0000640 d a t e : " 2 1 - S e p - 8 6
0000660 1 8 : 5 9 : 2 6 " { Q V } <
0000700 P E D E R S E N > L I S P > C M
0000720 L A R R A Y - S U P P O R T . ;
0000740 1 0 ) \r ( R P A Q Q C M L A R
0000760 R A Y - S U P P O R T C O M S
0001000 ( ( * * " C m l a r r a y
0001020 s u p p o r t m a c r o s a
0001040 n d f u n c t i o n s " ) (
0001060 F U N C T I O N S \r % % C H E
0001100 C K - C I R C L E - P R I N T
0001120 % % C H E C K - I N D I C E S
0001140 % % C H E C K - N O T - W R I T
0001160 E A B L E % % E X P A N D - B
0001200 I T - O P % % G E N E R A L -
0001220 A R R A Y - A D J U S T - B A S
0001240 E \r % % G E T - A R R A Y - O
0001260 F F S E T % % G E T - B A S E
0001300 - A R R A Y ) ( F U N C T I O
0001320 N S % % B I T - T Y P E - P
0001340 % % C H A R - T Y P E - P \r %
0001360 % C M L - T Y P E - T O - T Y P
0001400 E N U M B E R - E X P A N D E R
0001420 % % F A T - C H A R - T Y P E
0001440 - P % % F A T - S T R I N G -
0001460 C H A R - P % % G E T - T Y P
0001500 E - T A B L E - E N T R Y \r %
0001520 % L I T - S I Z E - T O - S I Z
0001540 E % % L I T - T Y P E - T O -
0001560 T Y P E % % L L A R R A Y - M
0001600 A K E - A C C E S S O R - E X P
0001620 R % % L L A R R A Y - M A K E
0001640 - S E T T O R - E X P R \r % %
0001660 L L A R R A Y - T Y P E D - G E
0001700 T % % L L A R R A Y - T Y P E
0001720 D - P U T % % L L A R R A Y -
0001740 T Y P E P % % M A K E - A R R
0001760 A Y - T Y P E - T A B L E % %
0002000 M A K E - C M L - T Y P E - T A
0002020 B L E \r % % P A C K - T Y P E
0002040 N U M B E R % % S M A L L F I
0002060 X P - S M A L L P O S P % % S
0002100 M A L L P O S P - S M A L L F I
0002120 X P % % T H I N - C H A R - T
0002140 Y P E - P % % T H I N - S T R
0002160 I N G - C H A R - P \r % % T Y
0002200 P E - S I Z E - T O - T Y P E N
0002220 U M B E R % % T Y P E N U M B
0002240 E R - T O - B I T S - P E R - E
0002260 L E M E N T % % T Y P E N U M
0002300 B E R - T O - C M L - T Y P E
0002320 \r % % T Y P E N U M B E R - T O
0002340 - D E F A U L T - V A L U E %
0002360 % T Y P E N U M B E R - T O - G
0002400 C - T Y P E % % T Y P E N U M
0002420 B E R - T O - S I Z E % % T Y
0002440 P E N U M B E R - T O - T Y P E
0002460 \r \ G E T B A S E S M A L L -
0002500 F I X P \ G E T B A S E S T R
0002520 I N G - C H A R \ G E T B A S
0002540 E T H I N S T R I N G - C H A R
0002560 \ P U T B A S E S M A L L - F
0002600 I X P \ P U T B A S E S T R I
0002620 N G - C H A R \r \ P U T B A S
0002640 E T H I N S T R I N G - C H A R
0002660 ) ( * * " D e s c r i b e
0002700 s e a c h e n t r y o f
0002720 \ A R R A Y - T Y P E - T A B L
0002740 E " ) ( S T R U C T U R E S
0002760 \r A R R A Y - T A B L E - E N T
0003000 R Y ) ( * * " T h e s e
0003020 v a r s c o n t a i n a l l
0003040 t h e n e c e s s a r y i
0003060 n f o f o r t y p e d a r
0003100 r a y s " ) ( V A R I A B L E
0003120 S \r % % L I T - A R R A Y - S
0003140 I Z E S % % L I T - A R R A Y
0003160 - T A B L E % % L I T - A R R
0003200 A Y - T Y P E S ) ( * * "
0003220 T a b l e s t h a t d r i v
0003240 e s v a r i o u s m a c r o
0003260 s " ) ( \r V A R I A B L E S
0003300 % % A R R A Y - T Y P E - T A B
0003320 L E % % C A N O N I C A L - C
0003340 M L - T Y P E S ) ( * * "
0003360 C o n s t a n t s f o r ( S
0003400 I G N E D - B Y T E 1 6 ) " )
0003420 ( E X P O R T ( \r V A R I A
0003440 B L E S M A X . S M A L L F I
0003460 X P M I N . S M A L L F I X P
0003500 ) ) ( * * " C o n s t a n
0003520 t s f o r S T R I N G - C H
0003540 A R S " ) ( E X P O R T ( V
0003560 A R I A B L E S \r % % C H A R
0003600 - T Y P E % % B I T - T Y P E
0003620 % % T H I N - C H A R - T Y P
0003640 E N U M B E R % % F A T - C H
0003660 A R - T Y P E N U M B E R % %
0003700 M A X T H I N C H A R ) ) ( *
0003720 * \r " A r r a y d a t a -
0003740 t y p e n u m b e r s " ) (
0003760 E X P O R T ( V A R I A B L E
0004000 S % % G E N E R A L - A R R A
0004020 Y % % O N E D - A R R A Y %
0004040 % T W O D - A R R A Y ) ) ( *
0004060 * \r " C o m p i l e r o p
0004100 t i o n s " ) ( D E C L A R E
0004120 : D O N T E V A L @ L O A D
0004140 D O E V A L @ C O M P I L E D
0004160 O N T C O P Y ( L O C A L V A
0004200 R S . T ) ) ( P R O P F
0004220 I L E T Y P E \r C M L A R R A
0004240 Y - S U P P O R T ) ) ) \r e x p
0004260 a n d - % % C H E C K - C I R C
0004300 L E - P R I N T D 1 \r ( L (
0004320 1 $ $ M A C R O - E N V I R O
0004340 N M E N T 0 $ $ M A C R O -
0004360 F O R M ) ) \0 207 005 \0 \0 002 @ 002 021
0004400 A 004 H 001 271 H 002 Z 001 273 J 002 274 g \0 \0
0004420 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 o \0 \0
0004440 \0 g \0 \0 I h 032 032 h 032 032 032 h 032 032 032
0004460 g \0 \0 g \0 \0 g \0 \0 K o \0 \0 \0 032 032
0004500 g \0 \0 g \0 \0 K h 032 032 032 g \0 \0 g \0
0004520 \0 g \0 \0 K o \0 \0 \0 032 032 g \0 \0 o \0
0004540 \0 \0 K h 032 032 032 h 032 032 032 032 h 032 032 032
0004560 032 032 g \0 \0 o \0 \0 \0 L 032 032 h 032 032 032
0004600 032 032 020 \0 N I L \r ( 1 6 7 Q C L
0004620 : W H E N 1 4 0 Q W R I T E
0004640 - C H A R 1 2 6 Q . S P A C
0004660 E C H E C K . 1 2 3 Q F I R
0004700 S T T I M E 1 2 0 Q C L : W
0004720 H E N 1 1 0 Q C I R C L E L
0004740 A B E L 1 0 5 Q W R I T E -
0004760 S T R I N G 7 3 Q . S P A C
0005000 E C H E C K . 7 0 Q C I R C
0005020 L E L A B E L 6 5 Q C L : W
0005040 H E N 4 6 Q P R I N T - C I
0005060 R C L E - L O O K U P 3 7 Q
0005100 M U L T I P L E - V A L U E - S
0005120 E T Q 3 4 Q * P R I N T - C
0005140 I R C L E - H A S H T A B L E *
0005160 3 1 Q A N D 2 2 Q L E T
0005200 ) \r ( 1 7 3 Q ( O R ( N O
0005220 T C I R C L E L A B E L ) F
0005240 I R S T T I M E ) 1 4 4 Q |
0005260 \ S p a c e 1 3 3 Q ( 1 )
0005300 1 0 0 Q ( ( V E C T O R - L E
0005320 N G T H C I R C L E L A B E L
0005340 ) ) 4 3 Q ( C I R C L E L A
0005360 B E L F I R S T T I M E ) \r
0005400 2 6 Q ( C I R C L E L A B E L
0005420 F I R S T T I M E ) ) \r ( S E
0005440 T F - M A C R O - F U N C T I O
0005460 N ( Q U O T E % % C H E C K
0005500 - C I R C L E - P R I N T ) (
0005520 Q U O T E e x p a n d - % % C
0005540 H E C K - C I R C L E - P R I N
0005560 T ) ) \r ( L E T * ( ( A 0 2 6
0005600 2 ( Q U O T E % % C H E C K
0005620 - C I R C L E - P R I N T ) )
0005640 ( A 0 2 6 3 ( Q U O T E C L
0005660 : F U N C T I O N ) ) ( A 0 2
0005700 6 4 \r " I f A h a s a
0005720 c i r c l e l a b e l , p r
0005740 i n t i t . I f i t ' s
0005760 n o t t h e f i r s t t i
0006000 m e o r i t h a s n o
0006020 l a b e l , p r i n t t h e
0006040 c o n t e n t s " \r ) ) ( P
0006060 R O G N ( C O N D ( ( F B O
0006100 U N D P ( Q U O T E S E T -
0006120 D O C U M E N T A T I O N ) )
0006140 ( S E T - D O C U M E N T A T I
0006160 O N A 0 2 6 2 A 0 2 6 3 A
0006200 0 2 6 4 ) ) ) A 0 2 6 4 ) ) \r
0006220 e x p a n d - % % C H E C K - I
0006240 N D I C E S D 1 \r ( L ( 1
0006260 $ $ M A C R O - E N V I R O N M
0006300 E N T 0 $ $ M A C R O - F O
0006320 R M ) ) \0 w 005 \0 \0 002 @ 002 021 A 004
0006340 H 001 271 H 002 Z 001 273 J 002 001 274 g \0 \0 g
0006360 \0 \0 K o \0 \0 \0 032 032 o \0 \0 \0 032 g \0
0006400 \0 g \0 \0 L h 032 032 032 o \0 \0 \0 032 g \0
0006420 \0 g \0 \0 g \0 \0 L o \0 \0 \0 032 032 h 032
0006440 032 032 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 g
0006460 \0 \0 g \0 \0 I o \0 \0 \0 032 032 h 032 032 032
0006500 h 032 032 032 o \0 \0 \0 032 032 h 032 032 032 032 032
0006520 020 \0 N I L \r ( 1 3 1 Q A R R A
0006540 Y - D I M E N S I O N 1 2 6 Q
0006560 I N D E X 1 2 3 Q > = 1
0006600 1 4 Q O R 1 1 1 Q C L : I
0006620 F 7 3 Q A R G 7 0 Q I N
0006640 D E X 6 5 Q S E T Q 5 0 Q
0006660 I 4 5 Q > 2 6 Q I 2
0006700 3 Q C L : D O ) \r ( 1 5 4 Q
0006720 ( ( R E T U R N N I L ) )
0006740 1 3 6 Q ( D I M ) 1 2 0 Q
0006760 ( < I N D E X 0 ) 1 0 0 Q
0007000 ( I ) 6 1 Q ( T ) 4 1 Q
0007020 ( ( D I M 0 ( 1 + D I M
0007040 ) ) I N D E X ) 3 3 Q ( (
0007060 1 + I ) ) ) \r ( S E T F - M A
0007100 C R O - F U N C T I O N ( Q U
0007120 O T E % % C H E C K - I N D I
0007140 C E S ) ( Q U O T E e x p a
0007160 n d - % % C H E C K - I N D I C
0007200 E S ) ) \r e x p a n d - % % C H
0007220 E C K - N O T - W R I T E A B L
0007240 E D 1 \r ( L ( 1 $ $ M A C
0007260 R O - E N V I R O N M E N T 0
0007300 $ $ M A C R O - F O R M ) )
0007320 \0 S 005 \0 \0 002 @ 002 021 A 004 H 001 271 H 002
0007340 Z 001 273 J 002 001 274 g \0 \0 g \0 \0 o \0 \0
0007360 \0 g \0 \0 I h 032 032 032 032 g \0 \0 I h 032
0007400 032 h 032 032 g \0 \0 g \0 \0 K h 032 032 g \0
0007420 \0 L h 032 032 h 032 032 032 g \0 \0 I h 032 032
0007440 h 032 032 h 032 032 032 020 \0 N I L \r ( 1 0
0007460 5 Q % % M A K E - S T R I N G
0007500 - A R R A Y - F A T 7 2 Q %
0007520 % F A T - S T R I N G - C H A R
0007540 - P 6 3 Q % % T H I N - C H
0007560 A R - T Y P E - P 6 0 Q A N
0007600 D 4 6 Q % % M A K E - A R R
0007620 A Y - W R I T E A B L E 3 5 Q
0007640 o f 2 6 Q f e t c h 2 3
0007660 Q C O N D ) \r ( 3 2 Q ( A
0007700 R R A Y - H E A D E R R E A D
0007720 - O N L Y - P ) ) \r ( S E T F -
0007740 M A C R O - F U N C T I O N (
0007760 Q U O T E % % C H E C K - N O
0010000 T - W R I T E A B L E ) ( Q U
0010020 O T E e x p a n d - % % C H E
0010040 C K - N O T - W R I T E A B L E
0010060 ) ) \r e x p a n d - % % E X P A
0010100 N D - B I T - O P D 1 \r ( L
0010120 ( 1 $ $ M A C R O - E N V I R
0010140 O N M E N T 0 $ $ M A C R O
0010160 - F O R M ) ) 002 S \t \0 \0 002 @ 002
0010200 021 201 \b H 001 271 H 002 Z 001 273 J 002 \ 001 275
0010220 L 002 001 276 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0010240 K h 032 032 h 032 032 o \0 \0 \0 032 032 g \0 \0
0010260 g \0 \0 g \0 \0 M h 032 032 h 032 032 o \0 \0
0010300 \0 032 032 g \0 \0 g \0 \0 g \0 \0 K M h 032
0010320 032 032 h 032 032 o \0 \0 \0 032 032 g \0 \0 g \0
0010340 \0 N h 032 032 g \0 \0 N g \0 \0 g \0 \0 K
0010360 h 032 032 o \0 \0 \0 032 032 h 032 032 032 h 032 032
0010400 g \0 \0 N o \0 \0 \0 032 032 g \0 \0 N K h
0010420 032 032 032 h 032 032 g \0 \0 g \0 \0 g \0 \0 N
0010440 h 032 032 g \0 \0 K N h 032 032 032 h 032 032 032
0010460 h 032 032 o \0 \0 \0 032 h 032 032 032 032 I _ 016
0010500 g \0 \0 360 263 # O 016 g \0 \0 360 263 033 O 016
0010520 g \0 \0 360 263 023 O 016 g \0 \0 360 251 O 016 d
0010540 g \0 \0 360 262 # 277 g \0 \0 g \0 \0 K N h
0010560 032 032 032 g \0 \0 o \0 \0 \0 K N h 032 032 032
0010600 032 h 032 032 032 260 A g \0 \0 360 263 O 016 g
0010620 \0 \0 360 263 030 O 016 g \0 \0 360 256 O 016 g \0
0010640 \0 360 247 O 016 g \0 \0 360 264 021 g \0 \0 o \0
0010660 \0 \0 K N h 032 032 032 032 213 g \0 \0 O 016 o
0010700 \0 \0 \0 \f \0 \0 I _ 020 d g \0 \0 360 262 024
0010720 277 g \0 \0 o \0 \0 \0 M N h 032 032 032 032 261
0010740 \0 346 g \0 \0 360 262 023 g \0 \0 o \0 \0 \0 M
0010760 N h 032 032 032 032 261 \0 317 O 020 d g \0 \0 360
0011000 262 024 277 g \0 \0 o \0 \0 \0 M N h 032 032 032
0011020 032 261 \0 264 g \0 \0 360 262 023 g \0 \0 o \0 \0
0011040 \0 M N h 032 032 032 032 261 \0 235 O 020 d g \0
0011060 \0 360 262 024 277 g \0 \0 o \0 \0 \0 M N h 032
0011100 032 032 032 261 \0 202 g \0 \0 360 237 g \0 \0 o \0
0011120 \0 \0 M N h 032 032 032 032 260 l O 020 d g \0
0011140 \0 360 262 023 277 g \0 \0 o \0 \0 \0 M N h 032
0011160 032 032 032 260 R g \0 \0 360 237 g \0 \0 o \0 \0
0011200 \0 M N h 032 032 032 032 260 = O 020 d g \0 \0
0011220 360 262 023 277 g \0 \0 o \0 \0 \0 M N h 032 032
0011240 032 032 260 # g \0 \0 360 264 021 g \0 \0 o \0 \0
0011260 \0 M N h 032 032 032 032 213 g \0 \0 O 020 o \0
0011300 \0 \0 \f \0 \0 N h 032 032 032 032 032 032 032 032 020
0011320 \0 ( 1 1 0 6 Q E C A S E - F A
0011340 I L 5 0 7 Q E C A S E - F A
0011360 I L ) \r ( 1 0 7 5 Q O P 1 0
0011400 5 6 Q % % D O - L O G I C A L
0011420 - O P 1 0 5 0 Q O R C 2 1
0011440 0 3 0 Q % % D O - L O G I C A
0011460 L - O P 1 0 2 1 Q O R C 1
0011500 7 7 6 Q % % D O - L O G I C A
0011520 L - O P 7 7 1 Q A N D C 2
0011540 7 5 1 Q % % D O - L O G I C A
0011560 L - O P 7 4 2 Q A N D C 1
0011600 7 1 7 Q % % D O - L O G I C A
0011620 L - O P 7 1 2 Q N O R 6 7
0011640 1 Q % % D O - L O G I C A L -
0011660 O P 6 6 2 Q N A N D 6 3 6
0011700 Q % % D O - L O G I C A L - O
0011720 P 6 3 0 Q E Q V 6 0 7 Q
0011740 % % D O - L O G I C A L - O P
0011760 6 0 0 Q X O R 5 5 4 Q % %
0012000 D O - L O G I C A L - O P 5 4
0012020 6 Q I O R 5 2 5 Q % % D O
0012040 - L O G I C A L - O P 5 1 6 Q
0012060 A N D 4 7 6 Q O P 4 5 7
0012100 Q % % D O - L O G I C A L - O
0012120 P 4 5 1 Q O R C 1 4 4 2 Q
0012140 A N D C 1 4 3 3 Q N O R
0012160 4 2 3 Q N A N D 4 1 3 Q E
0012200 Q V 3 6 7 Q % % D O - L O G
0012220 I C A L - O P 3 5 6 Q E Q
0012240 3 5 3 Q O R 3 4 4 Q O R C
0012260 2 3 3 4 Q A N D C 2 3 2 4
0012300 Q X O R 3 1 4 Q I O R 3
0012320 0 4 Q A N D 2 4 7 Q E Q U
0012340 A L - D I M E N S I O N S - P
0012360 2 4 0 Q B I T - A R R A Y - P
0012400 2 3 5 Q A N D 2 3 2 Q N
0012420 O T 2 1 6 Q S E T Q 2 0 4
0012440 Q E Q 1 6 0 Q A R R A Y -
0012460 D I M E N S I O N S 1 5 5 Q
0012500 M A K E - A R R A Y 1 5 1 Q
0012520 S E T Q 1 4 2 Q N U L L 1
0012540 3 7 Q C O N D 1 1 5 Q E Q
0012560 U A L - D I M E N S I O N S - P
0012600 1 1 2 Q N O T 1 0 7 Q C
0012620 L : I F 6 7 Q B I T - A R R
0012640 A Y - P 6 4 Q N O T 6 1 Q
0012660 C L : I F 4 1 Q B I T - A
0012700 R R A Y - P 3 6 Q N O T 3
0012720 3 Q C L : I F 3 0 Q P R O
0012740 G N ) \r ( 1 1 0 3 Q ( A N D
0012760 I O R X O R E Q V N A N
0013000 D N O R A N D C 1 A N D C
0013020 2 O R C 1 O R C 2 ) 1 0 6
0013040 2 Q ( Q U O T E C O R ) 1
0013060 0 3 4 Q ( Q U O T E O R )
0013100 1 0 0 2 Q ( Q U O T E C A N
0013120 D ) \r 7 5 5 Q ( Q U O T E
0013140 A N D ) 7 2 3 Q ( Q U O T E
0013160 C A N D ) 6 7 5 Q ( Q U O
0013200 T E C O R ) 6 4 2 Q ( Q U
0013220 O T E X O R ) 6 1 3 Q ( Q
0013240 U O T E X O R ) 5 6 0 Q (
0013260 Q U O T E O R ) \r 5 3 1 Q
0013300 ( Q U O T E A N D ) 5 0 4 Q
0013320 ( A N D I O R X O R A N
0013340 D C 2 O R C 2 E Q V N A N
0013360 D N O R A N D C 1 O R C 1
0013400 ) 4 6 3 Q ( Q U O T E N O
0013420 T ) 3 7 3 Q ( Q U O T E C
0013440 O P Y ) \r 2 7 0 Q ( ( C L :
0013460 E R R O R " I l l e g a l r
0013500 e s u l t a r r a y " ) ) 2
0013520 1 1 Q ( T ) 1 7 0 Q ( : E
0013540 L E M E N T - T Y P E ( Q U O
0013560 T E B I T ) ) 1 3 2 Q ( (
0013600 C L : E R R O R " B i t - a r
0013620 r a y s n o t o f s a m e
0013640 d i m e n s i o n s " ) ) \r
0013660 1 0 2 Q ( ( C L : E R R O R
0013700 " B I T - A R R A Y 2 n o t
0013720 a b i t a r r a y " ) ) 5
0013740 4 Q ( ( C L : E R R O R " B
0013760 I T - A R R A Y 1 n o t a
0014000 b i t a r r a y " ) ) ) \r ( S
0014020 E T F - M A C R O - F U N C T I
0014040 O N ( Q U O T E % % E X P A
0014060 N D - B I T - O P ) ( Q U O T
0014100 E e x p a n d - % % E X P A N
0014120 D - B I T - O P ) ) \r e x p a n
0014140 d - % % G E N E R A L - A R R A
0014160 Y - A D J U S T - B A S E D 1
0014200 \r ( L ( 1 $ $ M A C R O - E
0014220 N V I R O N M E N T 0 $ $ M
0014240 A C R O - F O R M ) ) \0 } 003 \0
0014260 \0 002 @ 002 021 ! 002 H 001 271 H 002 001 272 g \0
0014300 \0 g \0 \0 o \0 \0 \0 g \0 \0 I h 032 032 032
0014320 032 g \0 \0 o \0 \0 \0 g \0 \0 I g \0 \0 I
0014340 o \0 \0 \0 032 032 h 032 032 032 g \0 \0 J g \0
0014360 \0 J o \0 \0 \0 032 032 h 032 032 032 g \0 \0 g
0014400 \0 \0 g \0 \0 J g \0 \0 o \0 \0 \0 g \0 \0
0014420 I h 032 032 032 032 h 032 032 032 h 032 032 o \0 \0
0014440 \0 032 032 h 032 032 032 032 032 h 032 032 032 020 \0 N
0014460 I L \r ( 1 3 5 Q o f 1 2 6 Q
0014500 f e t c h 1 2 2 Q < 1 1
0014520 7 Q N O T 1 1 4 Q C L : I
0014540 F 7 6 Q + 7 2 Q S E T Q
0014560 5 4 Q % % G E T - B A S E -
0014600 A R R A Y 5 0 Q S E T Q 4
0014620 1 Q L E T 3 0 Q o f 2 1
0014640 Q f f e t c h 1 6 Q C L :
0014660 I F ) \r ( 1 5 6 Q ( ( C L :
0014700 E R R O R " R o w - m a j o r
0014720 - i n d e x o u t o f b o
0014740 u n d s ( d i s p l a c e d
0014760 t o a d j u s t a b l e ? ) "
0015000 ) ) 1 3 2 Q ( A R R A Y - H
0015020 E A D E R T O T A L - S I Z E
0015040 ) \r 1 0 3 Q ( % % O F F S E
0015060 T ) 6 1 Q ( % % O F F S E T
0015100 ) 4 5 Q ( ( % % O F F S E T
0015120 0 ) ) 2 5 Q ( G E N E R A
0015140 L - A R R A Y I N D I R E C T
0015160 - P ) ) \r ( S E T F - M A C R O
0015200 - F U N C T I O N ( Q U O T E
0015220 % % G E N E R A L - A R R A Y
0015240 - A D J U S T - B A S E ) ( Q
0015260 U O T E e x p a n d - % % G E
0015300 N E R A L - A R R A Y - A D J U
0015320 S T - B A S E ) ) \r e x p a n d
0015340 - % % G E T - A R R A Y - O F F
0015360 S E T D 1 \r ( L ( 1 $ $ M
0015400 A C R O - E N V I R O N M E N T
0015420 0 $ $ M A C R O - F O R M )
0015440 ) \0 C 001 \0 \0 002 @ 002 001 021 001 \0 g \0
0015460 \0 g \0 \0 g \0 \0 H h 032 032 g \0 \0 H h
0015500 032 032 h 032 032 032 g \0 \0 o \0 \0 \0 g \0 \0
0015520 H h 032 032 032 032 h 032 032 g \0 \0 H h 032 032
0015540 o \0 \0 \0 032 h 032 032 032 020 \0 N I L \r (
0015560 6 3 Q % % T W O D - A R R A Y
0015600 - P 4 7 Q o f 4 0 Q f e
0015620 t c h 2 5 Q % % G E N E R A
0015640 L - A R R A Y - P 1 6 Q % %
0015660 O N E D - A R R A Y - P 1 3 Q
0015700 O R 1 0 Q C O N D ) \r (
0015720 7 3 Q ( 0 ) 4 4 Q ( A R R
0015740 A Y - H E A D E R O F F S E T
0015760 ) ) \r ( S E T F - M A C R O - F
0016000 U N C T I O N ( Q U O T E %
0016020 % G E T - A R R A Y - O F F S E
0016040 T ) ( Q U O T E e x p a n d
0016060 - % % G E T - A R R A Y - O F F
0016100 S E T ) ) \r e x p a n d - % % G
0016120 E T - B A S E - A R R A Y D 1
0016140 \r ( L ( 1 $ $ M A C R O - E
0016160 N V I R O N M E N T 0 $ $ M
0016200 A C R O - F O R M ) ) \0 8 003 \0
0016220 \0 002 @ 002 021 ! 002 H 001 271 H 002 001 272 g \0
0016240 \0 g \0 \0 I o \0 \0 \0 032 032 h 032 o \0 \0
0016260 \0 g \0 \0 J g \0 \0 J o \0 \0 \0 032 032 h
0016300 032 032 032 h 032 032 032 032 020 \0 N I L \r ( 4
0016320 5 Q + 4 1 Q S E T Q 2 1
0016340 Q % % B A S E - A R R A Y 1
0016360 6 Q C L : D O ) \r ( 5 2 Q
0016400 ( ( % % G E T - A R R A Y - O F
0016420 F S E T % % B A S E - A R R A
0016440 Y ) ) 3 6 Q ( ( N O T ( f
0016460 e t c h ( A R R A Y - H E A D
0016500 E R I N D I R E C T - P ) o
0016520 f % % B A S E - A R R A Y ) )
0016540 % % B A S E - A R R A Y ) \r
0016560 2 6 Q ( ( f e t c h ( A R R
0016600 A Y - H E A D E R B A S E )
0016620 o f % % B A S E - A R R A Y )
0016640 ) ) \r ( S E T F - M A C R O - F
0016660 U N C T I O N ( Q U O T E %
0016700 % G E T - B A S E - A R R A Y )
0016720 ( Q U O T E e x p a n d - %
0016740 % G E T - B A S E - A R R A Y )
0016760 ) \r e x p a n d - % % B I T - T
0017000 Y P E - P D 1 \r ( L ( 1 $
0017020 $ M A C R O - E N V I R O N M E
0017040 N T 0 $ $ M A C R O - F O R
0017060 M ) ) \0 022 001 \0 \0 002 @ 002 001 021 001 \0
0017100 g \0 \0 H o \0 \0 \0 032 032 020 \0 N I L \r
0017120 ( 1 0 Q E Q ) \r ( 1 5 Q (
0017140 % % B I T - T Y P E ) ) \r ( S E
0017160 T F - M A C R O - F U N C T I O
0017200 N ( Q U O T E % % B I T - T
0017220 Y P E - P ) ( Q U O T E e x
0017240 p a n d - % % B I T - T Y P E -
0017260 P ) ) \r e x p a n d - % % C H A
0017300 R - T Y P E - P D 1 \r ( L (
0017320 1 $ $ M A C R O - E N V I R O
0017340 N M E N T 0 $ $ M A C R O -
0017360 F O R M ) ) \0 030 001 \0 \0 002 @ 002 001
0017400 021 001 \0 g \0 \0 g \0 \0 H h 032 032 o \0 \0
0017420 \0 032 032 020 \0 N I L \r ( 1 3 Q % %
0017440 T Y P E N U M B E R - T O - T Y
0017460 P E 1 0 Q E Q ) \r ( 2 3 Q
0017500 ( % % C H A R - T Y P E ) ) \r
0017520 ( S E T F - M A C R O - F U N C
0017540 T I O N ( Q U O T E % % C H
0017560 A R - T Y P E - P ) ( Q U O T
0017600 E e x p a n d - % % C H A R -
0017620 T Y P E - P ) ) \r e x p a n d -
0017640 % % C M L - T Y P E - T O - T Y
0017660 P E N U M B E R - E X P A N D E
0017700 R A 0 0 0 1 D 1 \r ( L ( 0
0017720 E N T R Y ) ) \0 017 \0 \0 \0 001 @ 001
0017740 003 221 h 200 i 264 006 @ 001 h 032 020 \0 N I L
0017760 \r N I L \r ( ) \r e x p a n d - %
0020000 % C M L - T Y P E - T O - T Y P
0020020 E N U M B E R - E X P A N D E R
0020040 A 0 0 0 2 D 1 \r ( L ( 0 E
0020060 N T R Y ) ) \0 \f \0 \0 \0 001 @ 001 003
0020100 264 \a @ 001 001 h 032 020 \0 N I L \r N I L
0020120 \r ( ) \r e x p a n d - % % C M L
0020140 - T Y P E - T O - T Y P E N U M
0020160 B E R - E X P A N D E R A 0 0 0
0020200 3 A 0 0 0 4 D 1 \r ( L ( 0
0020220 E N T R Y ) F 0 T Y P E )
0020240 \0 032 \0 001 \0 001 @ 001 003 264 025 @ 001 001 P
0020260 360 264 016 @ 001 002 001 @ 002 001 h 032 032 h 032 020
0020300 \0 N I L \r N I L \r ( ) \r e x p a
0020320 n d - % % C M L - T Y P E - T O
0020340 - T Y P E N U M B E R - E X P A
0020360 N D E R A 0 0 0 3 D 1 \r ( I
0020400 0 T Y P E F 0 C M L - T
0020420 Y P E F 1 % % C A N O N I
0020440 C A L - C M L - T Y P E S ) \0
0020460 031 \0 002 \0 001 @ g \0 \0 g \0 \0 P h 032 032
0020500 g \0 \0 Q \n \0 \0 032 032 h 032 032 020 \0 ( 2
0020520 1 Q M A P C A N ) \r ( 1 5 Q
0020540 e x p a n d - % % C M L - T Y P
0020560 E - T O - T Y P E N U M B E R -
0020600 E X P A N D E R A 0 0 0 3 A 0 0
0020620 0 4 6 C A D R 3 E C A S
0020640 E ) \r ( ) \r e x p a n d - % % C
0020660 M L - T Y P E - T O - T Y P E N
0020700 U M B E R - E X P A N D E R A 0
0020720 0 0 5 D 1 \r ( L ( 0 T Y P
0020740 E ) F 0 % % C A N O N I C
0020760 A L - C M L - T Y P E S ) \0 \a
0021000 \0 001 \0 001 @ P \n \0 \0 020 \0 ( 4 C L
0021020 : A S S O C ) \r N I L \r ( ) \r e
0021040 x p a n d - % % C M L - T Y P E
0021060 - T O - T Y P E N U M B E R - E
0021100 X P A N D E R D 1 \r ( L ( 1
0021120 $ $ M A C R O - E N V I R O N
0021140 M E N T 0 $ $ M A C R O - F
0021160 O R M ) P 0 C M L - T Y P
0021200 E F 3 % % C A N O N I C A
0021220 L - C M L - T Y P E S ) \0 g 003
0021240 001 \0 002 @ 002 001 021 ! 002 i g \0 \0 S \n \0
0021260 \0 \n \0 \0 g \0 \0 S \n \0 \0 \t \0 \0 272 271
0021300 g \0 \0 g \0 \0 H o \0 \0 \0 032 032 i S \n
0021320 \0 \0 002 001 g \0 \0 g \0 \0 H h 032 032 g \0
0021340 \0 g \0 \0 H h 032 032 g \0 \0 J \n \0 \0 032
0021360 032 g \0 \0 H g \0 \0 I \n \0 \0 032 032 h 032
0021400 032 032 032 h 032 032 032 032 020 \0 ( 1 3 0 Q
0021420 C L : M A P C A R 1 1 3 Q C
0021440 L : M A P C A R 5 6 Q C L :
0021460 A S S O C 3 2 Q R E M O V E
0021500 - D U P L I C A T E S 2 7 Q
0021520 M A P C A N 2 0 Q R E M O V
0021540 E 1 5 Q M A P C A N ) \r ( 1
0021560 2 4 Q e x p a n d - % % C M L
0021600 - T Y P E - T O - T Y P E N U M
0021620 B E R - E X P A N D E R A 0 0 0
0021640 5 1 2 0 Q E C A S E 1 0 7
0021660 Q e x p a n d - % % C M L - T
0021700 Y P E - T O - T Y P E N U M B E
0021720 R - E X P A N D E R A 0 0 0 3
0021740 1 0 0 Q C A R 7 5 Q E C A
0021760 S E 6 6 Q L I S T P 6 3 Q
0022000 C L : I F 4 2 Q E Q 3 7
0022020 Q C L : I F 2 3 Q e x p a
0022040 n d - % % C M L - T Y P E - T O
0022060 - T Y P E N U M B E R - E X P A
0022100 N D E R A 0 0 0 2 1 1 Q e x
0022120 p a n d - % % C M L - T Y P E -
0022140 T O - T Y P E N U M B E R - E X
0022160 P A N D E R A 0 0 0 1 ) \r ( 4
0022200 7 Q ( T ) ) \r ( S E T F - M A
0022220 C R O - F U N C T I O N ( Q U
0022240 O T E % % C M L - T Y P E - T
0022260 O - T Y P E N U M B E R - E X P
0022300 A N D E R ) ( Q U O T E \r e
0022320 x p a n d - % % C M L - T Y P E
0022340 - T O - T Y P E N U M B E R - E
0022360 X P A N D E R ) ) \r e x p a n d
0022400 - % % F A T - C H A R - T Y P E
0022420 - P D 1 \r ( L ( 1 $ $ M A
0022440 C R O - E N V I R O N M E N T
0022460 0 $ $ M A C R O - F O R M ) )
0022500 \0 022 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0
0022520 H o \0 \0 \0 032 032 020 \0 N I L \r ( 1 0
0022540 Q E Q ) \r ( 1 5 Q ( % % F
0022560 A T - C H A R - T Y P E N U M B
0022600 E R ) ) \r ( S E T F - M A C R O
0022620 - F U N C T I O N ( Q U O T E
0022640 % % F A T - C H A R - T Y P E
0022660 - P ) ( Q U O T E e x p a n
0022700 d - % % F A T - C H A R - T Y P
0022720 E - P ) ) \r e x p a n d - % % F
0022740 A T - S T R I N G - C H A R - P
0022760 D 1 \r ( L ( 1 $ $ M A C R
0023000 O - E N V I R O N M E N T 0
0023020 $ $ M A C R O - F O R M ) ) \0
0023040 030 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 g \0
0023060 \0 H h 032 032 o \0 \0 \0 032 032 020 \0 N I L
0023100 \r ( 1 3 Q C H A R - C O D E
0023120 1 0 Q > ) \r ( 2 3 Q ( % %
0023140 M A X T H I N C H A R ) ) \r ( S
0023160 E T F - M A C R O - F U N C T I
0023200 O N ( Q U O T E % % F A T -
0023220 S T R I N G - C H A R - P ) (
0023240 Q U O T E e x p a n d - % % F
0023260 A T - S T R I N G - C H A R - P
0023300 ) ) \r % % G E T - T Y P E - T A
0023320 B L E - E N T R Y D 1 \r ( L
0023340 ( 0 T Y P E N U M B E R ) F
0023360 0 % % A R R A Y - T Y P E -
0023400 T A B L E ) \0 \t \0 001 \0 001 @ P \n
0023420 \0 \0 002 001 020 \0 ( 4 C L : A S S O
0023440 C ) \r N I L \r ( ) \r % % L I T -
0023460 S I Z E - T O - S I Z E D 1 \r
0023500 ( L ( 0 L I T - S I Z E )
0023520 F 0 % % L I T - A R R A Y -
0023540 S I Z E S ) \0 \t \0 001 \0 001 @ P \n
0023560 \0 \0 002 001 020 \0 ( 4 C L : A S S O
0023600 C ) \r N I L \r ( ) \r % % L I T -
0023620 T Y P E - T O - T Y P E D 1 \r
0023640 ( L ( 0 L I T - T Y P E )
0023660 F 0 % % L I T - A R R A Y -
0023700 T Y P E S ) \0 \t \0 001 \0 001 @ P \n
0023720 \0 \0 002 001 020 \0 ( 4 C L : A S S O
0023740 C ) \r N I L \r ( ) \r % % L L A R
0023760 R A Y - M A K E - A C C E S S O
0024000 R - E X P R D 1 \r ( L ( 2
0024020 O F F S E T 1 B A S E 0
0024040 T Y P E N U M B E R ) ) \0 + 003
0024060 \0 \0 003 @ \t \0 \0 021 ! 002 H \t \0 \0 271 H
0024100 \t \0 \0 277 H \t \0 \0 272 I A J 231 g \0 \0
0024120 B J h 032 032 032 200 B h 032 032 032 020 \0 ( 2
0024140 4 Q A R R A Y - T A B L E - E
0024160 N T R Y - N E E D S - S H I F T
0024200 - P 1 7 Q A R R A Y - T A B
0024220 L E - E N T R Y - B I T S - P E
0024240 R - E L E M E N T 1 2 Q A R
0024260 R A Y - T A B L E - E N T R Y -
0024300 A C C E S S O R 3 % % G E T
0024320 - T Y P E - T A B L E - E N T R
0024340 Y ) \r ( 3 4 Q L L S H ) \r ( )
0024360 \r % % L L A R R A Y - M A K E -
0024400 S E T T O R - E X P R D 1 \r (
0024420 L ( 3 N E W V A L U E 2
0024440 O F F S E T 1 B A S E 0
0024460 T Y P E N U M B E R ) ) \0 - 003
0024500 \0 \0 004 @ \t \0 \0 021 ! 002 H \t \0 \0 271 H
0024520 \t \0 \0 277 H \t \0 \0 272 I A J 231 g \0 \0
0024540 B J h 032 032 032 200 B C h 032 032 032 032 020 \0
0024560 ( 2 4 Q A R R A Y - T A B L E
0024600 - E N T R Y - N E E D S - S H I
0024620 F T - P 1 7 Q A R R A Y - T
0024640 A B L E - E N T R Y - B I T S -
0024660 P E R - E L E M E N T 1 2 Q
0024700 A R R A Y - T A B L E - E N T R
0024720 Y - S E T T O R 3 % % G E T
0024740 - T Y P E - T A B L E - E N T R
0024760 Y ) \r ( 3 4 Q L L S H ) \r ( )
0025000 \r e x p a n d - % % L L A R R A
0025020 Y - T Y P E D - G E T A 0 0 0 1
0025040 D 1 \r ( L ( 0 T Y P E E N
0025060 T R Y ) F 0 B A S E F
0025100 1 O F F S E T ) \0 016 \0 002 \0 001
0025120 @ 001 @ 001 P Q \v \0 \0 h 032 032 020 \0 ( 1
0025140 0 Q % % L L A R R A Y - M A K
0025160 E - A C C E S S O R - E X P R )
0025200 \r N I L \r ( ) \r e x p a n d - %
0025220 % L L A R R A Y - T Y P E D - G
0025240 E T D 1 \r ( L ( 1 $ $ M A
0025260 C R O - E N V I R O N M E N T
0025300 0 $ $ M A C R O - F O R M )
0025320 P 4 O F F S E T P 1 B
0025340 A S E F 5 % % A R R A Y -
0025360 T Y P E - T A B L E ) \0 005 001
0025400 \0 002 @ 002 021 A 004 H 001 271 H 002 Z 001 273 J
0025420 002 001 274 g \0 \0 K g \0 \0 U \n \0 \0 032 032
0025440 020 \0 ( 3 3 Q C L : M A P C A R
0025460 ) \r ( 2 7 Q e x p a n d - % %
0025500 L L A R R A Y - T Y P E D - G E
0025520 T A 0 0 0 1 2 3 Q E C A S E
0025540 ) \r ( ) \r ( S E T F - M A C R O
0025560 - F U N C T I O N ( Q U O T E
0025600 % % L L A R R A Y - T Y P E D
0025620 - G E T ) ( Q U O T E e x p
0025640 a n d - % % L L A R R A Y - T Y
0025660 P E D - G E T ) ) \r e x p a n d
0025700 - % % L L A R R A Y - T Y P E D
0025720 - P U T A 0 0 0 1 D 1 \r ( L
0025740 ( 0 T Y P E E N T R Y ) F
0025760 0 B A S E F 1 O F F S E
0026000 T F 2 N E W V A L U E )
0026020 \0 017 \0 003 \0 001 @ 001 @ 001 P Q R \f \0 \0
0026040 h 032 032 020 \0 ( 1 1 Q % % L L A R
0026060 R A Y - M A K E - S E T T O R -
0026100 E X P R ) \r N I L \r ( ) \r e x p
0026120 a n d - % % L L A R R A Y - T Y
0026140 P E D - P U T D 1 \r ( L ( 1
0026160 $ $ M A C R O - E N V I R O N
0026200 M E N T 0 $ $ M A C R O - F
0026220 O R M ) P 6 N E W V A L U
0026240 E P 5 O F F S E T P 1
0026260 B A S E F 7 % % A R R A
0026300 Y - T Y P E - T A B L E ) \0 &
0026320 \a 001 \0 002 @ 002 021 a 006 H 001 271 H 002 Z 001
0026340 273 J 002 \ 001 275 L 002 001 276 g \0 \0 K g \0
0026360 \0 W 016 \n \0 \0 032 032 020 \0 ( 4 1 Q C
0026400 L : M A P C A R ) \r ( 3 4 Q e
0026420 x p a n d - % % L L A R R A Y -
0026440 T Y P E D - P U T A 0 0 0 1 3
0026460 0 Q E C A S E ) \r ( ) \r ( S E
0026500 T F - M A C R O - F U N C T I O
0026520 N ( Q U O T E % % L L A R R
0026540 A Y - T Y P E D - P U T ) ( Q
0026560 U O T E e x p a n d - % % L L
0026600 A R R A Y - T Y P E D - P U T )
0026620 ) \r e x p a n d - % % L L A R R
0026640 A Y - T Y P E P A 0 0 0 1 D 1
0026660 \r ( L ( 0 T Y P E E N T R Y
0026700 ) F 0 V A L U E ) \0 021 \0
0026720 001 \0 001 @ 001 @ 002 001 \t \0 \0 P h 032 032 h
0026740 032 032 020 \0 ( 7 A R R A Y - T A B
0026760 L E - E N T R Y - T Y P E - T E
0027000 S T ) \r N I L \r ( ) \r e x p a n
0027020 d - % % L L A R R A Y - T Y P E
0027040 P D 1 \r ( L ( 1 $ $ M A C
0027060 R O - E N V I R O N M E N T 0
0027100 $ $ M A C R O - F O R M ) P
0027120 2 V A L U E F 3 % % A
0027140 R R A Y - T Y P E - T A B L E )
0027160 \0 033 003 001 \0 002 @ 002 021 ! 002 H 001 271 H
0027200 002 001 272 g \0 \0 I g \0 \0 S \n \0 \0 032 032
0027220 020 \0 ( 2 6 Q C L : M A P C A R
0027240 ) \r ( 2 2 Q e x p a n d - % %
0027260 L L A R R A Y - T Y P E P A 0 0
0027300 0 1 1 6 Q E C A S E ) \r ( )
0027320 \r ( S E T F - M A C R O - F U N
0027340 C T I O N ( Q U O T E % % L
0027360 L A R R A Y - T Y P E P ) ( Q
0027400 U O T E e x p a n d - % % L L
0027420 A R R A Y - T Y P E P ) ) \r % %
0027440 M A K E - A R R A Y - T Y P E -
0027460 T A B L E A 0 0 0 1 A 0 0 0 2
0027500 D 1 \r ( L ( 0 S I Z E - E N
0027520 T R Y ) F 0 L I T - T Y P
0027540 E ) \0 016 \0 001 \0 001 P @ 001 \n \0 \0 @
0027560 002 001 h 032 032 020 \0 ( 5 % % T Y P E
0027600 - S I Z E - T O - T Y P E N U M
0027620 B E R ) \r N I L \r ( ) \r % % M A
0027640 K E - A R R A Y - T Y P E - T A
0027660 B L E A 0 0 0 1 D 1 \r ( L (
0027700 0 T Y P E - E N T R Y ) P
0027720 0 L I T - T Y P E ) \0 020 001 \0
0027740 \0 001 @ 001 021 001 \0 g \0 \0 @ 002 001 \n \0 \0
0027760 020 \0 ( 1 5 Q C L : M A P C A R
0030000 ) \r ( 7 % % M A K E - A R R A
0030020 Y - T Y P E - T A B L E A 0 0 0
0030040 1 A 0 0 0 2 ) \r ( ) \r % % M A K
0030060 E - A R R A Y - T Y P E - T A B
0030100 L E D 1 \r ( L ( 2 S I Z E
0030120 S 1 T Y P E S 0 L I T -
0030140 T A B L E ) ) \0 \t \0 \0 \0 003 g \0
0030160 \0 @ \n \0 \0 020 \0 ( 6 M A P C A N
0030200 ) \r ( 2 % % M A K E - A R R A
0030220 Y - T Y P E - T A B L E A 0 0 0
0030240 1 ) \r ( ) \r % % M A K E - C M L
0030260 - T Y P E - T A B L E A 0 0 0 1
0030300 D 1 \r ( L ( 0 T Y P E - E
0030320 N T R Y ) ) \0 \r \0 \0 \0 001 @ 002 001
0030340 \t \0 \0 @ 001 h 032 032 020 \0 ( 5 A R R
0030360 A Y - T A B L E - E N T R Y - C
0030400 M L - T Y P E ) \r N I L \r ( ) \r
0030420 % % M A K E - C M L - T Y P E -
0030440 T A B L E D 1 \r ( L ( 0 A
0030460 R R A Y - T A B L E ) ) \0 \t \0
0030500 \0 \0 001 g \0 \0 @ \n \0 \0 020 \0 ( 6 C
0030520 L : M A P C A R ) \r ( 2 % % M
0030540 A K E - C M L - T Y P E - T A B
0030560 L E A 0 0 0 1 ) \r ( ) \r e x p a
0030600 n d - % % P A C K - T Y P E N U
0030620 M B E R D 1 \r ( L ( 1 $ $
0030640 M A C R O - E N V I R O N M E N
0030660 T 0 $ $ M A C R O - F O R M
0030700 ) ) \0 003 \0 \0 002 @ 002 021 ! 002 H 001
0030720 271 H 002 001 272 g \0 \0 g \0 \0 I o \0 \0 \0
0030740 032 032 J h 032 032 032 020 \0 N I L \r ( 2 1
0030760 Q L L S H 1 6 Q \ A D D B
0031000 A S E ) \r ( 2 6 Q ( 4 ) ) \r
0031020 ( S E T F - M A C R O - F U N C
0031040 T I O N ( Q U O T E % % P A
0031060 C K - T Y P E N U M B E R ) (
0031100 Q U O T E e x p a n d - % % P
0031120 A C K - T Y P E N U M B E R ) )
0031140 \r e x p a n d - % % S M A L L F
0031160 I X P - S M A L L P O S P D 1
0031200 \r ( L ( 1 $ $ M A C R O - E
0031220 N V I R O N M E N T 0 $ $ M
0031240 A C R O - F O R M ) ) \0 017 001 \0
0031260 \0 002 @ 002 001 021 001 \0 g \0 \0 H h 032 032 020
0031300 \0 N I L \r ( 1 0 Q \ L O L O C
0031320 ) \r ( ) \r ( S E T F - M A C R O
0031340 - F U N C T I O N ( Q U O T E
0031360 % % S M A L L F I X P - S M A
0031400 L L P O S P ) ( Q U O T E e
0031420 x p a n d - % % S M A L L F I X
0031440 P - S M A L L P O S P ) ) \r e x
0031460 p a n d - % % S M A L L P O S P
0031500 - S M A L L F I X P D 1 \r ( L
0031520 ( 1 $ $ M A C R O - E N V I
0031540 R O N M E N T 0 $ $ M A C R
0031560 O - F O R M ) ) \0 8 002 \0 \0 002 @
0031600 002 001 021 021 001 \b \0 \0 271 g \0 \0 I H h 032
0031620 032 h 032 g \0 \0 g \0 \0 I o \0 \0 \0 032 032
0031640 g \0 \0 g \0 \0 I h 032 032 032 I h 032 032 032
0031660 032 h 032 032 032 020 \0 ( 1 0 Q G E N S
0031700 Y M ) \r ( 4 6 Q \ S m a l l N
0031720 e g H i 4 3 Q \ V A G 2 3
0031740 1 Q > 2 6 Q C L : I F 1
0031760 4 Q L E T ) \r ( 3 6 Q ( M
0032000 A X . S M A L L F I X P ) ) \r (
0032020 S E T F - M A C R O - F U N C T
0032040 I O N ( Q U O T E % % S M A
0032060 L L P O S P - S M A L L F I X P
0032100 ) ( Q U O T E e x p a n d -
0032120 % % S M A L L P O S P - S M A L
0032140 L F I X P ) ) \r e x p a n d - %
0032160 % T H I N - C H A R - T Y P E -
0032200 P D 1 \r ( L ( 1 $ $ M A C
0032220 R O - E N V I R O N M E N T 0
0032240 $ $ M A C R O - F O R M ) )
0032260 \0 022 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 H
0032300 o \0 \0 \0 032 032 020 \0 N I L \r ( 1 0 Q
0032320 E Q ) \r ( 1 5 Q ( % % T H
0032340 I N - C H A R - T Y P E N U M B
0032360 E R ) ) \r ( S E T F - M A C R O
0032400 - F U N C T I O N ( Q U O T E
0032420 % % T H I N - C H A R - T Y P
0032440 E - P ) ( Q U O T E e x p a
0032460 n d - % % T H I N - C H A R - T
0032500 Y P E - P ) ) \r e x p a n d - %
0032520 % T H I N - S T R I N G - C H A
0032540 R - P D 1 \r ( L ( 1 $ $ M
0032560 A C R O - E N V I R O N M E N T
0032600 0 $ $ M A C R O - F O R M )
0032620 ) \0 030 001 \0 \0 002 @ 002 001 021 001 \0 g \0
0032640 \0 g \0 \0 H h 032 032 o \0 \0 \0 032 032 020 \0
0032660 N I L \r ( 1 3 Q C H A R - C O
0032700 D E 1 0 Q < = ) \r ( 2 3 Q
0032720 ( % % M A X T H I N C H A R )
0032740 ) \r ( S E T F - M A C R O - F U
0032760 N C T I O N ( Q U O T E % %
0033000 T H I N - S T R I N G - C H A R
0033020 - P ) ( Q U O T E e x p a n
0033040 d - % % T H I N - S T R I N G -
0033060 C H A R - P ) ) \r % % T Y P E -
0033100 S I Z E - T O - T Y P E N U M B
0033120 E R D 1 \r ( L ( 1 L I T -
0033140 S I Z E 0 L I T - T Y P E )
0033160 F 2 % % L I T - A R R A Y
0033200 - T Y P E S F 3 % % L I T
0033220 - A R R A Y - S I Z E S ) \0 032
0033240 002 002 \0 002 @ R \n \0 \0 002 001 A S \n \0 \0
0033260 002 001 021 002 001 H 340 340 340 340 I 320 020 \0 ( 1
0033300 3 Q C L : A S S O C 4 C L
0033320 : A S S O C ) \r N I L \r ( ) \r e
0033340 x p a n d - % % T Y P E N U M B
0033360 E R - T O - B I T S - P E R - E
0033400 L E M E N T A 0 0 0 1 D 1 \r (
0033420 L ( 0 T Y P E E N T R Y ) )
0033440 \0 \r \0 \0 \0 001 @ 001 @ 002 001 \t \0 \0 h
0033460 032 032 020 \0 ( 7 A R R A Y - T A B
0033500 L E - E N T R Y - B I T S - P E
0033520 R - E L E M E N T ) \r N I L \r (
0033540 ) \r e x p a n d - % % T Y P E N
0033560 U M B E R - T O - B I T S - P E
0033600 R - E L E M E N T D 1 \r ( L
0033620 ( 1 $ $ M A C R O - E N V I R
0033640 O N M E N T 0 $ $ M A C R O
0033660 - F O R M ) F 1 % % A R R
0033700 A Y - T Y P E - T A B L E ) \0
0033720 025 001 001 \0 002 @ 002 001 021 001 \0 g \0 \0 H g
0033740 \0 \0 Q \n \0 \0 032 032 020 \0 ( 2 0 Q C
0033760 L : M A P C A R ) \r ( 1 4 Q e
0034000 x p a n d - % % T Y P E N U M B
0034020 E R - T O - B I T S - P E R - E
0034040 L E M E N T A 0 0 0 1 1 0 Q
0034060 E C A S E ) \r ( ) \r ( S E T F -
0034100 M A C R O - F U N C T I O N (
0034120 Q U O T E % % T Y P E N U M B
0034140 E R - T O - B I T S - P E R - E
0034160 L E M E N T ) ( Q U O T E \r
0034200 e x p a n d - % % T Y P E N U M
0034220 B E R - T O - B I T S - P E R -
0034240 E L E M E N T ) ) \r e x p a n d
0034260 - % % T Y P E N U M B E R - T O
0034300 - C M L - T Y P E A 0 0 0 1 D
0034320 1 \r ( L ( 0 T Y P E E N T R
0034340 Y ) ) \0 023 \0 \0 \0 001 @ 001 g \0 \0 @
0034360 002 001 \t \0 \0 h 032 032 h 032 032 020 \0 ( 1 2
0034400 Q A R R A Y - T A B L E - E N
0034420 T R Y - C M L - T Y P E ) \r ( 4
0034440 Q U O T E ) \r ( ) \r e x p a n
0034460 d - % % T Y P E N U M B E R - T
0034500 O - C M L - T Y P E D 1 \r ( L
0034520 ( 1 $ $ M A C R O - E N V I
0034540 R O N M E N T 0 $ $ M A C R
0034560 O - F O R M ) F 1 % % A R
0034600 R A Y - T Y P E - T A B L E )
0034620 \0 025 001 001 \0 002 @ 002 001 021 001 \0 g \0 \0 H
0034640 g \0 \0 Q \n \0 \0 032 032 020 \0 ( 2 0 Q
0034660 C L : M A P C A R ) \r ( 1 4 Q
0034700 e x p a n d - % % T Y P E N U M
0034720 B E R - T O - C M L - T Y P E A
0034740 0 0 0 1 1 0 Q E C A S E ) \r
0034760 ( ) \r ( S E T F - M A C R O - F
0035000 U N C T I O N ( Q U O T E %
0035020 % T Y P E N U M B E R - T O - C
0035040 M L - T Y P E ) ( Q U O T E
0035060 e x p a n d - % % T Y P E N U M
0035100 B E R - T O - C M L - T Y P E )
0035120 ) \r e x p a n d - % % T Y P E N
0035140 U M B E R - T O - D E F A U L T
0035160 - V A L U E A 0 0 0 1 D 1 \r (
0035200 L ( 0 T Y P E E N T R Y ) )
0035220 \0 \r \0 \0 \0 001 @ 001 @ 002 001 \t \0 \0 h
0035240 032 032 020 \0 ( 7 A R R A Y - T A B
0035260 L E - E N T R Y - D E F A U L T
0035300 - V A L U E ) \r N I L \r ( ) \r e
0035320 x p a n d - % % T Y P E N U M B
0035340 E R - T O - D E F A U L T - V A
0035360 L U E D 1 \r ( L ( 1 $ $ M
0035400 A C R O - E N V I R O N M E N T
0035420 0 $ $ M A C R O - F O R M )
0035440 F 1 % % A R R A Y - T Y P
0035460 E - T A B L E ) \0 025 001 001 \0 002 @
0035500 002 001 021 001 \0 g \0 \0 H g \0 \0 Q \n \0 \0
0035520 032 032 020 \0 ( 2 0 Q C L : M A P C
0035540 A R ) \r ( 1 4 Q e x p a n d -
0035560 % % T Y P E N U M B E R - T O -
0035600 D E F A U L T - V A L U E A 0 0
0035620 0 1 1 0 Q E C A S E ) \r ( )
0035640 \r ( S E T F - M A C R O - F U N
0035660 C T I O N ( Q U O T E % % T
0035700 Y P E N U M B E R - T O - D E F
0035720 A U L T - V A L U E ) ( Q U O
0035740 T E e x p a n d - % % T Y P E
0035760 N U M B E R - T O - D E F A U L
0036000 T - V A L U E \r ) ) \r e x p a n
0036020 d - % % T Y P E N U M B E R - T
0036040 O - G C - T Y P E A 0 0 0 1 D
0036060 1 \r ( L ( 0 T Y P E E N T R
0036100 Y ) ) \0 \r \0 \0 \0 001 @ 001 @ 002 001 \t
0036120 \0 \0 h 032 032 020 \0 ( 7 A R R A Y -
0036140 T A B L E - E N T R Y - G C - T
0036160 Y P E ) \r N I L \r ( ) \r e x p a
0036200 n d - % % T Y P E N U M B E R -
0036220 T O - G C - T Y P E D 1 \r ( L
0036240 ( 1 $ $ M A C R O - E N V I
0036260 R O N M E N T 0 $ $ M A C R
0036300 O - F O R M ) F 1 % % A R
0036320 R A Y - T Y P E - T A B L E )
0036340 \0 025 001 001 \0 002 @ 002 001 021 001 \0 g \0 \0 H
0036360 g \0 \0 Q \n \0 \0 032 032 020 \0 ( 2 0 Q
0036400 C L : M A P C A R ) \r ( 1 4 Q
0036420 e x p a n d - % % T Y P E N U M
0036440 B E R - T O - G C - T Y P E A 0
0036460 0 0 1 1 0 Q E C A S E ) \r (
0036500 ) \r ( S E T F - M A C R O - F U
0036520 N C T I O N ( Q U O T E % %
0036540 T Y P E N U M B E R - T O - G C
0036560 - T Y P E ) ( Q U O T E e x
0036600 p a n d - % % T Y P E N U M B E
0036620 R - T O - G C - T Y P E ) ) \r e
0036640 x p a n d - % % T Y P E N U M B
0036660 E R - T O - S I Z E D 1 \r ( L
0036700 ( 1 $ $ M A C R O - E N V I
0036720 R O N M E N T 0 $ $ M A C R
0036740 O - F O R M ) ) \0 022 001 \0 \0 002 @
0036760 002 001 021 001 \0 g \0 \0 H o \0 \0 \0 032 032 020
0037000 \0 N I L \r ( 1 0 Q L O G A N D
0037020 ) \r ( 1 5 Q ( 1 7 Q ) ) \r (
0037040 S E T F - M A C R O - F U N C T
0037060 I O N ( Q U O T E % % T Y P
0037100 E N U M B E R - T O - S I Z E )
0037120 ( Q U O T E e x p a n d - %
0037140 % T Y P E N U M B E R - T O - S
0037160 I Z E ) ) \r e x p a n d - % % T
0037200 Y P E N U M B E R - T O - T Y P
0037220 E D 1 \r ( L ( 1 $ $ M A C
0037240 R O - E N V I R O N M E N T 0
0037260 $ $ M A C R O - F O R M ) )
0037300 \0 022 001 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 H
0037320 o \0 \0 \0 032 032 020 \0 N I L \r ( 1 0 Q
0037340 L R S H ) \r ( 1 5 Q ( 4 )
0037360 ) \r ( S E T F - M A C R O - F U
0037400 N C T I O N ( Q U O T E % %
0037420 T Y P E N U M B E R - T O - T Y
0037440 P E ) ( Q U O T E e x p a n
0037460 d - % % T Y P E N U M B E R - T
0037500 O - T Y P E ) ) \r e x p a n d -
0037520 \ G E T B A S E S M A L L - F I
0037540 X P D 1 \r ( L ( 1 $ $ M A
0037560 C R O - E N V I R O N M E N T
0037600 0 $ $ M A C R O - F O R M ) )
0037620 \0 035 003 \0 \0 002 @ 002 021 ! 002 H 001 271 H
0037640 002 001 272 g \0 \0 g \0 \0 I J h 032 032 032 h
0037660 032 032 020 \0 N I L \r ( 2 1 Q \ G E
0037700 T B A S E 1 6 Q % % S M A L
0037720 L P O S P - S M A L L F I X P )
0037740 \r ( ) \r ( S E T F - M A C R O -
0037760 F U N C T I O N ( Q U O T E
0040000 \ G E T B A S E S M A L L - F I
0040020 X P ) ( Q U O T E e x p a n
0040040 d - \ G E T B A S E S M A L L -
0040060 F I X P ) ) \r e x p a n d - \ G
0040100 E T B A S E S T R I N G - C H A
0040120 R D 1 \r ( L ( 1 $ $ M A C
0040140 R O - E N V I R O N M E N T 0
0040160 $ $ M A C R O - F O R M ) )
0040200 \0 035 003 \0 \0 002 @ 002 021 ! 002 H 001 271 H 002
0040220 001 272 g \0 \0 g \0 \0 I J h 032 032 032 h 032
0040240 032 020 \0 N I L \r ( 2 1 Q \ G E T
0040260 B A S E 1 6 Q C O D E - C H
0040300 A R ) \r ( ) \r ( S E T F - M A C
0040320 R O - F U N C T I O N ( Q U O
0040340 T E \ G E T B A S E S T R I N
0040360 G - C H A R ) ( Q U O T E e
0040400 x p a n d - \ G E T B A S E S T
0040420 R I N G - C H A R ) ) \r e x p a
0040440 n d - \ G E T B A S E T H I N S
0040460 T R I N G - C H A R D 1 \r ( L
0040500 ( 1 $ $ M A C R O - E N V I
0040520 R O N M E N T 0 $ $ M A C R
0040540 O - F O R M ) ) \0 035 003 \0 \0 002 @
0040560 002 021 ! 002 H 001 271 H 002 001 272 g \0 \0 g \0
0040600 \0 I J h 032 032 032 h 032 032 020 \0 N I L \r
0040620 ( 2 1 Q \ G E T B A S E B Y T
0040640 E 1 6 Q C O D E - C H A R )
0040660 \r ( ) \r ( S E T F - M A C R O -
0040700 F U N C T I O N ( Q U O T E
0040720 \ G E T B A S E T H I N S T R I
0040740 N G - C H A R ) ( Q U O T E
0040760 e x p a n d - \ G E T B A S E T
0041000 H I N S T R I N G - C H A R ) )
0041020 \r e x p a n d - \ P U T B A S E
0041040 S M A L L - F I X P D 1 \r ( L
0041060 ( 1 $ $ M A C R O - E N V I
0041100 R O N M E N T 0 $ $ M A C R
0041120 O - F O R M ) ) \0 $ 005 \0 \0 002 @
0041140 002 021 A 004 H 001 271 H 002 Z 001 273 J 002 001 274
0041160 g \0 \0 I K g \0 \0 L h 032 032 h 032 032 032
0041200 032 020 \0 N I L \r ( 3 0 Q % % S M
0041220 A L L F I X P - S M A L L P O S
0041240 P 2 3 Q \ P U T B A S E ) \r
0041260 ( ) \r ( S E T F - M A C R O - F
0041300 U N C T I O N ( Q U O T E \
0041320 P U T B A S E S M A L L - F I X
0041340 P ) ( Q U O T E e x p a n d
0041360 - \ P U T B A S E S M A L L - F
0041400 I X P ) ) \r e x p a n d - \ P U
0041420 T B A S E S T R I N G - C H A R
0041440 D 1 \r ( L ( 1 $ $ M A C R
0041460 O - E N V I R O N M E N T 0
0041500 $ $ M A C R O - F O R M ) ) \0
0041520 $ 005 \0 \0 002 @ 002 021 A 004 H 001 271 H 002 Z
0041540 001 273 J 002 001 274 g \0 \0 I K g \0 \0 L h
0041560 032 032 h 032 032 032 032 020 \0 N I L \r ( 3 0
0041600 Q C H A R - C O D E 2 3 Q
0041620 \ P U T B A S E ) \r ( ) \r ( S E
0041640 T F - M A C R O - F U N C T I O
0041660 N ( Q U O T E \ P U T B A S
0041700 E S T R I N G - C H A R ) ( Q
0041720 U O T E e x p a n d - \ P U T
0041740 B A S E S T R I N G - C H A R )
0041760 ) \r e x p a n d - \ P U T B A S
0042000 E T H I N S T R I N G - C H A R
0042020 D 1 \r ( L ( 1 $ $ M A C R
0042040 O - E N V I R O N M E N T 0
0042060 $ $ M A C R O - F O R M ) ) \0
0042100 $ 005 \0 \0 002 @ 002 021 A 004 H 001 271 H 002 Z
0042120 001 273 J 002 001 274 g \0 \0 I K g \0 \0 L h
0042140 032 032 h 032 032 032 032 020 \0 N I L \r ( 3 0
0042160 Q C H A R - C O D E 2 3 Q
0042200 \ P U T B A S E B Y T E ) \r ( )
0042220 \r ( S E T F - M A C R O - F U N
0042240 C T I O N ( Q U O T E \ P U
0042260 T B A S E T H I N S T R I N G -
0042300 C H A R ) ( Q U O T E e x p
0042320 a n d - \ P U T B A S E T H I N
0042340 S T R I N G - C H A R ) ) \r A R
0042360 R A Y - T A B L E - E N T R Y -
0042400 T Y P E - T E S T D 1 \r ( L
0042420 ( 0 O B J E C T ) ) \0 \v \0 \0
0042440 \0 001 @ 002 002 002 002 002 002 002 001 020 \0 N I L
0042460 \r N I L \r ( ) \r s e t f - A R R
0042500 A Y - T A B L E - E N T R Y - T
0042520 Y P E - T E S T D 1 \r ( L (
0042540 1 V A L U E 0 O B J E C T
0042560 ) ) \0 \r \0 \0 \0 002 @ 002 002 002 002 002 002
0042600 002 A 030 001 020 \0 N I L \r N I L \r ( )
0042620 \r ( R E M P R O P ( Q U O T E
0042640 A R R A Y - T A B L E - E N T
0042660 R Y - T Y P E - T E S T ) ( Q
0042700 U O T E S E T F - M E T H O D
0042720 - E X P A N D E R ) ) \r ( P U T
0042740 P R O P S A R R A Y - T A B L
0042760 E - E N T R Y - T Y P E - T E S
0043000 T S E T F - I N V E R S E s
0043020 e t f - A R R A Y - T A B L E -
0043040 E N T R Y - T Y P E - T E S T )
0043060 \r A R R A Y - T A B L E - E N T
0043100 R Y - N E E D S - S H I F T - P
0043120 D 1 \r ( L ( 0 O B J E C T
0043140 ) ) \0 \n \0 \0 \0 001 @ 002 002 002 002 002 002
0043160 001 020 \0 N I L \r N I L \r ( ) \r s e
0043200 t f - A R R A Y - T A B L E - E
0043220 N T R Y - N E E D S - S H I F T
0043240 - P D 1 \r ( L ( 1 V A L U
0043260 E 0 O B J E C T ) ) \0 \f \0
0043300 \0 \0 002 @ 002 002 002 002 002 002 A 030 001 020 \0 N
0043320 I L \r N I L \r ( ) \r ( R E M P R
0043340 O P ( Q U O T E A R R A Y -
0043360 T A B L E - E N T R Y - N E E D
0043400 S - S H I F T - P ) ( Q U O T
0043420 E S E T F - M E T H O D - E X
0043440 P A N D E R ) ) \r ( P U T P R O
0043460 P S A R R A Y - T A B L E - E
0043500 N T R Y - N E E D S - S H I F T
0043520 - P S E T F - I N V E R S E
0043540 s e t f - A R R A Y - T A B L E
0043560 - E N T R Y - N E E D S - S H I
0043600 F T - P ) \r A R R A Y - T A B L
0043620 E - E N T R Y - D E F A U L T -
0043640 V A L U E D 1 \r ( L ( 0 O
0043660 B J E C T ) ) \0 \t \0 \0 \0 001 @ 002
0043700 002 002 002 002 001 020 \0 N I L \r N I L \r (
0043720 ) \r s e t f - A R R A Y - T A B
0043740 L E - E N T R Y - D E F A U L T
0043760 - V A L U E D 1 \r ( L ( 1
0044000 V A L U E 0 O B J E C T ) )
0044020 \0 \v \0 \0 \0 002 @ 002 002 002 002 002 A 030 001
0044040 020 \0 N I L \r N I L \r ( ) \r ( R E
0044060 M P R O P ( Q U O T E A R R
0044100 A Y - T A B L E - E N T R Y - D
0044120 E F A U L T - V A L U E ) ( Q
0044140 U O T E S E T F - M E T H O D
0044160 - E X P A N D E R ) ) \r ( P U T
0044200 P R O P S A R R A Y - T A B L
0044220 E - E N T R Y - D E F A U L T -
0044240 V A L U E S E T F - I N V E R
0044260 S E s e t f - A R R A Y - T A
0044300 B L E - E N T R Y - D E F A U L
0044320 T - V A L U E ) \r A R R A Y - T
0044340 A B L E - E N T R Y - G C - T Y
0044360 P E D 1 \r ( L ( 0 O B J E
0044400 C T ) ) \0 \b \0 \0 \0 001 @ 002 002 002 002
0044420 001 020 \0 N I L \r N I L \r ( ) \r s e
0044440 t f - A R R A Y - T A B L E - E
0044460 N T R Y - G C - T Y P E D 1 \r
0044500 ( L ( 1 V A L U E 0 O B
0044520 J E C T ) ) \0 \n \0 \0 \0 002 @ 002 002
0044540 002 002 A 030 001 020 \0 N I L \r N I L \r (
0044560 ) \r ( R E M P R O P ( Q U O T
0044600 E A R R A Y - T A B L E - E N
0044620 T R Y - G C - T Y P E ) ( Q U
0044640 O T E S E T F - M E T H O D -
0044660 E X P A N D E R ) ) \r ( P U T P
0044700 R O P S A R R A Y - T A B L E
0044720 - E N T R Y - G C - T Y P E S
0044740 E T F - I N V E R S E s e t f
0044760 - A R R A Y - T A B L E - E N T
0045000 R Y - G C - T Y P E ) \r A R R A
0045020 Y - T A B L E - E N T R Y - B I
0045040 T S - P E R - E L E M E N T D
0045060 1 \r ( L ( 0 O B J E C T ) )
0045100 \0 \a \0 \0 \0 001 @ 002 002 002 001 020 \0 N I
0045120 L \r N I L \r ( ) \r s e t f - A R
0045140 R A Y - T A B L E - E N T R Y -
0045160 B I T S - P E R - E L E M E N T
0045200 D 1 \r ( L ( 1 V A L U E
0045220 0 O B J E C T ) ) \0 \t \0 \0 \0
0045240 002 @ 002 002 002 A 030 001 020 \0 N I L \r N I
0045260 L \r ( ) \r ( R E M P R O P ( Q
0045300 U O T E A R R A Y - T A B L E
0045320 - E N T R Y - B I T S - P E R -
0045340 E L E M E N T ) ( Q U O T E
0045360 S E T F - M E T H O D - E X P A
0045400 N D E R ) ) \r ( P U T P R O P S
0045420 A R R A Y - T A B L E - E N T
0045440 R Y - B I T S - P E R - E L E M
0045460 E N T S E T F - I N V E R S E
0045500 s e t f - A R R A Y - T A B L
0045520 E - E N T R Y - B I T S - P E R
0045540 - E L E M E N T ) \r A R R A Y -
0045560 T A B L E - E N T R Y - S E T T
0045600 O R D 1 \r ( L ( 0 O B J E
0045620 C T ) ) \0 006 \0 \0 \0 001 @ 002 002 001 020
0045640 \0 N I L \r N I L \r ( ) \r s e t f
0045660 - A R R A Y - T A B L E - E N T
0045700 R Y - S E T T O R D 1 \r ( L
0045720 ( 1 V A L U E 0 O B J E C
0045740 T ) ) \0 \b \0 \0 \0 002 @ 002 002 A 030 001
0045760 020 \0 N I L \r N I L \r ( ) \r ( R E
0046000 M P R O P ( Q U O T E A R R
0046020 A Y - T A B L E - E N T R Y - S
0046040 E T T O R ) ( Q U O T E S E
0046060 T F - M E T H O D - E X P A N D
0046100 E R ) ) \r ( P U T P R O P S A
0046120 R R A Y - T A B L E - E N T R Y
0046140 - S E T T O R S E T F - I N V
0046160 E R S E s e t f - A R R A Y -
0046200 T A B L E - E N T R Y - S E T T
0046220 O R ) \r A R R A Y - T A B L E -
0046240 E N T R Y - A C C E S S O R D
0046260 1 \r ( L ( 0 O B J E C T ) )
0046300 \0 005 \0 \0 \0 001 @ 002 001 020 \0 N I L \r
0046320 N I L \r ( ) \r s e t f - A R R A
0046340 Y - T A B L E - E N T R Y - A C
0046360 C E S S O R D 1 \r ( L ( 1
0046400 V A L U E 0 O B J E C T ) )
0046420 \0 \a \0 \0 \0 002 @ 002 A 030 001 020 \0 N I
0046440 L \r N I L \r ( ) \r ( R E M P R O
0046460 P ( Q U O T E A R R A Y - T
0046500 A B L E - E N T R Y - A C C E S
0046520 S O R ) ( Q U O T E S E T F
0046540 - M E T H O D - E X P A N D E R
0046560 ) ) \r ( P U T P R O P S A R R
0046600 A Y - T A B L E - E N T R Y - A
0046620 C C E S S O R S E T F - I N V
0046640 E R S E s e t f - A R R A Y -
0046660 T A B L E - E N T R Y - A C C E
0046700 S S O R ) \r A R R A Y - T A B L
0046720 E - E N T R Y - C M L - T Y P E
0046740 D 1 \r ( L ( 0 O B J E C T
0046760 ) ) \0 004 \0 \0 \0 001 @ 001 020 \0 N I L
0047000 \r N I L \r ( ) \r s e t f - A R R
0047020 A Y - T A B L E - E N T R Y - C
0047040 M L - T Y P E D 1 \r ( L ( 1
0047060 V A L U E 0 O B J E C T )
0047100 ) \0 006 \0 \0 \0 002 @ A 030 001 020 \0 N I
0047120 L \r N I L \r ( ) \r ( R E M P R O
0047140 P ( Q U O T E A R R A Y - T
0047160 A B L E - E N T R Y - C M L - T
0047200 Y P E ) ( Q U O T E S E T F
0047220 - M E T H O D - E X P A N D E R
0047240 ) ) \r ( P U T P R O P S A R R
0047260 A Y - T A B L E - E N T R Y - C
0047300 M L - T Y P E S E T F - I N V
0047320 E R S E s e t f - A R R A Y -
0047340 T A B L E - E N T R Y - C M L -
0047360 T Y P E ) \r C O P Y - A R R A Y
0047400 - T A B L E - E N T R Y D 1 \r
0047420 ( L ( 0 O B J E C T ) ) \0
0047440 ? \0 \0 \0 001 @ 001 @ 002 001 @ 002 002 001 @ 002
0047460 002 002 001 @ 002 002 002 002 001 @ 002 002 002 002 002 001
0047500 @ 002 002 002 002 002 002 001 @ 002 002 002 002 002 002 002
0047520 001 @ 002 002 002 002 002 002 002 002 032 032 032 032 032 032
0047540 032 032 020 \0 N I L \r N I L \r ( ) \r (
0047560 D E F P R I N T ( Q U O T E
0047600 A R R A Y - T A B L E - E N T R
0047620 Y ) ( F U N C T I O N \ D E
0047640 F P R I N T . D E F S T R U C T
0047660 . D E F A U L T ) ) \r M A K E -
0047700 A R R A Y - T A B L E - E N T R
0047720 Y D 1 \r ( L ( 0 - a r g s
0047740 - ) ) 001 } 027 \0 002 \0 e 021 001 \0 H k
0047760 021 002 002 J d I 363 242 261 \0 267 277 h 022 021 361
0050000 020 021 ` 026 H k 273 272 K d J 363 242 261 \0 267
0050020 277 h 274 H k 276 275 N d M 363 242 261 \0 275 277
0050040 h _ 016 277 H k _ 022 277 _ 020 277 O 022 d O
0050060 020 363 242 261 \0 273 277 h _ 024 277 H k _ 030 277
0050100 _ 026 277 O 030 d O 026 363 242 261 \0 274 277 h _
0050120 032 277 H k _ 036 277 _ 034 277 O 036 d O 034 363
0050140 242 261 \0 275 277 h _ 277 H k _ $ 277 _ "
0050160 277 O $ d O " 363 242 261 \0 276 277 h _ & 277
0050200 H k _ * 277 _ ( 277 O * d O ( 363 242 261
0050220 \0 277 277 h _ , 277 I L O 016 O 024 O 032 O
0050240 O & O , h 032 032 032 032 032 032 032 032 020 a
0050260 g \0 \0 360 226 J k 330 a 261 377 D J l 002 324
0050300 Z 261 377 3 a g \0 \0 360 226 K k 330 a 261 377
0050320 D K l 002 324 [ 261 377 3 a g \0 \0 360 226 N
0050340 k 330 a 261 377 > N l 002 324 ^ 261 377 - a g
0050360 \0 \0 360 227 O 022 k 330 a 261 377 ? O 022 l 002
0050400 324 _ 022 261 377 + a g \0 \0 360 227 O 030 k 330
0050420 a 261 377 > O 030 l 002 324 _ 030 261 377 * a g
0050440 \0 \0 360 227 O 036 k 330 a 261 377 = O 036 l 002
0050460 324 _ 036 261 377 ) a g \0 \0 360 227 O $ k 330
0050500 a 261 377 < O $ l 002 324 _ $ 261 377 ( a g
0050520 \0 \0 360 227 O * k 330 a 261 377 ; O * l 002
0050540 324 _ * 261 377 ' \0 N I L \r ( 5 4 7 Q
0050560 : T Y P E - T E S T 5 1 7 Q
0050600 : N E E D S - S H I F T - P
0050620 4 6 7 Q : D E F A U L T - V A
0050640 L U E 4 3 7 Q : G C - T Y P
0050660 E 4 0 7 Q : B I T S - P E R
0050700 - E L E M E N T 3 6 2 Q : S
0050720 E T T O R 3 3 5 Q : A C C E
0050740 S S O R 3 1 0 Q : C M L - T
0050760 Y P E ) \r ( ) \r ( P U T P R O P
0051000 ( Q U O T E A R R A Y - T A
0051020 B L E - E N T R Y ) ( Q U O T
0051040 E S T R U C T U R E - C O N S
0051060 T R U C T O R ) ( Q U O T E
0051100 M A K E - A R R A Y - T A B L E
0051120 - E N T R Y ) ) \r ( P U T P R O
0051140 P ( Q U O T E A R R A Y - T
0051160 A B L E - E N T R Y ) ( Q U O
0051200 T E % % S T R U C T U R E - C
0051220 L A S S ) ( Q U O T E L I S
0051240 T - C L A S S ) ) \r ( P U T P R
0051260 O P ( Q U O T E A R R A Y -
0051300 T A B L E - E N T R Y ) ( Q U
0051320 O T E % % S L O T - D E S C R
0051340 I P T I O N S ) ( Q U O T E
0051360 ( C M L - T Y P E A C C E S S
0051400 O R S E T T O R \r B I T S -
0051420 P E R - E L E M E N T G C - T
0051440 Y P E D E F A U L T - V A L U
0051460 E N E E D S - S H I F T - P
0051500 T Y P E - T E S T ) ) ) \r ( P U
0051520 T P R O P ( Q U O T E A R R
0051540 A Y - T A B L E - E N T R Y )
0051560 ( Q U O T E % % L O C A L - S
0051600 L O T - N A M E S ) ( Q U O T
0051620 E ( T Y P E - T E S T N E E
0051640 D S - S H I F T - P \r D E F A
0051660 U L T - V A L U E G C - T Y P
0051700 E B I T S - P E R - E L E M E
0051720 N T S E T T O R A C C E S S
0051740 O R C M L - T Y P E ) ) ) \r (
0051760 P R O C L A I M ( Q U O T E
0052000 ( S P E C I A L % % L I T - A
0052020 R R A Y - S I Z E S ) ) ) \r ( S
0052040 E T Q % % L I T - A R R A Y -
0052060 S I Z E S ( Q U O T E ( ( 1
0052100 B I T 0 ) ( 8 B I T 3 )
0052120 ( 1 6 B I T 4 ) ( 3 2 B I T
0052140 6 ) ) ) ) \r ( L E T * ( ( A
0052160 0 3 0 6 ( Q U O T E % % L I
0052200 T - A R R A Y - S I Z E S ) )
0052220 ( A 0 3 0 7 ( Q U O T E V A
0052240 R I A B L E ) ) ( A 0 3 0 8
0052260 " S i z e c o d e s " ) ) (
0052300 P R O G N ( C O N D ( \r ( F
0052320 B O U N D P ( Q U O T E S E
0052340 T - D O C U M E N T A T I O N )
0052360 ) ( S E T - D O C U M E N T A
0052400 T I O N A 0 3 0 6 A 0 3 0 7
0052420 A 0 3 0 8 ) ) ) A 0 3 0 8 )
0052440 ) \r ( P R O C L A I M ( Q U O
0052460 T E ( S P E C I A L % % L I
0052500 T - A R R A Y - T A B L E ) ) )
0052520 \r ( S E T Q % % L I T - A R R
0052540 A Y - T A B L E ( Q U O T E
0052560 ( ( S T R I N G - C H A R ( (
0052600 8 B I T ( S T R I N G - C H A
0052620 R \ G E T B A S E T H I N S T
0052640 R I N G - C H A R \r \ P U T B
0052660 A S E T H I N S T R I N G - C H
0052700 A R 8 U N B O X E D B L O C
0052720 K . G C T | \ N u l l N I L
0052740 ( C L : L A M B D A ( O B J
0052760 E C T ) ( % % T H I N - S T R
0053000 I N G - C H A R - P O B J E C
0053020 T \r ) ) ) ) ( 1 6 B I T ( S
0053040 T R I N G - C H A R \ G E T B
0053060 A S E S T R I N G - C H A R \
0053100 P U T B A S E S T R I N G - C H
0053120 A R 1 6 U N B O X E D B L O
0053140 C K . G C T | \ N u l l N I
0053160 L ( \r C L : L A M B D A ( O
0053200 B J E C T ) ( S T R I N G - C
0053220 H A R - P O B J E C T ) ) ) )
0053240 ) ) ( T ( ( 3 2 B I T ( T
0053260 \ G E T B A S E P T R \ R P
0053300 L P T R 3 2 P T R B L O C K
0053320 . G C T N I L 1 \r ( C L :
0053340 L A M B D A ( O B J E C T )
0053360 T ) ) ) ) ) ( X P O I N T E R
0053400 ( ( 3 2 B I T ( X P O I N T
0053420 E R \ G E T B A S E P T R \
0053440 P U T B A S E P T R 3 2 U N
0053460 B O X E D B L O C K . G C T \r
0053500 N I L 1 ( C L : L A M B D A
0053520 ( O B J E C T ) T ) ) ) ) )
0053540 ( S I N G L E - F L O A T (
0053560 ( 3 2 B I T ( S I N G L E - F
0053600 L O A T \ G E T B A S E F L O
0053620 A T P \ P U T B A S E F L O A
0053640 T P 3 2 \r U N B O X E D B L
0053660 O C K . G C T 0 . 0 1 ( C
0053700 L : L A M B D A ( O B J E C T
0053720 ) ( F L O A T P O B J E C T
0053740 ) ) ) ) ) ) ( U N S I G N E D
0053760 - B Y T E ( ( 1 B I T ( ( U
0054000 N S I G N E D - B Y T E \r 1 )
0054020 \ G E T B A S E B I T \ P U
0054040 T B A S E B I T 1 U N B O X
0054060 E D B L O C K . G C T 0 N I
0054100 L ( C L : L A M B D A ( O B
0054120 J E C T ) ( A N D ( > = O
0054140 B J E C T 0 ) ( < = O B J
0054160 E C T \r 1 ) ) ) ) ) ( 8 B I
0054200 T ( ( U N S I G N E D - B Y T
0054220 E 8 ) \ G E T B A S E B Y T
0054240 E \ P U T B A S E B Y T E 8
0054260 U N B O X E D B L O C K . G C
0054300 T 0 N I L ( C L : L A M B
0054320 D A ( O B J E C T ) \r ( A N
0054340 D ( > = O B J E C T 0 )
0054360 ( < O B J E C T 2 5 6 ) ) )
0054400 ) ) ( 1 6 B I T ( ( U N S I
0054420 G N E D - B Y T E 1 6 ) \ G
0054440 E T B A S E \ P U T B A S E
0054460 1 6 \r U N B O X E D B L O C K
0054500 . G C T 0 N I L ( C L : L
0054520 A M B D A ( O B J E C T ) (
0054540 S M A L L P O S P O B J E C T
0054560 ) ) ) ) ) ) ( S I G N E D - B
0054600 Y T E ( ( 1 6 B I T ( ( S I
0054620 G N E D - B Y T E \r 1 6 ) \
0054640 G E T B A S E S M A L L - F I X
0054660 P \ P U T B A S E S M A L L -
0054700 F I X P 1 6 U N B O X E D B
0054720 L O C K . G C T 0 N I L (
0054740 C L : L A M B D A ( O B J E C
0054760 T ) ( A N D ( > = \r O B J
0055000 E C T M I N . S M A L L F I X
0055020 P ) ( < = O B J E C T M A
0055040 X . S M A L L F I X P ) ) ) ) )
0055060 ( 3 2 B I T ( ( S I G N E D
0055100 - B Y T E 3 2 ) \ G E T B A
0055120 S E F I X P \ P U T B A S E F
0055140 I X P \r 3 2 U N B O X E D B
0055160 L O C K . G C T 0 1 ( C L
0055200 : L A M B D A ( O B J E C T )
0055220 ( A N D ( > = O B J E C T
0055240 M I N . F I X P ) ( < = O
0055260 B J E C T M A X . F I X P ) )
0055300 ) ) ) ) ) ) ) ) \r ( L E T * (
0055320 ( A 0 3 0 9 ( Q U O T E % %
0055340 L I T - A R R A Y - T A B L E )
0055360 ) ( A 0 3 1 0 ( Q U O T E
0055400 V A R I A B L E ) ) ( A 0 3 1
0055420 1 \r " F i e l d s d e s c r
0055440 i b e d b y r e c o r d A
0055460 R R A Y - T Y P E - T A B L E -
0055500 E N T R Y " ) ) ( P R O G N
0055520 ( C O N D ( ( F B O U N D P
0055540 ( Q U O T E S E T - D O C U M
0055560 E N T A T I O N ) \r ) ( S E T
0055600 - D O C U M E N T A T I O N A
0055620 0 3 0 9 A 0 3 1 0 A 0 3 1 1
0055640 ) ) ) A 0 3 1 1 ) ) \r ( P R O
0055660 C L A I M ( Q U O T E ( S P
0055700 E C I A L % % L I T - A R R A
0055720 Y - T Y P E S ) ) ) \r ( S E T Q
0055740 % % L I T - A R R A Y - T Y P
0055760 E S ( Q U O T E ( ( U N S I
0056000 G N E D - B Y T E 0 ) ( S I
0056020 G N E D - B Y T E 1 ) ( T
0056040 2 ) ( S I N G L E - F L O A T
0056060 3 ) ( S T R I N G - C H A R
0056100 \r 4 ) ( X P O I N T E R 5
0056120 ) ) ) ) \r ( L E T * ( ( A 0 3
0056140 1 2 ( Q U O T E % % L I T -
0056160 A R R A Y - T Y P E S ) ) ( A
0056200 0 3 1 3 ( Q U O T E V A R I
0056220 A B L E ) ) ( A 0 3 1 4 " T
0056240 y p e c o d e s " ) ) ( P R
0056260 O G N ( C O N D ( \r ( F B O
0056300 U N D P ( Q U O T E S E T -
0056320 D O C U M E N T A T I O N ) )
0056340 ( S E T - D O C U M E N T A T I
0056360 O N A 0 3 1 2 A 0 3 1 3 A
0056400 0 3 1 4 ) ) ) A 0 3 1 4 ) ) \r
0056420 ( P R O C L A I M ( Q U O T E
0056440 ( S P E C I A L % % A R R A
0056460 Y - T Y P E - T A B L E ) ) ) \r
0056500 ( S E T Q % % A R R A Y - T Y
0056520 P E - T A B L E ( % % M A K E
0056540 - A R R A Y - T Y P E - T A B L
0056560 E % % L I T - A R R A Y - T A
0056600 B L E % % L I T - A R R A Y -
0056620 T Y P E S \r % % L I T - A R R
0056640 A Y - S I Z E S ) ) \r ( L E T *
0056660 ( ( A 0 3 1 5 ( Q U O T E
0056700 % % A R R A Y - T Y P E - T A B
0056720 L E ) ) ( A 0 3 1 6 ( Q U O
0056740 T E V A R I A B L E ) ) ( A
0056760 0 3 1 7 " D r i v e s v a r
0057000 i o u s m a c r o s " ) ) (
0057020 \r P R O G N ( C O N D ( ( F
0057040 B O U N D P ( Q U O T E S E
0057060 T - D O C U M E N T A T I O N )
0057100 ) ( S E T - D O C U M E N T A
0057120 T I O N A 0 3 1 5 A 0 3 1 6
0057140 A 0 3 1 7 ) ) ) A 0 3 1 7 )
0057160 ) \r ( P R O C L A I M ( Q U O
0057200 T E ( S P E C I A L % % C A
0057220 N O N I C A L - C M L - T Y P E
0057240 S ) ) ) \r ( S E T Q % % C A N
0057260 O N I C A L - C M L - T Y P E S
0057300 ( % % M A K E - C M L - T Y P
0057320 E - T A B L E % % A R R A Y -
0057340 T Y P E - T A B L E ) ) \r ( S E
0057360 T Q M A X . S M A L L F I X P
0057400 ( 1 - ( E X P T 2 1 5 )
0057420 ) ) \r ( P U T H A S H ( Q U O
0057440 T E M A X . S M A L L F I X P
0057460 ) ( Q U O T E ( C O N S T A
0057500 N T M A X . S M A L L F I X P
0057520 ) ) C O M P V A R M A C R O H
0057540 A S H ) \r ( S E T Q M I N . S
0057560 M A L L F I X P ( - ( E X P
0057600 T 2 1 5 ) ) ) \r ( P U T H A
0057620 S H ( Q U O T E M I N . S M
0057640 A L L F I X P ) ( Q U O T E
0057660 ( C O N S T A N T M I N . S M
0057700 A L L F I X P ) ) C O M P V A
0057720 R M A C R O H A S H ) \r ( S E T
0057740 Q % % C H A R - T Y P E ( %
0057760 % L I T - T Y P E - T O - T Y P
0060000 E ( Q U O T E S T R I N G -
0060020 C H A R ) ) ) \r ( P U T H A S H
0060040 ( Q U O T E % % C H A R - T
0060060 Y P E ) ( Q U O T E ( C O N
0060100 S T A N T % % C H A R - T Y P
0060120 E ) ) C O M P V A R M A C R O
0060140 H A S H ) \r ( S E T Q % % B I
0060160 T - T Y P E ( % % T Y P E - S
0060200 I Z E - T O - T Y P E N U M B E
0060220 R ( Q U O T E U N S I G N E
0060240 D - B Y T E ) ( Q U O T E 1
0060260 B I T ) ) ) \r ( P U T H A S H
0060300 ( Q U O T E % % B I T - T Y P
0060320 E ) ( Q U O T E ( C O N S T
0060340 A N T % % B I T - T Y P E ) )
0060360 C O M P V A R M A C R O H A S
0060400 H ) \r ( S E T Q % % T H I N -
0060420 C H A R - T Y P E N U M B E R
0060440 ( % % T Y P E - S I Z E - T O -
0060460 T Y P E N U M B E R ( Q U O T
0060500 E S T R I N G - C H A R ) (
0060520 Q U O T E 8 B I T ) ) ) \r ( P
0060540 U T H A S H ( Q U O T E % %
0060560 T H I N - C H A R - T Y P E N U
0060600 M B E R ) ( Q U O T E ( C O
0060620 N S T A N T % % T H I N - C H
0060640 A R - T Y P E N U M B E R ) )
0060660 C O M P V A R M A C R O H A S H
0060700 ) \r ( S E T Q % % F A T - C H
0060720 A R - T Y P E N U M B E R ( %
0060740 % T Y P E - S I Z E - T O - T Y
0060760 P E N U M B E R ( Q U O T E
0061000 S T R I N G - C H A R ) ( Q U
0061020 O T E 1 6 B I T ) ) ) \r ( P U
0061040 T H A S H ( Q U O T E % % F
0061060 A T - C H A R - T Y P E N U M B
0061100 E R ) ( Q U O T E ( C O N S
0061120 T A N T % % F A T - C H A R -
0061140 T Y P E N U M B E R ) ) C O M
0061160 P V A R M A C R O H A S H ) \r (
0061200 S E T Q % % M A X T H I N C H
0061220 A R ( 1 - ( E X P T 2 8
0061240 ) ) ) \r ( P U T H A S H ( Q U
0061260 O T E % % M A X T H I N C H A
0061300 R ) ( Q U O T E ( C O N S T
0061320 A N T % % M A X T H I N C H A
0061340 R ) ) C O M P V A R M A C R O
0061360 H A S H ) \r ( S E T Q % % G E
0061400 N E R A L - A R R A Y 1 6 ) \r
0061420 ( P U T H A S H ( Q U O T E
0061440 % % G E N E R A L - A R R A Y )
0061460 ( Q U O T E ( C O N S T A N
0061500 T % % G E N E R A L - A R R A
0061520 Y ) ) C O M P V A R M A C R O
0061540 H A S H ) \r ( L E T * ( ( A 0
0061560 3 1 8 ( Q U O T E % % G E N
0061600 E R A L - A R R A Y ) ) ( A 0
0061620 3 1 9 ( Q U O T E V A R I A
0061640 B L E ) ) ( A 0 3 2 0 " G e
0061660 n e r a l - a r r a y - t y p e
0061700 - n u m b e r " ) ) ( \r P R O
0061720 G N ( C O N D ( ( F B O U N
0061740 D P ( Q U O T E S E T - D O
0061760 C U M E N T A T I O N ) ) ( S
0062000 E T - D O C U M E N T A T I O N
0062020 A 0 3 1 8 A 0 3 1 9 A 0 3
0062040 2 0 ) ) ) A 0 3 2 0 ) ) \r ( S
0062060 E T Q % % O N E D - A R R A Y
0062100 1 4 ) \r ( P U T H A S H ( Q
0062120 U O T E % % O N E D - A R R A
0062140 Y ) ( Q U O T E ( C O N S T
0062160 A N T % % O N E D - A R R A Y
0062200 ) ) C O M P V A R M A C R O H
0062220 A S H ) \r ( L E T * ( ( A 0 3
0062240 2 1 ( Q U O T E % % O N E D
0062260 - A R R A Y ) ) ( A 0 3 2 2
0062300 ( Q U O T E V A R I A B L E )
0062320 ) ( A 0 3 2 3 " O N E D - A
0062340 R R A Y t y p e n u m b e r
0062360 " ) ) ( P R O G N \r ( C O N
0062400 D ( ( F B O U N D P ( Q U O
0062420 T E S E T - D O C U M E N T A
0062440 T I O N ) ) ( S E T - D O C U
0062460 M E N T A T I O N A 0 3 2 1
0062500 A 0 3 2 2 A 0 3 2 3 ) ) ) A
0062520 0 3 2 3 ) ) \r ( S E T Q % % T
0062540 W O D - A R R A Y 1 5 ) \r ( P
0062560 U T H A S H ( Q U O T E % %
0062600 T W O D - A R R A Y ) ( Q U O
0062620 T E ( C O N S T A N T % % T
0062640 W O D - A R R A Y ) ) C O M P
0062660 V A R M A C R O H A S H ) \r ( L
0062700 E T * ( ( A 0 3 2 4 ( Q U O
0062720 T E % % T W O D - A R R A Y )
0062740 ) ( A 0 3 2 5 ( Q U O T E
0062760 V A R I A B L E ) ) ( A 0 3 2
0063000 6 " T W O D - A R R A Y t y
0063020 p e n u m b e r " ) ) ( P R
0063040 O G N \r ( C O N D ( ( F B O
0063060 U N D P ( Q U O T E S E T -
0063100 D O C U M E N T A T I O N ) )
0063120 ( S E T - D O C U M E N T A T I
0063140 O N A 0 3 2 4 A 0 3 2 5 A
0063160 0 3 2 6 ) ) ) A 0 3 2 6 ) ) \r
0063200 ( P U T P R O P S C M L A R R
0063220 A Y - S U P P O R T F I L E T
0063240 Y P E C O M P I L E - F I L E
0063260 ) \r ( P U T P R O P S C M L A
0063300 R R A Y - S U P P O R T C O P
0063320 Y R I G H T ( " X e r o x C
0063340 o r p o r a t i o n " 1 9 8 6
0063360 ) ) \r N I L \r
0063367