$ od -c -N 50000 [phylum]<LISPUSERS>koto>TEDIT-CLOSE-ON-SHRINK.DCOM!3
0000000 ( F I L E C R E A T E D " 2 8
0000020 - O c t - 8 7 2 0 : 4 7 : 4 0
0000040 " ( " c o m p i l e d o n
0000060 " { E R I N Y E S } < L I S P
0000100 U S E R S > K O T O > T E D I T
0000120 - C L O S E - O N - S H R I N K
0000140 . ; 2 ) \r " 1 2 - N o v - 8 5
0000160 1 4 : 5 9 : 2 3 " t c o m p
0000200 l ' d i n " I N T E R L I S
0000220 P - D 8 - S e p - 8 7 . .
0000240 . " d a t e d " 8 - S e p
0000260 - 8 7 1 9 : 1 3 : 0 9 " ) \r (
0000300 F I L E C R E A T E D " 2 8 -
0000320 O c t - 8 7 2 0 : 4 7 : 0 4 "
0000340 { E R I N Y E S } < L I S P U
0000360 S E R S > K O T O > T E D I T -
0000400 C L O S E - O N - S H R I N K .
0000420 ; 2 3 0 7 3 c h a n g e s
0000440 t o : ( \r V A R S T E D I T
0000460 - C L O S E - O N - S H R I N K
0000500 C O M S ) p r e v i o u s d
0000520 a t e : " 3 - A u g - 8 7
0000540 1 8 : 0 4 : 5 4 " \r { Q V } <
0000560 B R I G G S > L I S P > T E D I
0000600 T - C L O S E - O N - S H R I N
0000620 K . ; 1 ) \r \ T E D I T - C L O
0000640 S E - O N - S H R I N K D 1 \r
0000660 ( P 1 b a c k i n g S t r e
0000700 a m P 0 t e x t O b j I
0000720 0 t e d i t W i n d o w )
0000740 \0 036 002 \0 \0 001 @ \t \0 \0 021 021 001 H 006 \0
0000760 \0 311 , 271 H 312 , \0 j 360 225 I 223 I \t \0
0001000 \0 i 020 \0 ( 3 2 Q C L O S E F ?
0001020 3 T E X T O B J ) \r ( 1 2 Q
0001040 T E X T O B J ) \r ( ) \r ( P R
0001060 E T T Y C O M P R I N T T E D
0001100 I T - C L O S E - O N - S H R I
0001120 N K C O M S ) \r ( R P A Q Q T
0001140 E D I T - C L O S E - O N - S H
0001160 R I N K C O M S ( ( F N S \
0001200 T E D I T - C L O S E - O N - S
0001220 H R I N K ) ( D E C L A R E :
0001240 D O N T E V A L @ L O A D D
0001260 O C O P Y ( P ( i f ( \r G
0001300 E T D ( Q U O T E T E D I T
0001320 ) ) t h e n ( P U T P R O P
0001340 ( Q U O T E T E D I T . C R
0001360 E A T E W ) ( Q U O T E R E
0001400 A D V I C E ) ( Q U O T E (
0001420 N I L ( A F T E R N I L (
0001440 i f ( \r N O T ( M E M B (
0001460 Q U O T E \ T E D I T - C L O
0001500 S E - O N - S H R I N K ) ( W
0001520 I N D O W P R O P ! V A L U E
0001540 ( Q U O T E S H R I N K F N
0001560 ) ) ) ) t h e n ( W I N D O
0001600 W A D D P R O P \r ! V A L U E
0001620 ( Q U O T E S H R I N K F N
0001640 ) ( Q U O T E \ T E D I T -
0001660 C L O S E - O N - S H R I N K )
0001700 ) ) ) ) ) ) ( P U T P R O P
0001720 ( Q U O T E \r \ T E D I T . C
0001740 R E A T E W . F R O M . R E G I
0001760 O N ) ( Q U O T E R E A D V
0002000 I C E ) ( Q U O T E ( N I L
0002020 ( A F T E R N I L ( i f
0002040 ( N O T ( M E M B ( Q U O T
0002060 E \r \ T E D I T - C L O S E -
0002100 O N - S H R I N K ) ( W I N D
0002120 O W P R O P ! V A L U E ( Q
0002140 U O T E S H R I N K F N ) ) )
0002160 ) t h e n ( W I N D O W A D
0002200 D P R O P ! V A L U E ( Q U
0002220 O T E \r S H R I N K F N ) (
0002240 Q U O T E \ T E D I T - C L O
0002260 S E - O N - S H R I N K ) ) ) )
0002300 ) ) ) ( P U T P R O P ( Q U
0002320 O T E \ T E D I T . R E O P E
0002340 N . S T R E A M ) ( Q U O T E
0002360 R E A D V I C E ) \r ( Q U O
0002400 T E ( N I L ( A F T E R N
0002420 I L ( r e p l a c e ( T E X
0002440 T O B J T X T F I L E ) o f
0002460 ( T E X T O B J T E X T S T
0002500 R E A M ) w i t h ! V A L U
0002520 E ) ) ) ) ) ( R E A D V I S E
0002540 \r T E D I T . C R E A T E W
0002560 \ T E D I T . C R E A T E W . F
0002600 R O M . R E G I O N \ T E D I
0002620 T . R E O P E N . S T R E A M )
0002640 ( S E T Q A D V I S E D F N
0002660 S ( L D I F F E R E N C E \r
0002700 A D V I S E D F N S ( Q U O T
0002720 E ( T E D I T . C R E A T E W
0002740 \ T E D I T . C R E A T E W .
0002760 F R O M . R E G I O N \ T E D
0003000 I T . R E O P E N . S T R E A M
0003020 ) ) ) ) ) ) ) ) ) \r ( i f ( G
0003040 E T D ( Q U O T E T E D I T
0003060 ) ) t h e n ( P U T P R O P
0003100 ( Q U O T E T E D I T . C R
0003120 E A T E W ) ( Q U O T E R E
0003140 A D V I C E ) ( Q U O T E (
0003160 N I L ( A F T E R N I L (
0003200 \r i f ( N O T ( M E M B (
0003220 Q U O T E \ T E D I T - C L O
0003240 S E - O N - S H R I N K ) ( W
0003260 I N D O W P R O P ! V A L U E
0003300 ( Q U O T E S H R I N K F N
0003320 ) ) ) ) t h e n ( \r W I N D
0003340 O W A D D P R O P ! V A L U E
0003360 ( Q U O T E S H R I N K F N
0003400 ) ( Q U O T E \ T E D I T -
0003420 C L O S E - O N - S H R I N K )
0003440 ) ) ) ) ) ) ( P U T P R O P
0003460 ( Q U O T E \r \ T E D I T . C
0003500 R E A T E W . F R O M . R E G I
0003520 O N ) ( Q U O T E R E A D V
0003540 I C E ) ( Q U O T E ( N I L
0003560 ( A F T E R N I L ( i f
0003600 ( N O T ( M E M B ( Q U O T
0003620 E \r \ T E D I T - C L O S E -
0003640 O N - S H R I N K ) ( W I N D
0003660 O W P R O P ! V A L U E ( Q
0003700 U O T E S H R I N K F N ) ) )
0003720 ) t h e n ( W I N D O W A D
0003740 D P R O P ! V A L U E ( Q U
0003760 O T E \r S H R I N K F N ) (
0004000 Q U O T E \ T E D I T - C L O
0004020 S E - O N - S H R I N K ) ) ) )
0004040 ) ) ) ( P U T P R O P ( Q U
0004060 O T E \ T E D I T . R E O P E
0004100 N . S T R E A M ) ( Q U O T E
0004120 R E A D V I C E ) \r ( Q U O
0004140 T E ( N I L ( A F T E R N
0004160 I L ( r e p l a c e ( T E X
0004200 T O B J T X T F I L E ) o f
0004220 ( T E X T O B J T E X T S T
0004240 R E A M ) w i t h ! V A L U
0004260 E ) ) ) ) ) ( R E A D V I S E
0004300 \r T E D I T . C R E A T E W
0004320 \ T E D I T . C R E A T E W . F
0004340 R O M . R E G I O N \ T E D I
0004360 T . R E O P E N . S T R E A M )
0004400 ( S E T Q A D V I S E D F N
0004420 S ( L D I F F E R E N C E \r
0004440 A D V I S E D F N S ( Q U O T
0004460 E ( T E D I T . C R E A T E W
0004500 \ T E D I T . C R E A T E W .
0004520 F R O M . R E G I O N \ T E D
0004540 I T . R E O P E N . S T R E A M
0004560 ) ) ) ) ) \r ( P U T P R O P S
0004600 T E D I T - C L O S E - O N - S
0004620 H R I N K C O P Y R I G H T
0004640 ( " X e r o x C o r p o r a t
0004660 i o n " 1 9 8 7 ) ) \r N I L \r
0004700