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