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