$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>DEXEC.DCOM!1
0000000 ( F I L E C R E A T E D " 1 4
0000020 - A u g - 8 4 2 0 : 4 3 : 3 9
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 > D E X E C .
0000120 ; 4 ) \r " 1 4 - A u g - 8 4
0000140 1 4 : 4 9 : 3 2 " r e c o m p
0000160 i l e d c h a n g e s : S E
0000200 E S E E * i n " I N T E R
0000220 L I S P - D 1 4 - A u g - 8 4
0000240 . . . " d a t e d \r " 1 4
0000260 - A u g - 8 4 1 1 : 5 6 : 0 6
0000300 " ) \r ( F I L E C R E A T E D
0000320 " 1 4 - A u g - 8 4 2 0 : 4 3
0000340 : 3 0 " { E R I S } < L I S P
0000360 C O R E > S O U R C E S > D E X
0000400 E C . ; 4 3 6 8 6 c h a n g
0000420 e s t o : ( L I S P X M A C
0000440 R O S C O N N \r N D I R )
0000460 ( F N S S E E S E E * ) p
0000500 r e v i o u s d a t e : " 1
0000520 6 - J u l - 8 4 1 6 : 5 6 : 2
0000540 5 " { E R I S } < L I S P C O
0000560 R E > S O U R C E S > D E X E C
0000600 . ; 2 ) \r / C N D I R D 1 \r (
0000620 I 0 H O S T / D I R F 0
0000640 L I S P X H I S T ) \0 030 \0 001
0000660 \0 001 P 237 g \0 \0 i d \n \0 \0 h 032 032 P
0000700 \n \0 \0 277 @ \t \0 \0 020 \0 ( 2 5 Q C
0000720 N D I R 2 0 Q U N D O S A V
0000740 E 1 1 Q D I R E C T O R Y N
0000760 A M E ) \r ( 4 / C N D I R ) \r
0001000 N I L \r C O P Y A L L B Y T E S
0001020 A 0 0 1 9 D 1 \r ( N A M E E
0001040 R R O R S E T L ( 2 E R R
0001060 O R S E T . W 1 E R R O R S
0001100 E T . V 0 E R R O R S E T .
0001120 U ) P 2 P T R P 1 O
0001140 U T F P 0 I N F F 3
0001160 R E S E T V A R S L S T F 4
0001200 B Y T E S I Z E F 5 F R
0001220 O M F I L E F 6 T O F I L
0001240 E F 7 R E S E T Y F 1
0001260 0 Q P F D E F A U L T ) \0 y
0001300 003 006 \0 003 021 0 002 U 262 ( g \0 \0 U g \0
0001320 \0 h T \f \0 \0 X h 032 032 h h 032 032 S 032
0001340 c 006 277 H \t \0 \0 j 360 252 H j \n \0 \0 203
0001360 \b \0 \0 X 277 V 265 \b \b \0 \0 271 260 $ g \0
0001400 \0 \n \0 \0 Y 263 033 g \0 \0 V g \0 \0 h T
0001420 \f \0 \0 Y h 032 032 h h 032 032 S 032 c 006 277
0001440 T 256 I i 360 232 H I h d W 020 \r 005 \0 \0
0001460 204 H I \n \0 \0 023 h c 016 i 020 \0 ( 1 6
0001500 1 Q C O P Y B Y T E S 1 5 3
0001520 Q P F C O P Y B Y T E S 1 1
0001540 6 Q O P E N S T R E A M 7 7
0001560 Q O P E N P 6 6 Q O U T P
0001600 U T 5 6 Q I N P U T 5 2 Q
0001620 S E T F I L E P T R 4 2 Q
0001640 G E T F I L E P T R 2 1 Q O
0001660 P E N S T R E A M ) \r ( 1 1 1 Q
0001700 O U T P U T 1 0 5 Q C L O
0001720 S E F 7 4 Q O U T P U T 1
0001740 4 Q I N P U T 1 0 Q C L O
0001760 S E F ) \r ( ) \r C O P Y A L L B
0002000 Y T E S D 1 \r ( P 2 R E S
0002020 E T Z P 1 R E S E T Y P
0002040 0 L I S P X H I S T I 2
0002060 B Y T E S I Z E I 1 T O
0002100 F I L E I 0 F R O M F I L
0002120 E F 3 L I S P X H I S T
0002140 F 4 R E S E T V A R S L S T
0002160 ) \0 " 003 002 \0 003 S 021 ! 002 T o \0 \0
0002200 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0
0002220 \0 J 223 \b \0 \0 020 I 020 \0 ( 3 5 Q E
0002240 R R O R ! 3 0 Q R E S E T R
0002260 E S T O R E 1 6 Q C O P Y A
0002300 L L B Y T E S A 0 0 1 9 ) \r ( 2
0002320 4 Q E R R O R 1 3 Q I N T
0002340 E R N A L ) \r ( 1 0 Q ( D U
0002360 M M Y . F O R . E R R O R S E T
0002400 ) ) \r S E E D 1 \r ( I 0 L
0002420 I N E ) \0 027 \0 \0 003 001 @ \t \0 \0 b
0002440 \0 d 001 @ 002 001 265 003 i @ 002 002 001 \v \0 \0
0002460 020 \0 ( 2 4 Q C O P Y A L L B Y
0002500 T E S 3 N L A M B D A . A R
0002520 G S ) \r N I L \r ( ) \r S E E * A
0002540 0 0 0 1 D 1 \r ( N A M E E R
0002560 R O R S E T L ( 2 E R R O
0002600 R S E T . W 1 E R R O R S E
0002620 T . V 0 E R R O R S E T . U
0002640 ) F 0 L I N E ) \0 030 \0 001
0002660 \0 003 h 027 \0 \0 277 P 001 P 002 001 265 003 i P
0002700 002 002 001 \v \0 \0 h 032 020 \0 ( 2 3 Q C
0002720 O P Y A L L B Y T E S ) \r ( 3
0002740 * * C O M M E N T * * F L G ) \r
0002760 ( ) \r S E E * D 1 \r ( P 1
0003000 M A C R O Y P 0 M A C R O
0003020 X I 0 L I N E F 2 R
0003040 E S E T V A R S L S T ) \0 I 002
0003060 001 003 001 @ \t \0 \0 b \0 g \0 \0 ` \0 \0 032
0003100 R 032 c 004 021 021 001 R Y o \0 \0 \0 g \0 \0
0003120 \n \0 \0 H 001 002 027 \0 \0 277 I d R 360 225 277
0003140 H 002 c 004 215 R \n \0 \0 231 R k I \v \0 \0
0003160 H 002 031 277 265 005 \b \0 \0 001 020 \0 ( 1 0 5
0003200 Q E R R O R ! 7 4 Q N L E
0003220 F T 6 5 Q T A I L P 3 7 Q
0003240 S E E * A 0 0 0 1 3 N L A
0003260 M B D A . A R G S ) \r ( 4 5 Q
0003300 * * C O M M E N T * * F L G 3
0003320 4 Q I N T E R N A L 1 3 Q
0003340 * * C O M M E N T * * F L G 1
0003360 0 Q * * C O M M E N T * * F L
0003400 G ) \r ( 3 1 Q ( D U M M Y .
0003420 F O R . E R R O R S E T ) ) \r (
0003440 P R E T T Y C O M P R I N T D
0003460 E X E C C O M S ) \r ( R P A Q Q
0003500 D E X E C C O M S ( ( L I S
0003520 P X M A C R O S C O N N D A
0003540 N D I R ) ( F N S / C N D
0003560 I R C O P Y A L L B Y T E S
0003600 S E E S E E * ) ( C O M S
0003620 ( * H a s t o c o m e \r
0003640 a f t e r A D I S P L A Y )
0003660 ( C U R S O R S S A V I N G C
0003700 U R S O R S Y S O U T C U R S
0003720 O R ) ) ( D E C L A R E : D
0003740 O N T E V A L @ L O A D D O C
0003760 O P Y ( P ( M O V D ? ( Q
0004000 U O T E \r N I L L ) ( Q U O
0004020 T E S E T N M ) ) ( A N D
0004040 ( C C O D E P ( Q U O T E S
0004060 E E ) ) ( / P U T D ( Q U O
0004100 T E T Y ) ( G E T D ( Q U
0004120 O T E S E E ) ) T ) ) ) )
0004140 ( D E C L A R E : \r D O N T E
0004160 V A L @ L O A D D O E V A L @
0004200 C O M P I L E D O N T C O P Y
0004220 C O M P I L E R V A R S ( A
0004240 D D V A R S ( N L A M A S E
0004260 E * S E E ) ( N L A M L )
0004300 ( L A M A ) ) ) ) ) \r ( A D D T
0004320 O V A R L I S P X H I S T O R
0004340 Y M A C R O S ( D A ( P R O
0004360 G N ( L I S P X P R I N 1 (
0004400 D A T E ) T ) ( T E R P R I
0004420 T ) ) ) ) \r ( A D D T O V A R
0004440 L I S P X M A C R O S ( C O
0004460 N N ( / C N D I R ( C A R
0004500 ( N L A M B D A . A R G S L I
0004520 S P X L I N E ) ) ) ) ( N D I
0004540 R ( D O D I R ( N L A M B D
0004560 A . A R G S \r L I S P X L I N
0004600 E ) ( Q U O T E ( P P C O
0004620 L U M N S 1 7 ) ) ( Q U O T
0004640 E * ) " " ) ) ) \r ( A D D T
0004660 O V A R L I S P X C O M S C
0004700 O N N D A N D I R ) \r ( R P
0004720 A Q S A V I N G C U R S O R
0004740 ( C U R S O R C R E A T E ( R
0004760 E A D B I T M A P ) 0 1 5 )
0005000 ) \r ( 1 6 1 6 " @ @ @ @ "
0005020 " F D J @ " " H J J @ " " L
0005040 J J @ " " B N J L " " J J D
0005060 @ " " L J D @ " " @ @ @ @ "
0005100 " @ J D N " " @ K E B " "
0005120 @ K E @ " " @ J M F " " @ J
0005140 M B " \r " @ J E L " " @ @ @
0005160 @ " " @ @ @ @ " ) \r ( R P A Q
0005200 S Y S O U T C U R S O R ( C
0005220 U R S O R C R E A T E ( R E A
0005240 D B I T M A P ) 0 1 5 ) ) \r
0005260 ( 1 6 1 6 " @ @ @ @ " " C
0005300 J D N " " D A E @ " " C @ H
0005320 L " " @ H H B " " D I A B "
0005340 " C A @ L " " @ @ @ @ " "
0005360 @ @ @ @ " " A I B N " " B E
0005400 B D " " B E B D " " B E B D
0005420 " \r " B E B D " " A H L D "
0005440 " @ @ @ @ " ) \r ( M O V D ?
0005460 ( Q U O T E N I L L ) ( Q U
0005500 O T E S E T N M ) ) \r ( A N D
0005520 ( C C O D E P ( Q U O T E
0005540 S E E ) ) ( / P U T D ( Q U
0005560 O T E T Y ) ( G E T D ( Q
0005600 U O T E S E E ) ) T ) ) \r (
0005620 P U T P R O P S D E X E C C
0005640 O P Y R I G H T ( " X e r o x
0005660 C o r p o r a t i o n " T
0005700 1 9 8 2 1 9 8 3 1 9 8 4 ) )
0005720 \r N I L \r
0005725