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