$ od -c -N 50000 [qv]<IDL>RELEASE0.1>AT.FDCOM!1
0000000 ( F I L E C R E A T E D " 5
0000020 - S e p - 8 5 2 2 : 0 3 : 1 3
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 > A T . ; 1 0 ) " 1 6 - A
0000120 u g - 8 5 0 6 : 2 0 : 2 6 "
0000140 \r b c o m p l ' d i n " I D
0000160 L - T e s t - S y s o u t 5
0000200 - S e p - 8 5 . . . " d a t
0000220 e d " 5 - S e p - 8 5 2 1
0000240 : 3 3 : 2 8 " ) \r ( F I L E C R
0000260 E A T E D " 4 - S e p - 8 5
0000300 1 3 : 1 0 : 5 9 " { Q V } <
0000320 I D L > S O U R C E S > A T . ;
0000340 1 0 1 8 6 0 1 c h a n g e s
0000360 t o : ( V A R S A T C O M
0000400 S ) p r e v i o u s \r d a t
0000420 e : " 3 - S e p - 8 5 1 7
0000440 : 2 5 : 3 8 " { Q V } < I D L
0000460 > S O U R C E S > A T . ; 9 ) \r
0000500 A T A 0 0 0 1 D 1 \r ( N A M E
0000520 U E R R O R S E T P 1 4 Q
0000540 S P 1 3 Q T T A B P
0000560 1 2 Q N A L L S P 1 1 Q
0000600 I P 7 D I M P 6 S
0000620 P 5 T T A B P 3 S L T
0000640 R P 2 A I 1 U R E S
0000660 E T V A R S L S T I 0 U E
0000700 R R O R N A M E F 1 5 Q A
0000720 F 1 6 Q S L T R ) 001 t \r
0000740 002 \0 002 W 032 d 021 002 001 I \t \0 \0 022 W 034
0000760 021 002 003 K d 003 230 d 002 003 001 g \0 \0 360 222
0001000 h 032 [ 001 d g \0 \0 360 226 277 J K \n \0 \0
0001020 020 d g \0 \0 360 226 277 J K \n \0 \0 020 g \0
0001040 \0 360 224 J \t \0 \0 020 K 001 003 002 003 001 g \0
0001060 \0 360 262 p K i h J 006 \0 \0 311 002 006 \0 \0
0001100 310 005 g \0 \0 g \0 \0 \r 005 \0 \0 021 " \a L
0001120 003 265 \b J M \n \0 \0 020 001 ^ 003 002 003 001 g
0001140 \0 \0 360 262 035 J N 001 \n \0 \0 _ 016 277 M O
0001160 016 J N 002 002 001 O 016 \v \0 \0 \v \0 \0 260 036
0001200 \b \0 \0 262 026 o \0 \0 \0 i \n \0 \0 277 N i
0001220 \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277 L 002 \
0001240 260 260 J 006 \0 \0 311 002 006 \0 \0 310 005 k J 006
0001260 \0 \0 311 002 006 \0 \0 310 005 K \t \0 \0 331 h d
0001300 J 006 \0 \0 311 002 006 \0 \0 310 005 g \0 \0 \f \0
0001320 \0 021 024 \f j O 024 363 262 037 \b \0 \0 262 026 o
0001340 \0 \0 \0 i \n \0 \0 277 K i \n \0 \0 277 i \t
0001360 \0 \0 277 \b \0 \0 277 O 022 O 020 363 263 S O 026
0001400 O 022 d O 024 363 262 : K 001 K 002 273 _ 030 003
0001420 002 003 001 g \0 \0 360 251 J O 030 O 022 \v \0 \0
0001440 260 # \b \0 \0 262 027 o \0 \0 \0 i \n \0 \0 277
0001460 O 030 i \n \0 \0 277 i \t \0 \0 277 \b \0 \0 202
0001500 g \0 \0 \v \0 \0 277 O 022 k 324 _ 022 260 254 J
0001520 O 026 \n \0 \0 020 \0 ( 5 6 1 Q F S E
0001540 L E C T 5 4 2 Q S E T R E L
0001560 T 5 3 3 Q U E R R O R ! 5
0001600 2 7 Q T E R P R I 5 2 2 Q
0001620 P R I N 2 5 1 3 Q P R I N 1
0001640 5 0 1 Q U E R R O R P R I N
0001660 T ? 4 7 4 Q M A K E S L T R
0001700 4 2 2 Q U E R R O R ! 4 1
0001720 6 Q T E R P R I 4 1 1 Q P
0001740 R I N 2 4 0 3 Q P R I N 1
0001760 3 7 1 Q U E R R O R P R I N T
0002000 ? 3 5 5 Q D R O W C R E A T
0002020 E 3 3 1 Q L E N G T H 2 7
0002040 0 Q U E R R O R ! 2 6 4 Q
0002060 T E R P R I 2 5 7 Q P R I N
0002100 2 2 5 1 Q P R I N 1 2 3 7
0002120 Q U E R R O R P R I N T ? 2
0002140 3 2 Q S E T R E L T 2 2 7 Q
0002160 M A K E S L T R 2 0 7 Q M
0002200 A K E 1 D I M S P E C 1 6 4 Q
0002220 F S E L E C T 1 5 0 Q D R
0002240 O W C R E A T E 1 0 3 Q M A
0002260 K E U S E R T I T L E 7 1 Q
0002300 A T . C O D E 5 4 Q A T . L
0002320 A B E L 1 1 Q C O N V . A R
0002340 R A Y ) \r ( 5 3 7 Q A L L 4
0002360 6 2 Q = 3 5 2 Q P O I N T
0002400 E R 3 4 5 Q R O W H E A D E
0002420 R 3 4 0 Q A R R A Y F R A M
0002440 E 3 2 3 Q R O W H E A D E R
0002460 3 1 6 Q A R R A Y F R A M E
0002500 3 0 7 Q R O W H E A D E R
0002520 3 0 2 Q A R R A Y F R A M E
0002540 1 7 6 Q = 1 4 4 Q A L L
0002560 1 4 1 Q P O I N T E R 1 3 4
0002600 Q R O W H E A D E R 1 2 7 Q
0002620 A R R A Y F R A M E 1 1 5 Q
0002640 = 7 5 Q * T I T L E * 6
0002660 1 Q * C O D E * 4 4 Q * L
0002700 A B E L * 3 2 Q = ) \r ( 5
0002720 0 7 Q " C a n ' t m i x %
0002740 " = % " a n d p o s i t i o
0002760 n s e l e c t o r s : "
0003000 3 7 7 Q " S e l e c t o r l
0003020 i s t t o o l o n g : "
0003040 2 4 5 Q " C a n ' t m i x
0003060 % " = % " a n d p o s i t
0003100 i o n s e l e c t o r s :
0003120 " ) \r A T D 1 \r ( I 1 S L
0003140 T R I 0 A F 0 R E S
0003160 E T V A R S L S T ) \0 \n \0 001 \0
0003200 002 o \0 \0 \0 P \n \0 \0 020 \0 ( 7 A T
0003220 A 0 0 0 1 ) \r N I L \r ( 3 031
0003240 ( P R O G N ( A D D S P E L L
0003260 ( Q U O T E A T ) 1 ) (
0003300 A D D S P E L L ( Q U O T E
0003320 A T ) 2 ) ( Q U O T E A T
0003340 ) ) ) \r A T . C O D E D 1 \r (
0003360 P 3 V A L S P E C P 2
0003400 C B P 0 V A L D I M I
0003420 1 C O D E S P E C I 0 A
0003440 ) \0 206 \n \0 \0 002 @ \t \0 \0 021 021 001 H
0003460 264 023 A 002 001 264 016 @ d A 002 001 H \v \0 \0
0003500 \n \0 \0 021 021 003 H 264 G A d 002 001 241 H 020
0003520 002 002 001 263 # 021 0 006 J 260 030 d 001 Y 001 I
0003540 002 h 032 032 274 M 265 \a L h 032 ^ 201 L & 275
0003560 002 003 265 351 N 020 A 002 002 001 [ 3 020 262 * J
0003600 K 021 022 \t O 020 264 \b O 016 003 265 004 h 020 001
0003620 _ 022 277 O 020 O 022 001 \n \0 \0 223 O 022 002 020
0003640 O 016 002 _ 016 260 345 J K \n \0 \0 020 \0 ( 2
0003660 0 3 Q G E T C O D E N U M 1
0003700 6 2 Q E Q P 3 2 Q G E T C
0003720 O D E S 2 7 Q M A K E 1 S L
0003740 T R 3 G E T V A L D I M ) \r
0003760 N I L \r ( ) \r A T . L A B E L
0004000 D 1 \r ( P 2 3 Q I P 1 6
0004020 Q D P 1 4 Q $ $ T M P
0004040 P 1 0 Q G S B S P 4 L
0004060 P 2 S L T R P 0 D I
0004100 M N U M I 1 L A B S P E C
0004120 I 0 A ) 001 217 027 \0 \0 002 A d
0004140 002 002 001 242 261 \0 324 277 @ A 002 001 \n \0 \0 021
0004160 021 001 @ A 002 002 001 H \v \0 \0 021 001 002 J d
0004200 3 227 277 @ H J \v \0 \0 020 g \0 \0 360 262
0004220 5 @ 006 \0 \0 311 002 H \n \0 \0 k 021 2 \a L
0004240 K 363 263 @ H L \v \0 \0 _ 016 277 N 265 016
0004260 O 016 h 032 ^ 275 L k 324 \ 260 346 O 016 & 276
0004300 260 366 M 020 J g \0 \0 \n \0 \0 262 M J g \0
0004320 \0 \n \0 \0 021 1 \v O 020 006 \0 \0 310 \0 Y j
0004340 360 263 4 I 005 003 225 I \t \0 \0 263 * @ H J
0004360 O 020 \t \0 \0 \n \0 \0 \v \0 \0 _ 026 277 O 024
0004400 265 \r O 026 h 032 _ 024 _ 022 277 260 314 O 026 &
0004420 _ 024 277 260 304 O 022 020 \b \0 \0 262 031 o \0 \0
0004440 \0 i \n \0 \0 277 A 002 002 001 i \n \0 \0 277 i
0004460 \t \0 \0 277 \b \0 \0 020 002 001 021 001 \f O 030 d
0004500 g \0 \0 360 262 B 277 @ 006 \0 \0 311 002 006 \0 \0
0004520 310 005 k 021 2 021 O 034 O 032 363 263 ( @ O 034
0004540 \n \0 \0 _ " 277 O 265 023 O " h 032 _
0004560 _ 036 277 O 034 k 324 _ 034 260 337 O " & _
0004600 277 260 362 O 036 020 003 257 O 030 004 ` \0 \0 360 262
0004620 Q O 030 \t \0 \0 263 J @ A 002 001 \n \0 \0 021
0004640 001 002 J 006 \0 \0 310 005 k 021 2 026 O & O $
0004660 363 263 , @ J O & \n \0 \0 \n \0 \0 _ , 277
0004700 O * 265 023 O , h 032 _ * _ ( 277 O & k
0004720 324 _ & 260 333 O , & _ * 277 260 362 O ( 020
0004740 @ d A 002 001 \n \0 \0 \n \0 \0 020 \0 ( 6 1
0004760 4 Q G E T D I M L A B 6 1 1
0005000 Q M A K E 1 D I M S P E C 5
0005020 3 6 Q G E T D I M L A B 5 3
0005040 3 Q G E T R E L T 5 0 0 Q
0005060 M A K E D I M S P E C 4 6 7 Q
0005100 V S C A L A R P 4 0 4 Q G
0005120 E T D I M L A B 3 3 0 Q U E
0005140 R R O R ! 3 2 4 Q T E R P R
0005160 I 3 1 7 Q P R I N 2 3 0 6
0005200 Q P R I N 1 2 7 4 Q U E R
0005220 R O R P R I N T ? 2 3 4 Q G
0005240 E T L E V L A B 2 3 1 Q G E
0005260 T A E L T 2 2 6 Q N E X T
0005300 2 1 4 Q \ F Z E R O P 1 6 5
0005320 Q S E T U P 1 5 4 Q A R R
0005340 A Y T Y P E P 1 1 3 Q G E T
0005360 L E V L A B 7 4 Q G E T R E
0005400 L T 5 3 Q G E T L E V L A B
0005420 3 4 Q M A K E S L T R 2 0
0005440 Q M A K E 1 D I M S P E C ) \r
0005460 ( 5 0 7 Q R O W H E A D E R
0005500 4 5 7 Q 004 003 A R R A Y F R A M
0005520 E T Y P E # 3 6 1 Q R O W H
0005540 E A D E R 3 5 4 Q A R R A Y
0005560 F R A M E 3 4 4 Q A L L 1
0005600 7 5 Q G E N S T A T E B L O C
0005620 K 1 6 2 Q R O W M A J O R
0005640 1 5 1 Q V E C T O R 6 6 Q
0005660 A R R A Y F R A M E 5 7 Q A
0005700 L L ) \r ( 3 0 2 Q " I n v a
0005720 l i d l a b e l s e l e c t
0005740 o r : " ) \r C O D E A 0 0 0
0005760 1 A 0 0 0 2 D 1 \r ( N A M E
0006000 U E R R O R S E T I 1 U R
0006020 E S E T V A R S L S T I 0
0006040 U E R R O R N A M E F 0 U
0006060 A R G F 1 L E V ) \0 016 \0
0006100 002 \0 002 P \t \0 \0 c 002 264 006 \b \0 \0 h 020
0006120 \0 ( 1 2 Q U E R R O R ! 3
0006140 C O N V . S C A L A R ) \r N I L
0006160 \r ( ) \r C O D E A 0 0 0 1 A 0 0
0006200 0 3 D 1 \r ( N A M E U E R R
0006220 O R S E T I 1 U R E S E T
0006240 V A R S L S T I 0 U E R R
0006260 O R N A M E F 0 U A R G
0006300 F 1 L E V ) \0 \f \0 002 \0 002 P
0006320 \t \0 \0 \t \0 \0 c 002 h 020 \0 ( 6 F I
0006340 X R 3 C O N V . A R I T H )
0006360 \r N I L \r ( ) \r C O D E A 0 0 0
0006400 1 A 0 0 0 4 D 1 \r ( N A M E
0006420 U E R R O R S E T I 1 U R
0006440 E S E T V A R S L S T I 0
0006460 U E R R O R N A M E F 0 U
0006500 A R G F 1 V A L ) \0 016 \0
0006520 002 \0 002 P \t \0 \0 c 002 264 006 \b \0 \0 h 020
0006540 \0 ( 1 2 Q U E R R O R ! 3
0006560 C O N V . S C A L A R ) \r N I L
0006600 \r ( ) \r C O D E A 0 0 0 1 A 0 0
0006620 0 5 D 1 \r ( N A M E U E R R
0006640 O R S E T I 1 U R E S E T
0006660 V A R S L S T I 0 U E R R
0006700 O R N A M E F 0 U A R G
0006720 F 1 V A L ) \0 \t \0 002 \0 002 P
0006740 \t \0 \0 c 002 h 020 \0 ( 3 C O N V .
0006760 A R I T H ) \r N I L \r ( ) \r C O
0007000 D E A 0 0 0 1 D 1 \r ( N A M E
0007020 U E R R O R S E T P 3 U
0007040 A R G P 2 V A L P 1
0007060 U A R G P 0 L E V I 1
0007100 U R E S E T V A R S L S T I
0007120 0 U E R R O R N A M E F
0007140 6 R E S E T V A R S L S T F
0007160 7 L E V F 1 0 Q V A L
0007200 ) \0 232 006 003 \0 002 W 016 d 021 002 001 H d
0007220 262 = d 004 l 004 360 263 6 3 265 2 g \0 \0
0007240 V \n \0 \0 262 ( g \0 \0 V \n \0 \0 262 037 \b
0007260 \0 \0 262 026 o \0 \0 \0 i \n \0 \0 277 I i \n
0007300 \0 \0 277 i \t \0 \0 277 \b \0 \0 277 H 022 W 020
0007320 d 021 002 003 J d 262 = d 004 l 004 360 263 6 3
0007340 020 265 2 g \0 \0 V \n \0 \0 262 ( g \0 \0 V
0007360 \n \0 \0 262 037 \b \0 \0 262 026 o \0 \0 \0 i \n
0007400 \0 \0 277 K i \n \0 \0 277 i \t \0 \0 277 \b \0
0007420 \0 277 J 022 021 002 005 g \0 \0 L M h 032 032 032
0007440 020 \0 ( 2 1 0 Q U E R R O R !
0007460 2 0 4 Q T E R P R I 1 7 7 Q
0007500 P R I N 2 1 7 1 Q P R I N
0007520 1 1 5 7 Q U E R R O R P R I
0007540 N T ? 1 5 2 Q C O D E A 0 0
0007560 0 1 A 0 0 0 5 1 4 1 Q C O D
0007600 E A 0 0 0 1 A 0 0 0 4 1 0 2 Q
0007620 U E R R O R ! 7 6 Q T E R
0007640 P R I 7 1 Q P R I N 2 6 3
0007660 Q P R I N 1 5 1 Q U E R R
0007700 O R P R I N T ? 4 4 Q C O D
0007720 E A 0 0 0 1 A 0 0 0 3 3 3 Q
0007740 C O D E A 0 0 0 1 A 0 0 0 2 ) \r
0007760 ( 2 2 1 Q * C O D E * 1 4 6
0010000 Q U E R R O R G U A R D 1 3
0010020 5 Q U E R R O R G U A R D 4
0010040 0 Q U E R R O R G U A R D 2
0010060 7 Q U E R R O R G U A R D ) \r
0010100 ( 1 6 5 Q " I n v a l i d
0010120 V A L : " 5 7 Q " I n v
0010140 a l i d L E V : " ) \r C O
0010160 D E D 1 \r ( I 1 V A L I
0010200 0 L E V F 0 R E S E T
0010220 V A R S L S T ) \0 \n \0 001 \0 002 o
0010240 \0 \0 \0 P \n \0 \0 020 \0 ( 7 C O D E
0010260 A 0 0 0 1 ) \r N I L \r ( 3 031
0010300 ( P R O G N ( A D D S P E L L
0010320 ( Q U O T E C O D E ) 1 )
0010340 ( A D D S P E L L ( Q U O T
0010360 E C O D E ) 2 ) ( Q U O T
0010400 E C O D E ) ) ) \r I N D E X A
0010420 0 0 0 1 A 0 0 0 2 D 1 \r ( N A
0010440 M E E R R O R S E T F 0
0010460 N O S P E L L F 1 N O S P
0010500 E L L F L G F 2 D I M F
0010520 3 A F 4 L E V ) \0 016
0010540 \0 005 002 \0 P c 002 277 S T R \v \0 \0 h 032
0010560 020 \0 ( 1 1 Q I N D E X 1 ) \r N
0010600 I L \r ( ) \r I N D E X A 0 0 0 1
0010620 A 0 0 0 3 D 1 \r ( N A M E E
0010640 R R O R S E T F 0 N O S P
0010660 E L L F 1 N O S P E L L F
0010700 L G F 2 A F 3 D I M
0010720 ) \0 \r \0 004 002 \0 P c 002 277 R S \n \0
0010740 \0 h 032 020 \0 ( 1 0 Q I N D E X 1
0010760 ) \r N I L \r ( ) \r I N D E X A 0
0011000 0 0 1 D 1 \r ( N A M E U E R
0011020 R O R S E T P 1 1 Q M A C
0011040 R O Y P 1 0 Q M A C R O X
0011060 P 7 M A C R O Y P 6
0011100 M A C R O X P 5 N O S P E
0011120 L L P 4 L E V P 3 D
0011140 I M P 2 A I 1 U R E
0011160 S E T V A R S L S T I 0 U
0011200 E R R O R N A M E F 1 2 Q
0011220 R E S E T V A R S L S T F 1
0011240 3 Q N O S P E L L F L G F
0011260 1 4 Q N O S P E L L F 1 5
0011300 Q A F 1 6 Q D I M F
0011320 1 7 Q L E V ) \0 340 \n 006 \0 002 W
0011340 032 d 021 002 001 I \t \0 \0 022 W 034 W 036 W 030
0011360 d 223 d i 360 222 277 i 201 277 h 263 \b \0 \0
0011400 262 027 o \0 \0 \0 i \n \0 \0 277 W 030 i \n \0
0011420 \0 277 i \t \0 \0 277 \b \0 \0 277 W 030 021 004 005
0011440 L 262 Q J K \n \0 \0 [ g \0 \0 W 026 032 W
0011460 024 032 c 024 021 021 \a W 024 _ 016 o \0 \0 \0 g
0011500 \0 \0 \n \0 \0 N 001 002 c 026 277 O 016 d W 024
0011520 360 226 277 N 002 c 024 260 023 W 024 \n \0 \0 233 W
0011540 024 k O 016 \v \0 \0 N 002 031 277 265 005 \b \0 \0
0011560 001 020 g \0 \0 W 026 032 W 024 032 c 024 021 021 \t
0011600 W 024 _ 022 o \0 \0 \0 g \0 \0 \n \0 \0 O 020
0011620 001 002 c 026 277 O 022 d W 024 360 227 277 O 020 002
0011640 c 024 260 024 W 024 \n \0 \0 234 W 024 k O 022 \v
0011660 \0 \0 O 020 002 031 277 265 005 \b \0 \0 001 020 \0 (
0011700 3 3 4 Q E R R O R ! 3 2 2 Q
0011720 N L E F T 3 1 1 Q T A I L
0011740 P 2 5 6 Q I N D E X A 0 0 0
0011760 1 A 0 0 0 3 2 2 0 Q E R R O
0012000 R ! 2 0 7 Q N L E F T 1 7
0012020 6 Q T A I L P 1 4 5 Q I N
0012040 D E X A 0 0 0 1 A 0 0 0 2 1 1
0012060 0 Q M A K E 1 D I M S P E C
0012100 7 2 Q U E R R O R ! 6 6 Q
0012120 T E R P R I 6 1 Q P R I N 2
0012140 5 2 Q P R I N 1 4 0 Q U
0012160 E R R O R P R I N T ? 1 1 Q
0012200 C O N V . A R R A Y ) \r ( 2 5 3
0012220 Q I N T E R N A L 2 2 5 Q
0012240 N O S P E L L F L G 1 4 2 Q
0012260 I N T E R N A L 1 1 4 Q N O
0012300 S P E L L F L G ) \r ( 2 5 0 Q
0012320 ( I N D E X A 0 0 0 1 A 0 0 0
0012340 3 ) 1 3 7 Q ( I N D E X A 0
0012360 0 0 1 A 0 0 0 2 ) 4 6 Q " I
0012400 n v a l i d N O S P E L L :
0012420 " ) \r I N D E X D 1 \r ( I
0012440 3 N O S P E L L I 2 L E
0012460 V I 1 D I M I 0 A
0012500 F 0 R E S E T V A R S L S T
0012520 ) \0 \n \0 001 \0 004 o \0 \0 \0 P \n \0 \0
0012540 020 \0 ( 7 I N D E X A 0 0 0 1 )
0012560 \r N I L \r ( 3 031 ( P R O G N
0012600 ( A D D S P E L L ( Q U O T
0012620 E I N D E X ) 1 ) ( A D D
0012640 S P E L L ( Q U O T E I N D
0012660 E X ) 2 ) ( Q U O T E I N
0012700 D E X ) ) ) \r I N D E X 1 A 0 0
0012720 0 1 D 1 \r ( N A M E U E R R
0012740 O R S E T P 5 E B J P
0012760 4 J P 3 T O P P 1
0013000 C O P I E D P 0 E B I
0013020 1 U R E S E T V A R S L S T
0013040 I 0 U E R R O R N A M E F
0013060 6 S P E C F 7 V A L
0013100 F 1 0 Q A F 1 1 Q D I
0013120 M F 1 2 Q L I M ) \0 374 006
0013140 005 \0 002 V d g \0 \0 360 234 277 k W 024 \n \0
0013160 \0 \t \0 \0 261 \0 346 003 233 V W 020 W 022 i \f
0013200 \0 \0 261 \0 330 V 004 ` \0 \0 360 242 261 \0 272 V
0013220 \t \0 \0 222 261 \0 262 021 001 V g \0 \0 \n \0
0013240 \0 262 026 g \0 \0 V 006 \0 \0 311 \b X \n \0 \0
0013260 225 V c 016 277 260 023 V g \0 \0 \n \0 \0 c 016
0013300 006 \0 \0 311 \b 270 i 271 H 006 \0 \0 310 005 W 024
0013320 k 330 021 " 005 k \ J 363 263 _ H L \n \0 \0
0013340 ] 262 R W 022 230 W 020 W 022 M \v \0 \0 205 W
0013360 020 M \n \0 \0 263 > I 263 025 i 271 W 016 g \0
0013400 \0 \n \0 \0 c 016 006 \0 \0 311 \b X 200 H L j
0013420 M 363 264 035 W 022 233 W 020 W 022 M K 324 ] \v
0013440 \0 \0 210 W 020 M K 324 ] \n \0 \0 264 003 M \v
0013460 \0 \0 277 L k 324 260 240 023 I 247 W 016 \t \0 \0
0013500 c 016 277 023 260 030 W 022 231 W 020 V W 022 i \f
0013520 \0 \0 206 W 020 V i \v \0 \0 c 016 h 020 \0 (
0013540 3 6 6 Q M A K E 1 D I M S P E
0013560 C 3 5 6 Q M A K E 1 S L T R
0013600 3 3 4 Q P R E S E R V E 3
0013620 1 6 Q S E T R E L T 3 1 0 Q
0013640 D I M E N S I O N P 2 7 6 Q
0013660 L E V E L P 2 4 0 Q C O P
0013700 Y I D L A R R A Y 2 2 1 Q D
0013720 I M E N S I O N P 2 1 2 Q L
0013740 E V E L P 1 7 4 Q G E T R E
0013760 L T 1 3 2 Q C O P Y I D L A
0014000 R R A Y 1 1 4 Q R O W T Y P
0014020 E P 7 5 Q A R R A Y T Y P E
0014040 P 5 7 Q V S C A L A R P 3
0014060 6 Q C O N V . N A R R A Y 2
0014100 0 Q V F R O M R 1 5 Q G E
0014120 N R O W ) \r ( 2 4 5 Q A R R A
0014140 Y F R A M E 2 3 5 Q I N T E
0014160 G E R 1 5 0 Q R O W H E A D
0014200 E R 1 3 7 Q A R R A Y F R A
0014220 M E 1 2 7 Q I N T E G E R
0014240 1 0 6 Q A R R A Y F R A M E
0014260 1 0 2 Q R O W I N T 7 2 Q
0014300 S I M P L E 4 6 Q 004 003 A R R
0014320 A Y F R A M E T Y P E # 4 A
0014340 L L ) \r ( ) \r I N D E X 1 D 1
0014360 \r ( P 1 V A L P 0 L I
0014400 M I 2 D I M I 1 S P
0014420 E C I 0 A F 2 R E S
0014440 E T V A R S L S T ) \0 W 002 001 \0
0014460 003 B 232 @ 006 \0 \0 311 002 B \n \0 \0 212 @ 006
0014500 \0 \0 311 002 006 \0 \0 310 005 021 021 001 g \0 \0 R
0014520 \n \0 \0 262 2 \b \0 \0 262 * B 262 023 o \0 \0
0014540 \0 i \n \0 \0 277 B i \n \0 \0 277 B 203 o \0
0014560 \0 \0 i \n \0 \0 277 A i \n \0 \0 277 i \t \0
0014600 \0 277 \b \0 \0 I 020 \0 ( 1 2 3 Q U E
0014620 R R O R ! 1 1 7 Q T E R P R
0014640 I 1 1 2 Q P R I N 2 1 0 4
0014660 Q P R I N 1 7 1 Q P R I N
0014700 1 6 3 Q P R I N 1 4 6 Q
0014720 U E R R O R P R I N T ? 4 1 Q
0014740 I N D E X 1 A 0 0 0 1 1 3 Q
0014760 G E T R E L T ) \r ( 3 5 Q U
0015000 E R R O R G U A R D 2 5 Q R
0015020 O W H E A D E R 2 0 Q A R R
0015040 A Y F R A M E 5 A R R A Y F
0015060 R A M E ) \r ( 1 0 0 Q " I n
0015100 v a l i d d i m e n s i o n
0015120 s p e c i f i c a t i o n :
0015140 " 5 7 Q " I n v a l i d s
0015160 e l e c t o r f o r d i m e
0015200 n s i o n " ) \r L A B E L A 0
0015220 0 0 1 D 1 \r ( N A M E U E R
0015240 R O R S E T I 1 U R E S E
0015260 T V A R S L S T I 0 U E R
0015300 R O R N A M E F 2 D I M
0015320 F 3 L E V ) \0 020 002 002 \0 002 R
0015340 S 021 002 001 g \0 \0 H I h 032 032 032 020 \0 N
0015360 I L \r ( 7 * L A B E L * ) \r (
0015400 ) \r L A B E L D 1 \r ( I 1
0015420 L E V I 0 D I M F 0
0015440 R E S E T V A R S L S T ) \0 \n
0015460 \0 001 \0 002 o \0 \0 \0 P \n \0 \0 020 \0 ( 7
0015500 L A B E L A 0 0 0 1 ) \r N I L
0015520 \r ( 3 031 ( P R O G N ( A D
0015540 D S P E L L ( Q U O T E L A
0015560 B E L ) 1 ) ( A D D S P E L
0015600 L ( Q U O T E L A B E L )
0015620 2 ) ( Q U O T E L A B E L )
0015640 ) ) \r M A K E 1 D I M S P E C A
0015660 0 0 0 1 D 1 \r ( N A M E E R
0015700 R O R S E T F 0 D I M S P
0015720 E C ) \0 \t \0 001 002 \0 P \t \0 \0 c \0
0015740 i 020 \0 ( 3 M K A T O M ) \r N I
0015760 L \r ( ) \r M A K E 1 D I M S P E
0016000 C A 0 0 0 2 D 1 \r ( N A M E
0016020 U E R R O R S E T I 1 U R
0016040 E S E T V A R S L S T I 0
0016060 U E R R O R N A M E F 0 D
0016100 I M N U M F 1 A F 2
0016120 D I M S P E C F 3 P R E D
0016140 F L A G ) \0 ; \0 004 \0 002 R \t \0 \0
0016160 c \0 262 - Q P \t \0 \0 c \0 \n \0 \0 263 &
0016200 j P 363 264 031 Q P Q 006 \0 \0 311 002 006 \0 \0
0016220 310 005 k 324 324 c \0 \n \0 \0 250 h c \0 244 S
0016240 242 \b \0 \0 h 020 \0 ( 6 7 Q U E R R
0016260 O R ! 5 5 Q D I M E N S I O
0016300 N P 2 1 Q D I M E N S I O N
0016320 P 1 4 Q F I X R 3 C O N
0016340 V . S C A L A R ) \r ( 4 3 Q R
0016360 O W H E A D E R 3 6 Q A R R
0016400 A Y F R A M E ) \r ( ) \r M A K E
0016420 1 D I M S P E C D 1 \r ( P 0
0016440 D I M N U M I 2 P R E D
0016460 F L A G I 1 D I M S P E C
0016500 I 0 A F 1 R E S E T
0016520 V A R S L S T ) \0 206 001 001 \0 003 A
0016540 005 \a 262 ( o \0 \0 \0 \t \0 \0 263 037 \b \0 \0
0016560 262 026 o \0 \0 \0 i \n \0 \0 277 A i \n \0 \0
0016600 277 i \t \0 \0 277 \b \0 \0 277 A 004 l 004 360 262
0016620 + @ A \n \0 \0 265 # B 263 037 \b \0 \0 262 026
0016640 o \0 \0 \0 i \n \0 \0 277 A i \n \0 \0 277 i
0016660 \t \0 \0 277 \b \0 \0 020 h 020 021 020 \0 g \0 \0
0016700 Q \n \0 \0 262 036 \b \0 \0 262 026 o \0 \0 \0 i
0016720 \n \0 \0 277 A i \n \0 \0 277 i \t \0 \0 277 \b
0016740 \0 \0 H 020 \0 ( 2 0 2 Q U E R R O
0016760 R ! 1 7 6 Q T E R P R I 1
0017000 7 1 Q P R I N 2 1 6 3 Q P
0017020 R I N 1 1 5 1 Q U E R R O R
0017040 P R I N T ? 1 4 4 Q M A K E
0017060 1 D I M S P E C A 0 0 0 2 1 2
0017100 7 Q U E R R O R ! 1 2 3 Q
0017120 T E R P R I 1 1 6 Q P R I N
0017140 2 1 1 0 Q P R I N 1 7 6 Q
0017160 U E R R O R P R I N T ? 6 6
0017200 Q G E T D I M N U M 5 1 Q
0017220 U E R R O R ! 4 5 Q T E R P
0017240 R I 4 0 Q P R I N 2 3 2 Q
0017260 P R I N 1 2 0 Q U E R R O
0017300 R P R I N T ? 1 3 Q M A K E
0017320 1 D I M S P E C A 0 0 0 1 ) \r (
0017340 1 4 0 Q U E R R O R G U A R D
0017360 ) \r ( 1 5 7 Q " I n v a l i
0017400 d d i m e n s i o n s p e c
0017420 i f i c a t i o n : " 1 0
0017440 4 Q " I n v a l i d d i m e
0017460 n s i o n s p e c i f i c a t
0017500 i o n : " 2 6 Q " L a b
0017520 e l t o o l o n g : "
0017540 1 0 Q ( M A K E 1 D I M S P E
0017560 C A 0 0 0 1 ) ) \r M A K E D I M
0017600 S P E C A 0 0 0 1 D 1 \r ( N A
0017620 M E U E R R O R S E T P 6
0017640 D P 5 I P 3 C O P
0017660 I E D P 2 D I P 1 I
0017700 I 1 U R E S E T V A R S L
0017720 S T I 0 U E R R O R N A M
0017740 E F 7 D R O W F 1 0 Q
0017760 D S P E C F 1 1 Q A R Y
0020000 ) \0 302 \a 003 \0 002 W 020 g \0 \0 \n \0 \0
0020020 262 ] W 020 \t \0 \0 c 016 006 \0 \0 310 005 021 1
0020040 003 k Y H 363 263 E W 022 W 016 I \n \0 \0 Z
0020060 \n \0 \0 263 2 j J 363 262 ) W 022 J W 016 006
0020100 \0 \0 310 005 k 324 324 Z \n \0 \0 262 026 K 251 W
0020120 016 \t \0 \0 c 016 277 i 273 W 016 I J \v \0 \0
0020140 202 \b \0 \0 277 I k 324 260 272 023 260 D W 020 d
0020160 g \0 \0 360 262 030 277 k W 022 006 \0 \0 311 002 006
0020200 \0 \0 310 005 \n \0 \0 c 016 277 260 % 003 246 W 020
0020220 h 032 c 020 277 h d W 020 \t \0 \0 g \0 \0 \f
0020240 \0 \0 c 016 277 W 020 k 021 022 006 L 003 265 004 h
0020260 020 001 276 W 016 M W 022 N \n \0 \0 \v \0 \0 277
0020300 L 002 274 M k 324 275 260 344 \0 ( 2 6 6 Q
0020320 S E T R E L T 2 6 3 Q M A K
0020340 E 1 D I M S P E C 2 3 1 Q D
0020360 R O W C R E A T E 2 2 3 Q L
0020400 E N G T H 1 7 6 Q G E N R O
0020420 W 1 3 3 Q U E R R O R ! 1
0020440 2 7 Q S E T R E L T 1 1 3 Q
0020460 C O P Y R O W 1 0 2 Q D I
0020500 M E N S I O N P 5 2 Q D I M
0020520 E N S I O N P 4 6 Q G E T R
0020540 E L T 1 6 Q C O N V . R O W
0020560 I N T 7 A R R A Y T Y P E P
0020600 ) \r ( 2 2 6 Q I N T E G E R
0020620 1 7 1 Q R O W H E A D E R 1
0020640 6 4 Q A R R A Y F R A M E 1
0020660 5 2 Q A L L 7 1 Q R O W H
0020700 E A D E R 2 3 Q R O W H E A
0020720 D E R 4 V E C T O R ) \r ( )
0020740 \r M A K E D I M S P E C D 1 \r
0020760 ( P 0 D R O W I 1 D S
0021000 P E C I 0 A R Y F 1
0021020 R E S E T V A R S L S T ) \0 +
0021040 001 001 \0 002 021 020 \0 g \0 \0 Q \n \0 \0 262 036
0021060 \b \0 \0 262 026 o \0 \0 \0 i \n \0 \0 277 A i
0021100 \n \0 \0 277 i \t \0 \0 277 \b \0 \0 H 020 \0 (
0021120 4 7 Q U E R R O R ! 4 3 Q
0021140 T E R P R I 3 6 Q P R I N 2
0021160 3 0 Q P R I N 1 1 6 Q U
0021200 E R R O R P R I N T ? 1 1 Q
0021220 M A K E D I M S P E C A 0 0 0 1
0021240 ) \r ( 5 U E R R O R G U A R D
0021260 ) \r ( 2 4 Q " I n v a l i d
0021300 d i m e n s i o n s p e c i
0021320 f i c a t i o n : " ) \r M A
0021340 K E 1 S L T R A 0 0 0 1 D 1 \r
0021360 ( N A M E E R R O R S E T F
0021400 0 S E L ) \0 \t \0 001 002 \0 P \t
0021420 \0 \0 c \0 i 020 \0 ( 3 M K A T O M
0021440 ) \r N I L \r ( ) \r M A K E 1 S L
0021460 T R A 0 0 0 2 D 1 \r ( N A M E
0021500 U E R R O R S E T I 1 U
0021520 R E S E T V A R S L S T I 0
0021540 U E R R O R N A M E F 0
0021560 L E V N U M F 1 A F 2
0021600 D I M F 3 S E L F 4
0021620 P R E D F L A G ) \0 < \0 005 \0
0021640 002 S \t \0 \0 c \0 262 . Q R P \t \0 \0 c
0021660 \0 \v \0 \0 263 & j P 363 264 031 Q R P Q 006
0021700 \0 \0 311 002 R \n \0 \0 k 324 324 c \0 \v \0 \0
0021720 250 h c \0 244 T 242 \b \0 \0 h 020 \0 ( 7 0
0021740 Q U E R R O R ! 5 6 Q L E
0021760 V E L P 4 6 Q G E T R E L T
0022000 2 2 Q L E V E L P 1 5 Q
0022020 F I X R 3 C O N V . S C A L
0022040 A R ) \r ( 4 0 Q A R R A Y F R
0022060 A M E ) \r ( ) \r M A K E 1 S L T
0022100 R D 1 \r ( P 0 L E V N U M
0022120 I 3 P R E D F L A G I
0022140 2 D I M I 1 S E L I
0022160 0 A F 1 R E S E T V A R
0022200 S L S T ) \0 207 001 001 \0 004 A 005 \a 262
0022220 ( o \0 \0 \0 \t \0 \0 263 037 \b \0 \0 262 026 o
0022240 \0 \0 \0 i \n \0 \0 277 A i \n \0 \0 277 i \t
0022260 \0 \0 277 \b \0 \0 277 A 004 l 004 360 262 , @ B
0022300 A \v \0 \0 265 # C 263 037 \b \0 \0 262 026 o \0
0022320 \0 \0 i \n \0 \0 277 A i \n \0 \0 277 i \t \0
0022340 \0 277 \b \0 \0 020 h 020 021 020 \0 g \0 \0 Q \n
0022360 \0 \0 262 036 \b \0 \0 262 026 o \0 \0 \0 i \n \0
0022400 \0 277 A i \n \0 \0 277 i \t \0 \0 277 \b \0 \0
0022420 H 020 \0 ( 2 0 3 Q U E R R O R !
0022440 1 7 7 Q T E R P R I 1 7 2
0022460 Q P R I N 2 1 6 4 Q P R I
0022500 N 1 1 5 2 Q U E R R O R P R
0022520 I N T ? 1 4 5 Q M A K E 1 S
0022540 L T R A 0 0 0 2 1 3 0 Q U E
0022560 R R O R ! 1 2 4 Q T E R P R
0022600 I 1 1 7 Q P R I N 2 1 1 1
0022620 Q P R I N 1 7 7 Q U E R R
0022640 O R P R I N T ? 6 7 Q G E T
0022660 L E V N U M 5 1 Q U E R R O
0022700 R ! 4 5 Q T E R P R I 4 0
0022720 Q P R I N 2 3 2 Q P R I N
0022740 1 2 0 Q U E R R O R P R I N
0022760 T ? 1 3 Q M A K E 1 S L T R
0023000 A 0 0 0 1 ) \r ( 1 4 1 Q U E R
0023020 R O R G U A R D ) \r ( 1 6 0 Q
0023040 " I n v a l i d l e v e l
0023060 s p e c i f i c a t i o n :
0023100 " 1 0 5 Q " I n v a l i d
0023120 l e v e l s p e c i f i c a t
0023140 i o n : " 2 6 Q " L a b
0023160 e l t o o l o n g : "
0023200 1 0 Q ( M A K E 1 S L T R A 0
0023220 0 0 1 ) ) \r M A K E S L T R A 0
0023240 0 0 1 D 1 \r ( N A M E U E R
0023260 R O R S E T P 5 E B J P
0023300 4 J P 3 T O P P 1
0023320 C O P I E D P 0 E B I
0023340 1 U R E S E T V A R S L S T
0023360 I 0 U E R R O R N A M E
0023400 F 6 S E L F 7 V A L
0023420 F 1 0 Q A F 1 1 Q D I
0023440 M ) \0 344 006 004 \0 002 V d g \0 \0 360 226
0023460 277 g \0 \0 261 \0 324 003 232 V W 020 W 022 \v \0
0023500 \0 261 \0 307 V 004 ` \0 \0 360 242 261 \0 265 V \t
0023520 \0 \0 222 261 \0 255 021 001 V g \0 \0 \n \0 \0
0023540 262 025 g \0 \0 V 006 \0 \0 311 \b X \n \0 \0 224
0023560 V c 016 260 033 V g \0 \0 \n \0 \0 c 016 006 \0
0023600 \0 311 \b X \t \0 \0 223 \b \0 \0 201 i Y 277 H
0023620 006 \0 \0 310 005 W 020 006 \0 \0 311 002 W 022 \n \0
0023640 \0 k 330 021 " 005 k \ J 363 263 I W 020 W 022
0023660 H L \n \0 \0 ] \v \0 \0 263 5 j M 363 262 ,
0023700 W 020 W 022 M K 324 ] \v \0 \0 262 037 I 263 025
0023720 i 271 W 016 g \0 \0 \n \0 \0 c 016 006 \0 \0 311
0023740 \b X 200 H L M \v \0 \0 202 \b \0 \0 277 L k
0023760 324 260 266 023 I 247 W 016 \t \0 \0 c 016 277 023 211
0024000 W 020 V W 022 \v \0 \0 c 016 h 020 \0 ( 3 3
0024020 6 Q M A K E 1 S L T R 3 2 1
0024040 Q P R E S E R V E 3 0 3 Q
0024060 U E R R O R ! 2 7 7 Q S E T
0024100 R E L T 2 6 0 Q C O P Y I D
0024120 L A R R A Y 2 4 1 Q L E V E
0024140 L P 2 1 7 Q L E V E L P 2
0024160 1 3 Q G E T R E L T 1 6 7 Q
0024200 G E T R E L T 1 4 1 Q U E
0024220 R R O R ! 1 3 5 Q H A S N I
0024240 L S 1 2 2 Q C O P Y I D L A
0024260 R R A Y 1 0 5 Q R O W T Y P
0024300 E P 6 6 Q A R R A Y T Y P E
0024320 P 5 0 Q V S C A L A R P 2
0024340 7 Q C O N V . N A R R A Y ) \r
0024360 ( 2 6 5 Q A R R A Y F R A M E
0024400 2 5 5 Q I N T E G E R 1 6
0024420 0 Q A R R A Y F R A M E 1 5
0024440 1 Q R O W H E A D E R 1 2 7
0024460 Q A R R A Y F R A M E 1 1 7
0024500 Q I N T E G E R 7 7 Q A R
0024520 R A Y F R A M E 7 3 Q R O W
0024540 I N T 6 3 Q S I M P L E 3
0024560 7 Q 004 003 A R R A Y F R A M E T
0024600 Y P E # 1 2 Q A L L 4 A
0024620 L L ) \r ( ) \r M A K E S L T R
0024640 D 1 \r ( P 0 V A L I 2
0024660 D I M I 1 S E L I 0
0024700 A F 1 R E S E T V A R S L
0024720 S T ) \0 : 001 001 \0 003 021 020 \0 g \0 \0
0024740 Q \n \0 \0 262 - \b \0 \0 262 % o \0 \0 \0 i
0024760 \n \0 \0 277 B i \n \0 \0 277 o \0 \0 \0 i \n
0025000 \0 \0 277 A i \n \0 \0 277 i \t \0 \0 277 \b \0
0025020 \0 H 020 \0 ( 6 6 Q U E R R O R !
0025040 6 2 Q T E R P R I 5 5 Q
0025060 P R I N 2 4 7 Q P R I N 1
0025100 3 6 Q P R I N 1 3 0 Q P R
0025120 I N 1 1 6 Q U E R R O R P R
0025140 I N T ? 1 1 Q M A K E S L T
0025160 R A 0 0 0 1 ) \r ( 5 U E R R O
0025200 R G U A R D ) \r ( 4 3 Q " :
0025220 " 2 4 Q " I l l e g a l
0025240 s e l e c t o r f o r d i
0025260 m e n s i o n " ) \r T I T L E
0025300 D 1 \r N I L \0 \a \0 \0 \0 \0 g \0
0025320 \0 h 032 020 \0 N I L \r ( 2 * T I T
0025340 L E * ) \r ( ) \r ( P R E T T Y C
0025360 O M P R I N T A T C O M S ) \r
0025400 ( R P A Q Q A T C O M S ( (
0025420 * T h i s f i l e c o n t
0025440 a i n s t h e u s e r i n
0025460 t e r f a c e t o t h e s
0025500 e l e c t i o n o p e r a t i
0025520 o n s ) ( F N S A T A T .
0025540 C O D E \r A T . L A B E L C
0025560 O D E I N D E X I N D E X 1
0025600 L A B E L M A K E 1 D I M S
0025620 P E C M A K E D I M S P E C
0025640 M A K E 1 S L T R M A K E S L
0025660 T R T I T L E ) ( P R O P
0025700 ( C L I S P I N F I X \r S E T
0025720 F N ) A T ) ( P R O P ( C
0025740 L I S P T Y P E L I S P F N )
0025760 @ ) ( I F : T E S T S Y S
0026000 ( R E C O R D S C O D E S L
0026020 T R L A B S L T R T I T L E
0026040 S L T R ) ) ( V A R S ( A L
0026060 L ( \r Q U O T E A L L ) ) )
0026100 ( D E C L A R E : D O N T E
0026120 V A L @ L O A D D O E V A L @
0026140 C O M P I L E D O N T C O P Y
0026160 C O M P I L E R V A R S ( A
0026200 D D V A R S ( N L A M A ) (
0026220 N L A M L ) ( \r L A M A ) ) )
0026240 ) ) \r ( P U T P R O P S A T
0026260 C L I S P I N F I X @ ) \r ( P
0026300 U T P R O P S A T S E T F N
0026320 A T . A S S I G N ) \r ( P U T
0026340 P R O P S @ C L I S P T Y P
0026360 E ( 1 2 . 1 5 ) ) \r ( P U
0026400 T P R O P S @ L I S P F N
0026420 A T ) \r ( D E C L A R E : E V
0026440 A L @ L O A D W H E N T E S T
0026460 S Y S ( D E C L A R E : E V
0026500 A L @ C O M P I L E ( R E C O
0026520 R D C O D E S L T R ( K E Y
0026540 C L E V V A L ) K E Y _
0026560 ( Q U O T E \r * C O D E * )
0026600 ( T Y P E ? ( E Q ( C A R
0026620 ( L I S T P D A T U M ) )
0026640 ( Q U O T E * C O D E * ) ) )
0026660 ) ( R E C O R D L A B S L T
0026700 R ( K E Y D I M L L E V )
0026720 K E Y _ ( Q U O T E \r *
0026740 L A B E L * ) ( T Y P E ? (
0026760 E Q ( C A R ( L I S T P D
0027000 A T U M ) ) ( Q U O T E * L
0027020 A B E L * ) ) ) ) ( R E C O R
0027040 D T I T L E S L T R ( K E Y
0027060 ) K E Y _ ( Q U O T E \r
0027100 * T I T L E * ) ( T Y P E ?
0027120 ( E Q ( C A R ( L I S T P
0027140 D A T U M ) ) ( Q U O T E *
0027160 T I T L E * ) ) ) ) ) ) \r ( R P
0027200 A Q Q A L L A L L ) \r ( P U
0027220 T P R O P S A T C O P Y R I
0027240 G H T ( " X e r o x C o r p
0027260 o r a t i o n " 1 9 8 3 1 9
0027300 8 4 1 9 8 5 ) ) \r N I L \r
0027316