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