$ od -c -N 50000 [eris]<Lisp>JCAI>lispusers>CMLCOMPILE.DCOM!1 0000000 ( F I L E C R E A T E D " 3 0000020 - A u g - 8 5 1 4 : 2 7 : 1 4 0000040 " ( " c o m p i l e d o n 0000060 " { E R I S } < L I S P C O R 0000100 E > L I S P U S E R S > C M L C 0000120 O M P I L E . ; 1 ) \r " 1 - 0000140 A u g - 8 5 2 1 : 2 4 : 4 1 " 0000160 r e c o m p i l e d c h a n 0000200 g e s : n o t h i n g i n 0000220 " I N T E R L I S P - D 1 - 0000240 A u g - 8 5 . . . " d a t e 0000260 d \r " 1 - A u g - 8 5 2 1 0000300 : 3 7 : 1 7 " ) \r ( F I L E C R 0000320 E A T E D " 3 - A u g - 8 5 0000340 1 4 : 2 7 : 0 2 " { E R I S 0000360 } < L I S P C O R E > L I S P U 0000400 S E R S > C M L C O M P I L E . 0000420 ; 1 1 3 4 2 1 c h a n g e s 0000440 t o : ( V A R S \r C M L C 0000460 O M P I L E C O M S ) ( P R O 0000500 P S ( D E F I N E Q C O M P 0000520 I L E - F I L E - E X P R E S S 0000540 I O N ) ( * C O M P I L E - 0000560 F I L E - E X P R E S S I O N ) 0000600 ) p r e v i o u s d a t e : 0000620 \r " 8 - J u l - 8 5 1 5 : 0000640 3 5 : 3 3 " { E R I S } < L I 0000660 S P C O R E > L I B R A R Y > C 0000700 M L C O M P I L E . ; 2 ) \r C O 0000720 M P I L E - F I L E A 0 0 0 1 0000740 D 1 \r ( N A M E E R R O R S E 0000760 T P 1 0 Q E X P P 7 0001000 D E F E R R E D . E X P R E S S 0001020 I O N S P 6 F I L E . E X 0001040 P R E S S I O N P 4 R O O 0001060 T N A M E P 3 L S T F I L 0001100 P 2 S T R E A M P 1 0001120 S P E C V A R S P 0 L O C 0001140 A L V A R S F 1 1 Q R E S 0001160 E T V A R S L S T F 1 2 Q 0001200 O U T P U T - F I L E F 1 3 0001220 Q F I L E N A M E F 1 4 Q 0001240 P R O C E S S . E N T I R E . 0001260 F I L E F 1 5 Q C O M P I 0001300 L E R - O U T P U T F 1 6 Q 0001320 S A V E - E X P R S F 1 7 0001340 Q C O M P I L E . F I L E . V 0001360 A L U E F 2 0 Q L A P F 0001400 2 1 Q C O U T F I L E F 0001420 2 2 Q H E R A L D S T R I N G 0001440 F 2 3 Q M A K E S Y S D A 0001460 T E F 2 4 Q R E S E T Y ) 0001500 001 271 \t \f 002 \0 g \0 \0 h 032 h h 032 032 0001520 W 022 032 c 022 277 g \0 \0 d \t \0 \0 032 g \0 0001540 \0 ` \0 \0 \n \0 \0 277 W 022 032 c 022 277 g \0 0001560 \0 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277 0001600 W 022 032 c 022 277 g \0 \0 d \t \0 \0 032 g \0 0001620 \0 ` \0 \0 \n \0 \0 277 W 022 032 c 022 277 g \0 0001640 \0 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277 0001660 W 022 032 c 022 277 g \0 \0 d \t \0 \0 032 g \0 0001700 \0 \t \0 \0 277 W 022 032 c 022 277 g \0 \0 d \t 0001720 \0 \0 032 g \0 \0 W 032 \n \0 \0 277 W 022 032 c 0001740 022 277 g \0 \0 d \t \0 \0 032 g \0 \0 W 034 264 0001760 005 g \0 \0 \n \0 \0 277 W 022 032 c 022 277 ` \0 0002000 \0 i 021 B 005 g \0 \0 W 026 g \0 \0 \n \0 \0 0002020 Z h 032 032 h h 032 032 W 022 032 c 022 277 W 0002040 222 W " 273 J \t \0 \0 c 026 277 g \0 \0 W 024 0002060 265 025 g \0 \0 h g \0 \0 ` \0 \0 g \0 \0 W 0002100 026 \r 006 \0 \0 g \0 \0 g \0 \0 o \0 \0 \0 \f 0002120 \0 \0 c 024 J W 026 \t \0 \0 h 032 032 032 032 h 0002140 h 032 032 W 022 032 c 022 277 W 024 262 2 g \0 \0 0002160 \b \0 \0 ` \0 \0 W 026 032 ` \0 \0 o \0 \0 \0 0002200 g \0 \0 W $ g \0 \0 W & h 032 032 032 032 032 0002220 032 032 032 032 W 024 ` \0 \0 \v \0 \0 277 021 \a 0002240 J ` \0 \0 \n \0 \0 ^ 230 N d g \0 \0 360 262 0002260 C 277 W 030 262 $ O 016 \t \0 \0 260 032 d 001 021 0002300 001 \b O 020 001 275 O 020 002 W 024 ` \0 \0 l 003 0002320 M 017 016 023 002 003 265 347 J \t \0 \0 023 g \0 \0 0002340 W 024 \n \0 \0 277 W 024 \t \0 \0 c 036 022 c ( 0002360 i 020 W 024 h d W 030 \r 005 \0 \0 277 260 243 \0 0002400 ( 6 6 4 Q C O M P I L E - F I 0002420 L E - E X P R E S S I O N 6 4 0002440 3 Q C L O S E F 6 3 5 Q P 0002460 R I N T 6 2 4 Q C L O S E F 0002500 5 6 3 Q R E V E R S E 5 3 0002520 7 Q R E A D 5 2 4 Q P R I 0002540 N T 4 5 3 Q D A T E 4 2 2 0002560 Q R O O T F I L E N A M E 4 0002600 1 2 Q O P E N S T R E A M 3 0002620 7 5 Q P A C K F I L E N A M E 0002640 . S T R I N G 3 4 0 Q F U L 0002660 L N A M E 3 1 0 Q O P E N S 0002700 T R E A M 2 5 7 Q S E T T O 0002720 P V A L 2 4 1 Q G E T T O P 0002740 V A L 2 2 3 Q S E T T O P V 0002760 A L 2 1 2 Q G E T T O P V A 0003000 L 1 7 4 Q S E T T O P V A L 0003020 1 6 5 Q G E T T O P V A L 0003040 1 4 7 Q S E T T O P V A L 1 0003060 3 5 Q G E T T O P V A L 1 1 0003100 7 Q S E T T O P V A L 1 0 5 0003120 Q G E T T O P V A L 6 7 Q 0003140 S E T T O P V A L 5 5 Q G E 0003160 T T O P V A L 3 7 Q S E T T 0003200 O P V A L 2 5 Q G E T T O P 0003220 V A L ) \r ( 6 3 0 Q S T O P 0003240 6 0 6 Q F I L E R D T B L 5 0003260 4 6 Q S T O P 5 3 4 Q F I 0003300 L E R D T B L 5 2 1 Q F I L 0003320 E R D T B L 5 0 0 Q d a t e 0003340 d 4 7 3 Q i n 4 6 4 Q C 0003360 O M P V E R S I O N 4 5 6 Q 0003400 C O M P I L E H E A D E R 4 5 0003420 0 Q F I L E C R E A T E D 4 0003440 0 3 Q N E W 4 0 0 Q O U T 0003460 P U T 3 6 7 Q B O D Y 3 6 0003500 4 Q C O M P I L E . E X T 3 0003520 6 1 Q E X T E N S I O N 3 5 0003540 5 Q V E R S I O N 3 4 6 Q 0003560 C O M P I L E . F I L E . R E S 0003600 E T 3 0 5 Q I N P U T 3 0 0003620 0 Q C L O S E F ? 2 7 1 Q 0003640 S Y S L O C A L V A R S 2 5 4 0003660 Q D E F E R 2 4 5 Q S V F 0003700 L G 2 3 5 Q S V F L G 2 1 0003720 6 Q C O U T F I L E 2 0 6 Q 0003740 C O U T F I L E 1 7 1 Q D 0003760 F N F L G 1 6 1 Q D F N F L 0004000 G 1 4 4 Q L A M A 1 4 1 Q 0004020 L A M A 1 3 1 Q L A M A 0004040 1 1 4 Q L A M S 1 1 1 Q L 0004060 A M S 1 0 1 Q L A M S 6 4 0004100 Q N L A M A 6 1 Q N L A M 0004120 A 5 1 Q N L A M A 3 4 Q 0004140 N L A M L 3 1 Q N L A M L 0004160 2 1 Q N L A M L 2 R E S E 0004200 T U N D O ) \r ( 4 7 0 Q " C 0004220 O M P I L E . F I L E d " 4 0 0004240 7 Q ( ( T Y P E B I N A R Y 0004260 ) ) ) \r C O M P I L E - F I L E 0004300 D 1 \r ( L ( 0 \ C O M P I 0004320 L E - F I L E . A R G C N T ) 0004340 P 3 1 Q R E S E T Z P 3 0004360 0 Q R E S E T Y P 2 7 Q 0004400 L I S P X H I S T P 2 6 Q 0004420 C O M P I L E . F I L E . V A L 0004440 U E P 2 5 Q V A L U E P 0004460 2 4 Q C O M P I L E . F I L 0004500 E . A F T E R P 2 3 Q P R 0004520 O C E S S - E N T I R E - F I L 0004540 E P 2 0 Q C O M P I L E R 0004560 - O U T P U T P 1 5 Q S A 0004600 V E - E X P R S P 1 2 Q O 0004620 U T P U T - F I L E P 7 R 0004640 E D E F I N E P 4 L A P 0004660 P 1 F I L E N A M E F 3 0004700 2 Q L I S P X H I S T F 3 0004720 3 Q R E S E T V A R S L S T ) 0004740 001 S 032 002 002 \0 e 021 001 \0 @ 021 361 020 021 0004760 0 023 H l 002 273 272 K d J 363 226 277 h d 263 0005000 026 260 025 a g \0 \0 360 224 K k 330 260 362 K l 0005020 002 324 [ 260 345 a 274 H l 002 276 275 N d M 363 0005040 226 277 h d 263 026 260 025 a g \0 \0 360 224 N k 0005060 330 260 362 N l 002 324 ^ 260 345 a _ 016 277 H l 0005100 002 _ 022 277 _ 020 277 O 022 d O 020 363 226 277 h 0005120 d 263 031 260 030 a g \0 \0 360 225 O 022 k 330 260 0005140 361 O 022 l 002 324 _ 022 260 341 a _ 024 277 H l 0005160 002 _ 030 277 _ 026 277 O 030 d O 026 363 226 277 h 0005200 265 032 i 260 030 a g \0 \0 360 225 O 030 k 330 260 0005220 361 O 030 l 002 324 _ 030 260 341 a _ 032 277 H l 0005240 002 _ 036 277 _ 034 277 O 036 d O 034 363 226 277 h 0005260 265 032 i 260 030 a g \0 \0 360 225 O 036 k 330 260 0005300 361 O 036 l 002 324 _ 036 260 341 a _ 277 H l 0005320 002 _ $ 277 _ " 277 O $ d O " 363 226 277 h 0005340 d 263 031 260 030 a g \0 \0 360 225 O $ k 330 260 0005360 361 O $ l 002 324 _ $ 260 341 a _ & 277 021 0 0005400 026 W 4 021 ! 031 W 6 o \0 \0 \0 g \0 \0 \n 0005420 \0 \0 221 h 202 g \0 \0 _ 2 \n \0 \0 277 O 2 0005440 223 \b \0 \0 277 023 O ( \t \0 \0 206 d 001 \t \0 0005460 \0 277 002 003 265 370 O , 020 \0 ( 5 1 1 Q 0005500 E V A L 5 0 3 Q R E V E R S 0005520 E 4 7 4 Q E R R O R ! 4 6 0005540 5 Q R E S E T R E S T O R E 0005560 4 5 2 Q C O M P I L E - F I L 0005600 E A 0 0 0 1 ) \r ( 4 6 0 Q E R 0005620 R O R 4 4 7 Q I N T E R N A 0005640 L 4 0 1 Q : P R O C E S S - 0005660 E N T I R E - F I L E 3 2 1 Q 0005700 : C O M P I L E R - O U T P U 0005720 T 2 4 1 Q : S A V E - E X P 0005740 R S 1 6 1 Q : O U T P U T - 0005760 F I L E 1 0 4 Q : R E D E F 0006000 I N E 3 7 Q : L A P ) \r ( 0006020 4 4 4 Q ( C O M P I L E - F I 0006040 L E A 0 0 0 1 ) ) \r C O M P I L 0006060 E - F I L E - E X P R E S S I O 0006100 N D 1 \r ( P 6 P R O P P 0006120 5 X P 4 C O M P T I M 0006140 E P 3 C O N D I T I O N S 0006160 P 2 F O R M P 1 O R 0006200 I G . D O N T . C O P Y P 0 0006220 O R I G . C O M P I L E . T I 0006240 M E . T O O I 4 D E F E R 0006260 I 3 D O N T . C O P Y I 0006300 2 C O M P I L E . T I M E . 0006320 T O O I 1 C O M P I L E D 0006340 . F I L E I 0 F O R M F 0006360 7 C O U T F I L E F 1 0 0006400 Q C O M P I L E R M A C R O P 0006420 R O P S ) 001 260 \a 002 \0 005 @ 003 001 d 0006440 g \0 \0 360 242 261 \0 346 277 B C @ 002 021 003 002 0006460 J 003 265 004 h 020 001 003 222 261 \0 301 J 001 d g 0006500 \0 \0 360 226 277 i b 006 261 \0 274 d g \0 \0 360 0006520 245 d g \0 \0 360 226 277 h b 006 261 \0 251 d g 0006540 \0 \0 360 236 277 J 002 Z 001 \t \0 \0 h 360 b 006 0006560 261 \0 224 d g \0 \0 360 262 035 277 o \0 \0 \0 W 0006600 016 \n \0 \0 277 J 002 001 W 016 \n \0 \0 277 W 016 0006620 \t \0 \0 260 q d g \0 \0 360 263 j d g \0 \0 0006640 360 225 277 h b 004 260 ^ d g \0 \0 360 245 d g 0006660 \0 \0 360 225 277 i b 004 260 L d g \0 \0 360 233 0006700 277 J 002 Z 001 \t \0 \0 b 004 260 : d g \0 \0 0006720 360 224 277 J 002 260 1 d g \0 \0 360 263 ( d g 0006740 \0 \0 360 263 ! d g \0 \0 360 263 032 277 J 001 o 0006760 \0 \0 \0 032 W 016 \n \0 \0 211 J 001 A B C D 0007000 \r 005 \0 \0 277 J 002 Z 261 377 ) d g \0 \0 360 0007020 262 J 277 @ 002 001 021 021 004 g \0 \0 K 034 265 \n 0007040 B 264 \a g \0 \0 K 034 274 g \0 \0 K 034 262 032 0007060 @ 002 216 d 001 021 001 005 M A L C D \r 005 \0 0007100 \0 023 002 003 265 357 h 020 L 264 l @ 002 205 d 001 0007120 \t \0 \0 277 002 003 265 370 h 020 g \0 \0 360 262 031 0007140 @ 216 d 001 021 001 005 M A B C D \r 005 \0 \0 0007160 023 002 003 265 357 h 020 B 224 @ \t \0 \0 277 C 265 0007200 6 @ 001 g \0 \0 033 265 \b @ 001 g \0 \0 033 021 0007220 001 006 N 265 # @ 001 W 020 \n \0 \0 ^ 262 " @ 0007240 d N 002 001 \n \0 \0 b \0 364 263 025 @ A B C 0007260 D \r 005 \0 \0 020 @ B C D \r 005 \0 \0 020 g 0007300 \0 \0 @ B C D \r 005 \0 \0 020 \0 ( 6 5 5 0007320 Q C O M P I L E . F I L E . A 0007340 P P L Y 6 4 1 Q C O M P I L 0007360 E . F I L E . A P P L Y 6 3 0 0007400 Q C O M P I L E - F I L E - E 0007420 X P R E S S I O N 6 1 2 Q M 0007440 A C R O E X P A N S I O N 5 7 0007460 7 Q G E T L I S 5 4 0 Q E 0007500 V A L 5 2 3 Q C O M P I L E 0007520 - F I L E - E X P R E S S I O N 0007540 4 6 6 Q E V A L 4 4 4 Q 0007560 C O M P I L E - F I L E - E X P 0007600 R E S S I O N 3 4 7 Q C O M 0007620 P I L E - F I L E - E X P R E S 0007640 S I O N 3 3 4 Q P R I N T 0007660 2 5 3 Q E V A L 1 6 6 Q T 0007700 E R P R I 1 6 0 Q P R I N 1 0007720 1 4 7 Q P R I N 1 1 1 7 Q 0007740 E V A L ) \r ( 6 4 5 Q P R I 0007760 N T 5 6 1 Q C O M P I L E . 0010000 F I L E . E X P R E S S I O N 0010020 5 5 1 Q C O M P I L E - F I L 0010040 E - E X P R E S S I O N 5 0 0 0010060 Q P R O G N 4 1 7 Q L O A 0010100 D 4 1 1 Q E V A L 3 7 7 Q 0010120 C O M P I L E 3 6 2 Q E V 0010140 A L . W H E N 3 1 4 Q E V A 0010160 L @ L O A D 3 0 5 Q D O E V 0010200 A L @ L O A D 2 7 6 Q D O N 0010220 T E V A L @ L O A D 2 6 3 Q 0010240 E V A L @ L O A D W H E N 2 4 0010260 1 Q E V A L @ C O M P I L E W 0010300 H E N 2 2 5 Q E V A L @ C O 0010320 M P I L E 2 1 7 Q D O E V A 0010340 L @ C O M P I L E 2 0 3 Q D 0010360 O N T E V A L @ C O M P I L E 0010400 1 7 4 Q N O T F I R S T 1 3 0010420 2 Q F I R S T 1 0 5 Q C O 0010440 P Y W H E N 7 0 Q C O P Y 0010460 6 2 Q D O C O P Y 4 5 Q D 0010500 O N T C O P Y 6 D E C L A R 0010520 E : ) \r ( 3 2 6 Q ( U N R E 0010540 C O G N I Z E D D E C L A R E 0010560 T A G ) 1 4 2 Q " W a r n 0010600 i n g : ( D E C L A R E : - 0010620 - F I R S T - - - - ) n 0010640 o t i m p l e m e n t e d i 0010660 n C O M P I L E . F I L E : 0010700 " ) \r A R G T Y P E . S T A T E 0010720 D 1 \r ( P 0 X F 1 A 0010740 R G T Y P E . V A R S ) \0 + 001 0010760 001 \0 \0 Q 260 $ d 001 021 001 \0 H i \n \0 \0 0011000 277 k i \n \0 \0 277 H 002 001 \t \0 \0 i \n \0 0011020 \0 277 i \t \0 \0 023 002 003 265 335 h 020 \0 ( 4 0011040 2 Q T E R P R I 3 5 Q P R 0011060 I N 1 3 1 Q E V A L 2 2 Q 0011100 S P A C E S 1 4 Q P R I N 0011120 1 ) \r N I L \r ( ) \r C O M P I L 0011140 E . C H E C K . A R G T Y P E 0011160 D 1 \r ( P 2 V A L P 1 0011200 A T Y P E P A I R P 0 B L 0011220 K F L G I 1 A T I 0 0011240 X F 3 C O U T F I L E F 0011260 4 A R G T Y P E . V A R S ) 0011300 \0 344 003 002 \0 002 A 021 020 \0 @ \t \0 \0 022 0011320 360 222 261 \0 326 T 261 \0 313 d 001 021 001 001 @ I 0011340 002 001 - 034 021 001 002 A I 001 360 262 D J 262 4 0011360 o \0 \0 \0 S \n \0 \0 277 @ S \n \0 \0 277 o 0011400 \0 \0 \0 S \n \0 \0 277 I 002 001 S \n \0 \0 277 0011420 o \0 \0 \0 S \n \0 \0 277 I 002 002 001 S \n \0 0011440 \0 277 I 002 001 @ I 002 001 \t \0 \0 032 260 m J 0011460 262 n o \0 \0 \0 S \n \0 \0 277 @ S \n \0 \0 0011500 277 o \0 \0 \0 S \n \0 \0 277 g \0 \0 A T 026 0011520 002 002 001 265 006 o \0 \0 \0 g \0 \0 h 032 032 032 0011540 S \n \0 \0 277 o \0 \0 \0 S \n \0 \0 277 I 002 0011560 002 001 S \n \0 \0 277 o \0 \0 \0 S \n \0 \0 277 0011600 I 002 001 S \n \0 \0 277 S \t \0 \0 277 I 002 001 0011620 @ I 002 001 \t \0 \0 \n \0 \0 \n \0 \0 277 023 023 0011640 002 003 265 003 202 261 377 4 h 020 \0 ( 3 2 5 Q 0011660 / S E T T O P V A L 3 2 2 Q 0011700 R E M O V E 3 1 7 Q G E T 0011720 T O P V A L 3 0 4 Q T E R P 0011740 R I 2 7 7 Q P R I N 1 2 6 0011760 7 Q P R I N 1 2 5 6 Q P R 0012000 I N 1 2 4 5 Q P R I N 1 2 0012020 3 4 Q P R I N 1 2 0 1 Q P 0012040 R I N 1 1 7 0 Q P R I N 1 0012060 1 6 2 Q P R I N 1 1 4 4 Q 0012100 G E T T O P V A L 1 3 1 Q P 0012120 R I N 1 1 2 0 Q P R I N 1 0012140 1 0 7 Q P R I N 1 7 7 Q P 0012160 R I N 1 6 6 Q P R I N 1 6 0012200 0 Q P R I N 1 7 C O M P . 0012220 A R G T Y P E ) \r ( 2 2 4 Q f 0012240 u n c t i o n 2 0 5 Q a ) \r 0012260 ( 2 6 3 Q " b e c a u s e 0012300 i t w a s i n c o r r e c 0012320 t l y o n " 2 4 1 Q " 0012340 w a s a " 2 2 1 Q " L A 0012360 M B D A s p r e a d " 1 7 5 0012400 Q " " 1 5 6 Q " W a r n 0012420 i n g : c o m p i l e r t h 0012440 o u g h t " 1 1 4 Q " b 0012460 u t c o m p i l e r d o e s 0012500 n ' t t h i n k i t s a 0012520 " 7 3 Q " o n " 5 4 Q 0012540 " C o m p i l e r c o n f u 0012560 s e d : " ) \r C O M P I L E . 0012600 F I L E . D E F I N E Q D 1 \r 0012620 ( P 0 D E F I 2 R D T 0012640 B L I 1 L C F I L I 0 0012660 F O R M ) \0 ) 001 \0 \0 003 @ 260 ! 0012700 d 001 021 001 \0 H 001 H 002 001 \t \0 \0 \n \0 \0 0012720 277 H 001 H 001 H 002 001 \n \0 \0 \n \0 \0 023 002 0012740 003 265 337 h 020 \0 ( 4 0 Q B Y T E C 0012760 O M P I L E 2 3 5 Q C O M P 0013000 I L E 1 A 2 2 Q C O M P I L 0013020 E . C H E C K . A R G T Y P E 0013040 1 7 Q A R G T Y P E ) \r N I L 0013060 \r ( ) \r C O M P I L E . F I L E 0013100 . A P P L Y D 1 \r ( I 4 D 0013120 E F E R I 3 D O N T . C O 0013140 P Y I 2 C O M P I L E . T 0013160 I M E . T O O I 1 F O R M 0013200 I 0 P R O P F 0 D E 0013220 F E R R E D . E X P R E S S I O 0013240 N S F 1 C O M P I L E D . 0013260 F I L E ) \0 \0 002 \0 005 B 224 A \t 0013300 \0 \0 277 C 265 \v D 227 @ A 032 P 032 c \0 020 0013320 A Q ` \0 \0 l 003 @ 017 016 020 \0 ( 5 E 0013340 V A L ) \r ( 3 0 Q F I L E R D 0013360 T B L ) \r ( ) \r C O M P I L E . 0013400 F I L E . R E S E T D 1 \r ( I 0013420 2 R O O T N A M E I 1 0013440 S O U R C E F I L E I 0 C 0013460 O M P I L E D . F I L E F 0 0013500 R E S E T S T A T E ) \0 1 \0 0013520 001 \0 003 @ 265 037 A 265 026 P 263 ' g \0 \0 B 0013540 ` \0 \0 \n \0 \0 \n \0 \0 g \0 \0 020 \t \0 \0 0013560 277 260 350 \t \0 \0 277 P 262 336 @ \t \0 \0 277 260 0013600 327 h 020 \0 ( 5 2 Q D E L F I L E 0013620 4 2 Q C L O S E F ? 3 4 Q 0013640 C L O S E F ? 2 5 Q / S E 0013660 T A T O M V A L 2 2 Q R E M 0013700 O V E ) \r ( 3 0 Q R e m o v e 0013720 s 1 7 Q N O T C O M P I L E 0013740 D F I L E S 1 3 Q N O T C O 0013760 M P I L E D F I L E S ) \r ( ) \r 0014000 N E W D E F C D 1 \r ( I 1 0014020 D F I 0 N M F 0 C O 0014040 M P I L E . F I L E . A F T E R 0014060 F 1 S V F L G ) \0 W \0 002 0014100 \0 002 Q g \0 \0 360 262 023 g \0 \0 @ A i h 0014120 032 032 032 032 P 032 c \0 260 > ` \0 \0 226 ` \0 0014140 \0 i 360 262 + @ \t \0 \0 262 036 @ i \n \0 \0 0014160 277 ` \0 \0 263 023 @ o \0 \0 \0 032 i d \v \0 0014200 \0 277 @ \t \0 \0 277 @ A i \v \0 \0 207 @ g 0014220 \0 \0 A \v \0 \0 A 020 \0 ( 1 2 3 Q / 0014240 P U T P R O P 1 1 2 Q / P U 0014260 T D 1 0 3 Q S A V E D E F 0014300 7 6 Q P R I N T 5 5 Q V I 0014320 R G I N F N 4 6 Q \ D E F I 0014340 N E D P ) \r ( 1 1 7 Q C O D E 0014360 6 1 Q D F N F L G 3 6 Q 0014400 D F N F L G 3 2 Q D F N F L 0014420 G 1 1 Q N E W D E F C 3 0014440 D E F E R ) \r ( 7 0 Q ( r e 0014460 d e f i n e d ) ) \r ( P R E T T 0014500 Y C O M P R I N T C M L C O M 0014520 P I L E C O M S ) \r ( R P A Q Q 0014540 C M L C O M P I L E C O M S 0014560 ( ( F N S C O M P I L E - F I 0014600 L E C O M P I L E - F I L E - 0014620 E X P R E S S I O N A R G T Y 0014640 P E . S T A T E C O M P I L E 0014660 . C H E C K . A R G T Y P E \r 0014700 C O M P I L E . F I L E . D E F 0014720 I N E Q C O M P I L E . F I L 0014740 E . A P P L Y C O M P I L E . 0014760 F I L E . R E S E T ) ( V A R 0015000 S A R G T Y P E . V A R S ) 0015020 ( P R O P \r C O M P I L E - F 0015040 I L E - E X P R E S S I O N D 0015060 E F I N E Q * ) ( A D D V A 0015100 R S ( S Y S P R O P S C O M 0015120 P I L E - F I L E - E X P R E S 0015140 S I O N ) ) ( F N S N E W D 0015160 E F C ) ( P ( M O V D \r ( 0015200 Q U O T E N E W D E F C ) ( 0015220 Q U O T E D E F C ) ) ) ( D 0015240 E C L A R E : D O N T E V A L 0015260 @ L O A D D O E V A L @ C O M 0015300 P I L E D O N T C O P Y C O 0015320 M P I L E R V A R S ( A D D V 0015340 A R S \r ( N L A M A ) ( N L 0015360 A M L ) ( L A M A C O M P I 0015400 L E - F I L E ) ) ) ) ) \r ( R P 0015420 A Q Q A R G T Y P E . V A R S 0015440 ( ( 1 N L A M L " N L A M 0015460 B D A s p r e a d " ) ( 2 0015500 L A M A " L A M B D A n o s 0015520 p r e a d " ) ( 0 L A M S 0015540 " L A M B D A s p r e a d " ) 0015560 ( 3 \r N L A M A " N L A M 0015600 B D A n o - s p r e a d " ) ) 0015620 ) \r ( P U T P R O P S D E F I 0015640 N E Q C O M P I L E - F I L E 0015660 - E X P R E S S I O N C O M P 0015700 I L E . F I L E . D E F I N E Q 0015720 ) \r ( P U T P R O P S * C O 0015740 M P I L E - F I L E - E X P R E 0015760 S S I O N N I L L ) \r ( A D D 0016000 T O V A R S Y S P R O P S C 0016020 O M P I L E - F I L E - E X P R 0016040 E S S I O N ) \r ( M O V D ( Q 0016060 U O T E N E W D E F C ) ( Q 0016100 U O T E D E F C ) ) \r ( P U T 0016120 P R O P S C M L C O M P I L E 0016140 C O P Y R I G H T ( " X e r 0016160 o x C o r p o r a t i o n " 0016200 1 9 8 5 ) ) \r N I L \r 0016213