$ od -c -N 50000 [eris]<LispCore>SOURCES>MACROS.DCOM!58
0000000 ( F I L E C R E A T E D " 6
0000020 - O c t - 8 6 2 0 : 5 6 : 4 1
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > M A C R O S
0000120 . ; 5 1 ) \r " 1 - O c t - 8
0000140 6 2 0 : 2 3 : 1 5 " " C O M
0000160 P I L E - F I L E d " i n "
0000200 X e r o x L i s p 1 - O c
0000220 t - 8 6 . . . " d a t e d
0000240 " 1 - O c t - 8 6 2 1 : 2 4
0000260 : 4 4 " ) \r ( F I L E C R E A T
0000300 E D " 6 - O c t - 8 6 2 0
0000320 : 5 5 : 2 6 " { E R I S } < L
0000340 I S P C O R E > S O U R C E S >
0000360 M A C R O S . ; 5 1 4 6 5 8 7
0000400 c h a n g e s t o : ( V A
0000420 R S \r M A C R O S C O M S )
0000440 ( F U N C T I O N S C S E L E
0000460 C T ) p r e v i o u s d a t
0000500 e : " 6 - O c t - 8 6 1 5
0000520 : 4 6 : 0 4 " { E R I S } < L
0000540 I S P C O R E > S O U R C E S >
0000560 M A C R O S . ; 5 0 \r ) \r ( R P
0000600 A Q Q M A C R O S C O M S (
0000620 ( O P T I M I Z E R S A D D 1
0000640 C O N S T A N T D E F E R R
0000660 E D C O N S T A N T E V E N P
0000700 G E Q I G E Q I L E Q I
0000720 M A X I M I N L E Q L I S
0000740 T * \r N C O N C 1 N E Q N
0000760 L I S T P O D D P R P T Q
0001000 S E L E C T S E L E C T C S
0001020 E T Q Q S U B 1 Z E R O P )
0001040 ( P R O P M A C R O E R S
0001060 E T Q N L S E T Q X N L S E
0001100 T Q \r U N D O N L S E T Q R
0001120 E S E T V A R R E S E T F O R
0001140 M R E S E T L S T R E S E T
0001160 S A V E R E S E T T O P V A L
0001200 S R E S E T B U F S F L E S
0001220 S P P R O G 2 S I G N E D
0001240 U N S I G N E D ) \r ( C O M S
0001260 ( * " o b s o l e t e I n
0001300 t e r l i s p m a c r o f u
0001320 n c t i o n s " ) ( F N S E
0001340 X P A N D M A C R O M A C R O
0001360 E X P A N S I O N E X P A N D
0001400 - D E F M A C R O \r C O M P U
0001420 T E - M A C R O - A R G S M A
0001440 C R O S . G E T D E F G E T M
0001460 A C R O P R O P E X P A N D O
0001500 P E N L A M B D A ) ( G L O B
0001520 A L V A R S N O F I X F N S L
0001540 S T B Y T E C O M P F L G \r
0001560 C L I S P A R R A Y B Y T E M
0001600 A C R O P R O P ) ) ( P R O P
0001620 M A C R O L O A D T I M E C
0001640 O N S T A N T ) ( F U N C T I
0001660 O N S C S E L E C T ) ( C O
0001700 M S ( F N S P R I N T C O M
0001720 S T R A N ) \r ( G L O B A L V
0001740 A R S C O M M E N T F L G L
0001760 C A S E F L G P R I N T O U T
0002000 M A C R O S ) ( A D D V A R S
0002020 ( P R I N T O U T M A C R O S
0002040 ) ) ( V A R S P R I N T O U
0002060 T T O K E N S ) ( \r P R O P
0002100 I N F O P R I N T O U T p r
0002120 i n t o u t ) ( P R O P M A
0002140 C R O P R I N T O U T p r i
0002160 n t o u t ) ) ( A D D V A R S
0002200 * ( L I S T ( C O N S (
0002220 Q U O T E S Y S P R O P S )
0002240 \r M A C R O P R O P S ) ) ) (
0002260 P R O P P R O P T Y P E *
0002300 ( P R O G N M A C R O P R O P
0002320 S ) ) ( P R O P S E T F N
0002340 G E T T O P V A L ) ( P R O P
0002360 F I L E T Y P E M A C R O S
0002400 ) ( \r D E C L A R E : D O N
0002420 T E V A L @ L O A D D O E V A
0002440 L @ C O M P I L E D O N T C O
0002460 P Y C O M P I L E R V A R S
0002500 ( A D D V A R S ( N L A M A )
0002520 ( N L A M L ) ( L A M A \r
0002540 C O M P U T E - M A C R O - A R
0002560 G S E X P A N D - D E F M A C
0002600 R O ) ) ) ) ) \r o p t i m i z e
0002620 - A D D 1 D 1 \r ( L ( 2 $
0002640 $ C T X 1 $ $ E N V 0 $
0002660 $ W H O L E ) ) \0 022 001 \0 \0 003 @
0002700 002 001 021 001 \0 g \0 \0 H o \0 \0 \0 032 032 020
0002720 \0 N I L \r ( 1 0 Q I P L U S )
0002740 \r ( 1 5 Q ( 1 ) ) \r ( P U T
0002760 P R O P ( Q U O T E A D D 1
0003000 ) ( Q U O T E C O M P I L E
0003020 R : O P T I M I Z E R - L I S T
0003040 ) ( U N I O N ( G E T P R O
0003060 P ( Q U O T E A D D 1 ) (
0003100 Q U O T E \r C O M P I L E R :
0003120 O P T I M I Z E R - L I S T ) )
0003140 ( L I S T ( Q U O T E o p
0003160 t i m i z e - A D D 1 ) ) ) ) \r
0003200 o p t i m i z e - C O N S T A N
0003220 T D 1 \r ( L ( 2 $ $ C T X
0003240 1 $ $ E N V 0 $ $ W H O
0003260 L E ) ) \0 2 002 \0 \0 003 @ 002 021 021 001
0003300 g \0 \0 H \n \0 \0 Y \t \0 \0 262 033 I d 262
0003320 026 d i 360 257 3 020 221 h 200 i 227 g \0 \0 I
0003340 h 032 032 020 I 020 g \0 \0 H 032 020 \0 ( 1 7
0003360 Q C O N S T A N T O K 1 3 Q
0003400 A P P L Y ) \r ( 5 5 Q L O A
0003420 D T I M E C O N S T A N T 4 3
0003440 Q Q U O T E 7 P R O G 1 )
0003460 \r ( ) \r ( P U T P R O P ( Q U
0003500 O T E C O N S T A N T ) ( Q
0003520 U O T E C O M P I L E R : O P
0003540 T I M I Z E R - L I S T ) ( U
0003560 N I O N ( G E T P R O P ( Q
0003600 U O T E C O N S T A N T ) (
0003620 Q U O T E \r C O M P I L E R :
0003640 O P T I M I Z E R - L I S T ) )
0003660 ( L I S T ( Q U O T E o p
0003700 t i m i z e - C O N S T A N T )
0003720 ) ) ) \r o p t i m i z e - D E F
0003740 E R R E D C O N S T A N T D 1
0003760 \r ( L ( 2 $ $ C T X 1 $
0004000 $ E N V 0 $ $ W H O L E ) )
0004020 \0 ^ 002 \0 \0 003 @ 002 001 021 021 001 g \0 \0
0004040 o \0 \0 \0 o \0 \0 \0 g \0 \0 o \0 \0 \0 g
0004060 \0 \0 g \0 \0 g \0 \0 g \0 \0 H h 032 032 h
0004100 032 032 032 o \0 \0 \0 032 032 h 032 032 032 o \0 \0
0004120 \0 032 032 032 032 h h 032 Y d 262 026 d i 360 257
0004140 3 020 221 h 200 i 227 g \0 \0 I h 032 032 200 I
0004160 h 032 032 020 \0 N I L \r ( 1 2 2 Q Q
0004200 U O T E 4 3 Q E V Q 4 0 Q
0004220 M A C R O X 3 5 Q F R P L
0004240 A C A 3 2 Q F R P L A C D
0004260 2 3 Q O R 1 0 Q L A M B D
0004300 A ) \r ( 7 1 Q ( ( C A R M
0004320 A C R O X ) ) 5 7 Q ( T )
0004340 2 7 Q ( C D R M A C R O X )
0004360 2 0 Q ( D E C L A R E ( L
0004400 O C A L V A R S M A C R O X )
0004420 ) 1 4 Q ( M A C R O X ) ) \r
0004440 ( P U T P R O P ( Q U O T E
0004460 D E F E R R E D C O N S T A N T
0004500 ) ( Q U O T E C O M P I L E
0004520 R : O P T I M I Z E R - L I S T
0004540 ) ( U N I O N ( G E T P R O
0004560 P ( Q U O T E \r D E F E R R
0004600 E D C O N S T A N T ) ( Q U O
0004620 T E C O M P I L E R : O P T I
0004640 M I Z E R - L I S T ) ) ( L I
0004660 S T ( Q U O T E o p t i m i
0004700 z e - D E F E R R E D C O N S T
0004720 A N T ) ) ) ) \r o p t i m i z e
0004740 - E V E N P D 1 \r ( L ( 2
0004760 $ $ C T X 1 $ $ E N V 0
0005000 $ $ W H O L E ) ) \0 % 003 \0 \0 003
0005020 @ 002 021 ! 002 H 001 271 H 002 265 027 l 002 272 g
0005040 \0 \0 j g \0 \0 I J h 032 032 032 h 032 032 032
0005060 020 001 260 354 \0 N I L \r ( 2 5 Q I M
0005100 O D 2 1 Q E Q ) \r ( ) \r ( P
0005120 U T P R O P ( Q U O T E E V
0005140 E N P ) ( Q U O T E C O M P
0005160 I L E R : O P T I M I Z E R - L
0005200 I S T ) ( U N I O N ( G E T
0005220 P R O P ( Q U O T E E V E N
0005240 P ) ( Q U O T E \r C O M P I
0005260 L E R : O P T I M I Z E R - L I
0005300 S T ) ) ( L I S T ( Q U O T
0005320 E o p t i m i z e - E V E N P
0005340 ) ) ) ) \r o p t i m i z e - G E
0005360 Q D 1 \r ( L ( 2 $ $ C T X
0005400 1 $ $ E N V 0 $ $ W H O
0005420 L E ) ) \0 035 003 \0 \0 003 @ 002 021 ! 002
0005440 H 001 271 H 002 001 272 g \0 \0 g \0 \0 I J h
0005460 032 032 032 h 032 032 020 \0 N I L \r ( 2 1 Q
0005500 L E S S P 1 6 Q N O T ) \r
0005520 ( ) \r ( P U T P R O P ( Q U O
0005540 T E G E Q ) ( Q U O T E C
0005560 O M P I L E R : O P T I M I Z E
0005600 R - L I S T ) ( U N I O N (
0005620 G E T P R O P ( Q U O T E G
0005640 E Q ) ( Q U O T E \r C O M P
0005660 I L E R : O P T I M I Z E R - L
0005700 I S T ) ) ( L I S T ( Q U O
0005720 T E o p t i m i z e - G E Q )
0005740 ) ) ) \r o p t i m i z e - I G E
0005760 Q D 1 \r ( L ( 2 $ $ C T X
0006000 1 $ $ E N V 0 $ $ W H O
0006020 L E ) ) \0 035 003 \0 \0 003 @ 002 021 ! 002
0006040 H 001 271 H 002 001 272 g \0 \0 g \0 \0 I J h
0006060 032 032 032 h 032 032 020 \0 N I L \r ( 2 1 Q
0006100 I L E S S P 1 6 Q N O T )
0006120 \r ( ) \r ( P U T P R O P ( Q U
0006140 O T E I G E Q ) ( Q U O T E
0006160 C O M P I L E R : O P T I M I
0006200 Z E R - L I S T ) ( U N I O N
0006220 ( G E T P R O P ( Q U O T E
0006240 I G E Q ) ( Q U O T E \r C
0006260 O M P I L E R : O P T I M I Z E
0006300 R - L I S T ) ) ( L I S T (
0006320 Q U O T E o p t i m i z e - I
0006340 G E Q ) ) ) ) \r o p t i m i z e
0006360 - I L E Q D 1 \r ( L ( 2 $
0006400 $ C T X 1 $ $ E N V 0 $
0006420 $ W H O L E ) ) \0 035 003 \0 \0 003 @
0006440 002 021 ! 002 H 001 271 H 002 001 272 g \0 \0 g \0
0006460 \0 I J h 032 032 032 h 032 032 020 \0 N I L \r
0006500 ( 2 1 Q I G R E A T E R P 1
0006520 6 Q N O T ) \r ( ) \r ( P U T P
0006540 R O P ( Q U O T E I L E Q )
0006560 ( Q U O T E C O M P I L E R
0006600 : O P T I M I Z E R - L I S T )
0006620 ( U N I O N ( G E T P R O P
0006640 ( Q U O T E I L E Q ) ( Q
0006660 U O T E \r C O M P I L E R : O
0006700 P T I M I Z E R - L I S T ) )
0006720 ( L I S T ( Q U O T E o p t
0006740 i m i z e - I L E Q ) ) ) ) \r o
0006760 p t i m i z e - I M A X D 1 \r
0007000 ( L ( 2 $ $ C T X 1 $ $
0007020 E N V 0 $ $ W H O L E ) )
0007040 \0 U \a \0 \0 003 @ 002 021 a 006 H d 220 001 271
0007060 H 241 h 200 i 272 H 002 [ d 220 001 274 K 241 h
0007100 200 i 275 K 002 276 J 221 h 200 i 223 g \0 \0 020
0007120 M 221 h 200 i 227 g \0 \0 I h 032 032 020 N 237
0007140 g \0 \0 g \0 \0 I L h 032 032 032 N 032 032 020
0007160 g \0 \0 I L h 032 032 032 020 \0 N I L \r (
0007200 1 1 4 Q I M A X 2 7 7 Q I
0007220 M A X 2 7 4 Q I M A X 6 2
0007240 Q F I X 5 0 Q M I N . I N
0007260 T E G E R ) \r ( ) \r ( P U T P R
0007300 O P ( Q U O T E I M A X )
0007320 ( Q U O T E C O M P I L E R :
0007340 O P T I M I Z E R - L I S T )
0007360 ( U N I O N ( G E T P R O P
0007400 ( Q U O T E I M A X ) ( Q U
0007420 O T E \r C O M P I L E R : O P
0007440 T I M I Z E R - L I S T ) ) (
0007460 L I S T ( Q U O T E o p t i
0007500 m i z e - I M A X ) ) ) ) \r o p
0007520 t i m i z e - I M I N D 1 \r (
0007540 L ( 2 $ $ C T X 1 $ $ E
0007560 N V 0 $ $ W H O L E ) ) \0
0007600 U \a \0 \0 003 @ 002 021 a 006 H d 220 001 271 H
0007620 241 h 200 i 272 H 002 [ d 220 001 274 K 241 h 200
0007640 i 275 K 002 276 J 221 h 200 i 223 g \0 \0 020 M
0007660 221 h 200 i 227 g \0 \0 I h 032 032 020 N 237 g
0007700 \0 \0 g \0 \0 I L h 032 032 032 N 032 032 020 g
0007720 \0 \0 I L h 032 032 032 020 \0 N I L \r ( 1
0007740 1 4 Q I M I N 2 7 7 Q I M
0007760 I N 2 7 4 Q I M I N 6 2 Q
0010000 F I X 5 0 Q M A X . I N T
0010020 E G E R ) \r ( ) \r ( P U T P R O
0010040 P ( Q U O T E I M I N ) (
0010060 Q U O T E C O M P I L E R : O
0010100 P T I M I Z E R - L I S T ) (
0010120 U N I O N ( G E T P R O P (
0010140 Q U O T E I M I N ) ( Q U O
0010160 T E \r C O M P I L E R : O P T
0010200 I M I Z E R - L I S T ) ) ( L
0010220 I S T ( Q U O T E o p t i m
0010240 i z e - I M I N ) ) ) ) \r o p t
0010260 i m i z e - L E Q D 1 \r ( L
0010300 ( 2 $ $ C T X 1 $ $ E N V
0010320 0 $ $ W H O L E ) ) \0 035 003
0010340 \0 \0 003 @ 002 021 ! 002 H 001 271 H 002 001 272 g
0010360 \0 \0 g \0 \0 I J h 032 032 032 h 032 032 020 \0
0010400 N I L \r ( 2 1 Q G R E A T E R
0010420 P 1 6 Q N O T ) \r ( ) \r ( P
0010440 U T P R O P ( Q U O T E L E
0010460 Q ) ( Q U O T E C O M P I L
0010500 E R : O P T I M I Z E R - L I S
0010520 T ) ( U N I O N ( G E T P R
0010540 O P ( Q U O T E L E Q ) (
0010560 Q U O T E \r C O M P I L E R :
0010600 O P T I M I Z E R - L I S T ) )
0010620 ( L I S T ( Q U O T E o p
0010640 t i m i z e - L E Q ) ) ) ) \r o
0010660 p t i m i z e - L I S T * D 1
0010700 \r ( L ( 2 $ $ C T X 1 $
0010720 $ E N V 0 $ $ W H O L E ) )
0010740 \0 ) 001 \0 \0 003 @ 002 021 001 \0 H d 240 020
0010760 002 242 H 001 020 H 002 002 245 g \0 \0 H 032 020 g
0011000 \0 \0 H 001 g \0 \0 H 002 032 h 032 032 032 020 \0
0011020 N I L \r ( 3 7 Q L I S T * 3
0011040 2 Q C O N S 2 4 Q C O N S
0011060 ) \r ( ) \r ( P U T P R O P ( Q
0011100 U O T E L I S T * ) ( Q U O
0011120 T E C O M P I L E R : O P T I
0011140 M I Z E R - L I S T ) ( U N I
0011160 O N ( G E T P R O P ( Q U O
0011200 T E L I S T * ) ( Q U O T E
0011220 \r C O M P I L E R : O P T I M
0011240 I Z E R - L I S T ) ) ( L I S
0011260 T ( Q U O T E o p t i m i z
0011300 e - L I S T * ) ) ) ) \r o p t i
0011320 m i z e - N C O N C 1 D 1 \r (
0011340 L ( 2 $ $ C T X 1 $ $ E
0011360 N V 0 $ $ W H O L E ) ) \0
0011400 035 003 \0 \0 003 @ 002 021 ! 002 H 001 271 H 002 001
0011420 272 g \0 \0 I g \0 \0 J h 032 032 h 032 032 032
0011440 020 \0 N I L \r ( 2 2 Q C O N S
0011460 1 6 Q N C O N C ) \r ( ) \r ( P
0011500 U T P R O P ( Q U O T E N C
0011520 O N C 1 ) ( Q U O T E C O M
0011540 P I L E R : O P T I M I Z E R -
0011560 L I S T ) ( U N I O N ( G E
0011600 T P R O P ( Q U O T E N C O
0011620 N C 1 ) ( Q U O T E \r C O M
0011640 P I L E R : O P T I M I Z E R -
0011660 L I S T ) ) ( L I S T ( Q U
0011700 O T E o p t i m i z e - N C O
0011720 N C 1 ) ) ) ) \r o p t i m i z e
0011740 - N E Q D 1 \r ( L ( 2 $ $
0011760 C T X 1 $ $ E N V 0 $ $
0012000 W H O L E ) ) \0 035 003 \0 \0 003 @ 002
0012020 021 ! 002 H 001 271 H 002 001 272 g \0 \0 g \0 \0
0012040 I J h 032 032 032 h 032 032 020 \0 N I L \r (
0012060 2 1 Q E Q 1 6 Q N U L L )
0012100 \r ( ) \r ( P U T P R O P ( Q U
0012120 O T E N E Q ) ( Q U O T E
0012140 C O M P I L E R : O P T I M I Z
0012160 E R - L I S T ) ( U N I O N
0012200 ( G E T P R O P ( Q U O T E
0012220 N E Q ) ( Q U O T E \r C O M
0012240 P I L E R : O P T I M I Z E R -
0012260 L I S T ) ) ( L I S T ( Q U
0012300 O T E o p t i m i z e - N E Q
0012320 ) ) ) ) \r o p t i m i z e - N L
0012340 I S T P D 1 \r ( L ( 2 $ $
0012360 C T X 1 $ $ E N V 0 $ $
0012400 W H O L E ) ) \0 025 001 \0 \0 003 @ 002
0012420 001 021 001 \0 g \0 \0 g \0 \0 H h 032 032 h 032
0012440 032 020 \0 N I L \r ( 1 3 Q L I S T
0012460 P 1 0 Q N U L L ) \r ( ) \r (
0012500 P U T P R O P ( Q U O T E N
0012520 L I S T P ) ( Q U O T E C O
0012540 M P I L E R : O P T I M I Z E R
0012560 - L I S T ) ( U N I O N ( G
0012600 E T P R O P ( Q U O T E N L
0012620 I S T P ) ( Q U O T E \r C O
0012640 M P I L E R : O P T I M I Z E R
0012660 - L I S T ) ) ( L I S T ( Q
0012700 U O T E o p t i m i z e - N L
0012720 I S T P ) ) ) ) \r o p t i m i z
0012740 e - O D D P D 1 \r ( L ( 2
0012760 $ $ C T X 1 $ $ E N V 0
0013000 $ $ W H O L E ) ) \0 032 003 \0 \0 003
0013020 @ 002 021 ! 002 H 001 271 H 002 272 g \0 \0 g \0
0013040 \0 I J 032 032 h 032 032 020 \0 N I L \r ( 2
0013060 0 Q E V E N P 1 5 Q N O T
0013100 ) \r ( ) \r ( P U T P R O P ( Q
0013120 U O T E O D D P ) ( Q U O T
0013140 E C O M P I L E R : O P T I M
0013160 I Z E R - L I S T ) ( U N I O
0013200 N ( G E T P R O P ( Q U O T
0013220 E O D D P ) ( Q U O T E \r
0013240 C O M P I L E R : O P T I M I Z
0013260 E R - L I S T ) ) ( L I S T
0013300 ( Q U O T E o p t i m i z e -
0013320 O D D P ) ) ) ) \r o p t i m i z
0013340 e - R P T Q D 1 \r ( L ( 2
0013360 $ $ C T X 1 $ $ E N V 0
0013400 $ $ W H O L E ) ) \0 K 003 \0 \0 003
0013420 @ 002 021 ! 002 H 001 271 H 002 272 g \0 \0 g \0
0013440 \0 I h 032 032 o \0 \0 \0 032 o \0 \0 \0 g \0
0013460 \0 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0 g \0
0013500 \0 J 032 h 032 032 032 o \0 \0 \0 032 032 h 032 032
0013520 o \0 \0 \0 032 032 032 032 032 020 \0 N I L \r (
0013540 6 0 Q P R O G N 5 5 Q R P
0013560 T V 5 2 Q S E T Q 4 3 Q
0013600 C O N D 4 0 Q R P T Q L A B
0013620 2 0 Q R P T N 1 5 Q P R
0013640 O G ) \r ( 1 0 3 Q ( ( R E T
0013660 U R N R P T V ) ) 7 2 Q (
0013700 ( S E T Q R P T N ( S U B 1
0013720 R P T N ) ) ( G O R P T Q
0013740 L A B ) ) 4 7 Q ( I G R E A
0013760 T E R P R P T N 0 ) 3 5 Q
0014000 ( D E C L A R E ( L O C A L
0014020 V A R S R P T N R P T V ) )
0014040 \r 3 0 Q ( R P T V ) ) \r ( P
0014060 U T P R O P ( Q U O T E R P
0014100 T Q ) ( Q U O T E C O M P I
0014120 L E R : O P T I M I Z E R - L I
0014140 S T ) ( U N I O N ( G E T P
0014160 R O P ( Q U O T E R P T Q )
0014200 ( Q U O T E \r C O M P I L E
0014220 R : O P T I M I Z E R - L I S T
0014240 ) ) ( L I S T ( Q U O T E
0014260 o p t i m i z e - R P T Q ) ) )
0014300 ) \r o p t i m i z e - S E L E C
0014320 T D 1 \r ( L ( 2 $ $ C T X
0014340 1 $ $ E N V 0 $ $ W H O
0014360 L E ) ) \0 \a \0 \0 \0 003 @ 002 \t \0 \0
0014400 020 \0 ( 4 C S E L E C T ) \r N I
0014420 L \r ( ) \r ( P U T P R O P ( Q
0014440 U O T E S E L E C T ) ( Q U
0014460 O T E C O M P I L E R : O P T
0014500 I M I Z E R - L I S T ) ( U N
0014520 I O N ( G E T P R O P ( Q U
0014540 O T E S E L E C T ) ( Q U O
0014560 T E \r C O M P I L E R : O P T
0014600 I M I Z E R - L I S T ) ) ( L
0014620 I S T ( Q U O T E o p t i m
0014640 i z e - S E L E C T ) ) ) ) \r o
0014660 p t i m i z e - S E L E C T C
0014700 D 1 \r ( L ( 2 $ $ C T X 1
0014720 $ $ E N V 0 $ $ W H O L E
0014740 ) ) \0 ? \a \0 \0 003 @ 002 021 1 003 H 001
0014760 271 H 002 272 g \0 \0 I 021 0 006 J 260 # d [
0015000 d 002 231 001 001 \t \0 \0 K 001 002 032 200 001 274 M
0015020 221 h 200 i 224 L h 032 ^ 202 M L & 275 002 003
0015040 265 336 N 022 032 032 020 \0 ( 3 6 Q E V A
0015060 L ) \r ( 1 5 Q S E L E C T Q )
0015100 \r ( ) \r ( P U T P R O P ( Q U
0015120 O T E S E L E C T C ) ( Q U
0015140 O T E C O M P I L E R : O P T
0015160 I M I Z E R - L I S T ) ( U N
0015200 I O N ( G E T P R O P ( Q U
0015220 O T E S E L E C T C ) ( Q U
0015240 O T E \r C O M P I L E R : O P
0015260 T I M I Z E R - L I S T ) ) (
0015300 L I S T ( Q U O T E o p t i
0015320 m i z e - S E L E C T C ) ) ) )
0015340 \r o p t i m i z e - S E T Q Q
0015360 D 1 \r ( L ( 2 $ $ C T X 1
0015400 $ $ E N V 0 $ $ W H O L E
0015420 ) ) \0 035 003 \0 \0 003 @ 002 021 ! 002 H 001
0015440 271 H 002 001 272 g \0 \0 I g \0 \0 J h 032 032
0015460 h 032 032 032 020 \0 N I L \r ( 2 2 Q Q
0015500 U O T E 1 6 Q S E T Q ) \r (
0015520 ) \r ( P U T P R O P ( Q U O T
0015540 E S E T Q Q ) ( Q U O T E
0015560 C O M P I L E R : O P T I M I Z
0015600 E R - L I S T ) ( U N I O N
0015620 ( G E T P R O P ( Q U O T E
0015640 S E T Q Q ) ( Q U O T E \r C
0015660 O M P I L E R : O P T I M I Z E
0015700 R - L I S T ) ) ( L I S T (
0015720 Q U O T E o p t i m i z e - S
0015740 E T Q Q ) ) ) ) \r o p t i m i z
0015760 e - S U B 1 D 1 \r ( L ( 2
0016000 $ $ C T X 1 $ $ E N V 0
0016020 $ $ W H O L E ) ) \0 022 001 \0 \0 003
0016040 @ 002 001 021 001 \0 g \0 \0 H o \0 \0 \0 032 032
0016060 020 \0 N I L \r ( 1 0 Q I D I F F
0016100 E R E N C E ) \r ( 1 5 Q ( 1
0016120 ) ) \r ( P U T P R O P ( Q U O
0016140 T E S U B 1 ) ( Q U O T E
0016160 C O M P I L E R : O P T I M I Z
0016200 E R - L I S T ) ( U N I O N
0016220 ( G E T P R O P ( Q U O T E
0016240 S U B 1 ) ( Q U O T E \r C O
0016260 M P I L E R : O P T I M I Z E R
0016300 - L I S T ) ) ( L I S T ( Q
0016320 U O T E o p t i m i z e - S U
0016340 B 1 ) ) ) ) \r o p t i m i z e -
0016360 Z E R O P D 1 \r ( L ( 2 $
0016400 $ C T X 1 $ $ E N V 0 $
0016420 $ W H O L E ) ) \0 \r 001 \0 \0 003 @
0016440 002 021 001 \0 o \0 \0 \0 H 032 020 \0 N I L \r
0016460 N I L \r ( 1 0 Q ( O P E N L
0016500 A M B D A ( X ) ( C O N D
0016520 ( ( E Q X 0 ) ) ( ( F L O
0016540 A T P X ) ( \ F Z E R O P
0016560 X ) ) ) ) ) \r ( P U T P R O P
0016600 ( Q U O T E Z E R O P ) ( Q
0016620 U O T E C O M P I L E R : O P
0016640 T I M I Z E R - L I S T ) ( U
0016660 N I O N ( G E T P R O P ( Q
0016700 U O T E Z E R O P ) ( Q U O
0016720 T E \r C O M P I L E R : O P T
0016740 I M I Z E R - L I S T ) ) ( L
0016760 I S T ( Q U O T E o p t i m
0017000 i z e - Z E R O P ) ) ) ) \r ( P
0017020 U T P R O P S E R S E T Q M
0017040 A C R O ( ( X . Y ) ( .
0017060 E R R S E T Q . ( P R O G N
0017100 X . Y ) T ) ) ) \r ( P U T
0017120 P R O P S N L S E T Q M A C
0017140 R O ( ( X . Y ) ( . E R
0017160 R S E T Q . ( P R O G N X
0017200 . Y ) N I L ) ) ) \r ( P U T
0017220 P R O P S X N L S E T Q M A
0017240 C R O ( ( X F L G F N )
0017260 ( . E R R S E T Q . X F L G
0017300 F N ) ) ) \r ( P U T P R O P S
0017320 U N D O N L S E T Q M A C R
0017340 O ( ( U N D O F O R M U N D
0017360 O F N ) ( P R O G ( ( L I S
0017400 P X H I S T L I S P X H I S T
0017420 ) U N D O S I D E 0 U N D O
0017440 S I D E U N D O T E M ) \r (
0017460 D E C L A R E ( S P E C V A R
0017500 S L I S P X H I S T ) ) ( C
0017520 O N D ( ( L I S T P ( S E T
0017540 Q U N D O S I D E ( L I S T
0017560 G E T 1 L I S P X H I S T (
0017600 Q U O T E S I D E ) ) ) ) (
0017620 S E T Q \r U N D O S I D E 0
0017640 ( C D R U N D O S I D E ) ) )
0017660 ( T ( S E T Q U N D O S I
0017700 D E 0 U N D O S I D E ) ( S
0017720 E T Q U N D O S I D E ( L I
0017740 S T 0 ) ) ( C O N D ( L I
0017760 S P X H I S T ( \r L I S T P U
0020000 T 1 L I S P X H I S T ( Q U
0020020 O T E S I D E ) U N D O S I
0020040 D E ) ) ( T ( S E T Q L I
0020060 S P X H I S T ( L I S T ( Q
0020100 U O T E S I D E ) U N D O S
0020120 I D E ) ) ) ) ) ) ( \r R E S E
0020140 T V A R S ( # U N D O S A V E
0020160 S ) ( S E T Q U N D O T E M
0020200 ( X N L S E T Q U N D O F O
0020220 R M N I L U N D O F N ) ) )
0020240 ( C O N D ( ( E Q U N D O
0020260 S I D E 0 ( Q U O T E \r N O
0020300 S A V E ) ) ( L I S T P U T 1
0020320 L I S P X H I S T ( Q U O T
0020340 E S I D E ) ( Q U O T E N
0020360 O S A V E ) ) ) ( T ( U N D
0020400 O S A V E ) ) ) ( C O N D (
0020420 U N D O T E M ( R E T U R N
0020440 \r U N D O T E M ) ) ) ( U N D
0020460 O N L S E T Q 1 ( C D R U N
0020500 D O S I D E ) ( L I S T P U
0020520 N D O S I D E 0 ) ) ( R E T U
0020540 R N ) ) ) ) \r ( P U T P R O P S
0020560 R E S E T V A R M A C R O
0020600 ( ( V A R V A L F O R M )
0020620 ( P R O G ( M A C R O X M A
0020640 C R O Y ) ( S E T Q M A C R
0020660 O X ( S E T Q R E S E T V A
0020700 R S L S T ( C O N S ( \r C O
0020720 N S ( Q U O T E V A R ) (
0020740 C O N S ( S T K S C A N ( Q
0020760 U O T E V A R ) ) ( G E T A
0021000 T O M V A L ( Q U O T E V A
0021020 R ) ) ) ) R E S E T V A R S L
0021040 S T ) ) ) ( S E T Q M A C R
0021060 O Y ( \r X N L S E T Q ( P R
0021100 O G N ( S E T A T O M V A L
0021120 ( Q U O T E V A R ) V A L )
0021140 F O R M ) ( Q U O T E I N
0021160 T E R N A L ) ) ) ( S E T A T
0021200 O M V A L ( Q U O T E V A R
0021220 ) ( C D D A R \r M A C R O X
0021240 ) ) ( S E T Q R E S E T V A
0021260 R S L S T ( C D R M A C R O
0021300 X ) ) ( C O N D ( M A C R O
0021320 Y ( R E T U R N ( C A R M
0021340 A C R O Y ) ) ) ) ( E R R O R
0021360 ! ) ) ) ) \r ( P U T P R O P S
0021400 R E S E T F O R M M A C R O
0021420 ( O P E N X ( S U B P A I R
0021440 ( Q U O T E ( F N F O R M
0021460 . E X P R E S S I O N S ) )
0021500 ( C O N S ( C A A R O P E N
0021520 X ) O P E N X ) ( \r Q U O T
0021540 E ( P R O G ( ( O L D V A L
0021560 U E F O R M ) M A C R O X
0021600 M A C R O Y R E S E T S T A T
0021620 E ) ( D E C L A R E ( L O C
0021640 A L V A R S M A C R O X M A
0021660 C R O Y ) ) ( S E T Q \r M A
0021700 C R O X ( S E T Q R E S E T
0021720 V A R S L S T ( C O N S ( L
0021740 I S T ( L I S T ( Q U O T E
0021760 F N ) O L D V A L U E ) )
0022000 R E S E T V A R S L S T ) ) )
0022020 ( C O N D ( ( N O T ( X N L
0022040 S E T Q \r ( S E T Q M A C R
0022060 O Y ( P R O G N . E X P R
0022100 E S S I O N S ) ) I N T E R N
0022120 A L ) ) ( S E T Q R E S E T
0022140 S T A T E ( Q U O T E E R R
0022160 O R ) ) ) ) ( S E T Q R E S
0022200 E T V A R S L S T ( \r C D R
0022220 M A C R O X ) ) ( A P P L Y
0022240 ( Q U O T E F N ) ( C D A A
0022260 R M A C R O X ) ) ( R E T U
0022300 R N ( C O N D ( R E S E T S
0022320 T A T E ( E R R O R ! ) ) (
0022340 T M A C R O Y ) ) ) ) ) ) ) )
0022360 \r ( P U T P R O P S R E S E T
0022400 L S T M A C R O ( ( X .
0022420 Y ) ( P R O G ( R E S E T Y
0022440 R E S E T Z ( L I S P X H I
0022460 S T L I S P X H I S T ) ) (
0022500 R E S E T R E S T O R E \r R E
0022520 S E T V A R S L S T ( S E T Q
0022540 R E S E T Z ( C O N D ( (
0022560 X N L S E T Q ( S E T Q R E
0022600 S E T Y ( P R O G N X .
0022620 Y ) ) I N T E R N A L ) N I
0022640 L ) ( T ( Q U O T E E R R
0022660 O R ) ) \r ) ) ) ( R E T U R N
0022700 ( C O N D ( R E S E T Z (
0022720 E R R O R ! ) ) ( T R E S E
0022740 T Y ) ) ) ) ) ) \r ( P U T P R O
0022760 P S R E S E T S A V E M A C
0023000 R O ( X ( L I S T ( Q U O
0023020 T E S E T Q ) ( Q U O T E
0023040 R E S E T V A R S L S T ) ( L
0023060 I S T ( Q U O T E C O N S )
0023100 ( C O N D ( ( A N D ( \r A
0023120 T O M ( C A R X ) ) ( C A
0023140 R X ) ) ( S U B P A I R (
0023160 Q U O T E ( V A R V A L ) )
0023200 X ( Q U O T E ( P R O G 1
0023220 ( C O N S ( Q U O T E V A
0023240 R ) ( C O N S ( S T K S C A
0023260 N ( \r Q U O T E V A R ) )
0023300 ( G E T A T O M V A L ( Q U O
0023320 T E V A R ) ) ) ) ( S E T A
0023340 T O M V A L ( Q U O T E V A
0023360 R ) V A L ) ) ) ) ) ( ( C D
0023400 R X ) ( L I S T ( Q U O T
0023420 E L I S T ) ( \r C A D R X
0023440 ) ( C A R X ) ) ) ( T (
0023460 L I S T ( Q U O T E L I S T
0023500 ) ( L I S T ( Q U O T E L
0023520 I S T ) ( L I S T ( Q U O T
0023540 E Q U O T E ) ( C O N D (
0023560 ( E Q ( C A A R X ) ( \r Q
0023600 U O T E S E T Q ) ) ( C A R
0023620 ( C A D D A R X ) ) ) ( T
0023640 ( C A A R X ) ) ) ) ( C A
0023660 R X ) ) ) ) ) ( Q U O T E
0023700 R E S E T V A R S L S T ) ) ) )
0023720 ) \r ( P U T P R O P S R E S E
0023740 T T O P V A L S M A C R O (
0023760 A R G S ( C O N S ( Q U O T
0024000 E R E S E T L S T ) ( N C O
0024020 N C ( M A P C A R ( C A R
0024040 A R G S ) ( F U N C T I O N
0024060 ( L A M B D A \r ( V ) ( C O
0024100 N S ( Q U O T E R E S E T S
0024120 A V E ) V ) ) ) ) ( C D R
0024140 A R G S ) ) ) ) ) \r ( P U T P R
0024160 O P S R E S E T B U F S M A
0024200 C R O ( ( A . B ) ( ( L
0024220 A M B D A ( $ $ B U F S ) (
0024240 D E C L A R E ( L O C A L V A
0024260 R S $ $ B U F S ) ) ( P R O
0024300 G 1 ( P R O G N A . B )
0024320 \r ( A N D $ $ B U F S ( B
0024340 K B U F S $ $ B U F S ) ) ) )
0024360 ( P R O G N ( L I N B U F )
0024400 ( S Y S B U F ) ( C L B U F
0024420 S N I L T R E A D B U F )
0024440 ) ) ) ) \r ( P U T P R O P S F
0024460 L E S S P M A C R O ( L A M
0024500 B D A ( X Y ) ( F G R E A
0024520 T E R P Y X ) ) ) \r ( P U T
0024540 P R O P S P R O G 2 M A C R
0024560 O ( ( X . Y ) ( P R O G
0024600 N X ( P R O G 1 . Y ) )
0024620 ) ) \r ( P U T P R O P S S I G
0024640 N E D M A C R O ( A R G S
0024660 ( C O N D ( ( E Q C O M P I
0024700 L E . C O N T E X T ( Q U O T
0024720 E E F F E C T ) ) ( C A R
0024740 A R G S ) ) ( T ( C O N S
0024760 ( Q U O T E ( \r O P E N L A M
0025000 B D A ( N W I D T H ) ( C
0025020 O N D ( ( I G R E A T E R P
0025040 N ( S U B 1 ( L L S H 1
0025060 ( S U B 1 W I D T H ) ) ) )
0025100 ( * d o n e t h i s w a y
0025120 j u s t s o t h a t ( \r
0025140 S I G N E D X % 2 ^ 1 6 )
0025160 d o e s n ' t b o x ) ( S U
0025200 B 1 ( I D I F F E R E N C E
0025220 N ( S U B 1 ( L L S H 1
0025240 W I D T H ) ) ) ) ) ( T N )
0025260 ) ) ) A R G S ) ) ) ) ) \r ( P
0025300 U T P R O P S U N S I G N E D
0025320 M A C R O ( ( X W I D T H
0025340 ) ( L O G A N D X ( S U B
0025360 1 ( L L S H 1 W I D T H )
0025400 ) ) ) ) \r E X P A N D M A C R O
0025420 A 0 0 0 1 D 1 \r ( N A M E E
0025440 R R O R S E T F 0 E X P
0025460 F 1 M A C R O Y ) \0 020 \0 002
0025500 002 \0 P h i \v \0 \0 277 i \t \0 \0 c 002 i
0025520 020 \0 ( 1 2 Q T E R P R I 5
0025540 P R I N T D E F ) \r N I L \r ( )
0025560 \r E X P A N D M A C R O D 1 \r
0025600 ( P 1 1 Q R E S E T S T A T
0025620 E P 1 0 Q M A C R O Y P
0025640 6 O L D V A L U E P 5
0025660 P C F P 4 N C F P 3
0025700 M A C R O D E F P 2 A L L
0025720 F L G P 1 E F F P 0
0025740 V C F I 3 C O M P I L E .
0025760 C O N T E X T I 2 O P T I
0026000 O N S I 1 Q U I E T F L G
0026020 I 0 E X P F 1 2 Q R
0026040 E S E T V A R S L S T F 1 3
0026060 Q C O M P I L E R M A C R O P
0026100 R O P S ) \0 217 \n 002 \0 004 C g \0 \0
0026120 360 h 360 C g \0 \0 360 021 B 005 @ 003 262 1 J
0026140 g \0 \0 360 262 025 @ d ` \0 \0 \n \0 \0 232 `
0026160 \0 \0 \n \0 \0 b \0 260 345 @ 001 W 026 \n \0 \0
0026200 273 @ d K \n \0 \0 b \0 360 242 J 263 317 A 221
0026220 @ 020 i \t \0 \0 021 1 \t g \0 \0 N h 032 032
0026240 h 032 W 024 032 c 024 _ 016 277 o \0 \0 \0 g \0
0026260 \0 \n \0 \0 221 h 200 i 225 g \0 \0 _ 022 277 O
0026300 016 002 c 024 277 g \0 \0 O 016 001 001 002 \n \0 \0
0026320 277 O 022 264 006 \b \0 \0 h 020 \0 ( 2 1 3 Q
0026340 E R R O R ! 2 0 3 Q A P P
0026360 L Y 1 4 7 Q E X P A N D M A
0026400 C R O A 0 0 0 1 1 1 1 Q O U
0026420 T P U T 7 2 Q M A C R O E X
0026440 P A N S I O N 6 3 Q G E T M
0026460 A C R O P R O P 5 0 Q G E T
0026500 H A S H 4 1 Q G E T H A S H
0026520 ) \r ( 1 7 3 Q O U T P U T 1
0026540 5 7 Q E R R O R 1 4 4 Q I
0026560 N T E R N A L 1 1 7 Q O U T
0026600 P U T 4 5 Q C L I S P A R R
0026620 A Y 3 6 Q C L I S P A R R A
0026640 Y 2 6 Q C L I S P 1 2 Q
0026660 E F F E C T 3 E F F E C T )
0026700 \r ( 1 4 1 Q ( E X P A N D M
0026720 A C R O A 0 0 0 1 ) ) \r M A C R
0026740 O E X P A N S I O N D 1 \r ( P
0026760 5 P R E D F P 4 P C F
0027000 P 3 N C F P 2 V C F
0027020 P 1 E F F P 0 E X P
0027040 I 3 C O M P I L E . C O N
0027060 T E X T I 2 C O M P F L G
0027100 I 1 M A C R O D E F I
0027120 0 E X P R F 6 L A M B D
0027140 A S P L S T ) \0 300 006 001 \0 004 A 003
0027160 265 004 @ 020 001 265 022 A d 002 002 227 277 g \0 \0
0027200 A 002 032 020 002 001 020 d g \0 \0 360 245 d g \0
0027220 \0 360 225 277 A @ 002 032 020 d g \0 \0 360 225 A
0027240 002 @ 002 032 020 d g \0 \0 360 227 277 A @ 002 \n
0027260 \0 \0 020 d g \0 \0 360 263 272 d g \0 \0 360 263
0027300 263 g \0 \0 360 226 A 002 @ \n \0 \0 020 A d 001
0027320 003 262 030 001 @ 002 A d 002 002 227 277 g \0 \0 A
0027340 002 032 201 002 001 \v \0 \0 020 001 004 l 004 360 262 204
0027360 A d 001 V 034 263 240 277 B 233 g \0 \0 A 032 @
0027400 002 \n \0 \0 260 035 @ C g \0 \0 360 C g \0 \0
0027420 360 h 360 021 3 005 g \0 \0 A 032 @ 002 \n \0 \0
0027440 022 b 002 g \0 \0 360 222 261 377 J A 020 \0 ( 2
0027460 6 1 Q A P P L Y 2 2 5 Q A
0027500 P P L Y 1 7 1 Q S U B P A I
0027520 R 1 3 5 Q E X P A N D - D E
0027540 F M A C R O 1 0 3 Q E X P A
0027560 N D O P E N L A M B D A ) \r ( 2
0027600 6 7 Q I G N O R E M A C R O
0027620 2 5 2 Q N L A M B D A 2 4 1
0027640 Q E F F E C T 2 3 4 Q E F
0027660 F E C T 2 1 6 Q N L A M B D
0027700 A 1 6 0 Q P R O G N 1 2 5
0027720 Q D E F M A C R O 1 1 7 Q
0027740 A P P L Y * 1 1 0 Q A P P L
0027760 Y 7 2 Q O P E N L A M B D A
0030000 5 6 Q = 4 2 Q N L A M B
0030020 D A 3 4 Q L A M B D A 2 1
0030040 Q P R O G N ) \r ( ) \r E X P A
0030060 N D - D E F M A C R O A 0 0 0 1
0030100 D 1 \r ( F 0 D E F ) \0 \v
0030120 \0 001 \0 \0 g \0 \0 P 002 032 \t \0 \0 020 \0 (
0030140 1 0 Q E V A L ) \r ( 2 P R O
0030160 G N ) \r ( ) \r E X P A N D - D E
0030200 F M A C R O D 1 \r ( L ( 2
0030220 D E F A U L T - V A L U E 1
0030240 F O R M ) P 3 * M A C R O
0030260 - V A L S * P 2 * M A C R
0030300 O - V A R S * P 1 * M A C
0030320 R O - D E F A U L T * P 0
0030340 * M A C R O - F O R M * I 0
0030360 D E F ) \0 036 004 \0 \0 003 A B 021 "
0030400 003 @ 001 A 002 h \v \0 \0 J K g \0 \0 \v \0
0030420 \0 d g \0 \0 360 220 A 020 \0 ( 2 4 Q \
0030440 D O . P R O G V 1 4 Q C O M
0030460 P U T E - M A C R O - A R G S )
0030500 \r ( 3 0 Q I G N O R E M A C R
0030520 O 2 1 Q E X P A N D - D E F
0030540 M A C R O A 0 0 0 1 ) \r ( ) \r C
0030560 O M P U T E - M A C R O - A R G
0030600 S D 1 \r ( L ( 2 C O N T E
0030620 X T 1 M A C R O - C A L L -
0030640 B O D Y 0 A R G U M E N T -
0030660 L I S T ) F 6 * M A C R O
0030700 - V A R S * F 7 * M A C R
0030720 O - V A L S * F 1 0 Q * M
0030740 A C R O - F O R M * F 1 1 Q
0030760 * M A C R O - D E F A U L T *
0031000 ) 001 362 006 004 \0 003 @ 265 004 h 020 003 253 @
0031020 V 032 c \f A W 016 032 c 016 020 @ 001 d g \0
0031040 \0 360 246 d g \0 \0 360 262 036 277 @ 002 001 A h
0031060 \v \0 \0 @ 002 002 A g \0 \0 b 004 277 b 002 277
0031100 b \0 277 277 260 304 d g \0 \0 360 262 ! 277 @ 002
0031120 001 W 020 g \0 \0 \v \0 \0 @ 002 002 A g \0 \0
0031140 b 004 277 b 002 277 b \0 277 277 260 236 d g \0 \0
0031160 360 262 ! @ 002 001 h g \0 \0 \v \0 \0 @ 002 002
0031200 A g \0 \0 b 004 277 b 002 277 b \0 277 277 277 261
0031220 377 y d g \0 \0 360 262 024 277 @ 002 A g \0 \0
0031240 b 004 277 b 002 277 b \0 261 377 a d g \0 \0 360
0031260 262 024 277 @ 002 A g \0 \0 b 004 277 b 002 277 b
0031300 \0 261 377 H g \0 \0 360 242 261 \0 215 @ 002 b \0
0031320 d 221 h 200 i 222 261 377 5 @ 001 d g \0 \0 360
0031340 253 d g \0 \0 360 245 d g \0 \0 360 230 277 h b
0031360 004 277 277 261 377 025 277 @ 001 021 Q 005 H 003 264 \r
0031400 H 002 001 H 002 002 001 275 H 001 270 274 H d 003 225
0031420 001 H 002 001 270 202 \t \0 \0 273 A Y 003 265 , h
0031440 272 M 265 032 H J 265 023 L \t \0 \0 g \0 \0 \v
0031460 \0 \0 023 @ 002 b \0 260 232 001 260 362 J 264 003 i
0031500 g \0 \0 \v \0 \0 277 260 335 001 K 360 223 I 002 260
0031520 321 I 002 002 260 307 B d g \0 \0 360 262 U 277 @
0031540 001 003 262 B @ 001 002 021 ! 002 H 001 272 H 002 001
0031560 271 A 003 263 030 I 230 I h g \0 \0 \v \0 \0 277
0031600 @ 001 001 J \t \0 \0 g \0 \0 210 I 265 016 @ 001
0031620 001 A 001 h \v \0 \0 023 260 U i g \0 \0 \v \0
0031640 \0 277 260 354 A 003 263 > @ 001 W 022 g \0 \0 260
0031660 : g \0 \0 360 262 # @ 260 033 d 001 021 001 \0 H
0031700 d 003 264 \t 001 H 002 001 \t \0 \0 g \0 \0 \v \0
0031720 \0 023 002 003 265 346 260 027 A 003 250 o \0 \0 \0 @
0031740 \n \0 \0 207 @ 001 A 001 h \v \0 \0 277 @ 002 A
0031760 002 b 002 277 b \0 261 376 023 \0 ( 7 4 3 Q
0032000 C O M P U T E - M A C R O - A R
0032020 G S 7 3 2 Q E R R O R 7 1
0032040 0 Q C O M P U T E - M A C R O
0032060 - A R G S 7 0 2 Q E V A L
0032100 6 3 0 Q C O M P U T E - M A C
0032120 R O - A R G S 6 1 6 Q C O M
0032140 P U T E - M A C R O - A R G S
0032160 5 7 6 Q E V A L 5 6 6 Q C
0032200 O M P U T E - M A C R O - A R G
0032220 S 4 7 5 Q C O M P U T E - M
0032240 A C R O - A R G S 4 5 1 Q C
0032260 O M P U T E - M A C R O - A R G
0032300 S 4 4 3 Q E V A L 4 2 0 Q
0032320 M A K E - K E Y W O R D 1 6
0032340 4 Q C O M P U T E - M A C R O
0032360 - A R G S 1 2 0 Q C O M P U
0032400 T E - M A C R O - A R G S 5 2
0032420 Q C O M P U T E - M A C R O -
0032440 A R G S ) \r ( 7 0 5 Q O N E
0032460 6 5 3 Q A U X 6 4 6 Q O N
0032500 E 6 2 5 Q O N E 6 0 1 Q
0032520 O N E 5 6 3 Q O N E 5 2 2
0032540 Q O P T I O N A L 4 7 2 Q
0032560 O N E 4 4 6 Q O N E 3 4 2
0032600 Q & A U X 3 3 4 Q & A L L
0032620 O W - O T H E R - K E Y S 3 2
0032640 6 Q & R E S T 2 7 6 Q & K
0032660 E Y 2 6 0 Q A U X 2 4 6 Q
0032700 & A U X 2 2 7 Q O P T I O
0032720 N A L 2 1 5 Q & O P T I O N
0032740 A L 1 7 3 Q A U X - O N L Y
0032760 1 6 1 Q O N E 1 4 7 Q &
0033000 E N V I R O N M E N T 1 2 7 Q
0033020 A U X - O N L Y 1 1 5 Q O
0033040 N E 1 0 1 Q & W H O L E 6
0033060 1 Q A U X - O N L Y 3 6 Q
0033100 & B O D Y 3 0 Q & R E S T )
0033120 \r ( 7 2 6 Q " m a c r o b
0033140 o d y m i s s i n g v a l u
0033160 e f o r " ) \r M A C R O S . G
0033200 E T D E F D 1 \r ( I 2 O P
0033220 T I O N S I 1 T Y P E I
0033240 0 N A M E F 5 M A C R
0033260 O P R O P S ) \0 X 005 001 \0 003 @ 301
0033300 002 311 \0 021 A 004 H \ 003 265 \b I 022 \t \0 \0
0033320 020 001 U 034 221 h 200 i 263 3 L 001 g \0 \0 360
0033340 262 024 L 002 001 001 g \0 \0 360 230 g \0 \0 @ L
0033360 002 001 002 213 g \0 \0 @ L 001 L 002 001 h 032 032
0033400 032 032 273 J 265 \f K h 032 Z 271 L 002 002 260 271
0033420 K & 272 260 370 \0 ( 2 1 Q M K P R O
0033440 G N ) \r ( 7 0 Q P U T P R O P
0033460 S 5 7 Q D E F M A C R O 5
0033500 2 Q D E F M A C R O 4 0 Q
0033520 M A C R O ) \r ( ) \r G E T M A C
0033540 R O P R O P D 1 \r ( P 2 V
0033560 A L P 1 X I 1 P R O
0033600 P S I 0 F N ) \0 032 003 \0 \0
0033620 002 A 021 ! 002 H 003 265 004 h 020 001 271 @ I \n
0033640 \0 \0 Z 265 367 H 002 X 260 356 \0 ( 2 0 Q
0033660 G E T P R O P ) \r N I L \r ( ) \r
0033700 E X P A N D O P E N L A M B D A
0033720 D 1 \r ( P 1 5 Q A P 7
0033740 T M P P 6 G E N A R G S
0033760 P 5 V A L P 4 S U B
0034000 S T P A I R S P 3 V A L S
0034020 P 2 A R G S P 1 A
0034040 P 0 F O R M A L S I 1
0034060 A C T U A L S I 0 O P E N
0034100 L A M ) 001 005 016 \0 \0 002 @ 002 001 021 221
0034120 \t H 003 265 004 260 025 001 271 A 003 265 025 H 207 d
0034140 001 h 032 L 032 274 002 003 265 367 K 262 E h 260 C
0034160 001 ] \t \0 \0 _ 016 262 ' I O 016 001 _ 020 d
0034200 262 031 d i 360 263 024 3 020 221 h 200 i 230 g \0
0034220 \0 O 020 h 032 032 201 O 020 032 L 032 274 207 I J
0034240 032 272 M K 032 273 H 002 270 A 002 b 002 277 260 243
0034260 i 263 K 001 _ 022 230 O 022 3 \b 221 h 200 i
0034300 257 J 001 J 002 272 K 001 K 002 273 032 L 032 274 260
0034320 233 @ 002 002 b \0 277 L 232 J 265 . L @ \n \0
0034340 \0 b \0 277 J 262 a g \0 \0 J \t \0 \0 Z g
0034360 \0 \0 g \0 \0 J 032 h 032 032 @ 032 032 032 K \t
0034400 \0 \0 A \n \0 \0 032 020 021 0 \f J 260 * d 001
0034420 021 001 \r O 032 \b \0 \0 \n \0 \0 022 _ 024 277 O
0034440 026 221 h 200 i 226 O 024 h 032 _ 030 204 O 026 O
0034460 024 & _ 026 277 002 003 265 327 O 030 022 Z @ \v \0
0034500 \0 b \0 277 260 230 A @ \n \0 \0 \t \0 \0 020 \0
0034520 ( 4 0 2 Q M K P R O G N 3 7
0034540 7 Q \ N C O N C 2 3 6 5 Q
0034560 S U B P A I R 3 1 7 Q P A C
0034600 K * 3 1 4 Q G E N S Y M 2
0034620 7 2 Q \ A P P E N D 2 2 6 6
0034640 Q R E V E R S E 2 4 2 Q R
0034660 E V E R S E 2 2 5 Q S U B L
0034700 I S 5 1 Q C O N S T A N T E
0034720 X P R E S S I O N P ) \r ( 2 5 1
0034740 Q L O C A L V A R S 2 4 6 Q
0034760 D E C L A R E 2 3 6 Q L A
0035000 M B D A 1 0 5 Q Q U O T E )
0035020 \r ( ) \r ( P U T P R O P S L O
0035040 A D T I M E C O N S T A N T M
0035060 A C R O ( ( X ) ( D E F E R
0035100 R E D C O N S T A N T X ) ) )
0035120 \r C S E L E C T D 1 \r ( L (
0035140 0 L ) ) \0 254 016 \0 \0 001 @ 001 021 q
0035160 \a @ 002 271 g \0 \0 021 0 \n I 260 w d ^ d
0035200 002 247 277 i N 001 h 032 260 O 001 001 275 N 001 002
0035220 274 021 0 \r M d 003 263 . h 032 260 * d 001 272
0035240 g \0 \0 g \0 \0 J h 032 032 032 _ 026 277 O 030
0035260 221 h 200 i 226 O 026 h 032 _ 032 204 O 030 O 026
0035300 & _ 030 277 002 003 265 327 O 032 022 [ 002 242 K 001
0035320 204 g \0 \0 K 032 L 032 _ 020 277 O 022 221 h 200
0035340 i 226 O 020 h 032 _ 024 204 O 022 O 020 & _ 022
0035360 277 002 003 265 212 O 024 022 032 _ 016 277 I 241 H 020
0035400 g \0 \0 o \0 \0 \0 o \0 \0 \0 O 016 h 032 032
0035420 032 032 H h 032 032 020 \0 N I L \r ( 2 2 6
0035440 Q L A M B D A 1 4 7 Q O R
0035460 7 1 Q . S E L E C . 6 6 Q
0035500 E Q 1 2 Q C O N D ) \r (
0035520 2 3 6 Q ( D E C L A R E ( L
0035540 O C A L V A R S . S E L E C .
0035560 ) ) 2 3 2 Q ( . S E L E C .
0035600 ) ) \r P R I N T C O M S T R A N
0035620 D 1 \r ( P 2 0 Q R E S E T
0035640 O U T P 1 7 Q T E M P P
0035660 1 6 Q A R G P 1 2 Q W
0035700 I D T H P 1 1 Q P O I N T
0035720 P 1 0 Q T Y P E P 7
0035740 A R G P 4 F O R M A T L I
0035760 S T P 3 V A R S I 4
0036000 F R O M D W I M I 3 F I L
0036020 E F O R M I 2 M A C R O S
0036040 I 1 T A I L I 0 F O
0036060 R M F 2 1 Q P R I N T O U
0036100 T T O K E N S F 2 2 Q V A
0036120 R S F 2 3 Q F A U L T F N
0036140 ) 004 ~ 021 003 \0 005 D 264 + 021 0 002 B 260
0036160 026 d 001 001 270 I 221 h 200 i 224 H h 032 Z 202
0036200 I H & 271 002 003 265 353 J 022 W " W $ \n \0
0036220 \0 \n \0 \0 021 ! 005 @ 002 021 A \n N 003 265 2
0036240 023 D 234 @ 002 @ h d d W & \r 006 \0 \0 277
0036260 C 265 025 @ k A 017 016 b 002 021 ` 020 A 242 261
0036300 \0 332 h 261 \0 327 i 360 242 261 \0 303 i 261 \0 304
0036320 001 _ 016 004 l 004 360 221 h 200 i 222 261 \0 252 O
0036340 016 L 026 222 261 \0 242 O 016 \t \0 \0 l . 360 242
0036360 261 \0 226 O 016 l 002 \n \0 \0 _ 020 l I 360 245
0036400 O 020 l F 360 221 h 200 i 263 } O 016 l 003 g
0036420 \0 \0 O 016 l 003 \v \0 \0 _ 022 d 221 k 331 \v
0036440 \0 \0 _ 024 3 221 h 200 i 263 \ O 016 K 032
0036460 273 O 016 g \0 \0 O 020 l I 360 223 g \0 \0 202
0036500 g \0 \0 O 024 021 0 002 O 022 221 h 200 i 263 -
0036520 O 016 O 022 k 330 g \0 \0 O 016 O 022 k 330 \v
0036540 \0 \0 _ 022 d 221 k 331 \v \0 \0 272 I 265 \t J
0036560 h 032 Y 270 260 324 J & 271 260 317 H 022 032 032 h
0036600 032 032 032 L 032 274 N 002 ^ 261 377 024 @ k C 017
0036620 016 h 032 b 006 277 261 377 035 i 222 261 003 004 A 001
0036640 B 026 _ 036 262 033 i _ 277 O 036 002 001 275 A
0036660 k M 017 016 b 002 001 A 002 b 002 277 261 002 307 A
0036700 001 A 002 b 002 277 _ 034 d g \0 \0 360 236 277 g
0036720 \0 \0 A 001 A 002 b 002 277 j 261 002 245 g \0 \0
0036740 360 234 g \0 \0 A 001 A 002 b 002 277 261 002 222 O
0036760 034 j 360 246 O 034 d i 360 227 277 g \0 \0 C 261
0037000 002 203 g \0 \0 360 232 g \0 \0 o \0 \0 \0 C 261
0037020 002 r O 034 d g \0 \0 360 236 277 i _ 277 A
0037040 001 A 002 b 002 277 261 002 ] g \0 \0 360 235 g \0
0037060 \0 A 001 A 002 b 002 277 C 261 002 H O 034 g \0
0037100 \0 360 263 033 O 034 g \0 \0 360 263 023 O 034 g \0
0037120 \0 360 251 O 034 d g \0 \0 360 262 6 277 g \0 \0
0037140 A 001 A 002 b 002 277 g \0 \0 C 032 O 034 g \0
0037160 \0 360 265 \b O 034 g \0 \0 360 O 034 g \0 \0 360
0037200 265 \b O 034 g \0 \0 360 h C 032 032 032 261 001 363
0037220 g \0 \0 360 262 " A 001 A 002 b 002 277 _ 034 277
0037240 g \0 \0 O 034 d 3 230 277 g \0 \0 O 034 \n
0037260 \0 \0 C 261 001 316 O 034 g \0 \0 360 263 023 O 034
0037300 g \0 \0 360 251 O 034 d g \0 \0 360 262 L 277 g
0037320 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 C 032
0037340 032 g \0 \0 g \0 \0 O 034 d g \0 \0 360 225 277
0037360 g \0 \0 260 026 g \0 \0 360 223 g \0 \0 212 O 034
0037400 g \0 \0 360 264 005 g \0 \0 h 032 032 C 032 032 h
0037420 032 032 032 h 032 261 001 l g \0 \0 360 227 g \0 \0
0037440 k C 261 001 _ O 034 d g \0 \0 360 231 277 g \0
0037460 \0 l 002 C 261 001 M g \0 \0 360 230 g \0 \0 l
0037500 003 C 261 001 ? O 034 d g \0 \0 360 236 277 g \0
0037520 \0 A 001 A 002 b 002 277 C 261 001 ( g \0 \0 360
0037540 262 026 g \0 \0 A 001 A 002 b 002 277 g \0 \0 C
0037560 032 h 032 261 001 016 O 034 d g \0 \0 360 262 025 277
0037600 g \0 \0 A 001 A 002 b 002 001 A 002 b 002 277 261
0037620 \0 360 g \0 \0 360 263 033 O 034 g \0 \0 360 263 023
0037640 O 034 g \0 \0 360 251 O 034 d g \0 \0 360 262 :
0037660 277 g \0 \0 A 001 A 002 b 002 001 A 002 b 002 277
0037700 j O 034 g \0 \0 360 247 O 034 g \0 \0 360 264 003
0037720 i O 034 g \0 \0 360 247 O 034 g \0 \0 360 264 003
0037740 i C 032 032 032 261 \0 233 g \0 \0 360 251 O 034 d
0037760 g \0 \0 360 262 $ 277 g \0 \0 A 001 A 002 b 002
0040000 001 A 002 b 002 001 A 002 b 002 277 O 034 g \0 \0
0040020 360 h C 032 032 032 260 j g \0 \0 360 262 ( g \0
0040040 \0 g \0 \0 g \0 \0 l \f \t \0 \0 h 032 032 C
0040060 032 032 g \0 \0 g \0 \0 C 032 o \0 \0 \0 032 032
0040100 h 032 260 ? O 034 L 026 002 _ 036 235 g \0 \0 O
0040120 036 A 001 A 002 b 002 277 260 ' O 034 3 221 h
0040140 200 i 227 g \0 \0 O 034 C 260 030 j O 034 363 230
0040160 g \0 \0 j O 034 331 C 207 g \0 \0 O 034 h C
0040200 032 032 032 _ 032 277 O 030 265 016 O 032 h 032 _ 030
0040220 _ 026 277 261 374 * O 032 & _ 030 277 261 374 ! C
0040240 d 001 262 034 277 O 262 026 g \0 \0 g \0 \0 C
0040260 001 C h 030 277 h 032 032 O 026 032 032 020 C 001 003
0040300 262 036 g \0 \0 o \0 \0 \0 o \0 \0 \0 O 026 032
0040320 032 032 C 001 C g \0 \0 030 277 h 032 032 020 g \0
0040340 \0 O 026 032 020 \0 ( 1 7 0 3 Q C H A
0040360 R A C T E R 1 1 1 1 Q P A C
0040400 K * 4 0 2 Q S U B A T O M
0040420 3 7 1 Q S T R P O S 2 7 1 Q
0040440 S U B A T O M 2 6 0 Q S T
0040460 R P O S 2 2 1 Q N T H C H A
0040500 R C O D E 2 0 3 Q C H C O N
0040520 1 1 0 6 Q D W I M I F Y 0 ?
0040540 5 3 Q \ A P P E N D 2 5 0
0040560 Q \ A P P E N D 2 ) \r ( 2 1 7
0040600 0 Q P R O G N 2 1 5 7 Q $
0040620 $ O U T P U T 2 1 3 4 Q L A
0040640 M B D A 2 1 0 6 Q O U T P U
0040660 T 2 1 0 3 Q R E S E T F O R
0040700 M 2 0 2 3 Q T A B 2 0 1 2
0040720 Q S P A C E S 1 7 7 5 Q P
0040740 R I N 1 1 7 4 6 Q P R I N T
0040760 N U M 1 7 1 7 Q P R O G N
0041000 1 7 1 4 Q P O S I T I O N 1
0041020 6 7 6 Q Q U O T E 1 6 7 3 Q
0041040 P R I N 3 1 6 7 0 Q P R O
0041060 G N 1 6 6 2 Q . P A G E 1
0041100 6 4 7 Q . P A R A 2 1 6 2 1
0041120 Q P R I N T P A R A 1 6 1 2
0041140 Q . P A R A 2 1 6 0 2 Q .
0041160 P A R A 1 5 6 4 Q . C E N T
0041200 E R 2 1 5 5 5 Q . C E N T E
0041220 R 1 5 4 4 Q . C E N T E R 2
0041240 1 5 3 5 Q . F R 2 1 5 1 3
0041260 Q F L U S H R I G H T 1 5 0
0041300 4 Q . C E N T E R 2 1 4 7 4
0041320 Q . C E N T E R 1 4 6 4 Q
0041340 . F R 2 1 4 5 4 Q . F R 1
0041360 4 3 2 Q P R I N T N U M 1 4
0041400 2 3 Q . N 1 4 0 6 Q T E R
0041420 P R I 1 3 7 4 Q F R P T Q
0041440 1 3 6 6 Q . S K I P 1 3 5 0
0041460 Q S P A C E S 1 3 4 2 Q .
0041500 S P 1 3 2 6 Q S P A C E S
0041520 1 3 2 1 Q , , , 1 3 1 0 Q
0041540 S P A C E S 1 3 0 2 Q , ,
0041560 1 2 6 7 Q S P A C E S 1 2 6
0041600 2 Q , 1 2 4 0 Q 016 1 2 3
0041620 2 Q . B A S E 1 2 2 4 Q \b
0041640 1 2 1 7 Q . S U P 1 2 1 2
0041660 Q 024 1 2 0 4 Q . S U B 1
0041700 1 7 6 Q Q U O T E 1 1 7 3 Q
0041720 P R I N 3 1 1 6 5 Q S U P
0041740 E R S C R I P T F O N T 1 1 6
0041760 2 Q C H A N G E F O N T 1 1
0042000 5 7 Q P R O G N 1 1 5 4 Q
0042020 F O N T C H A N G E F L G 1 1
0042040 5 1 Q A N D 1 1 4 2 Q . B
0042060 A S E 1 1 3 2 Q . S U P 1
0042100 1 2 2 Q . S U B 1 1 0 4 Q
0042120 F O N T 1 0 7 2 Q C H A N G
0042140 E F O N T 1 0 5 2 Q . F O N
0042160 T 1 0 3 6 Q . P P F T L 1
0042200 0 2 6 Q . P P V T L 1 0 2 0
0042220 Q . P P F T L 1 0 1 0 Q .
0042240 P P F 1 0 0 1 Q P O S I T I
0042260 O N 7 6 7 Q P R I N T D E F
0042300 7 6 0 Q . P P V T L 7 5 0
0042320 Q . P P F T L 7 4 0 Q . P
0042340 P V 7 3 0 Q . P P F 7 1 0
0042360 Q P R I N 2 7 0 3 Q . P 2
0042400 6 5 7 Q # 6 4 1 Q P R I
0042420 N 1 6 3 4 Q . R E S E T 6
0042440 2 5 Q T E R P R I 5 7 4 Q
0042460 T A B 5 6 7 Q . T A B 5 5
0042500 1 Q T A B 5 4 3 Q . T A B
0042520 0 3 6 0 Q % . 3 3 2 Q F
0042540 L O A T 3 2 6 Q F I X 3 1
0042560 5 Q Q U O T E 2 5 1 Q % .
0042600 ) \r ( 2 1 4 4 Q ( D E C L A
0042620 R E ( L O C A L V A R S $ $
0042640 O U T P U T ) ) 2 1 4 0 Q (
0042660 $ $ O U T P U T ) 1 7 2 5 Q
0042700 ( 0 ) 6 4 5 Q ( C O N S T A
0042720 N T ( C H A R A C T E R ( C
0042740 H A R C O D E C R ) ) ) ) \r (
0042760 A D D T O V A R P R I N T O U
0043000 T M A C R O S ) \r ( R P A Q Q
0043020 P R I N T O U T T O K E N S (
0043040 . R E S E T . T A B # ,
0043060 , , , , , % . P 2 . P P F
0043100 . P P V . P P F T L . P P
0043120 V T L . T A B 0 . F R . F
0043140 R 2 . C E N T E R \r . C E N
0043160 T E R 2 . P A R A . P A R A
0043200 2 . P A G E . F O N T . S
0043220 U P . S U B . B A S E . S
0043240 P . S K I P . N ) ) \r ( P U
0043260 T P R O P S P R I N T O U T
0043300 I N F O N O E V A L ) \r ( P U
0043320 T P R O P S p r i n t o u t
0043340 I N F O N O E V A L ) \r ( P U
0043360 T P R O P S P R I N T O U T
0043400 M A C R O ( D E F M A C R O
0043420 ( & W H O L E X ) ( P R I N
0043440 T C O M S T R A N X ( F U N
0043460 C T I O N C D D R ) P R I N
0043500 T O U T M A C R O S ( \r F U N
0043520 C T I O N C A D R ) ) ) ) \r (
0043540 P U T P R O P S p r i n t o u
0043560 t M A C R O ( D E F M A C R
0043600 O ( & W H O L E X ) ( P R
0043620 I N T C O M S T R A N X ( F
0043640 U N C T I O N C D D R ) P R
0043660 I N T O U T M A C R O S ( \r F
0043700 U N C T I O N C A D R ) ) ) )
0043720 \r ( A D D T O V A R S Y S P R
0043740 O P S A L T O M A C R O M A
0043760 C R O B Y T E M A C R O D M
0044000 A C R O ) \r ( P U T P R O P S
0044020 A L T O M A C R O P R O P T Y
0044040 P E M A C R O S ) \r ( P U T P
0044060 R O P S M A C R O P R O P T
0044100 Y P E M A C R O S ) \r ( P U T
0044120 P R O P S B Y T E M A C R O
0044140 P R O P T Y P E M A C R O S )
0044160 \r ( P U T P R O P S D M A C R
0044200 O P R O P T Y P E M A C R O
0044220 S ) \r ( P U T P R O P S G E T
0044240 T O P V A L S E T F N S E T
0044260 T O P V A L ) \r ( P U T P R O P
0044300 S M A C R O S F I L E T Y P
0044320 E C O M P I L E - F I L E ) \r
0044340 ( P U T P R O P S M A C R O S
0044360 C O P Y R I G H T ( " X e r
0044400 o x C o r p o r a t i o n "
0044420 1 9 8 4 1 9 8 5 1 9 8 6 ) )
0044440 \r N I L \r
0044445