$ od -c -N 50000 [eris]<LispCore>SOURCES>COMMON.DCOM!46
0000000 ( F I L E C R E A T E D " 2 6
0000020 - J u n - 8 6 1 0 : 0 7 : 0 5
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > C O M M O N
0000120 . ; 4 9 ) \r " 2 3 - J u n - 8
0000140 6 1 8 : 0 4 : 3 0 " r e c o
0000160 m p i l e d c h a n g e s :
0000200 R E A D H A S H M A C R O i n
0000220 " X e r o x L i s p 2 3 -
0000240 J u n - 8 6 . . . " d a t e
0000260 d \r " 2 3 - J u n - 8 6 1 8
0000300 : 1 7 : 4 1 " ) \r ( F I L E C R
0000320 E A T E D " 2 6 - J u n - 8 6
0000340 1 0 : 0 5 : 4 8 " { E R I S
0000360 } < L I S P C O R E > S O U R C
0000400 E S > C O M M O N . ; 4 9 2 7
0000420 7 5 2 c h a n g e s t o :
0000440 ( F N S \r R E A D H A S H M A
0000460 C R O ) p r e v i o u s d a
0000500 t e : " 1 0 - J u n - 8 6 1
0000520 7 : 1 7 : 0 4 " { E R I S } <
0000540 L I S P C O R E > S O U R C E S
0000560 > C O M M O N . ; 4 8 ) \r R E A
0000600 D V B A R D 1 \r ( I 1 R D
0000620 T B L I 0 S T R E A M )
0000640 \0 L \0 \0 \0 002 @ \t \0 \0 d l ' 360 231 @
0000660 \t \0 \0 @ A \n \0 \0 020 d l ( 360 251 d l
0000700 { 360 244 d l ^ 360 224 @ \t \0 \0 020 d l #
0000720 360 232 277 @ \t \0 \0 @ A \n \0 \0 020 d l \r
0000740 360 252 d l \t 360 245 d l 360 262 354 \b \0 \0
0000760 020 \0 ( 1 1 1 Q V A L U E S 6
0001000 5 Q R E A D H A S H M A C R O
0001020 6 0 Q R E A D C C O D E 4
0001040 5 Q H R E A D 2 1 Q R E A
0001060 D B Q U O T E 1 4 Q R E A D
0001100 C C O D E 3 P E E K C C O D
0001120 E ) \r N I L \r ( ) \r R E A D H A
0001140 S H M A C R O D 1 \r ( P 1 3
0001160 Q D E N P 1 2 Q N U M
0001200 P 1 1 Q A 0 0 7 3 P 5
0001220 C O N T E N T S P 2 R E A
0001240 D V A L P 1 N E X T C H A
0001260 R P 0 R E A D F N I 2
0001300 I N D E X I 1 R D T B L
0001320 I 0 S T R E A M ) 002 X \f
0001340 \0 \0 003 A 006 \0 \0 312 002 j 360 243 g \0 \0
0001360 202 g \0 \0 021 A 004 @ A \n \0 \0 Y 273 l 0
0001400 K 361 263 035 K l 9 361 263 027 B 265 003 j l \n
0001420 326 @ A \n \0 \0 l 0 325 324 b 004 277 260 332 I
0001440 l ( 360 262 ! @ k H 017 016 021 001 005 B 265 016
0001460 M \t \0 \0 g \0 \0 M \v \0 \0 020 \t \0 \0 M
0001500 \n \0 \0 020 @ A \n \0 \0 d l ' 360 234 277 g
0001520 \0 \0 @ A \n \0 \0 h 032 032 020 d l . 360 231
0001540 277 @ k H 017 016 \t \0 \0 020 d l , 360 234 277
0001560 g \0 \0 @ A \n \0 \0 h 032 032 020 d l \ 360
0001600 225 277 @ \t \0 \0 020 d l * 360 262 \ 021 0 \b
0001620 @ A \n \0 \0 o \0 \0 \0 \n \0 \0 262 " @ A
0001640 \n \0 \0 l 0 331 _ 020 277 O 016 265 \v O 020 h
0001660 032 _ 016 276 260 334 O 020 & _ 016 277 260 324 N 022
0001700 021 001 005 B 265 025 M \t \0 \0 g \0 \0 M g \0
0001720 \0 g \0 \0 \r 005 \0 \0 020 g \0 \0 g \0 \0 \v
0001740 \0 \0 M \n \0 \0 020 d l : 360 225 @ A \n \0
0001760 \0 020 d l O 360 244 d l o 360 227 277 @ l \b
0002000 \n \0 \0 020 d l B 360 244 d l b 360 227 277 @
0002020 l 002 \n \0 \0 020 d l X 360 244 d l x 360 227
0002040 277 @ l 020 \n \0 \0 020 d l R 360 244 d l r
0002060 360 226 277 @ B \n \0 \0 020 d l A 360 245 d l
0002100 a 360 262 030 277 @ k H 017 016 021 001 005 B M \n
0002120 \0 \0 g \0 \0 M \v \0 \0 020 d l S 360 244 d
0002140 l s 360 231 277 @ k H 017 016 \t \0 \0 020 d l
0002160 C 360 245 d l c 360 262 277 @ k H 017 016 021
0002200 ! \v O 022 001 _ 024 277 O 022 002 001 _ 026 277 O
0002220 024 O 026 \n \0 \0 020 d l + 360 262 025 @ A \n
0002240 \0 \0 \t \0 \0 245 @ A \n \0 \0 277 \b \0 \0 020
0002260 d l - 360 262 025 @ A \n \0 \0 \t \0 \0 225 @
0002300 A \n \0 \0 277 \b \0 \0 020 d l | 360 230 @ A
0002320 \n \0 \0 \b \0 \0 020 d l < 360 224 277 \b \0 \0
0002340 020 d l 360 263 034 d l \t 360 263 026 d l \r
0002360 360 256 d l \f 360 251 d l \r 360 244 d l ) 360
0002400 234 277 o \0 \0 \0 I \t \0 \0 \n \0 \0 020 l "
0002420 360 230 @ A g \0 \0 \v \0 \0 020 I \t \0 \0 301
0002440 002 311 \0 g \0 \0 ' 265 \n o \0 \0 \0 I \n \0
0002460 \0 274 @ A l 002 L 017 016 020 \0 ( 1 1 1 5
0002500 Q E R R O R 1 0 7 3 Q C H
0002520 A R A C T E R 1 0 6 6 Q R S
0002540 T R I N G 1 0 5 1 Q E R R O
0002560 R 1 0 4 6 Q C H A R C O D E
0002600 . U N D E C O D E 7 7 4 Q R
0002620 E A D < 7 6 2 Q V A L U E S
0002640 7 5 7 Q S K I P . H A S H .
0002660 C O M M E N T 7 4 4 Q V A L
0002700 U E S 7 4 0 Q C L : R E A D
0002720 7 3 2 Q C M L R E A D . F E
0002740 A T U R E . P A R S E R 7 2 7
0002760 Q R E A D 7 1 3 Q V A L U
0003000 E S 7 0 7 Q C L : R E A D
0003020 7 0 1 Q C M L R E A D . F E A
0003040 T U R E . P A R S E R 6 7 6 Q
0003060 R E A D 6 6 2 Q C O M P L
0003100 E X 6 1 1 Q C R E A T E - S
0003120 T R U C T U R E 5 6 5 Q M A
0003140 K E - A R R A Y 5 5 6 Q E S
0003160 T I M A T E - D I M E N S I O N
0003200 A L I T Y 5 2 4 Q R E A D N
0003220 U M B E R I N B A S E 5 0 3 Q
0003240 R E A D N U M B E R I N B A S
0003260 E 4 6 1 Q R E A D N U M B E
0003300 R I N B A S E 4 3 7 Q R E A
0003320 D N U M B E R I N B A S E 4 1
0003340 5 Q R S T R I N G 4 0 2 Q
0003360 F I L L . V E C T O R 3 7 6 Q
0003400 M A K E - A R R A Y 3 6 4 Q
0003420 M A K E - A R R A Y 3 4 6 Q
0003440 L E N G T H 2 7 7 Q R E A
0003460 D C C O D E 2 7 0 Q M E M Q
0003500 2 6 1 Q P E E K C C O D E
0003520 2 4 2 Q C H A R A C T E R . R
0003540 E A D 2 2 4 Q R E A D 2 0
0003560 5 Q E V A L 1 6 3 Q R E A
0003600 D 1 4 5 Q R E A D C C O D E
0003620 1 3 7 Q F I L L . V E C T O
0003640 R 1 3 3 Q M A K E - A R R A
0003660 Y 1 2 7 Q M A K E - A R R A
0003700 Y 1 2 0 Q L E N G T H 6 2
0003720 Q R E A D C C O D E 3 0 Q
0003740 P E E K C C O D E ) \r ( 1 1 0 2
0003760 Q H A S H R E A D M A C R O
0004000 1 0 6 3 Q S K I P 5 6 1 Q
0004020 : I N I T I A L - C O N T E N T
0004040 S 3 7 3 Q B I T 3 7 0 Q
0004060 : E L E M E N T - T Y P E 3 6
0004100 0 Q B I T 3 5 5 Q : E L E
0004120 M E N T - T Y P E 3 5 1 Q :
0004140 I N I T I A L - C O N T E N T S
0004160 2 1 7 Q L O A D T I M E C O
0004200 N S T A N T 1 5 6 Q F U N C
0004220 T I O N 1 2 3 Q : I N I T I
0004240 A L - C O N T E N T S 2 0 Q
0004260 R E A D 1 4 Q C L : R E A D
0004300 3 R E A D T A B L E P ) \r (
0004320 1 1 1 1 Q " U n d e f i n e
0004340 d h a s h m a c r o c h a r
0004360 " 1 0 4 2 Q " I l l e g a l
0004400 r e a d s y n t a x " 2
0004420 6 5 Q ( 6 0 Q 6 1 Q ) ) \r D
0004440 E F M A C R O - L A M B D A - L
0004460 I S T - K E Y W O R D - P D 1
0004500 \r ( I 0 S ) \0 \n \0 \0 \0 001 @
0004520 o \0 \0 \0 \n \0 \0 020 \0 ( 7 M E M B
0004540 E R ) \r N I L \r ( 4 ( & O P
0004560 T I O N A L & R E S T & K E
0004600 Y & A L L O W - O T H E R - K
0004620 E Y S & A U X & B O D Y &
0004640 W H O L E ) ) \r D I G I T B A S
0004660 E P D 1 \r ( L ( 1 R A D I
0004700 X 0 C O D E ) ) \0 F \0 \0 \0
0004720 002 l 0 @ 363 254 @ A l 0 324 375 363 224 @ l
0004740 0 325 020 A l \n 363 264 , l a @ 363 253 @ l
0004760 z 363 246 @ m 340 324 b \0 277 l A @ 363 263 026
0005000 @ l Z 363 256 @ l A 325 l \n 324 b \0 A @
0005020 363 264 002 020 h 020 \0 N I L \r N I L \r (
0005040 ) \r R E A D N U M B E R I N B A
0005060 S E D 1 \r ( P 4 B A S E
0005100 P 3 S I G N P 2 N U M
0005120 E R A T O R P 1 V A L P
0005140 0 C H I 1 R A D I X
0005160 I 0 S T R E A M F 6 *
0005200 R E A D T A B L E * ) \0 211 006 001
0005220 \0 002 @ \t \0 \0 021 Q 005 H d l + 360 263 #
0005240 d l - 360 262 , 277 i [ 260 030 H l / 360 262
0005260 2 J 242 I 265 \n o \0 \0 \0 \t \0 \0 020 272 h
0005300 Y 277 @ \t \0 \0 277 @ I \n \0 \0 X 262 7 H
0005320 A \n \0 \0 \ 262 326 I 265 003 j A 326 L 324 260
0005340 341 V 006 \0 \0 311 \0 275 H l 377 361 234 M 311 200
0005360 226 H M 311 200 035 265 \a j 202 M H 302 l 345
0005400 j 360 263 264 I 262 261 J 265 \t K 233 I \t \0 \0
0005420 020 I \n \0 \0 271 260 364 I 020 \0 ( 2 0 2 Q
0005440 % % / 1 7 5 Q M I N U S
0005460 1 0 1 Q D I G I T B A S E P
0005500 7 1 Q P E E K C C O D E 6 3
0005520 Q R E A D C C O D E 5 2 Q
0005540 E R R O R 3 P E E K C C O D
0005560 E ) \r ( 1 2 2 Q R E A D T A B
0005600 L E P ) \r ( 4 7 Q " M a l f
0005620 o r m e d r a t i o " ) \r E S
0005640 T I M A T E - D I M E N S I O N
0005660 A L I T Y D 1 \r ( P 1 D
0005700 I 1 C O N T E N T S I 0
0005720 R A N K ) \0 : 006 \0 \0 002 @ 265 \n
0005740 o \0 \0 \0 \t \0 \0 020 j 360 221 h 020 @ A 021
0005760 B 005 k 275 M H 363 263 035 I \t \0 \0 274 K 265
0006000 020 L h 032 [ 272 M k 324 275 I 001 271 260 347 L
0006020 & 273 260 364 J 020 \0 ( 3 7 Q L E N G
0006040 T H 1 1 Q E R R O R ) \r N I
0006060 L \r ( 6 " N o r a n k f
0006100 o u n d w h i l e r e a d i
0006120 n g a r r a y " ) \r S K I P .
0006140 H A S H . C O M M E N T D 1 \r
0006160 ( I 1 R D T B L I 0 S
0006200 T R E A M ) \0 ; \0 \0 \0 002 @ A \n
0006220 \0 \0 d l # 360 262 033 277 @ A \n \0 \0 l |
0006240 360 262 354 @ A \n \0 \0 277 @ A \n \0 \0 277 260
0006260 336 l | 360 262 331 @ A \n \0 \0 l # 360 262 317
0006300 @ A \n \0 \0 h 020 \0 ( 6 7 Q R E A
0006320 D C C O D E 5 5 Q P E E K C
0006340 C O D E 4 0 Q S K I P . H A
0006360 S H . C O M M E N T 3 2 Q R
0006400 E A D C C O D E 2 0 Q P E E
0006420 K C C O D E 4 R E A D C C O
0006440 D E ) \r N I L \r ( ) \r C M L R E
0006460 A D . F E A T U R E . P A R S E
0006500 R D 1 \r ( P 0 A 0 0 6 9
0006520 I 0 E X P R F 3 * F E
0006540 A T U R E S * ) \0 X 003 001 \0 001 @
0006560 d 003 262 N 001 021 ! 002 H d g \0 \0 360 262 024
0006600 277 @ 210 d Y 001 I \n \0 \0 264 034 002 003 265 365
0006620 i 020 g \0 \0 360 237 @ 207 d Z 001 J \n \0 \0
0006640 244 002 003 265 366 h 020 H d g \0 \0 360 231 277 @
0006660 002 001 \t \0 \0 h 360 020 g \0 \0 360 264 \t @ 020
0006700 S 034 264 003 i 020 \0 ( 1 0 5 Q C M L
0006720 R E A D . F E A T U R E . P A R
0006740 S E R 6 0 Q C M L R E A D .
0006760 F E A T U R E . P A R S E R 3
0007000 2 Q C M L R E A D . F E A T U
0007020 R E . P A R S E R ) \r ( 1 1 3 Q
0007040 E R R O R 7 4 Q N O T 4
0007060 5 Q O R 1 5 Q A N D ) \r (
0007100 ) \r C R E A T E - S T R U C T U
0007120 R E D 1 \r ( P 3 T A I L
0007140 I 0 S T R U C T U R E - F O
0007160 R M ) \0 ? 004 \0 \0 001 g \0 \0 @ 001 \t
0007200 \0 \0 \n \0 \0 021 0 002 @ 260 035 d 021 001 003 K
0007220 001 \t \0 \0 K 002 001 h 032 032 022 X 003 226 I 265
0007240 021 H Z Y 277 002 002 003 265 343 J 022 \n \0 \0 020
0007260 \t \0 \0 Y H 031 260 356 \0 ( 7 0 Q L A
0007300 S T 6 4 Q A P P L Y 3 1 Q
0007320 M A K E - K E Y W O R D 1 2
0007340 Q P A C K * 7 U - C A S E
0007360 ) \r ( 2 M A K E - ) \r ( ) \r R
0007400 E A D B Q U O T E D 1 \r ( P
0007420 0 \ I N B Q U O T E I 1
0007440 R D T B L I 0 F I L E )
0007460 \0 021 001 \0 \0 002 i 021 001 \0 g \0 \0 @ A \n
0007500 \0 \0 h 032 032 020 \0 ( 1 3 Q R E A D
0007520 ) \r ( 6 B Q U O T E ) \r ( ) \r
0007540 R E A D B Q U O T E C O M M A
0007560 D 1 \r ( P 0 C H I 1 R
0007600 D T B L I 0 F I L E F
0007620 1 \ I N B Q U O T E ) \0 a 001
0007640 001 \0 002 A 312 002 j 360 222 Q 262 / @ A \n
0007660 \0 \0 d l @ 360 231 277 @ \t \0 \0 277 g \0 \0
0007700 217 l . 360 230 @ \t \0 \0 277 g \0 \0 202 g \0
0007720 \0 @ A \n \0 \0 h 032 032 020 @ \t \0 \0 021 001
0007740 \0 H g \0 \0 A \v \0 \0 250 H g \0 \0 A \v
0007760 \0 \0 223 g \0 \0 020 g \0 \0 @ A \n \0 \0 \n
0010000 \0 \0 020 \0 ( 1 3 6 Q P A C K *
0010020 1 3 3 Q R E A D 1 1 6 Q S
0010040 Y N T A X P 1 0 5 Q S Y N T
0010060 A X P 7 2 Q P E E K C C O D
0010100 E 6 2 Q R E A D 4 5 Q R
0010120 E A D C C O D E 3 0 Q R E A
0010140 D C C O D E 1 6 Q S K I P S
0010160 E P R C O D E S ) \r ( 1 2 6 Q
0010200 % , 1 2 2 Q % , 1 1 2 Q
0010220 S E P R 1 0 1 Q B R E A K
0010240 5 5 Q \ , 5 1 Q \ , . 3
0010260 4 Q \ , @ ) \r ( ) \r \ B Q U O
0010300 T E . E X P A N D D 1 \r ( P
0010320 0 F N I 1 L E V E L I
0010340 0 E X P R ) 001 \0 001 \0 \0 002 j
0010360 A 361 230 o \0 \0 \0 @ \n \0 \0 020 A d j 360
0010400 262 ) 277 @ d 003 242 261 \0 346 d 001 g \0 \0 360
0010420 232 002 001 k b 002 277 b \0 277 260 325 001 j \n \0
0010440 \0 @ 002 j \n \0 \0 032 020 k 360 262 { @ d 003
0010460 262 a 001 021 001 \0 H d g \0 \0 360 224 277 @ 002
0010500 001 020 g \0 \0 360 230 o \0 \0 \0 @ \n \0 \0 020
0010520 H d g \0 \0 360 231 277 o \0 \0 \0 @ \n \0 \0
0010540 020 g \0 \0 360 226 @ l 002 \n \0 \0 020 H 003 265
0010560 \b @ k \n \0 \0 020 001 d g \0 \0 360 245 d g
0010600 \0 \0 360 221 277 205 g \0 \0 360 262 347 @ \t \0 \0
0010620 020 262 023 @ d i 360 254 3 020 265 \v g \0 \0 @
0010640 h 032 032 020 @ 020 @ d 003 262 1 001 d g \0 \0
0010660 360 253 d g \0 \0 360 245 d g \0 \0 360 230 277 @
0010700 A k 331 \n \0 \0 020 g \0 \0 360 227 @ A k 330
0010720 \n \0 \0 020 @ A \n \0 \0 020 262 312 @ d i 360
0010740 263 305 3 020 265 301 g \0 \0 @ h 032 032 020 \0 (
0010760 3 5 1 Q \ B Q U O T E . S T A
0011000 N D A R D 3 4 3 Q \ B Q U O
0011020 T E . S T A N D A R D 3 2 6 Q
0011040 \ B Q U O T E . S T A N D A R
0011060 D 2 4 0 Q \ B Q U O T E . S
0011100 P L I C E 2 0 6 Q \ B Q U O
0011120 T E . S T A N D A R D 1 7 4 Q
0011140 \ B Q U O T E . S T A N D A R
0011160 D 1 6 0 Q E R R O R 1 3 7
0011200 Q E R R O R 6 7 Q \ B Q U
0011220 O T E . E X P A N D 6 1 Q \
0011240 B Q U O T E . E X P A N D 1 3
0011260 Q E R R O R ) \r ( 3 7 1 Q Q
0011300 U O T E 3 3 2 Q B Q U O T E
0011320 3 1 4 Q \ . , 3 0 6 Q \
0011340 , @ 3 0 0 Q \ , 2 5 7 Q
0011360 Q U O T E 2 3 1 Q \ , . 2
0011400 2 2 Q \ , @ 2 1 4 Q \ . ,
0011420 1 6 4 Q B Q U O T E 1 4 5
0011440 Q \ , . 1 2 5 Q \ , @ 1
0011460 1 3 Q \ , 3 7 Q B Q U O T
0011500 E ) \r ( 1 5 4 Q " , . i n
0011520 i l l e g a l c o n t e x t
0011540 " 1 3 3 Q " , @ i n i l
0011560 l e g a l c o n t e x t " 7
0011600 " T o o m a n y c o m m a
0011620 s " ) \r B Q . C O N S D 1 \r (
0011640 L ( 1 X D 0 X A ) ) \0
0011660 < \0 \0 \0 002 A 003 001 d g \0 \0 360 245 d g
0011700 \0 \0 360 231 277 g \0 \0 @ A 002 032 032 020 g \0
0011720 \0 360 230 g \0 \0 @ A 002 032 032 020 A 231 g \0
0011740 \0 @ A h 032 032 032 020 g \0 \0 @ h 032 032 020
0011760 \0 N I L \r ( 6 5 Q L I S T 5
0012000 3 Q C O N S 4 0 Q L I S T
0012020 3 3 Q L I S T 2 2 Q L I
0012040 S T * 1 4 Q L I S T * 6
0012060 C O N S ) \r ( ) \r B Q . P R O G
0012100 N D 1 \r ( L ( 0 L ) ) \0
0012120 016 \0 \0 \0 001 @ d 002 226 277 g \0 \0 @ 032 020
0012140 001 020 \0 N I L \r ( 7 P R O G N )
0012160 \r ( ) \r \ B Q U O T E . S P L I
0012200 C E D 1 \r ( P 5 A N S W E
0012220 R P 4 F N P 3 D P
0012240 2 A 2 P 1 A 1 P 0
0012260 A I 0 S E X ) \0 H 006 \0
0012300 \0 001 021 ` 005 @ 001 X d 001 Y H 002 001 Z @
0012320 002 [ d k \n \0 \0 [ d o \0 \0 \0 364 241 d
0012340 241 J 020 I g \0 \0 360 223 g \0 \0 202 g \0 \0
0012360 274 K 003 265 \n L J K h 032 032 032 020 001 L 360
0012400 262 365 L J K 002 032 032 020 \0 ( 2 4 Q \
0012420 B Q U O T E . E X P A N D ) \r (
0012440 5 5 Q N C O N C 5 1 Q A P
0012460 P E N D 4 4 Q \ , @ ) \r (
0012500 3 2 Q ( Q U O T E N I L ) )
0012520 \r \ B Q U O T E . S T A N D A R
0012540 D D 1 \r ( P 3 D V P 2
0012560 A V P 1 B C D R P 0
0012600 B C A R I 1 L E V E L
0012620 I 0 E X P R ) \0 / 004 \0 \0 002
0012640 @ 001 A \n \0 \0 @ 002 A \n \0 \0 021 " 003 H
0012660 \t \0 \0 Z 262 024 I \t \0 \0 [ 233 g \0 \0 J
0012700 001 K 001 032 h 032 032 020 H I \n \0 \0 020 \0 (
0012720 5 4 Q B Q . C O N S 3 1 Q
0012740 C O N S T A N T E X P R E S S I
0012760 O N P 2 2 Q C O N S T A N T
0013000 E X P R E S S I O N P 1 3 Q
0013020 \ B Q U O T E . E X P A N D 5
0013040 \ B Q U O T E . E X P A N D )
0013060 \r ( 3 6 Q Q U O T E ) \r ( ) \r
0013100 \ U N C O M M A D 1 \r ( I 0
0013120 X ) \0 s 002 \0 \0 001 @ d 003 240 020 001
0013140 d g \0 \0 360 263 034 d g \0 \0 360 263 025 d g
0013160 \0 \0 360 254 d g \0 \0 360 246 d g \0 \0 360 262
0013200 - 277 @ 002 \t \0 \0 021 001 \0 @ 001 d g \0 \0
0013220 360 224 277 g \0 \0 213 g \0 \0 360 223 g \0 \0 202
0013240 g \0 \0 H 001 h 032 032 H 002 032 020 277 @ 001 \t
0013260 \0 \0 @ 002 \t \0 \0 021 002 001 H d @ 001 360 230
0013300 277 I @ 002 360 221 @ 020 H I 032 020 \0 ( 1 3
0013320 4 Q \ U N C O M M A 1 2 7 Q
0013340 \ U N C O M M A 5 4 Q \ U
0013360 N C O M M A ) \r ( 1 1 0 Q \ ,
0013400 @ 1 0 4 Q \ , . 7 7 Q %
0013420 , . 7 3 Q \ , 6 5 Q % ,
0013440 4 3 Q % , ! 3 5 Q . ,
0013460 2 7 Q % , @ 2 0 Q % , .
0013500 1 1 Q % , ) \r ( ) \r \ B Q U O
0013520 T E . B R E A K R E S E T D 1
0013540 \r ( L ( 0 F L G ) F 0
0013560 \ I N B Q U O T E ) \0 \a \0 001 \0
0013600 001 P @ c \0 277 020 \0 N I L \r N I L \r
0013620 ( ) \r Q U O T E . W R A P P E R
0013640 D 1 \r ( P 0 S Y N I 1
0013660 F I L E I 0 E ) \0 036 001
0013700 \0 \0 002 g \0 \0 \t \0 \0 021 001 \0 H 003 264 021
0013720 H \t \0 \0 001 g \0 \0 360 264 006 o \0 \0 \0 020
0013740 \0 ( 2 0 Q L A S T 5 G E T
0013760 S Y N T A X ) \r ( 2 4 Q R E A
0014000 D Q U O T E 2 ' ) \r ( 3 3
0014020 Q " ' " ) \r B Q U O T E . W R
0014040 A P P E R D 1 \r ( I 1 F I
0014060 L E I 0 E ) \0 > \0 \0 \0 002
0014100 g \0 \0 g \0 \0 \t \0 \0 003 \n \0 \0 264 / @
0014120 001 d g \0 \0 360 224 o \0 \0 \0 020 d g \0 \0
0014140 360 224 o \0 \0 \0 020 d g \0 \0 360 224 o \0 \0
0014160 \0 020 g \0 \0 360 264 006 o \0 \0 \0 020 \0 ( 1
0014200 4 Q M E M B 1 0 Q G E T S
0014220 Y N T A X ) \r ( 6 4 Q \ , @
0014240 5 2 Q \ , . 3 7 Q \ , 2
0014260 4 Q B Q U O T E 5 ` 2
0014300 R E A D B Q U O T E ) \r ( 7 3
0014320 Q " , @ " 6 0 Q " , . "
0014340 4 5 Q " , " 3 2 Q " ` " )
0014360 \r F U N C T I O N . W R A P P E
0014400 R D 1 \r ( L ( 1 F I L E
0014420 0 E ) F 0 * R E A D T A
0014440 B L E * ) \0 022 \0 001 \0 002 P 006 \0 \0
0014460 312 004 \a l # 360 264 006 o \0 \0 \0 020 \0 N I
0014500 L \r ( 3 R E A D T A B L E P )
0014520 \r ( 1 7 Q " # ' " ) \r ( P R
0014540 E T T Y C O M P R I N T C O M
0014560 M O N C O M S ) \r ( R P A Q Q
0014600 C O M M O N C O M S ( ( C O M
0014620 S ( * # m a c r o ) ( F
0014640 N S R E A D V B A R R E A D
0014660 H A S H M A C R O D E F M A C
0014700 R O - L A M B D A - L I S T - K
0014720 E Y W O R D - P \r D I G I T B
0014740 A S E P R E A D N U M B E R I
0014760 N B A S E E S T I M A T E - D
0015000 I M E N S I O N A L I T Y S K
0015020 I P . H A S H . C O M M E N T
0015040 C M L R E A D . F E A T U R E .
0015060 P A R S E R \r C R E A T E - S
0015100 T R U C T U R E ) ) ( C O M S
0015120 ( * B Q U O T E ) ( F N S
0015140 R E A D B Q U O T E R E A D
0015160 B Q U O T E C O M M A \ B Q U
0015200 O T E . E X P A N D B Q . C O
0015220 N S B Q . P R O G N \r \ B Q
0015240 U O T E . S P L I C E \ B Q U
0015260 O T E . S T A N D A R D \ U N
0015300 C O M M A \ B Q U O T E . B R
0015320 E A K R E S E T ) ( M A C R O
0015340 S B Q U O T E ) ( D E C L A
0015360 R E : D O N T E V A L @ L O A
0015400 D \r D O C O P Y ( V A R S
0015420 ( \ I N B Q U O T E ) ) ( A D
0015440 D V A R S ( B R E A K R E S E
0015460 T F O R M S ( \ B Q U O T E .
0015500 B R E A K R E S E T ) ) ) ( P
0015520 ( M A P C ( Q U O T E ( C
0015540 O D E R D T B L \r F I L E R D
0015560 T B L T E D I T R D T B L )
0015600 ) ( F U N C T I O N ( L A M
0015620 B D A ( R D T B L ) ( C O N
0015640 D ( ( B O U N D P R D T B L
0015660 ) ( S E T S Y N T A X ( Q U
0015700 O T E % | ) ( Q U O T E (
0015720 \r M A C R O R E A D V B A R )
0015740 ) ( E V A L V R D T B L ) )
0015760 ( S E T S Y N T A X ( Q U O
0016000 T E % , ) ( Q U O T E ( M
0016020 A C R O F I R S T R E A D B
0016040 Q U O T E C O M M A ) ) ( E V
0016060 A L V \r R D T B L ) ) ( S E
0016100 L E C T Q R D T B L ( ( C O
0016120 D E R D T B L F I L E R D T B
0016140 L ) ( * D o n ' t s e t
0016160 i t l o o s e o n t h e s
0016200 e y e t ) ) ( P R O G N (
0016220 S E T S Y N T A X ( \r Q U O T
0016240 E ` ) ( Q U O T E ( M A C
0016260 R O F I R S T R E A D B Q U
0016300 O T E ) ) ( E V A L V R D T
0016320 B L ) ) ) ) ) ) ) ) ) ) ) ) (
0016340 C O M S ( * \r " P r e t t y
0016360 p r i n t i n g o f q u o
0016400 t e a n d f r i e n d s " )
0016420 ( F N S Q U O T E . W R A P
0016440 P E R B Q U O T E . W R A P P
0016460 E R F U N C T I O N . W R A P
0016500 P E R ) ( P R O P \r P R E T
0016520 T Y W R A P P E R B Q U O T E
0016540 C L : F U N C T I O N Q U O
0016560 T E \ , \ , . \ , @ ) )
0016600 ( D E C L A R E : D O N T E V
0016620 A L @ L O A D D O E V A L @ C
0016640 O M P I L E D O N T C O P Y
0016660 \r C O M P I L E R V A R S ( A
0016700 D D V A R S ( N L A M A ) (
0016720 N L A M L ) ( L A M A C R E
0016740 A T E - S T R U C T U R E ) ) )
0016760 ) ) \r ( P U T P R O P S B Q U
0017000 O T E M A C R O ( F O R M
0017020 ( \ B Q U O T E . E X P A N D
0017040 ( \ U N C O M M A ( C A R F
0017060 O R M ) ) 1 ) ) ) \r ( R P A Q
0017100 Q \ I N B Q U O T E N I L )
0017120 \r ( A D D T O V A R B R E A K
0017140 R E S E T F O R M S ( \ B Q U
0017160 O T E . B R E A K R E S E T ) )
0017200 \r ( M A P C ( Q U O T E ( C
0017220 O D E R D T B L F I L E R D T
0017240 B L T E D I T R D T B L ) )
0017260 ( F U N C T I O N ( L A M B
0017300 D A ( R D T B L ) ( C O N D
0017320 ( ( B O U N D P R D T B L )
0017340 ( \r S E T S Y N T A X ( Q U
0017360 O T E % | ) ( Q U O T E (
0017400 M A C R O R E A D V B A R ) )
0017420 ( E V A L V R D T B L ) )
0017440 ( S E T S Y N T A X ( Q U O T
0017460 E % , ) ( Q U O T E ( M A
0017500 C R O F I R S T \r R E A D B
0017520 Q U O T E C O M M A ) ) ( E V
0017540 A L V R D T B L ) ) ( S E L
0017560 E C T Q R D T B L ( ( C O D
0017600 E R D T B L F I L E R D T B L
0017620 ) ( * D o n ' t s e t i
0017640 t l o o s e o n t h e s e
0017660 \r y e t ) ) ( P R O G N (
0017700 S E T S Y N T A X ( Q U O T E
0017720 ` ) ( Q U O T E ( M A C R
0017740 O F I R S T R E A D B Q U O
0017760 T E ) ) ( E V A L V R D T B
0020000 L ) ) ) ) ) ) ) ) ) \r ( P U T P
0020020 R O P S B Q U O T E P R E T
0020040 T Y W R A P P E R B Q U O T E
0020060 . W R A P P E R ) \r ( P U T P R
0020100 O P S C L : F U N C T I O N
0020120 P R E T T Y W R A P P E R F U
0020140 N C T I O N . W R A P P E R ) \r
0020160 ( P U T P R O P S Q U O T E
0020200 P R E T T Y W R A P P E R Q U
0020220 O T E . W R A P P E R ) \r ( P U
0020240 T P R O P S \ , P R E T T Y
0020260 W R A P P E R B Q U O T E . W
0020300 R A P P E R ) \r ( P U T P R O P
0020320 S \ , . P R E T T Y W R A P
0020340 P E R B Q U O T E . W R A P P
0020360 E R ) \r ( P U T P R O P S \ ,
0020400 @ P R E T T Y W R A P P E R
0020420 B Q U O T E . W R A P P E R ) \r
0020440 ( P R E T T Y C O M P R I N T
0020460 C O M M O N C O M S ) \r ( R P A
0020500 Q Q C O M M O N C O M S ( (
0020520 C O M S ( * # m a c r o )
0020540 ( F N S R E A D V B A R R
0020560 E A D H A S H M A C R O D E F
0020600 M A C R O - L A M B D A - L I S
0020620 T - K E Y W O R D - P \r D I G
0020640 I T B A S E P R E A D N U M B
0020660 E R I N B A S E E S T I M A T
0020700 E - D I M E N S I O N A L I T Y
0020720 S K I P . H A S H . C O M M E
0020740 N T C M L R E A D . F E A T U
0020760 R E . P A R S E R \r C R E A T
0021000 E - S T R U C T U R E ) ) ( C
0021020 O M S ( * B Q U O T E ) (
0021040 F N S R E A D B Q U O T E R
0021060 E A D B Q U O T E C O M M A \
0021100 B Q U O T E . E X P A N D B Q
0021120 . C O N S B Q . P R O G N \r
0021140 \ B Q U O T E . S P L I C E \
0021160 B Q U O T E . S T A N D A R D
0021200 \ U N C O M M A \ B Q U O T E
0021220 . B R E A K R E S E T ) ( M A
0021240 C R O S B Q U O T E ) ( D E
0021260 C L A R E : D O N T E V A L @
0021300 L O A D \r D O C O P Y ( V A
0021320 R S ( \ I N B Q U O T E ) )
0021340 ( A D D V A R S ( B R E A K R
0021360 E S E T F O R M S ( \ B Q U O
0021400 T E . B R E A K R E S E T ) ) )
0021420 ( P ( M A P C ( Q U O T E
0021440 ( C O D E R D T B L \r F I L
0021460 E R D T B L T E D I T R D T
0021500 B L ) ) ( F U N C T I O N (
0021520 L A M B D A ( R D T B L ) (
0021540 C O N D ( ( B O U N D P R D
0021560 T B L ) ( S E T S Y N T A X
0021600 ( Q U O T E % | ) ( Q U O T
0021620 E ( \r M A C R O R E A D V B
0021640 A R ) ) ( E V A L V R D T B
0021660 L ) ) ( S E T S Y N T A X (
0021700 Q U O T E % , ) ( Q U O T E
0021720 ( M A C R O F I R S T R E
0021740 A D B Q U O T E C O M M A ) )
0021760 ( E V A L V \r R D T B L ) )
0022000 ( S E L E C T Q R D T B L (
0022020 ( C O D E R D T B L F I L E R
0022040 D T B L ) ( * D o n ' t s
0022060 e t i t l o o s e o n t
0022100 h e s e y e t ) ) ( P R O G
0022120 N ( S E T S Y N T A X ( \r Q
0022140 U O T E ` ) ( Q U O T E (
0022160 M A C R O F I R S T R E A D
0022200 B Q U O T E ) ) ( E V A L V
0022220 R D T B L ) ) ) ) ) ) ) ) ) ) )
0022240 ) ( C O M S ( * \r " P r e
0022260 t t y p r i n t i n g o f
0022300 q u o t e a n d f r i e n d
0022320 s " ) ( F N S Q U O T E . W
0022340 R A P P E R B Q U O T E . W R
0022360 A P P E R F U N C T I O N . W
0022400 R A P P E R ) ( P R O P \r P
0022420 R E T T Y W R A P P E R B Q U
0022440 O T E C L : F U N C T I O N
0022460 Q U O T E \ , \ , . \ , @
0022500 ) ) ( D E C L A R E : D O N
0022520 T E V A L @ L O A D D O E V A
0022540 L @ C O M P I L E D O N T C O
0022560 P Y \r C O M P I L E R V A R S
0022600 ( A D D V A R S ( N L A M A
0022620 ) ( N L A M L ) ( L A M A )
0022640 ) ) ) ) \r ( P U T P R O P S C
0022660 O M M O N C O P Y R I G H T
0022700 ( " X e r o x C o r p o r a t
0022720 i o n " 1 9 8 5 1 9 8 6 ) )
0022740 \r N I L \r
0022745