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