$ od -c -N 50000 [qv]<IDL>RELEASE0.1>CONV.FDCOM!1
0000000 ( F I L E C R E A T E D " 5
0000020 - S e p - 8 5 2 2 : 0 5 : 5 0
0000040 " ( " c o m p i l e d o n
0000060 " { Q V } < I D L > S O U R C
0000100 E S > C O N V . ; 8 ) " 1 6 -
0000120 A u g - 8 5 0 6 : 2 0 : 2 6 "
0000140 \r b c o m p l ' d i n " I
0000160 D L - T e s t - S y s o u t
0000200 5 - S e p - 8 5 . . . " d a
0000220 t e d " 5 - S e p - 8 5 2
0000240 1 : 3 3 : 2 8 " ) \r ( F I L E C
0000260 R E A T E D " 4 - S e p - 8
0000300 5 1 3 : 1 0 : 1 3 " { Q V }
0000320 < I D L > S O U R C E S > C O N
0000340 V . ; 8 1 4 7 9 3 c h a n g
0000360 e s t o : ( V A R S C O N
0000400 V C O M S ) p r e v i o u s
0000420 \r d a t e : " 3 - S e p - 8
0000440 5 1 7 : 2 4 : 0 4 " { Q V }
0000460 < I D L > S O U R C E S > C O N
0000500 V . ; 7 ) \r C O N V . A R I T H
0000520 D 1 \r ( I 0 A ) \0 $ \0 \0
0000540 \0 001 @ \t \0 \0 265 036 \b \0 \0 262 026 o \0 \0
0000560 \0 i \n \0 \0 277 @ i \n \0 \0 277 i \t \0 \0
0000600 277 \b \0 \0 020 \0 ( 4 1 Q U E R R O
0000620 R ! 3 5 Q T E R P R I 3 0
0000640 Q P R I N 2 2 2 Q P R I N
0000660 1 1 0 Q U E R R O R P R I N
0000700 T ? 3 C O N V . S C A L A R
0000720 ) \r N I L \r ( 1 6 Q " I n v
0000740 a l i d n u m e r i c d a t
0000760 a : " ) \r C O N V . A R R A
0001000 Y A 0 0 0 1 D 1 \r ( N A M E
0001020 U E R R O R S E T I 1 U R
0001040 E S E T V A R S L S T I 0
0001060 U E R R O R N A M E F 0 A
0001100 F 1 T E M P ) \0 \f \0 002 \0
0001120 002 P \t \0 \0 \t \0 \0 c 002 h 020 \0 ( 6
0001140 V F R O M R 3 C O N V . R O
0001160 W S C A L A R ) \r N I L \r ( ) \r
0001200 C O N V . A R R A Y A 0 0 0 2
0001220 D 1 \r ( N A M E U E R R O R S
0001240 E T I 1 U R E S E T V A R
0001260 S L S T I 0 U E R R O R N
0001300 A M E F 0 A F 1 T E
0001320 M P ) \0 \t \0 002 \0 002 P \t \0 \0 c 002
0001340 h 020 \0 ( 3 C O N V . N A R R A
0001360 Y ) \r N I L \r ( ) \r C O N V . A
0001400 R R A Y D 1 \r ( P 0 T E M
0001420 P I 0 A F 1 R E S E
0001440 T V A R S L S T ) \0 = 001 001 \0 001
0001460 @ 004 ` \0 \0 360 221 @ 020 021 020 \0 g \0 \0 Q
0001500 \n \0 \0 262 ' g \0 \0 Q \n \0 \0 262 036 \b \0
0001520 \0 262 026 o \0 \0 \0 i \n \0 \0 277 @ i \n \0
0001540 \0 277 i \t \0 \0 277 \b \0 \0 H 020 \0 ( 7 1
0001560 Q U E R R O R ! 6 5 Q T E
0001600 R P R I 6 0 Q P R I N 2 5
0001620 2 Q P R I N 1 4 0 Q U E R
0001640 R O R P R I N T ? 3 3 Q C O
0001660 N V . A R R A Y A 0 0 0 2 2 2
0001700 Q C O N V . A R R A Y A 0 0 0
0001720 1 ) \r ( 2 7 Q U E R R O R G U
0001740 A R D 1 6 Q U E R R O R G U
0001760 A R D 4 004 003 A R R A Y F R A
0002000 M E T Y P E # ) \r ( 4 6 Q "
0002020 I n v a l i d a r r a y :
0002040 " ) \r C O N V . N A R R A Y D
0002060 1 \r ( P 1 3 Q G S B D P
0002100 1 2 Q N P 1 1 Q F I X F
0002120 L G P 1 0 Q G S B A P
0002140 7 N D I M S P 6 A R R A
0002160 Y P 5 S H P 4 I P
0002200 2 D S P 1 V A L P
0002220 0 D I 3 P R E D F L A G
0002240 I 2 L A B D I M I 1
0002260 L A B S O U R C E I 0 D A
0002300 T A ) \0 s \f \0 \0 004 @ 021 021 001 H 003
0002320 265 S H 004 ` \0 \0 360 262 032 H 006 \0 \0 311 002
0002340 021 ! 004 J 006 \0 \0 310 005 k 274 273 L K 363 262
0002360 ? 023 I \t \0 \0 \t \0 \0 022 021 001 005 M g \0
0002400 \0 g \0 \0 \v \0 \0 M 006 \0 \0 310 005 021 002 \a
0002420 N g \0 \0 \n \0 \0 i j 021 023 \v @ j \n \0
0002440 \0 N 020 \t \0 \0 I 032 271 H 001 X 260 243 J L
0002460 \n \0 \0 I 032 271 L k 324 \ 260 263 \0 ( 1 5
0002500 0 Q G E T R E L T 1 3 3 Q
0002520 L E N G T H 1 2 6 Q C O N V
0002540 . N A R R A Y 1 1 1 4 Q S E
0002560 T U P 7 4 Q A L L O C . S A
0002600 R R A Y 5 6 Q R O W I N T O
0002620 F 1 5 3 Q D R E V E R S E )
0002640 \r ( 1 1 1 Q R O W M A J O R
0002660 1 0 0 Q R O W H E A D E R 7
0002700 1 Q I N T E G E R 6 6 Q F
0002720 U L L 3 4 Q R O W H E A D E
0002740 R 2 3 Q A R R A Y F R A M E
0002760 1 4 Q 004 003 A R R A Y F R A M
0003000 E T Y P E # ) \r ( ) \r C O N V .
0003020 N A R R A Y 1 D 1 \r ( P 1 0
0003040 Q V A L P 7 J P 6
0003060 D S H P 5 I P 3 D
0003100 P 2 L I M P 1 L I
0003120 1 D I M I 0 D A T A F
0003140 1 1 Q A R R A Y F 1 2 Q
0003160 G S B D F 1 3 Q L A B S
0003200 O U R C E F 1 4 Q N F
0003220 1 5 Q N D I M S F 1 6 Q
0003240 S H F 1 7 Q L A B D I M
0003260 F 2 0 Q P R E D F L A G F
0003300 2 1 Q F I X F L G F 2 2
0003320 Q G S B A ) 003 # \t \n \0 002 @ d
0003340 003 242 261 \0 267 277 A d W 032 331 j 360 262 ! 277
0003360 \b \0 \0 262 026 o \0 \0 \0 i \n \0 \0 277 @ i
0003400 \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277 A k 324
0003420 b 002 @ j W 034 A \n \0 \0 021 023 003 H [ 003
0003440 262 A I k 324 Y J 361 262 . \b \0 \0 262 % o
0003460 \0 \0 \0 i \n \0 \0 277 A i \n \0 \0 277 o \0
0003500 \0 \0 i \n \0 \0 277 @ i \n \0 \0 277 i \t \0
0003520 \0 277 \b \0 \0 277 K 001 A \n \0 \0 277 K 002 260
0003540 277 J I 361 264 003 202 261 002 { \b \0 \0 262 % o
0003560 \0 \0 \0 i \n \0 \0 277 A i \n \0 \0 277 o \0
0003600 \0 \0 i \n \0 \0 277 @ i \n \0 \0 277 i \t \0
0003620 \0 277 \b \0 \0 277 261 002 K 004 ` \0 \0 360 242 261
0003640 001 344 @ \t \0 \0 222 261 001 334 W 032 A k 330 @
0003660 006 \0 \0 311 002 k 021 004 \a N 006 \0 \0 310 005 W
0003700 032 A 331 331 j 360 263 C \b \0 \0 262 : o \0 \0
0003720 \0 i \n \0 \0 277 N 006 \0 \0 310 005 W 032 A 331
0003740 375 361 224 o \0 \0 \0 203 o \0 \0 \0 i \n \0 \0
0003760 277 o \0 \0 \0 i \n \0 \0 277 @ i \n \0 \0 277
0004000 i \t \0 \0 277 \b \0 \0 277 M L 363 222 261 \0 267
0004020 W 034 M \n \0 \0 N O 016 \n \0 \0 331 j 360 262
0004040 E W 022 M \n \0 \0 254 W 022 M @ O 016 \n \0
0004060 \0 \v \0 \0 277 W 034 M \n \0 \0 k 021 002 001 I
0004100 H 363 263 037 W 022 M I \v \0 \0 256 W 022 M I
0004120 @ O 016 I \v \0 \0 \f \0 \0 277 I k 324 Y 260
0004140 341 023 260 U \b \0 \0 262 L o \0 \0 \0 i \n \0
0004160 \0 277 O 016 i \n \0 \0 277 o \0 \0 \0 i \n \0
0004200 \0 277 N O 016 \n \0 \0 W 034 M \n \0 \0 375 361
0004220 224 o \0 \0 \0 203 o \0 \0 \0 i \n \0 \0 277 o
0004240 \0 \0 \0 i \n \0 \0 277 @ i \n \0 \0 277 i \t
0004260 \0 \0 277 \b \0 \0 277 M k 324 275 O 016 k 324 _
0004300 016 261 377 G 023 @ g \0 \0 W 024 \v \0 \0 c 024
0004320 W 026 262 S W 024 006 \0 \0 310 \0 021 001 \0 H j
0004340 360 265 \v H 005 003 264 006 H \t \0 \0 022 222 261 \0
0004360 363 W 022 W $ \t \0 \0 W 036 262 025 W 026 @ W
0004400 024 \t \0 \0 \n \0 \0 W 036 W \f \0 \0 217 W
0004420 026 @ W 024 \t \0 \0 \n \0 \0 W \v \0 \0 \v
0004440 \0 \0 277 260 261 W " 262 , @ \t \0 \0 g \0 \0
0004460 360 262 023 h c " 277 W 022 006 \0 \0 311 \b W 030
0004500 \n \0 \0 215 W 030 @ 006 \0 \0 311 002 \t \0 \0 324
0004520 c 030 277 W 024 006 \0 \0 310 \0 021 001 \0 H j 360
0004540 265 \v H 005 003 264 006 H \t \0 \0 022 263 u W 022
0004560 W $ \t \0 \0 @ W 024 \t \0 \0 \n \0 \0 \v \0
0004600 \0 260 321 A W 032 331 j 360 262 Z 021 020 \b W 026
0004620 262 034 W 036 232 W 026 @ W 036 W \f \0 \0 207
0004640 W 026 @ W \v \0 \0 _ 020 260 * @ \t \0 \0
0004660 _ 020 277 W " 262 O 020 005 003 262 023 h c "
0004700 277 W 022 006 \0 \0 311 \b W 030 \n \0 \0 205 W 030
0004720 k 324 c 030 277 W 022 W $ \t \0 \0 O 020 \v \0
0004740 \0 h 020 \b \0 \0 262 026 o \0 \0 \0 i \n \0 \0
0004760 277 @ i \n \0 \0 277 i \t \0 \0 277 \b \0 \0 020
0005000 \0 ( 1 4 4 0 Q U E R R O R !
0005020 1 4 3 4 Q T E R P R I 1 4 2
0005040 7 Q P R I N 2 1 4 2 1 Q P
0005060 R I N 1 1 4 0 7 Q U E R R O
0005100 R P R I N T ? 1 4 0 2 Q S E
0005120 T A E L T 1 3 7 5 Q N E X T
0005140 1 3 5 6 Q F L O A T R O W
0005160 1 3 2 1 Q C O N V . S C A L A
0005200 R 1 3 1 1 Q M A K E 1 D I M
0005220 S P E C 1 3 0 0 Q M A K E 1
0005240 S L T R 1 2 4 2 Q S E T A E
0005260 L T 1 2 3 7 Q G E T A E L T
0005300 1 2 3 4 Q N E X T 1 2 2 6
0005320 Q N E X T 1 2 1 4 Q \ F Z
0005340 E R O P 1 1 6 0 Q N L O G I
0005360 C A L E L T S 1 1 4 4 Q F L
0005400 O A T R O W 1 1 1 6 Q A E L
0005420 T T Y P E 1 1 0 3 Q S E T A
0005440 E L T 1 1 0 0 Q M A K E 1 D
0005460 I M S P E C 1 0 7 3 Q G E T
0005500 A E L T 1 0 7 0 Q N E X T
0005520 1 0 5 7 Q M A K E 1 S L T R
0005540 1 0 5 0 Q G E T A E L T 1 0
0005560 4 5 Q N E X T 1 0 3 1 Q N
0005600 E X T 1 0 1 5 Q \ F Z E R O
0005620 P 7 5 7 Q S E T U P 7 2 7
0005640 Q U E R R O R ! 7 2 3 Q T
0005660 E R P R I 7 1 6 Q P R I N 2
0005700 7 1 0 Q P R I N 1 6 7 7 Q
0005720 P R I N 1 6 5 7 Q G E T R
0005740 E L T 6 5 1 Q G E T R E L T
0005760 6 4 2 Q P R I N 1 6 3 1 Q
0006000 P R I N 1 6 2 2 Q P R I N
0006020 1 6 1 0 Q U E R R O R P R I
0006040 N T ? 5 7 3 Q S E T L E V L
0006060 A B 5 7 0 Q G E T L E V L A
0006100 B 5 5 4 Q G E T L E V L A B
0006120 5 3 4 Q G E T R E L T 5 2
0006140 5 Q S E T D I M L A B 5 2 2
0006160 Q G E T D I M L A B 5 1 0 Q
0006200 G E T D I M L A B 4 7 5 Q
0006220 G E T R E L T 4 6 7 Q G E T
0006240 R E L T 4 5 1 Q U E R R O R
0006260 ! 4 4 5 Q T E R P R I 4 4
0006300 0 Q P R I N 2 4 3 2 Q P R
0006320 I N 1 4 2 1 Q P R I N 1 3
0006340 6 6 Q P R I N 1 3 5 4 Q U
0006360 E R R O R P R I N T ? 3 0 7 Q
0006400 V S C A L A R P 2 6 6 Q U
0006420 E R R O R ! 2 6 2 Q T E R P
0006440 R I 2 5 5 Q P R I N 2 2 4
0006460 7 Q P R I N 1 2 3 6 Q P R
0006500 I N 1 2 3 0 Q P R I N 1 2
0006520 1 6 Q U E R R O R P R I N T ?
0006540 1 7 5 Q C O N V . N A R R A
0006560 Y 1 1 6 6 Q U E R R O R !
0006600 1 6 2 Q T E R P R I 1 5 5 Q
0006620 P R I N 2 1 4 7 Q P R I N
0006640 1 1 3 6 Q P R I N 1 1 3 0
0006660 Q P R I N 1 1 1 6 Q U E R
0006700 R O R P R I N T ? 7 3 Q G E
0006720 T R E L T 5 5 Q U E R R O R
0006740 ! 5 1 Q T E R P R I 4 4 Q
0006760 P R I N 2 3 6 Q P R I N 1
0007000 2 4 Q U E R R O R P R I N T
0007020 ? ) \r ( 1 3 4 7 Q A R R A Y F
0007040 R A M E 1 1 7 1 Q G E N S T
0007060 A T E B L O C K 1 1 5 3 Q A
0007100 R R A Y F R A M E 1 1 3 5 Q
0007120 A R R A Y F R A M E 1 1 2 1 Q
0007140 F L O A T I N G 7 7 2 Q G
0007160 E N S T A T E B L O C K 7 5 2
0007200 Q R O W M A J O R 3 7 3 Q
0007220 R O W H E A D E R 3 3 6 Q R
0007240 O W H E A D E R 3 2 4 Q A R
0007260 R A Y F R A M E 2 7 6 Q 004 003
0007300 A R R A Y F R A M E T Y P E # )
0007320 \r ( 1 4 1 5 Q " T o o f e
0007340 w d i m e n s i o n s s p e
0007360 c i f i e d : " 7 0 4 Q
0007400 " l e v e l s : " 6 7 3
0007420 Q " m a n y " 6 6 6 Q " f
0007440 e w " 6 3 6 Q " h a s t
0007460 o o " 6 1 6 Q " D i m e n
0007500 s i o n " 4 2 6 Q " d i
0007520 m e n s i o n s : " 4 1 5
0007540 Q " m a n y " 4 1 0 Q " f
0007560 e w " 3 6 2 Q " A r r a y
0007600 h a s t o o " 2 4 3 Q "
0007620 : " 2 2 4 Q " T o o f
0007640 e w e l e m e n t s f o r
0007660 d i m e n s i o n " 1 4 3 Q
0007700 " : " 1 2 4 Q " T o o
0007720 m a n y e l e m e n t s f
0007740 o r d i m e n s i o n " 3
0007760 2 Q " T o o m a n y d i m
0010000 e n s i o n s s p e c i f i e
0010020 d : " ) \r C O N V . R O W F
0010040 L O A T D 1 \r ( P 3 I P
0010060 2 R R P 0 R I 0
0010100 A ) \0 220 004 \0 \0 001 g \0 \0 @ \n \0 \0
0010120 221 @ 020 @ \t \0 \0 021 001 \0 H \t \0 \0 262 030
0010140 \b \0 \0 235 o \0 \0 \0 i \n \0 \0 277 i \t \0
0010160 \0 277 \b \0 \0 277 H 312 004 341 d j 360 225 277 g
0010200 \0 \0 260 026 d k 360 224 277 g \0 \0 212 l 003 360
0010220 223 g \0 \0 202 \b \0 \0 d g \0 \0 360 221 H 020
0010240 g \0 \0 360 262 0 H 006 \0 \0 310 005 h d H 006
0010260 \0 \0 310 005 g \0 \0 \f \0 \0 021 022 003 k [ I
0010300 363 257 J K H K \n \0 \0 \v \0 \0 277 K k 324
0010320 260 356 J 020 \b \0 \0 020 \0 ( 2 1 5 Q S
0010340 H O U L D N T 2 0 2 Q S E T
0010360 R E L T 1 7 7 Q G E T R E L
0010400 T 1 6 0 Q D R O W C R E A T
0010420 E 1 1 6 Q S H O U L D N T
0010440 5 3 Q U E R R O R ! 4 7 Q
0010460 T E R P R I 4 2 Q P R I N 1
0010500 3 1 Q U E R R O R P R I N T
0010520 ? 2 4 Q H A S N I L S 1 5
0010540 Q C O N V . R O W S C A L A R
0010560 6 R O W T Y P E P ) \r ( 1 5
0010600 5 Q F L O A T I N G 1 5 0 Q
0010620 R O W H E A D E R 1 4 0 Q
0010640 R O W H E A D E R 1 3 1 Q I
0010660 N T E G E R 1 2 2 Q F L O A
0010700 T I N G 1 1 2 Q I N T E G E
0010720 R 1 0 2 Q F L O A T I N G
0010740 7 0 Q P O I N T E R 2 R O
0010760 W F L O A T ) \r ( 3 6 Q " I
0011000 n v a l i d n u m e r i c d
0011020 a t a : N I L " ) \r C O N V .
0011040 R O W I N T D 1 \r ( P 4 T
0011060 E M P P 3 I P 2 R R
0011100 P 0 R I 0 A ) \0 226
0011120 005 \0 \0 001 g \0 \0 @ \n \0 \0 221 @ 020 @ \t
0011140 \0 \0 021 001 \0 H \t \0 \0 262 030 \b \0 \0 235 o
0011160 \0 \0 \0 i \n \0 \0 277 i \t \0 \0 277 \b \0 \0
0011200 277 H 312 004 341 d j 360 225 277 g \0 \0 260 026 d
0011220 k 360 224 277 g \0 \0 212 l 003 360 223 g \0 \0 202
0011240 \b \0 \0 d g \0 \0 360 221 H 020 g \0 \0 360 262
0011260 6 H 006 \0 \0 310 005 h d H 006 \0 \0 310 005 g
0011300 \0 \0 \f \0 \0 021 " 004 k [ I 363 263 027 H K
0011320 \n \0 \0 274 J K L \t \0 \0 \v \0 \0 277 K k
0011340 324 260 350 J 020 \b \0 \0 020 \0 ( 2 2 3 Q
0011360 S H O U L D N T 2 1 0 Q S E
0011400 T R E L T 2 0 5 Q F I X R
0011420 1 7 6 Q G E T R E L T 1 6 0
0011440 Q D R O W C R E A T E 1 1 6
0011460 Q S H O U L D N T 5 3 Q U
0011500 E R R O R ! 4 7 Q T E R P R
0011520 I 4 2 Q P R I N 1 3 1 Q
0011540 U E R R O R P R I N T ? 2 4 Q
0011560 H A S N I L S 1 5 Q C O N
0011600 V . R O W S C A L A R 6 R O
0011620 W T Y P E P ) \r ( 1 5 5 Q I N
0011640 T E G E R 1 5 0 Q R O W H E
0011660 A D E R 1 4 0 Q R O W H E A
0011700 D E R 1 3 1 Q F L O A T I N
0011720 G 1 2 2 Q I N T E G E R 1
0011740 1 2 Q I N T E G E R 1 0 2 Q
0011760 F L O A T I N G 7 0 Q P O
0012000 I N T E R 2 R O W I N T ) \r
0012020 ( 3 6 Q " I n v a l i d n
0012040 u m e r i c d a t a : N I L
0012060 " ) \r C O N V . R O W S C A L A
0012100 R D 1 \r ( P 1 1 Q T M P
0012120 P 1 0 Q J P 7 F L O A
0012140 T F L A G P 6 V P 5
0012160 C A P 4 I P 2 F L A
0012200 G P 1 I I 0 A ) \0
0012220 324 \n \0 \0 001 g \0 \0 @ \n \0 \0 221 @ 020 @
0012240 d 004 ` \0 \0 360 262 _ \t \0 \0 263 Y @ 006 \0
0012260 \0 311 002 006 \0 \0 310 005 021 ! 002 k Y H 363 263
0012300 : k @ 006 \0 \0 311 002 I \n \0 \0 331 j 360 263
0012320 % J 262 037 \b \0 \0 262 026 o \0 \0 \0 i \n \0
0012340 \0 277 @ i \n \0 \0 277 i \t \0 \0 277 \b \0 \0
0012360 201 i Z 277 I k 324 260 305 023 @ \t \0 \0 006 \0
0012400 \0 311 \b 020 @ 003 262 E @ k h d @ \t \0 \0
0012420 g \0 \0 \f \0 \0 021 3 \b K 003 265 004 M 020 001
0012440 _ 020 \t \0 \0 276 O 016 263 023 N 005 003 234 i _
0012460 016 277 M L k 325 \n \0 \0 ] 200 M L N \v \0
0012500 \0 277 L k 324 274 K 002 [ 260 321 @ \t \0 \0 021
0012520 001 \t i h k O 022 005 003 223 g \0 \0 202 g \0
0012540 \0 O 022 \r 005 \0 \0 020 \0 ( 3 2 1 Q D
0012560 R O W C R E A T E 2 7 1 Q C
0012600 O N V . S C A L A R 2 5 3 Q
0012620 S E T R E L T 2 4 3 Q F L O
0012640 A T R O W 2 1 7 Q C O N V .
0012660 S C A L A R 2 0 0 Q D R O W
0012700 C R E A T E 1 7 2 Q L E N G
0012720 T H 1 5 0 Q C O N V . S I M
0012740 A R R A Y 1 3 2 Q U E R R O
0012760 R ! 1 2 6 Q T E R P R I 1
0013000 2 1 Q P R I N 1 1 1 3 Q P
0013020 R I N 1 1 0 1 Q U E R R O R
0013040 P R I N T ? 6 6 Q G E T R E
0013060 L T 2 5 Q V S C A L A R P
0013100 6 R O W T Y P E P ) \r ( 3 1 3
0013120 Q I N T E G E R 3 0 7 Q F
0013140 L O A T I N G 1 7 5 Q I N T
0013160 E G E R 1 5 3 Q A R R A Y F
0013200 R A M E 6 0 Q A R R A Y F R
0013220 A M E 4 0 Q R O W H E A D E
0013240 R 3 3 Q A R R A Y F R A M E
0013260 1 7 Q 004 003 A R R A Y F R A M
0013300 E T Y P E # 2 R O W S C A L
0013320 A R ) \r ( 1 0 7 Q " A r r a
0013340 y h a s m o r e t h a n
0013360 o n e n o n - e m p t y e x
0013400 t e n t : " ) \r C O N V . S
0013420 C A L A R D 1 \r ( I 0 A )
0013440 \0 223 \0 \0 \0 001 @ 3 020 265 003 202 261 \0 213
0013460 @ d 242 261 \0 205 d 004 ` \0 \0 360 262 I \t \0
0013500 \0 230 @ d \t \0 \0 \n \0 \0 020 k @ 006 \0 \0
0013520 311 002 \t \0 \0 331 j 360 236 @ d d 006 \0 \0 311
0013540 002 \n \0 \0 \n \0 \0 020 \b \0 \0 262 026 o \0 \0
0013560 \0 i \n \0 \0 277 @ i \n \0 \0 277 i \t \0 \0
0013600 277 \b \0 \0 020 d 003 227 d 002 244 001 b \0 260 232
0013620 004 l 004 360 226 @ \t \0 \0 241 h 020 \b \0 \0 262
0013640 026 o \0 \0 \0 i \n \0 \0 277 @ i \n \0 \0 277
0013660 i \t \0 \0 277 \b \0 \0 020 \0 ( 2 2 0 Q
0013700 U E R R O R ! 2 1 4 Q T E R
0013720 P R I 2 0 7 Q P R I N 2 2
0013740 0 1 Q P R I N 1 1 6 7 Q U
0013760 E R R O R P R I N T ? 1 6 1 Q
0014000 U - C A S E 1 3 4 Q U E R
0014020 R O R ! 1 3 0 Q T E R P R I
0014040 1 2 3 Q P R I N 1 1 1 5 Q
0014060 P R I N 1 1 0 3 Q U E R R
0014100 O R P R I N T ? 7 7 Q C O P
0014120 Y A E L T 7 4 Q A E L T P T
0014140 R 5 5 Q N L O G I C A L E L
0014160 T S 4 2 Q C O P Y A E L T
0014200 3 7 Q V S C A L A R P T R 3
0014220 1 Q V S C A L A R P ) \r ( 6 7
0014240 Q A R R A Y F R A M E 5 0 Q
0014260 A R R A Y F R A M E 2 3 Q
0014300 004 003 A R R A Y F R A M E T Y P E
0014320 # ) \r ( 1 7 5 Q " I n v a l
0014340 i d s c a l a r : " 1 1
0014360 1 Q " A r r a y g i v e n
0014400 w h e r e s c a l a r e x p
0014420 e c t e d : " ) \r C O N V .
0014440 S I M A R R A Y D 1 \r ( P 3
0014460 G S B N E W P 1 G S B O
0014500 L D P 0 R E S U L T I
0014520 1 L A B P R O P F L A G I
0014540 0 A ) \0 t 004 \0 \0 002 @ g \0 \0 \n
0014560 \0 \0 221 @ 020 @ 006 \0 \0 311 002 @ 006 \0 \0 311
0014600 004 @ \t \0 \0 \v \0 \0 @ d 006 \0 \0 311 004 g
0014620 \0 \0 360 223 g \0 \0 202 g \0 \0 \n \0 \0 021 022
0014640 002 H I 006 \0 \0 311 002 \n \0 \0 021 001 003 I 006
0014660 \0 \0 310 \0 Z j 360 263 037 J 005 003 225 J \t \0
0014700 \0 263 025 H K \t \0 \0 @ I \t \0 \0 \n \0 \0
0014720 \v \0 \0 277 260 332 023 @ H \n \0 \0 H 020 \0 (
0014740 1 6 0 Q L A B . C O P Y A L L
0014760 1 4 7 Q S E T A E L T 1 4
0015000 4 Q G E T A E L T 1 4 1 Q
0015020 N E X T 1 3 4 Q N E X T 1
0015040 2 5 Q \ F Z E R O P 7 7 Q
0015060 S E T U P 6 2 Q S E T U P
0015100 3 4 Q A L L O C . S A R R A Y
0015120 3 1 Q A E L T T Y P E 6
0015140 A R R A Y T Y P E P ) \r ( 1 0 6
0015160 Q G E N S T A T E B L O C K
0015200 7 2 Q G E N S T A T E B L O C
0015220 K 5 7 Q S Y M M E T R I C
0015240 5 3 Q D O N T C A R E 4 6 Q
0015260 F U L L 4 1 Q A R R A Y F
0015300 R A M E 2 3 Q A R R A Y F R
0015320 A M E 1 5 Q A R R A Y F R A
0015340 M E 3 S I M P L E ) \r ( ) \r
0015360 C O N V . V E C T O R D 1 \r (
0015400 P 4 R E A L D I M P 3
0015420 S L T R P 2 D I M P 1
0015440 S H I 0 A ) \0 276 005 \0 \0
0015460 001 @ \t \0 \0 b \0 d 006 \0 \0 311 002 006 \0 \0
0015500 310 005 d k 360 221 @ 020 j 360 262 0 @ \t \0 \0
0015520 233 @ d \t \0 \0 \n \0 \0 \t \0 \0 020 \b \0 \0
0015540 262 026 o \0 \0 \0 i \n \0 \0 277 @ i \n \0 \0
0015560 277 i \t \0 \0 277 \b \0 \0 020 @ 006 \0 \0 311 002
0015600 006 \0 \0 310 005 @ 006 \0 \0 311 002 021 2 004 k Z
0015620 H 363 263 5 k I J \n \0 \0 331 j 360 263 % L
0015640 262 037 \b \0 \0 262 026 o \0 \0 \0 i \n \0 \0 277
0015660 @ i \n \0 \0 277 i \t \0 \0 277 \b \0 \0 201 J
0015700 \ 277 J k 324 260 312 i h @ 006 \0 \0 311 002 006
0015720 \0 \0 310 005 g \0 \0 k \r 005 \0 \0 [ L 265 003
0015740 k g \0 \0 \v \0 \0 277 @ K \n \0 \0 020 \0 (
0015760 2 7 3 Q F S E L E C T 2 6 5
0016000 Q S E T R E L T 2 5 2 Q D
0016020 R O W C R E A T E 2 1 4 Q U
0016040 E R R O R ! 2 1 0 Q T E R P
0016060 R I 2 0 3 Q P R I N 1 1 7
0016100 5 Q P R I N 1 1 6 3 Q U E
0016120 R R O R P R I N T ? 1 5 0 Q
0016140 G E T R E L T 1 0 7 Q U E R
0016160 R O R ! 1 0 3 Q T E R P R I
0016200 7 6 Q P R I N 1 7 0 Q P
0016220 R I N 1 5 6 Q U E R R O R P
0016240 R I N T ? 5 2 Q C O N V . A
0016260 R R A Y 4 7 Q G E T A E L T
0016300 4 4 Q V S C A L A R P T R
0016320 3 6 Q V S C A L A R P 3 C
0016340 O N V . A R R A Y ) \r ( 2 6 2 Q
0016360 A L L 2 4 5 Q P O I N T E
0016400 R 2 4 0 Q R O W H E A D E R
0016420 2 3 3 Q A R R A Y F R A M E
0016440 1 2 7 Q A R R A Y F R A M E
0016460 1 2 1 Q R O W H E A D E R
0016500 1 1 4 Q A R R A Y F R A M E
0016520 1 6 Q R O W H E A D E R 1 1
0016540 Q A R R A Y F R A M E ) \r (
0016560 1 7 1 Q " A r r a y h a s
0016600 m o r e t h a n o n e n o
0016620 n - e m p t y e x t e n t :
0016640 " 6 4 Q " A r r a y h a
0016660 s n o d i m e n s i o n s :
0016700 " ) \r L I S P N U M B E R A
0016720 0 0 0 1 D 1 \r ( N A M E U E
0016740 R R O R S E T I 1 U R E S
0016760 E T V A R S L S T I 0 U E
0017000 R R O R N A M E F 0 X )
0017020 \0 \t \0 001 \0 002 P \t \0 \0 c \0 h 020 \0 (
0017040 3 C O N V . A R I T H ) \r N I
0017060 L \r ( ) \r L I S P N U M B E R
0017100 D 1 \r ( I 0 X F 0 R E
0017120 S E T V A R S L S T ) \0 016 \0 001
0017140 \0 001 g \0 \0 P \n \0 \0 h 360 264 003 @ 020 \0
0017160 ( 6 L I S P N U M B E R A 0 0
0017200 0 1 ) \r ( 2 U E R R O R G U A
0017220 R D ) \r ( ) \r ( P R E T T Y C O
0017240 M P R I N T C O N V C O M S )
0017260 \r ( R P A Q Q C O N V C O M S
0017300 ( ( * C o n v e r s i o n
0017320 f u n c t i o n s : A f u n
0017340 c t i o n w i t h n a m e
0017360 C O N V . X X X w i l l t a
0017400 k e i t s a r g u m e n t
0017420 a n d \r c o n v e r t i t
0017440 t o a n x x x o r r e t
0017460 u r n i t i f i t i s
0017500 a l r e a d y o f t h a t
0017520 f o r m . ) ( F N S C O N V
0017540 . A R I T H C O N V . A R R A
0017560 Y \r C O N V . N A R R A Y C
0017600 O N V . N A R R A Y 1 C O N V
0017620 . R O W F L O A T C O N V . R
0017640 O W I N T C O N V . R O W S C
0017660 A L A R C O N V . S C A L A R
0017700 C O N V . S I M A R R A Y \r
0017720 C O N V . V E C T O R L I S P
0017740 N U M B E R ) ( I F : ( N O
0017760 T T E S T S Y S ) ( A D D V
0020000 A R S ( E R R O R T Y P E L S
0020020 T ( 1 0 ( L I S P N U M B E
0020040 R ( C A D R E R R O R M E S
0020060 S ) ) ) ) ) \r ) ) ) \r ( D E C L
0020100 A R E : E V A L @ L O A D W H
0020120 E N ( N O T T E S T S Y S )
0020140 ( A D D T O V A R E R R O R
0020160 T Y P E L S T ( 1 0 ( L I S
0020200 P N U M B E R ( C A D R E R
0020220 R O R M E S S ) ) ) ) ) \r ( P U
0020240 T P R O P S C O N V C O P Y
0020260 R I G H T ( " X e r o x C o
0020300 r p o r a t i o n " 1 9 8 3
0020320 1 9 8 4 1 9 8 5 ) ) \r N I L \r
0020340