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