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