$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLSPECIALFORMS.DCOM!3
0000000 ( F I L E C R E A T E D " 9
0000020 - O c t - 8 6 1 8 : 0 0 : 5 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 > C M L S P E
0000120 C I A L F O R M S . ; 3 ) \r "
0000140 1 - O c t - 8 6 2 0 : 2 3 :
0000160 1 5 " " C O M P I L E - F I L
0000200 E d " i n " X e r o x L i
0000220 s p 1 - O c t - 8 6 . . .
0000240 " d a t e d " 1 - O c t -
0000260 8 6 2 1 : 2 4 : 4 4 " ) \r ( F
0000300 I L E C R E A T E D " 9 - O
0000320 c t - 8 6 1 8 : 0 0 : 0 8 "
0000340 { E R I S } < L I S P C O R E >
0000360 S O U R C E S > C M L S P E C I
0000400 A L F O R M S . ; 3 2 7 1 7 9
0000420 c h a n g e s t o : ( \r F
0000440 U N C T I O N S C A S E ) p
0000460 r e v i o u s d a t e : "
0000500 4 - S e p - 8 6 1 6 : 5 6 : 1
0000520 6 " { E R I S } < L I S P C O
0000540 R E > S O U R C E S > C M L S P
0000560 E C I A L F O R M S . ; 2 ) \r (
0000600 R P A Q Q C M L S P E C I A L
0000620 F O R M S C O M S ( ( C O M S
0000640 ( * " h a c k s f o r I
0000660 n t e r l i s p N L A M B D A
0000700 s t h a t s h o u l d l o
0000720 o k l i k e f u n c t i o n
0000740 s " ) ( \r P R O P M A C R O
0000760 F R P T Q S E T N S U B 1
0001000 V A R * ) ) ( C O M S ( V
0001020 A R S * C O M M O N - L I S P
0001040 - S P E C I A L - F O R M S * )
0001060 ( F U N C T I O N S L O O P
0001100 ) ( C O M S ( F N S \r I D
0001120 E N T I T Y ) ( P R O P D M
0001140 A C R O I D E N T I T Y ) )
0001160 ( F U N C T I O N S C L : U N
0001200 L E S S C L : W H E N ) ) (
0001220 F U N C T I O N S F L E T L
0001240 A B E L S S E L E C T Q ) (
0001260 \r C O M S ( * * " D O D
0001300 O * a n d s u p p o r t . "
0001320 ) ( F U N C T I O N S C L :
0001340 D O C L : D O * ) ( F N S
0001360 \ D O . T R A N S L A T E ) )
0001400 ( C O M S ( * \r " s o m e w
0001420 h a t b o g u s d e f i n i
0001440 t i o n s " ) ( F U N C T I O
0001460 N S D O L I S T D O T I M E
0001500 S ) ( F N S E X P A N D - L
0001520 O O P L O O P - E X P A N D
0001540 L O O P - E X P A N D - B O D Y
0001560 \r L O O P - E X P A N D - F O
0001600 R ) ( F U N C T I O N S C A
0001620 S E ) ( F N S C A S E - 1 )
0001640 ) ( P R O P F I L E T Y P E
0001660 C M L S P E C I A L F O R M S
0001700 ) ( C O M S ( * h a c k s
0001720 ) ( C O M S \r ( F N S B Q
0001740 U O T I F Y ) ( U S E R M A C
0001760 R O S B Q U O T E U N C O M
0002000 M A ) ( V A R S * B Q U O T
0002020 E - C O M M A * * B Q U O T E
0002040 - C O M M A - A T S I G N * \r
0002060 * B Q U O T E - C O M M A - D O
0002100 T * ) ( G L O B A L V A R S
0002120 * B Q U O T E - C O M M A * *
0002140 B Q U O T E - C O M M A - A T S
0002160 I G N * * B Q U O T E - C O M
0002200 M A - D O T * ) ) ( C O M S
0002220 ( F N S \r C L E A R - C L I S
0002240 P A R R A Y ) ( D E C L A R E
0002260 : D O N T E V A L @ L O A D
0002300 D O C O P Y ( A D D V A R S
0002320 ( M A R K A S C H A N G E D F N
0002340 S C L E A R - C L I S P A R R
0002360 A Y ) ) ) ) ( P ( \r P R O C
0002400 L A I M ( Q U O T E ( S P E
0002420 C I A L F I L E P K G F L G
0002440 D F N F L G * R E A D T A B L
0002460 E * ) ) ) ( P R O C L A I M
0002500 ( C O N S ( Q U O T E S P E
0002520 C I A L ) S Y S S P E C V A R
0002540 S ) \r ) ) ) ( D E C L A R E :
0002560 D O N T E V A L @ L O A D D
0002600 O E V A L @ C O M P I L E D O
0002620 N T C O P Y C O M P I L E R V
0002640 A R S ( A D D V A R S ( N L
0002660 A M A ) ( N L A M L ) ( L A
0002700 M A \r I D E N T I T Y ) ) ) )
0002720 ) \r ( P U T P R O P S F R P T
0002740 Q M A C R O ( = . R P T
0002760 Q ) ) \r ( P U T P R O P S S E
0003000 T N M A C R O ( = . S E
0003020 T Q ) ) \r ( P U T P R O P S S
0003040 U B 1 V A R M A C R O ( ( X
0003060 ) ( S E T Q X ( S U B 1
0003100 X ) ) ) ) \r ( P U T P R O P S
0003120 * M A C R O ( ( X . Y )
0003140 ( Q U O T E X ) ) ) \r ( R P
0003160 A Q Q * C O M M O N - L I S P
0003200 - S P E C I A L - F O R M S *
0003220 ( C L : B L O C K C A T C H
0003240 C O M P I L E R - L E T D E C
0003260 L A R E E V A L - W H E N F
0003300 L E T F U N C T I O N G O
0003320 \r C O N D L A B E L S L E T
0003340 L E T * M A C R O L E T M
0003360 U L T I P L E - V A L U E - C A
0003400 L L M U L T I P L E - V A L U
0003420 E - P R O G 1 P R O G N P R
0003440 O G V Q U O T E R E T U R N
0003460 - F R O M \r C L : S E T Q T
0003500 A G B O D Y T H E T H R O W
0003520 U N W I N D - P R O T E C T )
0003540 ) \r e x p a n d - L O O P D 1
0003560 \r ( L ( 1 $ $ M A C R O - E
0003600 N V I R O N M E N T 0 $ $ M
0003620 A C R O - F O R M ) ) \0 $ 002 \0
0003640 \0 002 @ 002 021 021 001 o \0 \0 \0 \t \0 \0 271 g
0003660 \0 \0 h I H g \0 \0 I h 032 032 h 032 \n \0
0003700 \0 032 032 032 020 \0 ( 3 6 Q \ A P P E
0003720 N D 2 1 3 Q G E N S Y M ) \r
0003740 ( 2 5 Q G O 1 7 Q P R O G
0003760 ) \r ( 1 0 Q " L O O P T A G
0004000 " ) \r ( S E T F - M A C R O - F
0004020 U N C T I O N ( Q U O T E L
0004040 O O P ) ( Q U O T E e x p a
0004060 n d - L O O P ) ) \r I D E N T I
0004100 T Y D 1 \r ( L ( 0 T H I N
0004120 G ) ) \0 003 \0 \0 \0 001 @ 020 \0 N I L
0004140 \r N I L \r ( ) \r ( P U T P R O P
0004160 S I D E N T I T Y D M A C R
0004200 O ( ( X ) X ) ) \r e x p a n
0004220 d - C L : U N L E S S D 1 \r (
0004240 L ( 1 $ $ M A C R O - E N V
0004260 I R O N M E N T 0 $ $ M A C
0004300 R O - F O R M ) ) \0 031 003 \0 \0 002
0004320 @ 002 021 ! 002 H 001 271 H 002 272 g \0 \0 I \t
0004340 \0 \0 J 032 h 032 032 020 \0 ( 2 1 Q N E
0004360 G A T E ) \r ( 1 5 Q C O N D )
0004400 \r ( ) \r ( S E T F - M A C R O -
0004420 F U N C T I O N ( Q U O T E
0004440 C L : U N L E S S ) ( Q U O T
0004460 E e x p a n d - C L : U N L E
0004500 S S ) ) \r e x p a n d - C L : W
0004520 H E N D 1 \r ( L ( 1 $ $ M
0004540 A C R O - E N V I R O N M E N T
0004560 0 $ $ M A C R O - F O R M )
0004600 ) \0 026 003 \0 \0 002 @ 002 021 ! 002 H 001 271
0004620 H 002 272 g \0 \0 I J 032 h 032 032 020 \0 N I
0004640 L \r ( 1 5 Q C O N D ) \r ( ) \r
0004660 ( S E T F - M A C R O - F U N C
0004700 T I O N ( Q U O T E C L : W
0004720 H E N ) ( Q U O T E e x p a
0004740 n d - C L : W H E N ) ) \r e x p
0004760 a n d - F L E T A 0 0 0 1 D 1
0005000 \r ( L ( 1 C O N T E X T 0
0005020 F O R M ) F 2 F U N C T
0005040 I O N S ) \0 X 002 001 \0 002 @ d 003 262
0005060 ; 001 d g \0 \0 360 245 d g \0 \0 360 222 277 i
0005100 201 277 h 262 036 R 021 021 001 H 003 265 004 @ 020 001
0005120 271 @ 002 001 I 002 001 360 222 I 001 020 H 002 X 260
0005140 353 R 021 021 001 H 003 265 004 @ 020 001 271 @ 001 I
0005160 002 001 360 231 g \0 \0 I 001 @ 002 032 032 020 H 002
0005200 X 260 345 \0 N I L \r ( 1 1 2 Q F U
0005220 N C A L L 1 7 Q C L : F U N
0005240 C T I O N 1 1 Q F U N C T I
0005260 O N ) \r ( ) \r e x p a n d - F L
0005300 E T D 1 \r ( L ( 1 $ $ M A
0005320 C R O - E N V I R O N M E N T
0005340 0 $ $ M A C R O - F O R M )
0005360 P 1 1 Q F U N C T I O N S )
0005400 \0 215 \n \0 \0 002 @ 002 021 Q 005 H 001 271 H
0005420 002 272 A 273 021 0 \b I 260 d 001 274 \b \0 \0
0005440 L 032 276 O 016 221 h 200 i 225 N h 032 _ 020 203
0005460 O 016 N & _ 016 277 002 003 265 341 O 020 022 021 001
0005500 \t g \0 \0 021 0 \b O 022 260 , d 001 ] 001 g
0005520 \0 \0 g \0 \0 M 002 002 032 h 032 032 h 032 032 276
0005540 O 016 221 h 200 i 225 N h 032 _ 020 203 O 016 N
0005560 & _ 016 277 002 003 265 325 O 020 022 g \0 \0 J 032
0005600 g \0 \0 K g \0 \0 g \0 \0 \r 005 \0 \0 h 032
0005620 032 032 020 \0 ( 2 0 6 Q W A L K - F
0005640 O R M 3 0 Q G E N S Y M ) \r
0005660 ( 2 0 2 Q e x p a n d - F L E
0005700 T A 0 0 0 1 1 7 7 Q : W A L
0005720 K - F U N C T I O N 1 7 3 Q
0005740 : E N V I R O M E N T 1 6 6 Q
0005760 P R O G N 1 1 5 Q C L : L
0006000 A M B D A 1 1 2 Q F U N C T
0006020 I O N 7 4 Q L E T ) \r ( ) \r
0006040 ( S E T F - M A C R O - F U N C
0006060 T I O N ( Q U O T E F L E T
0006100 ) ( Q U O T E e x p a n d -
0006120 F L E T ) ) \r e x p a n d - L A
0006140 B E L S A 0 0 0 1 D 1 \r ( L
0006160 ( 1 C O N T E X T 0 F O R
0006200 M ) F 2 F U N C T I O N S
0006220 ) \0 X 002 001 \0 002 @ d 003 262 ; 001 d g
0006240 \0 \0 360 245 d g \0 \0 360 222 277 i 201 277 h 262
0006260 036 R 021 021 001 H 003 265 004 @ 020 001 271 @ 002 001
0006300 I 002 001 360 222 I 001 020 H 002 X 260 353 R 021 021
0006320 001 H 003 265 004 @ 020 001 271 @ 001 I 002 001 360 231
0006340 g \0 \0 I 001 @ 002 032 032 020 H 002 X 260 345 \0
0006360 N I L \r ( 1 1 2 Q F U N C A L
0006400 L 1 7 Q C L : F U N C T I O
0006420 N 1 1 Q F U N C T I O N ) \r
0006440 ( ) \r e x p a n d - L A B E L S
0006460 D 1 \r ( L ( 1 $ $ M A C R
0006500 O - E N V I R O N M E N T 0
0006520 $ $ M A C R O - F O R M ) P
0006540 1 1 Q F U N C T I O N S ) \0
0006560 273 \n \0 \0 002 @ 002 021 Q 005 H 001 271 H 002 272
0006600 A 273 021 0 \b I 260 d 001 274 \b \0 \0 L 032
0006620 276 O 016 221 h 200 i 225 N h 032 _ 020 203 O 016
0006640 N & _ 016 277 002 003 265 341 O 020 022 021 001 \t g
0006660 \0 \0 021 0 \b O 022 260 033 d 001 001 276 O 016 221
0006700 h 200 i 225 N h 032 _ 020 203 O 016 N & _ 016
0006720 277 002 003 265 346 O 020 022 g \0 \0 021 0 \b O 022
0006740 260 1 d 001 275 g \0 \0 M 001 g \0 \0 g \0 \0
0006760 M 002 002 032 h 032 032 h 032 032 032 276 O 016 221 h
0007000 200 i 225 N h 032 _ 020 203 O 016 N & _ 016 277
0007020 002 003 265 320 O 020 022 J \n \0 \0 032 g \0 \0 K
0007040 g \0 \0 g \0 \0 \r 005 \0 \0 h 032 032 032 020 \0
0007060 ( 2 6 4 Q W A L K - F O R M
0007100 2 4 5 Q \ A P P E N D 2 3 0
0007120 Q G E N S Y M ) \r ( 2 6 0 Q
0007140 e x p a n d - L A B E L S A 0 0
0007160 0 1 2 5 5 Q : W A L K - F U
0007200 N C T I O N 2 5 1 Q : E N V
0007220 I R O M E N T 1 7 2 Q C L :
0007240 L A M B D A 1 6 7 Q F U N C
0007260 T I O N 1 6 2 Q S E T Q 1
0007300 4 5 Q P R O G N 7 4 Q L E
0007320 T ) \r ( ) \r ( S E T F - M A C R
0007340 O - F U N C T I O N ( Q U O T
0007360 E L A B E L S ) ( Q U O T E
0007400 e x p a n d - L A B E L S ) )
0007420 \r e x p a n d - S E L E C T Q
0007440 D 1 \r ( L ( 1 $ $ M A C R O
0007460 - E N V I R O N M E N T 0 $
0007500 $ M A C R O - F O R M ) ) \0 266
0007520 \v \0 \0 002 @ 002 021 q \a H 001 271 H 002 272 I
0007540 004 l 004 360 221 I 202 \b \0 \0 273 021 0 \n J 260
0007560 q d ^ d 002 247 277 i N 001 h 032 260 0 001 001
0007600 003 221 h 200 i 262 023 g \0 \0 K g \0 \0 N 001
0007620 001 h 032 032 h 032 032 217 g \0 \0 N 001 001 h 275
0007640 \ 003 263 025 M \t \0 \0 032 N 001 002 032 _ 020 277
0007660 O 022 262 034 h 260 032 g \0 \0 K g \0 \0 L 001
0007700 h 032 032 h 032 032 032 M 032 275 L 002 260 324 i 226
0007720 O 020 h 032 _ 024 204 O 022 O 020 & _ 022 277 002
0007740 003 265 220 O 024 022 _ 016 277 K I 360 226 g \0 \0
0007760 O 016 032 020 g \0 \0 K I h 032 032 h 032 g \0
0010000 \0 O 016 032 h 032 032 032 020 \0 ( 1 2 3 Q
0010020 R E V E R S E 2 5 Q G E N S
0010040 Y M ) \r ( 2 5 4 Q C O N D 2
0010060 4 2 Q L E T 2 3 3 Q C O N
0010100 D 1 5 1 Q Q U O T E 1 4 5
0010120 Q E Q 1 0 6 Q O R 7 1 Q
0010140 Q U O T E 6 5 Q E Q ) \r (
0010160 ) \r ( S E T F - M A C R O - F U
0010200 N C T I O N ( Q U O T E S E
0010220 L E C T Q ) ( Q U O T E e x
0010240 p a n d - S E L E C T Q ) ) \r e
0010260 x p a n d - C L : D O D 1 \r (
0010300 L ( 1 $ $ M A C R O - E N V
0010320 I R O N M E N T 0 $ $ M A C
0010340 R O - F O R M ) ) \0 035 006 \0 \0 002
0010360 @ 002 021 Q 005 H 001 271 H 002 Z 001 273 J 002 274
0010400 A 275 I K L h M \r 005 \0 \0 020 \0 ( 3 2
0010420 Q \ D O . T R A N S L A T E )
0010440 \r N I L \r ( ) \r ( S E T F - M A
0010460 C R O - F U N C T I O N ( Q U
0010500 O T E C L : D O ) ( Q U O T
0010520 E e x p a n d - C L : D O ) )
0010540 \r e x p a n d - C L : D O * D
0010560 1 \r ( L ( 1 $ $ M A C R O -
0010600 E N V I R O N M E N T 0 $ $
0010620 M A C R O - F O R M ) ) \0 035 006
0010640 \0 \0 002 @ 002 021 Q 005 H 001 271 H 002 Z 001 273
0010660 J 002 274 A 275 I K L i M \r 005 \0 \0 020 \0
0010700 ( 3 2 Q \ D O . T R A N S L A
0010720 T E ) \r N I L \r ( ) \r ( S E T F
0010740 - M A C R O - F U N C T I O N
0010760 ( Q U O T E C L : D O * ) (
0011000 Q U O T E e x p a n d - C L :
0011020 D O * ) ) \r \ D O . T R A N S L
0011040 A T E D 1 \r ( P 1 1 Q B O
0011060 D Y P 1 0 Q D E C L S P
0011100 7 A 1 3 9 1 P 6 T A G
0011120 P 5 S U B S E Q U E N T -
0011140 V A L U E S P 4 V A R S -
0011160 A N D - I N I T I A L - V A L U
0011200 E S I 4 E N V I 3 S
0011220 E Q U E N T I A L P I 2 B
0011240 O D Y I 1 E N D - T E S T
0011260 I 0 V A R S ) \0 322 \n \0 \0
0011300 005 021 @ 003 @ 260 " d 001 [ d 003 241 h 203 001
0011320 K 002 001 h 032 032 270 I 221 h 200 i 224 H h 032
0011340 Z 202 I H & 271 002 003 265 337 J 022 021 @ 003 @
0011360 260 ' d 001 [ 003 264 020 K 002 002 264 \v K 001 K
0011400 002 002 001 h 032 032 270 I 221 h 200 i 224 H h 032
0011420 Z 202 I H & 271 002 003 265 332 J 022 \b \0 \0 021
0011440 003 006 h M \n \0 \0 ] 262 024 C 223 g \0 \0 202
0011460 g \0 \0 g \0 \0 M \n \0 \0 032 275 B D \n \0
0011500 \0 \t \0 \0 021 021 \b O 016 001 021 001 \t O 016 002
0011520 001 _ 020 277 C 223 g \0 \0 202 g \0 \0 L O 020
0011540 N g \0 \0 A 001 g \0 \0 g \0 \0 A 002 032 h
0011560 032 032 h 032 032 h 032 032 g \0 \0 O 022 032 M g
0011600 \0 \0 N h 032 032 h 032 032 032 032 032 \n \0 \0 032
0011620 032 020 \0 ( 3 1 5 Q \ A P P E N D
0011640 2 2 0 2 Q \ M V L I S T 1
0011660 7 7 Q P A R S E - B O D Y 1
0011700 7 0 Q A P P L Y 1 4 5 Q R
0011720 E M O V E 1 3 5 Q G E N S Y
0011740 M ) \r ( 3 0 0 Q G O 2 7 1 Q
0011760 P R O G N 2 5 2 Q P R O G
0012000 N 2 4 7 Q R E T U R N 2 4
0012020 2 Q C O N D 2 3 3 Q P R O
0012040 G 2 2 7 Q P R O G * 1 6 4
0012060 Q A P P E N D 1 6 1 Q P S
0012100 E T Q 1 5 5 Q C L : S E T Q
0012120 ) \r ( ) \r e x p a n d - D O L I
0012140 S T D 1 \r ( L ( 1 $ $ M A
0012160 C R O - E N V I R O N M E N T
0012200 0 $ $ M A C R O - F O R M ) )
0012220 \0 234 \f \0 \0 002 @ 002 021 261 \v H 001 Y 001
0012240 272 I 002 [ 001 274 K 002 d 220 001 275 H 002 276 A
0012260 _ 016 277 \b \0 \0 _ 020 277 N O 016 \n \0 \0 \t
0012300 \0 \0 _ 022 001 _ 024 277 O 022 002 001 _ 026 277 g
0012320 \0 \0 O 020 L h 032 032 J h 032 032 O 026 g \0
0012340 \0 g \0 \0 J g \0 \0 g \0 \0 O 020 g \0 \0
0012360 g \0 \0 J o \0 \0 \0 032 032 g \0 \0 M h 032
0012400 032 h 032 032 032 h 032 032 032 h 032 032 h 032 032 032
0012420 O 024 g \0 \0 O 020 g \0 \0 O 020 h 032 032 h
0012440 032 032 032 h 032 \n \0 \0 032 032 h 032 \n \0 \0 032
0012460 032 020 \0 ( 2 2 7 Q \ A P P E N D
0012500 2 2 2 0 Q \ A P P E N D 2
0012520 5 2 Q \ M V L I S T 4 7 Q
0012540 P A R S E - B O D Y 3 6 Q G
0012560 E N S Y M ) \r ( 2 0 2 Q C D R
0012600 1 7 5 Q S E T Q 1 4 5 Q
0012620 R E T U R N 1 3 3 Q S E T Q
0012640 1 3 0 Q P R O G N 1 2 3 Q
0012660 O R 1 2 0 Q C A R 1 1 4
0012700 Q S E T Q 1 1 1 Q L O O P
0012720 7 2 Q L E T ) \r ( 1 4 0 Q
0012740 ( N I L ) ) \r ( S E T F - M A
0012760 C R O - F U N C T I O N ( Q U
0013000 O T E D O L I S T ) ( Q U O
0013020 T E e x p a n d - D O L I S T
0013040 ) ) \r e x p a n d - D O T I M E
0013060 S D 1 \r ( L ( 1 $ $ M A C
0013100 R O - E N V I R O N M E N T 0
0013120 $ $ M A C R O - F O R M ) )
0013140 \0 t \n \0 \0 002 @ 002 021 221 \t H 001 Y 001 272
0013160 I 002 [ 001 274 K 002 d 220 001 275 H 002 276 A _
0013200 016 277 \b \0 \0 _ 020 277 N O 016 \n \0 \0 \t \0
0013220 \0 001 _ 022 277 g \0 \0 O 020 L h 032 032 J o
0013240 \0 \0 \0 032 h 032 032 g \0 \0 g \0 \0 g \0 \0
0013260 J O 020 h 032 032 032 g \0 \0 M h 032 032 h 032
0013300 032 h 032 032 O 022 g \0 \0 J h 032 032 h 032 \n
0013320 \0 \0 032 032 h 032 032 032 020 \0 ( 1 5 3 Q
0013340 \ A P P E N D 2 5 2 Q \ M V
0013360 L I S T 4 7 Q P A R S E - B
0013400 O D Y 3 6 Q G E N T E M P )
0013420 \r ( 1 4 2 Q I N C F 1 2 3 Q
0013440 R E T U R N 1 1 1 Q > =
0013460 1 0 6 Q C O N D 1 0 3 Q L
0013500 O O P 6 1 Q L E T ) \r ( 7
0013520 4 Q ( 0 ) ) \r ( S E T F - M A
0013540 C R O - F U N C T I O N ( Q U
0013560 O T E D O T I M E S ) ( Q U
0013600 O T E e x p a n d - D O T I M
0013620 E S ) ) \r E X P A N D - L O O P
0013640 D 1 \r ( P 5 R E M A I N I
0013660 N G P 4 E P I L O G U E
0013700 P 3 B O D Y P 2 P R O
0013720 L O G U E P 1 R E S U L T
0013740 - V A R P 0 T A G I 0
0013760 L O O P - A R G S ) \0 L 006 \0
0014000 \0 001 \b \0 \0 \b \0 \0 021 2 004 @ 021 001 005 M
0014020 265 / 023 g \0 \0 h H g \0 \0 K \t \0 \0 032
0014040 g \0 \0 H h 032 032 g \0 \0 L \t \0 \0 032 g
0014060 \0 \0 I h 032 032 h 032 032 032 032 032 032 032 020 001
0014100 004 l 004 360 262 313 M \t \0 \0 ] 260 305 \0 ( 1
0014120 0 7 Q L O O P - E X P A N D -
0014140 B O D Y 5 3 Q R E V E R S E
0014160 3 4 Q R E V E R S E 5 G
0014200 E N S Y M 2 G E N S Y M ) \r
0014220 ( 5 7 Q R E T U R N 4 7 Q
0014240 P R O G N 4 0 Q G O 3 0 Q
0014260 P R O G N 2 3 Q P R O G )
0014300 \r ( ) \r L O O P - E X P A N D
0014320 D 1 \r ( P 5 R E M A I N I N
0014340 G P 4 E P I L O G U E P
0014360 3 B O D Y P 2 P R O L
0014400 O G U E P 1 R E S U L T -
0014420 V A R P 0 T A G I 0
0014440 L O O P - A R G S ) \0 L 006 \0 \0
0014460 001 \b \0 \0 \b \0 \0 021 2 004 @ 021 001 005 M 265
0014500 / 023 g \0 \0 h H g \0 \0 K \t \0 \0 032 g
0014520 \0 \0 H h 032 032 g \0 \0 L \t \0 \0 032 g \0
0014540 \0 I h 032 032 h 032 032 032 032 032 032 032 020 001 004
0014560 l 004 360 262 313 M \t \0 \0 ] 260 305 \0 ( 1 0
0014600 7 Q L O O P - E X P A N D - B
0014620 O D Y 5 3 Q R E V E R S E
0014640 3 4 Q R E V E R S E 5 G E
0014660 N S Y M 2 G E N S Y M ) \r (
0014700 5 7 Q R E T U R N 4 7 Q P
0014720 R O G N 4 0 Q G O 3 0 Q
0014740 P R O G N 2 3 Q P R O G ) \r
0014760 ( ) \r L O O P - E X P A N D - B
0015000 O D Y D 1 \r ( P 3 O P T I
0015020 O N - A R G ? P 2 O P T I
0015040 O N ? P 1 A R G P 0
0015060 K E Y W O R D I 0 R E M A
0015100 I N I N G F 4 B O D Y F
0015120 5 R E S U L T - V A R F
0015140 6 E P I L O G U E ) \0 340 004 003
0015160 \0 001 @ 001 @ 002 001 @ 002 002 001 @ 002 002 002 001
0015200 021 004 003 H d g \0 \0 360 232 277 I T 032 c \b
0015220 277 @ 002 002 020 o \0 \0 \0 \n \0 \0 242 261 \0 253
0015240 J g \0 \0 360 227 K c \n 277 @ 002 002 200 @ 002
0015260 002 b \0 277 H d g \0 \0 360 262 ' 277 g \0 \0
0015300 I U h 032 032 032 T 032 c \b 277 g \0 \0 U g
0015320 \0 \0 U h 032 032 h 032 032 032 V 032 c \f 277 260
0015340 p o \0 \0 \0 \n \0 \0 262 030 g \0 \0 U H U
0015360 I h 032 032 032 h 032 032 032 T 032 c \b 277 260 Q
0015400 H d g \0 \0 360 262 033 277 g \0 \0 U g \0 \0
0015420 U I h 032 032 032 h 032 032 032 T 032 c \b 277 260
0015440 0 o \0 \0 \0 \n \0 \0 262 ' g \0 \0 U H o
0015460 \0 \0 \0 \n \0 \0 002 001 U I h 032 032 032 h 032
0015500 032 032 T 032 c \b 277 206 o \0 \0 \0 \t \0 \0 @
0015520 020 \0 ( 3 3 4 Q E R R O R 3 0
0015540 3 Q M E M B E R 2 6 5 Q M
0015560 E M B E R 1 6 5 Q M E M B E
0015600 R 5 1 Q M E M B E R ) \r ( 2
0015620 7 2 Q S E T Q 2 3 5 Q P L
0015640 U S 2 3 1 Q S E T Q 2 2 2
0015660 Q S U M 1 7 2 Q S E T Q
0015700 1 3 7 Q R E V E R S E 1 3 3
0015720 Q S E T Q 1 1 5 Q C L : P
0015740 U S H 1 0 6 Q C O L L E C T
0015760 6 1 Q I N T O 2 5 Q D O
0016000 ) \r ( 3 3 1 Q " U n r e c o
0016020 g n i z e d L O O P k e y w
0016040 o r d o r i m p l i c i t
0016060 P R O G N . " 3 0 0 Q ( M A
0016100 X I M I Z E M A X M I N I M
0016120 I Z E M I N ) 2 6 2 Q ( M
0016140 A X I M I Z E M I N I M I Z E
0016160 ) \r 1 6 2 Q ( A P P E N D
0016200 N C O N C ) 4 6 Q ( C O L L
0016220 E C T A P P E N D N C O N C
0016240 S U M M A X I M I Z E M I
0016260 N I M I Z E ) ) \r L O O P - E X
0016300 P A N D - F O R D 1 \r ( P 1
0016320 P A T H P 0 V A R I
0016340 0 R E M A I N I N G ) \0 017 002
0016360 \0 \0 001 @ 002 001 @ 002 002 001 021 002 001 \b \0 \0
0016400 020 \0 ( 1 4 Q C L ) \r N I L \r (
0016420 ) \r e x p a n d - C A S E D 1
0016440 \r ( L ( 1 $ $ M A C R O - E
0016460 N V I R O N M E N T 0 $ $ M
0016500 A C R O - F O R M ) ) \0 322 017 \0
0016520 \0 002 @ 002 021 201 \b H 001 271 H 002 272 I 004 l
0016540 004 360 221 I 202 \b \0 \0 273 021 0 \v J 261 \0 211
0016560 d 001 _ 016 001 O 016 002 d 241 h 032 276 ] i 360
0016600 247 M d g \0 \0 360 223 277 i 260 P 003 257 g \0
0016620 \0 K g \0 \0 M h 032 032 h 032 032 260 = g \0
0016640 \0 021 0 016 M 260 . d 001 274 g \0 \0 K g \0
0016660 \0 L h 032 032 h 032 032 032 _ 030 277 O 032 221 h
0016700 200 i 226 O 030 h 032 _ 034 204 O 032 O 030 & _
0016720 032 277 002 003 265 323 O 034 022 032 N 032 _ 022 277 O
0016740 024 221 h 200 i 226 O 022 h 032 _ 026 204 O 024 O
0016760 022 & _ 024 277 002 003 265 003 202 261 377 v O 026 022
0017000 _ 020 277 K I 360 226 g \0 \0 O 020 032 020 g \0
0017020 \0 K I h 032 032 h 032 g \0 \0 O 020 032 h 032
0017040 032 032 020 \0 ( 2 5 Q G E N S Y M )
0017060 \r ( 3 1 0 Q C O N D 2 7 6 Q
0017100 L E T 2 6 7 Q C O N D 1
0017120 3 6 Q Q U O T E 1 3 2 Q E
0017140 Q L 1 1 6 Q O R 1 0 2 Q
0017160 Q U O T E 7 6 Q E Q L 6 3
0017200 Q O T H E R W I S E ) \r ( ) \r
0017220 ( S E T F - M A C R O - F U N C
0017240 T I O N ( Q U O T E C A S E
0017260 ) ( Q U O T E e x p a n d -
0017300 C A S E ) ) \r C A S E - 1 D 1
0017320 \r ( P 7 T E S T P 6 X
0017340 P 5 K E Y L I S T P 4
0017360 B O D Y P 3 C L A U S E
0017400 - L O C P 2 C O N D - C L
0017420 A U S E S P 1 A L L - K E
0017440 Y S P 0 S A W - O T H E R
0017460 W I S E - O R - T I 7 A L
0017500 L O W - O T H E R W I S E - O R
0017520 - T - P I 6 A L L O W - R
0017540 E P E A T S - P I 5 A L L
0017560 O W - N I L - P I 4 D E F
0017600 A U L T - T - C L A U S E - F O
0017620 R M I 3 T E S T - F N I
0017640 2 K E Y - V A R I A B L E
0017660 I 1 C L A U S E S I 0
0017700 F O R - W H O ) 001 006 \b \0 \0 \b 021
0017720 0 002 A 261 \0 346 d 021 ! 005 K 001 001 275 K 001
0017740 002 274 M 265 025 E 241 h 200 i 250 @ o \0 \0 \0
0017760 \n \0 \0 277 h 261 \0 260 o \0 \0 \0 \n \0 \0 262
0020000 027 G 016 241 h 200 i 250 o \0 \0 \0 @ \n \0 \0
0020020 277 i X 261 \0 222 M 003 221 h 200 i 225 M h 032
0020040 ] 260 t M 260 q d 021 001 006 N 002 241 h 200 i
0020060 262 035 N 002 003 221 h 200 i 262 024 @ o \0 \0 \0
0020100 M o \0 \0 \0 \v \0 \0 \n \0 \0 260 H N 001 004
0020120 l 004 360 221 h 200 i 262 024 @ o \0 \0 \0 M o
0020140 \0 \0 \0 \v \0 \0 \n \0 \0 260 * N d 001 I \n
0020160 \0 \0 262 035 277 F 241 h 200 i 262 024 @ o \0 \0
0020200 \0 N 001 o \0 \0 \0 \v \0 \0 \n \0 \0 277 N 001
0020220 I 032 Y 023 002 003 265 220 C B g \0 \0 M h 032
0020240 032 h 032 032 032 021 001 \a O 016 232 J O 016 L 032
0020260 h 032 \n \0 \0 272 023 023 002 003 265 003 202 261 377 031
0020300 H 253 J i D h 032 032 h 032 \n \0 \0 272 J I
0020320 h 032 032 020 \0 ( 3 7 5 Q \ N C O N
0020340 C 2 3 4 5 Q \ N C O N C 2
0020360 2 7 5 Q E R R O R 2 7 2 Q
0020400 C O N C A T 2 4 2 Q M E M B
0020420 2 3 1 Q E R R O R 2 2 6 Q
0020440 C O N C A T 1 7 3 Q E R R
0020460 O R 1 7 0 Q C O N C A T 1
0020500 0 0 Q E R R O R 5 7 Q M E
0020520 M B 4 3 Q E R R O R ) \r ( 3
0020540 1 5 Q Q U O T E ) \r ( 2 6 7
0020560 Q " ) c a n ' t a p p e a
0020600 r i n m o r e t h a t o
0020620 n e k e y l i s t . " 2 6 1
0020640 Q " T h e s a m e k e y
0020660 ( " 2 2 3 Q " a r e s y
0020700 m b o l s . " 2 1 6 Q " N o
0020720 t a l l t h e e l e m e n
0020740 t s o f t h e k e y l i s
0020760 t " \r 1 6 5 Q " h a s
0021000 a n o n - l i s t c d r . "
0021020 1 6 0 Q " T h e K e y l i
0021040 s t " 7 4 Q " C a n ' t
0021060 h a v e a n o t h e r w i s
0021100 e ( o r T ) k e y l i s t
0021120 . " 5 4 Q ( T O T H E R W
0021140 I S E ) \r 4 0 Q " C a n ' t
0021160 h a v e N I L a s a k
0021200 e y l i s t . " ) \r ( P U T P R
0021220 O P S C M L S P E C I A L F O
0021240 R M S F I L E T Y P E C O M
0021260 P I L E - F I L E ) \r B Q U O T
0021300 I F Y D 1 \r ( P 1 0 Q B Q
0021320 C A R P 7 D E F A U L T
0021340 P 6 X P 1 T A I L P
0021360 0 F N I 0 F O R M )
0021400 001 y \t \0 \0 001 @ d 003 242 261 001 a 001 @ 002
0021420 021 022 002 I 003 264 003 202 261 001 R I 002 262 % I
0021440 002 003 264 003 202 261 001 E I 002 002 262 027 H g \0
0021460 \0 360 245 H g \0 \0 360 221 h 200 i 264 003 202 261
0021500 001 + H g \0 \0 360 247 H d g \0 \0 360 237 277
0021520 I 002 h 360 264 003 202 261 001 023 I 001 h 032 020 g
0021540 \0 \0 360 262 8 021 0 005 I 260 " d 001 021 001 006
0021560 N \t \0 \0 265 \v ` \0 \0 N h 032 032 h 032 022
0021600 [ 003 226 L 265 017 K ] \ 277 002 003 265 337 M 022
0021620 h 032 020 \t \0 \0 \ K 031 260 360 H g \0 \0 360
0021640 250 H d g \0 \0 360 262 @ 277 I 001 \t \0 \0 265
0021660 \f ` \0 \0 I 001 h 032 032 h 032 H g \0 \0 360
0021700 234 I d 002 002 230 277 g \0 \0 I 002 032 202 I 002
0021720 001 Y \t \0 \0 001 265 \v ` \0 \0 I h 032 032 h
0021740 032 \n \0 \0 h 032 020 g \0 \0 360 254 H d g \0
0021760 \0 360 246 g \0 \0 360 264 s H g \0 \0 360 223 `
0022000 \0 \0 202 ` \0 \0 I 001 \t \0 \0 021 002 \b O 020
0022020 265 O 016 I 001 h 032 032 h 032 H g \0 \0 360
0022040 262 ) I 002 001 Y \t \0 \0 265 < ` \0 \0 260 1
0022060 001 _ 020 Z 221 h 200 i 250 J 003 265 004 h 203 002
0022100 260 363 i 262 317 O 020 260 324 I d 002 002 225 277 H
0022120 I 002 032 201 002 001 Y \t \0 \0 001 265 \n O 016 I
0022140 h 032 032 h 032 \n \0 \0 h 032 020 3 020 251 @ 005
0022160 \a 245 @ d i 360 241 243 @ h 032 020 h 020 \0 (
0022200 5 4 1 Q \ A P P E N D 2 5 2
0022220 3 Q B Q U O T I F Y 4 4 2 Q
0022240 B Q U O T I F Y 4 0 4 Q B
0022260 Q U O T I F Y 3 3 5 Q \ A P
0022300 P E N D 2 3 1 6 Q B Q U O T
0022320 I F Y 2 5 0 Q B Q U O T I F
0022340 Y 2 1 7 Q L A S T 1 5 5 Q
0022360 B Q U O T I F Y ) \r ( 4 4 7 Q
0022400 * B Q U O T E - C O M M A *
0022420 4 3 0 Q N C O N C 1 3 7 7 Q
0022440 * B Q U O T E - C O M M A - D
0022460 O T * 3 7 3 Q * B Q U O T E
0022500 - C O M M A - A T S I G N * 3
0022520 6 6 Q A P P E N D 3 5 7 Q
0022540 N C O N C 1 3 5 2 Q N C O N
0022560 C 3 4 3 Q A P P E N D 3 2
0022600 4 Q * B Q U O T E - C O M M A
0022620 - A T S I G N * 3 0 3 Q L I
0022640 S T * 2 7 0 Q L I S T * 2
0022660 5 5 Q * B Q U O T E - C O M M
0022700 A * 2 3 7 Q L I S T * 2 3
0022720 0 Q C O N S 1 6 2 Q * B Q
0022740 U O T E - C O M M A * 1 3 3 Q
0022760 L I S T 1 0 6 Q B Q U O T
0023000 E 7 7 Q Q U O T E 6 0 Q
0023020 N C O N C 1 5 2 Q C O N S )
0023040 \r ( ) \r ( A D D T O V A R U S
0023060 E R M A C R O S ( U N C O M M
0023100 A N I L ( I F ( E Q ( #
0023120 # 1 ) ( Q U O T E B Q U O
0023140 T E ) ) N I L ( ( I F ( E
0023160 Q ( # # ! 0 1 ) ( Q U O
0023200 T E B Q U O T E ) \r ) ( ! 0
0023220 ) ) ) ) ( I 2 ( \ U N C O
0023240 M M A ( # # 2 ) ) ) ) ) \r (
0023260 A D D T O V A R E D I T M A C
0023300 R O S ( B Q U O T E N I L
0023320 U P ( O R R ( ( I 1 ( O
0023340 R ( C O N S ( Q U O T E B
0023360 Q U O T E ) ( O R ( B Q U O
0023400 T I F Y ( # # 1 ) ) ( E R
0023420 R O R ! ) \r ) ) ( E R R O R !
0023440 ) ) ) ) ( ( E ( Q U O T E
0023460 B Q U O T E ? ) ) ) ) 1 ) ) \r
0023500 ( A D D T O V A R E D I T C O
0023520 M S A B Q U O T E U N C O M
0023540 M A ) \r ( R P A Q Q * B Q U O
0023560 T E - C O M M A * \ , ) \r ( R
0023600 P A Q Q * B Q U O T E - C O M
0023620 M A - A T S I G N * \ , @ ) \r
0023640 ( R P A Q Q * B Q U O T E - C
0023660 O M M A - D O T * \ , . ) \r C
0023700 L E A R - C L I S P A R R A Y
0023720 D 1 \r ( I 2 R E A S O N I
0023740 1 T Y P E I 0 N A M E
0023760 F 0 C L I S P A R R A Y )
0024000 \0 022 \0 001 \0 003 B i 360 245 B g \0 \0 360
0024020 221 h 020 P \t \0 \0 020 \0 ( 1 7 Q C L
0024040 R H A S H ) \r ( 7 C L I S P )
0024060 \r ( ) \r ( A D D T O V A R M A
0024100 R K A S C H A N G E D F N S C
0024120 L E A R - C L I S P A R R A Y )
0024140 \r ( P R O C L A I M ( Q U O T
0024160 E ( S P E C I A L F I L E P
0024200 K G F L G D F N F L G * R E
0024220 A D T A B L E * ) ) ) \r ( P R O
0024240 C L A I M ( C O N S ( Q U O
0024260 T E S P E C I A L ) S Y S S
0024300 P E C V A R S ) ) \r ( P U T P R
0024320 O P S C M L S P E C I A L F O
0024340 R M S C O P Y R I G H T ( "
0024360 X e r o x C o r p o r a t i o
0024400 n " 1 9 8 3 1 9 8 4 1 9 8
0024420 5 1 9 8 6 ) ) \r N I L \r
0024435