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