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