$ od -c -N 50000 [qv]<IDL>NEXT>E-ARRAY.dfasl!7
0000000 221 \0 \a X C L C o m p i l e r
0000020 o u t p u t f o r s o u r c
0000040 e f i l e { Q V } < I D L >
0000060 N E X T > E - A R R A Y . ; 9 \r
0000100 S o u r c e f i l e c r e a
0000120 t e d S a t u r d a y , 1 9
0000140 N o v e m b e r 1 9 8 8 ,
0000160 1 2 : 5 9 : 4 2 . \r F A S L f
0000200 i l e c r e a t e d S a t u
0000220 r d a y , 1 9 N o v e m b e
0000240 r 1 9 8 8 , 1 2 : 5 9 : 4 9
0000260 . \r 377 235 230 226 002 031 o \0 \0 \0 g \0 \0 g
0000300 \0 \0 \v \0 \0 021 021 001 o \0 \0 \0 \t \0 \0 020
0000320 \0 002 001 230 225 214 016 F I L E C R E A T
0000340 E D L O C 002 \0 230 217 214 020 * S T A N
0000360 D A R D - I N P U T * 230 214 020 1
0000400 t o p - l e v e l f o r m 002 \0
0000420 \0 \0 230 220 214 \b F U N C T I O N 230 223
0000440 001 200 002 025 230 225 214 020 D E F I N E - F
0000460 I L E - I N F O \v 230 217 214 004 O P E
0000500 N 002 \b 230 220 214 006 O U T P U T 005 230 220
0000520 214 \t D I R E C T I O N 002 021 230 223 004
0000540 230 220 214 \t R E A D T A B L E 230 214 003
0000560 X C L 230 220 214 \a P A C K A G E 230 214
0000600 \a E - A R R A Y 001 230 214 006 { N u l
0000620 l } \0 235 230 226 \0 027 g \0 \0 g \0 \0 o \0
0000640 \0 \0 \v \0 \0 277 o \0 \0 \0 027 \0 \0 020 \0 230
0000660 214 021 2 t o p - l e v e l f o
0000700 r m s \0 \0 \0 \0 231 003 230 223 001 200 001 \v 230
0000720 225 214 \a P U T P R O P 003 023 230 225 214 \v
0000740 E - A R R A Y C O M S 004 230 225 214 \t
0000760 F I L E D A T E S 001 230 225 214 \a E -
0001000 A R R A Y 002 017 230 223 \a 230 223 \b 230 225 214
0001020 \t F U N C T I O N S 230 222 214 \a S C
0001040 A L A R P 230 221 230 214 \a E - A R R A
0001060 Y 230 222 214 \n T O T A L - S I Z E 231
0001100 030 230 222 214 004 R A N K 231 030 230 222 214 \f E
0001120 L E M E N T - T Y P E 231 030 230 222 214
0001140 \t D I M E N S I O N 231 030 230 222 214 \n
0001160 D I M E N S I O N S 231 030 230 222 214 \t
0001200 S C A N - D I M S 231 030 230 223 005 231 026
0001220 230 222 214 \t L I N E A R I Z E 231 030 230
0001240 222 214 \v M A K E - S C A L A R 231 030
0001260 230 222 214 \a A S - L I S T 231 030 230 222 214
0001300 \t A S - V E C T O R 231 030 230 223 006 231
0001320 026 230 222 214 016 N U M B E R - T Y P E
0001340 - O F 231 030 230 222 214 020 N U M B E R -
0001360 S U B T Y P E - P 231 030 230 222 214 \n A
0001400 R I T H - T Y P E 231 030 230 222 214 \r C
0001420 O N F O R M A B L E - P 231 030 230 222
0001440 214 \v C O M M O N - T Y P E 231 030 230
0001460 223 003 231 026 230 222 214 \v T E S T - R E S
0001500 U L T 231 030 230 222 214 \v U S E - F L O
0001520 A T - P 231 030 230 223 002 231 026 230 222 214 \f P
0001540 E R M U T E - L I S T 231 030 230 223 003
0001560 230 225 214 \b C O M M A N D S 230 214 006 K
0001600 - L O A D 230 214 \n M A K E - D E F
0001620 U N 230 223 002 230 222 214 021 F I L E - E N
0001640 V I R O N M E N T S 230 221 230 214 021 X
0001660 E R O X - C O M M O N - L I S P
0001700 230 214 \a E - A R R A Y \a 230 223 001 230 224
0001720 002 230 214 022 1 9 - N o v - 8 8 1 2
0001740 : 5 9 : 4 1 225 214 030 { Q V } < I D
0001760 L > N E X T > E - A R R A Y . ;
0002000 9 \0 234 230 222 214 016 e x p a n d - S C
0002020 A L A R P 231 030 230 226 \0 021 g \0 \0 g \0
0002040 \0 @ 002 001 h 032 032 h 032 032 020 \0 231 ? \0 \0
0002060 \0 002 231 003 230 223 001 230 223 002 230 214 \f $ $ M
0002100 A C R O - F O R M 230 214 023 $ $ M A
0002120 C R O - E N V I R O N M E N T \0
0002140 002 004 230 217 214 006 A R R A Y P 001 230 217 214
0002160 003 N O T \0 \0 235 230 226 \0 \v g \0 \0 g \0
0002200 \0 \n \0 \0 020 \0 230 214 020 d e f m a c r
0002220 o s c a l a r p \0 \0 \0 \0 231 003 230
0002240 223 001 200 001 \a 230 225 214 023 S E T F - M A
0002260 C R O - F U N C T I O N 002 004 231 ?
0002300 001 231 031 \0 \0 234 231 032 230 226 \0 \r @ \t \0 \0
0002320 224 @ \t \0 \0 020 k 020 \0 231 032 \0 \0 \0 001 231
0002340 003 230 223 001 230 223 001 230 214 005 A R R A Y 002
0002360 \a 230 217 214 020 A R R A Y - T O T A L
0002400 - S I Z E 002 231 D \0 \0 \0 234 231 033 230 226
0002420 \0 \r @ \t \0 \0 224 @ \t \0 \0 020 j 020 \0 231
0002440 033 \0 \0 \0 001 231 003 230 223 001 230 223 001 230 214 005
0002460 A R R A Y 002 \a 230 217 214 \n A R R A Y
0002500 - R A N K 002 231 D \0 \0 \0 234 231 034 230 226
0002520 \0 020 @ \t \0 \0 224 @ \t \0 \0 020 @ \t \0 \0
0002540 020 \0 231 034 \0 \0 \0 001 231 003 230 223 001 230 223 001
0002560 230 214 005 A R R A Y 003 \f 231 & \a 230 217 214
0002600 022 A R R A Y - E L E M E N T - T
0002620 Y P E 002 231 D \0 \0 \0 234 231 035 230 226 \0 025
0002640 @ \t \0 \0 225 @ A \n \0 \0 020 o \0 \0 \0 @
0002660 \n \0 \0 020 \0 231 035 \0 \0 \0 002 231 003 230 223 001
0002700 230 223 002 230 214 005 A R R A Y 230 214 \t D I
0002720 M E N S I O N 003 021 230 217 214 005 E R R
0002740 O R \b 230 217 214 017 A R R A Y - D I M
0002760 E N S I O N 002 231 D \0 001 \f 230 214 037 S
0003000 c a l a r ' s h a v e n o
0003020 d i m e n s i o n s : ~ s \0 234
0003040 231 036 230 226 \0 \r @ \t \0 \0 224 @ \t \0 \0 020
0003060 h 020 \0 231 036 \0 \0 \0 001 231 003 230 223 001 230 223
0003100 001 230 214 005 A R R A Y 002 \a 230 217 214 020 A
0003120 R R A Y - D I M E N S I O N S 002
0003140 231 D \0 \0 \0 234 231 037 230 226 \0 & @ \t \0 \0
0003160 \t \0 \0 270 k 271 H 272 J 220 200 217 J I 273 I
0003200 J 001 326 271 K 030 277 J 002 272 260 356 H \t \0 \0
0003220 020 \0 231 037 004 \0 \0 001 231 003 230 223 001 230 223 001
0003240 230 214 005 A R R A Y 003 " 230 217 214 \b N R
0003260 E V E R S E 005 230 217 214 \a R E V E R
0003300 S E 002 231 036 \0 \0 \0 234 231 ! 230 226 \0 & @
0003320 \t \0 \0 270 H j 360 221 @ 020 H k 360 221 @ 020
0003340 @ \t \0 \0 g \0 \0 @ \t \0 \0 g \0 \0 @ \r
0003360 005 \0 \0 020 \0 231 ! 001 \0 \0 001 231 003 230 223 001
0003400 230 223 001 230 214 005 A R R A Y 004 " 230 217 214
0003420 \n M A K E - A R R A Y 032 231 X 023 231
0003440 N 002 231 033 002 035 230 220 214 \f D I S P L A
0003460 C E D - T O 026 230 220 214 \f E L E M E
0003500 N T - T Y P E \0 \0 234 231 " 230 226 \0 017
0003520 @ \t \0 \0 226 @ \t \0 \0 j 266 020 @ 020 \0 231
0003540 " \0 \0 \0 001 231 003 230 223 001 230 223 001 230 214 005
0003560 A R R A Y 002 \a 231 ! 002 231 D \0 \0 \0 234
0003600 231 # 230 226 \0 9 @ \t \0 \0 262 2 @ \t \0 \0
0003620 270 h 271 h 272 H \t \0 \0 273 j 274 L K 375 363
0003640 220 201 260 030 H L 266 275 I 224 J M & 272 204 M
0003660 h 032 Z 271 L k 324 274 260 344 I 020 @ 020 \0 231
0003700 # 006 \0 \0 001 231 003 230 223 001 230 223 001 230 214 005
0003720 A R R A Y 003 021 231 032 \b 231 ! 002 231 D \0
0003740 \0 \0 234 231 $ 230 226 \0 X A 221 260 D @ 001 \t
0003760 \0 \0 270 h 271 @ 002 272 h 273 J 221 J 211 h [
0004000 274 L 221 L 202 H 260 & 001 273 K \t \0 \0 271 H
0004020 I \n \0 \0 222 I 270 210 I H \n \0 \0 220 201 i
0004040 270 H i 360 221 i 204 J 002 272 260 320 b 002 277 @
0004060 \t \0 \0 g \0 \0 A g \0 \0 @ \r 005 \0 \0 020
0004100 \0 231 $ 005 \0 \0 002 231 003 230 223 001 230 223 003 230
0004120 214 004 L I S T 230 217 214 \t & O P T I O
0004140 N A L 230 214 \f E L E M E N T - T Y
0004160 P E 006 T 231 p H 230 217 214 006 L E N G T
0004200 H 2 231 ' ) 231 ' # 231 & \a 231 & 002 O 230
0004220 220 214 020 I N I T I A L - C O N T E
0004240 N T S K 231 r \0 \0 234 231 & 230 226 \0 & @
0004260 270 @ 303 \0 \0 223 g \0 \0 020 H 3 221 i 200
0004300 h 223 g \0 \0 020 H 3 020 221 i 200 h 223 g \0
0004320 \0 020 i 020 \0 231 & 001 \0 \0 001 231 003 230 223 001
0004340 230 223 001 230 214 006 S C A L A R \0 004 230
0004360 217 214 006 N U M B E R 024 230 217 214 \a I N
0004400 T E G E R \b 230 217 214 005 F L O A T 004
0004420 230 225 214 006 F L O A T P \0 \0 234 231 ' 230
0004440 226 \0 0 @ A 360 270 H 221 H 020 @ g \0 \0 360
0004460 271 I 221 I 204 @ g \0 \0 360 232 A o \0 \0 \0
0004500 034 221 i 020 h 020 @ g \0 \0 360 223 A i 360 020
0004520 h 020 \0 231 ' 002 \0 \0 002 231 003 230 223 001 230 223
0004540 002 230 214 003 S U B 230 214 005 S U P E R \0
0004560 003 % 231 202 \0 \0 \0 207 024 231 202 \0 \0 \0 210 \n
0004600 231 202 \0 \0 \0 211 001 032 230 223 002 231 202 \0 \0 \0
0004620 207 201 \0 234 231 ( 230 226 \0 033 @ g \0 \0 360 270
0004640 H 221 H 204 A g \0 \0 360 223 g \0 \0 020 @ A
0004660 \n \0 \0 020 \0 231 ( 001 \0 \0 002 231 003 230 223 001
0004700 230 223 002 230 214 005 T Y P E 1 230 214 005 T Y
0004720 P E 2 001 027 231 * 003 021 230 217 214 \f S I N
0004740 G L E - F L O A T \f 231 202 \0 \0 \0 226
0004760 002 231 202 \0 \0 \0 226 \0 \0 234 231 ) 230 226 \0 %
0005000 @ \t \0 \0 221 h 200 i 270 H 221 H 020 A \t \0
0005020 \0 221 h 200 i 271 I 221 I 020 @ \t \0 \0 A \t
0005040 \0 \0 360 020 \0 231 ) 002 \0 \0 002 231 003 230 223 001
0005060 230 223 002 230 214 006 A R R A Y 1 230 214 006 A
0005100 R R A Y 2 004 231 032 034 231 032 017 231 D 002
0005120 231 D \0 \0 \0 234 231 * 230 226 \0 \t @ A 314 221
0005140 @ 020 i 020 \0 231 * \0 \0 \0 002 231 003 230 223 001
0005160 230 223 002 230 214 005 T Y P E 1 230 214 005 T Y
0005200 P E 2 \0 \0 \0 \0 234 231 , 230 226 \0 F e k
0005220 363 224 e l 003 363 227 l 002 l 003 \n \0 \0 277 e
0005240 l 002 331 j 360 244 l 003 a 270 201 i 270 @ 262 024
0005260 @ \t \0 \0 A 314 220 210 o \0 \0 \0 @ \n \0 \0
0005300 277 216 A 230 A g \0 \0 H \v \0 \0 200 h b \0
0005320 277 @ 020 \0 231 , 001 \0 002 202 377 377 377 377 231 003
0005340 230 223 001 230 223 004 230 214 \f R E S U L T -
0005360 A R R A Y 230 214 \v R E S U L T - D
0005400 I M S 231 } 230 214 \v R E S U L T - T
0005420 Y P E 004 < 231 p 0 231 ^ $ 231 036 016 230 222
0005440 214 016 A R G U M E N T - E R R O R
0005460 230 221 230 214 006 S Y S T E M 001 8 231 r 001
0005500 + 230 214 022 I n v a l i d r e s u
0005520 l t : ~ s \0 234 231 - 230 226 \0 . @ \t
0005540 \0 \0 g \0 \0 360 270 H 221 H 206 @ 3 221 i
0005560 200 h 262 027 A \t \0 \0 g \0 \0 360 270 H 221 H
0005600 020 A 3 221 i 020 h 020 h 020 \0 231 - 001 \0
0005620 \0 002 231 003 230 223 001 230 223 002 230 214 006 A R R
0005640 A Y 1 230 214 006 A R R A Y 2 002 030 231 034
0005660 002 231 034 002 033 231 202 \0 \0 \0 226 005 231 202 \0 \0
0005700 \0 226 \0 \0 234 231 / 230 226 \0 7 @ \t \0 \0 270
0005720 H \t \0 \0 271 H A \t \0 \0 360 220 207 o \0 \0
0005740 \0 \t \0 \0 277 A 272 @ 273 J 220 201 260 023 J 001
0005760 I K 001 \v \0 \0 277 K 002 273 J 002 272 260 354 I
0006000 020 \0 231 / 004 \0 \0 002 231 003 230 223 001 230 223 002
0006020 230 214 004 L I S T 230 214 \v P E R M U T
0006040 A T I O N 005 ) 230 217 214 \b % S E T -
0006060 N T H 027 231 ^ \r 231 202 \0 \0 \0 201 \a 230 217
0006100 214 \t M A K E - L I S T 002 231 202 \0 \0
0006120 \0 201 \0 001 023 230 214 ( L i s t a n d
0006140 P e r m u t a t i o n n o t
0006160 o f e q u a l l e n g t h
0006200 \0 234 230 225 214 \v e x e c - K - L O A
0006220 D 230 226 001 017 i 021 001 \0 @ 002 001 g \0 \0 \n
0006240 \0 \0 020 \0 002 \0 230 225 214 " L I T A T O
0006260 M - P A C K A G E - C O N V E R
0006300 S I O N - E N A B L E D 231 202 \0 \0
0006320 \0 271 001 \0 \0 002 231 003 230 223 001 230 223 002 230 214
0006340 \f $ $ M A C R O - F O R M 230 214 \v
0006360 $ $ M A C R O - E N V 001 \v 230 225 214
0006400 004 L O A D 001 \b 230 225 214 004 P R O P \0
0006420 \0 235 230 226 \0 034 o \0 \0 \0 g \0 \0 h \v \0
0006440 \0 277 o \0 \0 \0 o \0 \0 \0 ` \0 \0 \v \0 \0
0006460 020 \0 230 214 027 x c l : d e f c o m m
0006500 a n d " K - L O A D " \0 \0 \0 \0
0006520 231 003 230 223 001 200 002 030 230 225 214 \a P U T H
0006540 A S H \t 230 225 214 021 S E T - D O C U
0006560 M E N T A T I O N 002 025 230 225 214 024 *
0006600 E X E C - C O M M A N D - T A B
0006620 L E * 005 231 1 003 021 230 223 003 230 223 001 230 222
0006640 214 004 F I L E 231 030 231 202 \0 \0 \0 271 230 220
0006660 214 004 E V A L \r 230 214 006 K - L O A D
0006700 001 231 202 \0 \0 \0 313 \0 234 230 225 214 017 e x e
0006720 c - M A K E - D E F U N 230 226 \0 &
0006740 @ 002 270 H 002 001 271 H 001 g \0 \0 \n \0 \0 272
0006760 I g \0 \0 g \0 \0 I J 002 001 J 002 002 032 032
0007000 032 \v \0 \0 020 \0 231 202 \0 \0 \0 315 003 \0 \0 002
0007020 231 003 230 223 001 230 223 002 230 214 \f $ $ M A C
0007040 R O - F O R M 230 214 \v $ $ M A C R
0007060 O - E N V 002 " 230 225 214 006 P U T D E
0007100 F \r 230 225 214 006 G E T D E F 003 025 230 217
0007120 214 005 D E F U N 022 231 026 \n 230 225 214 003 F
0007140 N S \0 \0 235 230 226 \0 034 o \0 \0 \0 g \0 \0
0007160 h \v \0 \0 277 o \0 \0 \0 o \0 \0 \0 ` \0 \0
0007200 \v \0 \0 020 \0 230 214 033 x c l : d e f c
0007220 o m m a n d " M A K E - D E F
0007240 U N " \0 \0 \0 \0 231 003 230 223 001 200 002 030 231
0007260 202 \0 \0 \0 304 \t 231 202 \0 \0 \0 305 002 025 231 202
0007300 \0 \0 \0 306 005 231 1 003 021 230 223 003 230 223 002 230
0007320 222 214 003 O L D 231 030 230 222 214 003 N E W 231
0007340 030 231 202 \0 \0 \0 315 231 202 \0 \0 \0 311 \r 230 214
0007360 \n M A K E - D E F U N 001 231 202 \0 \0
0007400 \0 335 \0 235 230 226 \0 034 g \0 \0 g \0 \0 o \0
0007420 \0 \0 \v \0 \0 277 g \0 \0 g \0 \0 g \0 \0 \v
0007440 \0 \0 020 \0 230 214 % x c l : d e f i n
0007460 e - f i l e - e n v i r o n m e
0007500 n t " E - A R R A Y " \0 \0 \0 \0
0007520 231 003 230 223 001 200 002 030 231 022 \v 231 022 005 025 230
0007540 220 214 \f C O M P I L E - F I L E 022
0007560 230 225 214 \b F I L E T Y P E 017 231 025 004
0007600 230 225 214 024 M A K E F I L E - E N V
0007620 I R O N M E N T 001 231 025 001 \a 230 223 004
0007640 231 \t 230 214 003 X C L 231 \v 230 214 \a E - A
0007660 R R A Y \0 235 230 226 \0 \t o \0 \0 \0 \t \0
0007700 \0 020 \0 230 214 020 1 t o p - l e v e
0007720 l f o r m \0 \0 \0 \0 231 003 230 223 001 200
0007740 001 005 230 225 214 \b P U T P R O P S \0 001
0007760 001 230 223 003 231 025 230 225 214 \t C O P Y R I
0010000 G H T 230 223 003 230 214 021 X e r o x C
0010020 o r p o r a t i o n 202 \0 \0 \a 303 202
0010040 \0 \0 \a 304 \0 232 202 \0 \0 \0 360 377 377
0010055