$ od -c -N 50000 [qv]<IDL>FAST>DATAENTRY.FDCOM!2
0000000 ( F I L E C R E A T E D " 3
0000020 - A p r - 8 6 0 0 : 0 8 : 3 5
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 > D A T A E N T R Y . ; 1 1
0000120 ) " 1 2 - N o v - 8 5 1 4 :
0000140 5 9 : 2 3 " \r t c o m p l ' d
0000160 i n " I N T E R L I S P - D
0000200 7 - F e b - 8 6 . . . "
0000220 d a t e d " 7 - F e b - 8 6
0000240 1 1 : 4 3 : 0 5 " ) \r ( F I L
0000260 E C R E A T E D " 1 1 - F e b
0000300 - 8 6 2 3 : 0 3 : 2 8 " { Q
0000320 V } < I D L > S O U R C E S > D
0000340 A T A E N T R Y . ; 1 1 2 6 9
0000360 0 9 c h a n g e s t o : (
0000400 V A R S D A T A E N T R Y C O
0000420 M S \r ) ( F N S P R I N T R
0000440 O W R E A D R O W ) p r e v
0000460 i o u s d a t e : " 3 - S
0000500 e p - 8 5 1 7 : 2 3 : 2 4 "
0000520 { Q V } < I D L > S O U R C E S
0000540 > D A T A E N T R Y . ; 1 0 ) \r
0000560 C O N V E R T A 0 0 0 1 A 0 0 0
0000600 2 A 0 0 0 3 D 1 \r ( N A M E
0000620 U E R R O R S E T I 1 U R
0000640 E S E T V A R S L S T I 0
0000660 U E R R O R N A M E F 0 U
0000700 A R G F 1 D A T A ) \0 \t
0000720 \0 002 \0 002 P \t \0 \0 c 002 h 020 \0 ( 3
0000740 C O N V . S C A L A R ) \r N I L
0000760 \r ( ) \r C O N V E R T A 0 0 0 1
0001000 A 0 0 0 2 A 0 0 0 4 D 1 \r ( N
0001020 A M E U E R R O R S E T I
0001040 1 U R E S E T V A R S L S T
0001060 I 0 U E R R O R N A M E F
0001100 0 U A R G F 1 D A T A
0001120 ) \0 \t \0 002 \0 002 P \t \0 \0 c 002 h 020
0001140 \0 ( 3 C O N V . A R R A Y ) \r
0001160 N I L \r ( ) \r C O N V E R T A 0
0001200 0 0 1 A 0 0 0 2 D 1 \r ( N A M
0001220 E U E R R O R S E T I 1
0001240 U R E S E T V A R S L S T I
0001260 0 U E R R O R N A M E F 0
0001300 D A T A F 1 R E S E T V
0001320 A R S L S T ) \0 ( \0 002 \0 002 P 3
0001340 020 263 " P d 262 037 004 ` \0 \0 360 263 027 g \0
0001360 \0 Q \n \0 \0 264 017 g \0 \0 Q \n \0 \0 264 006
0001400 \b \0 \0 h 020 \0 ( 4 4 Q U E R R O
0001420 R ! 3 7 Q C O N V E R T A 0
0001440 0 0 1 A 0 0 0 2 A 0 0 0 4 2 6
0001460 Q C O N V E R T A 0 0 0 1 A 0
0001500 0 0 2 A 0 0 0 3 ) \r ( 3 3 Q U
0001520 E R R O R G U A R D 2 2 Q U
0001540 E R R O R G U A R D 1 4 Q 004
0001560 003 A R R A Y F R A M E T Y P E #
0001600 ) \r ( ) \r C O N V E R T A 0 0 0
0001620 1 D 1 \r ( N A M E U E R R O
0001640 R S E T P 1 U A R G P
0001660 0 D A T A I 1 U R E S E
0001700 T V A R S L S T I 0 U E R
0001720 R O R N A M E F 2 D A T A
0001740 F 3 R E S E T V A R S L S
0001760 T ) \0 - 002 002 \0 002 R d 021 002 001 g \0
0002000 \0 S \n \0 \0 262 036 \b \0 \0 262 026 o \0 \0 \0
0002020 i \n \0 \0 277 I i \n \0 \0 277 i \t \0 \0 277
0002040 \b \0 \0 H 020 \0 ( 5 1 Q U E R R O
0002060 R ! 4 5 Q T E R P R I 4 0
0002100 Q P R I N 2 3 2 Q P R I N
0002120 1 2 0 Q U E R R O R P R I N
0002140 T ? 1 3 Q C O N V E R T A 0
0002160 0 0 1 A 0 0 0 2 ) \r ( 7 U E R
0002200 R O R G U A R D ) \r ( 2 6 Q
0002220 " D A T A c a n ' t b e c
0002240 o n v e r t e d t o s c a l
0002260 a r o r a r r a y : " )
0002300 \r C O N V E R T D 1 \r ( I 0
0002320 D A T A F 0 R E S E T V
0002340 A R S L S T ) \0 \n \0 001 \0 001 o \0
0002360 \0 \0 P \n \0 \0 020 \0 ( 7 C O N V E
0002400 R T A 0 0 0 1 ) \r N I L \r ( 3
0002420 031 ( P R O G N ( A D D S P E
0002440 L L ( Q U O T E C O N V E R
0002460 T ) 1 ) ( A D D S P E L L
0002500 ( Q U O T E C O N V E R T )
0002520 2 ) ( Q U O T E C O N V E R
0002540 T ) ) ) \r D U M P I D L A R R A
0002560 Y A 0 0 0 1 D 1 \r ( N A M E
0002600 U E R R O R S E T P 3 F I
0002620 L E P 2 A I 1 U R E
0002640 S E T V A R S L S T I 0 U
0002660 E R R O R N A M E F 4 A
0002700 F 5 F I L E ) \0 G 004 002 \0 002
0002720 T d 021 002 001 I \t \0 \0 022 U d 021 002 001 H
0002740 d 004 l 004 360 263 ' d \t \0 \0 263 ! 277 \b \0
0002760 \0 262 026 o \0 \0 \0 i \n \0 \0 277 I i \n \0
0003000 \0 277 i \t \0 \0 277 \b \0 \0 277 H 022 021 002 003
0003020 J K \n \0 \0 020 \0 ( 1 0 4 Q D U M
0003040 P I D L A R R A Y 1 7 1 Q U
0003060 E R R O R ! 6 5 Q T E R P R
0003100 I 6 0 Q P R I N 2 5 2 Q
0003120 P R I N 1 4 0 Q U E R R O R
0003140 P R I N T ? 3 2 Q S T R E A
0003160 M P 1 0 Q C O N V . A R R A
0003200 Y ) \r N I L \r ( 4 6 Q " I n
0003220 v a l i d F I L E : " ) \r
0003240 D U M P I D L A R R A Y D 1 \r
0003260 ( I 1 F I L E I 0 A
0003300 F 0 R E S E T V A R S L S T
0003320 ) \0 \n \0 001 \0 002 o \0 \0 \0 P \n \0 \0
0003340 020 \0 ( 7 D U M P I D L A R R A
0003360 Y A 0 0 0 1 ) \r N I L \r ( 3
0003400 031 ( P R O G N ( A D D S P E L
0003420 L ( Q U O T E D U M P I D L
0003440 A R R A Y ) 1 ) ( A D D S P
0003460 E L L ( Q U O T E D U M P I
0003500 D L A R R A Y ) 2 ) ( Q U O
0003520 T E D U M P I D L A R R A Y )
0003540 ) ) \r D U M P I D L A R R A Y 1
0003560 A 0 0 0 1 A 0 0 0 2 D 1 \r ( P
0003600 2 I P 0 N A R G S )
0003620 \0 034 003 \0 002 \0 e 021 001 \0 H k 021 002 002 J
0003640 d I 363 221 h 020 a \t \0 \0 277 J k 324 Z 260
0003660 361 \0 ( 2 3 Q P R I N 3 ) \r N I
0003700 L \r ( ) \r D U M P I D L A R R A
0003720 Y 1 A 0 0 0 1 D 1 \r ( N A M E
0003740 E R R O R S E T P 3 1 Q
0003760 G S B P 3 0 Q P O S P
0004000 2 7 Q P P 2 6 Q N O N E
0004020 P 2 4 Q K P 2 0 Q C
0004040 O D E S P 1 7 Q C F L A G
0004060 P 1 6 Q O U T O F S T E P
0004100 P 1 5 Q L A B P 1 4 Q
0004120 L P 1 2 Q N L E V S P
0004140 1 1 Q V D F L A G P 1 0
0004160 Q S H P 7 D I M P 5
0004200 A C T I O N P 2 T E M P
0004220 P 1 O L D = P 0 V A
0004240 L D I M F 3 2 Q A F 3
0004260 3 Q R E S E T V A R S L S T
0004300 F 3 4 Q F I L E F 3 5 Q
0004320 R E S E T Y ) 003 % 032 004 002 \0 W
0004340 8 262 + W 8 g \0 \0 \n \0 \0 235 g \0 \0 W
0004360 8 \t \0 \0 h 032 032 h 032 213 o \0 \0 \0 W 8
0004400 \t \0 \0 h 032 032 W 6 032 c 6 277 g \0 \0 d
0004420 \t \0 \0 032 g \0 \0 \t \0 \0 277 W 6 032 c 6
0004440 277 W 4 \t \0 \0 l = \t \0 \0 021 2 004 o \0
0004460 \0 \0 I h 032 032 W 6 032 c 6 277 o \0 \0 \0
0004500 \t \0 \0 277 W 4 i \n \0 \0 Z 262 037 g \0 \0
0004520 021 001 005 g \0 \0 \t \0 \0 277 J \t \0 \0 277 g
0004540 \0 \0 \t \0 \0 277 \b \0 \0 023 o \0 \0 \0 \t \0
0004560 \0 277 W 4 006 \0 \0 311 002 006 \0 \0 310 005 k W
0004600 4 006 \0 \0 311 002 021 # \n O 016 d N 363 262 /
0004620 023 o \0 \0 \0 \t \0 \0 277 h \t \0 \0 277 W 4
0004640 g \0 \0 \n \0 \0 242 261 001 } o \0 \0 \0 \t \0
0004660 \0 277 W 4 g \0 \0 \n \0 \0 261 001 Z H 360 _
0004700 022 277 O 020 O 016 \n \0 \0 _ 024 277 l = g \0
0004720 \0 \n \0 \0 277 k j \n \0 \0 277 o \0 \0 \0 \t
0004740 \0 \0 277 W 4 O 016 \n \0 \0 265 004 O 016 \t \0
0004760 \0 277 o \0 \0 \0 \t \0 \0 277 O 024 \t \0 \0 277
0005000 l = I \n \0 \0 277 O 024 k 021 B 020 O 030 O
0005020 026 363 222 261 \0 325 O 022 242 261 \0 225 W 4 O 030
0005040 \n \0 \0 _ 256 O 036 222 261 \0 205 O 030 O 024
0005060 331 j 360 262 { i _ 036 277 O 034 262 023 h _ 034
0005100 277 k \t \0 \0 277 O 030 k 331 \t \0 \0 277 o \0
0005120 \0 \0 \t \0 \0 277 W 4 O 016 O 030 \v \0 \0 265
0005140 004 O 030 \t \0 \0 277 k \t \0 \0 277 m 375 j 021
0005160 0 023 O 260 d 001 [ 001 K 002 h 032 032 _
0005200 " 277 O $ 265 \t O " h 032 _ & 202 O " &
0005220 _ $ 277 002 003 265 341 O & 022 i \f \0 \0 277 o
0005240 \0 \0 \0 \t \0 \0 277 l 005 \t \0 \0 260 2 W 4
0005260 O 016 O 030 \v \0 \0 _ 032 262 " O 034 262 023 h
0005300 _ 034 277 k \t \0 \0 277 O 030 k 331 \t \0 \0 277
0005320 k \t \0 \0 277 O 032 \t \0 \0 202 i _ 034 277 O
0005340 030 k 324 _ 030 261 377 * 023 o \0 \0 \0 \t \0 \0
0005360 277 O 016 k 324 _ 016 261 376 224 d 001 021 001 024 k
0005400 \t \0 \0 277 W 4 O ( \n \0 \0 265 004 O ( \t
0005420 \0 \0 023 002 003 265 345 o \0 \0 \0 \t \0 \0 277 h
0005440 \t \0 \0 277 W 4 006 \0 \0 311 016 i 021 " 030 O
0005460 * 003 265 ) O , 254 o \0 \0 \0 \t \0 \0 277 h
0005500 \t \0 \0 277 023 W 4 d 006 \0 \0 311 004 g \0 \0
0005520 360 262 d g \0 \0 \t \0 \0 260 _ 001 _ . 001 g
0005540 \0 \0 360 263 J O . 002 262 E O . d 001 W 4
0005560 006 \0 \0 311 016 026 360 262 6 O , 262 024 o \0 \0
0005600 \0 \t \0 \0 277 \b \0 \0 _ 0 277 h _ , 277 O
0005620 0 j \n \0 \0 277 O . 001 \t \0 \0 277 k \t \0
0005640 \0 277 O . 002 h \t \0 \0 \n \0 \0 277 O * 002
0005660 _ * 261 377 177 g \0 \0 \n \0 \0 021 001 031 o \0
0005700 \0 \0 \t \0 \0 277 O 2 006 \0 \0 310 \0 \ j 360
0005720 263 L 005 003 225 L \t \0 \0 263 026 W 4 O 2
0005740 \t \0 \0 \n \0 \0 \t \0 \0 277 k \t \0 \0 260 327
0005760 023 o \0 \0 \0 \t \0 \0 277 h \t \0 \0 023 h c
0006000 : i 020 \0 ( 1 4 3 5 Q T E R P R
0006020 I 1 4 3 0 Q P R I N 1 1 4
0006040 1 6 Q S P A C E S 1 4 1 1 Q
0006060 P R I N 1 1 4 0 6 Q G E T
0006100 A E L T 1 4 0 3 Q N E X T
0006120 1 3 7 2 Q \ F Z E R O P 1 3
0006140 4 5 Q P R I N 1 1 3 3 3 Q
0006160 S E T U P 1 3 1 4 Q P R I N
0006200 T D E F 1 3 1 1 Q P O S I T
0006220 I O N 1 3 0 1 Q S P A C E S
0006240 1 2 7 4 Q P R I N 2 1 2 6
0006260 5 Q T A B 1 2 5 0 Q P O S
0006300 I T I O N 1 2 4 4 Q P R I N
0006320 1 1 1 7 1 Q P R I N T 1 1
0006340 4 3 Q T E R P R I 1 1 3 6 Q
0006360 P R I N 1 1 1 0 3 Q T E R
0006400 P R I 1 0 7 6 Q P R I N 1
0006420 1 0 6 2 Q P R I N 1 1 0 5 3
0006440 Q G E T D I M L A B 1 0 4 3
0006460 Q S P A C E S 1 0 2 0 Q P
0006500 R I N 1 7 7 2 Q P R I N 1
0006520 7 6 4 Q S P A C E S 7 5 7 Q
0006540 P R I N 1 7 4 7 Q S P A C
0006560 E S 7 2 7 Q G E T L E V L A
0006600 B 7 1 4 Q T A B 7 0 6 Q
0006620 P R I N 1 6 7 6 Q P R I N T
0006640 P A R A 6 1 3 Q S P A C E S
0006660 6 0 6 Q P R I N 2 5 7 7 Q
0006700 G E T L E V L A B 5 6 5 Q
0006720 P R I N 1 5 5 5 Q P R I N 1
0006740 5 4 5 Q S P A C E S 5 0 3
0006760 Q G E T C O D E S 4 4 6 Q
0007000 S E T S Y N T A X 4 3 7 Q P
0007020 R I N 1 4 3 1 Q P R I N 1
0007040 4 2 1 Q P R I N 2 4 1 2 Q
0007060 G E T D I M L A B 4 0 2 Q P
0007100 R I N 1 3 7 2 Q T A B 3 6
0007120 4 Q S E T S Y N T A X 3 5 1
0007140 Q G E T R E L T 3 3 2 Q G
0007160 E T A R R A Y P R O P 3 2 1 Q
0007200 P R I N 1 3 0 6 Q G E T A
0007220 R R A Y P R O P 2 7 5 Q T E
0007240 R P R I 2 7 0 Q P R I N 1
0007260 2 2 1 Q P R I N 1 2 1 1 Q
0007300 T E R P R I 2 0 5 Q P R I N
0007320 3 1 7 6 Q T R A V E R S E .
0007340 T I T L E 1 7 1 Q P R I N 3
0007360 1 5 2 Q G E T T I T L E 1
0007400 4 3 Q P R I N 1 1 1 3 Q G
0007420 E T S Y N T A X 1 0 6 Q G E
0007440 T V A L D I M 7 2 Q S E T T
0007460 O P V A L 6 3 Q G E T T O P
0007500 V A L 4 3 Q O U T F I L E
0007520 2 4 Q O U T P U T 1 3 Q O
0007540 P E N P ) \r ( 1 3 5 3 Q G E N
0007560 S T A T E B L O C K 1 3 3 0 Q
0007600 R O W M A J O R 1 2 2 3 Q
0007620 A R R A Y F R A M E 1 2 0 2 Q
0007640 K E E P S 1 1 6 6 Q S Y M
0007660 M E T R I C 1 1 6 0 Q S Y M
0007700 M E T R I C 1 1 5 3 Q A R R
0007720 A Y F R A M E 1 1 1 1 Q A R
0007740 R A Y F R A M E 3 6 1 Q B R
0007760 E A K 3 2 7 Q K E E P S 3
0010000 0 3 Q K E E P S 2 4 4 Q A
0010020 R R A Y F R A M E 2 3 4 Q R
0010040 O W H E A D E R 2 2 7 Q A R
0010060 R A Y F R A M E 2 0 2 Q % "
0010100 1 6 6 Q % " 1 6 0 Q D U
0010120 M P I D L A R R A Y 1 A 0 0 0 1
0010140 A 0 0 0 2 6 7 Q F O N T C H
0010160 A N G E F L G 5 7 Q F O N T
0010200 C H A N G E F L G 1 7 Q O U
0010220 T P U T 1 0 Q O U T P U T )
0010240 \r ( 1 4 2 5 Q " ) ) " 1 3
0010260 4 2 Q " ( " 1 2 4 1 Q " (
0010300 p r o p e r t i e s " 1 1 3
0010320 3 Q " ) " 1 0 7 3 Q " ) "
0010340 1 0 1 5 Q " ) " 7 0 3 Q
0010360 " ) " 5 6 2 Q " ( " 4 2
0010400 6 Q " = " 3 7 7 Q " ( "
0010420 3 1 6 Q " ( k e p t " 2 6 5
0010440 Q " ) " 2 1 6 Q " ( "
0010460 1 4 0 Q " ( " 1 2 2 Q ( P
0010500 R O G N ( S E T S Y N T A X
0010520 ( Q U O T E = ) O L D V A L
0010540 U E ) ) 3 6 Q ( P R O G N
0010560 ( C L O S E F ( O U T P U T
0010600 O L D V A L U E ) ) ) ) \r D U M
0010620 P I D L A R R A Y 1 D 1 \r ( P
0010640 2 R E S E T Z P 1 R E
0010660 S E T Y P 0 L I S P X H I
0010700 S T I 1 F I L E I 0
0010720 A F 3 L I S P X H I S T
0010740 F 4 R E S E T V A R S L S T
0010760 ) \0 " 003 002 \0 002 S 021 ! 002 T o \0 \0
0011000 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0
0011020 \0 277 J 222 \b \0 \0 @ 020 \0 ( 3 6 Q E
0011040 R R O R ! 3 0 Q R E S E T R
0011060 E S T O R E 1 6 Q D U M P I
0011100 D L A R R A Y 1 A 0 0 0 1 ) \r (
0011120 2 4 Q E R R O R 1 3 Q I N
0011140 T E R N A L ) \r ( 1 0 Q ( D
0011160 U M P I D L A R R A Y 1 A 0 0 0
0011200 1 ) ) \r I D L A R R A Y A 0 0 0
0011220 1 A 0 0 0 2 D 1 \r ( N A M E
0011240 E R R O R S E T F 0 F I L
0011260 E F 1 R E S E T V A R S L
0011300 S T F 2 R E S E T Y F
0011320 3 D A T A F 4 F I L E R
0011340 D T B L ) \0 0 \0 005 002 \0 o \0 \0 \0
0011360 g \0 \0 g \0 \0 g \0 \0 \v \0 \0 c \0 h 032
0011400 032 Q 032 c 002 277 S P T \v \0 \0 277 P j \n
0011420 \0 \0 277 P \t \0 \0 c 004 i 020 \0 ( 5 2 Q
0011440 R E A D I D L A R R A Y 1 4
0011460 5 Q S E T F I L E P T R 3 7
0011500 Q P R I N 2 1 7 Q O P E N
0011520 F I L E ) \r ( 1 4 Q N E W 1
0011540 1 Q B O T H 6 { C O R E }
0011560 S C R A T C H . I D L ) \r ( 3
0011600 ( P R O G N ( C L O S E F ?
0011620 O L D V A L U E ) ( D E L F
0011640 I L E O L D V A L U E ) ) ) \r
0011660 I D L A R R A Y A 0 0 0 1 D 1
0011700 \r ( N A M E U E R R O R S E T
0011720 P 4 R E S E T Z P 3
0011740 R E S E T Y P 2 L I S P X
0011760 H I S T P 1 F I L E P
0012000 0 D A T A I 1 U R E S E
0012020 T V A R S L S T I 0 U E R
0012040 R O R N A M E F 5 D A T A
0012060 F 6 L I S P X H I S T F
0012100 7 R E S E T V A R S L S T )
0012120 \0 H 005 003 \0 002 U 003 265 \b \0 \0 262 026
0012140 o \0 \0 \0 i \n \0 \0 277 U i \n \0 \0 277 i
0012160 \t \0 \0 277 \b \0 \0 277 U 021 021 001 V 021 ! 004
0012200 W 016 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g
0012220 \0 \0 \ \n \0 \0 L 223 \b \0 \0 020 K 020 \0 (
0012240 1 0 3 Q E R R O R ! 7 6 Q
0012260 R E S E T R E S T O R E 6 4 Q
0012300 I D L A R R A Y A 0 0 0 1 A 0
0012320 0 0 2 3 7 Q U E R R O R !
0012340 3 3 Q T E R P R I 2 6 Q P
0012360 R I N 2 2 0 Q P R I N 1 6
0012400 U E R R O R P R I N T ? ) \r (
0012420 7 2 Q E R R O R 6 1 Q I N
0012440 T E R N A L ) \r ( 5 6 Q ( I
0012460 D L A R R A Y A 0 0 0 1 A 0 0 0
0012500 2 ) 1 4 Q " I n v a l i d
0012520 D A T A : " ) \r I D L A R R
0012540 A Y D 1 \r ( I 0 D A T A
0012560 F 0 R E S E T V A R S L S T
0012600 ) \0 \n \0 001 \0 001 o \0 \0 \0 P \n \0 \0
0012620 020 \0 ( 7 I D L A R R A Y A 0 0
0012640 0 1 ) \r N I L \r ( 3 031 ( P R
0012660 O G N ( A D D S P E L L ( Q
0012700 U O T E I D L A R R A Y ) 1
0012720 ) ( A D D S P E L L ( Q U O
0012740 T E I D L A R R A Y ) 2 )
0012760 ( Q U O T E I D L A R R A Y )
0013000 ) ) \r I D L M A T R I X A 0 0 0
0013020 1 A 0 0 0 2 D 1 \r ( N A M E
0013040 U E R R O R S E T I 1 U R
0013060 E S E T V A R S L S T I 0
0013100 U E R R O R N A M E F 0 U
0013120 A R G F 1 V A L U E ) \0
0013140 \v \0 002 \0 002 P c 002 003 242 \b \0 \0 h 020 \0
0013160 ( 7 U E R R O R ! ) \r N I L \r
0013200 ( ) \r I D L M A T R I X A 0 0 0
0013220 1 A 0 0 0 3 D 1 \r ( N A M E
0013240 U E R R O R S E T I 1 U R
0013260 E S E T V A R S L S T I 0
0013300 U E R R O R N A M E F 0 U
0013320 A R G F 1 V A L U E ) \0
0013340 4 \0 002 \0 002 P 005 \a 265 , P 233 P 004 l 004
0013360 360 225 P \t \0 \0 265 036 \b \0 \0 262 026 o \0 \0
0013400 \0 i \n \0 \0 277 P i \n \0 \0 277 i \t \0 \0
0013420 277 \b \0 \0 c 002 h 020 \0 ( 5 6 Q U E
0013440 R R O R ! 5 2 Q T E R P R I
0013460 4 5 Q P R I N 2 3 7 Q P
0013500 R I N 1 2 5 Q U E R R O R P
0013520 R I N T ? 2 0 Q M K S T R I
0013540 N G ) \r N I L \r ( 3 3 Q " I
0013560 n v a l i d t i t l e : "
0013600 ) \r I D L M A T R I X A 0 0 0 1
0013620 A 0 0 0 4 D 1 \r ( N A M E U
0013640 E R R O R S E T I 1 U R E
0013660 S E T V A R S L S T I 0 U
0013700 E R R O R N A M E F 0 U A
0013720 R G F 1 V A L U E ) \0 \v
0013740 \0 002 \0 002 P c 002 003 242 \b \0 \0 h 020 \0 (
0013760 7 U E R R O R ! ) \r N I L \r (
0014000 ) \r I D L M A T R I X A 0 0 0 1
0014020 A 0 0 0 5 A 0 0 0 6 D 1 \r ( N
0014040 A M E U E R R O R S E T I
0014060 1 U R E S E T V A R S L S T
0014100 I 0 U E R R O R N A M E F
0014120 0 U A R G F 1 V A L U
0014140 E ) \0 016 \0 002 \0 002 P \t \0 \0 c 002 264
0014160 006 \b \0 \0 h 020 \0 ( 1 2 Q U E R R
0014200 O R ! 3 C O N V . S C A L A
0014220 R ) \r N I L \r ( ) \r I D L M A T
0014240 R I X A 0 0 0 1 A 0 0 0 5 D 1
0014260 \r ( N A M E U E R R O R S E T
0014300 I 1 U R E S E T V A R S L
0014320 S T I 0 U E R R O R N A M
0014340 E F 0 V A L U E F 1
0014360 R E S E T V A R S L S T ) \0 030
0014400 \0 002 \0 002 P d 262 024 004 l 004 360 253 g \0 \0
0014420 Q \n \0 \0 264 006 \b \0 \0 h 020 \0 ( 2 4 Q
0014440 U E R R O R ! 1 7 Q I D L
0014460 M A T R I X A 0 0 0 1 A 0 0 0 5
0014500 A 0 0 0 6 ) \r ( 1 3 Q U E R R
0014520 O R G U A R D ) \r ( ) \r I D L M
0014540 A T R I X A 0 0 0 1 A 0 0 0 7
0014560 D 1 \r ( N A M E U E R R O R S
0014600 E T I 1 U R E S E T V A R
0014620 S L S T I 0 U E R R O R N
0014640 A M E F 0 U A R G F 1
0014660 V A L U E ) \0 \v \0 002 \0 002 P c
0014700 002 003 242 \b \0 \0 h 020 \0 ( 7 U E R R
0014720 O R ! ) \r N I L \r ( ) \r I D L M
0014740 A T R I X A 0 0 0 1 A 0 0 0 8 A
0014760 0 0 0 9 D 1 \r ( N A M E U E
0015000 R R O R S E T I 1 U R E S
0015020 E T V A R S L S T I 0 U E
0015040 R R O R N A M E F 0 U A R
0015060 G F 1 V A L U E ) \0 016 \0
0015100 002 \0 002 P \t \0 \0 c 002 264 006 \b \0 \0 h 020
0015120 \0 ( 1 2 Q U E R R O R ! 3
0015140 C O N V . S C A L A R ) \r N I L
0015160 \r ( ) \r I D L M A T R I X A 0 0
0015200 0 1 A 0 0 0 8 D 1 \r ( N A M E
0015220 U E R R O R S E T I 1 U
0015240 R E S E T V A R S L S T I 0
0015260 U E R R O R N A M E F 0
0015300 V A L U E F 1 R E S E T V
0015320 A R S L S T ) \0 030 \0 002 \0 002 P d
0015340 262 024 004 l 004 360 253 g \0 \0 Q \n \0 \0 264 006
0015360 \b \0 \0 h 020 \0 ( 2 4 Q U E R R O
0015400 R ! 1 7 Q I D L M A T R I X
0015420 A 0 0 0 1 A 0 0 0 8 A 0 0 0 9 )
0015440 \r ( 1 3 Q U E R R O R G U A R
0015460 D ) \r ( ) \r I D L M A T R I X A
0015500 0 0 0 1 A 0 0 1 0 D 1 \r ( N A
0015520 M E E R R O R S E T F 0
0015540 R # F 1 L A B E L F L A G
0015560 F 2 R F 3 M A C R O
0015600 Y F 4 C # F 5 N C O
0015620 L S ) \0 P \0 006 002 \0 o \0 \0 \0 i \n
0015640 \0 \0 277 P i \n \0 \0 277 Q 262 030 o \0 \0 \0
0015660 \t \0 \0 277 R 001 \t \0 \0 277 o \0 \0 \0 \t \0
0015700 \0 277 o \0 \0 \0 i \n \0 \0 277 T U 361 224 o
0015720 \0 \0 \0 203 o \0 \0 \0 i \n \0 \0 277 o \0 \0
0015740 \0 i \n \0 \0 c 006 i 020 \0 ( 1 1 2 Q
0015760 P R I N 1 1 0 1 Q P R I N 1
0016000 5 7 Q P R I N 1 4 6 Q P
0016020 R I N 1 3 6 Q P R I N 2 3
0016040 0 Q P R I N 1 1 5 Q P R I
0016060 N 1 7 P R I N 1 ) \r N I L \r
0016100 ( 1 0 6 Q " c o l u m n s
0016120 " 7 5 Q " f e w " 7 0 Q
0016140 " m a n y " 5 3 Q " h a s
0016160 t o o " 4 3 Q " , " 2
0016200 5 Q " , l a b e l " 3
0016220 " R o w # " ) \r I D L M A T R
0016240 I X A 0 0 0 1 D 1 \r ( N A M E
0016260 U E R R O R S E T P 5 5 Q
0016300 R E S E T S T A T E P 5 4
0016320 Q M A C R O Y P 5 2 Q O
0016340 L D V A L U E P 5 1 Q V A
0016360 L P 5 0 Q C # P 4 6 Q
0016400 L P 4 5 Q C # P 4 2
0016420 Q I D P 4 1 Q R P 4
0016440 0 Q R # P 3 6 Q R P
0016460 3 5 Q R # P 3 4 Q G S B
0016500 M P 3 3 Q F I X F L G P
0016520 3 2 Q N P 3 0 Q M A T
0016540 R I X P 2 7 Q N C O L S
0016560 P 2 6 Q N R O W S P 2 5
0016600 Q V A L U E P 2 4 Q U A
0016620 R G P 2 3 Q V A L U E P
0016640 2 2 Q U A R G P 2 1 Q
0016660 V A L U E P 2 0 Q U A R G
0016700 P 1 7 Q V A L U E P 1
0016720 6 Q U A R G P 1 5 Q V A
0016740 L U E P 1 4 Q U A R G P
0016760 1 3 Q V A L U E P 1 2 Q
0017000 U A R G P 1 1 Q T E M P
0017020 P 1 0 Q V A L D I M P
0017040 7 L A B E L F L A G P 6
0017060 L A B E L S P 5 C O L L A
0017100 B E L P 4 R O W L A B E L
0017120 P 3 T I T L E P 2 D
0017140 A T A I 1 U R E S E T V A
0017160 R S L S T I 0 U E R R O R
0017200 N A M E F 5 6 Q R E S E T
0017220 V A R S L S T F 5 7 Q D A
0017240 T A ) 004 q . 002 \0 002 W ^ 003 262 025 W
0017260 ^ 021 021 001 H Y 003 265 L i 264 005 I h 360 022
0017300 263 \b \0 \0 262 027 o \0 \0 \0 i \n \0 \0 277
0017320 W ^ i \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277
0017340 W ^ 021 001 002 021 p \t J 001 001 \t \0 \0 d g
0017360 \0 \0 360 253 d g \0 \0 360 245 d g \0 \0 360 234
0017400 277 i 213 001 003 242 h 260 263 I 002 260 252 277 h 242
0017420 261 001 I J 001 002 021 021 \v g \0 \0 W \ \n \0
0017440 \0 262 \b \0 \0 262 027 o \0 \0 \0 i \n \0 \0
0017460 277 J 001 i \n \0 \0 277 i \t \0 \0 277 \b \0 \0
0017500 277 O 026 022 _ 022 277 J 001 002 001 021 021 \r g \0
0017520 \0 W \ \n \0 \0 262 \b \0 \0 262 027 o \0 \0
0017540 \0 i \n \0 \0 277 O 030 i \n \0 \0 277 i \t \0
0017560 \0 277 \b \0 \0 277 O 032 022 273 O 022 002 021 021 017
0017600 g \0 \0 W \ \n \0 \0 262 \b \0 \0 262 027 o
0017620 \0 \0 \0 i \n \0 \0 277 J 001 i \n \0 \0 277 i
0017640 \t \0 \0 277 \b \0 \0 277 O 036 022 _ 022 277 J 001
0017660 002 002 001 021 021 021 O _ " 277 g \0 \0 W \
0017700 \n \0 \0 262 \b \0 \0 262 027 o \0 \0 \0 i \n
0017720 \0 \0 277 O i \n \0 \0 277 i \t \0 \0 277 \b
0017740 \0 \0 277 O " 022 274 O 022 002 021 021 023 g \0 \0
0017760 W \ \n \0 \0 262 \b \0 \0 262 027 o \0 \0 \0
0020000 i \n \0 \0 277 J 001 i \n \0 \0 277 i \t \0 \0
0020020 277 \b \0 \0 277 O & 022 _ 022 277 J 001 002 002 002
0020040 001 021 021 025 O ( _ * 277 g \0 \0 W \ \n \0
0020060 \0 262 \b \0 \0 262 027 o \0 \0 \0 i \n \0 \0
0020100 277 O ( i \n \0 \0 277 i \t \0 \0 277 \b \0 \0
0020120 277 O * 022 275 J 002 Z 200 J 001 001 \t \0 \0 d
0020140 g \0 \0 360 253 d g \0 \0 360 245 d g \0 \0 360
0020160 222 277 i 201 277 h 232 i _ 016 277 J 001 J 002 272
0020200 002 276 J \t \0 \0 O 016 223 J 001 002 201 J 001 \t
0020220 \0 \0 021 022 030 O . N \t \0 \0 375 361 262 030 \b
0020240 \0 \0 235 o \0 \0 \0 i \n \0 \0 277 i \t \0 \0
0020260 277 \b \0 \0 277 O , O . \n \0 \0 g \0 \0 \n
0020300 \0 \0 _ 0 J j i O 0 g \0 \0 \n \0 \0 k
0020320 021 025 036 O 2 003 265 = 023 O 0 K \n \0 \0 O
0020340 0 k L \v \0 \0 O 0 l 002 M \v \0 \0 O 016
0020360 236 J k 021 " " O > 003 265 003 202 261 \0 341 023
0020400 O . N k 021 023 & O H 003 265 003 202 261 001 f
0020420 O 0 020 001 _ < 277 O 016 223 O < 002 201 O <
0020440 k 021 022 ) O N 003 265 022 023 O 2 002 _ 2 277
0020460 O : k 324 _ : 277 260 234 001 _ R 277 O P O
0020500 . 361 262 T \b \0 \0 262 K i \t \0 \0 021 1 -
0020520 g \0 \0 O T h 032 032 h 032 W \ 032 c \ _
0020540 V 277 o \0 \0 \0 g \0 \0 \n \0 \0 245 g \0 \0
0020560 _ Z 277 O V 002 c \ 277 g \0 \0 O V 001 001
0020600 002 \n \0 \0 277 O Z 223 \b \0 \0 277 023 i \t \0
0020620 \0 277 \b \0 \0 277 O R \t \0 \0 _ R 277 O 6
0020640 262 O R 005 003 262 023 h _ 6 277 O 0 006 \0
0020660 \0 311 \b O 4 \n \0 \0 205 O 4 k 324 _ 4 277
0020700 O 0 O 8 \t \0 \0 O R \v \0 \0 277 O N 002
0020720 _ N 277 O P k 324 _ P 277 261 377 J 001 _ B
0020740 001 _ D 265 004 260 ~ 3 263 z O D d 004 l
0020760 004 360 237 277 O 0 k O @ \n \0 \0 O D \v \0
0021000 \0 260 a 003 262 A O 0 k O @ \n \0 \0 O D
0021020 001 \v \0 \0 277 O 020 265 \r O 0 k _ 020 \n \0
0021040 \0 277 O 020 k 360 236 O 0 O @ \t \0 \0 O D
0021060 002 \v \0 \0 260 . \b \0 \0 262 & o \0 \0 \0 i
0021100 \n \0 \0 260 026 \b \0 \0 262 027 o \0 \0 \0 i \n
0021120 \0 \0 277 O D i \n \0 \0 277 i \t \0 \0 277 \b
0021140 \0 \0 277 O > 002 _ > 277 O @ k 324 _ @ 277
0021160 261 376 206 001 _ L 277 O J O F 363 222 261 376 223
0021200 O L 265 005 261 \0 206 3 222 261 \0 200 O L d
0021220 004 l 004 360 262 023 277 O 0 l 002 O J \n \0 \0
0021240 O L \v \0 \0 260 d 003 262 D O 0 l 002 O J
0021260 \n \0 \0 O L 001 \v \0 \0 277 O 020 265 016 O 0
0021300 l 002 _ 020 \n \0 \0 277 O 020 l 002 360 236 O 0
0021320 O J \t \0 \0 O L 002 \v \0 \0 260 . \b \0 \0
0021340 262 & o \0 \0 \0 i \n \0 \0 260 026 \b \0 \0 262
0021360 027 o \0 \0 \0 i \n \0 \0 277 O L i \n \0 \0
0021400 277 i \t \0 \0 277 \b \0 \0 277 O H 002 _ H 277
0021420 O J k 324 _ J 277 261 375 360 \0 ( 2 1 3 6
0021440 Q U E R R O R ! 2 1 3 2 Q
0021460 T E R P R I 2 1 2 5 Q P R I
0021500 N 2 2 1 1 6 Q P R I N 1 2
0021520 1 0 4 Q U E R R O R P R I N T
0021540 ? 2 0 7 7 Q P R I N 1 2 0
0021560 6 5 Q U E R R O R P R I N T ?
0021600 2 0 6 0 Q A S S I G N . C O
0021620 D E 2 0 5 2 Q C O D E 2 0
0021640 3 4 Q S E T V A L D I M 2 0
0021660 1 6 Q A S S I G N . L A B E L
0021700 2 0 1 0 Q L A B E L 1 7 7
0021720 2 Q A S S I G N . L A B E L
0021740 1 7 6 5 Q L A B E L 1 6 6 7
0021760 Q U E R R O R ! 1 6 6 3 Q
0022000 T E R P R I 1 6 5 6 Q P R I
0022020 N 2 1 6 4 7 Q P R I N 1 1
0022040 6 3 5 Q U E R R O R P R I N T
0022060 ? 1 6 3 0 Q P R I N 1 1 6
0022100 1 6 Q U E R R O R P R I N T ?
0022120 1 6 1 1 Q A S S I G N . C O
0022140 D E 1 6 0 3 Q C O D E 1 5
0022160 6 6 Q S E T V A L D I M 1 5
0022200 5 1 Q A S S I G N . L A B E L
0022220 1 5 4 3 Q L A B E L 1 5 2
0022240 6 Q A S S I G N . L A B E L
0022260 1 5 2 1 Q L A B E L 1 4 4 1
0022300 Q S E T A E L T 1 4 3 4 Q
0022320 N E X T 1 4 1 5 Q F L O A T
0022340 R O W 1 3 6 0 Q C O N V . S
0022360 C A L A R 1 3 5 2 Q U E R R
0022400 O R ! 1 3 4 6 Q T E R P R I
0022420 1 3 4 0 Q E R R O R ! 1 3
0022440 3 1 Q A P P L Y 1 3 0 1 Q
0022460 I D L M A T R I X A 0 0 0 1 A 0
0022500 0 1 0 1 2 4 2 Q O U T P U T
0022520 1 2 3 4 Q U E R R O R P R I
0022540 N T ? 1 1 0 3 Q S E T D I M
0022560 L A B 1 0 7 3 Q S E T D I M
0022600 L A B 1 0 6 4 Q S E T T I T
0022620 L E 1 0 4 4 Q S E T U P 1
0022640 0 2 7 Q A L L O C . S A R R A
0022660 Y 1 0 2 1 Q R O W I N T O F
0022700 1 0 1 1 Q U E R R O R ! 1
0022720 0 0 5 Q T E R P R I 1 0 0 0
0022740 Q P R I N 1 7 6 7 Q U E R
0022760 R O R P R I N T ? 7 6 0 Q L
0023000 E N G T H 7 4 7 Q L E N G T
0023020 H 7 3 3 Q L E N G T H 6 6
0023040 4 Q U - C A S E 6 4 5 Q U
0023060 E R R O R ! 6 4 1 Q T E R P
0023100 R I 6 3 4 Q P R I N 2 6 2
0023120 5 Q P R I N 1 6 1 3 Q U E
0023140 R R O R P R I N T ? 6 0 6 Q
0023160 I D L M A T R I X A 0 0 0 1 A 0
0023200 0 0 8 5 5 1 Q U E R R O R !
0023220 5 4 5 Q T E R P R I 5 4 0
0023240 Q P R I N 2 5 3 1 Q P R I
0023260 N 1 5 1 7 Q U E R R O R P R
0023300 I N T ? 5 1 2 Q I D L M A T
0023320 R I X A 0 0 0 1 A 0 0 0 7 4 6
0023340 7 Q U E R R O R ! 4 6 3 Q
0023360 T E R P R I 4 5 6 Q P R I N
0023400 2 4 4 7 Q P R I N 1 4 3 5
0023420 Q U E R R O R P R I N T ? 4
0023440 3 0 Q I D L M A T R I X A 0 0
0023460 0 1 A 0 0 0 5 3 7 4 Q U E R
0023500 R O R ! 3 7 0 Q T E R P R I
0023520 3 6 3 Q P R I N 2 3 5 4 Q
0023540 P R I N 1 3 4 2 Q U E R R
0023560 O R P R I N T ? 3 3 5 Q I D
0023600 L M A T R I X A 0 0 0 1 A 0 0 0
0023620 4 3 1 2 Q U E R R O R ! 3
0023640 0 6 Q T E R P R I 3 0 1 Q
0023660 P R I N 2 2 7 2 Q P R I N 1
0023700 2 6 0 Q U E R R O R P R I N
0023720 T ? 2 5 3 Q I D L M A T R I
0023740 X A 0 0 0 1 A 0 0 0 3 2 2 5 Q
0023760 U E R R O R ! 2 2 1 Q T E
0024000 R P R I 2 1 4 Q P R I N 2
0024020 2 0 5 Q P R I N 1 1 7 3 Q
0024040 U E R R O R P R I N T ? 1 6 6
0024060 Q I D L M A T R I X A 0 0 0 1
0024100 A 0 0 0 2 1 0 3 Q U - C A S
0024120 E 6 4 Q U E R R O R ! 6 0
0024140 Q T E R P R I 5 3 Q P R I
0024160 N 2 4 4 Q P R I N 1 3 2 Q
0024200 U E R R O R P R I N T ? ) \r (
0024220 1 4 0 6 Q A R R A Y F R A M E
0024240 1 3 2 1 Q O U T P U T 1 3
0024260 0 5 Q E R R O R 1 2 7 6 Q
0024300 I N T E R N A L 1 2 5 0 Q O
0024320 U T P U T 1 0 4 1 Q R O W M
0024340 A J O R 1 0 2 4 Q F U L L
0024360 7 0 4 Q L A B 6 7 6 Q L A
0024400 B E L 6 7 0 Q L A B E L S
0024420 6 0 1 Q U E R R O R G U A R D
0024440 5 0 5 Q U E R R O R G U A R
0024460 D 4 2 3 Q U E R R O R G U A
0024500 R D 3 3 0 Q U E R R O R G U
0024520 A R D 2 4 6 Q U E R R O R G
0024540 U A R D 1 6 1 Q U E R R O R
0024560 G U A R D 1 2 3 Q T I T 1
0024600 1 5 Q T I T L E 1 0 7 Q T
0024620 I T L E S ) \r ( 2 1 1 2 Q "
0024640 I n v a l i d l a b e l s p
0024660 e c i f i c a t i o n : "
0024700 2 0 7 3 Q " C a n ' t h a v
0024720 e c o d e b o o k s o n b
0024740 o t h d i m e n s i o n s "
0024760 1 6 4 3 Q " I n v a l i d l
0025000 a b e l s p e c i f i c a t i
0025020 o n : " 1 6 2 4 Q " C a
0025040 n ' t h a v e c o d e b o o
0025060 k s o n b o t h d i m e n
0025100 s i o n s " 1 2 7 3 Q ( I D
0025120 L M A T R I X A 0 0 0 1 A 0 0 1
0025140 0 ) 7 7 4 Q " L i s t o f
0025160 c o l u m n l a b e l s i
0025200 s t o o l o n g " 6 2 1 Q
0025220 " B a d d i m e n s i o n
0025240 l a b e l : " 5 2 5 Q "
0025260 I n v a l i d T I T L E l i
0025300 s t : " 4 4 3 Q " B a d
0025320 d i m e n s i o n l a b e l
0025340 : " 3 5 0 Q " I n v a l
0025360 i d T I T L E l i s t :
0025400 " 2 6 6 Q " B a d t i t l
0025420 e : " 2 0 1 Q " I n v a
0025440 l i d T I T L E l i s t :
0025460 " 4 0 Q " D A T A n o t
0025500 a l i s t o f l i s t s
0025520 : " ) \r I D L M A T R I X D
0025540 1 \r ( I 0 D A T A F 0
0025560 R E S E T V A R S L S T ) \0 \n
0025600 \0 001 \0 001 o \0 \0 \0 P \n \0 \0 020 \0 ( 7
0025620 I D L M A T R I X A 0 0 0 1 )
0025640 \r N I L \r ( 3 031 ( P R O G N
0025660 ( A D D S P E L L ( Q U O T
0025700 E I D L M A T R I X ) 1 )
0025720 ( A D D S P E L L ( Q U O T E
0025740 I D L M A T R I X ) 2 ) (
0025760 Q U O T E I D L M A T R I X )
0026000 ) ) \r L I S T A R R A Y A 0 0 0
0026020 1 A 0 0 0 2 D 1 \r ( N A M E
0026040 E R R O R S E T F 0 F I L
0026060 E F 1 R E S E T V A R S L
0026100 S T F 2 R E S E T Y F
0026120 3 A F 4 F I L E R D T B
0026140 L ) \0 0 \0 005 002 \0 o \0 \0 \0 g \0 \0
0026160 g \0 \0 g \0 \0 \v \0 \0 c \0 h 032 032 Q 032
0026200 c 002 277 S P \n \0 \0 277 P j \n \0 \0 277 P
0026220 T \n \0 \0 c 004 i 020 \0 ( 5 2 Q R E
0026240 A D 4 4 Q S E T F I L E P T
0026260 R 3 6 Q D U M P I D L A R R
0026300 A Y 1 1 7 Q O P E N F I L E
0026320 ) \r ( 1 4 Q N E W 1 1 Q B
0026340 O T H 6 { C O R E } S C R A
0026360 T C H . I D L ) \r ( 3 ( P R
0026400 O G N ( C L O S E F ? O L D
0026420 V A L U E ) ( D E L F I L E
0026440 O L D V A L U E ) ) ) \r L I S T
0026460 A R R A Y A 0 0 0 1 D 1 \r ( N
0026500 A M E U E R R O R S E T P
0026520 6 R E S E T Z P 5 R E S
0026540 E T Y P 4 L I S P X H I S
0026560 T P 3 F I L E P 2 A
0026600 I 1 U R E S E T V A R S L
0026620 S T I 0 U E R R O R N A M
0026640 E F 7 A F 1 0 Q L I
0026660 S P X H I S T F 1 1 Q R E
0026700 S E T V A R S L S T ) \0 2 \a 003
0026720 \0 002 W 016 d 021 002 001 I \t \0 \0 022 021 021 003
0026740 W 020 021 ! 006 W 022 o \0 \0 \0 g \0 \0 \n \0
0026760 \0 221 h 202 g \0 \0 ^ \n \0 \0 N 223 \b \0 \0
0027000 020 M 020 \0 ( 5 5 Q E R R O R !
0027020 5 0 Q R E S E T R E S T O R E
0027040 3 6 Q L I S T A R R A Y A 0
0027060 0 0 1 A 0 0 0 2 1 1 Q C O N
0027100 V . A R R A Y ) \r ( 4 4 Q E R
0027120 R O R 3 3 Q I N T E R N A L
0027140 ) \r ( 3 0 Q ( L I S T A R R
0027160 A Y A 0 0 0 1 A 0 0 0 2 ) ) \r L
0027200 I S T A R R A Y D 1 \r ( I 0
0027220 A F 0 R E S E T V A R S
0027240 L S T ) \0 \n \0 001 \0 001 o \0 \0 \0 P
0027260 \n \0 \0 020 \0 ( 7 L I S T A R R A
0027300 Y A 0 0 0 1 ) \r N I L \r ( 3
0027320 031 ( P R O G N ( A D D S P E L
0027340 L ( Q U O T E L I S T A R R
0027360 A Y ) 1 ) ( A D D S P E L L
0027400 ( Q U O T E L I S T A R R A
0027420 Y ) 2 ) ( Q U O T E L I S
0027440 T A R R A Y ) ) ) \r L I S T M A
0027460 T R I X A 0 0 0 1 A 0 0 0 2 D
0027500 1 \r ( N A M E U E R R O R S E
0027520 T I 1 U R E S E T V A R S
0027540 L S T I 0 U E R R O R N A
0027560 M E F 0 U A R G F 1
0027600 M ) \0 023 \0 002 \0 002 P \t \0 \0 c 002 g
0027620 \0 \0 \n \0 \0 242 \b \0 \0 h 020 \0 ( 1 7 Q
0027640 U E R R O R ! 1 3 Q A R R
0027660 A Y T Y P E P 3 C O N V . A
0027700 R R A Y ) \r ( 1 0 Q M A T R I
0027720 X ) \r ( ) \r L I S T M A T R I X
0027740 A 0 0 0 1 D 1 \r ( N A M E U
0027760 E R R O R S E T P 3 5 Q I
0030000 P 3 0 Q C O D E S P 2
0030020 4 Q G S B P 2 3 Q V D 1
0030040 P 2 2 Q R P 1 6 Q C
0030060 O D E S P 1 2 Q V D 2 P
0030100 1 1 Q I P 7 N V A R S
0030120 P 6 V D P 2 M P
0030140 1 U A R G P 0 M I 1
0030160 U R E S E T V A R S L S T I
0030200 0 U E R R O R N A M E F
0030220 4 1 Q M F 4 2 Q R E S E
0030240 T V A R S L S T ) 001 357 ! 002 \0 002
0030260 W B d 021 002 001 g \0 \0 W D \n \0 \0 262 037
0030300 \b \0 \0 262 026 o \0 \0 \0 i \n \0 \0 277 H i
0030320 \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277 H 022 021
0030340 1 005 J \t \0 \0 J 006 \0 \0 311 002 l 002 \n \0
0030360 \0 021 002 \a g \0 \0 J \t \0 \0 J k \n \0 \0
0030400 J l 002 \n \0 \0 h 032 032 032 032 g \0 \0 O 016
0030420 k N l 002 360 021 C 016 O 022 O 020 363 263 { O
0030440 024 262 K J O 022 \n \0 \0 _ 034 262 A g \0 \0
0030460 _ 024 277 J l 002 O 022 \v \0 \0 265 004 O 022 021
0030500 0 021 O 034 260 d 001 [ 001 K 002 h 032 032 _
0030520 036 277 O 265 \t O 036 h 032 _ " 202 O 036 &
0030540 _ 277 002 003 265 341 O " 022 032 213 J l 002 O
0030560 022 \v \0 \0 265 004 O 022 _ 032 277 O 030 265 023 O
0030600 032 h 032 _ 030 _ 026 277 O 022 k 324 _ 022 260 214
0030620 O 032 & _ 030 277 260 362 O 024 i 360 231 O 026 d
0030640 227 d 001 h 032 030 277 O 026 022 032 k N k 360 J
0030660 g \0 \0 \n \0 \0 021 C 030 O ( 006 \0 \0 310 \0
0030700 \ j 360 222 261 \0 302 L 005 003 227 L \t \0 \0 222
0030720 261 \0 266 O & 262 J J O $ \n \0 \0 _ 0 262
0030740 @ g \0 \0 _ & 277 J k O $ \v \0 \0 265 004
0030760 O $ 021 0 033 O 0 260 d 001 ] 001 M 002 h
0031000 032 032 _ 2 277 O 4 265 \t O 2 h 032 _ 6 202
0031020 O 2 & _ 4 277 002 003 265 341 O 6 022 032 212 J
0031040 k O $ \v \0 \0 265 004 O $ O 016 k 021 2
0031060 O : O 8 363 263 + J O ( \t \0 \0 \n \0 \0
0031100 _ @ 277 O > 265 023 O @ h 032 _ > _ < 277
0031120 O : k 324 _ : 260 334 O @ & _ > 277 260 362
0031140 O < 022 032 _ . 277 O , 265 025 O . h 032 _
0031160 , _ * 277 O $ k 324 _ $ 277 261 377 > O .
0031200 & _ , 277 260 360 O & i 360 234 O * d 232 001
0031220 O * 001 001 h 032 030 277 O * 022 032 032 020 \0 (
0031240 6 1 7 Q C O P Y A E L T 6 1
0031260 4 Q N E X T 5 6 5 Q G E T
0031300 L E V L A B 4 7 5 Q G E T L
0031320 E V L A B 4 5 4 Q G E T C O
0031340 D E S 4 3 6 Q \ F Z E R O P
0031360 4 0 5 Q S E T U P 3 0 3 Q
0031400 G E T L E V L A B 2 1 2 Q
0031420 G E T L E V L A B 1 7 0 Q G
0031440 E T C O D E S 1 2 5 Q G E T
0031460 D I M L A B 1 1 7 Q G E T D
0031500 I M L A B 1 1 2 Q M A K E U
0031520 S E R T I T L E 1 0 0 Q G E
0031540 T R E L T 6 5 Q G E T V A L
0031560 D I M 5 3 Q U E R R O R !
0031600 4 7 Q T E R P R I 4 2 Q P
0031620 R I N 2 3 4 Q P R I N 1 2
0031640 2 Q U E R R O R P R I N T ?
0031660 1 5 Q L I S T M A T R I X A 0
0031700 0 0 1 A 0 0 0 2 ) \r ( 4 6 3 Q
0031720 D O N E 4 1 5 Q G E N S T A
0031740 T E B L O C K 4 0 2 Q R O W
0031760 M A J O R 1 7 7 Q D O N E
0032000 1 3 5 Q L A B E L S 1 0 6 Q
0032020 T I T L E S 7 1 Q A R R A
0032040 Y F R A M E 1 0 Q U E R R O
0032060 R G U A R D ) \r ( 3 0 Q " M
0032100 n o t a m a t r i x :
0032120 " ) \r L I S T M A T R I X D 1
0032140 \r ( I 0 M F 0 R E S E
0032160 T V A R S L S T ) \0 \n \0 001 \0 001
0032200 o \0 \0 \0 P \n \0 \0 020 \0 ( 7 L I S
0032220 T M A T R I X A 0 0 0 1 ) \r N I
0032240 L \r ( 3 031 ( P R O G N ( A
0032260 D D S P E L L ( Q U O T E L
0032300 I S T M A T R I X ) 1 ) ( A
0032320 D D S P E L L ( Q U O T E L
0032340 I S T M A T R I X ) 2 ) ( Q
0032360 U O T E L I S T M A T R I X )
0032400 ) ) \r P R I N T I D L A R R A Y
0032420 D 1 \r ( I 1 S T R E A M
0032440 I 0 A R R A Y ) \0 017 \0 \0 \0
0032460 002 o \0 \0 \0 A \n \0 \0 @ A \n \0 \0 020 \0
0032500 ( 1 4 Q D U M P I D L A R R A
0032520 Y 7 P R I N 1 ) \r N I L \r (
0032540 3 " ( R E A D I D L A R R A
0032560 Y ) " ) \r P R I N T R O W D
0032600 1 \r ( P 1 I I 1 S T R
0032620 E A M I 0 R ) \0 374 002 \0 \0
0032640 002 @ 312 004 341 d j 360 225 277 g \0 \0 260 026 d
0032660 k 360 224 277 g \0 \0 212 l 003 360 223 g \0 \0 202
0032700 \b \0 \0 g \0 \0 360 230 o \0 \0 \0 @ \n \0 \0
0032720 277 o \0 \0 \0 A \n \0 \0 o \0 \0 \0 A \n \0
0032740 \0 277 k A \n \0 \0 277 @ 006 \0 \0 310 005 A \n
0032760 \0 \0 277 k A \n \0 \0 277 o \0 \0 \0 A \n \0
0033000 \0 277 k A \n \0 \0 277 @ 312 004 341 d j 360 225
0033020 277 g \0 \0 260 026 d k 360 224 277 g \0 \0 212 l
0033040 003 360 223 g \0 \0 202 \b \0 \0 A \n \0 \0 277 k
0033060 A \n \0 \0 277 o \0 \0 \0 A \n \0 \0 277 k A
0033100 \n \0 \0 277 @ 312 004 320 j 360 h 360 A \n \0 \0
0033120 277 k A \n \0 \0 277 o \0 \0 \0 A \n \0 \0 277
0033140 k A \n \0 \0 o \0 \0 \0 A \n \0 \0 @ 006 \0
0033160 \0 310 005 k 021 002 001 I H 363 263 030 @ I \n \0
0033200 \0 A \n \0 \0 277 k A \n \0 \0 277 I k 324 Y
0033220 260 350 023 o \0 \0 \0 A \n \0 \0 020 \0 ( 3 7
0033240 1 Q P R I N 1 3 5 1 Q S P
0033260 A C E S 3 4 3 Q P R I N 2
0033300 3 3 7 Q G E T R E L T 3 1 3
0033320 Q P R I N 1 3 0 3 Q S P A
0033340 C E S 2 7 5 Q P R I N 1 2
0033360 6 4 Q S P A C E S 2 5 6 Q
0033400 P R I N 1 2 4 1 Q S P A C E
0033420 S 2 3 3 Q P R I N 1 2 2 2
0033440 Q S P A C E S 2 1 4 Q P R
0033460 I N 1 2 1 0 Q S H O U L D N
0033500 T 1 4 5 Q S P A C E S 1 3
0033520 7 Q P R I N 1 1 2 6 Q S P
0033540 A C E S 1 2 0 Q P R I N 1
0033560 1 0 5 Q S P A C E S 7 7 Q
0033600 P R I N 1 6 7 Q P R I N 1
0033620 5 6 Q H E L P 4 1 Q S H O
0033640 U L D N T ) \r ( 3 1 7 Q R O W
0033660 H E A D E R 2 0 4 Q I N T E
0033700 G E R 1 7 4 Q F L O A T I N
0033720 G 1 6 2 Q P O I N T E R 1
0033740 1 2 Q R O W H E A D E R 4 4
0033760 Q P O I N T E R 3 5 Q I N
0034000 T E G E R 2 5 Q F L O A T I
0034020 N G 1 3 Q P O I N T E R ) \r
0034040 ( 3 6 5 Q " ) ) " 3 0 7 Q
0034060 " ( " 2 7 1 Q " E L E M E
0034100 N T S " 2 2 7 Q " M A Y H A
0034120 V E N I L " 1 3 3 Q " R E L
0034140 T T Y P E " 7 3 Q " N E L T
0034160 S " 6 3 Q " ( R E A D R O W
0034200 ) ( " 5 2 Q " D U M P I N G
0034220 A P O I N T E R R O W ? "
0034240 ) \r R E A D I D L A R R A Y A 0
0034260 0 0 1 D 1 \r ( N A M E U E R
0034300 R O R S E T P 2 F I L E
0034320 I 1 U R E S E T V A R S L S
0034340 T I 0 U E R R O R N A M E
0034360 F 3 F I L E ) \0 < 003 001 \0
0034400 002 S d 021 002 001 H d 004 l 004 360 263 ' d \t
0034420 \0 \0 263 ! 277 \b \0 \0 262 026 o \0 \0 \0 i \n
0034440 \0 \0 277 I i \n \0 \0 277 i \t \0 \0 277 \b \0
0034460 \0 277 H 022 021 001 002 J \t \0 \0 020 \0 ( 7 1
0034500 Q R E A D I D L A R R A Y 1
0034520 5 7 Q U E R R O R ! 5 3 Q
0034540 T E R P R I 4 6 Q P R I N 2
0034560 4 0 Q P R I N 1 2 6 Q U
0034600 E R R O R P R I N T ? 2 0 Q
0034620 S T R E A M P ) \r N I L \r ( 3
0034640 4 Q " I n v a l i d F I L E
0034660 : " ) \r R E A D I D L A R R
0034700 A Y D 1 \r ( I 0 F I L E
0034720 F 0 R E S E T V A R S L S T
0034740 ) \0 \n \0 001 \0 001 o \0 \0 \0 P \n \0 \0
0034760 020 \0 ( 7 R E A D I D L A R R A
0035000 Y A 0 0 0 1 ) \r N I L \r ( 3
0035020 031 ( P R O G N ( A D D S P E L
0035040 L ( Q U O T E R E A D I D L
0035060 A R R A Y ) 1 ) ( A D D S P
0035100 E L L ( Q U O T E R E A D I
0035120 D L A R R A Y ) 2 ) ( Q U O
0035140 T E R E A D I D L A R R A Y )
0035160 ) ) \r R E A D I D L A R R A Y 1
0035200 A 0 0 0 1 A 0 0 0 2 D 1 \r ( N
0035220 A M E U E R R O R S E T I
0035240 1 U R E S E T V A R S L S T
0035260 I 0 U E R R O R N A M E F
0035300 0 U A R G F 1 L A B
0035320 F 2 D I M ) \0 022 \0 003 \0 002 P
0035340 \t \0 \0 \t \0 \0 c 002 R 360 242 \b \0 \0 h 020
0035360 \0 ( 1 6 Q U E R R O R ! 6
0035400 F I X R 3 C O N V . A R I T
0035420 H ) \r N I L \r ( ) \r R E A D I D
0035440 L A R R A Y 1 A 0 0 0 1 A 0 0 0
0035460 3 D 1 \r ( N A M E U E R R O
0035500 R S E T I 1 U R E S E T V
0035520 A R S L S T I 0 U E R R O
0035540 R N A M E F 0 U A R G F
0035560 1 V A L U E ) \0 \f \0 002 \0 002
0035600 P \t \0 \0 \t \0 \0 c 002 h 020 \0 ( 6 F
0035620 I X R 3 C O N V . A R I T H
0035640 ) \r N I L \r ( ) \r R E A D I D L
0035660 A R R A Y 1 A 0 0 0 1 D 1 \r (
0035700 N A M E E R R O R S E T P
0035720 6 0 Q L S P E C P 5 7 Q
0035740 L P 5 4 Q D P 5 3 Q
0035760 D I M P 5 1 Q V A L P
0036000 5 0 Q G S B P 4 7 Q F I
0036020 X F L G P 4 6 Q N P 4
0036040 5 Q P P 4 1 Q K P 3
0036060 5 Q L E V P 3 1 Q L E V
0036100 # P 3 0 Q V A L U E P
0036120 2 7 Q U A R G P 2 6 Q X
0036140 P 2 4 Q X P 2 2 Q U
0036160 A R G P 2 1 Q L A B P
0036200 2 0 Q T E M P P 1 7 Q L
0036220 A B P 1 3 Q D I M P 1
0036240 1 Q F O R M A T P 1 0 Q
0036260 A P 7 S H P 6 V A L
0036300 D I M P 5 P R O P S P
0036320 4 K E E P S P 3 N L E V
0036340 S P 2 D I M S P E C S P
0036360 1 T I T L E P 0 O L D
0036400 = F 6 1 Q F I L E F 6
0036420 2 Q R E S E T V A R S L S T
0036440 F 6 3 Q R E S E T Y ) 006 322
0036460 1 003 002 \0 W b 262 + W b g \0 \0 \n \0 \0
0036500 235 g \0 \0 W b \t \0 \0 h 032 032 h 032 213 o
0036520 \0 \0 \0 W b \t \0 \0 h 032 032 W d 032 c d
0036540 277 \b \0 \0 c b 277 l = \t \0 \0 021 241 \n \b
0036560 \0 \0 d g \0 \0 360 245 d g \0 \0 360 222 277 i
0036600 201 277 h 263 \b \0 \0 262 027 o \0 \0 \0 i \n
0036620 \0 \0 277 W b i \n \0 \0 277 i \t \0 \0 277 \b
0036640 \0 \0 277 \b \0 \0 g \0 \0 360 223 \b \0 \0 271 \b
0036660 \0 \0 d g \0 \0 360 245 d g \0 \0 360 222 277 i
0036700 201 277 h 263 \b \0 \0 262 027 o \0 \0 \0 i \n
0036720 \0 \0 277 W b i \n \0 \0 277 i \t \0 \0 277 \b
0036740 \0 \0 277 o \0 \0 \0 H h 032 032 W d 032 c d
0036760 277 k 021 Q 020 \b \0 \0 d g \0 \0 360 245 d g
0037000 \0 \0 360 222 277 i 201 277 h 242 261 002 317 l = g
0037020 \0 \0 \n \0 \0 277 \b \0 \0 _ 036 004 l 004 360 263
0037040 E O 036 d 021 002 022 g \0 \0 W d \n \0 \0 262
0037060 0 \b \0 \0 262 ' o \0 \0 \0 i \n \0 \0 277 O
0037100 026 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277 O
0037120 $ i \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277 023
0037140 h _ 036 277 \b \0 \0 _ d 003 242 261 \0 275 021
0037160 021 024 O & 003 265 # h 022 224 O 026 L 032 274 O
0037200 021 021 026 O * 003 265 = h 022 242 261 \0 230 N
0037220 263 g O 026 ^ 261 \0 216 001 _ ( \t \0 \0 d g
0037240 \0 \0 360 253 d g \0 \0 360 245 d g \0 \0 360 222
0037260 277 i 201 277 h 226 O ( 265 300 i 260 275 O & 002
0037300 _ & 260 262 001 _ , \t \0 \0 d g \0 \0 360 263
0037320 024 d g \0 \0 360 253 d g \0 \0 360 245 d g \0
0037340 \0 360 222 277 i 201 277 h 226 O , 265 237 i 260 234
0037360 O * 002 _ * 260 221 \b \0 \0 262 & o \0 \0 \0
0037400 i \n \0 \0 277 N i \n \0 \0 277 o \0 \0 \0 i
0037420 \n \0 \0 277 O 026 i \n \0 \0 277 i \t \0 \0 277
0037440 \b \0 \0 277 \b \0 \0 _ g \0 \0 360 263 ) \b
0037460 \0 \0 262 o \0 \0 \0 i \n \0 \0 277 O 026 i
0037500 \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277 i \t \0
0037520 \0 277 \b \0 \0 277 \b \0 \0 021 021 030 g \0 \0 W
0037540 d \n \0 \0 262 0 \b \0 \0 262 ' o \0 \0 \0 i
0037560 \n \0 \0 277 O 026 i \n \0 \0 277 o \0 \0 \0 i
0037600 \n \0 \0 277 O . i \n \0 \0 277 i \t \0 \0 277
0037620 \b \0 \0 277 O 0 022 K 032 273 l = H \n \0 \0
0037640 277 k 021 A 035 \b \0 \0 o \0 \0 \0 034 \b \0 \0
0037660 _ : 277 222 261 \0 370 O : d 003 262 Q 277 N 265
0037700 \a O 026 ^ 260 3 O 026 360 263 / \b \0 \0 262 &
0037720 o \0 \0 \0 i \n \0 \0 277 N i \n \0 \0 277 o
0037740 \0 \0 \0 i \n \0 \0 277 O 026 i \n \0 \0 277 i
0037760 \t \0 \0 277 \b \0 \0 277 O : 001 3 020 262 M O
0040000 : d 001 \t \0 \0 030 001 _ 2 260 B 004 l 004 360
0040020 263 : O : 3 020 265 003 202 261 \0 212 \b \0 \0 262
0040040 ' o \0 \0 \0 i \n \0 \0 277 O 2 i \n \0 \0
0040060 277 o \0 \0 \0 i \n \0 \0 277 O 026 i \n \0 \0
0040100 277 i \t \0 \0 277 \b \0 \0 277 O 2 K 001 361 262
0040120 0 \b \0 \0 262 ' o \0 \0 \0 i \n \0 \0 277 O
0040140 026 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277 O
0040160 2 i \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277 O
0040200 : _ 8 277 O 6 265 025 O 8 h 032 _ 6 _ 4
0040220 277 O 2 k 324 _ 2 277 261 377 \r O 8 & _ 6
0040240 277 260 360 \t \0 \0 _ : _ 2 260 242 O 4 022 _
0040260 277 O 036 O 032 _ 034 277 O 032 265 025 O 034
0040300 h 032 _ 032 _ 030 277 O 026 k 324 _ 026 277 261 375
0040320 ' O 034 & _ 032 277 260 360 O 030 022 272 L \t \0
0040340 \0 274 \b \0 \0 \t \0 \0 _ 022 g \0 \0 360 250 O
0040360 022 d g \0 \0 360 224 277 \b \0 \0 205 g \0 \0 _
0040400 022 277 d g \0 \0 360 250 d g \0 \0 360 242 261 \0
0040420 357 277 \b \0 \0 d g \0 \0 360 246 d g \0 \0 360
0040440 262 h 277 L 222 261 001 003 021 @ ! \b \0 \0 _ B
0040460 \t \0 \0 g \0 \0 360 263 \b \0 \0 262 027 o \0
0040500 \0 \0 i \n \0 \0 277 O B i \n \0 \0 277 i \t
0040520 \0 \0 277 \b \0 \0 277 \b \0 \0 _ B g \0 \0 360
0040540 250 O B d g \0 \0 360 226 277 O < 022 261 377 t
0040560 _ @ 277 O > 265 \f O @ h 032 _ > _ < 260
0040600 327 O @ & _ > 260 320 d g \0 \0 360 250 d g
0040620 \0 \0 360 242 261 \0 223 277 021 @ % \b \0 \0 _ J
0040640 \t \0 \0 g \0 \0 360 263 \b \0 \0 262 027 o \0
0040660 \0 \0 i \n \0 \0 277 O J i \n \0 \0 277 i \t
0040700 \0 \0 277 \b \0 \0 277 \b \0 \0 _ J g \0 \0 360
0040720 250 O J d g \0 \0 360 227 277 O D 022 275 261 377
0040740 004 \b \0 \0 032 _ H 277 O F 265 \f O H h 032
0040760 _ F _ D 260 322 O H & _ F 260 313 d g \0
0041000 \0 360 245 d g \0 \0 360 227 277 g \0 \0 _ 022 260
0041020 030 277 \b \0 \0 235 o \0 \0 \0 i \n \0 \0 277 i
0041040 \t \0 \0 277 \b \0 \0 277 K \t \0 \0 \t \0 \0 _
0041060 016 O 022 d g \0 \0 360 223 277 g \0 \0 \n \0 \0
0041100 _ 020 I \n \0 \0 277 N 226 O 020 N \n \0 \0 277
0041120 O 022 g \0 \0 360 222 261 \0 251 j i O 020 O 022
0041140 g \0 \0 360 223 g \0 \0 202 g \0 \0 \n \0 \0 021
0041160 023 ) O P 006 \0 \0 310 \0 _ 024 j 360 263 Y O
0041200 024 005 003 226 O 024 \t \0 \0 263 M \b \0 \0 _ R
0041220 g \0 \0 360 263 k O R d g \0 \0 360 263 a \t
0041240 \0 \0 _ R 277 O N 262 O R 005 003 262 023 h
0041260 _ N 277 O 020 006 \0 \0 311 \b O L \n \0 \0 205
0041300 O L k 324 _ L 277 O 020 O P \t \0 \0 O R
0041320 \v \0 \0 277 260 236 \b \0 \0 _ R g \0 \0 360 263
0041340 O R g \0 \0 360 263 030 \b \0 \0 235 o \0 \0
0041360 \0 i \n \0 \0 277 i \t \0 \0 277 \b \0 \0 277 023
0041400 \b \0 \0 d g \0 \0 360 245 d g \0 \0 360 222 277
0041420 i 201 277 h 263 030 \b \0 \0 235 o \0 \0 \0 i \n
0041440 \0 \0 277 i \t \0 \0 277 \b \0 \0 277 J k 021 022
0041460 , O T 003 265 032 023 O 020 006 \0 \0 M 024 016 277
0041500 L 265 003 202 261 \0 261 O 020 022 c f i 020 001 _
0041520 X 277 O 020 O V O X 001 \v \0 \0 277 O X 002
0041540 O 016 O V \n \0 \0 k 021 023 0 O Z 003 265 021
0041560 023 O V k 324 _ V 277 O T 002 _ T 260 266 001
0041600 _ ` 277 O ^ O \ 363 263 350 O ` d 003 262 (
0041620 001 3 225 O ` 001 _ ^ 213 O 020 O V O ^
0041640 O ` 001 \f \0 \0 277 O 020 O ^ \t \0 \0 O `
0041660 002 \v \0 \0 260 ! 3 225 O ` _ ^ 260 033 O
0041700 ` 004 l 004 360 233 O 020 O V O ^ O ` \f \0
0041720 \0 202 \b \0 \0 277 O ^ k 324 _ ^ 277 O Z 002
0041740 _ Z 260 213 d 021 001 ! O B O 020 O B 001 \n
0041760 \0 \0 030 023 002 003 265 356 O 020 g \0 \0 L \v \0
0042000 \0 277 261 377 E \0 ( 3 3 1 4 Q S E T
0042020 A R R A Y P R O P 3 2 7 5 Q
0042040 M A K E 1 D I M S P E C 3 2 4
0042060 0 Q S H O U L D N T 3 2 3 4
0042100 Q S E T L E V L A B 3 1 7 7
0042120 Q A S S I G N . C O D E 3 1
0042140 7 1 Q C O D E 3 1 6 1 Q S
0042160 E T L E V L A B 3 0 6 2 Q G
0042200 E T R E L T 3 0 4 7 Q S E T
0042220 D I M L A B 2 7 6 6 Q U E R
0042240 R O R ! 2 7 6 2 Q T E R P R
0042260 I 2 7 5 5 Q P R I N 1 2 7
0042300 4 4 Q U E R R O R P R I N T ?
0042320 2 7 1 6 Q R A T O M 2 7 1
0042340 1 Q U E R R O R ! 2 7 0 5 Q
0042360 T E R P R I 2 7 0 0 Q P R
0042400 I N 1 2 6 6 7 Q U E R R O R
0042420 P R I N T ? 2 6 4 4 Q R A T
0042440 O M 2 6 3 6 Q S E T A E L T
0042460 2 6 3 1 Q N E X T 2 6 1 2
0042500 Q F L O A T R O W 2 5 5 5 Q
0042520 C O N V . S C A L A R 2 5 3
0042540 1 Q R A T O M 2 5 2 4 Q \
0042560 F Z E R O P 2 4 7 2 Q S E T
0042600 U P 2 4 3 2 Q S E T V A L D
0042620 I M 2 4 2 1 Q S E T T I T L
0042640 E 2 4 1 3 Q A L L O C . S A
0042660 R R A Y 2 3 7 2 Q R O W I N
0042700 T O F 1 2 3 6 7 Q D R E V E
0042720 R S E 2 3 6 2 Q U E R R O R
0042740 ! 2 3 5 6 Q T E R P R I 2
0042760 3 5 1 Q P R I N 1 2 3 4 0 Q
0043000 U E R R O R P R I N T ? 2 2
0043020 5 7 Q R E A D 2 2 2 5 Q R
0043040 A T O M 2 2 2 1 Q U E R R O
0043060 R ! 2 2 1 5 Q T E R P R I
0043100 2 2 1 0 Q P R I N 2 2 2 0 1
0043120 Q P R I N 1 2 1 6 7 Q U E
0043140 R R O R P R I N T ? 2 1 5 6 Q
0043160 L - C A S E 2 1 5 1 Q R A
0043200 T O M 2 0 4 5 Q R A T O M
0043220 2 0 4 1 Q U E R R O R ! 2 0
0043240 3 5 Q T E R P R I 2 0 3 0 Q
0043260 P R I N 2 2 0 2 1 Q P R I
0043300 N 1 2 0 0 7 Q U E R R O R P
0043320 R I N T ? 1 7 7 6 Q L - C A
0043340 S E 1 7 7 1 Q R A T O M 1
0043360 7 4 0 Q S K I P S E P R S 1
0043400 7 0 6 Q R A T O M 1 6 6 3 Q
0043420 U - C A S E 1 6 6 0 Q R A
0043440 T O M 1 6 5 4 Q D R E V E R
0043460 S E 1 5 6 1 Q F I X R 1 5
0043500 1 1 Q U E R R O R ! 1 5 0 5
0043520 Q T E R P R I 1 5 0 0 Q P
0043540 R I N 1 1 4 7 1 Q P R I N 1
0043560 1 4 6 0 Q P R I N 1 1 4 5
0043600 1 Q P R I N 1 1 4 3 7 Q U
0043620 E R R O R P R I N T ? 1 4 2 4
0043640 Q U E R R O R ! 1 4 2 0 Q
0043660 T E R P R I 1 4 1 3 Q P R I
0043700 N 1 1 4 0 4 Q P R I N 1 1
0043720 3 7 3 Q P R I N 1 1 3 6 4 Q
0043740 P R I N 1 1 3 5 2 Q U E R
0043760 R O R P R I N T ? 1 3 2 1 Q
0044000 F I X R 1 3 0 2 Q U E R R O
0044020 R ! 1 2 7 6 Q T E R P R I
0044040 1 2 7 1 Q P R I N 1 1 2 6 2
0044060 Q P R I N 1 1 2 5 1 Q P R
0044100 I N 1 1 2 4 3 Q P R I N 1
0044120 1 2 3 1 Q U E R R O R P R I N
0044140 T ? 1 1 7 3 Q R E A D 1 1
0044160 6 3 Q S K I P S E P R S 1 1
0044200 5 3 Q S E T S Y N T A X 1 1
0044220 3 6 Q U E R R O R ! 1 1 3 2
0044240 Q T E R P R I 1 1 2 5 Q P
0044260 R I N 2 1 1 1 6 Q P R I N 1
0044300 1 1 0 5 Q P R I N 1 1 0 7
0044320 6 Q P R I N 1 1 0 6 4 Q U
0044340 E R R O R P R I N T ? 1 0 5 7
0044360 Q R E A D I D L A R R A Y 1 A
0044400 0 0 0 1 A 0 0 0 3 1 0 4 4 Q
0044420 R A T O M 1 0 4 0 Q U E R R
0044440 O R ! 1 0 3 4 Q T E R P R I
0044460 1 0 2 7 Q P R I N 1 1 0 1
0044500 6 Q P R I N 1 1 0 0 7 Q P
0044520 R I N 1 7 7 5 Q U E R R O R
0044540 P R I N T ? 7 6 2 Q R E A D
0044560 7 5 6 Q U E R R O R ! 7 5
0044600 2 Q T E R P R I 7 4 5 Q P
0044620 R I N 1 7 3 6 Q P R I N 1
0044640 7 2 5 Q P R I N 1 7 1 7 Q
0044660 P R I N 1 7 0 5 Q U E R R O
0044700 R P R I N T ? 6 2 5 Q L - C
0044720 A S E 5 5 1 Q L - C A S E
0044740 4 6 2 Q R E A D 4 5 1 Q U
0044760 E R R O R ! 4 4 5 Q T E R P
0045000 R I 4 4 0 Q P R I N 2 4 3
0045020 1 Q P R I N 1 4 2 0 Q P R
0045040 I N 1 4 1 1 Q P R I N 1 3
0045060 7 7 Q U E R R O R P R I N T ?
0045100 3 7 2 Q R E A D I D L A R R
0045120 A Y 1 A 0 0 0 1 A 0 0 0 2 3 4
0045140 4 Q R A T O M 3 4 0 Q S E
0045160 T S Y N T A X 3 0 3 Q R A T
0045200 O M 2 5 5 Q U E R R O R !
0045220 2 5 1 Q T E R P R I 2 4 4 Q
0045240 P R I N 2 2 3 5 Q P R I N
0045260 1 2 2 3 Q U E R R O R P R I
0045300 N T ? 1 7 5 Q R A T O M 1
0045320 7 1 Q R E A D 1 6 1 Q S K
0045340 I P S E P R S 1 5 5 Q U E R
0045360 R O R ! 1 5 1 Q T E R P R I
0045400 1 4 4 Q P R I N 2 1 3 5 Q
0045420 P R I N 1 1 2 3 Q U E R R
0045440 O R P R I N T ? 7 5 Q R A T
0045460 O M 6 7 Q G E T S Y N T A X
0045500 5 7 Q I N P U T 4 3 Q I
0045520 N F I L E 2 4 Q I N P U T
0045540 1 3 Q O P E N P ) \r ( 3 3 1 0
0045560 Q K E E P S 3 0 0 7 Q A R
0045600 R A Y F R A M E 2 7 3 0 Q %
0045620 ] 2 7 2 2 Q % ) 2 6 6 1 Q
0045640 % ] 2 6 5 1 Q % ) 2 6 0
0045660 3 Q A R R A Y F R A M E 2 5
0045700 4 7 Q % ] 2 5 3 6 Q % )
0045720 2 5 0 2 Q G E N S T A T E B L
0045740 O C K 2 4 6 7 Q S Y M M E T
0045760 R I C 2 4 6 3 Q R O W M A J
0046000 O R 2 4 5 6 Q F U L L 2 4
0046020 4 0 Q E M P T Y 2 4 1 0 Q
0046040 F U L L 2 4 0 2 Q E M P T Y
0046060 2 3 3 0 Q E M P T Y 2 3 2
0046100 2 Q % ] 2 3 1 4 Q % ) 2
0046120 2 4 2 Q % ] 2 2 3 2 Q % )
0046140 2 1 6 1 Q p r o p e r t i e
0046160 s 2 1 3 5 Q P 2 1 2 7 Q
0046200 p 2 0 6 2 Q % ] 2 0 5 2 Q
0046220 % ) 2 0 0 1 Q k e p t 1
0046240 7 5 2 Q K 1 7 4 4 Q k 1
0046260 7 2 7 Q % [ 1 7 2 1 Q % (
0046300 1 7 1 2 Q F U L L 1 7 0 0
0046320 Q S Y M M E T R I C 1 6 7 0
0046340 Q F U L L 1 0 5 2 Q U E R
0046360 R O R G U A R D 7 6 7 Q =
0046400 6 5 4 Q c o d e b o o k s 6
0046420 4 6 Q c o d e b o o k 6 4 0
0046440 Q c o d e s 6 3 1 Q c o d
0046460 e 5 7 1 Q k e e p 5 6 3 Q
0046500 k e e p s 5 5 5 Q k e p t
0046520 3 6 5 Q U E R R O R G U A R
0046540 D 3 3 5 Q B R E A K 3 1 5
0046560 Q % [ 3 0 7 Q % ( 2 0 7
0046600 Q % [ 2 0 1 Q % ( 1 6 4
0046620 Q % " 1 0 7 Q % [ 1 0 1
0046640 Q % ( 1 7 Q I N P U T 1
0046660 0 Q I N P U T ) \r ( 2 7 5 1
0046700 Q " F i n a l p a r e n t h
0046720 e s i s m i s s i n g " 2 6
0046740 7 4 Q " T o o m a n y v a
0046760 l u e s " 2 3 4 5 Q " M i s
0047000 s i n g p a r e n a r o u n
0047020 d v a l u e l i s t " 2 1
0047040 7 5 Q " B a d p r o p e r t
0047060 y l i s t o r i l l e g a
0047100 l v a l u e : " 2 0 1 5
0047120 Q " B a d k e e p s l i s
0047140 t o r i l l e g a l v a l
0047160 u e : " 1 4 6 5 Q " :
0047200 " 1 4 4 5 Q " T o o m a
0047220 n y l e v e l s p e c i f i
0047240 c a t i o n s f o r d i m e
0047260 n s i o n " 1 4 0 0 Q " ,
0047300 d i m e n s i o n " 1 3 6
0047320 0 Q " I n v a l i d l a b e
0047340 l s p e c i f i c a t i o n
0047360 f o r l e v e l " 1 2 5 6
0047400 Q " a n d " 1 2 3 7 Q
0047420 " T w o c o d e - b o o k d
0047440 i m e n s i o n s : " 1 1
0047460 6 7 Q ( % ) % ] ) 1 1 1 2
0047500 Q " n o t a n i n t e g
0047520 e r : " 1 0 7 2 Q " N u
0047540 m b e r o f l e v e l s f
0047560 o r d i m e n s i o n " 1
0047600 0 2 3 Q " s p e c i f i c a
0047620 t i o n " 1 0 0 3 Q " M i s
0047640 s i n g % " = % " i n d i
0047660 m e n s i o n " 7 3 2 Q "
0047700 a n d " 7 1 3 Q " T w o
0047720 c o d e - b o o k d i m e n
0047740 s i o n s : " 4 2 5 Q "
0047760 : " 4 0 5 Q " I n v a l
0050000 i d l a b e l f o r d i m
0050020 e n s i o n " 2 6 2 Q ( P
0050040 R O G N ( S E T S Y N T A X
0050060 ( Q U O T E = ) O L D V A L
0050100 U E ) ) 2 3 1 Q " I n v a l
0050120 i d f i l e f o r m a t :
0050140 " 1 3 1 Q " I n v a l i d
0050160 f i l e f o r m a t : "
0050200 3 6 Q ( P R O G N ( C L O
0050220 S E F ( I N P U T O L D V A
0050240 L U E ) ) ) ) \r R E A D I D L A
0050260 R R A Y 1 D 1 \r ( P 2 R E
0050300 S E T Z P 1 R E S E T Y
0050320 P 0 L I S P X H I S T I
0050340 0 F I L E F 3 L I S P X
0050360 H I S T F 4 R E S E T V A
0050400 R S L S T ) \0 " 003 002 \0 001 S 021 !
0050420 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g
0050440 \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0 (
0050460 3 5 Q E R R O R ! 3 0 Q R
0050500 E S E T R E S T O R E 1 6 Q
0050520 R E A D I D L A R R A Y 1 A 0 0
0050540 0 1 ) \r ( 2 4 Q E R R O R 1
0050560 3 Q I N T E R N A L ) \r ( 1
0050600 0 Q ( R E A D I D L A R R A Y
0050620 1 A 0 0 0 1 ) ) \r R E A D R O W
0050640 D 1 \r ( P 5 E L T P 4
0050660 I P 1 R O W P 0 P
0050700 R O P L S T I 0 S T R E A
0050720 M ) \0 R 006 \0 \0 001 @ \t \0 \0 021 021 001
0050740 h d H g \0 \0 ' H g \0 \0 ' \f \0 \0 d
0050760 H g \0 \0 ' 221 k 200 j 317 004 320 277 Y H g
0051000 \0 \0 ' I 006 \0 \0 310 005 k 021 023 005 J 003 265
0051020 004 I 020 001 275 L K 363 263 371 I L M \v \0 \0
0051040 277 L k 324 274 J 002 Z 260 346 \0 ( 1 0 6 Q
0051060 S E T R E L T 2 5 Q D R O
0051100 W C R E A T E 3 H R E A D )
0051120 \r ( 5 5 Q R O W H E A D E R
0051140 5 0 Q E L E M E N T S 3 2 Q
0051160 M A Y H A V E N I L 2 1 Q
0051200 R E L T T Y P E 1 4 Q N E L
0051220 T S ) \r ( ) \r ( P R E T T Y C O
0051240 M P R I N T D A T A E N T R Y
0051260 C O M S ) \r ( R P A Q Q D A T
0051300 A E N T R Y C O M S ( ( * D
0051320 e f i n e s u t i l i t y f
0051340 u n c t i o n f o r c o n v
0051360 e r t i n g l a b e l e d l
0051400 i s t s t o I D L m a t r
0051420 i c e s ) ( F N S \r C O N V
0051440 E R T D U M P I D L A R R A Y
0051460 D U M P I D L A R R A Y 1 I
0051500 D L A R R A Y I D L M A T R I
0051520 X L I S T A R R A Y L I S T
0051540 M A T R I X P R I N T I D L A
0051560 R R A Y P R I N T R O W \r R
0051600 E A D I D L A R R A Y R E A D
0051620 I D L A R R A Y 1 R E A D R O
0051640 W ) ( F I L E P K G C O M S
0051660 I D L A R R A Y S ) ( A D D V
0051700 A R S ( H P R I N T M A C R O
0051720 S ( A R R A Y F R A M E .
0051740 \r P R I N T I D L A R R A Y ) )
0051760 ) ( A D D V A R S ( H P R I
0052000 N T M A C R O S ( R O W H E A
0052020 D E R . P R I N T R O W ) )
0052040 ) ) ) \r ( P U T D E F ( Q U O
0052060 T E I D L A R R A Y S ) ( Q
0052100 U O T E F I L E P K G C O M S
0052120 ) ( Q U O T E ( ( C O M M
0052140 A C R O ( X ( H O R R I B L
0052160 E V A R S . X ) ) ) ) ) ) \r
0052200 ( A D D T O V A R H P R I N T
0052220 M A C R O S ( A R R A Y F R A
0052240 M E . P R I N T I D L A R R
0052260 A Y ) ) \r ( A D D T O V A R H
0052300 P R I N T M A C R O S ( R O W
0052320 H E A D E R . P R I N T R O
0052340 W ) ) \r ( P U T P R O P S D A
0052360 T A E N T R Y C O P Y R I G H
0052400 T ( " X e r o x C o r p o r
0052420 a t i o n " 1 9 8 3 1 9 8 4
0052440 1 9 8 5 1 9 8 6 ) ) \r N I L
0052460 \r
0052461