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