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