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