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