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