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