$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSETF.DCOM!3
0000000 ( F I L E C R E A T E D " 1
0000020 - O c t - 8 6 1 8 : 0 8 : 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 S E T
0000120 F . ; 3 ) \r " 3 0 - S e p - 8
0000140 6 2 1 : 3 5 : 3 8 " i n "
0000160 X e r o x L i s p 2 9 - S e
0000200 p - 8 6 . . . " d a t e d
0000220 " 2 9 - S e p - 8 6 1 5 : 4 1
0000240 : 0 4 " ) \r ( F I L E C R E A T
0000260 E D " 1 - O c t - 8 6 1 8
0000300 : 0 5 : 4 5 " { E R I S } < L
0000320 I S P C O R E > S O U R C E S >
0000340 C M L S E T F . ; 3 3 8 4 1 6
0000360 c h a n g e s t o : ( V A
0000400 R S \r C M L S E T F C O M S )
0000420 ( F U N C T I O N S D E F I
0000440 N E - S E T F - M E T H O D D
0000460 E F S E T F ) p r e v i o u s
0000500 d a t e : " 9 - S e p - 8
0000520 6 1 8 : 2 0 : 0 0 " \r { E R
0000540 I S } < L I S P C O R E > S O U
0000560 R C E S > C M L S E T F . ; 2 )
0000600 \r ( R P A Q Q C M L S E T F C
0000620 O M S ( ( V A R S * D E F A
0000640 U L T - D E F A U L T * ) ( F
0000660 N S G E T - S E T F - M E T H
0000700 O D G E T - S E T F - M E T H
0000720 O D - M U L T I P L E - V A L U
0000740 E \r G E T - S I M P L E - S E
0000760 T F - M E T H O D ) ( D E F I
0001000 N E - T Y P E S S E T F S )
0001020 ( F U N C T I O N S D E F I N
0001040 E - M O D I F Y - M A C R O D
0001060 E F I N E - S E T F - M E T H O
0001100 D D E F S E T F \r ) ( F U N
0001120 C T I O N S I N C F D E C F
0001140 ) ( F U N C T I O N S S E T
0001160 F P S E T F S H I F T F R
0001200 O T A T E F C L : P U S H C
0001220 L : P U S H N E W C L : P O P
0001240 R E M F ) ( S E T F S \r C
0001260 A R C D R C A A A A R C A
0001300 A A D R C A A A R C A A D A
0001320 R C A A D D R C A A D R C
0001340 A A R C A D A A R C A D A D
0001360 R C A D A R C A D D A R C
0001400 A D D D R C A D D R C A D R
0001420 \r C D A A A R C D A A D R
0001440 C D A A R C D A D A R C D A
0001460 D D R C D A D R C D A R C
0001500 D D A A R C D D A D R C D D
0001520 A R C D D D A R C D D D D R
0001540 C D D D R C D D R C L : F
0001560 I R S T \r S E C O N D T H I
0001600 R D F O U R T H F I F T H
0001620 S I X T H S E V E N T H E I
0001640 G H T H N I N T H T E N T H
0001660 R E S T N T H C D R C L :
0001700 N T H G E T H A S H G E T F
0001720 C L : A P P L Y \r L D B M
0001740 A S K - F I E L D C H A R - B
0001760 I T T H E ) ( S E T F S \
0002000 G E T B A S E P T R ) ( P R O
0002020 P F I L E T Y P E C M L S E
0002040 T F ) ( D E C L A R E : D O
0002060 N T E V A L @ L O A D \r D O E
0002100 V A L @ C O M P I L E D O N T
0002120 C O P Y C O M P I L E R V A R
0002140 S ( A D D V A R S ( N L A M
0002160 A ) ( N L A M L ) ( L A M A
0002200 G E T - S E T F - M E T H O D
0002220 - M U L T I P L E - V A L U E
0002240 \r G E T - S E T F - M E T H O D
0002260 ) ) ) ) ) \r ( R P A Q Q * D E
0002300 F A U L T - D E F A U L T * N
0002320 I L ) \r G E T - S E T F - M E T
0002340 H O D D 1 \r ( L ( 1 E N V
0002360 I R O N M E N T 0 F O R M )
0002400 ) \0 270 002 \0 \0 002 021 001 @ d 004 l 004
0002420 360 262 033 277 \b \0 \0 271 h d I h 032 g \0 \0
0002440 @ I h 032 032 032 @ \r 005 \0 \0 020 003 250 o \0
0002460 \0 \0 @ \n \0 \0 020 @ 001 301 002 311 \0 g \0 \0
0002500 ' 265 \f @ 001 301 002 311 \0 g \0 \0 ' X 225 @
0002520 H \n \0 \0 020 @ 001 301 002 311 \0 g \0 \0 ' X
0002540 226 @ A l 002 H 016 020 @ 001 301 002 311 \0 g \0
0002560 \0 ' X 262 2 g \0 \0 H \t \0 \0 001 g \0 \0
0002600 \v \0 \0 g \0 \0 @ 001 l 003 m 377 \v \0 \0 \n
0002620 \0 \0 @ 002 001 h 032 032 h 032 032 h b 002 277 b
0002640 \0 023 261 377 f @ A \n \0 \0 d @ 360 232 277 o
0002660 \0 \0 \0 @ 001 \n \0 \0 020 b \0 023 261 377 L \0
0002700 ( 2 5 7 Q C L : E R R O R 2
0002720 4 1 Q M A C R O E X P A N D -
0002740 1 2 1 1 Q P A C K * 2 0 6
0002760 Q S U B S T R I N G 1 7 2 Q
0003000 P A C K * 1 6 3 Q L A S T
0003020 1 1 3 Q G E T - S I M P L E
0003040 - S E T F - M E T H O D 5 5 Q
0003060 C L : E R R O R 4 2 Q V A
0003100 L U E S 1 6 Q G E N S Y M )
0003120 \r ( 1 7 5 Q C 1 6 7 Q R
0003140 1 5 7 Q C 1 5 0 Q C R O P
0003160 S 1 2 5 Q S E T F - M E T H
0003200 O D - E X P A N D E R 1 0 3 Q
0003220 S E T F N 6 7 Q S E T F -
0003240 I N V E R S E 2 7 Q S E T Q
0003260 ) \r ( 2 5 2 Q " ~ S i s
0003300 n o t a k n o w n l o c a
0003320 t i o n s p e c i f i e r f
0003340 o r S E T F . " 5 1 Q " ~
0003360 S i l l e g a l a t o m i c
0003400 f o r m f o r G E T - S E
0003420 T F - M E T H O D . " ) \r G E T
0003440 - S E T F - M E T H O D - M U L
0003460 T I P L E - V A L U E D 1 \r (
0003500 L ( 1 E N V I R O N M E N T
0003520 0 F O R M ) ) \0 \a \0 \0 \0 002
0003540 @ A \n \0 \0 020 \0 ( 4 G E T - S E
0003560 T F - M E T H O D ) \r N I L \r (
0003600 ) \r G E T - S I M P L E - S E T
0003620 F - M E T H O D D 1 \r ( P 4
0003640 X P 3 A 1 4 0 1 P 2
0003660 V A L S P 1 V A R S P
0003700 0 N E W - V A R I 1 S
0003720 E T F - I N V E R S E I 0
0003740 F O R M ) \0 = 005 \0 \0 002 \b \0 \0 021
0003760 ! 002 @ 002 021 021 004 K 265 037 023 J \t \0 \0 Z
0004000 I J H h 032 A I H h 032 \n \0 \0 032 @ 001
0004020 I 032 \r 005 \0 \0 020 001 274 \b \0 \0 I 032 271 L
0004040 J 032 272 K 002 [ 260 322 \0 ( 5 7 Q G E
0004060 N S Y M 5 1 Q V A L U E S
0004100 4 0 Q \ A P P E N D 2 2 2 Q
0004120 N R E V E R S E 2 G E N S
0004140 Y M ) \r N I L \r ( ) \r ( A D D T
0004160 O V A R P R E T T Y D E F M A
0004200 C R O S ( S E T F S X ( P
0004220 * ( M A P C A R ( Q U O T
0004240 E X ) ( F U N C T I O N (
0004260 L A M B D A ( I T E M ) ( C
0004300 L : D O ( ( D E F ( \r G E T
0004320 D E F I T E M ( Q U O T E
0004340 S E T F S ) ) ) ) ( D E F D
0004360 E F ) ( C E R R O R " R e -
0004400 f e t c h t h e d e f i n i
0004420 t i o n " " N o ~ S d e f
0004440 i n i t i o n f o r ~ S "
0004460 ( \r Q U O T E S E T F S ) I
0004500 T E M ) ) ) ) ) ) ) ) \r ( A D D
0004520 T O V A R P R E T T Y T Y P E
0004540 L S T ( C H A N G E D S E T F
0004560 S L S T S E T F S " C o m m
0004600 o n L i s p S E T F d e f
0004620 i n i t i o n s " ) ) \r ( C O N
0004640 D ( ( N O T ( C L : G E T H
0004660 A S H ( Q U O T E S E T F S
0004700 ) * D E F I N I T I O N - H A
0004720 S H - T A B L E * ) ) ( C L :
0004740 P U T H A S H ( Q U O T E S
0004760 E T F S ) \r * D E F I N I T I
0005000 O N - H A S H - T A B L E * (
0005020 M A K E - H A S H - T A B L E
0005040 ( Q U O T E : T E S T ) ( Q
0005060 U O T E C L : E Q U A L ) (
0005100 Q U O T E : S I Z E ) 5 0
0005120 ( Q U O T E \r : R E H A S H -
0005140 S I Z E ) 5 0 ) ) ) ) \r ( A D
0005160 D T O V A R F I L E P K G T Y
0005200 P E S S E T F S ) \r ( P U T P
0005220 R O P S S E T F S G E T D E
0005240 F \ D E F I N E - T Y P E - G
0005260 E T D E F ) \r ( P U T P R O P S
0005300 S E T F S F I L E P K G C O
0005320 N T E N T S N I L L ) \r ( P U
0005340 T P R O P S S E T F S P R O
0005360 P T Y P E S E T F S ) \r e x p
0005400 a n d - D E F I N E - M O D I F
0005420 Y - M A C R O D 1 \r ( L ( 1
0005440 $ $ M A C R O - E N V I R O N
0005460 M E N T 0 $ $ M A C R O - F
0005500 O R M ) ) 001 . \f \0 \0 002 @ 002 \t \0
0005520 \0 021 261 \v @ 271 H 001 272 H 002 [ 001 274 K 002
0005540 ] 001 276 M 002 d 220 001 _ 016 277 g \0 \0 g \0
0005560 \0 h _ 024 _ 026 277 L h _ 022 277 _ 020 265 004
0005600 260 034 001 _ 022 g \0 \0 360 263 z O 022 d g \0
0005620 \0 360 262 ` 277 O 020 002 001 _ 026 277 O 024 \t \0
0005640 \0 _ 024 277 g \0 \0 J g \0 \0 L o \0 \0 \0
0005660 \n \0 \0 032 O 016 g \0 \0 o \0 \0 \0 o \0 \0
0005700 \0 g \0 \0 o \0 \0 \0 o \0 \0 \0 g \0 \0 g
0005720 \0 \0 o \0 \0 \0 O 026 262 1 g \0 \0 g \0 \0
0005740 N h 032 032 g \0 \0 O 024 O 026 h 032 \n \0 \0
0005760 260 ( 004 l 004 360 222 O 022 202 O 022 001 O 024 032
0006000 _ 024 277 O 020 002 261 377 v g \0 \0 g \0 \0 N
0006020 h 032 032 g \0 \0 O 024 032 032 032 h 032 032 032 o
0006040 \0 \0 \0 032 032 o \0 \0 \0 032 032 h 032 032 032 h
0006060 032 032 032 032 h 032 032 032 032 032 h 032 032 g \0 \0
0006100 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0006120 J h 032 032 o \0 \0 \0 g \0 \0 I h 032 032 h
0006140 032 032 032 032 h 032 032 032 h 032 032 032 g \0 \0 J
0006160 h 032 032 h 032 032 032 032 020 \0 ( 2 4 3 Q
0006200 \ A P P E N D 2 1 4 6 Q \ A
0006220 P P E N D 2 1 2 4 Q R E V E
0006240 R S E 4 R E M O V E - C O M
0006260 M E N T S ) \r ( 4 4 2 Q Q U O
0006300 T E 4 1 6 Q Q U O T E 4 0
0006320 3 Q Q U O T E 4 0 0 Q \ D
0006340 E F I N E - T Y P E - S A V E -
0006360 D E F N 3 7 5 Q F I L E P K
0006400 G F L G 3 7 2 Q A N D 3 6
0006420 3 Q E V A L - W H E N 3 1 1
0006440 Q G E T T E R 3 0 2 Q Q U
0006460 O T E 2 7 7 Q L I S T 2 3
0006500 2 Q G E T T E R 2 2 3 Q Q
0006520 U O T E 2 2 0 Q L I S T *
0006540 2 0 5 Q L I S T 2 0 2 Q C
0006560 L : P U S H 1 6 7 Q C L : D
0006600 O 1 5 4 Q M U L T I P L E -
0006620 V A L U E - B I N D 1 3 6 Q
0006640 $ $ M O D I F Y - M A C R O - F
0006660 O R M 1 3 2 Q D E F M A C R
0006700 O 1 0 4 Q & R E S T 7 3 Q
0006720 & O P T I O N A L 4 4 Q W
0006740 I T H O U T - F I L E P K G 4
0006760 1 Q P R O G N ) \r ( 4 1 3 Q
0007000 ( Q U O T E F U N C T I O N
0007020 S ) 3 6 7 Q ( C L : E V A L
0007040 ) 3 3 4 Q ( ( B Q U O T E
0007060 ( L E T * ( \ , ( R E V E R
0007100 S E L E T - L I S T ) ) ( \
0007120 , S E T T E R ) ) ) ) 3 2 6
0007140 Q \r ( L E T - L I S T ) 2 1
0007160 1 Q ( C A R N E W - V A L U
0007200 E ) 1 7 7 Q ( N U L L D )
0007220 1 7 3 Q ( ( D D U M M Y -
0007240 V A R I A B L E S ( C D R D
0007260 ) ) ( V V A L U E S ( C D
0007300 R V ) ) ( L E T - L I S T
0007320 N I L ( C O N S ( L I S T
0007340 ( C A R D ) ( C A R V ) )
0007360 L E T - L I S T ) ) ) \r 1 6
0007400 4 Q ( G E T - S E T F - M E T
0007420 H O D $ $ M O D I F Y - M A C
0007440 R O - F O R M $ $ M O D I F Y
0007460 - M A C R O - E N V I R O N M E
0007500 N T ) 1 6 0 Q ( D U M M Y -
0007520 V A R I A B L E S V A L U E S
0007540 N E W - V A L U E S E T T E
0007560 R G E T T E R ) \r 1 4 3 Q
0007600 ( & E N V I R O N M E N T $ $
0007620 M O D I F Y - M A C R O - E N V
0007640 I R O N M E N T ) ) \r ( S E T F
0007660 - M A C R O - F U N C T I O N
0007700 ( Q U O T E D E F I N E - M O
0007720 D I F Y - M A C R O ) ( Q U O
0007740 T E e x p a n d - D E F I N E
0007760 - M O D I F Y - M A C R O ) ) \r
0010000 ( A D D T O V A R P R E T T Y
0010020 P R I N T M A C R O S ( D E F
0010040 I N E - M O D I F Y - M A C R O
0010060 . P P R I N T - D E F I N E
0010100 R ) ) \r ( L E T * ( ( A 1 1 9
0010120 5 ( Q U O T E D E F I N E -
0010140 M O D I F Y - M A C R O ) ) (
0010160 A 1 1 9 6 ( Q U O T E C L :
0010200 F U N C T I O N ) ) ( A 1 1 9
0010220 7 \r " C r e a t e s a n e
0010240 w r e a d - m o d i f y - w r
0010260 i t e m a c r o l i k e P
0010300 U S H o r I N C F . " ) )
0010320 ( P R O G N ( C O N D ( ( F
0010340 B O U N D P ( Q U O T E \r S
0010360 E T - D O C U M E N T A T I O N
0010400 ) ) ( S E T - D O C U M E N T
0010420 A T I O N A 1 1 9 5 A 1 1 9
0010440 6 A 1 1 9 7 ) ) ) A 1 1 9 7
0010460 ) ) \r e x p a n d - D E F I N E
0010500 - S E T F - M E T H O D D 1 \r
0010520 ( L ( 1 $ $ M A C R O - E N
0010540 V I R O N M E N T 0 $ $ M A
0010560 C R O - F O R M ) ) 001 , 020 \0 \0
0010600 002 @ 002 \t \0 \0 021 301 \f @ 271 H 001 272 H 002
0010620 [ 001 274 K 002 275 A 276 M _ 016 277 g \0 \0 g
0010640 \0 \0 o \0 \0 \0 J \n \0 \0 o \0 \0 \0 J \n
0010660 \0 \0 o \0 \0 \0 J \n \0 \0 021 003 017 L O 032
0010700 O 016 J N g \0 \0 O 034 g \0 \0 o \0 \0 \0
0010720 \r \t \0 \0 \t \0 \0 _ 030 001 _ 026 277 O 030 002
0010740 _ 024 001 _ 022 277 O 024 002 001 _ 020 277 g \0 \0
0010760 o \0 \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0
0011000 \0 \0 032 032 g \0 \0 g \0 \0 J h 032 032 o \0
0011020 \0 \0 032 032 g \0 \0 O 036 O 032 O 034 h 032 032
0011040 O 022 O 026 h 032 \n \0 \0 032 032 032 g \0 \0 g
0011060 \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 O 036 h
0011100 032 032 h 032 032 032 032 O 020 264 035 g \0 \0 g \0
0011120 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032 O 020
0011140 h 032 032 032 h 032 032 032 032 032 032 032 022 h 032 032
0011160 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0 \0
0011200 g \0 \0 J h 032 032 o \0 \0 \0 g \0 \0 I h
0011220 032 032 h 032 032 032 032 h 032 032 032 h 032 032 032 g
0011240 \0 \0 J h 032 032 h 032 032 032 032 020 \0 ( 2 4
0011260 7 Q \ A P P E N D 2 1 2 5 Q
0011300 \ M V L I S T 1 2 2 Q P A
0011320 R S E - D E F M A C R O 7 0 Q
0011340 P A C K * 6 0 Q P A C K *
0011360 5 0 Q P A C K * 4 R E M
0011400 O V E - C O M M E N T S ) \r ( 4
0011420 4 0 Q Q U O T E 4 1 4 Q Q
0011440 U O T E 4 0 1 Q Q U O T E
0011460 3 7 6 Q \ D E F I N E - T Y P
0011500 E - S A V E - D E F N 3 7 3 Q
0011520 F I L E P K G F L G 3 7 0 Q
0011540 A N D 3 6 1 Q E V A L - W
0011560 H E N 3 2 2 Q Q U O T E 3
0011600 1 7 Q D O C U M E N T A T I O
0011620 N 3 1 4 Q S E T F 2 7 3 Q
0011640 Q U O T E 2 6 0 Q Q U O T
0011660 E 2 5 5 Q P U T P R O P 2
0011700 2 5 Q D E F U N 2 1 0 Q Q
0011720 U O T E 2 0 5 Q R E M P R O
0011740 P 1 7 0 Q Q U O T E 1 6 5
0011760 Q R E M P R O P 1 5 6 Q E
0012000 V A L - W H E N 1 1 2 Q : E
0012020 R R O R - S T R I N G 1 0 5 Q
0012040 : E N V I R O N M E N T 4 0
0012060 Q W I T H O U T - F I L E P K
0012100 G 3 5 Q P R O G N ) \r ( 4
0012120 1 1 Q ( Q U O T E S E T F S
0012140 ) 3 6 5 Q ( C L : E V A L )
0012160 3 3 2 Q ( ( Q U O T E S E
0012200 T F ) ) 2 7 0 Q ( Q U O T E
0012220 S E T F - M E T H O D - E X P
0012240 A N D E R ) 2 2 0 Q ( ( Q U
0012260 O T E S E T F N ) ) \r 2 0 0
0012300 Q ( ( Q U O T E S E T F - I
0012320 N V E R S E ) ) 1 6 2 Q ( E
0012340 V A L C L : C O M P I L E L
0012360 O A D ) 1 1 6 Q " S e t f
0012400 e x p a n d e r f o r ~ S
0012420 c a n n o t b e c a l l e d
0012440 w i t h ~ S a r g s . " \r
0012460 6 4 Q " s e t f - e x p a n
0012500 d e r - " 5 4 Q " e n v - "
0012520 4 4 Q " w h o l e - " ) \r (
0012540 S E T F - M A C R O - F U N C T
0012560 I O N ( Q U O T E D E F I N
0012600 E - S E T F - M E T H O D ) (
0012620 Q U O T E e x p a n d - D E F
0012640 I N E - S E T F - M E T H O D )
0012660 ) \r ( A D D T O V A R P R E T
0012700 T Y P R I N T M A C R O S ( D
0012720 E F I N E - S E T F - M E T H O
0012740 D . P P R I N T - D E F I N
0012760 E R ) ) \r e x p a n d - D E F S
0013000 E T F D 1 \r ( L ( 1 $ $ M
0013020 A C R O - E N V I R O N M E N T
0013040 0 $ $ M A C R O - F O R M )
0013060 ) 001 276 024 \0 \0 002 @ 002 \t \0 \0 021 361 017
0013100 021 @ 023 @ 271 H 001 272 H 002 273 A 274 g \0 \0
0013120 g \0 \0 K d 001 003 263 0 001 275 g \0 \0 o \0
0013140 \0 \0 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0
0013160 032 032 g \0 \0 J g \0 \0 M h 032 032 032 032 h
0013200 032 032 032 032 261 001 2 001 ^ 225 N 003 242 261 001 !
0013220 K 002 242 261 001 033 K 002 001 _ 016 226 O 016 003 242
0013240 261 001 016 K _ & 001 _ $ 277 O & 002 _ " 001
0013260 _ 001 _ 036 277 O 002 _ 034 277 O " 002 _
0013300 032 277 O 034 233 o \0 \0 \0 o \0 \0 \0 \n \0 \0
0013320 277 J o \0 \0 \0 \n \0 \0 J o \0 \0 \0 \n \0
0013340 \0 _ 030 277 _ 026 277 O $ O 026 O 032 J L \r
0013360 005 \0 \0 \t \0 \0 _ 024 001 _ 022 277 O 024 002 002
0013400 001 _ 020 277 g \0 \0 o \0 \0 \0 g \0 \0 g \0
0013420 \0 J h 032 032 o \0 \0 \0 032 032 g \0 \0 g \0
0013440 \0 g \0 \0 O 030 h 032 032 h 032 032 g \0 \0 g
0013460 \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 O 026 o
0013500 \0 \0 \0 032 O 036 o \0 \0 \0 032 h 032 032 032 g
0013520 \0 \0 g \0 \0 o \0 \0 \0 g \0 \0 O 036 h 032
0013540 032 O 022 O 026 h 032 032 032 032 032 032 h 032 032 032
0013560 h 032 032 032 h 032 032 h 032 032 032 g \0 \0 J g
0013600 \0 \0 O 030 h 032 032 032 032 O 020 264 035 g \0 \0
0013620 g \0 \0 g \0 \0 J h 032 032 o \0 \0 \0 032 032
0013640 O 020 h 032 032 032 h 032 032 032 032 032 032 207 o \0
0013660 \0 \0 J \n \0 \0 h 032 032 g \0 \0 o \0 \0 \0
0013700 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032
0013720 o \0 \0 \0 g \0 \0 I h 032 032 h 032 032 032 032
0013740 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h
0013760 032 032 032 032 020 \0 ( 5 7 5 Q C L : E
0014000 R R O R 2 7 5 Q \ M V L I S
0014020 T 2 7 2 Q P A R S E - D E F
0014040 M A C R O 2 5 0 Q P A C K *
0014060 2 4 0 Q P A C K * 2 2 7 Q
0014100 C E R R O R 4 R E M O V E
0014120 - C O M M E N T S ) \r ( 6 6 2 Q
0014140 Q U O T E 6 3 6 Q Q U O T
0014160 E 6 2 3 Q Q U O T E 6 2 0
0014200 Q \ D E F I N E - T Y P E - S
0014220 A V E - D E F N 6 1 5 Q F I
0014240 L E P K G F L G 6 1 2 Q A N
0014260 D 6 0 3 Q E V A L - W H E N
0014300 5 3 5 Q Q U O T E 5 3 2 Q
0014320 D O C U M E N T A T I O N 5
0014340 2 7 Q S E T F 5 1 1 Q S E
0014360 T F - M E T H O D - E X P A N D
0014400 E R 5 0 5 Q P U T P R O P S
0014420 4 4 3 Q L I S T 4 3 4 Q
0014440 D U M M I E S 4 3 1 Q V A L
0014460 U E S 4 0 0 Q L E T * 3 7
0014500 1 Q L A M B D A 3 6 6 Q F
0014520 U N C T I O N 3 5 3 Q Q U O
0014540 T E 3 5 0 Q S Y M B O L - F
0014560 U N C T I O N 3 4 5 Q S E T
0014600 F 3 3 0 Q Q U O T E 3 2 5
0014620 Q R E M P R O P 3 1 6 Q E
0014640 V A L - W H E N 1 0 0 Q S E
0014660 T F - I N V E R S E 7 4 Q P
0014700 U T P R O P S 5 7 Q Q U O T
0014720 E 5 4 Q R E M P R O P 4 5
0014740 Q E V A L - W H E N 3 2 Q
0014760 W I T H O U T - F I L E P K G
0015000 2 7 Q P R O G N ) \r ( 6 3 3
0015020 Q ( Q U O T E S E T F S )
0015040 6 0 7 Q ( C L : E V A L ) 5
0015060 7 1 Q " I l l - f o r m e d
0015100 D E F S E T F f o r ~ S . "
0015120 5 4 5 Q ( ( Q U O T E S E
0015140 T F ) ) 4 4 0 Q ( C D R A
0015160 C C E S S - F O R M ) \r 4 2 1
0015200 Q ( ( G E N S Y M ) ) 4 1 2
0015220 Q ( ( C O N S ( C A R A C
0015240 C E S S - F O R M ) D U M M I
0015260 E S ) ) 4 0 4 Q ( D U M M I
0015300 E S ( M A P C A R ( C D R
0015320 A C C E S S - F O R M ) ( F U
0015340 N C T I O N ( L A M B D A (
0015360 X ) ( G E N S Y M ) ) ) ) ) \r
0015400 3 7 5 Q ( A C C E S S - F O
0015420 R M ) 3 4 0 Q ( ( Q U O T E
0015440 S E T F - I N V E R S E ) )
0015460 3 2 2 Q ( E V A L C L : C O
0015500 M P I L E L O A D ) 2 4 5 Q
0015520 " - s e t f - e x p a n d e r
0015540 " 2 3 5 Q \r " - s e t f - f
0015560 o r m " 2 2 4 Q " C u r r e
0015600 n t l y o n l y o n e n e
0015620 w - v a l u e v a r i a b l e
0015640 i s a l l o w e d i n D
0015660 E F S E T F . " 2 2 0 Q " I
0015700 g n o r e t h e e x t r a
0015720 i t e m s i n t h e l i s
0015740 t . " \r 6 7 Q ( ( Q U O T E
0015760 S E T F - M E T H O D - E X P
0016000 A N D E R ) ) 5 1 Q ( L O A
0016020 D C L : C O M P I L E E V A
0016040 L ) ) \r ( S E T F - M A C R O -
0016060 F U N C T I O N ( Q U O T E
0016100 D E F S E T F ) ( Q U O T E
0016120 e x p a n d - D E F S E T F ) )
0016140 \r ( A D D T O V A R P R E T T
0016160 Y P R I N T M A C R O S ( D E
0016200 F S E T F . P P R I N T - D
0016220 E F I N E R ) ) \r ( L E T * (
0016240 ( A 1 2 0 3 ( Q U O T E D E
0016260 F S E T F ) ) ( A 1 2 0 4 (
0016300 Q U O T E C L : F U N C T I O
0016320 N ) ) ( A 1 2 0 5 \r " A s s
0016340 o c i a t e s a S E T F u
0016360 p d a t e f u n c t i o n o
0016400 r m a c r o w i t h t h e
0016420 s p e c i f i e d a c c e s
0016440 s f u n c t i o n o r m a
0016460 c r o " ) ) ( P R O G N ( \r
0016500 C O N D ( ( F B O U N D P (
0016520 Q U O T E S E T - D O C U M E
0016540 N T A T I O N ) ) ( S E T - D
0016560 O C U M E N T A T I O N A 1 2
0016600 0 3 A 1 2 0 4 A 1 2 0 5 ) )
0016620 ) A 1 2 0 5 ) ) \r e x p a n d
0016640 - I N C F D 1 \r ( L ( 1 $
0016660 $ M A C R O - E N V I R O N M E
0016700 N T 0 $ $ M A C R O - F O R
0016720 M ) ) \0 206 020 \0 \0 002 @ 002 021 301 \f H
0016740 001 271 H 002 265 ^ k 272 A 273 I K \n \0 \0 \t
0016760 \0 \0 \ 001 275 L 002 ^ 001 _ 016 277 N 002 _ 020
0017000 001 _ 022 277 O 020 002 _ 024 001 _ 026 277 O 024 002
0017020 001 _ 030 277 M O 016 021 022 017 O 032 265 ) O 022
0017040 001 g \0 \0 O 030 J h 032 032 032 h 032 032 O 036
0017060 032 _ 036 g \0 \0 O 036 \t \0 \0 O 026 h 032 032
0017100 032 020 001 260 244 002 O 034 002 O 032 001 O 034 001 h
0017120 032 032 O 036 032 _ 036 277 _ 034 277 _ 032 260 277 \0
0017140 ( 1 4 0 Q R E V E R S E 2 7
0017160 Q \ M V L I S T 2 4 Q G E
0017200 T - S E T F - M E T H O D ) \r (
0017220 1 3 3 Q L E T * 1 1 1 Q +
0017240 ) \r ( ) \r ( S E T F - M A C R O
0017260 - F U N C T I O N ( Q U O T E
0017300 I N C F ) ( Q U O T E e x
0017320 p a n d - I N C F ) ) \r ( L E T
0017340 * ( ( A 1 2 1 5 ( Q U O T E
0017360 I N C F ) ) ( A 1 2 1 6 (
0017400 Q U O T E C L : F U N C T I O
0017420 N ) ) ( A 1 2 1 7 \r " T h e
0017440 f i r s t a r g u m e n t
0017460 i s s o m e l o c a t i o n
0017500 h o l d i n g a n u m b e
0017520 r . T h i s n u m b e r
0017540 i s \r i n c r e m e n t e d
0017560 b y t h e s e c o n d a
0017600 r g u m e n t , D E L T A ,
0017620 w h i c h d e f a u l t s t
0017640 o 1 . " ) ) ( P R O G N (
0017660 C O N D ( ( F B O U N D P (
0017700 Q U O T E \r S E T - D O C U M
0017720 E N T A T I O N ) ) ( S E T -
0017740 D O C U M E N T A T I O N A 1
0017760 2 1 5 A 1 2 1 6 A 1 2 1 7 )
0020000 ) ) A 1 2 1 7 ) ) \r e x p a n
0020020 d - D E C F D 1 \r ( L ( 1
0020040 $ $ M A C R O - E N V I R O N M
0020060 E N T 0 $ $ M A C R O - F O
0020100 R M ) ) \0 206 020 \0 \0 002 @ 002 021 301 \f
0020120 H 001 271 H 002 265 ^ k 272 A 273 I K \n \0 \0
0020140 \t \0 \0 \ 001 275 L 002 ^ 001 _ 016 277 N 002 _
0020160 020 001 _ 022 277 O 020 002 _ 024 001 _ 026 277 O 024
0020200 002 001 _ 030 277 M O 016 021 022 017 O 032 265 ) O
0020220 022 001 g \0 \0 O 030 J h 032 032 032 h 032 032 O
0020240 036 032 _ 036 g \0 \0 O 036 \t \0 \0 O 026 h 032
0020260 032 032 020 001 260 244 002 O 034 002 O 032 001 O 034 001
0020300 h 032 032 O 036 032 _ 036 277 _ 034 277 _ 032 260 277
0020320 \0 ( 1 4 0 Q R E V E R S E 2
0020340 7 Q \ M V L I S T 2 4 Q G
0020360 E T - S E T F - M E T H O D ) \r
0020400 ( 1 3 3 Q L E T * 1 1 1 Q
0020420 - ) \r ( ) \r ( S E T F - M A C R
0020440 O - F U N C T I O N ( Q U O T
0020460 E D E C F ) ( Q U O T E e
0020500 x p a n d - D E C F ) ) \r ( L E
0020520 T * ( ( A 1 2 2 6 ( Q U O T
0020540 E D E C F ) ) ( A 1 2 2 7
0020560 ( Q U O T E C L : F U N C T I
0020600 O N ) ) ( A 1 2 2 8 \r " T h
0020620 e f i r s t a r g u m e n t
0020640 i s s o m e l o c a t i o
0020660 n h o l d i n g a n u m b
0020700 e r . T h i s n u m b e r
0020720 i s \r d e c r e m e n t e
0020740 d b y t h e s e c o n d
0020760 a r g u m e n t , D E L T A ,
0021000 w h i c h d e f a u l t s
0021020 t o 1 . " ) ) ( P R O G N
0021040 ( C O N D ( ( F B O U N D P
0021060 ( Q U O T E \r S E T - D O C U
0021100 M E N T A T I O N ) ) ( S E T
0021120 - D O C U M E N T A T I O N A
0021140 1 2 2 6 A 1 2 2 7 A 1 2 2 8
0021160 ) ) ) A 1 2 2 8 ) ) \r e x p a
0021200 n d - S E T F D 1 \r ( L ( 1
0021220 $ $ M A C R O - E N V I R O N
0021240 M E N T 0 $ $ M A C R O - F
0021260 O R M ) ) \0 347 025 \0 \0 002 @ 002 021 321
0021300 \r H 001 271 H 002 Z 001 273 J 002 274 A 275 I d
0021320 004 l 004 360 227 277 g \0 \0 I K 260 z 001 004 l
0021340 004 360 262 032 I 001 301 002 311 \0 g \0 \0 ' 265 D
0021360 I 001 301 002 311 \0 g \0 \0 ' 265 8 I M \n \0
0021400 \0 \t \0 \0 _ 030 001 _ 026 277 O 030 002 _ 024 001
0021420 _ 022 277 O 024 002 _ 020 001 _ 016 277 O 020 002 001
0021440 276 g \0 \0 O 022 O 026 021 R 024 O 036 003 265 016
0021460 260 025 I 002 K h 032 \n \0 \0 260 036 001 _ & 277
0021500 O 034 003 265 + O 022 O 016 001 K h 032 032 h
0021520 032 \n \0 \0 N h 032 032 032 _ 032 277 L 262 B g
0021540 \0 \0 O 032 g \0 \0 L 032 h 032 032 032 020 001 _
0021560 ( 277 O & O ( h 032 032 _ $ 277 O " 265 031
0021600 O $ h 032 _ " _ 277 O 036 002 _ 036 277 O
0021620 034 002 _ 034 277 260 226 O $ & _ " 277 260 354 O
0021640 032 020 \0 ( 2 2 7 Q \ A P P E N D
0021660 2 1 7 5 Q \ A P P E N D 2
0021700 1 0 7 Q \ M V L I S T 1 0 4
0021720 Q G E T - S E T F - M E T H O
0021740 D ) \r ( 2 5 2 Q S E T F 2 4
0021760 5 Q P R O G N 1 4 7 Q L E
0022000 T * 7 4 Q S E T F N 6 0 Q
0022020 S E T F - I N V E R S E 3 4
0022040 Q S E T Q ) \r ( ) \r ( S E T F
0022060 - M A C R O - F U N C T I O N
0022100 ( Q U O T E S E T F ) ( Q U
0022120 O T E e x p a n d - S E T F )
0022140 ) \r e x p a n d - P S E T F D
0022160 1 \r ( L ( 1 $ $ M A C R O -
0022200 E N V I R O N M E N T 0 $ $
0022220 M A C R O - F O R M ) ) \0 220 016
0022240 \0 \0 002 @ 002 021 241 \n A 271 H 021 ! \r O 026
0022260 003 265 031 g \0 \0 O 030 \t \0 \0 O 032 \t \0 \0
0022300 o \0 \0 \0 \n \0 \0 032 032 020 002 003 247 o \0 \0
0022320 \0 \t \0 \0 277 O 026 001 I \n \0 \0 \t \0 \0 _
0022340 024 001 _ 022 277 O 024 002 _ 020 001 _ 016 277 O 020
0022360 002 ^ 001 275 N 002 001 274 O 022 273 O 016 272 K 265
0022400 M 001 O 026 002 001 h 032 032 O 030 032 _ 030 277
0022420 L O 032 032 _ 032 277 O 026 002 002 _ 026 260 223 001
0022440 J 001 h 032 032 O 030 032 _ 030 277 K 002 273 J 002
0022460 260 315 \0 ( 7 3 Q \ M V L I S T
0022500 7 0 Q G E T - S E T F - M E T
0022520 H O D 6 0 Q C L : E R R O R
0022540 4 3 Q \ A P P E N D 2 3 4
0022560 Q N R E V E R S E 2 7 Q N
0022600 R E V E R S E ) \r ( 2 2 Q L E
0022620 T * ) \r ( 5 5 Q " O d d n
0022640 u m b e r o f a r g s t o
0022660 P S E T F . " 4 0 Q ( N I
0022700 L ) ) \r ( S E T F - M A C R O -
0022720 F U N C T I O N ( Q U O T E
0022740 P S E T F ) ( Q U O T E e x
0022760 p a n d - P S E T F ) ) \r ( L E
0023000 T * ( ( A 1 2 3 8 ( Q U O T
0023020 E P S E T F ) ) ( A 1 2 3 9
0023040 ( Q U O T E C L : F U N C T
0023060 I O N ) ) ( A 1 2 4 0 \r " T
0023100 h i s i s t o S E T F a
0023120 s P S E T Q i s t o S E
0023140 T Q . A r g s a r e a l
0023160 t e r n a t i n g p l a c e \r
0023200 e x p r e s s i o n s a n
0023220 d v a l u e s t o g o i
0023240 n t o t h o s e p l a c e s
0023260 . A l l o f t h e s u
0023300 b f o r m s a n d \r v a l
0023320 u e s a r e d e t e r m i n
0023340 e d , l e f t t o r i g h
0023360 t , a n d o n l y t h e n
0023400 a r e t h e l o c a t i o
0023420 n s \r u p d a t e d . R
0023440 e t u r n s N I L . " ) ) (
0023460 P R O G N ( C O N D ( ( F B
0023500 O U N D P ( Q U O T E S E T
0023520 - D O C U M E N T A T I O N ) )
0023540 ( S E T - D O C U M E N T A T
0023560 I O N A 1 2 3 8 \r A 1 2 3 9
0023600 A 1 2 4 0 ) ) ) A 1 2 4 0 )
0023620 ) \r e x p a n d - S H I F T F
0023640 D 1 \r ( L ( 1 $ $ M A C R O
0023660 - E N V I R O N M E N T 0 $
0023700 $ M A C R O - F O R M ) ) \0 263
0023720 022 \0 \0 002 @ 002 021 301 \f A 271 H d 240 020 002
0023740 242 H 001 020 H \b \0 \0 021 2 021 O 032 d 002 003
0023760 263 % 277 O 032 001 O " O 001 \v \0 \0 g \0
0024000 \0 O 036 \t \0 \0 O \t \0 \0 O 034 h 032 \n
0024020 \0 \0 032 032 020 001 I \n \0 \0 \t \0 \0 _ 030 001
0024040 _ 026 277 O 030 002 _ 024 001 _ 022 277 O 024 002 _
0024060 020 001 _ 016 277 O 020 002 ^ 001 275 N 002 001 274 O
0024100 026 O 022 273 Z 265 \t O " 262 027 h 260 025 001 K
0024120 001 h 032 032 O 036 032 _ 036 277 J 002 K 002 260 345
0024140 i 222 O 034 201 O " L h 032 032 O 036 032 _ 036
0024160 277 M O 032 _ 277 O 016 001 _ " 277 O 032
0024200 002 _ 032 261 377 j \0 ( 1 1 0 Q \ M V
0024220 L I S T 1 0 5 Q G E T - S E
0024240 T F - M E T H O D 7 5 Q \ A
0024260 P P E N D 2 6 6 Q N R E V E
0024300 R S E 6 1 Q N R E V E R S E
0024320 5 1 Q D S U B S T 2 3 Q
0024340 G E N S Y M ) \r ( 5 4 Q L E T
0024360 * ) \r ( ) \r ( S E T F - M A C R
0024400 O - F U N C T I O N ( Q U O T
0024420 E S H I F T F ) ( Q U O T E
0024440 e x p a n d - S H I F T F ) )
0024460 \r ( L E T * ( ( A 1 2 4 2 (
0024500 Q U O T E S H I F T F ) ) (
0024520 A 1 2 4 3 ( Q U O T E C L :
0024540 F U N C T I O N ) ) ( A 1 2 4
0024560 4 \r " T a k e s a n y n u
0024600 m b e r o f S E T F - s t y
0024620 l e p l a c e e x p r e s s
0024640 i o n s . E v a l u a t e s
0024660 a l l o f t h e \r e x
0024700 p r e s s i o n s i n t u r
0024720 n , t h e n a s s i g n s
0024740 t o e a c h p l a c e t h
0024760 e v a l u e o f t h e f
0025000 o r m t o \r i t s r i g
0025020 h t . T h e r i g h t m o
0025040 s t f o r m i s n o t a
0025060 s s i g n e d t o . S H I F
0025100 T F r e t u r n s t h e v
0025120 a l u e o f t h e f i r s
0025140 t p l a c e b e f o r e t
0025160 h e a s s i g n m e n t s a
0025200 r e m a d e . " \r ) ) ( P R
0025220 O G N ( C O N D ( ( F B O U
0025240 N D P ( Q U O T E S E T - D
0025260 O C U M E N T A T I O N ) ) (
0025300 S E T - D O C U M E N T A T I O
0025320 N A 1 2 4 2 A 1 2 4 3 A 1
0025340 2 4 4 ) ) ) A 1 2 4 4 ) ) \r e
0025360 x p a n d - R O T A T E F D 1
0025400 \r ( L ( 1 $ $ M A C R O - E
0025420 N V I R O N M E N T 0 $ $ M
0025440 A C R O - F O R M ) ) \0 264 022 \0
0025460 \0 002 @ 002 021 301 \f A 271 H d 262 5 d 002 254
0025500 277 g \0 \0 H 001 o \0 \0 \0 032 032 020 021 A 021
0025520 O 032 003 265 036 O " O 030 g \0 \0 O 034 \t
0025540 \0 \0 O 036 \t \0 \0 o \0 \0 \0 \n \0 \0 032 032
0025560 020 001 I \n \0 \0 \t \0 \0 _ 030 001 _ 026 277 O
0025600 030 002 _ 024 001 _ 022 277 O 024 002 _ 020 001 _ 016
0025620 277 O 020 002 ^ 001 275 N 002 001 274 O 026 O 022 273
0025640 Z 265 025 O L h 032 032 O 034 032 _ 034 277 O
0025660 " 262 027 h 260 025 001 K 001 h 032 032 O 034 032 _
0025700 034 277 J 002 K 002 260 331 i 225 O 034 001 _ " 277
0025720 M O 036 032 _ 036 277 O 016 001 _ 277 O 032 002
0025740 _ 032 261 377 p \0 ( 1 0 6 Q \ M V L
0025760 I S T 1 0 3 Q G E T - S E T
0026000 F - M E T H O D 7 3 Q \ A P
0026020 P E N D 2 6 4 Q N R E V E R
0026040 S E 5 7 Q N R E V E R S E )
0026060 \r ( 5 2 Q L E T * 2 1 Q P
0026100 R O G N ) \r ( 7 0 Q ( N I L
0026120 ) 2 7 Q ( N I L ) ) \r ( S E
0026140 T F - M A C R O - F U N C T I O
0026160 N ( Q U O T E R O T A T E F
0026200 ) ( Q U O T E e x p a n d -
0026220 R O T A T E F ) ) \r ( L E T *
0026240 ( ( A 1 2 4 6 ( Q U O T E R
0026260 O T A T E F ) ) ( A 1 2 4 7
0026300 ( Q U O T E C L : F U N C T I
0026320 O N ) ) ( A 1 2 4 8 \r " T a
0026340 k e s a n y n u m b e r o
0026360 f S E T F - s t y l e p l a
0026400 c e e x p r e s s i o n s .
0026420 E v a l u a t e s a l l o
0026440 f t h e \r e x p r e s s i
0026460 o n s i n t u r n , t h e
0026500 n a s s i g n s t o e a c
0026520 h p l a c e t h e v a l u
0026540 e o f t h e f o r m t o
0026560 \r i t s r i g h t . T
0026600 h e r i g h t m o s t f o r
0026620 m g e t s t h e v a l u e
0026640 o f t h e l e f t m o s t
0026660 . R e t u r n s N I L . "
0026700 ) ) ( P R O G N ( C O N D
0026720 ( ( \r F B O U N D P ( Q U O T
0026740 E S E T - D O C U M E N T A T
0026760 I O N ) ) ( S E T - D O C U M
0027000 E N T A T I O N A 1 2 4 6 A
0027020 1 2 4 7 A 1 2 4 8 ) ) ) A 1
0027040 2 4 8 ) ) \r e x p a n d - C L :
0027060 P U S H D 1 \r ( L ( 1 $ $
0027100 M A C R O - E N V I R O N M E N
0027120 T 0 $ $ M A C R O - F O R M
0027140 ) ) \0 243 020 \0 \0 002 @ 002 021 361 017 H 001
0027160 271 H 002 001 272 A 273 J d 004 l 004 360 262 025 277
0027200 g \0 \0 J g \0 \0 I J h 032 032 032 h 032 032
0027220 032 020 K \n \0 \0 \t \0 \0 \ 001 275 L 002 ^ 001
0027240 _ 016 277 N 002 _ 020 001 _ 022 277 O 020 002 _ 024
0027260 001 _ 026 277 O 024 002 001 _ 030 277 M _ 032 277 O
0027300 016 _ 034 277 h _ 036 277 O 032 265 & O 022 001 g
0027320 \0 \0 I O 030 h 032 032 032 h 032 032 O 036 032 _
0027340 036 g \0 \0 O 036 \t \0 \0 O 026 h 032 032 032 020
0027360 001 O 034 001 h 032 032 O 036 032 _ 036 277 O 032 002
0027400 _ 032 277 O 034 002 _ 034 277 260 277 \0 ( 1 7 7
0027420 Q N R E V E R S E 5 7 Q \
0027440 M V L I S T 5 4 Q G E T - S
0027460 E T F - M E T H O D ) \r ( 1 7 2
0027500 Q L E T * 1 5 0 Q C O N S
0027520 3 5 Q C O N S 3 1 Q S E
0027540 T Q ) \r ( ) \r ( S E T F - M A C
0027560 R O - F U N C T I O N ( Q U O
0027600 T E C L : P U S H ) ( Q U O
0027620 T E e x p a n d - C L : P U S
0027640 H ) ) \r ( L E T * ( ( A 1 2 5
0027660 2 ( Q U O T E C L : P U S H
0027700 ) ) ( A 1 2 5 3 ( Q U O T E
0027720 C L : F U N C T I O N ) ) (
0027740 A 1 2 5 4 \r " T a k e s a n
0027760 o b j e c t a n d a l o
0030000 c a t i o n h o l d i n g a
0030020 l i s t . C o n s e s t
0030040 h e o b j e c t o n t o \r
0030060 t h e l i s t , r e t u r
0030100 n i n g t h e m o d i f i e
0030120 d l i s t . " ) ) ( P R O G
0030140 N ( C O N D ( ( F B O U N D
0030160 P ( Q U O T E S E T - D O C
0030200 U M E N T A T I O N ) ) ( \r S
0030220 E T - D O C U M E N T A T I O N
0030240 A 1 2 5 2 A 1 2 5 3 A 1 2
0030260 5 4 ) ) ) A 1 2 5 4 ) ) \r e x
0030300 p a n d - C L : P U S H N E W
0030320 D 1 \r ( L ( 1 $ $ M A C R O
0030340 - E N V I R O N M E N T 0 $
0030360 $ M A C R O - F O R M ) ) \0 257
0030400 022 \0 \0 002 @ 002 021 361 017 021 021 H 001 271 H
0030420 002 Z 001 273 J 002 274 A 275 K d 004 l 004 360 262
0030440 025 277 g \0 \0 K g \0 \0 I K L 032 032 032 h
0030460 032 032 032 020 M \n \0 \0 \t \0 \0 ^ 001 _ 016 277
0030500 N 002 _ 020 001 _ 022 277 O 020 002 _ 024 001 _ 026
0030520 277 O 024 002 _ 030 001 _ 032 277 O 030 002 001 _ 034
0030540 277 O 016 _ 036 277 O 022 _ 277 h _ " 277 O
0030560 036 265 & O 026 001 g \0 \0 I O 034 L 032 032 032
0030600 h 032 032 O " 032 _ " g \0 \0 O " \t \0 \0
0030620 O 032 h 032 032 032 020 001 O 001 h 032 032 O "
0030640 032 _ " 277 O 036 002 _ 036 277 O 002 _ 277
0030660 260 277 \0 ( 2 1 3 Q N R E V E R S
0030700 E 6 6 Q \ M V L I S T 6 3
0030720 Q G E T - S E T F - M E T H O
0030740 D ) \r ( 2 0 6 Q L E T * 1 6
0030760 4 Q A D J O I N 4 4 Q A D
0031000 J O I N 4 0 Q S E T Q ) \r (
0031020 ) \r ( S E T F - M A C R O - F U
0031040 N C T I O N ( Q U O T E C L
0031060 : P U S H N E W ) ( Q U O T E
0031100 e x p a n d - C L : P U S H N
0031120 E W ) ) \r ( L E T * ( ( A 1 2
0031140 5 8 ( Q U O T E C L : P U S
0031160 H N E W ) ) ( A 1 2 5 9 ( Q
0031200 U O T E C L : F U N C T I O N
0031220 ) ) ( A 1 2 6 0 \r " T a k e
0031240 s a n o b j e c t a n d
0031260 a l o c a t i o n h o l d i
0031300 n g a l i s t . I f t
0031320 h e o b j e c t i s a l r
0031340 e a d y \r i n t h e l i
0031360 s t , d o e s n o t h i n g
0031400 . E l s e , c o n s e s
0031420 t h e o b j e c t o n t o
0031440 t h e l i s t . R e t u r
0031460 n s \r N I L . I f t h
0031500 e r e i s a : T E S T k
0031520 e y w o r d , t h i s i s
0031540 u s e d f o r t h e c o m
0031560 p a r i s o n . " ) ) ( P R O
0031600 G N ( C O N D ( ( F B O U N
0031620 D P ( Q U O T E \r S E T - D
0031640 O C U M E N T A T I O N ) ) (
0031660 S E T - D O C U M E N T A T I O
0031700 N A 1 2 5 8 A 1 2 5 9 A 1
0031720 2 6 0 ) ) ) A 1 2 6 0 ) ) \r e
0031740 x p a n d - C L : P O P D 1 \r
0031760 ( L ( 1 $ $ M A C R O - E N
0032000 V I R O N M E N T 0 $ $ M A
0032020 C R O - F O R M ) ) \0 300 016 \0 \0
0032040 002 @ 002 001 021 321 \r A 271 H d 004 l 004 360 262
0032060 ! 277 g \0 \0 g \0 \0 H h 032 032 g \0 \0 H
0032100 g \0 \0 H h 032 032 h 032 032 032 h 032 032 032 020
0032120 I \n \0 \0 \t \0 \0 Z 001 273 J 002 \ 001 275 L
0032140 002 ^ 001 _ 016 277 N 002 _ 020 001 _ 022 277 O 020
0032160 002 001 _ 024 277 K _ 026 277 M _ 030 277 h _ 032
0032200 277 O 026 265 B O 016 001 O 024 h 032 032 O 032 032
0032220 _ 032 g \0 \0 O 032 \t \0 \0 g \0 \0 g \0 \0
0032240 O 016 001 h 032 032 g \0 \0 O 016 001 g \0 \0 O
0032260 016 001 h 032 032 h 032 032 032 O 022 h 032 032 032 032
0032300 h 032 032 032 020 001 O 030 001 h 032 032 O 032 032 _
0032320 032 277 O 026 002 _ 026 277 O 030 002 _ 030 277 260 243
0032340 \0 ( 1 7 0 Q N R E V E R S E
0032360 6 5 Q \ M V L I S T 6 2 Q
0032400 G E T - S E T F - M E T H O D )
0032420 \r ( 2 1 5 Q C D R 2 0 7 Q
0032440 S E T Q 1 7 6 Q C A R 1 7
0032460 3 Q P R O G 1 1 6 3 Q L E
0032500 T * 4 1 Q C D R 3 5 Q S
0032520 E T Q 2 6 Q C A R 2 3 Q
0032540 P R O G 1 ) \r ( ) \r ( S E T F -
0032560 M A C R O - F U N C T I O N (
0032600 Q U O T E C L : P O P ) ( Q
0032620 U O T E e x p a n d - C L : P
0032640 O P ) ) \r ( L E T * ( ( A 1 2
0032660 6 3 ( Q U O T E C L : P O P
0032700 ) ) ( A 1 2 6 4 ( Q U O T E
0032720 C L : F U N C T I O N ) ) (
0032740 A 1 2 6 5 \r " T h e a r g u
0032760 m e n t i s a l o c a t i
0033000 o n h o l d i n g a l i s
0033020 t . P o p s o n e i t e
0033040 m o f f t h e f r o n t \r
0033060 o f t h e l i s t a n
0033100 d r e t u r n s i t . " ) )
0033120 ( P R O G N ( C O N D ( (
0033140 F B O U N D P ( Q U O T E S
0033160 E T - D O C U M E N T A T I O N
0033200 ) ) ( S E T - D O C U M E N T
0033220 A T I O N \r A 1 2 6 3 A 1 2
0033240 6 4 A 1 2 6 5 ) ) ) A 1 2 6
0033260 5 ) ) \r e x p a n d - R E M F
0033300 D 1 \r ( L ( 1 $ $ M A C R O
0033320 - E N V I R O N M E N T 0 $
0033340 $ M A C R O - F O R M ) ) 001 G
0033360 023 \0 \0 002 @ 002 021 361 017 021 0 022 H 001 271 H
0033400 002 001 272 A 273 I K \n \0 \0 \t \0 \0 \ 001 275
0033420 L 002 ^ 001 _ 016 277 N 002 _ 020 001 _ 022 277 O
0033440 020 002 _ 024 001 _ 026 277 O 024 002 001 _ 030 277 M
0033460 _ 032 277 O 016 _ 034 277 h _ 036 277 \b \0 \0 _
0033500 277 \b \0 \0 _ " 277 \b \0 \0 _ $ 277 O 032
0033520 265 003 202 261 \0 313 O 022 001 O 030 h 032 032 O 036
0033540 032 _ 036 O J h 032 032 O 036 032 _ 036 g \0
0033560 \0 O 036 \t \0 \0 g \0 \0 O " O 022 001 g \0
0033600 \0 O " h 032 032 h 032 032 032 O $ h O " h
0033620 032 032 032 h 032 032 g \0 \0 O " h 032 032 o \0
0033640 \0 \0 032 g \0 \0 g \0 \0 g \0 \0 O " h 032
0033660 032 h 032 032 o \0 \0 \0 032 g \0 \0 g \0 \0 O
0033700 " h 032 032 O h 032 032 032 g \0 \0 O $ g
0033720 \0 \0 g \0 \0 O $ h 032 032 g \0 \0 O " h
0033740 032 032 h 032 032 032 o \0 \0 \0 032 032 i g \0 \0
0033760 O 022 001 g \0 \0 O 022 001 h 032 032 h 032 032 032
0034000 O 026 o \0 \0 \0 032 032 032 h 032 032 032 h 032 032
0034020 h 032 032 032 h 032 032 032 032 h 032 032 032 020 001 O
0034040 034 001 h 032 032 O 036 032 _ 036 277 O 032 002 _ 032
0034060 277 O 034 002 _ 034 277 261 377 027 \0 ( 2 0 1 Q
0034100 N R E V E R S E 1 2 6 Q G
0034120 E N S Y M 1 2 0 Q G E N S Y
0034140 M 1 1 2 Q G E N S Y M 3 0
0034160 Q \ M V L I S T 2 5 Q G E
0034200 T - S E T F - M E T H O D ) \r (
0034220 4 0 1 Q C D D R 3 7 3 Q C
0034240 L : S E T Q 3 5 0 Q C D D R
0034260 3 4 0 Q C D R 3 3 5 Q R
0034300 P L A C D 3 3 0 Q C O N D
0034320 3 1 2 Q C A R 3 0 7 Q E Q
0034340 2 6 7 Q C D R 2 6 4 Q C
0034360 L : A T O M 2 6 1 Q C O N D
0034400 2 4 4 Q C L : A T O M 2 1
0034420 4 Q C D D R 2 0 4 Q C L :
0034440 D O 1 7 4 Q L E T * ) \r (
0034460 4 2 1 Q ( ( R E T U R N T )
0034500 ) 3 6 5 Q ( ( R E T U R N
0034520 T ) ) 3 0 3 Q ( ( C L : E R
0034540 R O R " O d d - l e n g t h
0034560 p r o p e r t y l i s t i n
0034600 R E M F . " ) ) 2 5 5 Q (
0034620 N I L ) ) \r ( S E T F - M A C R
0034640 O - F U N C T I O N ( Q U O T
0034660 E R E M F ) ( Q U O T E e
0034700 x p a n d - R E M F ) ) \r ( L E
0034720 T * ( ( A 1 2 7 4 ( Q U O T
0034740 E R E M F ) ) ( A 1 2 7 5
0034760 ( Q U O T E C L : F U N C T I
0035000 O N ) ) ( A 1 2 7 6 \r " P l
0035020 a c e m a y b e a n y p
0035040 l a c e e x p r e s s i o n
0035060 a c c e p t a b l e t o S E
0035100 T F , a n d i s e x p e c
0035120 t e d t o h o l d a p r
0035140 o p e r t y l i s t o r (
0035160 ) . T h i s l i s t i s
0035200 d e s t r u c t i v e l y a l
0035220 t e r e d t o r e m o v e
0035240 t h e p r o p e r t y s p e
0035260 c i f i e d b y t h e i n
0035300 d i c a t o r . R e t u r n s
0035320 T i f s u c h a p r o
0035340 p e r t y w a s p r e s e n
0035360 t , N I L i f n o t . " \r
0035400 ) ) ( P R O G N ( C O N D
0035420 ( ( F B O U N D P ( Q U O T E
0035440 S E T - D O C U M E N T A T I
0035460 O N ) ) ( S E T - D O C U M E
0035500 N T A T I O N A 1 2 7 4 A 1
0035520 2 7 5 A 1 2 7 6 ) ) ) A 1 2
0035540 7 6 ) ) \r ( R E M P R O P ( Q
0035560 U O T E C A R ) ( Q U O T E
0035600 S E T F - I N V E R S E ) ) \r
0035620 C A R - s e t f - e x p a n d e
0035640 r D 1 \r ( P 7 V P 5
0035660 C A R - s e t f - f o r m P
0035700 4 D U M M I E S P 3 X
0035720 I 0 A C C E S S - F O R M )
0035740 \0 U \b \0 \0 001 021 0 002 @ 260 033 d 001 021
0035760 001 003 \b \0 \0 022 270 I 221 h 200 i 224 H h 032
0036000 Z 202 I H & 271 002 003 265 345 J 022 021 ! 006 @
0036020 001 L 032 275 \b \0 \0 021 001 \a L @ 002 O 016 h
0036040 032 M 002 001 276 g \0 \0 g \0 \0 N O 016 h 032
0036060 032 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1 2 2
0036100 Q V A L U E S 5 7 Q G E N
0036120 S Y M 1 5 Q G E N S Y M ) \r
0036140 ( 1 0 3 Q R P L A C A 1 0 0
0036160 Q C A R ) \r ( ) \r ( P U T P R
0036200 O P S C A R S E T F - M E T
0036220 H O D - E X P A N D E R C A R
0036240 - s e t f - e x p a n d e r ) \r
0036260 ( R E M P R O P ( Q U O T E
0036300 C D R ) ( Q U O T E S E T F
0036320 - I N V E R S E ) ) \r C D R - s
0036340 e t f - e x p a n d e r D 1 \r
0036360 ( P 7 V P 5 C D R - s
0036400 e t f - f o r m P 4 D U M
0036420 M I E S P 3 X I 0 A
0036440 C C E S S - F O R M ) \0 U \b \0
0036460 \0 001 021 0 002 @ 260 033 d 001 021 001 003 \b \0 \0
0036500 022 270 I 221 h 200 i 224 H h 032 Z 202 I H &
0036520 271 002 003 265 345 J 022 021 ! 006 @ 001 L 032 275 \b
0036540 \0 \0 021 001 \a L @ 002 O 016 h 032 M 002 001 276
0036560 g \0 \0 g \0 \0 N O 016 h 032 032 032 h 032 032
0036600 M \r 005 \0 \0 020 \0 ( 1 2 2 Q V A L
0036620 U E S 5 7 Q G E N S Y M 1
0036640 5 Q G E N S Y M ) \r ( 1 0 3 Q
0036660 R P L A C D 1 0 0 Q C D R
0036700 ) \r ( ) \r ( P U T P R O P S C
0036720 D R S E T F - M E T H O D - E
0036740 X P A N D E R C D R - s e t f
0036760 - e x p a n d e r ) \r ( R E M P
0037000 R O P ( Q U O T E C A A A A
0037020 R ) ( Q U O T E S E T F - I
0037040 N V E R S E ) ) \r C A A A A R -
0037060 s e t f - e x p a n d e r D 1
0037100 \r ( P 7 V P 5 C A A A
0037120 A R - s e t f - f o r m P 4
0037140 D U M M I E S P 3 X I
0037160 0 A C C E S S - F O R M )
0037200 \0 [ \b \0 \0 001 021 0 002 @ 260 033 d 001 021 001
0037220 003 \b \0 \0 022 270 I 221 h 200 i 224 H h 032 Z
0037240 202 I H & 271 002 003 265 345 J 022 021 ! 006 @ 001
0037260 L 032 275 \b \0 \0 021 001 \a L @ 002 O 016 h 032
0037300 M 002 001 276 g \0 \0 g \0 \0 g \0 \0 N h 032
0037320 032 O 016 h 032 032 032 h 032 032 M \r 005 \0 \0 020
0037340 \0 ( 1 3 0 Q V A L U E S 5 7
0037360 Q G E N S Y M 1 5 Q G E N
0037400 S Y M ) \r ( 1 0 6 Q C A A A R
0037420 1 0 3 Q R P L A C A 1 0 0
0037440 Q C A R ) \r ( ) \r ( P U T P R
0037460 O P S C A A A A R S E T F -
0037500 M E T H O D - E X P A N D E R
0037520 C A A A A R - s e t f - e x p a
0037540 n d e r ) \r ( R E M P R O P (
0037560 Q U O T E C A A A D R ) ( Q
0037600 U O T E S E T F - I N V E R S
0037620 E ) ) \r C A A A D R - s e t f -
0037640 e x p a n d e r D 1 \r ( P 7
0037660 V P 5 C A A A D R - s e
0037700 t f - f o r m P 4 D U M M
0037720 I E S P 3 X I 0 A C
0037740 C E S S - F O R M ) \0 [ \b \0 \0
0037760 001 021 0 002 @ 260 033 d 001 021 001 003 \b \0 \0 022
0040000 270 I 221 h 200 i 224 H h 032 Z 202 I H & 271
0040020 002 003 265 345 J 022 021 ! 006 @ 001 L 032 275 \b \0
0040040 \0 021 001 \a L @ 002 O 016 h 032 M 002 001 276 g
0040060 \0 \0 g \0 \0 g \0 \0 N h 032 032 O 016 h 032
0040100 032 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1 3 0
0040120 Q V A L U E S 5 7 Q G E N
0040140 S Y M 1 5 Q G E N S Y M ) \r
0040160 ( 1 0 6 Q C A A D R 1 0 3 Q
0040200 R P L A C A 1 0 0 Q C A R
0040220 ) \r ( ) \r ( P U T P R O P S C
0040240 A A A D R S E T F - M E T H O
0040260 D - E X P A N D E R C A A A D
0040300 R - s e t f - e x p a n d e r )
0040320 \r ( R E M P R O P ( Q U O T E
0040340 C A A A R ) ( Q U O T E S
0040360 E T F - I N V E R S E ) ) \r C A
0040400 A A R - s e t f - e x p a n d e
0040420 r D 1 \r ( P 7 V P 5
0040440 C A A A R - s e t f - f o r m
0040460 P 4 D U M M I E S P 3
0040500 X I 0 A C C E S S - F O R
0040520 M ) \0 [ \b \0 \0 001 021 0 002 @ 260 033 d
0040540 001 021 001 003 \b \0 \0 022 270 I 221 h 200 i 224 H
0040560 h 032 Z 202 I H & 271 002 003 265 345 J 022 021 !
0040600 006 @ 001 L 032 275 \b \0 \0 021 001 \a L @ 002 O
0040620 016 h 032 M 002 001 276 g \0 \0 g \0 \0 g \0 \0
0040640 N h 032 032 O 016 h 032 032 032 h 032 032 M \r 005
0040660 \0 \0 020 \0 ( 1 3 0 Q V A L U E S
0040700 5 7 Q G E N S Y M 1 5 Q
0040720 G E N S Y M ) \r ( 1 0 6 Q C A
0040740 A R 1 0 3 Q R P L A C A 1
0040760 0 0 Q C A R ) \r ( ) \r ( P U T
0041000 P R O P S C A A A R S E T F
0041020 - M E T H O D - E X P A N D E R
0041040 C A A A R - s e t f - e x p a
0041060 n d e r ) \r ( R E M P R O P (
0041100 Q U O T E C A A D A R ) ( Q
0041120 U O T E S E T F - I N V E R S
0041140 E ) ) \r C A A D A R - s e t f -
0041160 e x p a n d e r D 1 \r ( P 7
0041200 V P 5 C A A D A R - s e
0041220 t f - f o r m P 4 D U M M
0041240 I E S P 3 X I 0 A C
0041260 C E S S - F O R M ) \0 [ \b \0 \0
0041300 001 021 0 002 @ 260 033 d 001 021 001 003 \b \0 \0 022
0041320 270 I 221 h 200 i 224 H h 032 Z 202 I H & 271
0041340 002 003 265 345 J 022 021 ! 006 @ 001 L 032 275 \b \0
0041360 \0 021 001 \a L @ 002 O 016 h 032 M 002 001 276 g
0041400 \0 \0 g \0 \0 g \0 \0 N h 032 032 O 016 h 032
0041420 032 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1 3 0
0041440 Q V A L U E S 5 7 Q G E N
0041460 S Y M 1 5 Q G E N S Y M ) \r
0041500 ( 1 0 6 Q C A D A R 1 0 3 Q
0041520 R P L A C A 1 0 0 Q C A R
0041540 ) \r ( ) \r ( P U T P R O P S C
0041560 A A D A R S E T F - M E T H O
0041600 D - E X P A N D E R C A A D A
0041620 R - s e t f - e x p a n d e r )
0041640 \r ( R E M P R O P ( Q U O T E
0041660 C A A D D R ) ( Q U O T E
0041700 S E T F - I N V E R S E ) ) \r C
0041720 A A D D R - s e t f - e x p a n
0041740 d e r D 1 \r ( P 7 V P
0041760 5 C A A D D R - s e t f - f o
0042000 r m P 4 D U M M I E S P
0042020 3 X I 0 A C C E S S -
0042040 F O R M ) \0 [ \b \0 \0 001 021 0 002 @
0042060 260 033 d 001 021 001 003 \b \0 \0 022 270 I 221 h 200
0042100 i 224 H h 032 Z 202 I H & 271 002 003 265 345 J
0042120 022 021 ! 006 @ 001 L 032 275 \b \0 \0 021 001 \a L
0042140 @ 002 O 016 h 032 M 002 001 276 g \0 \0 g \0 \0
0042160 g \0 \0 N h 032 032 O 016 h 032 032 032 h 032 032
0042200 M \r 005 \0 \0 020 \0 ( 1 3 0 Q V A L
0042220 U E S 5 7 Q G E N S Y M 1
0042240 5 Q G E N S Y M ) \r ( 1 0 6 Q
0042260 C A D D R 1 0 3 Q R P L A
0042300 C A 1 0 0 Q C A R ) \r ( ) \r
0042320 ( P U T P R O P S C A A D D R
0042340 S E T F - M E T H O D - E X P
0042360 A N D E R C A A D D R - s e t
0042400 f - e x p a n d e r ) \r ( R E M
0042420 P R O P ( Q U O T E C A A D
0042440 R ) ( Q U O T E S E T F - I
0042460 N V E R S E ) ) \r C A A D R - s
0042500 e t f - e x p a n d e r D 1 \r
0042520 ( P 7 V P 5 C A A D R
0042540 - s e t f - f o r m P 4 D
0042560 U M M I E S P 3 X I 0
0042600 A C C E S S - F O R M ) \0 [
0042620 \b \0 \0 001 021 0 002 @ 260 033 d 001 021 001 003 \b
0042640 \0 \0 022 270 I 221 h 200 i 224 H h 032 Z 202 I
0042660 H & 271 002 003 265 345 J 022 021 ! 006 @ 001 L 032
0042700 275 \b \0 \0 021 001 \a L @ 002 O 016 h 032 M 002
0042720 001 276 g \0 \0 g \0 \0 g \0 \0 N h 032 032 O
0042740 016 h 032 032 032 h 032 032 M \r 005 \0 \0 020 \0 (
0042760 1 3 0 Q V A L U E S 5 7 Q
0043000 G E N S Y M 1 5 Q G E N S Y
0043020 M ) \r ( 1 0 6 Q C A D R 1 0
0043040 3 Q R P L A C A 1 0 0 Q C
0043060 A R ) \r ( ) \r ( P U T P R O P S
0043100 C A A D R S E T F - M E T H
0043120 O D - E X P A N D E R C A A D
0043140 R - s e t f - e x p a n d e r )
0043160 \r ( R E M P R O P ( Q U O T E
0043200 C A A R ) ( Q U O T E S E
0043220 T F - I N V E R S E ) ) \r C A A
0043240 R - s e t f - e x p a n d e r
0043260 D 1 \r ( P 7 V P 5 C A
0043300 A R - s e t f - f o r m P 4
0043320 D U M M I E S P 3 X I
0043340 0 A C C E S S - F O R M )
0043360 \0 [ \b \0 \0 001 021 0 002 @ 260 033 d 001 021 001
0043400 003 \b \0 \0 022 270 I 221 h 200 i 224 H h 032 Z
0043420 202 I H & 271 002 003 265 345 J 022 021 ! 006 @ 001
0043440 L 032 275 \b \0 \0 021 001 \a L @ 002 O 016 h 032
0043460 M 002 001 276 g \0 \0 g \0 \0 g \0 \0 N h 032
0043500 032 O 016 h 032 032 032 h 032 032 M \r 005 \0 \0 020
0043520 \0 ( 1 3 0 Q V A L U E S 5 7
0043540 Q G E N S Y M 1 5 Q G E N
0043560 S Y M ) \r ( 1 0 6 Q C A R 1
0043600 0 3 Q R P L A C A 1 0 0 Q
0043620 C A R ) \r ( ) \r ( P U T P R O P
0043640 S C A A R S E T F - M E T H
0043660 O D - E X P A N D E R C A A R
0043700 - s e t f - e x p a n d e r ) \r
0043720 ( R E M P R O P ( Q U O T E
0043740 C A D A A R ) ( Q U O T E S
0043760 E T F - I N V E R S E ) ) \r C A
0044000 D A A R - s e t f - e x p a n d
0044020 e r D 1 \r ( P 7 V P 5
0044040 C A D A A R - s e t f - f o r
0044060 m P 4 D U M M I E S P
0044100 3 X I 0 A C C E S S - F
0044120 O R M ) \0 [ \b \0 \0 001 021 0 002 @ 260
0044140 033 d 001 021 001 003 \b \0 \0 022 270 I 221 h 200 i
0044160 224 H h 032 Z 202 I H & 271 002 003 265 345 J 022
0044200 021 ! 006 @ 001 L 032 275 \b \0 \0 021 001 \a L @
0044220 002 O 016 h 032 M 002 001 276 g \0 \0 g \0 \0 g
0044240 \0 \0 N h 032 032 O 016 h 032 032 032 h 032 032 M
0044260 \r 005 \0 \0 020 \0 ( 1 3 0 Q V A L U
0044300 E S 5 7 Q G E N S Y M 1 5
0044320 Q G E N S Y M ) \r ( 1 0 6 Q
0044340 C D A A R 1 0 3 Q R P L A C
0044360 A 1 0 0 Q C A R ) \r ( ) \r (
0044400 P U T P R O P S C A D A A R
0044420 S E T F - M E T H O D - E X P A
0044440 N D E R C A D A A R - s e t f
0044460 - e x p a n d e r ) \r ( R E M P
0044500 R O P ( Q U O T E C A D A D
0044520 R ) ( Q U O T E S E T F - I
0044540 N V E R S E ) ) \r C A D A D R -
0044560 s e t f - e x p a n d e r D 1
0044600 \r ( P 7 V P 5 C A D A
0044620 D R - s e t f - f o r m P 4
0044640 D U M M I E S P 3 X I
0044660 0 A C C E S S - F O R M )
0044700 \0 [ \b \0 \0 001 021 0 002 @ 260 033 d 001 021 001
0044720 003 \b \0 \0 022 270 I 221 h 200 i 224 H h 032 Z
0044740 202 I H & 271 002 003 265 345 J 022 021 ! 006 @ 001
0044760 L 032 275 \b \0 \0 021 001 \a L @ 002 O 016 h 032
0045000 M 002 001 276 g \0 \0 g \0 \0 g \0 \0 N h 032
0045020 032 O 016 h 032 032 032 h 032 032 M \r 005 \0 \0 020
0045040 \0 ( 1 3 0 Q V A L U E S 5 7
0045060 Q G E N S Y M 1 5 Q G E N
0045100 S Y M ) \r ( 1 0 6 Q C D A D R
0045120 1 0 3 Q R P L A C A 1 0 0
0045140 Q C A R ) \r ( ) \r ( P U T P R
0045160 O P S C A D A D R S E T F -
0045200 M E T H O D - E X P A N D E R
0045220 C A D A D R - s e t f - e x p a
0045240 n d e r ) \r ( R E M P R O P (
0045260 Q U O T E C A D A R ) ( Q U
0045300 O T E S E T F - I N V E R S E
0045320 ) ) \r C A D A R - s e t f - e x
0045340 p a n d e r D 1 \r ( P 7 V
0045360 P 5 C A D A R - s e t f -
0045400 f o r m P 4 D U M M I E S
0045420 P 3 X I 0 A C C E S
0045440 S - F O R M ) \0 [ \b \0 \0 001 021 0
0045460 002 @ 260 033 d 001 021 001 003 \b \0 \0 022 270 I 221
0045500 h 200 i 224 H h 032 Z 202 I H & 271 002 003 265
0045520 345 J 022 021 ! 006 @ 001 L 032 275 \b \0 \0 021 001
0045540 \a L @ 002 O 016 h 032 M 002 001 276 g \0 \0 g
0045560 \0 \0 g \0 \0 N h 032 032 O 016 h 032 032 032 h
0045600 032 032 M \r 005 \0 \0 020 \0 ( 1 3 0 Q V
0045620 A L U E S 5 7 Q G E N S Y M
0045640 1 5 Q G E N S Y M ) \r ( 1 0
0045660 6 Q C D A R 1 0 3 Q R P L
0045700 A C A 1 0 0 Q C A R ) \r ( )
0045720 \r ( P U T P R O P S C A D A R
0045740 S E T F - M E T H O D - E X P
0045760 A N D E R C A D A R - s e t f
0046000 - e x p a n d e r ) \r ( R E M P
0046020 R O P ( Q U O T E C A D D A
0046040 R ) ( Q U O T E S E T F - I
0046060 N V E R S E ) ) \r C A D D A R -
0046100 s e t f - e x p a n d e r D 1
0046120 \r ( P 7 V P 5 C A D D
0046140 A R - s e t f - f o r m P 4
0046160 D U M M I E S P 3 X I
0046200 0 A C C E S S - F O R M )
0046220 \0 [ \b \0 \0 001 021 0 002 @ 260 033 d 001 021 001
0046240 003 \b \0 \0 022 270 I 221 h 200 i 224 H h 032 Z
0046260 202 I H & 271 002 003 265 345 J 022 021 ! 006 @ 001
0046300 L 032 275 \b \0 \0 021 001 \a L @ 002 O 016 h 032
0046320 M 002 001 276 g \0 \0 g \0 \0 g \0 \0 N h 032
0046340 032 O 016 h 032 032 032 h 032 032 M \r 005 \0 \0 020
0046360 \0 ( 1 3 0 Q V A L U E S 5 7
0046400 Q G E N S Y M 1 5 Q G E N
0046420 S Y M ) \r ( 1 0 6 Q C D D A R
0046440 1 0 3 Q R P L A C A 1 0 0
0046460 Q C A R ) \r ( ) \r ( P U T P R
0046500 O P S C A D D A R S E T F -
0046520 M E T H O D - E X P A N D E R
0046540 C A D D A R - s e t f - e x p a
0046560 n d e r ) \r ( R E M P R O P (
0046600 Q U O T E C A D D D R ) ( Q
0046620 U O T E S E T F - I N V E R S
0046640 E ) ) \r C A D D D R - s e t f -
0046660 e x p a n d e r D 1 \r ( P 7
0046700 V P 5 C A D D D R - s e
0046720 t f - f o r m P 4 D U M M
0046740 I E S P 3 X I 0 A C
0046760 C E S S - F O R M ) \0 [ \b \0 \0
0047000 001 021 0 002 @ 260 033 d 001 021 001 003 \b \0 \0 022
0047020 270 I 221 h 200 i 224 H h 032 Z 202 I H & 271
0047040 002 003 265 345 J 022 021 ! 006 @ 001 L 032 275 \b \0
0047060 \0 021 001 \a L @ 002 O 016 h 032 M 002 001 276 g
0047100 \0 \0 g \0 \0 g \0 \0 N h 032 032 O 016 h 032
0047120 032 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1 3 0
0047140 Q V A L U E S 5 7 Q G E N
0047160 S Y M 1 5 Q G E N S Y M ) \r
0047200 ( 1 0 6 Q C D D D R 1 0 3 Q
0047220 R P L A C A 1 0 0 Q C A R
0047240 ) \r ( ) \r ( P U T P R O P S C
0047260 A D D D R S E T F - M E T H O
0047300 D - E X P A N D E R C A D D D
0047320 R - s e t f - e x p a n d e r )
0047340 \r ( R E M P R O P ( Q U O T E
0047360 C A D D R ) ( Q U O T E S
0047400 E T F - I N V E R S E ) ) \r C A
0047420 D D R - s e t f - e x p a n d e
0047440 r D 1 \r ( P 7 V P 5
0047460 C A D D R - s e t f - f o r m
0047500 P 4 D U M M I E S P 3
0047520 X I 0 A C C E S S - F O R
0047540 M ) \0 [ \b \0 \0 001 021 0 002 @ 260 033 d
0047560 001 021 001 003 \b \0 \0 022 270 I 221 h 200 i 224 H
0047600 h 032 Z 202 I H & 271 002 003 265 345 J 022 021 !
0047620 006 @ 001 L 032 275 \b \0 \0 021 001 \a L @ 002 O
0047640 016 h 032 M 002 001 276 g \0 \0 g \0 \0 g \0 \0
0047660 N h 032 032 O 016 h 032 032 032 h 032 032 M \r 005
0047700 \0 \0 020 \0 ( 1 3 0 Q V A L U E S
0047720 5 7 Q G E N S Y M 1 5 Q
0047740 G E N S Y M ) \r ( 1 0 6 Q C D
0047760 D R 1 0 3 Q R P L A C A 1
0050000 0 0 Q C A R ) \r ( ) \r ( P U T
0050020 P R O P S C A D D R S E T F
0050040 - M E T H O D - E X P A N D E R
0050060 C A D D R - s e t f - e x p a
0050100 n d e r ) \r ( R E M P R O P (
0050120 Q U O T E C A D R ) ( Q U O
0050140 T E S E T F - I N V E R S E )
0050160 ) \r C A D R - s e t f - e x p a
0050200 n d e r D 1 \r ( P 7 V P
0050220 5 C A D R - s e t f - f o r
0050240 m P 4 D U M M I E S P
0050260 3 X I 0 A C C E S S - F
0050300 O R M ) \0 [ \b \0 \0 001 021 0 002 @ 260
0050320 033 d 001 021 001 003 \b \0 \0 022 270 I 221 h 200 i
0050340 224 H h 032 Z 202 I H & 271 002 003 265 345 J 022
0050360 021 ! 006 @ 001 L 032 275 \b \0 \0 021 001 \a L @
0050400 002 O 016 h 032 M 002 001 276 g \0 \0 g \0 \0 g
0050420 \0 \0 N h 032 032 O 016 h 032 032 032 h 032 032 M
0050440 \r 005 \0 \0 020 \0 ( 1 3 0 Q V A L U
0050460 E S 5 7 Q G E N S Y M 1 5
0050500 Q G E N S Y M ) \r ( 1 0 6 Q
0050520 C D R 1 0 3 Q R P L A C A
0050540 1 0 0 Q C A R ) \r ( ) \r ( P U
0050560 T P R O P S C A D R S E T F
0050600 - M E T H O D - E X P A N D E R
0050620 C A D R - s e t f - e x p a n
0050640 d e r ) \r ( R E M P R O P ( Q
0050660 U O T E C D A A A R ) ( Q U
0050700 O T E S E T F - I N V E R S E
0050720 ) ) \r C D A A A R - s e t f - e
0050740 x p a n d e r D 1 \r ( P 7
0050760 V P 5 C D A A A R - s e t
0051000 f - f o r m P 4 D U M M I
0051020 E S P 3 X I 0 A C C
0051040 E S S - F O R M ) \0 [ \b \0 \0 001
0051060 021 0 002 @ 260 033 d 001 021 001 003 \b \0 \0 022 270
0051100 I 221 h 200 i 224 H h 032 Z 202 I H & 271 002
0051120 003 265 345 J 022 021 ! 006 @ 001 L 032 275 \b \0 \0
0051140 021 001 \a L @ 002 O 016 h 032 M 002 001 276 g \0
0051160 \0 g \0 \0 g \0 \0 N h 032 032 O 016 h 032 032
0051200 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1 3 0 Q
0051220 V A L U E S 5 7 Q G E N S
0051240 Y M 1 5 Q G E N S Y M ) \r (
0051260 1 0 6 Q C A A A R 1 0 3 Q
0051300 R P L A C D 1 0 0 Q C D R )
0051320 \r ( ) \r ( P U T P R O P S C D
0051340 A A A R S E T F - M E T H O D
0051360 - E X P A N D E R C D A A A R
0051400 - s e t f - e x p a n d e r ) \r
0051420 ( R E M P R O P ( Q U O T E
0051440 C D A A D R ) ( Q U O T E S
0051460 E T F - I N V E R S E ) ) \r C D
0051500 A A D R - s e t f - e x p a n d
0051520 e r D 1 \r ( P 7 V P 5
0051540 C D A A D R - s e t f - f o r
0051560 m P 4 D U M M I E S P
0051600 3 X I 0 A C C E S S - F
0051620 O R M ) \0 [ \b \0 \0 001 021 0 002 @ 260
0051640 033 d 001 021 001 003 \b \0 \0 022 270 I 221 h 200 i
0051660 224 H h 032 Z 202 I H & 271 002 003 265 345 J 022
0051700 021 ! 006 @ 001 L 032 275 \b \0 \0 021 001 \a L @
0051720 002 O 016 h 032 M 002 001 276 g \0 \0 g \0 \0 g
0051740 \0 \0 N h 032 032 O 016 h 032 032 032 h 032 032 M
0051760 \r 005 \0 \0 020 \0 ( 1 3 0 Q V A L U
0052000 E S 5 7 Q G E N S Y M 1 5
0052020 Q G E N S Y M ) \r ( 1 0 6 Q
0052040 C A A D R 1 0 3 Q R P L A C
0052060 D 1 0 0 Q C D R ) \r ( ) \r (
0052100 P U T P R O P S C D A A D R
0052120 S E T F - M E T H O D - E X P A
0052140 N D E R C D A A D R - s e t f
0052160 - e x p a n d e r ) \r ( R E M P
0052200 R O P ( Q U O T E C D A A R
0052220 ) ( Q U O T E S E T F - I N
0052240 V E R S E ) ) \r C D A A R - s e
0052260 t f - e x p a n d e r D 1 \r (
0052300 P 7 V P 5 C D A A R -
0052320 s e t f - f o r m P 4 D U
0052340 M M I E S P 3 X I 0
0052360 A C C E S S - F O R M ) \0 [ \b
0052400 \0 \0 001 021 0 002 @ 260 033 d 001 021 001 003 \b \0
0052420 \0 022 270 I 221 h 200 i 224 H h 032 Z 202 I H
0052440 & 271 002 003 265 345 J 022 021 ! 006 @ 001 L 032 275
0052460 \b \0 \0 021 001 \a L @ 002 O 016 h 032 M 002 001
0052500 276 g \0 \0 g \0 \0 g \0 \0 N h 032 032 O 016
0052520 h 032 032 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1
0052540 3 0 Q V A L U E S 5 7 Q G
0052560 E N S Y M 1 5 Q G E N S Y M
0052600 ) \r ( 1 0 6 Q C A A R 1 0 3
0052620 Q R P L A C D 1 0 0 Q C D
0052640 R ) \r ( ) \r ( P U T P R O P S
0052660 C D A A R S E T F - M E T H O
0052700 D - E X P A N D E R C D A A R
0052720 - s e t f - e x p a n d e r ) \r
0052740 ( R E M P R O P ( Q U O T E
0052760 C D A D A R ) ( Q U O T E S
0053000 E T F - I N V E R S E ) ) \r C D
0053020 A D A R - s e t f - e x p a n d
0053040 e r D 1 \r ( P 7 V P 5
0053060 C D A D A R - s e t f - f o r
0053100 m P 4 D U M M I E S P
0053120 3 X I 0 A C C E S S - F
0053140 O R M ) \0 [ \b \0 \0 001 021 0 002 @ 260
0053160 033 d 001 021 001 003 \b \0 \0 022 270 I 221 h 200 i
0053200 224 H h 032 Z 202 I H & 271 002 003 265 345 J 022
0053220 021 ! 006 @ 001 L 032 275 \b \0 \0 021 001 \a L @
0053240 002 O 016 h 032 M 002 001 276 g \0 \0 g \0 \0 g
0053260 \0 \0 N h 032 032 O 016 h 032 032 032 h 032 032 M
0053300 \r 005 \0 \0 020 \0 ( 1 3 0 Q V A L U
0053320 E S 5 7 Q G E N S Y M 1 5
0053340 Q G E N S Y M ) \r ( 1 0 6 Q
0053360 C A D A R 1 0 3 Q R P L A C
0053400 D 1 0 0 Q C D R ) \r ( ) \r (
0053420 P U T P R O P S C D A D A R
0053440 S E T F - M E T H O D - E X P A
0053460 N D E R C D A D A R - s e t f
0053500 - e x p a n d e r ) \r ( R E M P
0053520 R O P ( Q U O T E C D A D D
0053540 R ) ( Q U O T E S E T F - I
0053560 N V E R S E ) ) \r C D A D D R -
0053600 s e t f - e x p a n d e r D 1
0053620 \r ( P 7 V P 5 C D A D
0053640 D R - s e t f - f o r m P 4
0053660 D U M M I E S P 3 X I
0053700 0 A C C E S S - F O R M )
0053720 \0 [ \b \0 \0 001 021 0 002 @ 260 033 d 001 021 001
0053740 003 \b \0 \0 022 270 I 221 h 200 i 224 H h 032 Z
0053760 202 I H & 271 002 003 265 345 J 022 021 ! 006 @ 001
0054000 L 032 275 \b \0 \0 021 001 \a L @ 002 O 016 h 032
0054020 M 002 001 276 g \0 \0 g \0 \0 g \0 \0 N h 032
0054040 032 O 016 h 032 032 032 h 032 032 M \r 005 \0 \0 020
0054060 \0 ( 1 3 0 Q V A L U E S 5 7
0054100 Q G E N S Y M 1 5 Q G E N
0054120 S Y M ) \r ( 1 0 6 Q C A D D R
0054140 1 0 3 Q R P L A C D 1 0 0
0054160 Q C D R ) \r ( ) \r ( P U T P R
0054200 O P S C D A D D R S E T F -
0054220 M E T H O D - E X P A N D E R
0054240 C D A D D R - s e t f - e x p a
0054260 n d e r ) \r ( R E M P R O P (
0054300 Q U O T E C D A D R ) ( Q U
0054320 O T E S E T F - I N V E R S E
0054340 ) ) \r C D A D R - s e t f - e x
0054360 p a n d e r D 1 \r ( P 7 V
0054400 P 5 C D A D R - s e t f -
0054420 f o r m P 4 D U M M I E S
0054440 P 3 X I 0 A C C E S
0054460 S - F O R M ) \0 [ \b \0 \0 001 021 0
0054500 002 @ 260 033 d 001 021 001 003 \b \0 \0 022 270 I 221
0054520 h 200 i 224 H h 032 Z 202 I H & 271 002 003 265
0054540 345 J 022 021 ! 006 @ 001 L 032 275 \b \0 \0 021 001
0054560 \a L @ 002 O 016 h 032 M 002 001 276 g \0 \0 g
0054600 \0 \0 g \0 \0 N h 032 032 O 016 h 032 032 032 h
0054620 032 032 M \r 005 \0 \0 020 \0 ( 1 3 0 Q V
0054640 A L U E S 5 7 Q G E N S Y M
0054660 1 5 Q G E N S Y M ) \r ( 1 0
0054700 6 Q C A D R 1 0 3 Q R P L
0054720 A C D 1 0 0 Q C D R ) \r ( )
0054740 \r ( P U T P R O P S C D A D R
0054760 S E T F - M E T H O D - E X P
0055000 A N D E R C D A D R - s e t f
0055020 - e x p a n d e r ) \r ( R E M P
0055040 R O P ( Q U O T E C D A R )
0055060 ( Q U O T E S E T F - I N V
0055100 E R S E ) ) \r C D A R - s e t f
0055120 - e x p a n d e r D 1 \r ( P
0055140 7 V P 5 C D A R - s e t
0055160 f - f o r m P 4 D U M M I
0055200 E S P 3 X I 0 A C C
0055220 E S S - F O R M ) \0 [ \b \0 \0 001
0055240 021 0 002 @ 260 033 d 001 021 001 003 \b \0 \0 022 270
0055260 I 221 h 200 i 224 H h 032 Z 202 I H & 271 002
0055300 003 265 345 J 022 021 ! 006 @ 001 L 032 275 \b \0 \0
0055320 021 001 \a L @ 002 O 016 h 032 M 002 001 276 g \0
0055340 \0 g \0 \0 g \0 \0 N h 032 032 O 016 h 032 032
0055360 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1 3 0 Q
0055400 V A L U E S 5 7 Q G E N S
0055420 Y M 1 5 Q G E N S Y M ) \r (
0055440 1 0 6 Q C A R 1 0 3 Q R P
0055460 L A C D 1 0 0 Q C D R ) \r (
0055500 ) \r ( P U T P R O P S C D A R
0055520 S E T F - M E T H O D - E X P
0055540 A N D E R C D A R - s e t f -
0055560 e x p a n d e r ) \r ( R E M P R
0055600 O P ( Q U O T E C D D A A R
0055620 ) ( Q U O T E S E T F - I N
0055640 V E R S E ) ) \r C D D A A R - s
0055660 e t f - e x p a n d e r D 1 \r
0055700 ( P 7 V P 5 C D D A A
0055720 R - s e t f - f o r m P 4
0055740 D U M M I E S P 3 X I
0055760 0 A C C E S S - F O R M ) \0
0056000 [ \b \0 \0 001 021 0 002 @ 260 033 d 001 021 001 003
0056020 \b \0 \0 022 270 I 221 h 200 i 224 H h 032 Z 202
0056040 I H & 271 002 003 265 345 J 022 021 ! 006 @ 001 L
0056060 032 275 \b \0 \0 021 001 \a L @ 002 O 016 h 032 M
0056100 002 001 276 g \0 \0 g \0 \0 g \0 \0 N h 032 032
0056120 O 016 h 032 032 032 h 032 032 M \r 005 \0 \0 020 \0
0056140 ( 1 3 0 Q V A L U E S 5 7 Q
0056160 G E N S Y M 1 5 Q G E N S
0056200 Y M ) \r ( 1 0 6 Q C D A A R
0056220 1 0 3 Q R P L A C D 1 0 0 Q
0056240 C D R ) \r ( ) \r ( P U T P R O
0056260 P S C D D A A R S E T F - M
0056300 E T H O D - E X P A N D E R C
0056320 D D A A R - s e t f - e x p a n
0056340 d e r ) \r ( R E M P R O P ( Q
0056360 U O T E C D D A D R ) ( Q U
0056400 O T E S E T F - I N V E R S E
0056420 ) ) \r C D D A D R - s e t f - e
0056440 x p a n d e r D 1 \r ( P 7
0056460 V P 5 C D D A D R - s e t
0056500 f - f o r m P 4 D U M M I
0056520 E S P 3 X I 0 A C C
0056540 E S S - F O R M ) \0 [ \b \0 \0 001
0056560 021 0 002 @ 260 033 d 001 021 001 003 \b \0 \0 022 270
0056600 I 221 h 200 i 224 H h 032 Z 202 I H & 271 002
0056620 003 265 345 J 022 021 ! 006 @ 001 L 032 275 \b \0 \0
0056640 021 001 \a L @ 002 O 016 h 032 M 002 001 276 g \0
0056660 \0 g \0 \0 g \0 \0 N h 032 032 O 016 h 032 032
0056700 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1 3 0 Q
0056720 V A L U E S 5 7 Q G E N S
0056740 Y M 1 5 Q G E N S Y M ) \r (
0056760 1 0 6 Q C D A D R 1 0 3 Q
0057000 R P L A C D 1 0 0 Q C D R )
0057020 \r ( ) \r ( P U T P R O P S C D
0057040 D A D R S E T F - M E T H O D
0057060 - E X P A N D E R C D D A D R
0057100 - s e t f - e x p a n d e r ) \r
0057120 ( R E M P R O P ( Q U O T E
0057140 C D D A R ) ( Q U O T E S E
0057160 T F - I N V E R S E ) ) \r C D D
0057200 A R - s e t f - e x p a n d e r
0057220 D 1 \r ( P 7 V P 5 C
0057240 D D A R - s e t f - f o r m P
0057260 4 D U M M I E S P 3 X
0057300 I 0 A C C E S S - F O R M
0057320 ) \0 [ \b \0 \0 001 021 0 002 @ 260 033 d 001
0057340 021 001 003 \b \0 \0 022 270 I 221 h 200 i 224 H h
0057360 032 Z 202 I H & 271 002 003 265 345 J 022 021 ! 006
0057400 @ 001 L 032 275 \b \0 \0 021 001 \a L @ 002 O 016
0057420 h 032 M 002 001 276 g \0 \0 g \0 \0 g \0 \0 N
0057440 h 032 032 O 016 h 032 032 032 h 032 032 M \r 005 \0
0057460 \0 020 \0 ( 1 3 0 Q V A L U E S
0057500 5 7 Q G E N S Y M 1 5 Q G
0057520 E N S Y M ) \r ( 1 0 6 Q C D A
0057540 R 1 0 3 Q R P L A C D 1 0
0057560 0 Q C D R ) \r ( ) \r ( P U T P
0057600 R O P S C D D A R S E T F -
0057620 M E T H O D - E X P A N D E R
0057640 C D D A R - s e t f - e x p a n
0057660 d e r ) \r ( R E M P R O P ( Q
0057700 U O T E C D D D A R ) ( Q U
0057720 O T E S E T F - I N V E R S E
0057740 ) ) \r C D D D A R - s e t f - e
0057760 x p a n d e r D 1 \r ( P 7
0060000 V P 5 C D D D A R - s e t
0060020 f - f o r m P 4 D U M M I
0060040 E S P 3 X I 0 A C C
0060060 E S S - F O R M ) \0 [ \b \0 \0 001
0060100 021 0 002 @ 260 033 d 001 021 001 003 \b \0 \0 022 270
0060120 I 221 h 200 i 224 H h 032 Z 202 I H & 271 002
0060140 003 265 345 J 022 021 ! 006 @ 001 L 032 275 \b \0 \0
0060160 021 001 \a L @ 002 O 016 h 032 M 002 001 276 g \0
0060200 \0 g \0 \0 g \0 \0 N h 032 032 O 016 h 032 032
0060220 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1 3 0 Q
0060240 V A L U E S 5 7 Q G E N S
0060260 Y M 1 5 Q G E N S Y M ) \r (
0060300 1 0 6 Q C D D A R 1 0 3 Q
0060320 R P L A C D 1 0 0 Q C D R )
0060340 \r ( ) \r ( P U T P R O P S C D
0060360 D D A R S E T F - M E T H O D
0060400 - E X P A N D E R C D D D A R
0060420 - s e t f - e x p a n d e r ) \r
0060440 ( R E M P R O P ( Q U O T E
0060460 C D D D D R ) ( Q U O T E S
0060500 E T F - I N V E R S E ) ) \r C D
0060520 D D D R - s e t f - e x p a n d
0060540 e r D 1 \r ( P 7 V P 5
0060560 C D D D D R - s e t f - f o r
0060600 m P 4 D U M M I E S P
0060620 3 X I 0 A C C E S S - F
0060640 O R M ) \0 [ \b \0 \0 001 021 0 002 @ 260
0060660 033 d 001 021 001 003 \b \0 \0 022 270 I 221 h 200 i
0060700 224 H h 032 Z 202 I H & 271 002 003 265 345 J 022
0060720 021 ! 006 @ 001 L 032 275 \b \0 \0 021 001 \a L @
0060740 002 O 016 h 032 M 002 001 276 g \0 \0 g \0 \0 g
0060760 \0 \0 N h 032 032 O 016 h 032 032 032 h 032 032 M
0061000 \r 005 \0 \0 020 \0 ( 1 3 0 Q V A L U
0061020 E S 5 7 Q G E N S Y M 1 5
0061040 Q G E N S Y M ) \r ( 1 0 6 Q
0061060 C D D D R 1 0 3 Q R P L A C
0061100 D 1 0 0 Q C D R ) \r ( ) \r (
0061120 P U T P R O P S C D D D D R
0061140 S E T F - M E T H O D - E X P A
0061160 N D E R C D D D D R - s e t f
0061200 - e x p a n d e r ) \r ( R E M P
0061220 R O P ( Q U O T E C D D D R
0061240 ) ( Q U O T E S E T F - I N
0061260 V E R S E ) ) \r C D D D R - s e
0061300 t f - e x p a n d e r D 1 \r (
0061320 P 7 V P 5 C D D D R -
0061340 s e t f - f o r m P 4 D U
0061360 M M I E S P 3 X I 0
0061400 A C C E S S - F O R M ) \0 [ \b
0061420 \0 \0 001 021 0 002 @ 260 033 d 001 021 001 003 \b \0
0061440 \0 022 270 I 221 h 200 i 224 H h 032 Z 202 I H
0061460 & 271 002 003 265 345 J 022 021 ! 006 @ 001 L 032 275
0061500 \b \0 \0 021 001 \a L @ 002 O 016 h 032 M 002 001
0061520 276 g \0 \0 g \0 \0 g \0 \0 N h 032 032 O 016
0061540 h 032 032 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1
0061560 3 0 Q V A L U E S 5 7 Q G
0061600 E N S Y M 1 5 Q G E N S Y M
0061620 ) \r ( 1 0 6 Q C D D R 1 0 3
0061640 Q R P L A C D 1 0 0 Q C D
0061660 R ) \r ( ) \r ( P U T P R O P S
0061700 C D D D R S E T F - M E T H O
0061720 D - E X P A N D E R C D D D R
0061740 - s e t f - e x p a n d e r ) \r
0061760 ( R E M P R O P ( Q U O T E
0062000 C D D R ) ( Q U O T E S E T
0062020 F - I N V E R S E ) ) \r C D D R
0062040 - s e t f - e x p a n d e r D
0062060 1 \r ( P 7 V P 5 C D D
0062100 R - s e t f - f o r m P 4
0062120 D U M M I E S P 3 X I
0062140 0 A C C E S S - F O R M ) \0
0062160 [ \b \0 \0 001 021 0 002 @ 260 033 d 001 021 001 003
0062200 \b \0 \0 022 270 I 221 h 200 i 224 H h 032 Z 202
0062220 I H & 271 002 003 265 345 J 022 021 ! 006 @ 001 L
0062240 032 275 \b \0 \0 021 001 \a L @ 002 O 016 h 032 M
0062260 002 001 276 g \0 \0 g \0 \0 g \0 \0 N h 032 032
0062300 O 016 h 032 032 032 h 032 032 M \r 005 \0 \0 020 \0
0062320 ( 1 3 0 Q V A L U E S 5 7 Q
0062340 G E N S Y M 1 5 Q G E N S
0062360 Y M ) \r ( 1 0 6 Q C D R 1 0
0062400 3 Q R P L A C D 1 0 0 Q C
0062420 D R ) \r ( ) \r ( P U T P R O P S
0062440 C D D R S E T F - M E T H O
0062460 D - E X P A N D E R C D D R -
0062500 s e t f - e x p a n d e r ) \r (
0062520 R E M P R O P ( Q U O T E C
0062540 L : F I R S T ) ( Q U O T E
0062560 S E T F - I N V E R S E ) ) \r C
0062600 L : F I R S T - s e t f - e x p
0062620 a n d e r D 1 \r ( P 7 V
0062640 P 5 C L : F I R S T - s e t
0062660 f - f o r m P 4 D U M M I
0062700 E S P 3 X I 0 A C C
0062720 E S S - F O R M ) \0 U \b \0 \0 001
0062740 021 0 002 @ 260 033 d 001 021 001 003 \b \0 \0 022 270
0062760 I 221 h 200 i 224 H h 032 Z 202 I H & 271 002
0063000 003 265 345 J 022 021 ! 006 @ 001 L 032 275 \b \0 \0
0063020 021 001 \a L @ 002 O 016 h 032 M 002 001 276 g \0
0063040 \0 g \0 \0 N O 016 h 032 032 032 h 032 032 M \r
0063060 005 \0 \0 020 \0 ( 1 2 2 Q V A L U E
0063100 S 5 7 Q G E N S Y M 1 5 Q
0063120 G E N S Y M ) \r ( 1 0 3 Q R
0063140 P L A C A 1 0 0 Q C A R ) \r
0063160 ( ) \r ( P U T P R O P S C L :
0063200 F I R S T S E T F - M E T H O
0063220 D - E X P A N D E R C L : F I
0063240 R S T - s e t f - e x p a n d e
0063260 r ) \r ( R E M P R O P ( Q U O
0063300 T E S E C O N D ) ( Q U O T
0063320 E S E T F - I N V E R S E ) )
0063340 \r S E C O N D - s e t f - e x p
0063360 a n d e r D 1 \r ( P 7 V
0063400 P 5 S E C O N D - s e t f -
0063420 f o r m P 4 D U M M I E S
0063440 P 3 X I 0 A C C E S
0063460 S - F O R M ) \0 [ \b \0 \0 001 021 0
0063500 002 @ 260 033 d 001 021 001 003 \b \0 \0 022 270 I 221
0063520 h 200 i 224 H h 032 Z 202 I H & 271 002 003 265
0063540 345 J 022 021 ! 006 @ 001 L 032 275 \b \0 \0 021 001
0063560 \a L @ 002 O 016 h 032 M 002 001 276 g \0 \0 g
0063600 \0 \0 g \0 \0 N h 032 032 O 016 h 032 032 032 h
0063620 032 032 M \r 005 \0 \0 020 \0 ( 1 3 0 Q V
0063640 A L U E S 5 7 Q G E N S Y M
0063660 1 5 Q G E N S Y M ) \r ( 1 0
0063700 6 Q C D R 1 0 3 Q R P L A
0063720 C A 1 0 0 Q C A R ) \r ( ) \r
0063740 ( P U T P R O P S S E C O N D
0063760 S E T F - M E T H O D - E X P
0064000 A N D E R S E C O N D - s e t
0064020 f - e x p a n d e r ) \r ( R E M
0064040 P R O P ( Q U O T E T H I R
0064060 D ) ( Q U O T E S E T F - I
0064100 N V E R S E ) ) \r T H I R D - s
0064120 e t f - e x p a n d e r D 1 \r
0064140 ( P 7 V P 5 T H I R D
0064160 - s e t f - f o r m P 4 D
0064200 U M M I E S P 3 X I 0
0064220 A C C E S S - F O R M ) \0 [
0064240 \b \0 \0 001 021 0 002 @ 260 033 d 001 021 001 003 \b
0064260 \0 \0 022 270 I 221 h 200 i 224 H h 032 Z 202 I
0064300 H & 271 002 003 265 345 J 022 021 ! 006 @ 001 L 032
0064320 275 \b \0 \0 021 001 \a L @ 002 O 016 h 032 M 002
0064340 001 276 g \0 \0 g \0 \0 g \0 \0 N h 032 032 O
0064360 016 h 032 032 032 h 032 032 M \r 005 \0 \0 020 \0 (
0064400 1 3 0 Q V A L U E S 5 7 Q
0064420 G E N S Y M 1 5 Q G E N S Y
0064440 M ) \r ( 1 0 6 Q C D D R 1 0
0064460 3 Q R P L A C A 1 0 0 Q C
0064500 A R ) \r ( ) \r ( P U T P R O P S
0064520 T H I R D S E T F - M E T H
0064540 O D - E X P A N D E R T H I R
0064560 D - s e t f - e x p a n d e r )
0064600 \r ( R E M P R O P ( Q U O T E
0064620 F O U R T H ) ( Q U O T E
0064640 S E T F - I N V E R S E ) ) \r F
0064660 O U R T H - s e t f - e x p a n
0064700 d e r D 1 \r ( P 7 V P
0064720 5 F O U R T H - s e t f - f o
0064740 r m P 4 D U M M I E S P
0064760 3 X I 0 A C C E S S -
0065000 F O R M ) \0 [ \b \0 \0 001 021 0 002 @
0065020 260 033 d 001 021 001 003 \b \0 \0 022 270 I 221 h 200
0065040 i 224 H h 032 Z 202 I H & 271 002 003 265 345 J
0065060 022 021 ! 006 @ 001 L 032 275 \b \0 \0 021 001 \a L
0065100 @ 002 O 016 h 032 M 002 001 276 g \0 \0 g \0 \0
0065120 g \0 \0 N h 032 032 O 016 h 032 032 032 h 032 032
0065140 M \r 005 \0 \0 020 \0 ( 1 3 0 Q V A L
0065160 U E S 5 7 Q G E N S Y M 1
0065200 5 Q G E N S Y M ) \r ( 1 0 6 Q
0065220 C D D D R 1 0 3 Q R P L A
0065240 C A 1 0 0 Q C A R ) \r ( ) \r
0065260 ( P U T P R O P S F O U R T H
0065300 S E T F - M E T H O D - E X P
0065320 A N D E R F O U R T H - s e t
0065340 f - e x p a n d e r ) \r ( R E M
0065360 P R O P ( Q U O T E F I F T
0065400 H ) ( Q U O T E S E T F - I
0065420 N V E R S E ) ) \r F I F T H - s
0065440 e t f - e x p a n d e r D 1 \r
0065460 ( P 7 V P 5 F I F T H
0065500 - s e t f - f o r m P 4 D
0065520 U M M I E S P 3 X I 0
0065540 A C C E S S - F O R M ) \0 [
0065560 \b \0 \0 001 021 0 002 @ 260 033 d 001 021 001 003 \b
0065600 \0 \0 022 270 I 221 h 200 i 224 H h 032 Z 202 I
0065620 H & 271 002 003 265 345 J 022 021 ! 006 @ 001 L 032
0065640 275 \b \0 \0 021 001 \a L @ 002 O 016 h 032 M 002
0065660 001 276 g \0 \0 g \0 \0 g \0 \0 N h 032 032 O
0065700 016 h 032 032 032 h 032 032 M \r 005 \0 \0 020 \0 (
0065720 1 3 0 Q V A L U E S 5 7 Q
0065740 G E N S Y M 1 5 Q G E N S Y
0065760 M ) \r ( 1 0 6 Q C D D D D R
0066000 1 0 3 Q R P L A C A 1 0 0 Q
0066020 C A R ) \r ( ) \r ( P U T P R O
0066040 P S F I F T H S E T F - M E
0066060 T H O D - E X P A N D E R F I
0066100 F T H - s e t f - e x p a n d e
0066120 r ) \r ( R E M P R O P ( Q U O
0066140 T E S I X T H ) ( Q U O T E
0066160 S E T F - I N V E R S E ) ) \r
0066200 S I X T H - s e t f - e x p a n
0066220 d e r D 1 \r ( P 7 V P
0066240 5 S I X T H - s e t f - f o r
0066260 m P 4 D U M M I E S P
0066300 3 X I 0 A C C E S S - F
0066320 O R M ) \0 a \b \0 \0 001 021 0 002 @ 260
0066340 033 d 001 021 001 003 \b \0 \0 022 270 I 221 h 200 i
0066360 224 H h 032 Z 202 I H & 271 002 003 265 345 J 022
0066400 021 ! 006 @ 001 L 032 275 \b \0 \0 021 001 \a L @
0066420 002 O 016 h 032 M 002 001 276 g \0 \0 g \0 \0 g
0066440 \0 \0 g \0 \0 N h 032 032 h 032 032 O 016 h 032
0066460 032 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1 3 6
0066500 Q V A L U E S 5 7 Q G E N
0066520 S Y M 1 5 Q G E N S Y M ) \r
0066540 ( 1 1 1 Q C D D D D R 1 0 6
0066560 Q C D R 1 0 3 Q R P L A C
0066600 A 1 0 0 Q C A R ) \r ( ) \r (
0066620 P U T P R O P S S I X T H S
0066640 E T F - M E T H O D - E X P A N
0066660 D E R S I X T H - s e t f - e
0066700 x p a n d e r ) \r ( R E M P R O
0066720 P ( Q U O T E S E V E N T H
0066740 ) ( Q U O T E S E T F - I N
0066760 V E R S E ) ) \r S E V E N T H -
0067000 s e t f - e x p a n d e r D 1
0067020 \r ( P 7 V P 5 S E V E
0067040 N T H - s e t f - f o r m P
0067060 4 D U M M I E S P 3 X
0067100 I 0 A C C E S S - F O R M )
0067120 \0 a \b \0 \0 001 021 0 002 @ 260 033 d 001 021
0067140 001 003 \b \0 \0 022 270 I 221 h 200 i 224 H h 032
0067160 Z 202 I H & 271 002 003 265 345 J 022 021 ! 006 @
0067200 001 L 032 275 \b \0 \0 021 001 \a L @ 002 O 016 h
0067220 032 M 002 001 276 g \0 \0 g \0 \0 g \0 \0 g \0
0067240 \0 N h 032 032 h 032 032 O 016 h 032 032 032 h 032
0067260 032 M \r 005 \0 \0 020 \0 ( 1 3 6 Q V A
0067300 L U E S 5 7 Q G E N S Y M
0067320 1 5 Q G E N S Y M ) \r ( 1 1 1
0067340 Q C D D D D R 1 0 6 Q C D
0067360 D R 1 0 3 Q R P L A C A 1
0067400 0 0 Q C A R ) \r ( ) \r ( P U T
0067420 P R O P S S E V E N T H S E
0067440 T F - M E T H O D - E X P A N D
0067460 E R S E V E N T H - s e t f -
0067500 e x p a n d e r ) \r ( R E M P R
0067520 O P ( Q U O T E E I G H T H
0067540 ) ( Q U O T E S E T F - I N
0067560 V E R S E ) ) \r E I G H T H - s
0067600 e t f - e x p a n d e r D 1 \r
0067620 ( P 7 V P 5 E I G H T
0067640 H - s e t f - f o r m P 4
0067660 D U M M I E S P 3 X I
0067700 0 A C C E S S - F O R M ) \0
0067720 a \b \0 \0 001 021 0 002 @ 260 033 d 001 021 001 003
0067740 \b \0 \0 022 270 I 221 h 200 i 224 H h 032 Z 202
0067760 I H & 271 002 003 265 345 J 022 021 ! 006 @ 001 L
0070000 032 275 \b \0 \0 021 001 \a L @ 002 O 016 h 032 M
0070020 002 001 276 g \0 \0 g \0 \0 g \0 \0 g \0 \0 N
0070040 h 032 032 h 032 032 O 016 h 032 032 032 h 032 032 M
0070060 \r 005 \0 \0 020 \0 ( 1 3 6 Q V A L U
0070100 E S 5 7 Q G E N S Y M 1 5
0070120 Q G E N S Y M ) \r ( 1 1 1 Q
0070140 C D D D D R 1 0 6 Q C D D D
0070160 R 1 0 3 Q R P L A C A 1 0
0070200 0 Q C A R ) \r ( ) \r ( P U T P
0070220 R O P S E I G H T H S E T F
0070240 - M E T H O D - E X P A N D E R
0070260 E I G H T H - s e t f - e x p
0070300 a n d e r ) \r ( R E M P R O P
0070320 ( Q U O T E N I N T H ) ( Q
0070340 U O T E S E T F - I N V E R S
0070360 E ) ) \r N I N T H - s e t f - e
0070400 x p a n d e r D 1 \r ( P 7
0070420 V P 5 N I N T H - s e t f
0070440 - f o r m P 4 D U M M I E
0070460 S P 3 X I 0 A C C E
0070500 S S - F O R M ) \0 _ \b \0 \0 001 021
0070520 0 002 @ 260 033 d 001 021 001 003 \b \0 \0 022 270 I
0070540 221 h 200 i 224 H h 032 Z 202 I H & 271 002 003
0070560 265 345 J 022 021 ! 006 @ 001 L 032 275 \b \0 \0 021
0070600 001 \a L @ 002 O 016 h 032 M 002 001 276 g \0 \0
0070620 g \0 \0 g \0 \0 d N h 032 032 h 032 032 O 016
0070640 h 032 032 032 h 032 032 M \r 005 \0 \0 020 \0 ( 1
0070660 3 4 Q V A L U E S 5 7 Q G
0070700 E N S Y M 1 5 Q G E N S Y M
0070720 ) \r ( 1 0 6 Q C D D D D R 1
0070740 0 3 Q R P L A C A 1 0 0 Q
0070760 C A R ) \r ( ) \r ( P U T P R O P
0071000 S N I N T H S E T F - M E T
0071020 H O D - E X P A N D E R N I N
0071040 T H - s e t f - e x p a n d e r
0071060 ) \r ( R E M P R O P ( Q U O T
0071100 E T E N T H ) ( Q U O T E
0071120 S E T F - I N V E R S E ) ) \r T
0071140 E N T H - s e t f - e x p a n d
0071160 e r D 1 \r ( P 7 V P 5
0071200 T E N T H - s e t f - f o r m
0071220 P 4 D U M M I E S P 3
0071240 X I 0 A C C E S S - F O
0071260 R M ) \0 e \b \0 \0 001 021 0 002 @ 260 033
0071300 d 001 021 001 003 \b \0 \0 022 270 I 221 h 200 i 224
0071320 H h 032 Z 202 I H & 271 002 003 265 345 J 022 021
0071340 ! 006 @ 001 L 032 275 \b \0 \0 021 001 \a L @ 002
0071360 O 016 h 032 M 002 001 276 g \0 \0 g \0 \0 g \0
0071400 \0 g \0 \0 d N h 032 032 h 032 032 h 032 032 O
0071420 016 h 032 032 032 h 032 032 M \r 005 \0 \0 020 \0 (
0071440 1 4 2 Q V A L U E S 5 7 Q
0071460 G E N S Y M 1 5 Q G E N S Y
0071500 M ) \r ( 1 1 1 Q C D D D D R
0071520 1 0 6 Q C D R 1 0 3 Q R P
0071540 L A C A 1 0 0 Q C A R ) \r (
0071560 ) \r ( P U T P R O P S T E N T
0071600 H S E T F - M E T H O D - E X
0071620 P A N D E R T E N T H - s e t
0071640 f - e x p a n d e r ) \r ( R E M
0071660 P R O P ( Q U O T E R E S T
0071700 ) ( Q U O T E S E T F - I N
0071720 V E R S E ) ) \r R E S T - s e t
0071740 f - e x p a n d e r D 1 \r ( P
0071760 7 V P 5 R E S T - s e
0072000 t f - f o r m P 4 D U M M
0072020 I E S P 3 X I 0 A C
0072040 C E S S - F O R M ) \0 U \b \0 \0
0072060 001 021 0 002 @ 260 033 d 001 021 001 003 \b \0 \0 022
0072100 270 I 221 h 200 i 224 H h 032 Z 202 I H & 271
0072120 002 003 265 345 J 022 021 ! 006 @ 001 L 032 275 \b \0
0072140 \0 021 001 \a L @ 002 O 016 h 032 M 002 001 276 g
0072160 \0 \0 g \0 \0 N O 016 h 032 032 032 h 032 032 M
0072200 \r 005 \0 \0 020 \0 ( 1 2 2 Q V A L U
0072220 E S 5 7 Q G E N S Y M 1 5
0072240 Q G E N S Y M ) \r ( 1 0 3 Q
0072260 R P L A C D 1 0 0 Q C D R )
0072300 \r ( ) \r ( P U T P R O P S R E
0072320 S T S E T F - M E T H O D - E
0072340 X P A N D E R R E S T - s e t
0072360 f - e x p a n d e r ) \r ( R E M
0072400 P R O P ( Q U O T E N T H C
0072420 D R ) ( Q U O T E S E T F -
0072440 I N V E R S E ) ) \r N T H C D R
0072460 - s e t f - e x p a n d e r D
0072500 1 \r ( P 1 1 Q N E W V A L
0072520 P 5 N T H C D R - s e t f -
0072540 f o r m P 4 D U M M I E S
0072560 P 3 X I 0 A C C E S
0072600 S - F O R M ) \0 j \n \0 \0 001 021 @
0072620 003 @ 260 030 d 001 273 \b \0 \0 270 I 221 h 200 i
0072640 224 H h 032 Z 202 I H & 271 002 003 265 350 J 022
0072660 021 A \b @ 001 L 032 275 \b \0 \0 021 001 \t L @
0072700 002 O 022 h 032 M 002 _ 020 001 _ 016 277 O 020 002
0072720 001 276 g \0 \0 g \0 \0 g \0 \0 g \0 \0 O 016
0072740 h 032 032 N h 032 032 032 O 022 h 032 032 032 h 032
0072760 032 M \r 005 \0 \0 020 \0 ( 1 4 7 Q V A
0073000 L U E S 5 4 Q G E N S Y M
0073020 1 3 Q G E N S Y M ) \r ( 1 1 7
0073040 Q 1 - 1 1 4 Q N T H C D R
0073060 1 1 1 Q R P L A C D 1 0 6
0073100 Q C D R ) \r ( ) \r ( P U T P R
0073120 O P S N T H C D R S E T F -
0073140 M E T H O D - E X P A N D E R
0073160 N T H C D R - s e t f - e x p a
0073200 n d e r ) \r ( R E M P R O P (
0073220 Q U O T E C L : N T H ) ( Q
0073240 U O T E S E T F - M E T H O D
0073260 - E X P A N D E R ) ) \r ( P U T
0073300 P R O P S C L : N T H S E T
0073320 F - I N V E R S E % % S E T N
0073340 T H ) \r ( R E M P R O P ( Q U
0073360 O T E G E T H A S H ) ( Q U
0073400 O T E S E T F - I N V E R S E
0073420 ) ) \r ( R E M P R O P ( Q U O
0073440 T E G E T H A S H ) ( Q U O
0073460 T E S E T F N ) ) \r s e t f -
0073500 e x p a n d e r - G E T H A S H
0073520 D 1 \r ( L ( 1 e n v - G E
0073540 T H A S H 0 w h o l e - G E
0073560 T H A S H ) ) \0 } \t \0 \0 002 @ 002
0073600 \t \0 \0 l 003 363 250 l 002 @ 002 \t \0 \0 363 237
0073620 o \0 \0 \0 g \0 \0 @ 002 \t \0 \0 \v \0 \0 020
0073640 @ 002 021 A 004 H 001 271 H 002 Z 001 273 J 002 d
0073660 220 001 274 \b \0 \0 \b \0 \0 \b \0 \0 \b \0 \0 021
0073700 004 \b M N L 264 006 O 016 h 032 032 032 I K L
0073720 d 221 h 032 032 032 O 020 h 032 g \0 \0 M N O
0073740 020 h 032 032 032 032 g \0 \0 M N L 264 006 O 016
0073760 h 032 032 032 032 \r 005 \0 \0 020 \0 ( 1 7 2 Q
0074000 V A L U E S 1 0 0 Q G E N
0074020 S Y M 7 5 Q G E N S Y M 7
0074040 2 Q G E N S Y M 6 7 Q G E
0074060 N S Y M 4 0 Q C L : E R R O
0074100 R 3 5 Q C L : L E N G T H
0074120 1 7 Q C L : L E N G T H 4
0074140 C L : L E N G T H ) \r ( 1 5 2 Q
0074160 G E T H A S H 1 3 6 Q C L
0074200 : P U T H A S H 3 0 Q G E T
0074220 H A S H ) \r ( 2 5 Q " S e t
0074240 f e x p a n d e r f o r ~
0074260 S c a n n o t b e c a l l
0074300 e d w i t h ~ S a r g s .
0074320 " ) \r ( P U T P R O P ( Q U O
0074340 T E G E T H A S H ) ( Q U O
0074360 T E S E T F - M E T H O D - E
0074400 X P A N D E R ) ( Q U O T E
0074420 s e t f - e x p a n d e r - G E
0074440 T H A S H ) ) \r ( R E M P R O P
0074460 ( Q U O T E G E T F ) ( Q
0074500 U O T E S E T F - I N V E R S
0074520 E ) ) \r ( R E M P R O P ( Q U
0074540 O T E G E T F ) ( Q U O T E
0074560 S E T F N ) ) \r s e t f - e x
0074600 p a n d e r - G E T F D 1 \r (
0074620 L ( 1 e n v - G E T F 0
0074640 w h o l e - G E T F ) ) 001 @ 031
0074660 \0 \0 002 @ 002 \t \0 \0 l 003 363 250 l 002 @ 002
0074700 \t \0 \0 363 237 o \0 \0 \0 g \0 \0 @ 002 \t \0
0074720 \0 \v \0 \0 020 @ 002 021 341 016 H 001 271 H 002 Z
0074740 001 273 J 002 d 220 001 274 A 275 I M \n \0 \0 \t
0074760 \0 \0 ^ 001 _ 016 277 N 002 _ 020 001 _ 022 277 O
0075000 020 002 _ 024 001 _ 026 277 O 024 002 _ 030 001 _ 032
0075020 277 O 030 002 001 _ 034 277 \b \0 \0 \b \0 \0 \b \0
0075040 \0 021 003 021 O 016 O 026 001 O L 264 006 O "
0075060 h 032 032 032 \n \0 \0 O 022 O 034 K L d 221 h
0075100 032 032 032 \n \0 \0 O 036 h 032 g \0 \0 g \0 \0
0075120 O 026 001 h 032 032 g \0 \0 O 022 g \0 \0 O
0075140 O 036 h 032 032 032 h 032 \n \0 \0 O 016 O 026 \n
0075160 \0 \0 021 R 030 O & 003 265 003 210 001 _ . 277 O
0075200 $ 003 265 ? O ( 022 O 032 h 032 032 032 O 036 h
0075220 032 032 032 i g \0 \0 O 026 001 O O 036 h 032
0075240 032 032 032 h 032 032 h 032 032 032 g \0 \0 O 026 001
0075260 O L 264 006 O " h 032 032 032 032 \r 005 \0 \0
0075300 020 001 _ 0 277 O . O 0 h 032 032 _ , 277 O
0075320 * 265 031 O , h 032 _ * _ ( 277 O & 002 _
0075340 & 277 O $ 002 _ $ 277 260 215 O , & _ * 277
0075360 260 354 \0 ( 4 1 4 Q V A L U E S
0075400 2 7 6 Q \ A P P E N D 2 2 6
0075420 7 Q \ A P P E N D 2 2 2 2 Q
0075440 \ A P P E N D 2 2 0 3 Q \
0075460 A P P E N D 2 1 5 5 Q G E N
0075500 S Y M 1 5 2 Q G E N S Y M
0075520 1 4 7 Q G E N S Y M 7 6 Q
0075540 \ M V L I S T 7 3 Q G E T -
0075560 S E T F - M E T H O D 4 0 Q
0075600 C L : E R R O R 3 5 Q C L :
0075620 L E N G T H 1 7 Q C L : L E
0075640 N G T H 4 C L : L E N G T H
0075660 ) \r ( 3 7 1 Q G E T F 3 4 3
0075700 Q L I S T P U T 2 5 2 Q L
0075720 I S T 2 4 5 Q L E T * 2 3
0075740 4 Q N U L L 2 3 1 Q C O N
0075760 D 3 0 Q G E T F ) \r ( 2 5
0076000 Q " S e t f e x p a n d e r
0076020 f o r ~ S c a n n o t b
0076040 e c a l l e d w i t h ~ S
0076060 a r g s . " ) \r ( P U T P R O
0076100 P ( Q U O T E G E T F ) (
0076120 Q U O T E S E T F - M E T H O
0076140 D - E X P A N D E R ) ( Q U O
0076160 T E s e t f - e x p a n d e r
0076200 - G E T F ) ) \r ( R E M P R O P
0076220 ( Q U O T E C L : A P P L Y
0076240 ) ( Q U O T E S E T F - I N
0076260 V E R S E ) ) \r ( R E M P R O P
0076300 ( Q U O T E C L : A P P L Y
0076320 ) ( Q U O T E S E T F N ) )
0076340 \r s e t f - e x p a n d e r - C
0076360 L : A P P L Y D 1 \r ( L ( 1
0076400 e n v - C L : A P P L Y 0
0076420 w h o l e - C L : A P P L Y ) )
0076440 \0 352 \r \0 \0 002 k @ 002 \t \0 \0 363 237 o
0076460 \0 \0 \0 g \0 \0 @ 002 \t \0 \0 \v \0 \0 020 @
0076500 002 021 301 \f H 001 271 H 002 272 A 273 I 003 265 003
0076520 202 261 \0 224 o \0 \0 \0 \t \0 \0 277 I J 032 K
0076540 \n \0 \0 \t \0 \0 \ 001 275 L 002 ^ 001 _ 016 277
0076560 N 002 _ 020 001 _ 022 277 O 020 002 _ 024 001 _ 026
0076600 277 O 024 002 001 _ 030 277 J \t \0 \0 001 O 016 \t
0076620 \0 \0 001 360 262 034 O 030 \t \0 \0 001 M \t \0 \0
0076640 001 360 234 O 026 \t \0 \0 001 M \t \0 \0 001 360 250
0076660 o \0 \0 \0 I \n \0 \0 277 M O 016 O 022 g \0
0076700 \0 g \0 \0 O 026 001 h 032 032 O 026 002 032 032 g
0076720 \0 \0 g \0 \0 O 030 001 h 032 032 O 026 002 032 032
0076740 \r 005 \0 \0 020 \t \0 \0 l 002 \n \0 \0 242 261 377
0076760 f I 001 o \0 \0 \0 \n \0 \0 242 261 377 Y I 002
0077000 001 004 l 004 360 242 261 377 N I 002 001 Y 261 377 P
0077020 \0 ( 3 2 2 Q M E M B E R 3 0
0077040 5 Q % % = 3 0 0 Q L I S T
0077060 - L E N G T H 2 7 4 Q V A L
0077100 U E S 2 2 0 Q C L : E R R O
0077120 R 2 0 5 Q L A S T 2 0 0 Q
0077140 L A S T 1 7 0 Q L A S T
0077160 1 6 3 Q L A S T 1 5 2 Q L
0077200 A S T 1 4 4 Q L A S T 7 6
0077220 Q \ M V L I S T 7 3 Q G E
0077240 T - S E T F - M E T H O D 6 3
0077260 Q C L : E R R O R 2 6 Q C
0077300 L : E R R O R 2 3 Q C L : L
0077320 E N G T H 5 C L : L E N G T
0077340 H ) \r ( 2 5 5 Q F U N C T I O
0077360 N 2 5 2 Q C L : A P P L Y
0077400 2 3 4 Q F U N C T I O N 2 3
0077420 1 Q C L : A P P L Y 1 6 Q
0077440 C L : A P P L Y ) \r ( 3 1 7 Q
0077460 ( F U N C T I O N C L : F U
0077500 N C T I O N Q U O T E ) 2 1
0077520 4 Q " A p p l y o f ~ S
0077540 n o t u n d e r s t o o d a
0077560 s a l o c a t i o n f o r
0077600 S e t f . " 6 0 Q " S e t
0077620 f o f A p p l y i s o n
0077640 l y d e f i n e d f o r f
0077660 u n c t i o n a r g s o f
0077700 f o r m # ' s y m b o l . " \r
0077720 1 3 Q " S e t f e x p a n
0077740 d e r f o r ~ S c a n n o
0077760 t b e c a l l e d w i t h
0100000 ~ S a r g s . " ) \r ( P U T
0100020 P R O P ( Q U O T E C L : A
0100040 P P L Y ) ( Q U O T E S E T
0100060 F - M E T H O D - E X P A N D E
0100100 R ) ( Q U O T E s e t f - e
0100120 x p a n d e r - C L : A P P L Y
0100140 ) ) \r ( R E M P R O P ( Q U O
0100160 T E L D B ) ( Q U O T E S
0100200 E T F - I N V E R S E ) ) \r ( R
0100220 E M P R O P ( Q U O T E L D
0100240 B ) ( Q U O T E S E T F N )
0100260 ) \r s e t f - e x p a n d e r -
0100300 L D B D 1 \r ( L ( 1 e n v
0100320 - L D B 0 w h o l e - L D B
0100340 ) ) \0 237 017 \0 \0 002 @ 002 \t \0 \0 l 002
0100360 \n \0 \0 221 h 200 i 237 o \0 \0 \0 g \0 \0 @
0100400 002 \t \0 \0 \v \0 \0 020 @ 002 021 341 016 H 001 271
0100420 H 002 001 272 A 273 J K \n \0 \0 \t \0 \0 \ 001
0100440 275 L 002 ^ 001 _ 016 277 N 002 _ 020 001 _ 022 277
0100460 O 020 002 _ 024 001 _ 026 277 O 024 002 001 _ 030 277
0100500 \b \0 \0 \b \0 \0 _ 034 277 _ 032 M 032 I O 016
0100520 032 O 034 h 032 g \0 \0 O 022 001 g \0 \0 O 034
0100540 O 032 O 030 h 032 032 032 032 h 032 032 h 032 O 026
0100560 O 034 h 032 032 032 032 g \0 \0 O 032 O 030 h 032
0100600 032 032 \r 005 \0 \0 020 \0 ( 2 3 4 Q V A
0100620 L U E S 1 3 4 Q G E N S Y M
0100640 1 3 1 Q G E N S Y M 6 4 Q
0100660 \ M V L I S T 6 1 Q G E T
0100700 - S E T F - M E T H O D 3 5 Q
0100720 C L : E R R O R 3 2 Q C L
0100740 : L E N G T H 1 1 Q % % =
0100760 4 C L : L E N G T H ) \r ( 2 2
0101000 0 Q L D B 1 6 4 Q D P B
0101020 1 5 6 Q L E T 2 5 Q L D B
0101040 ) \r ( 2 2 Q " S e t f e x
0101060 p a n d e r f o r ~ S c a
0101100 n n o t b e c a l l e d w
0101120 i t h ~ S a r g s . " ) \r (
0101140 P U T P R O P ( Q U O T E L
0101160 D B ) ( Q U O T E S E T F -
0101200 M E T H O D - E X P A N D E R )
0101220 ( Q U O T E s e t f - e x p
0101240 a n d e r - L D B ) ) \r ( L E T
0101260 * ( ( A 1 3 5 7 ( Q U O T E
0101300 L D B ) ) ( A 1 3 5 8 ( Q
0101320 U O T E S E T F ) ) ( A 1 3
0101340 5 9 \r " T h e f i r s t a
0101360 r g u m e n t i s a b y t
0101400 e s p e c i f i e r . T h
0101420 e s e c o n d i s a n y
0101440 p l a c e f o r m \r a c c
0101460 e p t a b l e t o S E T F .
0101500 R e p l a c e s t h e s
0101520 p e c i f i e d b y t e o f
0101540 t h e n u m b e r i n t
0101560 h i s \r p l a c e w i t h
0101600 b i t s f r o m t h e l
0101620 o w - o r d e r e n d o f
0101640 t h e n e w v a l u e . " )
0101660 ) ( P R O G N ( C O N D (
0101700 ( F B O U N D P ( Q U O T E
0101720 \r S E T - D O C U M E N T A T I
0101740 O N ) ) ( S E T - D O C U M E
0101760 N T A T I O N A 1 3 5 7 A 1
0102000 3 5 8 A 1 3 5 9 ) ) ) A 1 3
0102020 5 9 ) ) \r ( R E M P R O P ( Q
0102040 U O T E M A S K - F I E L D )
0102060 ( Q U O T E S E T F - I N V
0102100 E R S E ) ) \r ( R E M P R O P
0102120 ( Q U O T E M A S K - F I E L
0102140 D ) ( Q U O T E S E T F N )
0102160 ) \r s e t f - e x p a n d e r -
0102200 M A S K - F I E L D D 1 \r ( L
0102220 ( 1 e n v - M A S K - F I E
0102240 L D 0 w h o l e - M A S K -
0102260 F I E L D ) ) \0 225 \r \0 \0 002 @ 002
0102300 \t \0 \0 l 002 \n \0 \0 221 h 200 i 237 o \0 \0
0102320 \0 g \0 \0 @ 002 \t \0 \0 \v \0 \0 020 @ 002 021
0102340 301 \f H 001 271 H 002 001 \t \0 \0 \t \0 \0 Z 001
0102360 273 J 002 \ 001 275 L 002 ^ 001 _ 016 277 N 002 _
0102400 020 001 _ 022 277 O 020 002 001 _ 024 277 \b \0 \0 \b
0102420 \0 \0 _ 030 277 _ 026 K 032 I M 032 O 030 h 032
0102440 g \0 \0 O 016 001 g \0 \0 O 030 O 026 O 024 h
0102460 032 032 032 032 h 032 032 h 032 O 022 O 030 h 032 032
0102500 032 032 g \0 \0 O 026 O 024 h 032 032 032 \r 005 \0
0102520 \0 020 \0 ( 2 2 2 Q V A L U E S
0102540 1 2 3 Q G E N S Y M 1 2 0 Q
0102560 G E N S Y M 5 7 Q \ M V L
0102600 I S T 5 4 Q G E T - S E T F
0102620 - M E T H O D 3 5 Q C L : E
0102640 R R O R 3 2 Q C L : L E N G
0102660 T H 1 1 Q % % = 4 C L :
0102700 L E N G T H ) \r ( 2 0 6 Q M A
0102720 S K - F I E L D 1 5 2 Q D E
0102740 P O S I T - F I E L D 1 4 4 Q
0102760 L E T 2 5 Q M A S K - F I
0103000 E L D ) \r ( 2 2 Q " S e t f
0103020 e x p a n d e r f o r ~ S
0103040 c a n n o t b e c a l l e
0103060 d w i t h ~ S a r g s . "
0103100 ) \r ( P U T P R O P ( Q U O T
0103120 E M A S K - F I E L D ) ( Q
0103140 U O T E S E T F - M E T H O D
0103160 - E X P A N D E R ) ( Q U O T
0103200 E s e t f - e x p a n d e r -
0103220 M A S K - F I E L D ) ) \r ( L E
0103240 T * ( ( A 1 3 7 3 ( Q U O T
0103260 E M A S K - F I E L D ) ) (
0103300 A 1 3 7 4 ( Q U O T E S E T
0103320 F ) ) ( A 1 3 7 5 \r " T h e
0103340 f i r s t a r g u m e n t
0103360 i s a b y t e s p e c i f
0103400 i e r . T h e s e c o n d
0103420 i s a n y p l a c e f o
0103440 r m \r a c c e p t a b l e
0103460 t o S E T F . R e p l a c
0103500 e s t h e s p e c i f i e d
0103520 b y t e o f t h e n u m
0103540 b e r i n t h i s p l a c
0103560 e \r w i t h b i t s f r
0103600 o m t h e c o r r e s p o n
0103620 d i n g p o s i t i o n i n
0103640 t h e n e w v a l u e . "
0103660 ) ) ( P R O G N ( C O N D
0103700 ( ( F B O U N D P ( Q U O T E
0103720 \r S E T - D O C U M E N T A T
0103740 I O N ) ) ( S E T - D O C U M
0103760 E N T A T I O N A 1 3 7 3 A
0104000 1 3 7 4 A 1 3 7 5 ) ) ) A 1
0104020 3 7 5 ) ) \r ( R E M P R O P (
0104040 Q U O T E C H A R - B I T )
0104060 ( Q U O T E S E T F - I N V E
0104100 R S E ) ) \r ( R E M P R O P (
0104120 Q U O T E C H A R - B I T )
0104140 ( Q U O T E S E T F N ) ) \r s
0104160 e t f - e x p a n d e r - C H A
0104200 R - B I T D 1 \r ( L ( 1 e
0104220 n v - C H A R - B I T 0 w h
0104240 o l e - C H A R - B I T ) ) \0
0104260 252 017 \0 \0 002 @ 002 \t \0 \0 l 002 \n \0 \0 221
0104300 h 200 i 237 o \0 \0 \0 g \0 \0 @ 002 \t \0 \0
0104320 \v \0 \0 020 @ 002 021 341 016 H 001 271 H 002 001 272
0104340 A 273 I K \n \0 \0 \t \0 \0 \ 001 275 L 002 ^
0104360 001 _ 016 277 N 002 _ 020 001 _ 022 277 O 020 002 _
0104400 024 001 _ 026 277 O 024 002 001 _ 030 277 \b \0 \0 \b
0104420 \0 \0 _ 034 277 _ 032 277 M O 032 h 032 \n \0 \0
0104440 O 016 J h 032 \n \0 \0 O 034 h 032 g \0 \0 O
0104460 022 001 g \0 \0 O 030 O 032 O 034 h 032 032 032 032
0104500 h 032 032 h 032 O 026 O 034 h 032 032 032 032 g \0
0104520 \0 O 030 O 032 h 032 032 032 \r 005 \0 \0 020 \0 (
0104540 2 4 7 Q V A L U E S 1 6 2 Q
0104560 \ A P P E N D 2 1 5 2 Q \
0104600 A P P E N D 2 1 3 4 Q G E N
0104620 S Y M 1 3 1 Q G E N S Y M
0104640 6 4 Q \ M V L I S T 6 1 Q
0104660 G E T - S E T F - M E T H O D
0104700 3 5 Q C L : E R R O R 3 2 Q
0104720 C L : L E N G T H 1 1 Q %
0104740 % = 4 C L : L E N G T H ) \r
0104760 ( 2 3 3 Q C H A R - B I T 1
0105000 7 7 Q S E T - C H A R - B I T
0105020 1 7 1 Q L E T 2 5 Q C H
0105040 A R - B I T ) \r ( 2 2 Q " S
0105060 e t f e x p a n d e r f o r
0105100 ~ S c a n n o t b e c a
0105120 l l e d w i t h ~ S a r g
0105140 s . " ) \r ( P U T P R O P ( Q
0105160 U O T E C H A R - B I T ) (
0105200 Q U O T E S E T F - M E T H O
0105220 D - E X P A N D E R ) ( Q U O
0105240 T E s e t f - e x p a n d e r
0105260 - C H A R - B I T ) ) \r ( L E T
0105300 * ( ( A 1 3 8 9 ( Q U O T E
0105320 C H A R - B I T ) ) ( A 1 3
0105340 9 0 ( Q U O T E S E T F ) )
0105360 ( A 1 3 9 1 \r " T h e f i
0105400 r s t a r g u m e n t i s
0105420 a n y p l a c e f o r m a
0105440 c c e p t a b l e t o S E T
0105460 F . R e p l a c e s t h e
0105500 \r s p e c i f i e d b i t
0105520 o f t h e c h a r a c t e
0105540 r i n t h i s p l a c e
0105560 w i t h t h e n e w v a l
0105600 u e . " ) ) ( P R O G N ( C
0105620 O N D ( ( F B O U N D P ( Q
0105640 U O T E \r S E T - D O C U M E
0105660 N T A T I O N ) ) ( S E T - D
0105700 O C U M E N T A T I O N A 1 3
0105720 8 9 A 1 3 9 0 A 1 3 9 1 ) )
0105740 ) A 1 3 9 1 ) ) \r ( R E M P R
0105760 O P ( Q U O T E T H E ) (
0106000 Q U O T E S E T F - I N V E R
0106020 S E ) ) \r ( R E M P R O P ( Q
0106040 U O T E T H E ) ( Q U O T E
0106060 S E T F N ) ) \r s e t f - e x
0106100 p a n d e r - T H E D 1 \r ( L
0106120 ( 1 e n v - T H E 0 w h
0106140 o l e - T H E ) ) \0 177 \r \0 \0 002
0106160 @ 002 \t \0 \0 l 002 \n \0 \0 221 h 200 i 237 o
0106200 \0 \0 \0 g \0 \0 @ 002 \t \0 \0 \v \0 \0 020 @
0106220 002 021 301 \f H 001 271 H 002 001 272 A 273 J K \n
0106240 \0 \0 \t \0 \0 \ 001 275 L 002 ^ 001 _ 016 277 N
0106260 002 _ 020 001 _ 022 277 O 020 002 _ 024 001 _ 026 277
0106300 O 024 002 001 _ 030 277 M O 016 O 022 g \0 \0 I
0106320 O 022 001 h 032 032 032 O 022 001 O 026 \v \0 \0 g
0106340 \0 \0 I O 030 h 032 032 032 \r 005 \0 \0 020 \0 (
0106360 1 7 4 Q V A L U E S 1 5 6 Q
0106400 C L : S U B S T 6 4 Q \ M
0106420 V L I S T 6 1 Q G E T - S E
0106440 T F - M E T H O D 3 5 Q C L
0106460 : E R R O R 3 2 Q C L : L E
0106500 N G T H 1 1 Q % % = 4 C
0106520 L : L E N G T H ) \r ( 1 6 1 Q
0106540 T H E 1 3 6 Q T H E 2 5 Q
0106560 T H E ) \r ( 2 2 Q " S e t
0106600 f e x p a n d e r f o r ~
0106620 S c a n n o t b e c a l l
0106640 e d w i t h ~ S a r g s .
0106660 " ) \r ( P U T P R O P ( Q U O
0106700 T E T H E ) ( Q U O T E S
0106720 E T F - M E T H O D - E X P A N
0106740 D E R ) ( Q U O T E s e t f
0106760 - e x p a n d e r - T H E ) ) \r
0107000 ( R E M P R O P ( Q U O T E
0107020 \ G E T B A S E P T R ) ( Q U
0107040 O T E S E T F - M E T H O D -
0107060 E X P A N D E R ) ) \r ( P U T P
0107100 R O P S \ G E T B A S E P T R
0107120 S E T F - I N V E R S E \ P
0107140 U T B A S E P T R ) \r ( P U T P
0107160 R O P S C M L S E T F F I L
0107200 E T Y P E C O M P I L E - F I
0107220 L E ) \r ( P U T P R O P S C M
0107240 L S E T F C O P Y R I G H T
0107260 ( " X e r o x C o r p o r a t
0107300 i o n " 1 9 8 6 ) ) \r N I L \r
0107320