$ od -c -N 50000 [qv]<IDL>koto>IDLARRAYLABELS.DCOM!1
0000000 ( F I L E C R E A T E D " 2 8
0000020 - J u n - 8 6 1 5 : 2 0 : 2 3
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 > I D L A R R A Y L A B
0000120 E L S . ; 7 ) \r " 1 2 - N o v
0000140 - 8 5 1 4 : 5 9 : 2 3 " r e
0000160 c o m p i l e d c h a n g e s
0000200 : C O P Y L A B E L S i n
0000220 " I N T E R L I S P - D 1 1 -
0000240 M a y - 8 6 . . . " d a t e
0000260 d \r " 1 1 - M a y - 8 6 1 5
0000300 : 1 9 : 0 8 " ) \r ( F I L E C R
0000320 E A T E D " 2 8 - J u n - 8 6
0000340 1 5 : 1 9 : 4 9 " { Q V } <
0000360 P E D E R S E N > L I S P > I D
0000400 L A R R A Y L A B E L S . ; 7
0000420 8 9 4 4 c h a n g e s t o :
0000440 ( V A R S \r I D L A R R A Y
0000460 L A B E L S C O M S ) ( F N S
0000500 C O P Y L A B E L S ) p r e
0000520 v i o u s d a t e : " 2 4 -
0000540 J u n - 8 6 0 0 : 1 3 : 3 8 "
0000560 \r { Q V } < P E D E R S E N >
0000600 L I S P > I D L A R R A Y L A B
0000620 E L S . ; 6 ) \r C O P Y L A B E
0000640 L S D 1 \r ( P 1 D I M I
0000660 1 T O A R R A Y I 0 F
0000700 R O M A R R A Y ) \0 7 002 \0 \0 002
0000720 @ \t \0 \0 230 A @ \t \0 \0 \n \0 \0 277 @ \t
0000740 \0 \0 k 331 j 021 002 001 I H 363 263 031 @ I \n
0000760 \0 \0 232 A I @ I \n \0 \0 \v \0 \0 277 I k
0001000 324 Y 260 347 A 020 \0 ( 5 4 Q I D L A
0001020 R R A Y - S E T L E V E L L A B
0001040 E L S 5 1 Q I D L A R R A Y
0001060 - L E V E L L A B E L S 4 1 Q
0001100 I D L A R R A Y - H A S - L E
0001120 V E L L A B E L S - P 2 1 Q
0001140 I D L A R R A Y - R A N K 1 4
0001160 Q I D L A R R A Y - S E T D I
0001200 M L A B E L S 1 1 Q I D L A
0001220 R R A Y - D I M L A B E L S 3
0001240 I D L A R R A Y - H A S - D I
0001260 M L A B E L S - P ) \r N I L \r (
0001300 ) \r G E T P R O P B Y V A L U E
0001320 D 1 \r ( P 0 V A L U E T A
0001340 I L I 1 V A L U E I 0
0001360 P R O P L S T ) \0 024 001 \0 \0 002
0001400 A @ \n \0 \0 021 001 \0 H 264 \t @ k H \v \0
0001420 \0 001 020 \0 ( 2 0 Q N L E F T 4
0001440 M E M B ) \r N I L \r ( ) \r I D
0001460 L A R R A Y - D I M I N D E X
0001500 D 1 \r ( I 1 D I M - O R - L
0001520 A B E L I 0 I D L A R R A
0001540 Y ) \0 017 \0 \0 \0 002 A d 004 l 004 360 225
0001560 277 @ A \n \0 \0 020 \0 ( 1 4 Q I D L
0001600 A R R A Y - G E T D I M I N D E
0001620 X ) \r N I L \r ( ) \r I D L A R R
0001640 A Y - D I M L A B E L D 1 \r (
0001660 I 1 D I M - O R - L A B E L
0001700 I 0 I D L A R R A Y ) \0
0001720 017 \0 \0 \0 002 A 004 l 004 360 221 A 020 @ A \n
0001740 \0 \0 020 \0 ( 1 4 Q I D L A R R A
0001760 Y - G E T D I M L A B E L ) \r N
0002000 I L \r ( ) \r I D L A R R A Y - D
0002020 I M L A B E L S D 1 \r ( P 1
0002040 I I 2 E N D I 1 S
0002060 T A R T I 0 I D L A R R A
0002100 Y ) \0 6 005 \0 \0 003 A 243 j b 002 277 B
0002120 265 \n @ \t \0 \0 k 331 b 004 A 021 2 004 I H
0002140 363 263 033 @ I \n \0 \0 274 K 265 \r L h 032 [
0002160 272 I k 324 Y 260 352 L & 273 260 367 J 020 \0 (
0002200 3 6 Q I D L A R R A Y - G E T
0002220 D I M L A B E L 1 4 Q I D L
0002240 A R R A Y - R A N K ) \r N I L \r
0002260 ( ) \r I D L A R R A Y - G E T D
0002300 I M I N D E X D 1 \r ( I 1
0002320 D I M L A B E L I 0 I D L
0002340 A R R A Y ) \0 024 \0 \0 \0 002 @ 006 \0
0002360 \0 311 002 A ' 265 \n o \0 \0 \0 A \n \0 \0 020
0002400 \0 ( 2 1 Q E R R O R ) \r ( 3
0002420 I D L A R R A Y ) \r ( 1 5 Q
0002440 " N o s u c h d i m e n s i
0002460 o n " ) \r I D L A R R A Y - G E
0002500 T D I M L A B E L D 1 \r ( I
0002520 1 D I M I N D E X I 0 I
0002540 D L A R R A Y ) \0 \r \0 \0 \0 002 @
0002560 \t \0 \0 A \n \0 \0 265 003 A 020 \0 ( 7 G
0002600 E T P R O P B Y V A L U E 3
0002620 I D L A R R A Y - D I M N A M E
0002640 S ) \r N I L \r ( ) \r I D L A R R
0002660 A Y - G E T L E V E L I N D E X
0002700 D 1 \r ( I 2 L E V E L L A
0002720 B E L I 1 D I M I N D E X
0002740 I 0 I D L A R R A Y ) \0
0002760 024 \0 \0 \0 003 @ \t \0 \0 A ' B ' 265 \n o
0003000 \0 \0 \0 B \n \0 \0 020 \0 ( 2 1 Q E R
0003020 R O R 3 I D L A R R A Y - L
0003040 E V E L N A M E S ) \r N I L \r (
0003060 1 5 Q " N o s u c h l e
0003100 v e l " ) \r I D L A R R A Y - G
0003120 E T L E V E L L A B E L D 1 \r
0003140 ( I 2 L E V E L I N D E X
0003160 I 1 D I M I N D E X I 0
0003200 I D L A R R A Y ) \0 017 \0 \0 \0
0003220 003 @ \t \0 \0 A ' B \n \0 \0 265 003 B 020 \0
0003240 ( 1 1 Q G E T P R O P B Y V A
0003260 L U E 3 I D L A R R A Y - L
0003300 E V E L N A M E S ) \r N I L \r (
0003320 ) \r I D L A R R A Y - H A S - D
0003340 I M L A B E L S - P D 1 \r ( I
0003360 0 I D L A R R A Y ) \0 006 \0
0003400 \0 \0 001 @ \t \0 \0 020 \0 ( 3 I D L A
0003420 R R A Y - D I M N A M E S ) \r N
0003440 I L \r ( ) \r I D L A R R A Y - H
0003460 A S - L E V E L L A B E L S - P
0003500 D 1 \r ( I 1 D I M I N D E
0003520 X I 0 I D L A R R A Y )
0003540 \0 \b \0 \0 \0 002 @ \t \0 \0 A ' 020 \0 ( 3
0003560 I D L A R R A Y - L E V E L N
0003600 A M E S ) \r N I L \r ( ) \r I D L
0003620 A R R A Y - L E V E L I N D E X
0003640 D 1 \r ( I 2 L E V E L - O
0003660 R - L A B E L I 1 D I M -
0003700 O R - L A B E L I 0 I D L
0003720 A R R A Y ) \0 024 \0 \0 \0 003 B d 004
0003740 l 004 360 232 277 @ d A \n \0 \0 B \v \0 \0 020
0003760 \0 ( 2 1 Q I D L A R R A Y - G
0004000 E T L E V E L I N D E X 1 5 Q
0004020 I D L A R R A Y - D I M I N D
0004040 E X ) \r N I L \r ( ) \r I D L A R
0004060 R A Y - L E V E L L A B E L D
0004100 1 \r ( I 2 L E V E L - O R -
0004120 L A B E L I 1 D I M - O R
0004140 - L A B E L I 0 I D L A R
0004160 R A Y ) \0 024 \0 \0 \0 003 B 004 l 004 360
0004200 221 B 020 @ d A \n \0 \0 B \v \0 \0 020 \0 (
0004220 2 1 Q I D L A R R A Y - G E T
0004240 L E V E L L A B E L 1 5 Q I
0004260 D L A R R A Y - D I M I N D E X
0004300 ) \r N I L \r ( ) \r I D L A R R A
0004320 Y - L E V E L L A B E L S D 1
0004340 \r ( P 2 D I M I N D E X P
0004360 1 I I 3 E N D I 2
0004400 S T A R T I 1 D I M I
0004420 0 I D L A R R A Y ) \0 = 006
0004440 \0 \0 004 B 243 j b 004 277 C 265 \v @ A \n \0
0004460 \0 k 331 b 006 B @ A \n \0 \0 021 3 005 I H
0004500 363 263 034 @ J I \v \0 \0 275 L 265 \r M h 032
0004520 \ 273 I k 324 Y 260 351 M & 274 260 367 K 020 \0
0004540 ( 4 5 Q I D L A R R A Y - G E
0004560 T L E V E L L A B E L 2 7 Q
0004600 I D L A R R A Y - D I M I N D E
0004620 X 1 5 Q I D L A R R A Y - D
0004640 I M E N S I O N ) \r N I L \r ( )
0004660 \r I D L A R R A Y - S E T D I M
0004700 L A B E L D 1 \r ( P 1 O L
0004720 D V A L U E P 0 D I M N A
0004740 M E S I 2 N E W L A B E L
0004760 I 1 D I M I N D E X I
0005000 0 I D L A R R A Y ) \0 A 002 \0
0005020 \0 003 B 004 l 004 360 250 o \0 \0 \0 B \n \0 \0
0005040 277 @ d 004 ` \0 \0 360 252 277 o \0 \0 \0 @ \n
0005060 \0 \0 277 @ 006 \0 \0 311 002 021 001 \0 H A \n \0
0005100 \0 021 001 001 @ 006 \0 \0 H A B \v \0 \0 024 002
0005120 I 020 \0 ( 7 3 Q P U T P R O P B
0005140 Y V A L U E 5 6 Q G E T P R
0005160 O P B Y V A L U E 3 7 Q E R
0005200 R O R 1 5 Q E R R O R ) \r (
0005220 6 5 Q I D L A R R A Y 4 4 Q
0005240 I D L A R R A Y 2 4 Q 004 003
0005260 I D L A R R A Y T Y P E # ) \r (
0005300 3 3 Q " C a n n ' t l a b
0005320 e l a s c a l a r " 1 1 Q
0005340 " N o t a L I T A T O M "
0005360 ) \r I D L A R R A Y - S E T D I
0005400 M L A B E L S D 1 \r ( P 2
0005420 L A B E L P 1 D I M I
0005440 2 S T A R T I 1 L A B E
0005460 L L S T I 0 I D L A R R A
0005500 Y ) \0 > 003 \0 \0 003 B 243 j b 004 277 A
0005520 \t \0 \0 @ \t \0 \0 B 331 361 230 o \0 \0 \0 A
0005540 \n \0 \0 277 A B 021 022 002 H 003 265 004 h 020 001
0005560 Z 004 l 004 360 226 @ I J \v \0 \0 277 I k 324
0005600 271 H 002 X 260 346 \0 ( 6 2 Q I D L A
0005620 R R A Y - S E T D I M L A B E L
0005640 3 1 Q E R R O R 1 5 Q I
0005660 D L A R R A Y - R A N K 1 1 Q
0005700 L E N G T H ) \r N I L \r ( 2
0005720 5 Q " L A B E L L S T o f
0005740 t o o l a r g e " ) \r I D L A
0005760 R R A Y - S E T L E V E L L A B
0006000 E L D 1 \r ( P 2 O L D V A
0006020 L U E P 1 L E V E L P L S
0006040 T P 0 L E V E L N A M E S
0006060 I 3 N E W L A B E L I
0006100 2 L E V E L I N D E X I 1
0006120 D I M I N D E X I 0 I D
0006140 L A R R A Y ) \0 Y 003 \0 \0 004 C 004
0006160 l 004 360 250 o \0 \0 \0 C \n \0 \0 277 @ d 004
0006200 ` \0 \0 360 252 277 o \0 \0 \0 @ \n \0 \0 277 @
0006220 006 \0 \0 311 004 021 001 \0 H A ' 021 001 001 I B
0006240 \n \0 \0 021 001 002 H 265 023 @ 006 \0 \0 A I B
0006260 C \v \0 \0 h 032 032 024 004 211 A I B C \v \0
0006300 \0 \v \0 \0 J 020 \0 ( 1 2 5 Q L I S
0006320 T P U T 1 2 2 Q P U T P R O
0006340 P B Y V A L U E 1 0 5 Q P U
0006360 T P R O P B Y V A L U E 6 4 Q
0006400 G E T P R O P B Y V A L U E
0006420 3 7 Q E R R O R 1 5 Q H E
0006440 L P ) \r ( 7 6 Q I D L A R R A
0006460 Y 4 4 Q I D L A R R A Y 2
0006500 4 Q 004 003 I D L A R R A Y T Y P
0006520 E # ) \r ( 3 3 Q " C a n n '
0006540 t l a b e l a s c a l a r
0006560 " 1 1 Q " N o t a L I T
0006600 A T O M " ) \r I D L A R R A Y -
0006620 S E T L E V E L L A B E L S D
0006640 1 \r ( P 2 L A B E L P 1
0006660 L E V E L I 3 S T A R T
0006700 I 2 L A B E L L S T I
0006720 1 D I M I N D E X I 0 I
0006740 D L A R R A Y ) \0 @ 003 \0 \0 004 C
0006760 243 j b 006 277 B \t \0 \0 @ A \n \0 \0 C 331
0007000 361 230 o \0 \0 \0 B \n \0 \0 277 B C 021 022 002
0007020 H 003 265 004 h 020 001 Z 004 l 004 360 227 @ A I
0007040 J \f \0 \0 277 I k 324 271 H 002 X 260 345 \0 (
0007060 6 4 Q I D L A R R A Y - S E T
0007100 L E V E L L A B E L 3 2 Q E
0007120 R R O R 1 6 Q I D L A R R A
0007140 Y - D I M E N S I O N 1 1 Q
0007160 L E N G T H ) \r N I L \r ( 2 6
0007200 Q " L A B E L L S T o f t
0007220 o o l a r g e " ) \r P U T P R
0007240 O P B Y V A L U E D 1 \r ( P
0007260 1 P R O P T A I L P 0 V
0007300 A L U E T A I L I 2 N E W
0007320 P R O P I 1 V A L U E I
0007340 0 P R O P L S T ) \0 > 002 \0
0007360 \0 003 A @ \n \0 \0 021 001 \0 H 262 % @ k H
0007400 \v \0 \0 021 001 001 B 223 I B 030 213 @ k I \v
0007420 \0 \0 265 \t H 002 b \0 023 260 024 H 002 031 260 372
0007440 B 232 @ B A h 032 032 \n \0 \0 b \0 @ 020 \0
0007460 ( 7 0 Q \ N C O N C 2 3 7 Q
0007500 N L E F T 2 0 Q N L E F T
0007520 4 M E M B ) \r N I L \r ( ) \r
0007540 ( P R E T T Y C O M P R I N T
0007560 I D L A R R A Y L A B E L S C O
0007600 M S ) \r ( R P A Q Q I D L A R
0007620 R A Y L A B E L S C O M S ( (
0007640 F N S C O P Y L A B E L S G
0007660 E T P R O P B Y V A L U E I D
0007700 L A R R A Y - D I M I N D E X
0007720 I D L A R R A Y - D I M L A B E
0007740 L \r I D L A R R A Y - D I M L
0007760 A B E L S I D L A R R A Y - G
0010000 E T D I M I N D E X I D L A R
0010020 R A Y - G E T D I M L A B E L
0010040 I D L A R R A Y - G E T L E V E
0010060 L I N D E X \r I D L A R R A Y
0010100 - G E T L E V E L L A B E L I
0010120 D L A R R A Y - H A S - D I M L
0010140 A B E L S - P I D L A R R A Y
0010160 - H A S - L E V E L L A B E L S
0010200 - P I D L A R R A Y - L E V E
0010220 L I N D E X \r I D L A R R A Y
0010240 - L E V E L L A B E L I D L A
0010260 R R A Y - L E V E L L A B E L S
0010300 I D L A R R A Y - S E T D I M
0010320 L A B E L I D L A R R A Y - S
0010340 E T D I M L A B E L S \r I D L
0010360 A R R A Y - S E T L E V E L L A
0010400 B E L I D L A R R A Y - S E T
0010420 L E V E L L A B E L S P U T P
0010440 R O P B Y V A L U E ) ( D E C
0010460 L A R E : D O N T E V A L @ L
0010500 O A D D O E V A L @ C O M P I
0010520 L E \r D O N T C O P Y C O M
0010540 P I L E R V A R S ( A D D V A
0010560 R S ( N L A M A ) ( N L A M
0010600 L ) ( L A M A ) ) ) ) ) \r ( P
0010620 U T P R O P S I D L A R R A Y
0010640 L A B E L S C O P Y R I G H T
0010660 ( " X e r o x C o r p o r a
0010700 t i o n " 1 9 8 6 ) ) \r N I L
0010720 \r
0010721