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