$ od -c -N 50000 [qv]<IDL>koto>IDLARRAY.DCOM!1
0000000 ( F I L E C R E A T E D " 1 5
0000020 - F e b - 8 7 1 8 : 2 3 : 0 8
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 > K O T O > I D L A R R
0000120 A Y . ; 2 ) \r " 1 2 - N o v -
0000140 8 5 1 4 : 5 9 : 2 3 " r e c
0000160 o m p i l e d c h a n g e s :
0000200 I D L A R R A Y - C O E R C E
0000220 i n " I N T E R L I S P - D
0000240 1 1 - M a y - 8 6 . . . "
0000260 d a t e d \r " 1 1 - M a y - 8
0000300 6 1 5 : 1 9 : 0 8 " ) \r ( F I
0000320 L E C R E A T E D " 1 5 - F e
0000340 b - 8 7 1 8 : 2 2 : 5 8 " {
0000360 Q V } < P E D E R S E N > L I S
0000400 P > K O T O > I D L A R R A Y .
0000420 ; 2 1 0 2 2 1 c h a n g e s
0000440 t o : ( V A R S \r I D L A
0000460 R R A Y C O M S ) ( F N S I
0000500 D L A R R A Y - C O E R C E )
0000520 p r e v i o u s d a t e : "
0000540 2 8 - J u n - 8 6 1 5 : 4 6 :
0000560 1 1 " \r { Q V } < P E D E R S
0000600 E N > L I S P > K O T O > I D L
0000620 A R R A Y . ; 1 ) \r I D L A R R
0000640 A Y - C M L A R R A Y D 1 \r (
0000660 L ( 0 I D L A R R A Y ) )
0000700 \0 020 \0 \0 \0 001 @ d 004 ` \0 \0 360 240 020 006
0000720 \0 \0 311 006 020 \0 N I L \r ( 1 3 Q I
0000740 D L A R R A Y 5 004 003 I D L A
0000760 R R A Y T Y P E # ) \r ( ) \r I D
0001000 L A R R A Y - C O E R C E D 1
0001020 \r ( P 3 L A S T T Y P E P
0001040 2 I P 0 L - A R R A Y
0001060 I 2 R E S U L T I 1
0001100 E L T Y P E I 0 I D L A R
0001120 R A Y ) \0 310 \a \0 \0 003 @ \t \0 \0 \t
0001140 \0 \0 021 001 \0 A 263 9 H \t \0 \0 k 331 k H
0001160 j \n \0 \0 \t \0 \0 021 003 003 J I 363 263 034 K
0001200 d g \0 \0 360 263 025 H J \n \0 \0 \t \0 \0 \n
0001220 \0 \0 273 J k 324 Z 260 344 K 022 b 002 260 . H
0001240 \t \0 \0 k 331 j 021 002 002 J I 363 263 024 H J
0001260 \n \0 \0 A \n \0 \0 241 h 206 J k 324 Z 260 354
0001300 i 022 250 o \0 \0 \0 A \n \0 \0 277 B 265 * @
0001320 \t \0 \0 A \n \0 \0 b 004 277 H \t \0 \0 k 331
0001340 j B \t \0 \0 \t \0 \0 021 003 006 M L 363 262 #
0001360 023 @ B \n \0 \0 020 \t \0 \0 @ \t \0 \0 364 226
0001400 B A \n \0 \0 263 325 o \0 \0 \0 B \n \0 \0 260
0001420 312 H M \n \0 \0 N M \v \0 \0 277 M k 324 ]
0001440 260 314 \0 ( 2 7 7 Q \ A S E T . 1
0001460 2 7 2 Q \ A R E F . 1 2 6
0001500 3 Q E R R O R 2 5 1 Q I D
0001520 L A R R A Y - E L T T Y P E P
0001540 2 4 2 Q I D L A R R A Y - D I
0001560 M S 2 3 6 Q I D L A R R A Y
0001600 - D I M S 2 3 2 Q C O P Y L
0001620 A B E L S 2 1 4 Q E A R R A
0001640 Y - L I N E A R I Z E 2 1 1 Q
0001660 I D L A R R A Y - C M L A R R
0001700 A Y 2 0 2 Q A R R A Y - T O
0001720 T A L - S I Z E 1 7 3 Q M A
0001740 K E - I D L A R R A Y 1 6 7 Q
0001760 I D L A R R A Y - D I M S 1
0002000 5 7 Q E R R O R 1 3 3 Q I
0002020 D L A R R A Y - E L T T Y P E P
0002040 1 2 7 Q \ A R E F . 1 1 0
0002060 7 Q A R R A Y - T O T A L - S
0002100 I Z E 6 6 Q I D L A R R A Y
0002120 - C O M M O N - T Y P E 6 3 Q
0002140 I D L A R R A Y - E L T T Y P
0002160 E 6 0 Q \ A R E F . 1 3 3
0002200 Q I D L A R R A Y - E L T T Y
0002220 P E 3 0 Q \ A R E F . 1 2
0002240 0 Q A R R A Y - T O T A L - S
0002260 I Z E 6 E A R R A Y - L I N
0002300 E A R I Z E 3 I D L A R R A
0002320 Y - C M L A R R A Y ) \r ( 5 0 Q
0002340 A N Y ) \r ( 2 5 7 Q " R E
0002360 S U L T n o t o f c o r r
0002400 e c t e l e m e n t - t y p e
0002420 " 1 5 3 Q " A R R A Y n o
0002440 t c o e r c a b l e t o t
0002460 h i s t y p e " ) \r I D L A R
0002500 R A Y - C R E A T E D 1 \r ( I
0002520 4 O L D I D L A R R A Y I
0002540 3 L E V E L N A M E S I
0002560 2 D I M N A M E S I 1 E
0002600 L T T Y P E I 0 C M L A R
0002620 R A Y ) \0 ' \0 \0 \0 005 @ \t \0 \0 241
0002640 @ 020 D 265 006 ` \0 \0 037 d 006 \0 \0 A 024 \0
0002660 277 d B 024 002 277 d C 024 004 277 d @ 024 006 277
0002700 020 \0 ( 3 C L : A R R A Y P ) \r
0002720 ( 2 1 Q I D L A R R A Y 1 4
0002740 Q 004 003 I D L A R R A Y T Y P E
0002760 # ) \r ( ) \r I D L A R R A Y - D
0003000 I M E N S I O N D 1 \r ( I 1
0003020 D I M I 0 I D L A R R A
0003040 Y ) \0 016 \0 \0 \0 002 @ \t \0 \0 @ A \n
0003060 \0 \0 \n \0 \0 020 \0 ( 1 3 Q E A R R
0003100 A Y - D I M E N S I O N 1 0 Q
0003120 I D L A R R A Y - D I M I N D
0003140 E X 3 I D L A R R A Y - C M
0003160 L A R R A Y ) \r N I L \r ( ) \r I
0003200 D L A R R A Y - D I M N A M E S
0003220 D 1 \r ( L ( 0 I D L A R R
0003240 A Y ) ) \0 020 \0 \0 \0 001 @ 004 ` \0 \0
0003260 360 264 \b @ 006 \0 \0 311 002 020 \0 N I L \r (
0003300 1 3 Q I D L A R R A Y 4 004
0003320 003 I D L A R R A Y T Y P E # ) \r
0003340 ( ) \r I D L A R R A Y - D I M S
0003360 D 1 \r ( I 0 I D L A R R A
0003400 Y ) \0 \t \0 \0 \0 001 @ \t \0 \0 \t \0 \0
0003420 020 \0 ( 6 E A R R A Y - D I M E
0003440 N S I O N S 3 I D L A R R A
0003460 Y - C M L A R R A Y ) \r N I L \r
0003500 ( ) \r I D L A R R A Y - F R O M
0003520 - C M L A R R A Y D 1 \r ( I
0003540 0 C M L A R R A Y ) \0 \r \0 \0
0003560 \0 001 @ d \t \0 \0 \t \0 \0 \n \0 \0 020 \0 (
0003600 1 2 Q I D L A R R A Y - C R E
0003620 A T E 7 I D L A R R A Y - M
0003640 O S T - S P E C I F I C - T Y P
0003660 E 4 E A R R A Y - E L E M E
0003700 N T - T Y P E ) \r N I L \r ( ) \r
0003720 I D L A R R A Y - L E V E L N A
0003740 M E S D 1 \r ( L ( 0 I D L
0003760 A R R A Y ) ) \0 020 \0 \0 \0 001 @ 004
0004000 ` \0 \0 360 264 \b @ 006 \0 \0 311 004 020 \0 N I
0004020 L \r ( 1 3 Q I D L A R R A Y
0004040 4 004 003 I D L A R R A Y T Y P E
0004060 # ) \r ( ) \r I D L A R R A Y - R
0004100 A N K D 1 \r ( I 0 I D L A
0004120 R R A Y ) \0 \t \0 \0 \0 001 @ \t \0 \0
0004140 \t \0 \0 020 \0 ( 6 E A R R A Y - R
0004160 A N K 3 I D L A R R A Y - C
0004200 M L A R R A Y ) \r N I L \r ( ) \r
0004220 I D L A R R A Y - R E F D 1 \r
0004240 ( P 3 I P 1 I D L A R
0004260 R A Y P 0 A R G S ) \0 220
0004300 \a \0 002 \0 e 021 001 \0 k H 361 227 o \0 \0 \0
0004320 \t \0 \0 277 @ 021 001 001 H d k 360 262 024 277 I
0004340 004 ` \0 \0 360 241 I 020 o \0 \0 \0 \t \0 \0 020
0004360 l 002 360 235 I \t \0 \0 I j A \v \0 \0 \n \0
0004400 \0 020 H l 003 360 262 026 I \t \0 \0 I j A \v
0004420 \0 \0 I k B \v \0 \0 \v \0 \0 020 g \0 \0 I
0004440 \t \0 \0 H l 002 021 2 006 K J 363 263 I K
0004460 l 002 331 K a \v \0 \0 276 M 265 \r N h 032 ]
0004500 274 K k 324 [ 260 345 N & 275 260 367 L 022 032 \n
0004520 \0 \0 020 \0 ( 2 1 5 Q A P P L Y
0004540 1 6 3 Q I D L A R R A Y - L E
0004560 V E L I N D E X 1 3 6 Q I D
0004600 L A R R A Y - C M L A R R A Y
0004620 1 2 6 Q \ A R E F . 2 1 2 3
0004640 Q I D L A R R A Y - L E V E L
0004660 I N D E X 1 1 5 Q I D L A R
0004700 R A Y - L E V E L I N D E X 1
0004720 0 7 Q I D L A R R A Y - C M L
0004740 A R R A Y 7 4 Q \ A R E F .
0004760 1 7 1 Q I D L A R R A Y - L
0005000 E V E L I N D E X 6 3 Q I D
0005020 L A R R A Y - C M L A R R A Y
0005040 5 2 Q E R R O R 1 6 Q E R
0005060 R O R ) \r ( 1 3 2 Q A R E F
0005100 3 7 Q 004 003 I D L A R R A Y T Y
0005120 P E # ) \r ( 4 7 Q " R a n k
0005140 m i s m a t c h " 1 3 Q "
0005160 T o o f e w a r g s " ) \r I
0005200 D L A R R A Y - S E T D 1 \r (
0005220 P 4 I P 2 I D L A R R
0005240 A Y P 1 N E W V A L U E
0005260 P 0 A R G S ) \0 233 \b \0 002 \0
0005300 e 021 001 \0 l 002 H 361 227 o \0 \0 \0 \t \0 \0
0005320 277 @ A 021 002 002 H d l 002 360 262 024 277 J 004
0005340 ` \0 \0 360 241 I 020 o \0 \0 \0 \t \0 \0 020 l
0005360 003 360 236 I J \t \0 \0 J j B \v \0 \0 \v \0
0005400 \0 020 H l 004 360 262 027 I J \t \0 \0 J j B
0005420 \v \0 \0 J k C \v \0 \0 \f \0 \0 020 g \0 \0
0005440 I J \t \0 \0 H l 003 021 2 \a L K 363 263 $
0005460 J L l 003 331 L a \v \0 \0 _ 016 277 N 265 016
0005500 O 016 h 032 ^ 275 L k 324 \ 260 342 O 016 & 276
0005520 260 366 M 022 032 032 \n \0 \0 020 \0 ( 2 3 0 Q
0005540 A P P L Y 1 7 1 Q I D L A
0005560 R R A Y - L E V E L I N D E X
0005600 1 4 4 Q I D L A R R A Y - C M
0005620 L A R R A Y 1 3 3 Q \ A S E
0005640 T . 2 1 3 0 Q I D L A R R A
0005660 Y - L E V E L I N D E X 1 2 2
0005700 Q I D L A R R A Y - L E V E L
0005720 I N D E X 1 1 4 Q I D L A R
0005740 R A Y - C M L A R R A Y 1 0 0
0005760 Q \ A S E T . 1 7 5 Q I D
0006000 L A R R A Y - L E V E L I N D E
0006020 X 6 7 Q I D L A R R A Y - C
0006040 M L A R R A Y 5 5 Q E R R O
0006060 R 1 7 Q E R R O R ) \r ( 1 3
0006100 7 Q A S E T 4 2 Q 004 003 I D
0006120 L A R R A Y T Y P E # ) \r ( 5
0006140 2 Q " R a n k m i s m a t c
0006160 h " 1 4 Q " T o o f e w
0006200 a r g s " ) \r I D L A R R A Y -
0006220 T O T A L S I Z E D 1 \r ( I
0006240 0 I D L A R R A Y ) \0 \t \0 \0
0006260 \0 001 @ \t \0 \0 \t \0 \0 020 \0 ( 6 E A
0006300 R R A Y - T O T A L - S I Z E
0006320 3 I D L A R R A Y - C M L A R
0006340 R A Y ) \r N I L \r ( ) \r I D L M
0006360 A T R I X - F R O M - L I S T
0006400 D 1 \r ( P 1 6 Q I D L A R R
0006420 A Y P 1 5 Q E N T R Y P
0006440 1 0 Q E L T T Y P E P 7
0006460 R O W P 6 L A S T T Y P
0006500 E P 2 R E S T P 1 L
0006520 A B E L S P 0 T I T L E S
0006540 I 0 L S T ) \0 326 022 \0 \0 001
0006560 @ 001 021 A 004 @ 002 001 271 @ 002 002 Z d 001 002
0006600 001 \t \0 \0 021 022 \a M 003 265 037 N 022 021 001 \b
0006620 J \t \0 \0 I \t \0 \0 k 331 h 032 032 O 020 H
0006640 002 002 021 0 \v J 260 S 001 _ 016 277 N d g \0
0006660 \0 360 263 332 277 O 016 002 021 021 \r O 030 003 265 \b
0006700 023 M 002 ] 260 304 001 _ 032 277 N O 032 \t \0 \0
0006720 \n \0 \0 ^ g \0 \0 360 263 350 O 030 002 _ 030 260
0006740 336 d 001 001 _ 022 277 O 024 265 \t O 022 h 032 _
0006760 026 202 O 022 & _ 024 277 002 003 265 347 O 026 022 I
0007000 002 h 032 032 \f \0 \0 021 001 016 J O 034 \t \0 \0
0007020 j 021 003 021 O 036 003 265 005 O 034 020 001 002 j 274
0007040 [ 003 265 021 O 036 002 _ 036 277 O " k 324 _ "
0007060 277 260 343 001 O O " L \f \0 \0 277 L k 324
0007100 274 K 002 260 335 \0 ( 3 1 3 Q \ A S E
0007120 T . 2 2 3 7 Q I D L A R R A
0007140 Y - C M L A R R A Y 2 2 6 Q
0007160 M A K E - I D L A R R A Y 1 4
0007200 2 Q I D L A R R A Y - C O M M
0007220 O N - T Y P E 1 3 7 Q I D L
0007240 A R R A Y - E L T T Y P E 4 7
0007260 Q L E N G T H 4 3 Q L E N
0007300 G T H 2 3 Q I D L A R R A Y
0007320 - E L T T Y P E ) \r ( 1 4 6 Q
0007340 A N Y 1 0 0 Q A N Y ) \r ( )
0007360 \r M A K E - I D L A R R A Y D
0007400 1 \r ( P 4 L E V E L L S T
0007420 P 3 D I M P 1 I D L A
0007440 R R A Y P 0 D E F A U L T
0007460 - V A L U E I 3 L E V E L
0007500 N A M E S I 2 D I M L A B
0007520 E L S I 1 E L T T Y P E
0007540 I 0 D I M S ) \0 ` 005 \0 \0 004
0007560 @ d 003 243 d 221 h 032 b \0 A 265 \a g \0 \0
0007600 b 002 \t \0 \0 021 001 \0 @ 265 005 H 260 025 g \0
0007620 \0 A \t \0 \0 g \0 \0 H \r 005 \0 \0 A \n \0
0007640 \0 021 001 001 B 225 I B \n \0 \0 277 C 265 004 I
0007660 020 j 021 022 004 J 003 265 005 023 260 365 001 \ 226 I
0007700 K L \v \0 \0 277 K k 324 273 J 002 Z 260 351 \0
0007720 ( 1 2 4 Q I D L A R R A Y - S
0007740 E T L E V E L L A B E L S 7 2
0007760 Q I D L A R R A Y - S E T D I
0010000 M L A B E L S 6 0 Q I D L A
0010020 R R A Y - C R E A T E 5 4 Q
0010040 M A K E - A R R A Y 4 4 Q I
0010060 D L A R R A Y - C M L T Y P E
0010100 2 4 Q I D L A R R A Y - D E F
0010120 A U L T V A L U E ) \r ( 4 7 Q
0010140 : I N I T I A L - E L E M E N T
0010160 4 0 Q : E L E M E N T - T Y
0010200 P E 1 7 Q A N Y ) \r ( ) \r T
0010220 E S T - R E S U L T D 1 \r ( I
0010240 2 R E S U L T E L T T Y P E
0010260 I 1 R E S U L T D I M S
0010300 I 0 R E S U L T A R R A Y )
0010320 \0 + \0 \0 \0 003 B 245 g \0 \0 b 004 277 @
0010340 265 \b A B \n \0 \0 020 \t \0 \0 A 364 230 @ \t
0010360 \0 \0 B \n \0 \0 247 o \0 \0 \0 @ \n \0 \0 @
0010400 020 \0 ( 4 7 Q H E L P 3 6 Q
0010420 I D L A R R A Y - S U B T Y P E
0010440 P 3 2 Q I D L A R R A Y - E
0010460 L T T Y P E 2 3 Q I D L A R
0010500 R A Y - D I M S 1 7 Q M A K
0010520 E - I D L A R R A Y ) \r ( 4 A
0010540 N Y ) \r ( 4 3 Q " I n v a l
0010560 i d R E S U L T " ) \r ( P R E
0010600 T T Y C O M P R I N T I D L A
0010620 R R A Y C O M S ) \r ( R P A Q Q
0010640 I D L A R R A Y C O M S ( (
0010660 R E C O R D S I D L A R R A Y
0010700 ) ( F N S I D L A R R A Y -
0010720 C M L A R R A Y I D L A R R A
0010740 Y - C O E R C E I D L A R R A
0010760 Y - C R E A T E \r I D L A R R
0011000 A Y - D I M E N S I O N I D L
0011020 A R R A Y - D I M N A M E S I
0011040 D L A R R A Y - D I M S I D L
0011060 A R R A Y - F R O M - C M L A R
0011100 R A Y I D L A R R A Y - L E V
0011120 E L N A M E S \r I D L A R R A
0011140 Y - R A N K I D L A R R A Y -
0011160 R E F I D L A R R A Y - S E T
0011200 I D L A R R A Y - T O T A L S
0011220 I Z E I D L M A T R I X - F R
0011240 O M - L I S T M A K E - I D L
0011260 A R R A Y \r T E S T - R E S U
0011300 L T ) ( M A C R O S S C A L
0011320 A R P ) ( F I L E S I D L A
0011340 R R A Y L A B E L S I D L A R
0011360 R A Y T Y P E S I D L A R R A
0011400 Y F N S I D L A R R A Y I N S
0011420 P E C T O R \r I D L P L O T F
0011440 N S M E D I A N S M O O T H E
0011460 R P L O T ) ( D E C L A R E
0011500 : D O N T E V A L @ L O A D
0011520 D O E V A L @ C O M P I L E D
0011540 O N T C O P Y C O M P I L E R
0011560 V A R S ( A D D V A R S \r (
0011600 N L A M A ) ( N L A M L ) (
0011620 L A M A I D L A R R A Y - S E
0011640 T I D L A R R A Y - R E F ) )
0011660 ) ) ) \r ( D A T A T Y P E I D
0011700 L A R R A Y ( E L T T Y P E
0011720 D I M N A M E S L E V E L N A
0011740 M E S C M L A R R A Y ) ) \r (
0011760 / D E C L A R E D A T A T Y P E
0012000 ( Q U O T E I D L A R R A Y
0012020 ) ( Q U O T E ( P O I N T E
0012040 R P O I N T E R P O I N T E
0012060 R P O I N T E R ) ) ( Q U O
0012100 T E ( ( I D L A R R A Y 0
0012120 \r P O I N T E R ) ( I D L A R
0012140 R A Y 2 P O I N T E R ) (
0012160 I D L A R R A Y 4 P O I N T
0012200 E R ) ( I D L A R R A Y 6
0012220 P O I N T E R ) ) ) ( Q U O T
0012240 E 8 ) ) \r ( P U T P R O P S
0012260 S C A L A R P M A C R O ( O
0012300 P E N L A M B D A ( D A T U M
0012320 ) ( N O T ( t y p e ? I D
0012340 L A R R A Y D A T U M ) ) ) )
0012360 \r ( F I L E S L O A D I D L A
0012400 R R A Y L A B E L S I D L A R
0012420 R A Y T Y P E S I D L A R R A
0012440 Y F N S I D L A R R A Y I N S
0012460 P E C T O R I D L P L O T F N
0012500 S M E D I A N S M O O T H E R
0012520 P L O T ) \r ( P U T P R O P S
0012540 I D L A R R A Y C O P Y R I
0012560 G H T ( " X e r o x C o r p
0012600 o r a t i o n " 1 9 8 6 1 9
0012620 8 7 ) ) \r N I L \r
0012631