$ od -c -N 50000 [eris]<Lisp>JCAI>sources>DSKDISPLAY.DCOM!3
0000000 ( F I L E C R E A T E D " 5
0000020 - S e p - 8 5 1 1 : 5 8 : 0 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 S K D I S
0000120 P L A Y . ; 7 ) \r " 1 6 - A u
0000140 g - 8 5 0 6 : 2 0 : 2 6 " t
0000160 c o m p l ' d i n " I N T E
0000200 R L I S P - D 1 6 - A u g - 8
0000220 5 . . . " d a t e d " 1 6
0000240 - A u g - 8 5 0 8 : 0 1 : 0 7
0000260 " ) \r ( F I L E C R E A T E D
0000300 " 5 - S e p - 8 5 1 1 : 5 7
0000320 : 2 0 " { E R I S } < L I S P
0000340 C O R E > S O U R C E S > D S K
0000360 D I S P L A Y . ; 7 7 3 7 3
0000400 c h a n g e s t o : ( F N S
0000420 \r D S K D I S P L A Y ) p r
0000440 e v i o u s d a t e : " 6
0000460 - A u g - 8 5 1 4 : 1 2 : 0 6
0000500 " { E R I S } < L I S P C O R
0000520 E > S O U R C E S > D S K D I S
0000540 P L A Y . ; 6 ) \r D S K D I S P
0000560 L A Y D 1 \r ( L ( 0 n e w
0000600 S t a t e ) ) \0 ] 001 \0 \0 001 \b \0
0000620 \0 d g \0 \0 360 246 d g \0 \0 360 264 M 277 \b
0000640 \0 \0 264 G ` \0 \0 021 001 \0 @ d g \0 \0 360
0000660 246 d g \0 \0 360 262 % 027 \0 \0 277 \b \0 \0 277
0000700 ` \0 \0 g \0 \0 o \0 \0 \0 ` \0 \0 \n \0 \0
0000720 \v \0 \0 277 ` \0 \0 \t \0 \0 214 g \0 \0 360 227
0000740 @ 027 \0 \0 277 \b \0 \0 H 020 \0 ( 1 3 1 Q
0000760 \ D S K D I S P L A Y . D E S
0001000 T R O Y . W I N D O W 1 1 3 Q
0001020 R E D I S P L A Y W 1 0 4 Q
0001040 P U T W I N D O W P R O P 1
0001060 0 1 Q C O N C A T 6 0 Q \
0001100 D S K D I S P L A Y . C R E A T
0001120 E . W I N D O W 2 3 Q \ P F
0001140 E n s u r e I n i t i a l i z e
0001160 d 2 M A C H I N E T Y P E )
0001200 \r ( 1 2 5 Q \ D S K D I S P L
0001220 A Y . S T A T E 1 1 7 Q C L
0001240 O S E D 1 1 0 Q \ D S K D I
0001260 S P L A Y . W I N D O W 7 6 Q
0001300 \ D S K D I S P L A Y . S T A
0001320 T E 6 7 Q T I T L E 6 4 Q
0001340 \ D S K D I S P L A Y . W I N
0001360 D O W 5 4 Q \ D S K D I S P
0001400 L A Y . S T A T E 4 6 Q O F
0001420 F 4 0 Q O N 3 0 Q \ D S
0001440 K D I S P L A Y . S T A T E 1
0001460 4 Q D O V E 6 D A N D E L
0001500 I O N ) \r ( 7 3 Q " L o c a
0001520 l F i l e S y s t e m D i
0001540 s p l a y : " ) \r V O L U M E
0001560 D I S P L A Y D 1 \r ( L ( 0
0001600 n e w S t a t e ) ) \0 006 \0 \0
0001620 \0 001 @ \t \0 \0 020 \0 ( 3 D S K D I
0001640 S P L A Y ) \r N I L \r ( ) \r \ D
0001660 S K D I S P L A Y . B U T T O N
0001700 E V E N T F N D 1 \r ( L ( 0
0001720 W ) ) \0 X 002 \0 \0 001 \b \0 \0 277 `
0001740 \0 \0 l 004 345 j 360 244 @ \t \0 \0 020 \b \0 \0
0001760 277 ` \0 \0 k 345 j 360 263 8 ` \0 \0 037 d o
0002000 \0 \0 \0 024 004 277 d g \0 \0 024 277 d g \0
0002020 \0 024 034 277 j d n 177 377 d h 032 032 032 032 021
0002040 002 001 H d I 024 \n 277 022 \t \0 \0 \t \0 \0 020
0002060 h 020 \0 ( 1 2 3 Q D S K D I S P
0002100 L A Y 1 2 0 Q M E N U 2 4
0002120 Q G E T M O U S E S T A T E
0002140 2 0 Q \ D S K D I S P L A Y .
0002160 R E P A I N T F N 2 G E T M
0002200 O U S E S T A T E ) \r ( 6 5 Q
0002220 D E F A U L T M E N U H E L D F
0002240 N 5 6 Q C L R P R O M P T
0002260 4 1 Q 004 003 M E N U T Y P E #
0002300 3 0 Q L A S T M O U S E B U T
0002320 T O N S 6 L A S T M O U S E
0002340 B U T T O N S ) \r ( 4 7 Q (
0002360 O N O F F C L O S E D ) ) \r
0002400 \ D S K D I S P L A Y . U P D A
0002420 T E D 1 \r N I L \0 031 \0 \0 \0 \0
0002440 ` \0 \0 g \0 \0 360 264 020 ` \0 \0 \t \0 \0 264
0002460 \b ` \0 \0 \t \0 \0 020 \0 ( 2 6 Q R E
0002500 D I S P L A Y W 1 6 Q W I N
0002520 D O W P ) \r ( 2 3 Q \ D S K D
0002540 I S P L A Y . W I N D O W 1 3
0002560 Q \ D S K D I S P L A Y . W I
0002600 N D O W 5 O N 2 \ D S K
0002620 D I S P L A Y . S T A T E ) \r (
0002640 ) \r \ D S K D I S P L A Y . C R
0002660 E A T E . W I N D O W A 0 0 0 1
0002700 D 1 \r ( L ( 0 W ) ) \0 030
0002720 001 \0 \0 001 @ \t \0 \0 @ \t \0 \0 311 006 021 001
0002740 \0 H 001 H 002 001 032 027 \0 \0 020 \0 ( 7 \
0002760 I N S U R E W I N D O W 3 \
0003000 D S K D I S P L A Y . R E P A I
0003020 N T F N ) \r ( 2 5 Q D S K D I
0003040 S P L A Y . P O S I T I O N ) \r
0003060 ( ) \r \ D S K D I S P L A Y . C
0003100 R E A T E . W I N D O W A 0 0 0
0003120 2 D 1 \r ( L ( 1 P O S 0
0003140 W ) ) \0 006 \0 \0 \0 002 A 027 \0 \0 020
0003160 \0 N I L \r ( 3 D S K D I S P L
0003200 A Y . P O S I T I O N ) \r ( ) \r
0003220 \ D S K D I S P L A Y . C R E A
0003240 T E . W I N D O W A 0 0 0 3 D
0003260 1 \r N I L \0 \b \0 \0 \0 \0 g \0 \0 \t
0003300 \0 \0 020 \0 ( 5 D S K D I S P L A
0003320 Y ) \r ( 2 C L O S E D ) \r ( )
0003340 \r \ D S K D I S P L A Y . C R E
0003360 A T E . W I N D O W D 1 \r N I
0003400 L \0 l \0 \0 \0 \0 ` \0 \0 \t \0 \0 263 c
0003420 ` \0 \0 001 ` \0 \0 002 n 001 , \b \0 \0 \t \0
0003440 \0 l 017 332 l - 330 h 032 032 032 032 o \0 \0 \0
0003460 \n \0 \0 027 \0 \0 d g \0 \0 g \0 \0 \v \0 \0
0003500 ` \0 \0 g \0 \0 g \0 \0 \v \0 \0 ` \0 \0 g
0003520 \0 \0 g \0 \0 \v \0 \0 ` \0 \0 g \0 \0 g \0
0003540 \0 \v \0 \0 ` \0 \0 g \0 \0 g \0 \0 \v \0 \0
0003560 020 h 020 \0 ( 1 4 7 Q P U T W I N
0003600 D O W P R O P 1 3 3 Q P U T
0003620 W I N D O W P R O P 1 1 7 Q
0003640 P U T W I N D O W P R O P 1 0
0003660 3 Q P U T W I N D O W P R O P
0003700 6 7 Q P U T W I N D O W P R
0003720 O P 5 2 Q C R E A T E W 3
0003740 0 Q L E N G T H 2 5 Q \ P
0003760 F G e t V o l s 5 W I N D O
0004000 W P ) \r ( 1 4 4 Q \ D S K D I
0004020 S P L A Y . C R E A T E . W I N
0004040 D O W A 0 0 0 3 1 4 1 Q C L
0004060 O S E F N 1 3 6 Q \ D S K D
0004100 I S P L A Y . W I N D O W 1 3
0004120 0 Q \ D S K D I S P L A Y . B
0004140 U T T O N E V E N T F N 1 2 5
0004160 Q B U T T O N E V E N T F N
0004200 1 2 2 Q \ D S K D I S P L A Y
0004220 . W I N D O W 1 1 4 Q \ D S
0004240 K D I S P L A Y . C R E A T E .
0004260 W I N D O W A 0 0 0 2 1 1 1 Q
0004300 M O V E F N 1 0 6 Q \ D S
0004320 K D I S P L A Y . W I N D O W
0004340 1 0 0 Q \ D S K D I S P L A Y
0004360 . C R E A T E . W I N D O W A 0
0004400 0 0 1 7 5 Q R E S H A P E F
0004420 N 7 2 Q \ D S K D I S P L A
0004440 Y . W I N D O W 6 4 Q \ D S
0004460 K D I S P L A Y . R E P A I N T
0004500 F N 6 1 Q R E P A I N T F N
0004520 5 5 Q \ D S K D I S P L A Y
0004540 . W I N D O W 1 6 Q D S K D
0004560 I S P L A Y . P O S I T I O N
0004600 1 2 Q D S K D I S P L A Y . P
0004620 O S I T I O N 2 \ D S K D I
0004640 S P L A Y . W I N D O W ) \r (
0004660 4 7 Q " 1 1 0 8 L o c a l
0004700 F i l e S y s t e m " ) \r \ D
0004720 S K D I S P L A Y . D E S T R O
0004740 Y . W I N D O W D 1 \r N I L
0004760 \0 + \0 \0 \0 \0 ` \0 \0 \t \0 \0 264 # ` \0
0005000 \0 g \0 \0 \n \0 \0 263 027 ` \0 \0 g \0 \0 i
0005020 \v \0 \0 ` \0 \0 \t \0 \0 h 027 \0 \0 020 h 020
0005040 \0 ( 4 2 Q C L O S E W 3 4 Q
0005060 P U T W I N D O W P R O P 2
0005100 0 Q G E T W I N D O W U S E R
0005120 P R O P 5 W I N D O W P ) \r
0005140 ( 4 6 Q \ D S K D I S P L A Y
0005160 . W I N D O W 3 7 Q \ D S K
0005200 D I S P L A Y . W I N D O W 3
0005220 0 Q C L O S I N G 2 5 Q \
0005240 D S K D I S P L A Y . W I N D O
0005260 W 1 5 Q C L O S I N G 1 2
0005300 Q \ D S K D I S P L A Y . W I
0005320 N D O W 2 \ D S K D I S P L
0005340 A Y . W I N D O W ) \r ( ) \r \ D
0005360 S K D I S P L A Y . R E P A I N
0005400 T F N D 1 \r ( L ( 0 W ) )
0005420 \0 353 001 \0 \0 001 @ \t \0 \0 ` \0 \0 @ \n
0005440 \0 \0 277 o \0 \0 \0 @ \n \0 \0 277 ` \0 \0 @
0005460 \n \0 \0 277 g \0 \0 \t \0 \0 @ \n \0 \0 277 `
0005500 \0 \0 @ \n \0 \0 277 @ \t \0 \0 277 o \0 \0 \0
0005520 @ \n \0 \0 277 @ \t \0 \0 \b \0 \0 261 \0 234 d
0005540 001 021 001 \0 ` \0 \0 @ \n \0 \0 277 H \t \0 \0
0005560 224 o \0 \0 \0 203 o \0 \0 \0 @ \n \0 \0 277 H
0005600 \t \0 \0 @ \n \0 \0 277 o \0 \0 \0 @ \n \0 \0
0005620 277 ` \0 \0 @ \n \0 \0 277 H l \b 320 H l \a
0005640 320 l ( \v \0 \0 @ \n \0 \0 277 o \0 \0 \0 @
0005660 \n \0 \0 277 ` \0 \0 @ \n \0 \0 277 l 026 H 310
0005700 036 H 310 035 365 j h d @ \r 006 \0 \0 277 o \0
0005720 \0 \0 @ \n \0 \0 277 l # H 310 X H 310 W 365
0005740 j h d @ \r 006 \0 \0 277 o \0 \0 \0 @ \n \0
0005760 \0 277 @ \t \0 \0 023 002 003 265 003 202 261 377 c h
0006000 020 \0 ( 3 3 6 Q T E R P R I 3
0006020 3 1 Q P R I N 1 3 2 0 Q F
0006040 L U S H R I G H T 2 7 6 Q P
0006060 R I N 1 2 6 5 Q F L U S H R
0006100 I G H T 2 4 3 Q C H A N G E
0006120 F O N T 2 3 3 Q P R I N 1
0006140 2 2 2 Q P R I N 1 2 1 6 Q
0006160 \ P F F e t c h S t r i n g 2
0006200 0 0 Q C H A N G E F O N T 1
0006220 7 0 Q P R I N 1 1 5 7 Q P
0006240 R I N 1 1 5 3 Q \ P F V o l
0006260 u m e N u m b e r 1 4 6 Q P
0006300 R I N 1 1 3 0 Q \ L F D i r
0006320 e c t o r y P 1 2 3 Q C H A
0006340 N G E F O N T 1 0 4 Q \ P F
0006360 G e t V o l s 1 0 1 Q T E R
0006400 P R I 7 4 Q P R I N 1 6 3
0006420 Q T E R P R I 5 6 Q C H A
0006440 N G E F O N T 4 6 Q P R I N
0006460 1 4 2 Q D I R E C T O R Y N
0006500 A M E 3 3 Q C H A N G E F O
0006520 N T 2 3 Q P R I N 1 1 2 Q
0006540 C H A N G E F O N T 3 C L
0006560 E A R W ) \r ( 2 3 7 Q \ D S K
0006600 D I S P L A Y . F O N T 1 7 4
0006620 Q \ D S K D I S P L A Y . B O
0006640 L D 1 1 7 Q \ D S K D I S P
0006660 L A Y . F O N T 5 2 Q \ D S
0006700 K D I S P L A Y . F O N T 3 7
0006720 Q { D S K } 2 7 Q \ D S K
0006740 D I S P L A Y . B O L D 6 \
0006760 D S K D I S P L A Y . F O N T )
0007000 \r ( 3 2 5 Q " F r e e "
0007020 2 7 2 Q " P a g e s " 2 2
0007040 7 Q " " 1 6 4 Q " "
0007060 1 4 2 Q " " 1 3 5 Q
0007100 " * " 7 0 Q " L o g i c a
0007120 l V o l u m e s : " 1 7 Q
0007140 " D e f a u l t d i r e c t o
0007160 r y : " ) \r \ D S K D I S P L
0007200 A Y . R E S H A P E F N D 1 \r
0007220 ( L ( 0 W ) ) \0 031 001 \0 \0 001
0007240 @ \t \0 \0 @ \t \0 \0 311 006 021 001 \0 H 001 H
0007260 002 001 032 027 \0 \0 h 020 \0 ( 7 \ I N S
0007300 U R E W I N D O W 3 \ D S K
0007320 D I S P L A Y . R E P A I N T F
0007340 N ) \r ( 2 5 Q D S K D I S P L
0007360 A Y . P O S I T I O N ) \r ( ) \r
0007400 ( P R E T T Y C O M P R I N T
0007420 D S K D I S P L A Y C O M S ) \r
0007440 ( R P A Q Q D S K D I S P L A
0007460 Y C O M S ( ( D E C L A R E :
0007500 E V A L @ C O M P I L E D O
0007520 N T C O P Y ( F I L E S ( L
0007540 O A D C O M P ) L O C A L F I
0007560 L E ) ) ( D E C L A R E : (
0007600 \r L O C A L V A R S . T ) )
0007620 ( F N S D S K D I S P L A Y
0007640 V O L U M E D I S P L A Y \
0007660 D S K D I S P L A Y . B U T T O
0007700 N E V E N T F N \ D S K D I S
0007720 P L A Y . U P D A T E \r \ D S
0007740 K D I S P L A Y . C R E A T E .
0007760 W I N D O W \ D S K D I S P L
0010000 A Y . D E S T R O Y . W I N D O
0010020 W \ D S K D I S P L A Y . R E
0010040 P A I N T F N \ D S K D I S P
0010060 L A Y . R E S H A P E F N ) (
0010100 \r G L O B A L V A R S \ D S K
0010120 D I S P L A Y . F O N T \ D S
0010140 K D I S P L A Y . B O L D \ D
0010160 S K D I S P L A Y . S T A T E
0010200 \ D S K D I S P L A Y . W I N D
0010220 O W D S K D I S P L A Y . P O
0010240 S I T I O N ) \r ( I N I T V A
0010260 R S ( \ D S K D I S P L A Y .
0010300 F O N T ( F O N T C R E A T E
0010320 ( Q U O T E G A C H A ) 1
0010340 0 ( Q U O T E M R R ) ) )
0010360 ( \ D S K D I S P L A Y . B O L
0010400 D ( F O N T C R E A T E \r (
0010420 Q U O T E G A C H A ) 1 0
0010440 ( Q U O T E B R R ) ) ) ( D
0010460 S K D I S P L A Y . P O S I T I
0010500 O N ( C R E A T E P O S I T
0010520 I O N X C O O R D _ 1 0 0
0010540 Y C O O R D _ 5 0 ) ) (
0010560 \r \ D S K D I S P L A Y . S T A
0010600 T E ( Q U O T E C L O S E D
0010620 ) ) ( \ D S K D I S P L A Y .
0010640 W I N D O W N I L ) ) ) ) \r (
0010660 D E C L A R E : D O E V A L @
0010700 C O M P I L E D O N T C O P Y
0010720 ( L O C A L V A R S . T )
0010740 ) \r ( R P A Q ? \ D S K D I S
0010760 P L A Y . F O N T ( F O N T C
0011000 R E A T E ( Q U O T E G A C
0011020 H A ) 1 0 ( Q U O T E M R
0011040 R ) ) ) \r ( R P A Q ? \ D S K
0011060 D I S P L A Y . B O L D ( F O
0011100 N T C R E A T E ( Q U O T E
0011120 G A C H A ) 1 0 ( Q U O T E
0011140 B R R ) ) ) \r ( R P A Q ? D
0011160 S K D I S P L A Y . P O S I T I
0011200 O N ( C R E A T E P O S I T
0011220 I O N X C O O R D _ 1 0 0
0011240 Y C O O R D _ 5 0 ) ) \r (
0011260 R P A Q ? \ D S K D I S P L A
0011300 Y . S T A T E ( Q U O T E C
0011320 L O S E D ) ) \r ( R P A Q ? \
0011340 D S K D I S P L A Y . W I N D O
0011360 W N I L ) \r ( P U T P R O P S
0011400 D S K D I S P L A Y C O P Y
0011420 R I G H T ( " X e r o x C o
0011440 r p o r a t i o n " 1 9 8 5 )
0011460 ) \r N I L \r
0011466