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