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