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