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