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