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