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