$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>DEDIT!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 R E A D T A B L E " I N
0000040 T E R L I S P " 247 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D " 2
0000120 6 - N o v - 8 6 1 7 : 0 2 : 4
0000140 1 " 006 004 { E R I S } < L I S P
0000160 C O R E > L I B R A R Y > D E D
0000200 I T . ; 5 006 001 1 0 9 4 2 1 \r
0000220 \r c h a n g e s t
0000240 o % : ( V A R S D E D I T
0000260 C O M S ) \r \r p r e
0000300 v i o u s d a t e % : " 1 6
0000320 - O c t - 8 6 1 2 : 3 5 : 0 3
0000340 " { E R I S } < L I S P C O R
0000360 E > L I B R A R Y > D E D I T .
0000400 ; 4 ) \r \r \r ( * " \r C o p y r
0000420 i g h t ( c ) 1 9 8 2 , 1
0000440 9 8 3 , 1 9 8 4 , 1 9 8 5 ,
0000460 1 9 8 6 b y X e r o x C
0000500 o r p o r a t i o n . A l l
0000520 r i g h t s r e s e r v e d
0000540 . \r T h e f o l l o w i n g
0000560 p r o g r a m w a s c r e a
0000600 t e d i n 1 9 8 2 b u t
0000620 h a s n o t b e e n p u b
0000640 l i s h e d \r w i t h i n t h
0000660 e m e a n i n g o f t h e
0000700 c o p y r i g h t l a w ,
0000720 i s f u r n i s h e d u n d
0000740 e r l i c e n s e , \r a n d
0000760 m a y n o t b e u s e d ,
0001000 c o p i e d a n d / o r d
0001020 i s c l o s e d e x c e p t
0001040 i n a c c o r d a n c e \r w i
0001060 t h t h e t e r m s o f
0001100 s a i d l i c e n s e . \r " )
0001120 \r \r ( P R E T T Y C O M P R I N
0001140 T D E D I T C O M S ) \r \r ( R
0001160 P A Q Q 006 002 D E D I T C O M S
0001200 006 001 \r [ ( C O M
0001220 S ( * ; " U s e r e n t
0001240 r y t o t h e e d i t o r
0001260 " ) \r
0001300 ( P R O P ( D e f i n i t i
0001320 o n - f o r - E D I T L D e f
0001340 i n i t i o n - f o r - E D I T
0001360 E D e f i n i t i o n - f o r
0001400 - E D I T D A T E ) \r
0001420 D
0001440 E D I T ) \r
0001460 [ D E C L A R E % : D
0001500 O N T E V A L @ L O A D D O C
0001520 O P Y ( V A R S ( * D I S P
0001540 L A Y - E D I T O R * ' D E D
0001560 I T ] \r
0001600 ( F N S D E D I T I T ) )
0001620 \r ( C O M S (
0001640 * ; \r " H o o k s b e
0001660 t w e e n t t y e d i t o r
0001700 a n d D E D I T . W e
0001720 r e d e f i n e E D I T L t
0001740 o g e t i n t o D E D I T
0001760 f r o m s y s t e m e d i
0002000 t o r c a l l s " \r
0002020 ) \r
0002040 ( F N S
0002060 D E D I T L D E D I T L 0
0002100 D E D I T T T Y F N ) ) \r
0002120 ( C O M S ( * ;
0002140 " B a s i c D E D I T m e n
0002160 u c o m m a n d s " ) \r
0002200 ( F N S
0002220 D E D I T A f t e r D E D I T
0002240 B e f o r e D E D I T D e l e
0002260 t e D E D I T R e p l a c e
0002300 D E D I T S w i t c h D E D I
0002320 T B I D E D I T B O \r
0002340
0002360 D E D I T L I D E D I T L O
0002400 D E D I T R I D E D I T R O
0002420 D E D I T U n d o U N D O C H
0002440 O O S E D E D I T F i n d D
0002460 E D I T S w a p \r
0002500 D E D
0002520 I T C e n t e r D E D I T C o
0002540 p y D E D I T R e p r i n t
0002560 D E D I T E d i t C o m D E D
0002600 I T A R G S D E D I T B r e a
0002620 k D E D I T E v a l \r
0002640
0002660 D E D I T E x i t ) \r
0002700 ( F N S D E
0002720 D I T E d i t D E D I T C E d
0002740 i t D E D I T . T T Y i n E d
0002760 i t D E D I T D a t a t y p e
0003000 ) \r
0003020 ( A D D V A R S ( D T . E D I
0003040 T M A C R O S ) ) ) \r
0003060 ( C O M S ( * ; " S
0003100 t r u c t u r e c h a n g i n
0003120 g " ) \r
0003140 ( F N S S E T P T R T O
0003160 D E D I T C O N S D E D I T Z
0003200 A P C A R D E D I T Z A P C D
0003220 R D E D I T Z A P N O D E D
0003240 E D I T Z A P B O T H D E D I
0003260 T F Z A P \r
0003300 D E D I T Z
0003320 A P C L I S P D E D I T Z A P
0003340 C H A N G E S D E D I T M O V
0003360 E T A I L D O W N D U N D O E
0003400 D I T L D U N D O E D I T C O
0003420 M \r
0003440 D U N D O E D I T C
0003460 O M 1 ) ) \r ( C
0003500 O M S ( * ; " S e l e c t
0003520 i o n c o d e . S e l e c
0003540 t e x p r e s s i o n s o r
0003560 f r o m t h e c o m m a n
0003600 d m e n u " ) \r
0003620 ( F N S D E D I
0003640 T S L C T L P D E D I T U S E
0003660 R S E L E C T K E Y S D O D
0003700 E D I T T Y P E D C O M D E D
0003720 I T R E A D L I N E S H A D E
0003740 I F N O T B U F \r
0003760 D E D
0004000 I T B U T T O N F N D E D I T
0004020 R I G H T B U T T O N F N D E
0004040 D I T W I N D O W E N T R Y F N
0004060 S E L E C T E L E M E N T S
0004100 E L E C T R E A D \r
0004120 S E
0004140 L E C T T R E E S E A R C H M
0004160 A P W I T H I N M E O N A P
0004200 A R E N P S E L E C T D O N E
0004220 I N W I N D O W F I N D L C
0004240 A D O M I N A T E ? ) \r
0004260 ( A L I S
0004300 T S ( D E D I T T Y P E I N C
0004320 O M S F S Z ) ) \r
0004340 ( P R O P
0004360 V A R T Y P E D E D I T T Y P
0004400 E I N C O M S ) ) \r
0004420 ( C O M S ( * ; " H a
0004440 n d l i n g t h e s e l e c
0004460 t i o n s t a c k " ) \r
0004500 ( F N S
0004520 P O P S E L E C T I O N P U S
0004540 H S E L E C T I O N N X T S E
0004560 L E C T I O N T O P S E L E C
0004600 T I O N S W I T C H A N D S H
0004620 A D E S H A D E S E L E C T I
0004640 O N \r
0004660 S H A D E S E L E
0004700 C T I O N 1 S H A D E S E L E
0004720 C T I O N 2 O V E R L A P S E
0004740 L B A N D P U S H E D I T C H
0004760 A I N M A K E S E L C H A I N
0005000 \r
0005020 P U S H I N T O B U F
0005040 D U M M Y M A P E N T R Y F
0005060 L I P S E L S F L I P S E L S
0005100 I N F I X U P S E L N E W S
0005120 E L F O R ) ) \r
0005140 ( C O M S ( * ; " I n i t
0005160 i a l i z i n g a n d f l u
0005200 s h i n g e d i t w i n d o
0005220 w s " ) \r
0005240 ( F N S A C T I V E E D
0005260 I T W F I N D E D I T W G E
0005300 T E D I T W G E T D E D I T D
0005320 E F 4 M A K E E D I T W N A
0005340 M E O F E D I T W P U R G E W
0005360 \r
0005400 M A K E C P O S B E
0005420 S A M E E D I T W S E T U P D
0005440 E D I T W T O P E D I T W U
0005460 N D E D I T W W H I C H E D I
0005500 T W Z O R C H E D I T W Z O
0005520 R C H E D W P \r
0005540 U N Z O
0005560 R C H M E ) \r
0005600 ( I N I T V A R S (
0005620 D E d i t L i n g e r T ) ) )
0005640 \r ( C O M S (
0005660 * ; " M a n i p u l a t i n
0005700 g t h e E d i t m e n u "
0005720 ) \r
0005740 ( F N S S E T E D I T M E N U
0005760 C A C H E D E D I T C O M S
0006000 F I N D E D I T C O M R E A D
0006020 E D I T M E N U S H A D E M E
0006040 N U E N T R Y \r
0006060 D E D I
0006100 T M E N U R E S T O R E ) \r
0006120 [ V A R
0006140 S ( * D E D I T - M E N U - C
0006160 O M M A N D S * ' ( ( A f t e
0006200 r D E D I T A f t e r ) \r
0006220
*
0006260 ( B e f o
0006300 r e D E D I T B e f o r e ) \r
0006320
*
0006360 ( D e
0006400 l e t e D E D I T D e l e t e
0006420 ) \r
0006440
0006460 (
0006500 R e p l a c e D E D I T R e p
0006520 l a c e ) \r
0006540
*
0006600 ( S w i t c h D E D I T
0006620 S w i t c h ) \r
0006640
*
0006700 ( " ( ) " D E D I
0006720 T B I ( " ( ) i n " D E
0006740 D I T B I ) \r
0006760
*
0007020 ( " ( i
0007040 n " D E D I T L I ) \r
0007060
*
0007140 ( " ) i n " D E D I T R I )
0007160 ) \r
0007200
0007220 (
0007240 " ( ) o u t " D E D I T B
0007260 O ( " ( ) o u t " D E D
0007300 I T B O ) \r
0007320
*
0007360 ( " ( o u
0007400 t " D E D I T L O ) \r
0007420
*
0007500 ( " ) o u t " D E D I T R O
0007520 ) ) \r
0007540
*
0007600 ( U n d o D E D I T U n d o
0007620 ( U n d o D E D I T U n d o )
0007640 \r
0007660
*
0007720 ( ! U n d o ( D E D I
0007740 T U n d o T ) ) \r
0007760
*
0010020 ( ? U
0010040 n d o ( U N D O C H O O S E )
0010060 ) \r
0010100
*
0010140 ( & U n d o ( U N D
0010160 O C H O O S E T ) ) ) \r
0010200
*
0010240 ( F i n d
0010260 D E D I T F i n d ) \r
0010300
*
0010340 ( S w a p D E
0010360 D I T S w a p ( C e n t e r
0010400 D E D I T C e n t e r ) \r
0010420
*
0010500 ( C l e a r ( S E T Q \ D E
0010520 D I T S E L E C T I O N S N I
0010540 L ) ) \r
0010560
*
0010620 ( C o p y D E D
0010640 I T C o p y ) \r
0010660
*
0010720 ( P o p
0010740 ( P O P S E L E C T I O N ) ) \r
0010760
*
0011040 ( S w a p D E D I T S w
0011060 a p ) ) \r
0011100
*
0011140 ( R e p r i n t D E D I T
0011160 R e p r i n t ) \r
0011200
*
0011240 [ E d i t D E D I
0011260 T E d i t [ D E d i t ( D E
0011300 D I T E d i t ' D I S P L A Y
0011320 ' D e f ) \r
0011340
*
0011420 N I L \r
0011440
*
0011540 ( S U B I T E M S \r
0011560
*
0011660 ( " D E d i t D e f " (
0011700 D E D I T E d i t \r
0011720
*
0012020 ' D I
0012040 S P L A Y \r
0012060
*
0012160 ' D e f ) ) \r
0012200
*
0012300 ( " D E d i t F o r
0012320 m " \r
0012340
*
0012420 ( D E D I T E
0012440 d i t ' D I S P L A Y \r
0012460
*
0012560 ' F o r m ]
0012600 \r
0012620
*
0012660 [ T T Y E d i t ( D E
0012700 D I T E d i t ' T E L E T Y P
0012720 E ' D e f ) \r
0012740
*
0013020 N I L \r
0013040
*
0013120 ( S U B I T E M S ( " T T Y E
0013140 d i t D e f " \r
0013160
*
0013240 ( D
0013260 E D I T E d i t ' T E L E T Y
0013300 P E \r
0013320
*
0013400 '
0013420 D e f ) ) \r
0013440
*
0013520 ( " T T Y E d i t
0013540 F o r m " ( D E D I T E d i
0013560 t \r
0013600
*
0013700 ' T E L E T Y P E \r
0013720
*
0014040 ' F o r m ] \r
0014060
*
0014120 ( T T Y I n
0014140 % F o r m ( D E D I T E d i
0014160 t ' D E D I T . T T Y i n E d
0014200 i t \r
0014220
*
0014300 ' F o r m ]
0014320 \r
0014340
0014360 [ E
0014400 d i t C o m D E D I T E d i t
0014420 C o m ( ? = D E D I T A R G
0014440 S ) \r
0014460
*
0014520 ( G E T D ( D E
0014540 D I T E d i t C o m ' G E T D
0014560 ) ) \r
0014600
*
0014640 ( C L ( D E D I
0014660 T E d i t C o m ' C L ) ) \r
0014700
*
0014760 ( D W ( D E D I T E d i
0015000 t C o m ' D W ) ) \r
0015020
*
0015060 (
0015100 R E P A C K ( D E D I T E d i
0015120 t C o m ' R E P A C K ) ) \r
0015140
*
0015220 ( C A P ( D E D I T E d
0015240 i t C o m ' C A P ) ) \r
0015260
*
0015340 ( L O W E R ( D E D I T E d
0015360 i t C o m ' L O W E R ) ) \r
0015400
*
0015460 ( R A I S E ( D E D I T
0015500 E d i t C o m ' R A I S E ] \r
0015520
*
0015560 ( B r
0015600 e a k D E D I T B r e a k ) \r
0015620
*
0015660 ( E v
0015700 a l D E D I T E v a l ) \r
0015720
*
0015760 ( E x i t
0016000 D E D I T E x i t ( O K D
0016020 E D I T E x i t ) \r
0016040
*
0016100 ( S T
0016120 O P ( D E D I T E x i t T ]
0016140 \r (
0016160 G L O B A L V A R S * D E D I
0016200 T - M E N U - C O M M A N D S *
0016220 ) ) \r ( C O M S
0016240 ( * ; " M a i n t a i n i
0016260 n g d e d i t m a p e n t r
0016300 i e s a n d t h e e d i t
0016320 c h a i n " ) \r
0016340 ( F N S B U F S
0016360 E L P E D I T W I N D O W P
0016400 G E T L E F T G E T M E B P
0016420 H A S A S B P T A I L O F D
0016440 O T T E D E N D G E T M E 4
0016460 G E T S E L M A P \r
0016500 D E
0016520 A R M E D P C D R S E L G E
0016540 T D P M E G E T E B U F G E
0016560 T E B U F R E G I O N G E T E
0016600 D I T C H A I N G E T D E D I
0016620 T M A P G E T M A P ? \r
0016640
0016660 U N P U R G E D P S U B S E
0016700 L O F S E T D E D I T M A P
0016720 T A K E D O W N ) \r
0016740 ( I N I T V A R
0016760 S ( * D E D I T - B U F F E R
0017000 - H E I G H T * 6 0 ) ) \r
0017020 ( G L O
0017040 B A L V A R S * D E D I T - B
0017060 U F F E R - H E I G H T * ) ) \r
0017100 ( C O M S ( F
0017120 N S D E D I T R E S H A P E F
0017140 N D E D I T R E P A I N T F N
0017160 ) \r
0017200 ( F N S R E S E T D E D I T
0017220 D E D I T D A T E D E D I T M
0017240 A R K A S C H A N G E D ) \r
0017260 ( F N S
0017300 C O P Y C O N S C O P Y O U
0017320 T C O N S M A P E N T R Y P
0017340 T H E L I S T ) \r
0017360 ( F N S C A N T
0017400 ) ) \r ( D E C L
0017420 A R E % : D O E V A L @ C O M
0017440 P I L E D O N T C O P Y ( R
0017460 E C O R D S S T A C K ) \r
0017500 ( M A
0017520 C R O S E D I T B L O C K C A
0017540 L L C O N T R O L C O D E O
0017560 V E R L A P S H I F T S E L E
0017600 C T K E Y S ) \r
0017620 ( C O N S T A N T
0017640 S ( L I N E T H I C K N E S S
0017660 2 ) \r
0017700 ( P R I M S
0017720 H A D E 6 5 5 3 5 ) \r
0017740
0017760 ( S E C S H A D E 3 5 9 8
0020000 ) \r
0020020 ( S W I T C H S
0020040 H A D E ( L O G X O R P R I
0020060 M S H A D E S E C S H A D E )
0020100 ) \r
0020120 ( R E A D S H A
0020140 D E 2 3 1 3 0 ) \r
0020160
0020200 ( C H A N G E D S H A D E 8 8
0020220 4 0 ) ) \r
0020240 ( G L O B A L V A R S
0020260 D E d i t W i n d o w \ D E D
0020300 I T M N U W \ D E D I T B U F
0020320 W \ D E D I T A L L O W S E L
0020340 S \ D E D I T W I N D O W S
0020360 \r
0020400 \ D E D I T S E L
0020420 E C T I O N S D T . E D I T M
0020440 A C R O S U P F I N D F L G )
0020460 \r
0020500 ( S P E C V A R S A T M E D
0020520 I T C H A N G E S E D I T H I
0020540 S T L A S T A I L U N D O L
0020560 S T U N D O L S T 1 ) ) \r
0020600 ( D E C L A R E % :
0020620 E V A L @ C O M P I L E D O
0020640 N T C O P Y ( F I L E S ( L
0020660 O A D C O M P ) \r
0020700
*
0020740 D E D I T P P
0020760 ) ) \r [ D E C L
0021000 A R E % : D O N T E V A L @ L
0021020 O A D D O C O P Y ( F I L E
0021040 S D S P R I N T D E F N E W
0021060 P R I N T D E F D E D I T P P
0021100 ) \r
0021120 ( P ( A N D ( G E T D '
0021140 R E S E T D E D I T ) \r
0021160
0021200 ( R E S E T D E D I T ] \r
0021220 ( D E C L A R E
0021240 % : D O N T E V A L @ L O A D
0021260 D O E V A L @ C O M P I L E
0021300 D O N T C O P Y C O M P I L E
0021320 R V A R S ( A D D V A R S (
0021340 N L A M A ) \r
0021360
*
0021460 ( N L A M L ) \r
0021500
*
0021600 ( L A M A C
0021620 A N T ] ) \r \r \r \r 006 004 ( * ;
0021640 " U s e r e n t r y t o t
0021660 h e e d i t o r " ) 006 001 \r \r \r
0021700 ( P U T P R O P S 006 002 D E D I
0021720 T D e f i n i t i o n - f o r
0021740 - E D I T L 006 001 D E D I T L )
0021760 \r \r ( P U T P R O P S 006 002 D E
0022000 D I T D e f i n i t i o n - f
0022020 o r - E D I T E 006 001 T T Y / E
0022040 D I T E ) \r \r ( P U T P R O P S
0022060 006 002 D E D I T D e f i n i t
0022100 i o n - f o r - E D I T D A T E
0022120 006 001 D E D I T D A T E ) \r ( D
0022140 E C L A R E % : D O N T E V A
0022160 L @ L O A D D O C O P Y \r \r
0022200 ( R P A Q Q 006 002 * D I S P L A
0022220 Y - E D I T O R * 006 001 D E D I
0022240 T ) \r ) \r ( D E F I N E Q \r \r (
0022260 006 004 D E D I T I T 006 001 \r [ L
0022300 A M B D A ( E F N E A R G S
0022320 E M O D E )
0022340
0022360 ( * b a s %
0022400 : " 2 1 - M A R - 8 3 2 0 :
0022420 3 8 " ) \r ( R E S E T F
0022440 O R M ( E D I T M O D E E M
0022460 O D E ) \r
0022500 ( A P P L Y E F N E A R G S
0022520 ] ) \r ) \r \r \r \r 006 004 ( * ; \r
0022540 " H o o k s b e t w e e n t
0022560 t y e d i t o r a n d D E
0022600 D I T . W e r e d e f i n
0022620 e E D I T L t o g e t i
0022640 n t o D E D I T f r o m s
0022660 y s t e m e d i t o r c a l
0022700 l s " ) 006 001 \r \r ( D E F I N E Q
0022720 \r \r ( 006 004 D E D I T L 006 001 \r
0022740 [ L A M B D A ( L C O M S
0022760 A T M M E S S E D I T C H A
0023000 N G E S )
0023020 ( * b a
0023040 s % : " 1 9 - J U N - 8 3 2
0023060 3 : 5 8 " ) \r
0023100 \r ( * V
0023120 a l u e i s e d i t p u s
0023140 h - d o w n l i s t L . E
0023160 D I T C H A N G E S i s u s
0023200 e d f o r d e s t r u c t i
0023220 v e l y \r
0023240 m a r k i n g w h e t h e r
0023260 t h e e d i t m a d e a n
0023300 y c h a n g e s . ) \r \r
0023320 ( R E S E T L S T ( R E S E
0023340 T S A V E \ D E D I T S E L E
0023360 C T I O N S ( 006 002 c r e a t e
0023400 006 001 S T A C K ) ) \r
0023420 ( C O N D \r
0023440 ( C O M S
0023460 ( R E S E T S A V E E D I T M
0023500 A C R O S ( C O N S ' ( T T
0023520 Y % : N I L ( E ( 006 002 D E
0023540 D I T T T Y F N 006 001 A T M T
0023560 Y P E ) \r
0023600
*
0023660 T ) ) E D I T M A C R
0023700 O S ) ) \r
0023720 ( N O R M A L
0023740 / E D I T L L C O M S A T
0023760 M M E S S E D I T C H A N G
0024000 E S ) ) \r
0024020 ( T ( A N D M E S S
0024040 ( p r i n t o u t P R O M P T
0024060 W I N D O W . T A B 0 0 M
0024100 E S S T ) ) \r
0024120 [ P R O G [
0024140 M A R K L S T U N D O L S T
0024160 U N D O L S T 0 U N D O L S T
0024200 1 U N F I N D L A S T A I L
0024220 T M P \r
0024240
0024260 ( E X P R ( C A R ( L
0024300 A S T L ] \r
0024320 \r ( * E
0024340 X P R i s t h e t o p l
0024360 e v e l e x p r e s s i o n .
0024400 L i s u s u a l l y a
0024420 l i s t o f o n l y o n e
0024440 e l e m e n t , \r
0024460 i . e . y o u u s
0024500 u a l l y s t a r t e d i t
0024520 i n g a t t h e t o p ,
0024540 b u t n o t n e c e s s a r
0024560 i l y , s i n c e e d i t l
0024600 c a n \r
0024620 b e c a l l e d d i r e c t
0024640 l y . ) \r \r
0024660 [ C O
0024700 N D \r
0024720 ( [ O
0024740 R ( E Q E X P R ( G E T P
0024760 R O P ' E D I T ' L A S T V
0025000 A L U E ) ) \r
0025020
0025040 [ A N D A T M (
0025060 E Q E X P R ( S E T Q T M
0025100 P ( G E T P R O P A T M '
0025120 E D I T - S A V E ] \r
0025140
0025160 ( S O M E
0025200 ( C A R L I S P X H I S T O R
0025220 Y ) \r
0025240
0025260 ( F U N C T I O
0025300 N ( L A M B D A ( X ) \r
0025320
*
0025360 (
0025400 E Q E X P R ( S E T Q T M
0025420 P ( C A D R ( M E M B ' E
0025440 D I T X ] \r
0025460 \r ( * F
0025500 i r s t c l a u s e i s o
0025520 l d m e t h o d o f a l w
0025540 a y s s a v i n g l a s t
0025560 c a l l o n e d i t o r p
0025600 r o p e r t y \r
0025620 l i s t . S e c o n d
0025640 c l a u s e s e a r c h e s
0025660 h i s t o r y l i s t f o r
0025700 a c a l l t o e d i t o
0025720 r c o r r e s p o n d i n g
0025740 t o \r t h
0025760 i s e x p r e s s i o n . ) \r
0026000 \r
0026020 ( S E T
0026040 Q M A R K L S T ( C A D R
0026060 T M P ) ) \r
0026100
0026120 ( S E T Q U N D O L S T (
0026140 C A D D R T M P ) ) \r
0026160
0026200 ( C O N D \r
0026220
0026240 ( ( C A R
0026260 U N D O L S T )
0026300 ( * D o n
0026320 ' t w a n t t o b l o c k
0026340 i t t w i c e . ) \r
0026360
0026400 ( 006 002 p u
0026420 s h 006 001 U N D O L S T N I L
0026440 ) ) ) \r
0026460 (
0026500 S E T Q U N D O L S T 0 U N
0026520 D O L S T ) \r
0026540 \r ( * M
0026560 a r k s U N D O L S T a s
0026600 o f t h i s e n t r y t o
0026620 e d i t o r , s o U N D O
0026640 o f t h i s e n t i r e
0026660 E D I T \r
0026700 s e s s i o n w o n ' t g o
0026720 t o o f a r b a c k . ) \r
0026740 \r
0026760 ( S E T
0027000 Q U N F I N D ( C D D D R
0027020 T M P ] \r
0027040 ( C O N
0027060 D \r
0027100 [ ( P R
0027120 O G 1 ( 006 002 D E D I T L 0 006 001
0027140 E X P R ( 006 002 G E T E D I T
0027160 W 006 001 A T M ( A N D ( B O
0027200 U N D P ' T Y P E ) \r
0027220
*
0027300 T
0027320 Y P E ) ) ) \r
0027340 \r ( * E
0027360 v e n i f s o m e e r r o
0027400 r o c c u r s , s t i l l
0027420 w a n t t o m o v e u n d
0027440 o i n f o r m a t i o n t o
0027460 \r L I S P
0027500 X H I S T O R Y . ) \r \r
0027520
0027540 [ C
0027560 O N D \r
0027600
0027620 ( U N D O L S
0027640 T 1 ( 006 002 p u s h 006 001 U N D
0027660 O L S T ( C O N S T ( C O
0027700 N S \ D E D I T S E L E C T I
0027720 O N S U N D O L S T 1 ] \r
0027740
*
0030000 ( A N D L I S P X H I S T (
0030020 N E Q U N D O L S T U N D O
0030040 L S T 0 ) \r
0030060
0030100 ( U N
0030120 D O S A V E ( L I S T ' D U
0030140 N D O E D I T L \ D E D I T S
0030160 E L E C T I O N S U N D O L S
0030200 T U N D O L S T 0 ) \r
0030220
*
0030260 L I S P X H
0030300 I S T ) ) ( * M a k e
0030320 s e n t i r e D E D I T L
0030340 u n d o a b l e . ) \r
0030360
0030400 )
0030420
0030440 ( * N o r m a
0030460 l O K e x i t ) \r
0030500
0030520 ( A N D A T M (
0030540 L I T A T O M A T M ) \r
0030560
0030600 ( R E
0030620 M P R O P A T M ' E D I T -
0030640 S A V E ) ) \r
0030660
0030700 [ S E T Q T M P ( C O N
0030720 S E X P R ( C O N S M A R
0030740 K L S T ( C O N S U N D O L
0030760 S T ( L I S T E X P R ] \r
0031000
0031020 ( P U T P R
0031040 O P ' E D I T ' L A S T V A
0031060 L U E T M P ) \r
0031100
0031120 ( C O N D \r
0031140
0031160 ( L I S P X H I
0031200 S T ( N C O N C L I S P X H
0031220 I S T ( L I S T ' E D I T
0031240 T M P ] \r
0031260 (
0031300 T ( E R R O R ! ] \r
0031320 L ] ) \r
0031340 \r ( 006 004 D E D I T L 0 006 001 \r
0031360 [ L A M B D A ( E X P R E D
0031400 S S E L )
0031420
0031440 ( * b v
0031460 m % : " 3 1 - J u l - 8 6 1
0031500 4 : 3 5 " ) \r
0031520 \r ( * *
0031540 " D E D I T L 0 s h o u l d
0031560 o n l y b e c a l l e d
0031600 w h i l e u n d e r D E D I
0031620 T L o r D E D I T T T Y F N
0031640 s i n c e t h e g l o b a
0031660 l s t a t e s o f t h e
0031700 e d i t a r e a l l b o u
0031720 n d t h e r e . N o t e
0031740 t h a t i n d i v i d u a l
0031760 c a l l s t o D E D I T L 0
0032000 a r e n o t u n d o a b l
0032020 e , b e c a u s e s t r u c
0032040 t u r e c h a n g e s a r e
0032060 s a v e d o n U N D O L S
0032100 T 1 a n d o n l y m o v e
0032120 d t o U N D O L S T a t
0032140 t h e e n d o f e a c h
0032160 c o m m a n d . D E D I T L
0032200 f i n a l l y m o v e s U
0032220 N D O L S T t o L I S P X H
0032240 I S T O R Y . " ) \r \r (
0032260 R E S E T S A V E N I L ( L
0032300 I S T ' S E T C U R S O R (
0032320 C U R S O R W A I T I N G C U
0032340 R S O R ) ) ) \r [ L E T
0032360 ( ( P M ( 006 002 G E T M A P ?
0032400 006 001 E D S ) ) \r
0032420 ( E N V ( D E D I T - M
0032440 A K E - R E A D E R - E N V E
0032460 X P R ) ) \r
0032500 O L D E N V ) \r
0032520 ( C O N D \r
0032540 ( ( A N D P M ( E Q
0032560 E X P R ( 006 002 f e t c h 006 001
0032600 S E L E X P 006 002 o f 006 001 P M
0032620 ) ) \r
0032640 ( S E T Q O L D E N
0032660 V ( W I N D O W P R O P E D
0032700 S ' R E A D E R - E N V I R O
0032720 N M E N T ) ) \r
0032740 ( E Q U A L
0032760 - R E A D E R - E N V I R O N M
0033000 E N T O L D E N V E N V ) )
0033020 ( * \r
0033040 " E d i t i n
0033060 g t h e s a m e t h i n g
0033100 t h a t ' s i n t h e w
0033120 i n d o w n o w , a n d i
0033140 n t h e s a m e r e a d e
0033160 r e n v i r o n m e n t " ) \r
0033200 ( T O
0033220 T O P W E D S )
0033240
0033260 ( *
0033300 " W i n d o w m i g h t h a
0033320 v e b e e n c l o s e d " )
0033340 \r ) \r
0033360 ( T (
0033400 W I N D O W P R O P E D S '
0033420 R E A D E R - E N V I R O N M E
0033440 N T E N V ) \r
0033460 ( 006 002 S E T U P D
0033500 E D I T W 006 001 E D S ( L I S
0033520 T E X P R ] \r ( A N D
0033540 S E L ( 006 002 P U S H E D I T
0033560 C H A I N 006 001 S E L ) )
0033600
0033620 ( * \r
0033640
*
0033720 " E R S E T Q p
0033740 r e v e n t s U N D O L S T
0033760 l o s s a g e d u e t o ^
0034000 E " ) \r ( E R S E T Q
0034020 ( 006 002 b i n d 006 001 E D I T H I
0034040 S T C O M A C T S S \r
0034060 006 002 d
0034100 o 006 001 ( 006 002 u n t i l 006 001 (
0034120 S E T Q C O M ( 006 002 D E D I
0034140 T S L C T L P 006 001 E D S ) ) )
0034160 \r
0034200 ( S E T Q S S \ D E D
0034220 I T S E L E C T I O N S )
0034240 ( *
0034260 " S a v e s e l e c t i o n
0034300 s t a c k " ) \r
0034320 ( S E T Q
0034340 A C T ( C D R C O M ) )
0034360
0034400 ( * " U n p a c k
0034420 C O N S f r o m R E A D E
0034440 D I T M E N U " ) \r
0034460 ( S E T
0034500 Q C O M ( C A R C O M ) )
0034520 \r
0034540 [ C O N D \r
0034560 ( E
0034600 D I T H I S T O R Y ( C O N D
0034620 \r
0034640
0034660 ( ( P R O G 1 ( A
0034700 N D A T M ( N O T E D I T
0034720 H I S T ) ) \r
0034740
*
0035020 ( * F i r s t t i m
0035040 e t h r u ) \r
0035060
*
0035120 ( E D I T B L O C K C
0035140 A L L E D I T S A V E C O M
0035160 ) \r
0035200
*
0035240 (
0035260 * S e t s E D I T H I S T )
0035300 \r
0035320
0035340 ) \r
0035360
*
0035420 ( L I S P X P U T
0035440 ' * F I R S T P R I N T * ( L
0035460 I S T ' E D I T L 2 A T M
0035500 T ) \r
0035520
*
0035560 N I L E D I T H I S T ] \r
0035600
0035620 ( S E T Q U N D O L S T 1 N
0035640 I L )
0035660 ( * \r
0035700
*
0035760 " H o l d s a n y c h a n
0036000 g e s f r o m e x e c u t i
0036020 o n o f t h i s c o m m a
0036040 n d . " ) \r
0036060 ( C O N D \r
0036100
0036120 [ ( P R O G 1 [ E R S E
0036140 T Q ( C O N D \r
0036160
*
0036220 ( ( L I T A T O M A C T ) \r
0036240
*
0036300 ( A P P L Y *
0036320 A C T ) ) \r
0036340
0036360 (
0036400 T ( E V A L A C T ] \r
0036420
0036440 [ C O N D \r
0036460
*
0036520 ( U N D O L S T 1 ( R E P P C
0036540 H A N G E S U N D O L S T 1 )
0036560 \r
0036600
0036620 ( 006 002 p u s h 006
0036640 001 U N D O L S T ( S E T Q
0036660 U N D O L S T 1 ( C O N S C
0036700 O M ( C O N S S S U N D O
0036720 L S T 1 ] \r
0036740
0036760 ( C O N D \r
0037000
0037020 ( E D I T H I
0037040 S T
0037060 ( * " S e t i n
0037100 E D I T S A V E . " ) \r
0037120
*
0037160 ( R P L A C A E D I T
0037200 H I S T U N D O L S T 1 ] \r
0037220
0037240 ( T
0037260
0037300 ( * "
0037320 R e s t o r e s e l e c t i o
0037340 n s " ) \r
0037360 ( S E
0037400 T Q \ D E D I T S E L E C T I
0037420 O N S S S ) ) )
0037440 ( * \r
0037460
*
0037520 " O n l y w a
0037540 y o u t i s a R E T F R
0037560 O M v i a o n e o f t h
0037600 e e x i t f n s " ) \r
0037620 ]
0037640 ) \r \r ( 006 004 D E D I T T T Y F N
0037660 006 001 \r [ L A M B D A ( N A
0037700 M E T Y P E )
0037720
*
0037760 ( * b a s % : " 7 - A U G
0040000 - 8 3 1 6 : 3 8 " ) \r
0040020 \r
0040040 ( * P r o v i d e s D E D
0040060 I T i n t e r f a c e t o
0040100 T T Y % : c o m m a n d s f
0040120 r o m u n d e r s t a n d a
0040140 r d e d i t o r ) \r \r
0040160 ( 006 002 D E C L A R E 006 001 ( U S
0040200 E D F R E E L L A S T A I L
0040220 ) )
0040240 ( *
0040260 F r o m E D I T L 0 ) \r
0040300 ( P R O G [ U N D O L S T
0040320 T E M ( T E ( C A R ( L A
0040340 S T L ] \r
0040360 [ R E S E T L S T \r
0040400 \r
0040420 ( * T h e R E S E T L S T
0040440 i s f o r D E D I T L 0 ;
0040460 t h e b i n d i n g o f U
0040500 N D O L S T 1 p r o t e c t s
0040520 t h e c o n t a i n i n g
0040540 \r E D I T ;
0040560 T E M = T u n l e s s D E
0040600 D I T L 0 w a s S T O P e d
0040620 ) \r \r
0040640 ( P R O G ( U N D O L
0040660 S T 1 ) \r
0040700 ( S E T
0040720 Q T E M ( 006 002 D E D I T L 0
0040740 006 001 T E ( 006 002 G E T E D I T
0040760 W 006 001 N A M E T Y P E ) \r
0041000
*
0041040 L ] \r
0041060 ( A N D U N D O L S T
0041100 ( 006 002 p u s h 006 001 U N D O L
0041120 S T 1 ( C O N S ' G R O U P
0041140 E D U N D O L S T ) ) ) \r
0041160 ( C O N D \r
0041200 ( T E M
0041220 [ S E T Q L ( O R ( A N D
0041240 ( 006 002 S U B S E L O F 006 001 T
0041260 E ( 006 002 T O P S E L E C T I O
0041300 N 006 001 T ) ) \r
0041320
0041340 ( 006 002 G E
0041360 T E D I T C H A I N 006 001 ( 006 002
0041400 T O P S E L E C T I O N 006 001 T
0041420 ) ) ) \r
0041440
0041460 ( 006 002 f o r 006 001 I 006 002 o
0041500 n 006 001 L 006 002 t h e r e i s 006
0041520 001 ( A N D ( 006 002 S U B S E L
0041540 O F 006 001 T E ( C A R I ) )
0041560 \r
0041600
*
0041640 ( S E T Q L A
0041660 S T A I L ( C A R I ] \r
0041700 \r
0041720 ( * R e s e t e d i t
0041740 c h a i n o n l y i f c
0041760 u r r e n t s e l e c t i o n
0042000 s t i l l p o i n t s t o
0042020 s o m e p a r t o f t h
0042040 e \r e x p
0042060 r e s s i o n b e i n g e d
0042100 i t e d ) \r \r
0042120 ) \r
0042140 ( [ E V A L V
0042160 ' C O M S ( S E T Q T E M
0042200 ( S T K P O S ' E D I T L 0 ]
0042220 \r (
0042240 R E T E V A L T E M ' ( E R
0042260 R O R ! ) T ) ) \r
0042300 ( T ( S H O U L
0042320 D N T ] ) \r ) \r \r \r \r 006 004 ( *
0042340 ; " B a s i c D E D I T m
0042360 e n u c o m m a n d s " ) 006 001
0042400 \r \r ( D E F I N E Q \r \r ( 006 004 D
0042420 E D I T A f t e r 006 001 \r [ L
0042440 A M B D A N I L
0042460
*
0042520 ( * b a s %
0042540 : " 1 7 - M A R - 8 3 2 2 :
0042560 1 5 " ) \r ( P R O G (
0042600 [ N U ( C O P Y ( C A R (
0042620 006 002 P O P S E L E C T I O N 006 001
0042640 ] \r ( T G
0042660 T ( 006 002 P O P S E L E C T I O
0042700 N 006 001 ) ) ) \r
0042720 ( 006 002 D E D I T Z A P C D R 006
0042740 001 T G T ( 006 002 P U S H S E L
0042760 E C T I O N 006 001 ( C O N D \r
0043000
*
0043040 ( ( 006 002
0043060 D P C D R S E L 006 001 T G T ) \r
0043100
*
0043140 ( 006
0043160 002 D E D I T C O N S 006 001 ( C D
0043200 R T G T ) \r
0043220
*
0043260 N U T
0043300 G T ) ) \r
0043320
*
0043360 ( T ( 006 002 D E D I T C O N
0043400 S 006 001 N U ( C D R T G T )
0043420 \r
0043440
*
0043500 T G T ] ) \r \r (
0043520 006 004 D E D I T B e f o r e 006 001 \r
0043540 [ L A M B D A N I L
0043560
*
0043620 ( *
0043640 b a s % : " 1 6 - M A R - 8 3
0043660 1 2 : 4 0 " ) \r ( P R
0043700 O G ( ( S R C ( 006 002 P O P S
0043720 E L E C T I O N 006 001 ) ) \r
0043740 ( T G T ( 006 002
0043760 P O P S E L E C T I O N 006 001 ) )
0044000 ) \r ( 006 002 P
0044020 U S H S E L E C T I O N 006 001 (
0044040 006 002 S E T P T R T O 006 001 T G T
0044060 ( 006 002 D E D I T C O N S 006 001
0044100 ( C O P Y ( C A R S R C ) )
0044120 \r
0044140
0044160 (
0044200 C O N D \r
0044220
*
0044260 ( ( 006 002 D P C D R S
0044300 E L 006 001 T G T ) \r
0044320
*
0044360 ( C D R
0044400 T G T ) ) \r
0044420
*
0044460 ( T T G T ) )
0044500 \r
0044520
0044540 T
0044560 G T ] ) \r \r ( 006 004 D E D I T D e
0044600 l e t e 006 001 \r [ L A M B D A
0044620 N I L
0044640
*
0044700 ( * b a s % : " 1 6
0044720 - M A R - 8 3 1 1 : 5 1 " ) \r
0044740 \r
0044760 ( * D e l e t e s
0045000 t o p e l t f r o m s t r
0045020 u c t u r e . P u s h e s i
0045040 t b a c k o n i n t o t
0045060 h e b u f f e r ) \r \r
0045100 ( P R O G ( ( S ( 006 002 P O P
0045120 S E L E C T I O N 006 001 ) ) ) \r
0045140 [ 006 002 P U S H
0045160 I N T O B U F 006 001 ( L I S T
0045200 ( C O P Y ( C A R S ] \r
0045220 \r
0045240 ( * C o p y k e e p s
0045260 s t r u c t u r e i n b u
0045300 f f e r s e p a r a t e f r
0045320 o m t h a t o n u n d o l
0045340 s t , w h i c h m a y \r
0045360 l a t e r g
0045400 e t i n s e r t e d b a c k
0045420 ) \r \r ( 006 002
0045440 S E T P T R T O 006 001 S ( C O
0045460 N D \r
0045500 ( ( 006 002
0045520 D P C D R S E L 006 001 S ) \r
0045540
0045560 N I L ) \r
0045600
0045620 ( T ( C D R S ]
0045640 ) \r \r ( 006 004 D E D I T R e p l a
0045660 c e 006 001 \r [ L A M B D A N
0045700 I L
0045720
*
0045760 ( * b a s % : " 5 - J
0046000 U L - 8 3 2 3 : 5 0 " ) \r
0046020 ( P R O G ( ( S R C ( 006
0046040 002 P O P S E L E C T I O N 006 001 )
0046060 ) \r ( T G
0046100 T ( 006 002 T O P S E L E C T I O
0046120 N 006 001 ) ) ) \r
0046140 ( 006 002 D E D I T Z A P C A R 006
0046160 001 T G T ( S U B S T ( C A
0046200 R T G T ) \r
0046220
0046240 ( O R E D I
0046260 T E M B E D T O K E N ( C O N
0046300 S T A N T ( P A C K N I L )
0046320 ) ) \r
0046340
0046360 ( C A R S R C ] ) \r
0046400 \r ( 006 004 D E D I T S w i t c h 006
0046420 001 \r [ L A M B D A N I L
0046440
*
0046500 (
0046520 * b a s % : " 1 6 - M A R -
0046540 8 3 2 1 : 0 5 " ) \r (
0046560 P R O G ( ( A ( 006 002 T O P S
0046600 E L E C T I O N 006 001 ) ) \r
0046620 ( B ( 006 002 N X
0046640 T S E L E C T I O N 006 001 ) ) ) \r
0046660 ( C O N D \r
0046700 ( ( O
0046720 R ( 006 002 D O M I N A T E ? 006 001
0046740 A B ) \r
0046760 ( 006 002 D O M I N
0047000 A T E ? 006 001 B A ) ) \r
0047020 ( 006 002 C A
0047040 N T 006 001 " S w i t c h i n t
0047060 o o n e s e l f " ) ) ) \r
0047100 ( 006 002 D E D I T
0047120 Z A P C A R 006 001 A ( P R O G
0047140 1 ( C A R B ) \r
0047160
0047200 ( 006 002 D E D
0047220 I T Z A P C A R 006 001 B ( C A
0047240 R A ] ) \r \r ( 006 004 D E D I T B
0047260 I 006 001 \r [ L A M B D A N I
0047300 L
0047320
*
0047360 ( * b a s % : " 1 6 - M A
0047400 R - 8 3 1 1 : 5 1 " ) \r
0047420 ( P R O G ( ( A ( 006 002 P O
0047440 P S E L E C T I O N 006 001 ) ) \r
0047460 ( B ( 006 002
0047500 P O P S E L E C T I O N 006 001 ) )
0047520 \r C ) \r
0047540 ( C O N D \r
0047560 ( ( 006 002
0047600 T A I L O F 006 001 B A ) ) \r
0047620 [ ( 006 002
0047640 T A I L O F 006 001 A B ) \r
0047660 ( S E T
0047700 Q A ( P R O G 1 B ( S E
0047720 T Q B A ] \r
0047740 ( T ( 006 002 C A N T 006
0047760 001 " N o t b r o t h e r s !
0050000 " ) ) ) \r (
0050020 C O N D \r
0050040 ( ( 006 002 D P C D R S E L 006 001
0050060 B ) ) \r
0050100 ( T ( S E T Q C ( C D
0050120 R B ) )
0050140
0050160 ( * D o n e i n t h i
0050200 s o r d e r i n c a s e
0050220 A = B ) \r
0050240 ( 006 002 D E D I T Z A P
0050260 C D R 006 001 B N I L ) ) ) \r
0050300 ( 006 002 D E D I
0050320 T Z A P B O T H 006 001 A ( 006 002
0050340 C O P Y C O N S 006 001 A ) \r
0050360 C
0050400 ) \r ( 006 002 P
0050420 U S H S E L E C T I O N 006 001 A
0050440 ] ) \r \r ( 006 004 D E D I T B O 006 001
0050460 \r [ L A M B D A N I L
0050500
*
0050540 ( *
0050560 b a s % : " 1 2 - S e p - 8
0050600 4 1 4 : 3 7 " ) \r ( P
0050620 R O G ( ( T G T ( 006 002 P O P
0050640 S E L E C T I O N 006 001 ) ) ) \r
0050660 ( 006 002 D E D I
0050700 T M O V E T A I L D O W N 006 001
0050720 T G T N I L ) \r
0050740 ( 006 002 S E T P T R T O 006 001
0050760 T G T ( C A R T G T ] ) \r
0051000 \r ( 006 004 D E D I T L I 006 001 \r
0051020 [ L A M B D A N I L
0051040
*
0051100 ( * b a
0051120 s % : " 2 - M A R - 8 3 1
0051140 1 : 3 3 " ) \r ( P R O G
0051160 ( ( A ( 006 002 T O P S E L E C
0051200 T I O N 006 001 ) ) ) \r
0051220 ( 006 002 D E D I T Z A P B
0051240 O T H 006 001 A ( 006 002 C O P Y C
0051260 O N S 006 001 A ] ) \r \r ( 006 004 D E
0051300 D I T L O 006 001 \r [ L A M B D
0051320 A N I L
0051340
*
0051400 ( * b a s % : "
0051420 2 - M A R - 8 3 1 1 : 3 4 " )
0051440 \r ( P R O G ( ( A (
0051460 006 002 T O P S E L E C T I O N 006 001
0051500 ) ) ) \r ( 006
0051520 002 D E D I T Z A P N O D E 006 001
0051540 A ( 006 002 T H E L I S T 006 001 (
0051560 C A R A ] ) \r \r ( 006 004 D E D I
0051600 T R I 006 001 \r [ L A M B D A
0051620 N I L
0051640
*
0051700 ( * b a s % : " 3 0 -
0051720 S e p - 8 4 1 3 : 1 9 " ) \r
0051740 ( P R O G ( B ( A (
0051760 006 002 P O P S E L E C T I O N 006 001
0052000 ) ) ) \r ( O
0052020 R ( C D R A ) \r
0052040 ( 006 002 C A N T 006
0052060 001 " R I a t e n d o f
0052100 t a i l h a s n o e f f e
0052120 c t " ) ) ( * H a
0052140 s n o e f f e c t a n d
0052160 s c r a m b l e s u n d o \r
0052200
*
0052260 l i s
0052300 t ) \r [ S E
0052320 T Q B ( 006 002 f e t c h 006 001
0052340 T A I L 006 002 o f 006 001 ( 006 002 G
0052360 E T M E B P 006 001 ( 006 002 G E T M
0052400 E 4 006 001 A T ] \r
0052420 ( 006 002 D E D I T M O V E
0052440 T A I L D O W N 006 001 B ( C D
0052460 R A ) ) \r
0052500 ( 006 002 D E D I T Z A P C D R 006 001
0052520 A N I L ) \r
0052540 ( 006 002 P U S H S E L E C T I
0052560 O N 006 001 B ] ) \r \r ( 006 004 D E D
0052600 I T R O 006 001 \r [ L A M B D A
0052620 N I L
0052640
*
0052700 ( * b a s % : " 1 2
0052720 - S e p - 8 4 1 4 : 4 0 " ) \r
0052740 ( 006 002 D E D I T M O V E
0052760 T A I L D O W N 006 001 ( 006 002 T O
0053000 P S E L E C T I O N 006 001 ) \r
0053020 N I L ] ) \r \r
0053040 ( 006 004 D E D I T U n d o 006 001 \r
0053060 [ L A M B D A ( E N D )
0053100
*
0053140 ( * b
0053160 a s % : " 1 2 - S e p - 8 4
0053200 2 3 : 5 4 " ) \r ( 006 002 b
0053220 i n d 006 001 F L G 006 002 f o r 006
0053240 001 L S T 006 002 o n 006 001 U N D
0053260 O L S T 006 002 d o 006 001 ( O R
0053300 F L G ( S E T Q F L G ( C
0053320 A A R L S T ) ) ) \r
0053340
0053360 (
0053400 006 002 D U N D O E D I T C O M 006 001
0053420 ( C A R L S T ) \r
0053440
*
0053500 T ) 006 002 r e p e a
0053520 t u n t i l 006 001 ( O R ( N U
0053540 L L E N D ) \r
0053560
*
0053640 ( E Q E N D ( C
0053660 A R L S T ) ) \r
0053700
*
0053760 ( N U L L ( C A
0054000 R L S T ) ) ) \r
0054020 006 002 f i n a l l y 006 001 ( O R
0054040 F L G ( 006 002 C A N T 006 001 ( C
0054060 O N D \r
0054100
0054120 ( ( C D R L S T ) \r
0054140
*
0054200 " U n d o b l o c k e d " ) \r
0054220
*
0054260 ( T " N o t h i n g s a v e
0054300 d " ] ) \r \r ( 006 004 U N D O C H O
0054320 O S E 006 001 \r [ L A M B D A
0054340 ( T H R U P )
0054360
*
0054420 ( * b a s % : " 2 2 -
0054440 M a r - 8 4 2 3 : 1 4 " ) \r
0054460 ( P R O G [ ( C ( R E
0054500 S E T F O R M ( C U R S O R
0054520 D E F A U L T C U R S O R ) \r
0054540
0054560 ( M E N U ( 006 002 c r e
0054600 a t e 006 001 M E N U \r
0054620
0054640 I T E
0054660 M S _ ( A P P E N D ( 006 002
0054700 f o r 006 001 I 006 002 i n 006 001 U
0054720 N D O L S T \r
0054740
*
0055000 006 002 c o
0055020 l l e c t 006 001 ( L I S T ( O
0055040 R ( C A R I ) \r
0055060
*
0055160 ( P A C K * " * " ( C A
0055200 D R I ) \r
0055220
*
0055320 " * " ) ) \r
0055340
*
0055420 ( K
0055440 W O T E I ) ) ) \r
0055460
*
0055520 ( L I S T
0055540 ( L I S T ' * * T O P * *
0055560 N I L ) ) ) \r
0055600
0055620 T I T L E _
0055640 ( C O N D \r
0055660
*
0055720 ( T H R U P " U n d o
0055740 T h r u " ) \r
0055760
*
0056020 ( T " U n d o O n
0056040 e " ) ) \r
0056060
0056100 C E N T E R F L G
0056120 _ T ] \r
0056140 ( C O N D \r
0056160 ( ( N O T C ) ) \r
0056200 ( T H R U P
0056220 ( 006 002 D E D I T U n d o 006 001
0056240 C ) ) \r
0056260 ( T ( 006 002 D U N D O E D I T
0056300 C O M 006 001 C T ] ) \r \r ( 006 004
0056320 D E D I T F i n d 006 001 \r [ L
0056340 A M B D A N I L
0056360
*
0056420 ( * b a s %
0056440 : " 5 - A p r - 8 4 2 3 :
0056460 2 1 " ) \r ( P R O G (
0056500 L A S T A I L L T G T U N
0056520 F I N D ( C O M ' F i n d )
0056540 ) \r ( 006 002 D
0056560 E C L A R E 006 001 ( S P E C V A
0056600 R S L U N F I N D C O M )
0056620 ) \r ( S E T
0056640 Q L ( 006 002 G E T E D I T C H
0056660 A I N 006 001 ( 006 002 P O P S E L E
0056700 C T I O N 006 001 ) ) )
0056720 ( * S e t s L
0056740 A S T A I L ) \r
0056760 ( S E T Q T G T ( C A R
0057000 ( 006 002 T O P S E L E C T I O N
0057020 006 001 ) ) ) \r
0057040 ( C O N D \r
0057060 ( [ E R S E T Q ( R E S
0057100 E T V A R S ( U P F I N D F L
0057120 G ) \r
0057140
0057160 ( E D I T 4 F T G T
0057200 ' N ] \r
0057220 ( 006 002 P U S H E D I T C H A
0057240 I N 006 001 L )
0057260
0057300 ( * U s e s L A S
0057320 T A I L ) \r
0057340 ) \r
0057360 ( T ( 006 002 C A N T 006 001
0057400 T G T " N o t f o u n d " ]
0057420 ) \r \r ( 006 004 D E D I T S w a p 006
0057440 001 \r [ L A M B D A N I L
0057460
*
0057520 (
0057540 * b a s % : " 2 4 - M A R -
0057560 8 3 1 5 : 5 7 " ) \r (
0057600 006 002 r e p l a c e 006 001 T O P E
0057620 L T 006 002 o f 006 001 \ D E D I T
0057640 S E L E C T I O N S 006 002 w i t
0057660 h 006 001 ( P R O G 1 ( 006 002 N X
0057700 T S E L E C T I O N 006 001 ) \r
0057720
*
0060000 ( 006 002 r e p l a c e 006 001 N
0060020 X T E L T 006 002 o f 006 001 \ D E
0060040 D I T S E L E C T I O N S 006 002
0060060 w i t h 006 001 ( 006 002 \r 006 001
0060100
*
0060220 006 002 T O P S E L E C
0060240 T I O N 006 001 \r
0060260
*
0060400 ] ) \r \r ( 006 004 D E D I
0060420 T C e n t e r 006 001 \r [ L A M
0060440 B D A ( N O T I F V I S )
0060460
*
0060520 ( * b a s % :
0060540 " 2 6 - M a r - 8 4 1 5 : 1 7
0060560 " ) \r ( P R O G [ A W
0060600 W O W H ( A ( 006 002 G E T
0060620 M E 4 006 001 ( 006 002 T O P S E L E
0060640 C T I O N 006 001 ] \r
0060660 ( O R A ( R E T U R N
0060700 ) ) \r ( S E
0060720 T Q A W ( W F R O M D S (
0060740 006 002 f e t c h 006 001 P D S P 006
0060760 002 o f 006 001 A ) ) ) \r
0061000 ( S E T Q W O ( W
0061020 Y O F F S E T N I L A W ) )
0061040 \r ( S E T Q
0061060 W H ( W I N D O W P R O P
0061100 A W ' H E I G H T ) ) \r
0061120 ( A N D N O T I
0061140 F V I S ( 006 002 O V E R L A P S
0061160 E L B A N D 006 001 A ( I P L U
0061200 S W O W H ) \r
0061220
0061240 W O ) \r
0061260 ( R E T U
0061300 R N ) )
0061320
0061340 ( * M a k e
0061360 s u r e t h e s e l h i
0061400 g h l i t e i s \r
0061420
*
0061500 v i s i b l e )
0061520 \r ( R E S E
0061540 T V A R S ( \ D E D I T S E L
0061560 E C T I O N S ) \r
0061600 \r ( *
0061620 S u p r e s s s e l e c t i
0061640 o n s a s t h e y a r e
0061660 n o t u p a n d t h e s
0061700 c r o l l w w i l l o t h e
0061720 r w i s e t a k e \r
0061740 t h e m d o w n )
0061760 \r \r
0062000 ( S C R O L L W
0062020 A W 0 ( I D I F F E R E N C
0062040 E ( I P L U S W O ( I Q U
0062060 O T I E N T ( I D I F F E R E
0062100 N C E W H \r
0062120
*
0062220 ( I D I F F E R E N C E
0062240 ( 006 002 f e t c h 006 001 \r
0062260
*
0062400 S T A R T Y \r
0062420
*
0062540 006 002 o f 006 001 A
0062560 ) \r
0062600
*
0062700 ( 006 002 f e t c h 006 001
0062720 S T O P Y \r
0062740
*
0063040 006 002 o f
0063060 006 001 A ) ) ) \r
0063100
*
0063160 2 ) ) \r
0063200
*
0063240 ( 006 002 f e t c h 006
0063260 001 S T O P Y 006 002 o f 006 001 A
0063300 ] ) \r \r ( 006 004 D E D I T C o p y
0063320 006 001 \r [ L A M B D A N I L
0063340
*
0063420 ( * b a s % : " 2 - M A R
0063440 - 8 3 1 1 : 3 7 " ) \r
0063460 ( 006 002 P U S H I N T O B U F 006 001
0063500 ( L I S T ( C O P Y ( C A
0063520 R ( 006 002 T O P S E L E C T I O
0063540 N 006 001 ] ) \r \r ( 006 004 D E D I T R
0063560 e p r i n t 006 001 \r [ L A M B
0063600 D A N I L
0063620
*
0063660 ( * b a s % : "
0063700 2 - M A R - 8 3 1 1 : 3 7 "
0063720 ) \r ( R E P P ( 006 002 G
0063740 E T M E 4 006 001 ( 006 002 T O P S E
0063760 L E C T I O N 006 001 ) \r
0064000 T ] ) \r
0064020 \r ( 006 004 D E D I T E d i t C o m
0064040 006 001 \r [ L A M B D A ( C )
0064060
*
0064140 ( * b a s % : " 3 0 - M A R
0064160 - 8 3 2 0 : 5 5 " ) \r
0064200 [ O R C ( S E T Q C ( C
0064220 A R ( 006 002 P O P S E L E C T I
0064240 O N 006 001 ] \r ( P R O G
0064260 ( T Y P E A T M E D I T C H
0064300 A N G E S L A S T A I L L A
0064320 S T P 1 L A S T P 2 T S M
0064340 S C R ( T S ( 006 002 P O P S E
0064360 L E C T I O N 006 001 ) ) ) \r
0064400 ( 006 002 D E C L A R
0064420 E 006 001 ( S P E C V A R S T Y
0064440 P E A T M E D I T C H A N G
0064460 E S L A S T A I L L A S T P
0064500 1 L A S T P 2 ) ) \r
0064520
*
0064600 ( * F o r D
0064620 E D I T L a n d E D I T L 0
0064640 ) \r [ C O N
0064660 D \r (
0064700 ( S E T Q T S M ( 006 002 G E T
0064720 M E 4 006 001 T S ) ) \r
0064740 [ C O N D \r
0064760
0065000 ( ( S E T Q S C R ( W I N D
0065020 O W P R O P ( 006 002 f e t c h 006
0065040 001 P D S P 006 002 o f 006 001 T S
0065060 M ) \r
0065100
0065120 ' D E D I T W H O A
0065140 M I ) ) \r
0065160 ( S E T Q A T M
0065200 ( C A R S C R ) ) \r
0065220 ( S
0065240 E T Q T Y P E ( C A D R S
0065260 C R ] \r
0065300 ( S E T Q E D I T C H A N
0065320 G E S ( W I N D O W P R O P
0065340 ( 006 002 f e t c h 006 001 P D S P
0065360 006 002 o f 006 001 T S M ) \r
0065400
*
0065440 ' D E D I T C H A N G E S
0065460 ] \r ( 006 002 P
0065500 U S H E D I T C H A I N 006 001 (
0065520 E D I T L 0 ( 006 002 G E T E D I
0065540 T C H A I N 006 001 T S ) \r
0065560
0065600 ( M K
0065620 L I S T C ] ) \r \r ( 006 004 D E D
0065640 I T A R G S 006 001 \r [ L A M B
0065660 D A ( F )
0065700
*
0065740 ( * b a s % : "
0065760 2 6 - M a r - 8 4 1 5 : 1 8 "
0066000 ) \r ( S E T Q F ( O
0066020 R F ( 006 002 T O P S E L E C T
0066040 I O N 006 001 ) ) ) \r ( 006 002
0066060 w h i l e 006 001 ( L I S T P F
0066100 ) 006 002 d o 006 001 ( S E T Q F
0066120 ( C A R F ) ) ) \r (
0066140 006 002 P U S H I N T O B U F 006 001
0066160 ( L I S T ( C O N S F ( C
0066200 O P Y ( C A R ( O R ( A N
0066220 D ( L I T A T O M F ) \r
0066240
*
0066320 ( N L S E T Q ( S M A R T A
0066340 R G L I S T F T ) ) ) \r
0066360
*
0066420 ' ( ( n
0066440 o t a f u n c t i o n ] ) \r
0066460 \r ( 006 004 D E D I T B r e a k 006 001
0066500 \r [ L A M B D A N I L
0066520
*
0066560 ( *
0066600 l m m " 1 - J U L - 8 4
0066620 2 3 : 3 3 " ) \r ( P R O
0066640 G ( W H O A M P C A R F O
0066660 R M ( A ( 006 002 P O P S E L E
0066700 C T I O N 006 001 ) ) ) \r
0066720 ( S E T Q A M P (
0066740 006 002 G E T M E 4 006 001 A ) ) \r
0066760 [ S E T Q W
0067000 H O ( A N D A M P ( W I N
0067020 D O W P R O P ( 006 002 f e t c h
0067040 006 001 P D S P 006 002 o f 006 001 A
0067060 M P ) \r
0067100
0067120 ' D E D I T W H
0067140 O A M I ] \r
0067160 ( 006 002 D E D I T Z A P C A R 006 001
0067200 A ( L I S T ' B R E A K 1
0067220 ( C A R A ) \r
0067240
0067260 T \r
0067300
0067320 [ B R E A K I
0067340 N C O M M E N T W H O ( L I
0067360 S T ' A R O U N D ( C O N D
0067400 \r
0067420
*
0067500 ( ( N L I S T P ( C
0067520 A R A ) ) \r
0067540
*
0067620 ( C A R
0067640 A ) ) \r
0067660
*
0067740 ( T ( C A A
0067760 R A ] \r
0070000
0070020 N I L ) ) \r
0070040 ( O R [ C O N D \r
0070060 (
0070100 A M P ( A N D ( 006 002 f e t c
0070120 h 006 001 B P 006 002 o f 006 001 A M
0070140 P ) \r
0070160 ( F
0070200 M E M B ( C A A R ( 006 002 f e
0070220 t c h 006 001 T A I L 006 002 o f 006
0070240 001 ( 006 002 f e t c h 006 001 B P
0070260 006 002 o f 006 001 A M P ) ) ) \r
0070300
*
0070340 N O B R E A K S ) \r
0070360
0070400 ( P R O M P T P R I N
0070420 T " B r e a k i n s t a l l
0070440 e d i n s i d e a N O B R
0070460 E A K S " ) ) \r
0070500 ( C
0070520 O N D \r
0070540 ( ( E
0070560 Q ( C A D R W H O ) \r
0070600
0070620 ' F N S )
0070640 \r
0070660 ( / P U T
0070700 P R O P ( C A R W H O ) \r
0070720
*
0070760 ' B R O K E N - I N T ) \r
0071000
0071020 ( / P U T P R O
0071040 P ( C A R W H O ) \r
0071060
0071100 ' B R
0071120 K I N F O \r
0071140
0071160 ( L I S T ( L I
0071200 S T ( L I S T ' A R O U N D
0071220 C A R F O R M ) \r
0071240
*
0071300 N I L N I L ) )
0071320 ) \r
0071340 ( / S E
0071360 T ' B R O K E N F N S ( C O
0071400 N S ( C A R W H O ) \r
0071420
*
0071460 B R
0071500 O K E N F N S ] \r
0071520 ( P R O M P T P R
0071540 I N T " B r e a k i n s t a
0071560 l l e d , b u t n o t r e
0071600 c o r d e d " ] ) \r \r ( 006 004 D E
0071620 D I T E v a l 006 001 \r [ L A M
0071640 B D A N I L
0071660
*
0071720 ( * b a s % :
0071740 " 1 9 - M a r - 8 4 0 9 : 4 4
0071760 " ) \r ( P R O G [ ( S
0072000 ( C A R ( 006 002 P O P S E L E
0072020 C T I O N 006 001 ) ) ) \r
0072040 ( S P ( S T K N T
0072060 H 2 ' D E D I T L 0 ] \r
0072100 \r
0072120 ( * T h e r e a r e
0072140 v a r i o u s e n t r y p o
0072160 i n t s . T h e y a l l c
0072200 a l l D E D I T L 0 a f t e
0072220 r h a v i n g d o n e a n
0072240 \r E R R O
0072260 R S E T . ) \r \r
0072300 [ 006 002 P U S H I N T O B U F
0072320 006 001 ( C O N D \r
0072340
0072360 ( ( L I T A T O M S ) \r
0072400
0072420 ( L I S T
0072440 ( E V A L V S S P ) ) ) \r
0072460
0072500 ( ( E R S E
0072520 T Q ( E N V A P P L Y ( F U
0072540 N C T I O N L I S P X E V A L
0072560 ) \r
0072600
0072620 ( L I S
0072640 T S N I L ) \r
0072660
*
0072720 S P ) ) ) \r
0072740
0072760 ( T ( L I S T ' N O B
0073000 I N D ] \r (
0073020 R E L S T K S P ] ) \r \r ( 006 004
0073040 D E D I T E x i t 006 001 \r [ L
0073060 A M B D A ( S T O P F L G )
0073100
*
0073140 ( * m j s
0073160 " 2 6 - M a r - 8 6 1 2 : 3 3
0073200 " ) \r ( A N D E D I T
0073220 H I S T A T M ( N O T S T
0073240 O P F L G ) \r
0073260 ( L I S P X P U T ' * P R I N
0073300 T * ( L I S T ' E D I T L 2
0073320 A T M ) \r
0073340 N I L E D I T H I
0073360 S T ) )
0073400
0073420 ( * H o a k y s t u f
0073440 f f o r t h e e d i t h
0073460 i s t o r y \r
0073500
*
0073560 l i s t ) \r (
0073600 R E T F R O M ( F U N C T I O
0073620 N D E D I T L 0 ) \r
0073640 ( N O T S T O P F
0073660 L G ) \r T
0073700 ] ) \r ) \r ( D E F I N E Q \r \r (
0073720 006 004 D E D I T E d i t 006 001 \r
0073740 [ L A M B D A ( E D I T O R
0073760 E D I T E E )
0074000
0074020 ( * b v
0074040 m % : " 3 0 - M a y - 8 6 1
0074060 6 : 5 0 " ) \r ( R E S E
0074100 T L S T ( R E S E T S A V E
0074120 ( S E T C U R S O R D E F A U
0074140 L T C U R S O R ) \r
0074160 (
0074200 L I S T ' S E T C U R S O R
0074220 W A I T I N G C U R S O R ) ) \r
0074240 ( P R O G
0074260 ( ( S ( C A R ( 006 002 T O P
0074300 S E L E C T I O N 006 001 ) ) ) \r
0074320
0074340 A ) \r
0074360 ( S E L E C T Q E D
0074400 I T E E \r
0074420 ( ( D e f
0074440 N I L ) \r
0074460
0074500 ( C O N D \r
0074520
0074540 ( ( N O T ( O R ( L I
0074560 S T P S ) \r
0074600
0074620 ( L
0074640 I T A T O M S ) ) ) \r
0074660
0074700 ( 006 002 D E D
0074720 I T D a t a t y p e 006 001 S ) )
0074740 \r
0074760 ( (
0075000 A N D ( 006 002 f o r 006 001 006 002 o
0075020 l d 006 001 ( S _ ( 006 002 P O P
0075040 S E L E C T I O N 006 001 ) ) 006 002
0075060 b y 006 001 ( C A R S ) 006 002 w
0075100 h i l e 006 001 ( L I S T P S )
0075120 \r
0075140
0075160 006 002 f i n a l l y
0075200 006 001 ( R E T U R N ( L I T A
0075220 T O M S ) ) ) \r
0075240
0075260 ( S E T
0075300 Q A ( T Y P E S O F S N
0075320 I L N I L ' ? ) ) \r
0075340
0075360 (
0075400 S E T Q A ( S E L E C T . A
0075420 T O M . A S P E C T S N I L
0075440 A ) ) ) \r
0075460
0075500 ( R E S E T S A V E (
0075520 E D I T M O D E E D I T O R )
0075540 ) ( * U s e r c a n r
0075560 e f u s e a l l \r
0075600
*
0075660 S E L E C T . A
0075700 T O M . A S P E C T c h o i c
0075720 e s ) \r
0075740
0075760 ( E D I T D E F S A '
0076000 ? ) ) \r
0076020
0076040 ( T ( 006 002 C A N T 006 001 " N
0076060 o e d i t a b l e a s p e c
0076100 t " ) ) ) ) \r
0076120 ( F o r
0076140 m ( A N D [ S E T Q S (
0076160 A P P L Y * ( S E L E C T Q
0076200 E D I T O R \r
0076220
*
0076260 ( ( T E L
0076300 E T Y P E D I S P L A Y ) \r
0076320
*
0076400 ( R E S E T S
0076420 A V E ( E D I T M O D E E D
0076440 I T O R ) ) \r
0076460
*
0076540 ( F U N C T I O N E D I T E )
0076560 ) \r
0076600
*
0076640 E D I T O R ) \r
0076660
*
0076720 ( L I
0076740 S T ( C O P Y S ] \r
0076760
0077000 ( 006 002 D
0077020 E D I T Z A P C A R 006 001 ( 006 002
0077040 T O P S E L E C T I O N 006 001 ) \r
0077060
*
0077120 ( C A R S ) ) )
0077140 ) \r
0077160 ( S H O U L D N T
0077200 ] ) \r \r ( 006 004 D E D I T C E d i
0077220 t 006 001 \r [ L A M B D A ( E
0077240 F N )
0077260
*
0077320 ( * b v m % : " 3 0 - M a
0077340 y - 8 6 1 6 : 5 5 " ) \r
0077360 \r
0077400 ( * * " E d i t s a n
0077420 e x p r e s s i o n u s i n
0077440 g t h e e d i t o r d e f
0077460 i n e d b y F N . F N
0077500 t a k e s 2 a r g s , t h
0077520 e f i r s t a l i s t o
0077540 f t h e e x p r e s s i o n
0077560 ( s ) t o e d i t , t h e
0077600 s e c o n d t h e e d i t
0077620 w i n d o w . R e t u r n
0077640 s n e w l i s t o f e x
0077660 p r e s s i o n s . " ) \r \r
0077700 ( L E T ( ( E W ( 006 002 G
0077720 E T E B U F 006 001 ( 006 002 T O P E
0077740 D I T W 006 001 ) ) ) \r
0077760 V ) \r
0100000 ( S E T Q V ( A P P L Y *
0100020 F N E E W ) ) \r
0100040 ( C O N D \r
0100060 ( ( C D R V )
0100100
*
0100140 ( * R e p l a c e
0100160 d o n e e x p r e s s i o n
0100200 w i t h m a n y ) \r
0100220 ( S E T Q V
0100240 ( L I S T V ) ) ) \r
0100260 ( T V ) ) \r
0100300 ( O R ( 006 002 B
0100320 U F S E L P 006 001 ( 006 002 G E T M
0100340 E 4 006 001 ( 006 002 T O P S E L E C
0100360 T I O N 006 001 ) ) ) \r
0100400 ( 006 002 B U F S E L
0100420 P 006 001 ( 006 002 G E T M E 4 006 001
0100440 ( 006 002 N X T S E L E C T I O N 006
0100460 001 T ) ) ) \r
0100500 ( 006 002 S E T U P D E D I
0100520 T W 006 001 E W ( C O P Y V )
0100540 ) ) \r V ] ) \r
0100560 \r ( 006 004 D E D I T . T T Y i n E
0100600 d i t 006 001 \r [ L A M B D A
0100620 ( S )
0100640
*
0100700 ( * b v m % : " 3 0 -
0100720 M a y - 8 6 1 6 : 5 5 " ) \r
0100740 ( C O N D \r
0100760 ( ( D E F I N E D P ' T T Y I
0101000 N E D I T ) \r (
0101020 006 002 D E D I T C E d i t 006 001 S
0101040 ' T T Y I N E D I T ) ) \r
0101060 ( T ( 006 002 C A N T 006
0101100 001 " T T Y I N n o t l o a
0101120 d e d " ] ) \r \r ( 006 004 D E D I T
0101140 D a t a t y p e 006 001 \r [ L A
0101160 M B D A ( o b j )
0101200
*
0101240 ( * b v m % :
0101260 " 4 - N O V - 8 3 1 8 : 4
0101300 3 " ) \r ( P R O G ( (
0101320 D T M A C ( F A S S O C ( T
0101340 Y P E N A M E o b j ) \r
0101360
0101400 D T . E D I T M A C
0101420 R O S ) ) \r
0101440 n e w O b j s o u r c e i
0101460 n s t a l l S o u r c e F n c
0101500 h a n g e d F l g ) \r
0101520 ( 006 002 D E C L A R E 006
0101540 001 ( S P E C V A R S c h a n
0101560 g e d F l g ) ) \r
0101600 ( O R D T M A C ( R E
0101620 T U R N ( I N S P E C T o b
0101640 j ) ) ) \r \r
0101660 ( * C A D
0101700 R i s a f u n c t i o n
0101720 w h i c h g e t s a l i s
0101740 t s t r u c t u r e s o u r
0101760 c e f o r t h e d a t a t
0102000 y p e . \r C
0102020 A D D R i s a f u n c t i
0102040 o n w h i c h i n s t a l l
0102060 s t h e s o u r c e b a c
0102100 k i n t h e d a t a T y p
0102120 e . \r I t
0102140 i s c a l l e d w h e n t
0102160 h e s o u r c e h a s b e
0102200 e n c h a n g e d i n t h
0102220 e e d i t i n g . ) \r \r
0102240 ( C O N D \r
0102260 ( ( N U L L
0102300 ( S E T Q s o u r c e ( A
0102320 P P L Y * ( C A D R D T M A
0102340 C ) \r
0102360
0102400 o b j ) )
0102420 ) \r \r
0102440 ( * I f t h i
0102460 s f n r e t u r n s N I L
0102500 , w e a s s u m e i t h
0102520 a s d o n e a n y d e s i
0102540 r e d e d i t i n g i t s e
0102560 l f ) \r \r
0102600 ( R E T U R N ) ) ) \r
0102620 ( S E T Q i n
0102640 s t a l l S o u r c e F n ( C
0102660 A D D R D T M A C ) ) \r
0102700 L P [ S E T Q s o u
0102720 r c e ( E D I T E s o u r c
0102740 e N I L o b j ( T Y P E N
0102760 A M E o b j ) \r
0103000
0103020 ( F U N C T I O N
0103040 ( L A M B D A N I L \r
0103060
*
0103120 ( S E T Q c h a
0103140 n g e d F l g T ] \r
0103160 [ C O N D \r
0103200 ( ( N O T c h
0103220 a n g e d F l g ) \r
0103240 ( R E T U R N )
0103260 ) \r (
0103300 ( N L S E T Q ( S E T Q n e
0103320 w O b j ( O R ( A P P L Y *
0103340 i n s t a l l S o u r c e F n
0103360 o b j s o u r c e ) \r
0103400
*
0103440 o b j ) ) ) \r
0103460 ( R E T U R N
0103500 ( 006 002 D E D I T Z A P C A R 006
0103520 001 ( 006 002 T O P S E L E C T I O
0103540 N 006 001 ) \r
0103560
0103600 n e w O b j ] \r
0103620 ( P R O M P T P R I N T
0103640 " E r r o r i n d a t a t
0103660 y p e e d i t s o u r c e "
0103700 ) \r ( G O
0103720 L P ) ) \r ( 006 002 D E D I
0103740 T R e p r i n t 006 001 ] ) \r ) \r \r
0103760 ( A D D T O V A R 006 002 D T . E
0104000 D I T M A C R O S 006 001 ) \r \r \r
0104020 \r 006 004 ( * ; " S t r u c t u
0104040 r e c h a n g i n g " ) 006 001 \r
0104060 \r ( D E F I N E Q \r \r ( 006 004 S E
0104100 T P T R T O 006 001 \r [ L A M B
0104120 D A ( X Y )
0104140
*
0104200 ( * b a s % : "
0104220 1 2 - S e p - 8 4 1 6 : 2 5 "
0104240 ) \r ( P R O G ( X M
0104260 B K T E M ) \r
0104300 ( C O N D \r
0104320 ( ( N O T ( S E T Q
0104340 X M ( 006 002 G E T M E 4 006 001
0104360 X ) ) ) \r
0104400 ( 006 002 C A N T 006 001 " A l
0104420 r e a d y d e l e t e d ! " )
0104440 ) \r (
0104460 [ S E T Q T E M ( 006 002 G E T
0104500 L E F T 006 001 X M ( S E T Q
0104520 B K ( 006 002 G E T M E B P 006 001
0104540 X M ] \r
0104560 ( 006 002 D E D I T Z A P C D R
0104600 006 001 T E M Y ) ) \r
0104620 ( ( 006 002 f e t c
0104640 h 006 001 B P 006 002 o f 006 001 B K
0104660 ) \r
0104700 ( 006 002 D E D I T Z A P C A R 006 001
0104720 B K Y ) ) \r
0104740 ( ( N L I S T P Y )
0104760 \r (
0105000 006 002 C A N T 006 001 " D e l e t e
0105020 l a s t l i s t e l e m e
0105040 n t " ) ) \r
0105060 ( T [ 006 002 D E D I T Z A
0105100 P B O T H 006 001 X ( C A R Y
0105120 ) \r
0105140 ( C O N D \r
0105160
0105200 ( ( E Q X
0105220 ( C D R Y ) ) \r
0105240
0105260 ( R P L N O D E 2 Y
0105300 X ) ) \r
0105320 ( T
0105340 ( C D R Y ] \r
0105360 ( S E T Q Y
0105400 X ) ) ) \r
0105420 ( R E T U R N Y ] ) \r \r ( 006 004
0105440 D E D I T C O N S 006 001 \r [ L
0105460 A M B D A ( A D B R O T H
0105500 E R )
0105520
0105540 ( * b a s %
0105560 : " 2 5 - M A R - 8 3 1 7 :
0105600 1 2 " ) \r ( 006 002 f e t c
0105620 h 006 001 T A I L 006 002 o f 006 001
0105640 ( 006 002 D U M M Y M A P E N T R Y
0105660 006 001 ( C O N S A D ) \r
0105700
0105720 ( 006 002 G E T M E
0105740 B P 006 001 ( O R ( 006 002 G E T M
0105760 E 4 006 001 B R O T H E R ) \r
0106000
*
0106040 ( 006 002 C A N T 006 001 "
0106060 I n v a l i d t a r g e t " ]
0106100 ) \r \r ( 006 004 D E D I T Z A P C A
0106120 R 006 001 \r [ L A M B D A ( M
0106140 A )
0106160
*
0106220 ( * b a s % : " 2 - M A
0106240 R - 8 3 1 5 : 3 8 " ) \r
0106260 ( 006 002 D E D I T Z A P B O T H
0106300 006 001 M A ( C D R ( O R
0106320 ( L I S T P M ) \r
0106340
0106360 ( 006 002 f e t c
0106400 h 006 001 T A I L 006 002 o f 006 001
0106420 M ] ) \r \r ( 006 004 D E D I T Z A P
0106440 C D R 006 001 \r [ L A M B D A
0106460 ( M D )
0106500
*
0106540 ( * b a s % : " 2 5 -
0106560 J U L - 8 2 1 6 : 2 3 " ) \r
0106600 ( 006 002 D E D I T Z A P B O
0106620 T H 006 001 M ( C A R ( O R
0106640 ( L I S T P M ) \r
0106660
0106700 ( 006 002 f e t c h 006
0106720 001 T A I L 006 002 o f 006 001 M )
0106740 ) ) \r D ]
0106760 ) \r \r ( 006 004 D E D I T Z A P N O
0107000 D E 006 001 \r [ L A M B D A (
0107020 M C )
0107040
*
0107100 ( * b a s % : " 2 7 - J
0107120 U L - 8 1 0 4 : 4 8 " ) \r
0107140 ( 006 002 D E D I T Z A P B O T
0107160 H 006 001 M ( C A R C ) \r
0107200 ( C D R C ]
0107220 ) \r \r ( 006 004 D E D I T Z A P B O
0107240 T H 006 001 \r [ L A M B D A (
0107260 C C A D E N T )
0107300
*
0107340 ( * b a s % : " 1 8 - M
0107360 a r - 8 4 1 5 : 1 9 " ) \r
0107400
*
0107460 ( * A L
0107500 L e d i t c h a n g e s g
0107520 o t h r o u g h t h i s \r
0107540
*
0107620 f u n
0107640 c t i o n . ) \r ( C O N
0107660 D \r [ [ S E T Q
0107700 E N T ( C O N D \r
0107720 [
0107740 ( 006 002 t y p e ? 006 001 D E D I T
0107760 M A P C C ) \r
0110000 ( P
0110020 R O G 1 C C ( S E T Q C C
0110040 ( 006 002 f e t c h 006 001 T A I L
0110060 006 002 o f 006 001 C C ] \r
0110100
0110120 ( T ( 006 002 G E T M E 4 006 001
0110140 C C ] \r ( C O N
0110160 D \r ( ( 006
0110200 002 f e t c h 006 001 B P 006 002 o f
0110220 006 001 E N T ) ) \r
0110240 ( ( 006 002 B U F S E L P 006
0110260 001 E N T ) ) \r
0110300 ( ( A N D ( E Q D (
0110320 C D R C C ) ) \r
0110340 ( L I S T P
0110360 ( C A R C C ) ) \r
0110400 ( L I S
0110420 T P A ) ) \r
0110440 ( S E T Q C C ( C A R
0110460 C C ) ) \r
0110500 \r ( * W e
0110520 c a n t e f f e c t t h e
0110540 d u m m y C O N S h e l d
0110560 o n t o b y t h e e d i
0110600 t o r a s t h a t w o n t
0110620 b e s e e n \r
0110640 b y s o m e o n e h
0110660 o l d i n g t h e d e f n
0110700 ( o l d E D I T j u s t t
0110720 o o k e r r o r h e r e )
0110740 H e r e w e t r y t o \r
0110760 o b l i g e
0111000 b y s l i d i n g d o w n
0111020 i n t o t h e f i r s t
0111040 c e l l o f t h e d e f n
0111060 B u t w e h a v e t o
0111100 r e m o v e \r
0111120 a n y p o i n t e r s t
0111140 h a t t h e n e w C A R
0111160 o r C D R m i g h t h a v
0111200 e t o t h e o r i g i n a
0111220 l c e l l , l e s t w e
0111240 \r c r e a t
0111260 e a c y c l e . ) \r \r
0111300 ( S E T Q D
0111320 ( 006 002 C O P Y O U T C O N S 006
0111340 001 ( C D R A ) \r
0111360
0111400 C C ) ) \r
0111420 ( S E T Q A ( 006
0111440 002 C O P Y O U T C O N S 006 001 (
0111460 C A R A ) \r
0111500
0111520 C C ) ) ) \r
0111540 ( T ( 006 002 C A N T 006 001
0111560 " A l t e r t o p " ) ) ) \r
0111600 [ C O N D \r
0111620 ( ( 006 002 D P C D
0111640 R S E L 006 001 E N T ) \r
0111660 [ S E T Q C C
0111700 ( L A S T ( 006 002 f e t c h 006
0111720 001 S E L E X P 006 002 o f 006 001
0111740 ( 006 002 f e t c h 006 001 B P 006 002
0111760 o f 006 001 E N T ] ( * R e a l
0112000 C O N S ) \r
0112020 ( S E T Q D ( C O N D
0112040 \r
0112060 ( ( N E Q A
0112100 ( C D R C C ) ) \r
0112120
0112140 A ) \r
0112160 ( T D
0112200 ) ) ) \r
0112220 ( S E T Q A ( C A R C C )
0112240 ) \r ( P
0112260 R O G ( ( V ( 006 002 D O T T E
0112300 D E N D 006 001 D ) ) ) \r
0112320 ( C
0112340 O N D \r
0112360 ( V ( 006 002 D
0112400 E D I T F Z A P 006 001 ( 006 002 f e
0112420 t c h 006 001 T A I L 006 002 o f 006
0112440 001 E N T ) \r
0112460
0112500 V V ) ) \r
0112520
0112540 ( T ( P U T H A S H ( 006 002
0112560 f e t c h 006 001 T A I L 006 002 o
0112600 f 006 001 ( 006 002 f e t c h 006 001 B
0112620 P 006 002 o f 006 001 E N T ) ) \r
0112640
0112660 N I
0112700 L \ D E D I T D P H A S H ) \r
0112720
0112740 ( P U T H A S H
0112760 ( 006 002 f e t c h 006 001 T A I L
0113000 006 002 o f 006 001 E N T ) \r
0113020
0113040 N I L
0113060 \ D E D I T M E H A S H ] \r
0113100 ( A N D E D I T S
0113120 M A S H U S E R F N ( A P P L
0113140 Y * E D I T S M A S H U S E R
0113160 F N C C ( 006 002 G E T E D I T
0113200 C H A I N 006 001 E N T ) ) ) \r
0113220 ( C O N D \r
0113240 ( ( 006 002 D E D I
0113260 T F Z A P 006 001 C C A D ) \r
0113300 [ P R O
0113320 G [ ( T E M ( C D R ( W I
0113340 N D O W P R O P ( 006 002 f e t c
0113360 h 006 001 P D S P 006 002 o f 006 001
0113400 E N T ) \r
0113420
0113440 ' D E D I T C
0113460 H A N G E S ] \r
0113500 \r ( *
0113520 U n d o a b l y s m a s h e s
0113540 E D I T C H A N G E S f r o
0113560 m c a l l i n w h i c h
0113600 c h a n g e i s b e i n g
0113620 m a d e , u n l e s s \r
0113640 a l r e a d y
0113660 s e t ) \r \r
0113700 ( O R ( N O T
0113720 T E M ) \r
0113740 ( C A R
0113760 T E M ) \r
0114000 ( 006 002 D
0114020 E D I T F Z A P 006 001 T E M T
0114040 ( C D R T E M ] \r
0114060 ( A N D C H A N
0114100 G E S A R R A Y ( 006 002 D E D I
0114120 T Z A P C H A N G E S 006 001 E N
0114140 T ) ) ( * A
0114160 s m a s h e d c e l l i s
0114200 a l w a y s c h a n g e d )
0114220 \r ( 006 002
0114240 f o r 006 001 ( E _ E N T )
0114260 006 002 b y 006 001 ( 006 002 f e t c h 006
0114300 001 B P 006 002 o f 006 001 E ) 006
0114320 002 w h i l e 006 001 E 006 002 d o 006
0114340 001 ( 006 002 D E D I T Z A P C L I
0114360 S P 006 001 ( 006 002 f e t c h 006 001
0114400 S E L E X P 006 002 o f 006 001 E ]
0114420 \r ( T ( A N D
0114440 E D I T S M A S H U S E R F N
0114460 ( A P P L Y * E D I T S M A S
0114500 H U S E R F N C C ( L I S T
0114520 C C ) ) ) \r
0114540 ( 006 002 D E D I T F Z A P 006 001
0114560 C C A D ] ) \r \r ( 006 004 D E D
0114600 I T F Z A P 006 001 \r [ L A M B
0114620 D A ( C C A D )
0114640
*
0114700 ( * b a s % : "
0114720 1 8 - M a r - 8 4 1 5 : 1 1 "
0114740 ) \r \r
0114760 ( * S m a s h e
0115000 s c o n s C C a n d m a
0115020 k e s U N D O L S T e n t r
0115040 y b u t u s e s n o o t
0115060 h e r c o n t e x t . \r
0115100 U s e d f o r
0115120 m a k i n g c h a n g e s t
0115140 o e d i t o r s t r u c t u
0115160 r e s s a u c h a s t h e
0115200 u n d o l i s t i t s e l
0115220 f ) \r \r ( P R O G ( (
0115240 O A ( C A R C C ) ) \r
0115260 ( O D ( C D R
0115300 C C ) ) ) \r
0115320 \r ( * D
0115340 o n t s m a s h E Q v a l
0115360 u e s . S l o w b / c o f
0115400 r e f c n t s a n d c l u
0115420 t t e r s u p U N D O L S T
0115440 ) \r \r ( R E
0115460 T U R N ( A N D ( C O N D \r
0115500
0115520 ( ( E Q D
0115540 O D ) \r
0115560
0115600 ( A N D ( N E Q A O A ) \r
0115620
*
0115660 ( F R P L A C A C C A ) ) )
0115700 \r
0115720 ( ( E Q
0115740 A O A ) \r
0115760
0116000 ( F R P L A C D C C D ) )
0116020 \r
0116040 ( T ( R
0116060 P L N O D E C C A D ) ) )
0116100 \r
0116120 ( 006 002 p u s h 006
0116140 001 U N D O L S T 1 ( C O N S
0116160 C C ( C O N S O A O D ]
0116200 ) \r \r ( 006 004 D E D I T Z A P C L
0116220 I S P 006 001 \r [ L A M B D A
0116240 ( C C )
0116260
*
0116320 ( * b a s % : " 3 0 -
0116340 M A R - 8 3 2 3 : 0 1 " ) \r
0116360 \r
0116400 ( * D e l e t e s C
0116420 L I S P t r a n s l a t i o n
0116440 . N o t m a d e p a r t
0116460 o f t h e e d i t e v e n
0116500 t , b e c a u s e o f t h
0116520 e \r p o s
0116540 s i b i l i t y o f t h e
0116560 u s e r p e r f o r m i n g
0116600 t w o c h a n g e s , a n d
0116620 t h e n u n d o i n g t h
0116640 e f i r s t , \r
0116660 w h i c h w o u l d
0116700 t h e n r e s t o r e t h e
0116720 t r a n s l a t i o n , e v
0116740 e n t h o u g h i t n o
0116760 l o n g e r c o r r e s p o n
0117000 d s \r t o
0117020 t h e u n t r a n s l a t e
0117040 d a n d c h a n g e d C L
0117060 I S P . ) \r \r ( C O N D
0117100 \r ( ( N L I S T P
0117120 C C ) ) \r [ ( A
0117140 N D C L I S P T R A N F L G
0117160 ( E Q C L I S P T R A N F L G
0117200 ( C A R C C ) ) ) \r
0117220 ( C O N D \r
0117240 ( ( L I S T P ( C D
0117260 D R C C ) ) \r
0117300 ( / R P L N O D E 2 C
0117320 C ( C D D R C C ) ) ) \r
0117340 ( T
0117360
*
0117420 ( * C L
0117440 I S P % u s e d t o t r a
0117460 n s l a t e a n a t o m \r
0117500
*
0117560 e . g
0117600 . Q L I S P d o e s t h i
0117620 s . ) \r
0117640 ( S H O U L D N T ] \r
0117660 ( ( A N D C L I S P A
0117700 R R A Y ( G E T H A S H C C
0117720 C L I S P A R R A Y ) ) \r
0117740 ( / P U T H A S H
0117760 C C N I L C L I S P A R R A
0120000 Y ] ) \r \r ( 006 004 D E D I T Z A P
0120020 C H A N G E S 006 001 \r [ L A M
0120040 B D A ( M E )
0120060
*
0120120 ( * b a s % :
0120140 " 1 8 - O C T - 8 1 2 2 : 2 9
0120160 " ) \r ( C O N D \r
0120200 ( ( 006 002 f o r 006 001 ( I
0120220 _ M E ) 006 002 b y 006 001 ( 006
0120240 002 f e t c h 006 001 B P 006 002 o f
0120260 006 001 I ) 006 002 w h i l e 006 001
0120300 I 006 002 n e v e r 006 001 ( G E T
0120320 H A S H ( 006 002 f e t c h 006 001
0120340 T A I L 006 002 o f 006 001 I ) \r
0120360
*
0120440 C H A
0120460 N G E S A R R A Y ) ) \r
0120500 [ 006 002 p u s h 006 001 U N
0120520 D O L S T 1 ( C O N S ' L I
0120540 S P X H I S T ( L I S T ( L
0120560 I S T ' / P U T H A S H ( 006
0120600 002 f e t c h 006 001 T A I L 006 002
0120620 o f 006 001 M E ) \r
0120640
*
0120700 ( G E
0120720 T H A S H ( 006 002 f e t c h 006 001
0120740 T A I L 006 002 o f 006 001 M E )
0120760 \r
0121000
*
0121040 C H A N
0121060 G E S A R R A Y ) \r
0121100
*
0121140 C H
0121160 A N G E S A R R A Y ] \r
0121200 \r
0121220 ( * D o n e t h i s w a
0121240 y f o r e f f i c i e n c y
0121260 r a t h e r t h a n g o i
0121300 n g t h r o u g h e d i t c
0121320 o m 1 s i n c e w e \r
0121340 k n o w w h a
0121360 t t o u n d o s a v e . ) \r
0121400 \r ( P U T H A S
0121420 H ( 006 002 f e t c h 006 001 T A I
0121440 L 006 002 o f 006 001 M E ) \r
0121460 A T M
0121500 C H A N G E S A R R A Y ] ) \r \r
0121520 ( 006 004 D E D I T M O V E T A I L
0121540 D O W N 006 001 \r [ L A M B D A
0121560 ( C N U T A I L )
0121600
*
0121640 ( * b a s % : " 1 2
0121660 - S e p - 8 4 1 4 : 4 1 " ) \r
0121700 \r
0121720 ( * T h i s m o v
0121740 e s C ' s c u r r e n t C
0121760 D R t o t h e e n d o f
0122000 t h e l i s t w h i c h
0122020 i s i t s c u r r e n t C
0122040 A R \r a n
0122060 d r e p l a c e s t h a t
0122100 C D R w h i c h i t h a s
0122120 j u s t m o v e d w i t h
0122140 N U T A I L . \r
0122160 O r d e r o f m o v e
0122200 s h e l p s s i m p l i f y
0122220 R E P P ) \r \r ( 006 002 D
0122240 E D I T Z A P C D R 006 001 ( L A
0122260 S T ( 006 002 T H E L I S T 006 001
0122300 ( C A R C ) ) ) \r
0122320 ( P R O G 1 ( C D R
0122340 C ) \r
0122360 ( 006 002 D E D I T Z A
0122400 P C D R 006 001 C N U T A I L ]
0122420 ) \r \r ( 006 004 D U N D O E D I T L
0122440 006 001 \r [ L A M B D A ( S S
0122460 U L S T U L S T 0 )
0122500
*
0122540 ( * l m m " 2 6 - J u l - 8
0122560 6 2 3 : 3 5 " ) \r ( P
0122600 R O G ( U N D O L S T 1 W A
0122620 I ) \r ( 006 002
0122640 f o r 006 001 X 006 002 o n 006 001 U
0122660 L S T 006 002 u n t i l 006 001 ( E
0122700 Q X U L S T 0 ) 006 002 d o 006
0122720 001 ( 006 002 D U N D O E D I T C O
0122740 M 006 001 ( C A R X ) ) 006 002 w
0122760 h e n 006 001 ( C A R X ) ) \r
0123000 ( O R U N D
0123020 O L S T 1 ( S H O U L D N T )
0123040 )
0123060 ( * M
0123100 u s t h a v e s o m e c h
0123120 a n g e s t o u n d o ) \r
0123140 [ 006 002 b i n d
0123160 006 001 T M P 006 002 f o r 006 001 I
0123200 006 002 i n 006 001 U L S T 006 002 w
0123220 h e n 006 001 [ 006 002 f o r 006 001 J
0123240 006 002 i n 006 001 ( C D D D R I
0123260 ) 006 002 t h e r e i s 006 001 ( S
0123300 E T Q T M P ( 006 002 W H I C H
0123320 E D I T W 006 001 ( C A R J ] \r
0123340 006 002 d
0123360 o 006 001 ( A N D ( S E T Q T
0123400 M P ( W I N D O W P R O P T
0123420 M P ' D E D I T W H O A M I )
0123440 ) \r
0123460 ( F M E M B ( C
0123500 A D R T M P ) \r
0123520
0123540 F I L E P K G T Y P E
0123560 S ) \r
0123600 ( M A R K A S C
0123620 H A N G E D ( C A R T M P )
0123640 \r
0123660 ( C A
0123700 D R T M P ] \r
0123720 ( 006 002 D E D I T F Z A P 006 001
0123740 U L S T ( C A R U L S T 0
0123760 ) \r
0124000 ( C D R U L S T 0 ) )
0124020
0124040 (
0124060 * S o u n d o c a n b e
0124100 U N D O n e . ) \r
0124120 ( C O N D \r
0124140 ( L I S P X H I S
0124160 T ( U N D O S A V E [ L I S
0124200 T ' D U N D O E D I T L S S
0124220 ( L I S T ( C O N S T (
0124240 C O N S S S U N D O L S T 1
0124260 ] \r
0124300
0124320 L I S P X H I S T ] ) \r \r ( 006
0124340 004 D U N D O E D I T C O M 006 001 \r
0124360 [ L A M B D A ( X F L G
0124400 )
0124420
0124440 ( *
0124460 b a s % : " 1 2 - F e b - 8 4
0124500 2 1 : 2 5 " ) \r
0124520
*
0124600 ( * I f F L G
0124620 i s T , n a m e o f c o
0124640 m m a n d i s \r
0124660
*
0124740 p r i n t e d . )
0124760 \r ( C O N D \r
0125000 ( ( N L I S T P X ) \r
0125020 ( 006 002 C A N T 006 001
0125040 " G a r b a g e o n D E D I
0125060 T U N D O l i s t " )
0125100 (
0125120 * U s e d t o e l s e i f
0125140 ( A N D \r
0125160
*
0125240 ( C A D R X ) ( N O T
0125260 ( S A M E E X P R \ D S P R
0125300 I N T B P \r
0125320
*
0125400 ( f e t c h T O P E L T
0125420 o f ( C A D R X ) ) ) ) )
0125440 t h e n \r
0125460
*
0125540 ( * T h e s a v e d
0125560 \ D E D I T S E L E C T I O N S
0125600 w a s n o t \r
0125620
*
0125700 f r o m t h e
0125720 e d i t e x p r e s s i o n )
0125740 \r
0125760
*
0126020 ( C
0126040 A N T " U N D O o n d i f
0126060 f e r e n t e x p r e s s i o
0126100 n " ) ) \r ) \r
0126120 ( ( C A R X ) \r
0126140 ( 006 002 D U N D O E
0126160 D I T C O M 1 006 001 X )
0126200
*
0126240 ( * e l s e h a s b e e n
0126260 u n d o n e b e f o r e ,
0126300 d o n t \r
0126320
*
0126400 U N D O i t a g a i n
0126420 . ) \r ) ) \r
0126440 ( C O N D \r (
0126460 F L G ( S E T Q \ D E D I T
0126500 S E L E C T I O N S ( C A D R
0126520 X ) ) \r
0126540 ( p r i n t o u t P R O M P
0126560 T W I N D O W T ( O R ( C
0126600 A R X ) \r
0126620
0126640 "
0126660 A l r e a d y " ) \r
0126700 " u
0126720 n d o n e . " ) ) ) \r (
0126740 006 002 D E D I T F Z A P 006 001 X
0126760 N I L ( 006 002 C O P Y C O N S 006
0127000 001 X ) ) \r
0127020 \r ( * M a
0127040 r k s X s o U N D O w i
0127060 l l s k i p i t i n f u
0127100 t u r e . \r
0127120 U N D O i n g t h i s U N D
0127140 O w i l l u n m a r k i t
0127160 ) \r \r T ] ) \r \r ( 006 004 D
0127200 U N D O E D I T C O M 1 006 001 \r
0127220 [ L A M B D A ( C )
0127240
*
0127300 ( * b
0127320 a s % : " 2 1 - M A R - 8 3
0127340 1 9 : 4 3 " ) \r
0127360 \r ( *
0127400 T a k e s a s i n g l e e
0127420 n t r y o n U N D O L S T ,
0127440 i . e . \r
0127460 l i s t o f t h e f o r m
0127500 ( c o m m a n d - n a m e \
0127520 D E D I T S E L E C T I O N S
0127540 . U N D O L S T 1 ) a n d
0127560 m a p s d o w n t h e \r
0127600 U N D O L S T
0127620 1 p o r t i o n p e r f o r
0127640 m i n g t h e c o r r e s o
0127660 n d i n g D E D I T S M A S H
0127700 e s . ) \r \r ( 006 002 f o r
0127720 006 001 X 006 002 i n 006 001 ( C D D
0127740 R C ) 006 002 d o 006 001 ( S E L
0127760 E C T Q ( C A R X ) \r
0130000
0130020 ( G R O U
0130040 P E D \r \r
0130060 ( * U s e
0130100 d b y T T Y % : c o m m a
0130120 n d , w h i c h m u s t a
0130140 d d e n t i r e U N D O L S
0130160 T f r o m s u b o r d i n a
0130200 t e c a l l \r
0130220 t o E D I T L 0 t o
0130240 i t s o w n U N D O L S T 1
0130260 . ) \r \r
0130300
0130320 ( 006 002 f o
0130340 r 006 001 X 006 002 i n 006 001 ( C D
0130360 R X ) 006 002 d o 006 001 ( 006 002 D
0130400 U N D O E D I T C O M 1 006 001 X
0130420 ) ) ) \r
0130440
0130460 ( L I S P X H I S T ( E D
0130500 I T B L O C K C A L L E D I T
0130520 C O M 1 ( C D R X ) ) ) \r
0130540
0130560 ( 006 002
0130600 D E D I T Z A P N O D E 006 001 (
0130620 C A R X ) \r
0130640
0130660 ( C D R
0130700 X ] ) \r ) \r \r \r \r 006 004 ( * ;
0130720 " S e l e c t i o n c o d e
0130740 . S e l e c t e x p r e s
0130760 s i o n s o r f r o m t h
0131000 e c o m m a n d m e n u " )
0131020 006 001 \r \r ( D E F I N E Q \r \r ( 006
0131040 004 D E D I T S L C T L P 006 001 \r
0131060 [ L A M B D A ( C D S )
0131100
*
0131140 ( * m
0131160 j s " 2 6 - M a r - 8 6 1 6
0131200 : 2 7 " ) \r
0131220
*
0131300 ( * D o e s s e l e c
0131320 t i o n s u n t i l a c o
0131340 m m a n d i s \r
0131360
*
0131440 g i v e n ) \r
0131460 ( R E S E T L S T ( R E S
0131500 E T S A V E ( 006 002 D E D I T U
0131520 S E R 006 001 T ) ) \r
0131540 ( R E S E T S A V E
0131560 \ D E D I T A L L O W S E L S
0131600 T ) \r ( C
0131620 A R ( E R S E T Q ( 006 002 b i
0131640 n d 006 001 C M D 006 002 d o 006 001
0131660 ( W A I T . F O R . T T Y ) \r
0131700
*
0131740 ( 006 002 S E T E D I T M E
0131760 N U 006 001 ( C O N D \r
0132000
*
0132060 ( ( K E Y D O W N P ' T A B )
0132100 \r
0132120
*
0132160 N I L ) \r
0132200
*
0132260 ( T C D S ) ) ) \r
0132300
*
0132340 [ C O N D \r
0132360
0132400 ( (
0132420 N O T ( \ S Y S B U F P ) ) \r
0132440
*
0132500 ( S E T Q C
0132520 M D ( 006 002 R E A D E D I T M E
0132540 N U 006 001 ) ) ) \r
0132560
*
0132620 ( ( E Q ( \ P E E K S Y S B U
0132640 F ) \r
0132660
*
0132720 ( C H A R C O D E T A B ) ) \r
0132740
*
0133000 ( \ G E T S Y
0133020 S B U F ) ( *
0133040 F l u s h T A B c h a r ) \r
0133060
*
0133120 ) \r
0133140
*
0133200 [ ( S E T Q C M D ( 006
0133220 002 D O D E D I T T Y P E D C O M
0133240 006 001 ( 006 002 G E T E B U F 006 001
0133260 C D S ] \r
0133300
0133320 ( T
0133340 ( 006 002 S E L E C T K E Y S 006 001
0133360 ( 006 002 G E T E B U F 006 001 C D S
0133400 ] \r
0133420
0133440 ( A N D C M D
0133460 ( R E T U R N C M D ) ) \r
0133500
*
0133540 ( B L O C K ] ) \r \r ( 006 004
0133560 D E D I T U S E R 006 001 \r [ L
0133600 A M B D A ( D S )
0133620
*
0133660 ( * b a s %
0133700 : " 1 2 - A p r - 8 4 2 0 :
0133720 1 7 " ) \r ( 006 002 F L I P
0133740 S E L S 006 001 ) \r ( S E T
0133760 C U R S O R ( C O N D \r
0134000 (
0134020 D S D E F A U L T C U R S O R
0134040 ) \r
0134060 ( T W A I T I N G C U
0134100 R S O R ) ) ) \r ( N O T
0134120 D S ] ) \r \r ( 006 004 S E L E C T
0134140 K E Y S 006 001 \r [ L A M B D A
0134160 ( W )
0134200
*
0134240 ( * m j s " 2 6 - M
0134260 a r - 8 6 1 6 : 1 9 " ) \r
0134300 ( P R O G ( ( L I N E (
0134320 006 002 D E D I T R E A D L I N E 006
0134340 001 N I L W ) ) ) \r
0134360 ( 006 002 S H A D E I F N
0134400 O T B U F 006 001 ( 006 002 N X T S E
0134420 L E C T I O N 006 001 T ) \r
0134440 S E
0134460 C S H A D E )
0134500
0134520 ( * P u s
0134540 h s h a d i n g ) \r
0134560 ( 006 002 S H A D E I F N
0134600 O T B U F 006 001 ( 006 002 T O P S E
0134620 L E C T I O N 006 001 T ) \r
0134640 S W
0134660 I T C H S H A D E ) \r
0134700 ( 006 002 S H A D E S E L
0134720 E C T I O N 006 001 ( 006 002 S E T U
0134740 P D E D I T W 006 001 W ( 006 002 P
0134760 U S H S E L E C T I O N 006 001 (
0135000 L I S T L I N E ) ) ) \r
0135020 P R
0135040 I M S H A D E ] ) \r \r ( 006 004 D O
0135060 D E D I T T Y P E D C O M 006 001 \r
0135100 [ L A M B D A ( W )
0135120
*
0135160 ( *
0135200 m j s " 2 6 - M a r - 8 6 1
0135220 6 : 1 9 " ) \r ( 006 002 b i
0135240 n d 006 001 ( C _ ( \ P E E K
0135260 S Y S B U F ) ) 006 002 f o r 006 001
0135300 I 006 002 i n 006 001 D E D I T T
0135320 Y P E I N C O M S \r
0135340 006 002 d o 006 001 ( C O N D \r
0135360 ( ( E Q
0135400 C ( C O N T R O L C O D E (
0135420 C A R I ) ) ) \r
0135440 ( \ G E T S Y S B
0135460 U F ) \r
0135500 ( p r i n t o u t W ( C
0135520 A D R I ) \r
0135540 " : "
0135560 ) \r
0135600 ( R E T U R N ( C O N S ( C
0135620 A D R I ) \r
0135640
0135660 ( C O N S ( C A D D R
0135700 I ) \r
0135720
0135740 ( 006 002 D E D I T R E A
0135760 D L I N E 006 001 T W ] ) \r \r (
0136000 006 004 D E D I T R E A D L I N E 006
0136020 001 \r [ L A M B D A ( A S L
0136040 I S T W )
0136060
0136100 (
0136120 * m j s " 2 6 - M a r - 8 6
0136140 1 6 : 1 9 " ) \r
0136160 \r ( *
0136200 R e a d a l i n e o f
0136220 i n p u t f r o m T . T h
0136240 i s i s l i k e t h e g
0136260 r u n g e t h a t g o e s
0136300 o n i n s i d e o f \r
0136320 L I S P X , f
0136340 i g u r i n g o u t w h e r
0136360 e t h e l i n e e n d s .
0136400 . . ) \r \r ( R E S E T L
0136420 S T ( R E S E T S A V E ( T
0136440 T Y D I S P L A Y S T R E A M
0136460 W ) ) \r (
0136500 R E S E T S A V E \ D E D I T
0136520 A L L O W S E L S N I L ) \r
0136540 ( P R O G
0136560 ( ( F I R S T I T E M ( A P P
0136600 L Y * L I S P X R E A D F N
0136620 T T ) ) \r
0136640 C H L I N E )
0136660 \r
0136700 ( R E T U R N ( C O N D \r
0136720
0136740 ( ( A N
0136760 D ( L I S T P F I R S T I T
0137000 E M ) \r
0137020
0137040 ( O R ( S Y N T A
0137060 X P ( S E T Q C H ( C H C
0137100 O N 1 ( L A S T C T ) ) ) \r
0137120
*
0137160 ' R I
0137200 G H T P A R E N T ) \r
0137220
*
0137260 ( S Y N T A X P C H ' R
0137300 I G H T B R A C K E T T ) ) )
0137320 \r \r
0137340 ( * A l i s t
0137360 i s t h e f i r s t t h i
0137400 n g t y p e d . U s u a l l
0137420 y , t h e r e i s n o m
0137440 o r e , b u t y o u c o u
0137460 l d \r g e
0137500 t a l i s t f r o m a n
0137520 " a t o m i c " f o r m i
0137540 f i t h a d a r e a d
0137560 m a c r o t h a t t u r n e
0137600 d i t i n t o a \r
0137620 l i s t ) \r \r
0137640
0137660 ( C O N D
0137700 \r
0137720
0137740 ( A S L I S T ( L I S T F
0137760 I R S T I T E M ) ) \r
0140000
0140020 ( T F I
0140040 R S T I T E M ) ) ) \r
0140060
0140100 ( ( O R ( C D R
0140120 ( S E T Q L I N E ( R E A
0140140 D L I N E T ( L I S T F I
0140160 R S T I T E M ) \r
0140200
*
0140260 T ) ) ) \r
0140300
0140320 A S L I S T )
0140340
0140360 ( * T h e r e w a s
0140400 m o r e , s o r e t u r n
0140420 w h o l e \r
0140440
*
0140520 l i s t ) \r
0140540
0140560 L I N E ) \r
0140600
0140620 ( T
0140640
0140660 ( * S i n
0140700 g l e a t o m ) \r
0140720
0140740 F I R S T I T
0140760 E M ] ) \r \r ( 006 004 S H A D E I F
0141000 N O T B U F 006 001 \r [ L A M B
0141020 D A ( X T X T )
0141040
*
0141100 ( * b a s % : "
0141120 1 3 - M A R - 8 3 1 9 : 5 9 "
0141140 ) \r ( A N D X ( S E
0141160 T Q X ( 006 002 G E T S E L M A
0141200 P 006 001 X ) ) \r
0141220 ( N O T ( 006 002 B U F S E L P
0141240 006 001 X ) ) \r
0141260 ( 006 002 S H A D E S E L E C T I O
0141300 N 006 001 X T X T ] ) \r \r ( 006 004
0141320 D E D I T B U T T O N F N 006 001 \r
0141340 [ L A M B D A ( W )
0141360
*
0141420 ( *
0141440 b a s % : " 1 - A p r - 8 4
0141460 1 5 : 3 4 " ) \r ( T O
0141500 T O P W W )
0141520