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