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