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