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