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