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