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