$ od -c -N 50000 [eris]<Lisp>Harmony>Library>SAMEDIR.DCOM!1
0000000 ( F I L E C R E A T E D " 2 0
0000020 - M a r - 8 4 1 5 : 5 3 : 1 4
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P C
0000100 O R E > L I B R A R Y > S A M E
0000120 D I R . ; 1 ) \r " 1 5 - M a r
0000140 - 8 4 0 0 : 0 1 : 0 1 " r e
0000160 c o m p i l e d e x p r s :
0000200 C H E C K S A M E D I R H O S
0000220 T & D I R E C T O R Y F I E L D
0000240 i n W O R K d a t e d \r
0000260 " 1 5 - M a r - 8 4 0 0 : 1 3
0000300 : 1 8 " ) \r ( F I L E C R E A T
0000320 E D " 2 0 - M a r - 8 4 1 5
0000340 : 5 2 : 5 2 " { P H Y L U M }
0000360 < L I S P C O R E > L I B R A R
0000400 Y > S A M E D I R . ; 1 7 3 3
0000420 0 Q c h a n g e s t o : (
0000440 V A R S \r S A M E D I R C O M
0000460 S ) ( F N S C H E C K S A M
0000500 E D I R H O S T & D I R E C T
0000520 O R Y F I E L D ) p r e v i o
0000540 u s d a t e : " 1 5 - O C T
0000560 - 8 2 2 3 : 3 1 : 5 0 " \r {
0000600 P H Y L U M } < L I S P > L I B
0000620 R A R Y > S A M E D I R . ; 1 )
0000640 \r C H E C K S A M E D I R A 0 0
0000660 0 2 D 1 \r ( N A M E E R R O
0000700 R S E T L ( 2 E R R O R S
0000720 E T . W 1 E R R O R S E T .
0000740 V 0 E R R O R S E T . U )
0000760 F 0 H O S T / D I R ) \0 016
0001000 \0 001 \0 003 P 265 \a i d \n \0 \0 \t \0 \0 i
0001020 020 \0 ( 1 2 Q C N D I R 7 R
0001040 E A D ) \r N I L \r ( ) \r C H E C
0001060 K S A M E D I R D 1 \r ( P 1
0001100 2 Q D I R P 1 1 Q H O S
0001120 T P 1 0 Q O L D F I L E
0001140 P 6 O K H O S T / D I R S
0001160 P 5 N E W V P 4 L S T
0001200 P 3 D I R P 2 H O S
0001220 T P 1 H O S T / D I R P
0001240 0 D A T E S I 0 F I L
0001260 E ) 001 = \v \0 \0 001 @ g \0 \0 033 021 a
0001300 006 H 003 241 h 020 i d \n \0 \0 Y d ` \0 \0
0001320 \n \0 \0 002 d 003 243 d 221 h 032 032 276 H 021 1
0001340 \n O 016 003 265 l i 022 242 261 \0 252 l \n g \0
0001360 \0 o \0 \0 \0 @ o \0 \0 \0 I o \0 \0 \0 h
0001400 032 032 032 032 032 g \0 \0 \t \0 \0 264 ' g \0 \0
0001420 o \0 \0 \0 H 001 002 \t \0 \0 Y o \0 \0 \0 \v
0001440 \0 \0 g \0 \0 i h 032 032 032 032 o \0 \0 \0 h
0001460 032 032 o \0 \0 \0 \n \0 \0 \f \0 \0 d g \0 \0
0001500 360 263 203 d g \0 \0 360 262 034 277 \b \0 \0 260 9
0001520 001 _ 020 002 \t \0 \0 N 034 222 h 260 214 O 016 002
0001540 _ 016 260 201 d g \0 \0 360 232 277 g \0 \0 \t \0
0001560 \0 277 261 377 O d g \0 \0 360 223 277 h Y 207 g
0001600 \0 \0 360 243 \b \0 \0 277 o \0 \0 \0 \t \0 \0 277
0001620 261 377 1 g \0 \0 h g \0 \0 H 001 002 \f \0 \0
0001640 \t \0 \0 ] d 242 261 377 037 H 001 002 360 222 261 377
0001660 026 l 017 g \0 \0 H 001 002 o \0 \0 \0 M g \0
0001700 \0 \n \0 \0 \t \0 \0 o \0 \0 \0 o \0 \0 \0 h
0001720 032 032 032 032 032 \v \0 \0 d g \0 \0 360 223 277 261
0001740 376 345 g \0 \0 360 226 \b \0 \0 277 261 376 331 \b \0
0001760 \0 277 261 376 322 \0 ( 4 6 7 Q S H O U
0002000 L D N T 4 6 0 Q E R R O R !
0002020 4 3 6 Q A S K U S E R 4 1
0002040 5 Q M K S T R I N G 4 1 2 Q
0002060 F I L E N A M E F I E L D 3
0002100 5 1 Q I N F I L E P 3 4 6 Q
0002120 P A C K F I L E N A M E 3 2
0002140 5 Q C H E C K S A M E D I R A
0002160 0 0 0 2 3 1 5 Q S H O U L D
0002200 N T 2 6 7 Q U S E R E X E C
0002220 2 3 5 Q H O S T & D I R E C
0002240 T O R Y F I E L D 2 2 4 Q E
0002260 R R O R ! 2 0 2 Q A S K U S
0002300 E R 1 7 7 Q \ N C O N C 2
0002320 1 5 0 Q C O N C A T 1 4 0 Q
0002340 H O S T & D I R E C T O R Y F
0002360 I E L D 1 2 1 Q G E T D 3
0002400 1 Q F A S S O C 2 1 Q D I
0002420 R E C T O R Y N A M E ) \r ( 4 5
0002440 3 Q N 4 4 2 Q Y 4 0 7 Q
0002460 V E R S I O N 3 7 4 Q Y
0002500 3 4 0 Q B O D Y 3 3 4 Q V
0002520 E R S I O N 3 1 0 Q O 2 7
0002540 7 Q C 2 6 4 Q M A K E F I
0002560 L E X E C > 2 5 6 Q E 2 1
0002600 5 Q N 2 0 6 Q Y 1 5 3 Q
0002620 C O N F I R M F L G 1 2 6 Q
0002640 O 1 1 6 Q C N D I R 6 7
0002660 Q Y 2 6 Q M I G R A T I O
0002700 N S 3 F I L E D A T E S ) \r
0002720 ( 4 2 5 Q " D o y o u w
0002740 a n t t o m a k e t h e
0002760 f i l e a n y w a y " 4 2 1
0003000 Q " h a s s i n c e a p p
0003020 e a r e d ) . " 4 0 3 Q " i
0003040 s n o t t h e m o s t r
0003060 e c e n t v e r s i o n ( v
0003100 e r s i o n " 3 2 2 Q ( D U
0003120 M M Y . F O R . E R R O R S E T
0003140 ) 1 7 4 Q ( ( Y " e s ,
0003160 w r i t e i t h e r e \r " )
0003200 ( N " o , a b o r t M A
0003220 K E F I L E \r " ) ( E " X E
0003240 C \r " ) ) 1 6 5 Q ( C " o
0003260 n n e c t t o o t h e r d
0003300 i r e c t o r y : " ) 1 4 5
0003320 Q " [ c o n f i r m ] "
0003340 1 3 2 Q " o p s ! C o n n
0003360 e c t t o " 1 0 5 Q " -
0003400 - s h o u l d I w r i t e
0003420 i t o u t a n y w a y "
0003440 1 0 0 Q " i n y o u r c o
0003460 n n e c t e d d i r e c t o r
0003500 y " 7 3 Q " Y o u h a v e
0003520 n ' t l o a d e d o r w r
0003540 i t t e n " ) \r H O S T & D I R
0003560 E C T O R Y F I E L D D 1 \r (
0003600 P 2 T A I L I 0 F I L
0003620 E N A M E ) \0 9 003 \0 \0 001 @ \t \0
0003640 \0 021 ! 002 H Z 003 265 \a I \t \0 \0 020 001 d
0003660 g \0 \0 360 253 d g \0 \0 360 245 d g \0 \0 360
0003700 222 277 i 201 277 h 230 J 001 J 002 001 I 032 032 271
0003720 J 002 002 260 322 \0 ( 1 7 Q P A C K F
0003740 I L E N A M E 3 U N P A C K
0003760 F I L E N A M E ) \r ( 4 1 Q D
0004000 E V I C E 3 3 Q D I R E C T
0004020 O R Y 2 5 Q H O S T ) \r ( )
0004040 \r ( P R E T T Y C O M P R I N T
0004060 S A M E D I R C O M S ) \r ( R
0004100 P A Q Q S A M E D I R C O M S
0004120 ( ( F N S C H E C K S A M E
0004140 D I R H O S T & D I R E C T O
0004160 R Y F I E L D ) ( A D D V A R
0004200 S ( M A K E F I L E F O R M S
0004220 ( O R ( N L S E T Q ( \r C
0004240 H E C K S A M E D I R F I L E
0004260 ) ) ( R E T F R O M ( Q U O
0004300 T E M A K E F I L E ) ) ) )
0004320 ( M I G R A T I O N S ) ) ( G
0004340 L O B A L V A R S M I G R A T
0004360 I O N S ) ) ) \r ( A D D T O V A
0004400 R M A K E F I L E F O R M S
0004420 ( O R ( N L S E T Q ( C H E
0004440 C K S A M E D I R F I L E ) )
0004460 ( R E T F R O M ( Q U O T E
0004500 M A K E F I L E ) ) ) ) \r ( A
0004520 D D T O V A R M I G R A T I O
0004540 N S ) \r ( P U T P R O P S S A
0004560 M E D I R C O P Y R I G H T
0004600 ( " X e r o x C o r p o r a t
0004620 i o n " 3 6 7 6 Q 3 7 0 0 Q
0004640 ) ) \r N I L \r
0004647