$ od -c -N 50000 [eris]<Lisp>JCAI>library>FILEOBJ.DCOM!1
0000000 ( F I L E C R E A T E D " 1 3
0000020 - J a n - 8 5 0 3 : 0 4 : 2 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 > L I B R A R Y > F I L E O B
0000120 J . ; 8 ) \r " 1 2 - J a n - 8
0000140 5 1 4 : 2 1 : 2 0 " r e c o
0000160 m p i l e d c h a n g e s :
0000200 F I L E O B J . B U T T O N F
0000220 I L E O B J . F I L E I N F O S
0000240 F I L E O B J . G E T 1 F I
0000260 L E O B J . T Y P E i n \r "
0000300 " d a t e d " 1 2 - J a n -
0000320 8 5 1 7 : 2 1 : 3 6 " ) \r ( F
0000340 I L E C R E A T E D " 1 3 - J
0000360 a n - 8 5 0 3 : 0 4 : 0 5 "
0000400 { E R I S } < L I S P C O R E >
0000420 L I B R A R Y > F I L E O B J .
0000440 ; 8 1 1 3 6 8 c h a n g e s
0000460 t o : ( F N S \r F I L E O
0000500 B J . B U T T O N F I L E O B
0000520 J . G E T 1 F I L E O B J . F
0000540 I L E I N F O S F I L E O B J
0000560 . T Y P E ) ( V A R S F I L
0000600 E O B J C O M S F I L E O B J
0000620 . P R I N T F I L E . I C O N )
0000640 \r p r e v i o u s d a t e :
0000660 " 5 - J a n - 8 5 0 1 : 1
0000700 0 : 4 6 " { E R I S } < L I S
0000720 P C O R E > L I B R A R Y > F I
0000740 L E O B J . ; 6 ) \r F I L E O B
0000760 J D 1 \r ( I 0 F I L E )
0001000 \0 034 \0 \0 \0 001 @ g \0 \0 g \0 \0 \v \0 \0
0001020 b \0 \t \0 \0 @ g \0 \0 \n \0 \0 @ \v \0 \0
0001040 020 \0 ( 3 1 Q F I L E O B J . G
0001060 E T 1 2 5 Q G E T F I L E I
0001100 N F O 1 6 Q F I L E O B J .
0001120 F I L E I N F O S 1 1 Q O P
0001140 E N S T R E A M ) \r ( 2 2 Q L
0001160 E N G T H 6 O L D 3 I N
0001200 P U T ) \r ( ) \r F I L E O B J .
0001220 B U T T O N A 0 0 0 1 D 1 \r (
0001240 N A M E E R R O R S E T P
0001260 4 P W P 0 L O C K F
0001300 5 O B J F 6 W I N D O W
0001320 F 7 R E S E T Y ) \0 335 005
0001340 003 002 \0 U \t \0 \0 021 1 003 ` \0 \0 037 U \t
0001360 \0 \0 d g \0 \0 360 245 d g \0 \0 360 225 277 o
0001400 \0 \0 \0 204 277 o \0 \0 \0 271 d I 024 004 277 d
0001420 g \0 \0 024 277 d g \0 \0 024 034 277 j d n
0001440 177 377 d h 032 032 032 032 272 d J 024 \n 277 \t \0
0001460 \0 d 242 261 \0 207 H i d \v \0 \0 263 025 \b \0
0001500 \0 [ \t \0 \0 277 o \0 \0 \0 K \n \0 \0 277 260
0001520 i d g \0 \0 360 262 6 277 V \t \0 \0 021 001 004
0001540 L \t \0 \0 277 U o \0 \0 \0 h d L \f \0 \0
0001560 265 004 260 027 \n \0 \0 L \t \0 \0 277 L \n \0 \0
0001600 277 o \0 \0 \0 L \n \0 \0 023 260 / d g \0 \0
0001620 360 231 277 U \t \0 \0 \t \0 \0 260 036 d g \0 \0
0001640 360 230 277 U \t \0 \0 \t \0 \0 214 g \0 \0 360 264
0001660 \v U \t \0 \0 \t \0 \0 277 h 022 c 016 i 020 \0
0001700 ( 3 2 4 Q L O A D 3 2 1 Q
0001720 F I L E O B J . D A T A S T R E
0001740 A M 3 0 6 Q T E D I T 3 0
0001760 3 Q F I L E O B J . D A T A S
0002000 T R E A M 2 6 6 Q S E N D .
0002020 F I L E . T O . P R I N T E R
0002040 2 6 3 Q F I L E O B J . D A T
0002060 A S T R E A M 2 4 5 Q P R I
0002100 N 1 2 3 4 Q P R I N 1 2 2
0002120 7 Q T E R P R I 2 2 3 Q F
0002140 I L E O B J . P U T 2 1 4 Q
0002160 P R O M P T F O R W O R D 2 0
0002200 0 Q C L E A R W 1 7 1 Q G
0002220 E T P R O M P T W I N D O W 1
0002240 5 2 Q P R I N 1 1 4 1 Q T
0002260 E R P R I 1 3 5 Q F I L E O
0002300 B J . P R O M P T W I N D O W
0002320 1 3 0 Q O B T A I N . M O N I
0002340 T O R L O C K 1 1 5 Q M E N
0002360 U 1 6 Q F I L E O B J . T Y
0002400 P E 3 F I L E O B J . L O C
0002420 K ) \r ( 3 1 2 Q L O A D 2 7
0002440 4 Q E D I T 2 5 4 Q H A R
0002460 D C O P Y 1 6 1 Q P U T 6
0002500 6 Q D E F A U L T M E N U H E
0002520 L D F N 5 7 Q C L R P R O M
0002540 P T 3 0 Q I N T E R P R E S
0002560 S 2 2 Q P R E S S 1 1 Q
0002600 004 003 M E N U T Y P E # ) \r ( 2
0002620 4 1 Q " . . . s a v e d . "
0002640 2 0 6 Q " P u t f i l e : "
0002660 1 4 6 Q " ( b u s y ) " 4
0002700 5 Q ( E D I T P U T H A R
0002720 D C O P Y L O A D ) 3 7 Q
0002740 ( P U T H A R D C O P Y ) ) \r
0002760 F I L E O B J . B U T T O N D
0003000 1 \r ( P 2 R E S E T Z P
0003020 1 R E S E T Y P 0 L I S
0003040 P X H I S T I 7 B U T T O
0003060 N I 6 T E X T I 5 W
0003100 I N D O W I 4 R E L Y I
0003120 3 R E L X I 2 S E L
0003140 I 1 W I N D O W S T R E A M
0003160 I 0 O B J F 3 L I S
0003200 P X H I S T F 4 R E S E T
0003220 V A R S L S T ) \0 J 003 002 \0 \b `
0003240 \0 \0 310 \0 l @ 345 j 360 263 = ` \0 \0 310 \0
0003260 l \b 345 j 360 263 1 ` \0 \0 d 226 310 \0 l @
0003300 345 j 360 263 # S 021 ! 002 T o \0 \0 \0 g \0
0003320 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223
0003340 \b \0 \0 020 I 020 h 020 \0 ( 1 0 3 Q E
0003360 R R O R ! 7 6 Q R E S E T R
0003400 E S T O R E 6 4 Q F I L E O
0003420 B J . B U T T O N A 0 0 0 1 ) \r
0003440 ( 7 2 Q E R R O R 6 1 Q I
0003460 N T E R N A L 3 2 Q \ E M .
0003500 K B D A D 4 1 6 Q \ E M . K
0003520 B D A D 3 2 \ E M . K B D A
0003540 D 2 ) \r ( 5 6 Q ( F I L E O
0003560 B J . B U T T O N A 0 0 0 1 ) )
0003600 \r F I L E O B J . I C O N D 1
0003620 \r ( I 0 O B J F 0 F I
0003640 L E O B J . P R I N T F I L E .
0003660 I C O N F 1 F I L E O B J
0003700 . T E X T F I L E . I C O N F
0003720 2 F I L E O B J . B I N A R
0003740 Y F I L E . I C O N ) \0 # \0 003
0003760 \0 001 @ \t \0 \0 d g \0 \0 360 245 d g \0 \0
0004000 360 221 P 020 d g \0 \0 360 245 d g \0 \0 360 221
0004020 Q 020 R 020 \0 ( 3 F I L E O B J .
0004040 T Y P E ) \r ( 3 3 Q T E D I T
0004060 2 5 Q T E X T 1 5 Q I N
0004100 T E R P R E S S 7 P R E S S
0004120 ) \r ( ) \r F I L E O B J . L O C
0004140 K D 1 \r ( P 0 L O C K I
0004160 0 O B J ) \0 032 001 \0 \0 001 @ g
0004200 \0 \0 \n \0 \0 265 021 \b \0 \0 021 001 \0 @ g \0
0004220 \0 H \v \0 \0 H 020 \0 ( 2 6 Q I M A
0004240 G E O B J P R O P 1 3 Q C R
0004260 E A T E . M O N I T O R L O C K
0004300 6 I M A G E O B J P R O P )
0004320 \r ( 2 2 Q L O C K 3 L O C
0004340 K ) \r ( ) \r F I L E O B J . P U
0004360 T D 1 \r ( P 1 S T R P
0004400 0 N E W S T R I 1 N E W
0004420 N A M E I 0 O B J ) \0 1
0004440 002 \0 \0 002 A g \0 \0 g \0 \0 h @ \t \0 \0
0004460 \r 005 \0 \0 021 001 \0 @ \t \0 \0 021 001 001 I g
0004500 \0 \0 \n \0 \0 277 I H j m 377 \f \0 \0 023 H
0004520 \t \0 \0 020 \0 ( 5 6 Q C L O S E F
0004540 5 1 Q C O P Y B Y T E S 4
0004560 0 Q O P E N S T R E A M 2 6
0004600 Q F I L E O B J . D A T A S T
0004620 R E A M 1 7 Q O P E N S T R
0004640 E A M 1 3 Q F I L E O B J .
0004660 F I L E P R O P S ) \r ( 3 5 Q
0004700 I N P U T 6 N E W 3 O U
0004720 T P U T ) \r ( ) \r F I L E O B J
0004740 . F I L E P R O P S D 1 \r ( I
0004760 0 O B J ) \0 \t \0 \0 \0 001 @ g
0005000 \0 \0 \n \0 \0 020 \0 ( 6 I M A G E O
0005020 B J P R O P ) \r ( 3 F I L E P
0005040 R O P E R T I E S ) \r ( ) \r F I
0005060 L E O B J . F I L E I N F O S
0005100 D 1 \r ( P 2 T Y P E P 1
0005120 X P 0 P R O P S I 0
0005140 F I L E ) \0 u 003 \0 \0 001 021 0 002
0005160 @ \t \0 \0 Y 004 l 004 360 231 g \0 \0 I h 032
0005200 032 H 032 270 @ g \0 \0 \n \0 \0 Y 231 g \0 \0
0005220 I h 032 032 H 032 270 @ g \0 \0 \n \0 \0 Y 231
0005240 g \0 \0 I h 032 032 H 032 270 @ g \0 \0 \n \0
0005260 \0 Z 265 004 H 020 g \0 \0 360 263 372 g \0 \0 J
0005300 h 032 032 H 032 270 J g \0 \0 360 262 351 @ g \0
0005320 \0 \n \0 \0 Y 262 337 g \0 \0 I h 032 032 H 032
0005340 020 \0 ( 1 4 6 Q G E T F I L E I
0005360 N F O 1 0 3 Q G E T F I L E
0005400 I N F O 6 0 Q G E T F I L E
0005420 I N F O 3 5 Q G E T F I L E
0005440 I N F O 6 F U L L N A M E )
0005460 \r ( 1 5 4 Q E O L 1 4 3 Q
0005500 E O L 1 3 4 Q T E X T 1 2
0005520 1 Q T Y P E 1 1 3 Q ? 1
0005540 0 0 Q T Y P E 6 5 Q C R E
0005560 A T I O N D A T E 5 5 Q C R
0005600 E A T I O N D A T E 4 2 Q F
0005620 I L E T Y P E 3 2 Q F I L E
0005640 T Y P E 1 7 Q N A M E ) \r (
0005660 ) \r F I L E O B J . S A V E D
0005700 1 \r ( P 0 S T R I 1 S
0005720 T R E A M I 0 O B J ) \0
0005740 % 001 \0 \0 002 @ \t \0 \0 021 001 \0 @ \t \0 \0
0005760 A \n \0 \0 H A j H g \0 \0 \n \0 \0 A \n
0006000 \0 \0 k 331 \f \0 \0 h 020 \0 ( 4 1 Q C
0006020 O P Y B Y T E S 3 4 Q P R I
0006040 N T 3 0 Q G E T F I L E I N
0006060 F O 1 6 Q P R I N T 1 2 Q
0006100 F I L E O B J . F I L E P R O
0006120 P S 3 F I L E O B J . D A T
0006140 A S T R E A M ) \r ( 2 5 Q L E
0006160 N G T H ) \r ( ) \r F I L E O B J
0006200 . D A T A S T R E A M D 1 \r (
0006220 I 0 O B J ) \0 \t \0 \0 \0 001 @
0006240 g \0 \0 \n \0 \0 020 \0 ( 6 I M A G E
0006260 O B J P R O P ) \r ( 3 O B J E
0006300 C T D A T U M ) \r ( ) \r F I L E
0006320 O B J . C O P Y D 1 \r ( I 0
0006340 O B J ) \0 021 \0 \0 \0 001 @ \t \0 \0
0006360 @ \t \0 \0 @ \t \0 \0 \v \0 \0 020 \0 ( 1 6
0006400 Q F I L E O B J . C R E A T E
0006420 1 3 Q F I L E O B J . L O C
0006440 K 7 F I L E O B J . F I L E
0006460 P R O P S 3 F I L E O B J .
0006500 D A T A S T R E A M ) \r N I L \r
0006520 ( ) \r F I L E O B J . G E T D
0006540 1 \r ( I 1 T E X T S T R E A
0006560 M I 0 S T R E A M ) \0 016
0006600 \0 \0 \0 002 @ \t \0 \0 @ \t \0 \0 @ \v \0 \0
0006620 020 \0 ( 1 3 Q F I L E O B J . G
0006640 E T 1 7 R E A D 3 R E A
0006660 D ) \r N I L \r ( ) \r F I L E O B
0006700 J . G E T 1 D 1 \r ( P 0 S
0006720 T R I 2 S O U R C E I
0006740 1 L E N I 0 P R O P S )
0006760 \0 001 \0 \0 003 g \0 \0 g \0 \0 h d @
0007000 \r 005 \0 \0 021 001 \0 B H j A k 331 \f \0 \0
0007020 H @ \n \0 \0 020 \0 ( 3 5 Q F I L E
0007040 O B J . C R E A T E 3 0 Q C
0007060 O P Y B Y T E S 1 4 Q O P E
0007100 N S T R E A M ) \r ( 5 B O T H
0007120 2 { N O D I R C O R E } ) \r
0007140 ( ) \r F I L E O B J . C R E A T
0007160 E D 1 \r ( P 0 O B J I
0007200 2 L O C K I 1 P R O P S
0007220 I 0 F I L E S T R E A M
0007240 F 1 F I L E O B J . I M A G
0007260 E F N S ) \0 035 001 001 \0 003 @ Q \n \0
0007300 \0 021 001 \0 H g \0 \0 A \v \0 \0 B 227 H g
0007320 \0 \0 B \v \0 \0 H 020 \0 ( 3 1 Q I M
0007340 A G E O B J P R O P 1 7 Q I
0007360 M A G E O B J P R O P 4 I M
0007400 A G E O B J C R E A T E ) \r ( 2
0007420 5 Q L O C K 1 3 Q F I L E
0007440 P R O P E R T I E S ) \r ( ) \r F
0007460 I L E O B J . I M A G E B O X
0007500 D 1 \r ( P 0 B M I 1 S
0007520 T R E A M I 0 O B J ) \0
0007540 030 001 \0 \0 002 @ \t \0 \0 021 001 \0 H \t \0 \0
0007560 H \t \0 \0 j d h 032 032 032 032 020 \0 ( 1 6
0007600 Q B I T M A P H E I G H T 1
0007620 2 Q B I T M A P W I D T H 3
0007640 F I L E O B J . I C O N ) \r N
0007660 I L \r ( ) \r F I L E O B J . D I
0007700 S P L A Y D 1 \r ( I 1 S T
0007720 R E A M I 0 O B J ) \0 027
0007740 \0 \0 \0 002 @ \t \0 \0 j d A h A \n \0 \0
0007760 h A \n \0 \0 \r 006 \0 \0 020 \0 ( 2 4 Q
0010000 B K B I T B L T 2 0 Q D S P
0010020 Y P O S I T I O N 1 3 Q D S
0010040 P X P O S I T I O N 3 F I L
0010060 E O B J . I C O N ) \r N I L \r (
0010100 ) \r F I L E O B J . N A M E D
0010120 1 \r ( I 0 O B J ) \0 # 001 \0
0010140 \0 001 @ \t \0 \0 021 001 \0 H 003 265 \a o \0 \0
0010160 \0 020 001 d 003 001 g \0 \0 360 245 277 H 002 X 260
0010200 353 002 001 020 \0 ( 3 F I L E O B J .
0010220 F I L E P R O P S ) \r ( 2 6 Q
0010240 N A M E ) \r ( 1 6 Q " a f
0010260 i l e " ) \r F I L E O B J . T Y
0010300 P E D 1 \r ( I 0 O B J )
0010320 \0 # \0 \0 \0 001 g \0 \0 @ \t \0 \0 \n \0 \0
0010340 002 001 n 021 \t 360 223 g \0 \0 020 g \0 \0 @ \t
0010360 \0 \0 \n \0 \0 002 001 020 \0 ( 3 6 Q A S
0010400 S O C 3 3 Q F I L E O B J .
0010420 F I L E P R O P S 1 1 Q A S
0010440 S O C 6 F I L E O B J . F I
0010460 L E P R O P S ) \r ( 2 7 Q T Y
0010500 P E 2 3 Q I N T E R P R E S
0010520 S 2 F I L E T Y P E ) \r ( )
0010540 \r ( P R E T T Y C O M P R I N T
0010560 F I L E O B J C O M S ) \r ( R
0010600 P A Q Q F I L E O B J C O M S
0010620 ( ( F N S F I L E O B J F
0010640 I L E O B J . B U T T O N F I
0010660 L E O B J . I C O N F I L E O
0010700 B J . L O C K F I L E O B J .
0010720 P U T \r F I L E O B J . F I L
0010740 E P R O P S F I L E O B J . F
0010760 I L E I N F O S F I L E O B J
0011000 . S A V E F I L E O B J . D A
0011020 T A S T R E A M F I L E O B J
0011040 . C O P Y F I L E O B J . G E
0011060 T \r F I L E O B J . G E T 1
0011100 F I L E O B J . C R E A T E F
0011120 I L E O B J . I M A G E B O X
0011140 F I L E O B J . D I S P L A Y
0011160 F I L E O B J . N A M E F I L
0011200 E O B J . T Y P E ) ( V A R S
0011220 \r F I L E O B J . P R I N T F
0011240 I L E . I C O N F I L E O B J
0011260 . T E X T F I L E . I C O N F
0011300 I L E O B J . B I N A R Y F I L
0011320 E . I C O N ( F I L E O B J .
0011340 I M A G E F N S ( I M A G E F
0011360 N S C R E A T E \r ( F U N C T
0011400 I O N F I L E O B J . D I S P
0011420 L A Y ) ( F U N C T I O N F
0011440 I L E O B J . I M A G E B O X )
0011460 ( F U N C T I O N F I L E O
0011500 B J . S A V E ) ( F U N C T I
0011520 O N F I L E O B J . G E T ) \r
0011540 ( F U N C T I O N F I L E O
0011560 B J . C O P Y ) ( F U N C T I
0011600 O N F I L E O B J . B U T T O
0011620 N ) ( F U N C T I O N F I L
0011640 E O B J . C O P Y I N ) ) ) ) )
0011660 ) \r ( R P A Q F I L E O B J .
0011700 P R I N T F I L E . I C O N (
0011720 R E A D B I T M A P ) ) \r ( 1 6
0011740 1 6 " G O N @ " " G O O @
0011760 " " F @ G H " " F @ E L "
0012000 " F @ D N " " F @ G N " " F
0012020 @ @ F " " F C L F " " F B D
0012040 F " " F B D F " " F O O F "
0012060 " F O O F " " F O O F " \r
0012100 " F @ @ F " " G O O N " " G
0012120 O O N " ) \r ( R P A Q F I L E
0012140 O B J . T E X T F I L E . I C O
0012160 N ( R E A D B I T M A P ) ) \r
0012200 ( 1 6 1 6 " G O N @ " " G
0012220 O O @ " " F @ G H " " F @ E
0012240 L " " F @ D N " " F @ G N "
0012260 " F @ @ F " " F @ @ F " "
0012300 F @ @ F " " F @ @ F " " F @
0012320 @ F " " F @ @ F " " F @ @ F
0012340 " \r " F @ @ F " " G O O N "
0012360 " G O O N " ) \r ( R P A Q F
0012400 I L E O B J . B I N A R Y F I L
0012420 E . I C O N ( R E A D B I T M
0012440 A P ) ) \r ( 1 6 1 6 " G O N
0012460 @ " " G O O @ " " F @ G H "
0012500 " F @ E L " " F @ D N " "
0012520 F @ G N " " F @ @ F " " F I
0012540 B F " " F D I F " " F I B F
0012560 " " F D I F " " F I B F "
0012600 " F D I F " \r " F @ @ F " "
0012620 G O O N " " G O O N " ) \r ( R
0012640 P A Q F I L E O B J . I M A G
0012660 E F N S ( I M A G E F N S C R
0012700 E A T E ( F U N C T I O N F
0012720 I L E O B J . D I S P L A Y )
0012740 ( F U N C T I O N F I L E O B
0012760 J . I M A G E B O X ) ( \r F U
0013000 N C T I O N F I L E O B J . S
0013020 A V E ) ( F U N C T I O N F
0013040 I L E O B J . G E T ) ( F U N
0013060 C T I O N F I L E O B J . C O
0013100 P Y ) ( F U N C T I O N F I
0013120 L E O B J . B U T T O N ) ( \r
0013140 F U N C T I O N F I L E O B J
0013160 . C O P Y I N ) ) ) \r ( P U T P
0013200 R O P S F I L E O B J C O P
0013220 Y R I G H T ( " X e r o x C
0013240 o r p o r a t i o n " 1 9 8 4
0013260 1 9 8 5 ) ) \r N I L \r
0013274