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