$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>lafite-indent!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 2 - J a n - 8 7 0 1 : 3 4 : 3
0000140 6 " 006 004 { E R I S } < L I S P
0000160 U S E R S > L I S P C O R E > L
0000200 A F I T E - I N D E N T . ; 1 006
0000220 001 2 5 8 4 5 \r \r
0000240 p r e v i o u s d a t e % :
0000260 " 2 1 - J a n - 8 7 1 6 : 0
0000300 6 : 0 1 " { E R I S } < L I S
0000320 P U S E R S > K O T O > L A F I
0000340 T E - I N D E N T . ; 5 ) \r \r \r
0000360 ( * " \r C o p y r i g h t (
0000400 c ) 1 9 8 6 , 1 9 8 7 b y
0000420 X e r o x C o r p o r a t i
0000440 o n . A l l r i g h t s
0000460 r e s e r v e d . \r " ) \r \r ( P
0000500 R E T T Y C O M P R I N T L A
0000520 F I T E - I N D E N T C O M S )
0000540 \r \r ( R P A Q Q 006 002 L A F I T
0000560 E - I N D E N T C O M S 006 001 \r
0000600 [ ( * * L A F
0000620 I T E - I N D E N T d e f i n
0000640 e s a f u n c t i o n t h
0000660 a t w i l l i n d e n t t
0000700 h e c u r r e n t s e l e c
0000720 t i o n . ) \r (
0000740 F N S T E D I T - I N D E N T
0000760 - A D D - I N D E N T A T I O N
0001000 T E D I T - I N D E N T - B R
0001020 E A K - L I N E T E D I T - I
0001040 N D E N T - B R E A K - L O N G
0001060 - L I N E S \r
0001100 T E D I T - I N D E N
0001120 T - F I N D - B R E A K P O I N
0001140 T T E D I T - I N D E N T - R
0001160 E P L A C E - S E L E C T I O N
0001200 T E D I T - I N D E N T - S E
0001220 L E C T I O N \r
0001240 T E D I T - I N D E
0001260 N T - S E L E C T I O N - K E E
0001300 P I N G - L I N E B R E A K S
0001320 T E D I T - I N D E N T - S E P
0001340 E R A T E - P A R A G R A P H S
0001360 \r T
0001400 E D I T - I N D E N T - S E T -
0001420 I N D E N T T E D I T - I N D
0001440 E N T - S T R I P - I N D E N T
0001460 A T I O N T E D I T - M A K E
0001500 - L I N E S - E X P L I C I T
0001520 \r T E
0001540 D I T - O P E N - L I N E T E
0001560 D I T - R E M O V E - I N D E N
0001600 T \ T E D I T - I N D E N T -
0001620 C O U N T - S P A C E S \r
0001640 \ T E D I
0001660 T - I N D E N T - F I N D - P A
0001700 R A G R A P H - E N D \ T E D
0001720 I T - I N D E N T - S E P E R A
0001740 T E - L I N E S \r
0001760 \ T E D I T - I N
0002000 D E N T - S E P E R A T E - P A
0002020 R A G R A P H S ) \r
0002040 ( I N I T V A R S ( * T E
0002060 D I T - I N D E N T - S T R I N
0002100 G * ( A L L O C S T R I N G
0002120 4 " " ) ) \r
0002140 ( * T E D I T - I
0002160 N D E N T - L I N E - L E N G T
0002200 H * 7 2 ) ) \r
0002220 [ C O N S T A N T S ( * e o l
0002240 - s t r i n g * ( C H A R A C
0002260 T E R ( C H A R C O D E E O
0002300 L ] \r ( G L O B
0002320 A L V A R S * T E D I T - I N
0002340 D E N T - S T R I N G * * T E
0002360 D I T - I N D E N T - L I N E -
0002400 L E N G T H * ) \r
0002420 ( P ( O R ( G E T D ' T
0002440 E D I T ) \r
0002460 ( F I L E S L O A D
0002500 T E D I T ) ) \r
0002520 ( T E D I T . R E M O V E
0002540 . M E N U I T E M T E D I T .
0002560 D E F A U L T . M E N U ' I n
0002600 d e n t ) \r
0002620 ( T E D I T . A D D . M E N U
0002640 I T E M T E D I T . D E F A U
0002660 L T . M E N U ' ( I n d e n t
0002700 ' T E D I T - I N D E N T - S
0002720 E L E C T I O N \r
0002740
*
0003020 " I n d e n t t h e
0003040 c u r r e n t s e l e c t i o
0003060 n " \r
0003100
*
0003140 ( S U
0003160 B I T E M S ( I n d e n t '
0003200 T E D I T - I N D E N T - S E L
0003220 E C T I O N \r
0003240
*
0003320 "
0003340 I n d e n t t h e c u r r e
0003360 n t s e l e c t i o n " \r
0003400
*
0003500 ) \r
0003520
*
0003600 ( " I n
0003620 d e n t & k e e p l i n e
0003640 s " ' \r
0003660
*
0003740 T E D I T - I N D E N T - S E
0003760 L E C T I O N - K E E P I N G -
0004000 L I N E B R E A K S \r
0004020
*
0004060 " I n d e n t t h e
0004100 c u r r e n t s e l e c t i
0004120 o n , k e e p i n g e x i s
0004140 t i n g l i n e b r e a k s
0004160 " \r
0004200
*
0004260 ) \r
0004300
*
0004360 ( " S
0004400 e t i n d e n t " ' \r
0004420
*
0004520 T E D I T - I N D E N
0004540 T - S E T - I N D E N T \r
0004560
*
0004640 " S e
0004660 t t h e i n d e n t s t r
0004700 i n g t o a n e w v a l
0004720 u e " \r
0004740
*
0005020 ) \r
0005040
*
0005120 (
0005140 U n i n d e n t ' T E D I T -
0005160 R E M O V E - I N D E N T \r
0005200
*
0005240 " R e m o v e
0005260 o n e l e v e l o f i n d
0005300 e n t a t i o n f r o m t h
0005320 e c u r r e n t s e l e c t
0005340 i o n " \r
0005360
*
0005440 ) \r
0005460
*
0005560 ( " O p e n l i n e " ' T E
0005600 D I T - O P E N - L I N E \r
0005620
*
0005700 " O p e n a
0005720 b l a n k l i n e a t t
0005740 h e c u r r e n t p o s i t
0005760 i o n " \r
0006000
*
0006060 ) \r
0006100
*
0006200 ( " I n s e r t < R E T U R N
0006220 > s " ' \r
0006240
*
0006320 T E
0006340 D I T - M A K E - L I N E S - E
0006360 X P L I C I T \r
0006400
0006420 " I n s e r t r e
0006440 a l < R E T U R N > s a t
0006460 t h e e n d o f e a c h
0006500 l i n e i n t h e c u r r
0006520 e n t s e l e c t i o n " \r
0006540
*
0006640 ) \r
0006660
*
0006740 ( " B r e a
0006760 k l o n g l i n e s " ' \r
0007000
*
0007100 T E D I T - I N
0007120 D E N T - B R E A K - L O N G -
0007140 L I N E S \r
0007160
*
0007220 " B r e a k
0007240 l o n g l i n e s b y i n
0007260 s e r t i n g e x p l i c i t
0007300 < R E T U R N > ' s " \r
0007320
*
0007420 ] ) \r \f 006 004 ( * *
0007440 L A F I T E - I N D E N T d e
0007460 f i n e s a f u n c t i o n
0007500 t h a t w i l l i n d e n
0007520 t t h e c u r r e n t s e
0007540 l e c t i o n . ) 006 001 \r \r ( D E
0007560 F I N E Q \r \r ( 006 004 T E D I T -
0007600 I N D E N T - A D D - I N D E N
0007620 T A T I O N 006 001 \r [ L A M B
0007640 D A ( p a r a g r a p h i n
0007660 d e n t - s t r i n g r i g h
0007700 t - m a r g i n h a n g i n g
0007720 - i n d e n t ) 006 006 006 001 \r
0007740
*
0010020 006 006 ( * s
0010040 m L " 1 5 - S e p - 8 6 1 6
0010060 : 4 7 " ) 006 001 \r
0010100 \r 006 006 (
0010120 * * R e t u r n a s t r
0010140 i n g b a s e d o n t h e
0010160 g i v e n s t r i n g b u
0010200 t w i t h t h e i n d e n
0010220 t a t i o n c h a n g e d \r
0010240 006 001 006 006 b y
0010260 t h e g i v e n a m o u n
0010300 t . - \r 006 001
0010320 006 006 B r e a k l i n e s a
0010340 t o r b e f o r e t h e
0010360 g i v e n r i g h t - m a r g
0010400 i n . \r 006 001
0010420 006 006 - \r 006 001
0010440 006 006 I f h a n g i n g - i n d
0010460 e n t i s g i v e n , t h
0010500 e n t h e f i r s t l i n
0010520 e i s a l r e a d y i n d
0010540 e n t e d b y t h a t \r 006
0010560 001 006 006 a m o
0010600 u n t . ) 006 001 \r \r ( 006 002
0010620 i f 006 001 [ 006 002 f o r 006 001 i
0010640 006 002 f r o m 006 001 1 006 002 t o 006
0010660 001 ( N C H A R S p a r a g r
0010700 a p h ) 006 002 a l w a y s 006 001
0010720 ( M E M B ( N T H C H A R C O
0010740 D E p a r a g r a p h i ) \r
0010760
*
0011040 ( C O N S T A
0011060 N T ( L I S T ( C H A R C O
0011100 D E S P A C E ) \r
0011120
*
0011220 ( C H A R C O D E E O L
0011240 ] \r 006 002 t h e n
0011260 006 001 p a r a g r a p h \r
0011300 006 002 e l s e 006 001 ( L E T
0011320 * [ [ o l d - i n d e n t (
0011340 006 002 \ T E D I T - I N D E N T -
0011360 C O U N T - S P A C E S 006 001 p
0011400 a r a g r a p h ( A D D 1 (
0011420 O R ( S T R P O S * e o l -
0011440 s t r i n g * \r
0011460
*
0011560 p a
0011600 r a g r a p h ) \r
0011620
*
0011720 ( N C H A R S p
0011740 a r a g r a p h ] \r
0011760 ( n e w
0012000 - i n d e n t ( P L U S ( N
0012020 C H A R S i n d e n t - s t r
0012040 i n g ) \r
0012060
0012100 o l d - i n d
0012120 e n t ) ) \r
0012140 ( n e w - i n d
0012160 e n t - s t r i n g ( C O N C
0012200 A T i n d e n t - s t r i n g
0012220 ( A L L O C S T R I N G o l
0012240 d - i n d e n t " " ] \r
0012260 (
0012300 C O N C A T L I S T ( 006 002 f o
0012320 r 006 001 s t r i n g 006 002 o n 006
0012340 001 ( 006 002 T E D I T - I N D E N
0012360 T - B R E A K - L I N E 006 001 \r
0012400
*
0012440 ( C O N
0012460 C A T ( 006 002 i f 006 001 ( N U M
0012500 B E R P h a n g i n g - i n d
0012520 e n t ) \r
0012540
*
0012600 006 002
0012620 t h e n 006 001 " " \r
0012640
*
0012720 006 002 e l s e 006 001 i n d e n t
0012740 - s t r i n g ) \r
0012760
*
0013020 ( 006 002
0013040 T E D I T - I N D E N T - S T R
0013060 I P - I N D E N T A T I O N 006 001
0013100 p a r a g r a p h ) ) \r
0013120
*
0013160 ( D I F F E
0013200 R E N C E r i g h t - m a r g
0013220 i n ( P L U S n e w - i n d
0013240 e n t \r
0013260
*
0013360 ( O R ( N U M B E R P \r
0013400
*
0013520 h a n g i n g - i n d
0013540 e n t \r
0013560
*
0013660 ) \r
0013700
*
0014000 0 ) )
0014020 ) \r
0014040
0014060 (
0014100 D I F F E R E N C E r i g h t
0014120 - m a r g i n n e w - i n d e
0014140 n t ) ) \r
0014160
0014200 006 002 j o i n 006 001 ( 006
0014220 002 i f 006 001 ( C D R s t r i n
0014240 g ) \r
0014260
0014300 006 002 t h
0014320 e n 006 001 ( L I S T ( C A R
0014340 s t r i n g ) \r
0014360
*
0014420 * e o l
0014440 - s t r i n g * n e w - i n d
0014460 e n t - s t r i n g ) \r
0014500
*
0014540 006 002 e l s e 006 001 ( L I S
0014560 T ( C A R s t r i n g ] ) \r
0014600 \r ( 006 004 T E D I T - I N D E N T
0014620 - B R E A K - L I N E 006 001 \r
0014640 [ L A M B D A ( s t r i n g
0014660 f i r s t - l i n e - m a x - l
0014700 e n g t h m a x - l e n g t h
0014720 ) 006 006 006 001 006
0014740 006 ( * s m L " 2 6 - S e p -
0014760 8 6 1 9 : 4 2 " ) 006 001 \r
0015000 \r
0015020 006 006 ( * * R e t u r n
0015040 a l i s t o f s t r i n g
0015060 s e q u i v i l e n t t o
0015100 t h e i n p u t s t r i n g
0015120 , b u t w i t h n o \r 006
0015140 001 006 006 s i n
0015160 g l e s t r i n g c o n t a
0015200 i n i n g m o r e t h a n
0015220 m a x - l e n g t h c h a r a
0015240 c t e r s a n d t h e f i
0015260 r s t l i n e \r 006 001
0015300 006 006 h a v i n g n
0015320 o m o r e t h a n f i r s
0015340 t - l i n e - m a x - l e n g t
0015360 h c h a r a c t e r s ) 006 001 \r
0015400 \r ( 006 002 i f 006 001 ( O R
0015420 ( N U L L s t r i n g ) \r
0015440 ( S T R I
0015460 N G - E Q U A L s t r i n g
0015500 " " ) \r
0015520 ( S T R I N G - E Q U A L s t
0015540 r i n g * e o l - s t r i n g
0015560 * ) ) \r 006 002 t h
0015600 e n 006 001 N I L \r 006
0015620 002 e l s e 006 001 ( L E T ( ( e
0015640 x i s t i n g - e o l ( S T R
0015660 P O S L [ D E F E R R E D C O
0015700 N S T A N T ( M A K E B I T T
0015720 A B L E ( L I S T ( C H A R
0015740 C O D E E O L ] \r
0015760
*
0016020 s t r i n g ) ) ) \r
0016040 ( 006 002 i f 006
0016060 001 ( O R ( A N D ( N U L L
0016100 e x i s t i n g - e o l ) \r
0016120
0016140 ( L E Q
0016160 ( N C H A R S s t r i n g )
0016200 \r
0016220
0016240 f i r s t - l i n e - m a
0016260 x - l e n g t h ) ) \r
0016300
0016320 ( A N D ( N U M B E R P
0016340 e x i s t i n g - e o l ) \r
0016360
0016400 ( E Q
0016420 e x i s t i n g - e o l ( N C
0016440 H A R S s t r i n g ) ) \r
0016460
0016500 ( L E Q
0016520 e x i s t i n g - e o l f i r
0016540 s t - l i n e - m a x - l e n g
0016560 t h ) ) ) \r
0016600 006 002 t h e n
0016620 006 001
0016640
0016660 006 006 ( * t h e
0016700 s t r i n g f i t s o n a
0016720 s i n g l e l i n e ) 006 001 \r
0016740
0016760 ( L I S T s
0017000 t r i n g ) \r
0017020 006 002 e l s e 006
0017040 001 ( L E T [ ( b r e a k - p
0017060 o i n t ( 006 002 i f 006 001 ( A N
0017100 D ( N U M B E R P e x i s t
0017120 i n g - e o l ) \r
0017140
*
0017200 ( L E S
0017220 S P e x i s t i n g - e o l
0017240 f i r s t - l i n e - m a x - l
0017260 e n g t h ) ) \r
0017300
*
0017340 006 002 t h e n 006 001 e
0017360 x i s t i n g - e o l \r
0017400
*
0017440 006 002 e l s e 006 001
0017460 ( 006 002 T E D I T - I N D E N T
0017500 - F I N D - B R E A K P O I N T
0017520 006 001 s t r i n g \r
0017540
*
0017620 f i r s t - l i n e - m a
0017640 x - l e n g t h ] \r
0017660
0017700 ( C O N S ( O R
0017720 ( S U B S T R I N G s t r i n
0017740 g 1 ( S U B 1 b r e a k -
0017760 p o i n t ) ) \r
0020000
0020020 " "
0020040 ) \r
0020060
0020100 ( 006 002 T E D I T - I N D
0020120 E N T - B R E A K - L I N E 006 001
0020140 ( O R ( S U B S T R I N G
0020160 s t r i n g ( A D D 1 b r e
0020200 a k - p o i n t ) ) \r
0020220
*
0020300 " " ) \r
0020320
*
0020360 m a x - l e n g t
0020400 h m a x - l e n g t h ] ) \r \r
0020420 ( 006 004 T E D I T - I N D E N T -
0020440 B R E A K - L O N G - L I N E S
0020460 006 001 \r [ L A M B D A ( t e
0020500 x t - s t r e a m e x p l i c
0020520 i t - p a r a g r a p h - b r e
0020540 a k s ? ) 006 006 006 001
0020560 006 006 ( * s m L " 2 1
0020600 - J a n - 8 7 1 6 : 0 3 " ) 006
0020620 001 \r \r
0020640 006 006 ( * * B r
0020660 e a k t h e c u r r e n t
0020700 s e l e c t i o n i n t o e
0020720 x p l i c i t l i n e s , e
0020740 a c h h a v i n g n o m o
0020760 r e t h a n \r 006 001
0021000 006 006 * T E D I T - I N
0021020 D E N T - L I N E - L E N G T H
0021040 * c h a r a c t e r s . - \r
0021060 006 001 006 006 I f
0021100 t h e f l a g * T E D I T
0021120 - I N D E N T - K E E P - L I N
0021140 E - B R E A K S * i s f a l
0021160 s e , e x i s t i n g l i n
0021200 e b r e a k s i n \r 006 001
0021220 006 006 t h e c
0021240 u r r e n t s e l e c t i o n
0021260 a r e r e m o v e d . - \r
0021300 006 001 006 006 T h
0021320 i s i s i n t e n d e d t
0021340 o b e u s e d i n L a f
0021360 i t e , w h e r e o n e w
0021400 a n t s t o i n d e n t a
0021420 p i e c e o f a \r 006 001
0021440 006 006 f o r w a
0021460 r d e d d o c u m e n t , b
0021500 u t c a n b e u s e d i
0021520 n a n y T E d i t d o c u
0021540 m e n t ) 006 001 \r \r ( L E
0021560 T ( ( s e l e c t i o n ( T
0021600 E D I T . G E T S E L t e x t
0021620 - s t r e a m ) ) ) \r
0021640 ( 006 002 T E D I T - I N D
0021660 E N T - R E P L A C E - S E L E
0021700 C T I O N 006 001 \r
0021720 t e x t - s t r e a m s e
0021740 l e c t i o n \r
0021760 ( C O N C A T L I S T ( 006
0022000 002 f o r 006 001 s t r i n g 006 002
0022020 o n 006 001 ( 006 002 T E D I T - I N
0022040 D E N T - S E P E R A T E - P A
0022060 R A G R A P H S 006 001 ( T E D I
0022100 T . S E L . A S . S T R I N G
0022120 \r
0022140
*
0022220 t
0022240 e x t - s t r e a m s e l e c
0022260 t i o n ) \r
0022300
*
0022340 e x p l i c i t - p a r a g
0022360 r a p h - b r e a k s ? ) \r
0022400
0022420 006 002 b i n d 006 001
0022440 [ h a n g i n g - i n d e n t
0022460 _ \r
0022500
0022520 ( A N D ( N O T
0022540 ( E Q P ( 006 002 f e t c h 006 001
0022560 C H A R 1 006 002 o f 006 001 ( C
0022600 A R ( 006 002 f e t c h 006 001 L 1
0022620 006 002 o f 006 001 s e l e c t i o
0022640 n ) ) ) \r
0022660
*
0022720 ( 006 002 f e t c
0022740 h 006 001 C H # 006 002 o f 006 001 s
0022760 e l e c t i o n ) ) ) \r
0023000
*
0023040 ( D I F F E R E N C
0023060 E ( 006 002 f e t c h 006 001 C H #
0023100 006 002 o f 006 001 s e l e c t i o
0023120 n ) \r
0023140
*
0023200 ( 006 002 f e t c h 006 001 C
0023220 H A R 1 006 002 o f 006 001 ( C A R
0023240 ( 006 002 f e t c h 006 001 L 1 006
0023260 002 o f 006 001 s e l e c t i o n ]
0023300 \r
0023320 006 002 j o i n
0023340 006 001 ( P R O G 1 ( L I S T
0023360 ( 006 002 T E D I T - I N D E N T -
0023400 A D D - I N D E N T A T I O N 006
0023420 001 ( C A R s t r i n g ) \r
0023440
*
0023520 " " * T E D I T - I N D E N
0023540 T - L I N E - L E N G T H * h
0023560 a n g i n g - i n d e n t ) \r
0023600
*
0023640 * e o l - s
0023660 t r i n g * ) \r
0023700
0023720 ( S E
0023740 T Q h a n g i n g - i n d e n
0023760 t N I L ] ) \r \r ( 006 004 T E D I
0024000 T - I N D E N T - F I N D - B R
0024020 E A K P O I N T 006 001 \r [ L A
0024040 M B D A ( s t r i n g m a x
0024060 - l e n g t h ) 006 006 006 001
0024100
0024120 006 006 ( *
0024140 s m L " 8 - S e p - 8 6
0024160 1 4 : 2 3 " ) 006 001 \r
0024200 \r 006
0024220 006 ( * * R e t u r n t h e
0024240 p o s i t i o n t o b r e
0024260 a k s t r i n g s o t h a
0024300 t i t w i l l c o n t a i
0024320 n n o m o r e t h a n \r
0024340 006 001 006 006 m a
0024360 x - l e n g t h c h a r a c t
0024400 e r s - \r 006 001
0024420 006 006 i f t h e r e i s
0024440 n o w h i t e s p a c e b e
0024460 f o r e m a x - l e n g t h
0024500 c h a r a c t e r s , b r e a
0024520 k i t a t t h e f i r s
0024540 t \r 006 001 006
0024560 006 w h i t e s p a c e a f t e
0024600 r m a x - l e n g t h ) 006 001 \r
0024620 \r ( L E T [ ( w h i t
0024640 e - s p a c e - c h a r s ( D
0024660 E F E R R E D C O N S T A N T
0024700 ( M A K E B I T T A B L E ( L
0024720 I S T ( C H A R C O D E S P
0024740 A C E ) \r
0024760
*
0025040 ( C H A R C O D
0025060 E T A B ) \r
0025100
*
0025160 ( C H A R C
0025200 O D E E O L ] \r
0025220 ( O R ( S T R P O S L w
0025240 h i t e - s p a c e - c h a r s
0025260 s t r i n g m a x - l e n g
0025300 t h N I L T ) \r
0025320 ( S T R P O S L
0025340 w h i t e - s p a c e - c h a r
0025360 s s t r i n g m a x - l e n
0025400 g t h N I L N I L ) \r
0025420 ( A D D 1
0025440 ( N C H A R S s t r i n g ] )
0025460 \r \r ( 006 004 T E D I T - I N D E N
0025500 T - R E P L A C E - S E L E C T
0025520 I O N 006 001 \r [ L A M B D A
0025540 ( t e x t - s t r e a m s e l
0025560 e c t i o n n e w - t e x t )
0025600 006 006 006 001
0025620 006 006 ( * s m L
0025640 " 8 - S e p - 8 6 1 7 : 4 4
0025660 " ) 006 001 \r \r
0025700 006 006 ( * *
0025720 R e p l a c e t h e g i v
0025740 e n s e l e c t i o n i n
0025760 t h e t e x t s t r e a m
0026000 w i t h t h e n e w - t e x
0026020 t . \r 006 001 006
0026040 006 E n d u p w i t h t h e
0026060 n e w - t e x t s e l e c t
0026100 e d . ) 006 001 \r \r ( L E T
0026120 ( ( s t a r t ( 006 002 f e t c
0026140 h 006 001 C H # 006 002 o f 006 001 s
0026160 e l e c t i o n ) ) ) \r
0026200 ( T E D I T . S E T S
0026220 E L t e x t - s t r e a m s
0026240 t a r t ( 006 002 f e t c h 006 001
0026260 D C H 006 002 o f 006 001 s e l e c
0026300 t i o n ) \r
0026320 ' L E F T T ) \r
0026340 ( T E D I T . I
0026360 N S E R T t e x t - s t r e a
0026400 m n e w - t e x t ) \r
0026420 ( T E D I T . S E T S
0026440 E L t e x t - s t r e a m s
0026460 t a r t ( N C H A R S n e w
0026500 - t e x t ) \r
0026520 ' R I G H T ] ) \r
0026540 \r ( 006 004 T E D I T - I N D E N T
0026560 - S E L E C T I O N 006 001 \r [
0026600 L A M B D A ( t e x t - s t r
0026620 e a m e x p l i c i t - p a r
0026640 a g r a p h - b r e a k s ? ) 006
0026660 006 006 001 006 006
0026700 ( * s m L " 2 1 - J a n - 8
0026720 7 1 6 : 0 0 " ) 006 001 \r
0026740 \r
0026760 006 006 ( * * I n d e n t t
0027000 h e c u r r e n t s e l e c
0027020 t i o n b y p r e f a c i n
0027040 g e a c h l i n e w i t h
0027060 t h e v a l u e o f \r 006
0027100 001 006 006 * T E
0027120 D I T - I N D E N T - S T R I N
0027140 G * , a n d i n s e r t i n
0027160 g l i n e b r e a k s a f
0027200 t e r e a c h \r 006 001
0027220 006 006 * T E D I T - I
0027240 N D E N T - L I N E - L E N G T
0027260 H * c h a r a c t e r s . -
0027300 \r 006 001 006 006 I
0027320 f t h e f l a g * T E D I
0027340 T - I N D E N T - K E E P - L I
0027360 N E - B R E A K S * i s f a
0027400 l s e , e x i s t i n g l i
0027420 n e b r e a k s i n \r 006 001
0027440 006 006 t h e
0027460 c u r r e n t s e l e c t i o
0027500 n a r e r e m o v e d . -
0027520 \r 006 001 006 006 T
0027540 h i s i s i n t e n d e d
0027560 t o b e u s e d i n L a
0027600 f i t e , w h e r e o n e
0027620 w a n t s t o i n d e n t
0027640 a p i e c e o f a \r 006 001
0027660 006 006 f o r w
0027700 a r d e d d o c u m e n t ,
0027720 b u t c a n b e u s e d
0027740 i n a n y T E d i t d o c
0027760 u m e n t ) 006 001 \r \r ( L
0030000 E T ( ( s e l e c t i o n (
0030020 T E D I T . G E T S E L t e x
0030040 t - s t r e a m ) ) ) \r
0030060 ( 006 002 T E D I T - I N
0030100 D E N T - R E P L A C E - S E L
0030120 E C T I O N 006 001 \r
0030140 t e x t - s t r e a m s
0030160 e l e c t i o n \r
0030200 ( C O N C A T L I S T (
0030220 006 002 f o r 006 001 s t r i n g 006
0030240 002 o n 006 001 ( 006 002 T E D I T - I
0030260 N D E N T - S E P E R A T E - P
0030300 A R A G R A P H S 006 001 ( T E D
0030320 I T . S E L . A S . S T R I N G
0030340 \r
0030360
*
0030460 t e x t - s t r e a m s e l e
0030500 c t i o n ) \r
0030520
*
0030560 e x p l i c i t - p a r a
0030600 g r a p h - b r e a k s ? ) \r
0030620
0030640 006 002 b i n d 006 001
0030660 [ h a n g i n g - i n d e n t
0030700 _ \r
0030720
0030740 ( A N D ( N O
0030760 T ( E Q P ( 006 002 f e t c h 006
0031000 001 C H A R 1 006 002 o f 006 001 (
0031020 C A R ( 006 002 f e t c h 006 001 L
0031040 1 006 002 o f 006 001 s e l e c t i
0031060 o n ) ) ) \r
0031100
*
0031140 ( 006 002 f e t
0031160 c h 006 001 C H # 006 002 o f 006 001
0031200 s e l e c t i o n ) ) ) \r
0031220
*
0031260 ( D I F F E R E N
0031300 C E ( 006 002 f e t c h 006 001 C H
0031320 # 006 002 o f 006 001 s e l e c t i
0031340 o n ) \r
0031360
*
0031420 ( 006 002 f e t c h 006 001
0031440 C H A R 1 006 002 o f 006 001 ( C A
0031460 R ( 006 002 f e t c h 006 001 L 1
0031500 006 002 o f 006 001 s e l e c t i o n
0031520 ] \r
0031540 006 002 j o i
0031560 n 006 001 ( P R O G 1 ( L I S T
0031600 ( 006 002 T E D I T - I N D E N T
0031620 - A D D - I N D E N T A T I O N
0031640 006 001 ( C A R s t r i n g ) \r
0031660
*
0031740 * T E D I T - I N D E N T -
0031760 S T R I N G * * T E D I T - I
0032000 N D E N T - L I N E - L E N G T
0032020 H * \r
0032040
*
0032100 h a n g i n g - i n
0032120 d e n t ) \r
0032140
*
0032200 * e o l - s t r i n g * ) \r
0032220
*
0032260 ( S E T Q h a n g i n
0032300 g - i n d e n t N I L ] ) \r \r
0032320 ( 006 004 T E D I T - I N D E N T -
0032340 S E L E C T I O N - K E E P I N
0032360 G - L I N E B R E A K S 006 001 \r
0032400 [ L A M B D A ( t e x t - s
0032420 t r e a m ) 006 006 006 001
0032440
*
0032500 006 006 ( * s m L " 1 2 - S e p
0032520 - 8 6 1 6 : 5 8 " ) 006 001 \r
0032540 \r
0032560 006 006 ( * * I n d e n t
0032600 t h e c u r r e n t s e l
0032620 e c t i o n , k e e p i n g
0032640 c u r r e n t l i n e b r e
0032660 a k s ) 006 001 \r \r ( 006 002 T
0032700 E D I T - I N D E N T - S E L E
0032720 C T I O N 006 001 t e x t - s t r
0032740 e a m T ] ) \r \r ( 006 004 T E D I
0032760 T - I N D E N T - S E P E R A T
0033000 E - P A R A G R A P H S 006 001 \r
0033020 [ L A M B D A ( s t r i n g
0033040 e x p l i c i t - p a r a g r
0033060 a p h - b r e a k s ? ) 006 006 006 001
0033100
0033120 006 006 ( * s m L " 1 2 - S e p
0033140 - 8 6 0 9 : 5 4 " ) 006 001 \r
0033160 \r
0033200 006 006 ( * * R e t u r n
0033220 a l i s t o f s t r i n
0033240 g s , e a c h c o m p r i s
0033260 i n g a s e p e r a t e p
0033300 a r a g r a p h , t h a t t
0033320 a k e n \r 006 001
0033340 006 006 t o g e t h e r m a k
0033360 e u p t h e g i v e n s
0033400 t r i n g . - \r 006 001
0033420 006 006 I f e x p l i c
0033440 i t - p a r a g r a p h - b r e
0033460 a k s ? i s t r u e , p a
0033500 r a g r a p h s a r e d e l
0033520 i m i t e d b y < R E T U R
0033540 N > ' s , \r 006 001
0033560 006 006 o t h e r w i s e p
0033600 a r a g r a p h s a r e d e
0033620 l i m i t e d b y a c h a
0033640 n g e i n i n d e n t a t i
0033660 o n a f t e r t h e s e c
0033700 o n d \r 006 001
0033720 006 006 l i n e . ) 006 001 \r \r
0033740 ( 006 002 i f 006 001 ( N O T ( S
0033760 T R I N G P s t r i n g ) ) \r
0034000 006 002 t h e n 006 001
0034020 N I L \r 006 002 e l s
0034040 e i f 006 001 e x p l i c i t - p
0034060 a r a g r a p h - b r e a k s ?
0034100 \r 006 002 t h e n 006
0034120 001 ( 006 002 \ T E D I T - I N D E
0034140 N T - S E P E R A T E - L I N E
0034160 S 006 001 s t r i n g N I L ) \r
0034200 006 002 e l s e 006 001 (
0034220 006 002 \ T E D I T - I N D E N T -
0034240 S E P E R A T E - P A R A G R A
0034260 P H S 006 001 s t r i n g N I L
0034300 ] ) \r \r ( 006 004 T E D I T - I N D
0034320 E N T - S E T - I N D E N T 006 001
0034340 \r [ L A M B D A ( t e x t
0034360 - s t r e a m ) 006 006 006 001
0034400
*
0034440 006 006 ( * s m L " 1 2 - S
0034460 e p - 8 6 1 7 : 0 9 " ) 006 001 \r
0034500 \r
0034520 006 006 ( * * P r o m
0034540 p t t h e u s e r f o r
0034560 a n e w i n d e n t a t i o
0034600 n s t r i n g ) 006 001 \r \r
0034620 ( L E T * ( ( w i n d o w
0034640 ( 006 002 f e t c h 006 001 \ W I N D
0034660 O W 006 002 o f 006 001 ( T E X T O
0034700 B J t e x t - s t r e a m ) )
0034720 ) \r ( p w
0034740 i n d o w ( 006 002 i f 006 001 w i
0034760 n d o w \r
0035000 006 002 t
0035020 h e n 006 001 ( G E T P R O M P T
0035040 W I N D O W ( 006 002 i f 006 001 (
0035060 L I S T P w i n d o w ) \r
0035100
*
0035160 006 002 t h e n 006 001 ( C A R w i
0035200 n d o w ) \r
0035220
*
0035260 006 002 e l s e 006 001 w
0035300 i n d o w ) ) \r
0035320 006 002
0035340 e l s e 006 001 P R O M P T W I N
0035360 D O W ) ) ) \r
0035400 ( C L E A R W p w i n d o w
0035420 ) \r ( S E T
0035440 Q * T E D I T - I N D E N T -
0035460 S T R I N G * ( P R O M P T F
0035500 O R W O R D " N e w i n d e
0035520 n t s t r i n g : " * T E
0035540 D I T - I N D E N T - S T R I N
0035560 G * N I L \r
0035600
*
0035640 p w i n d o w N I L
0035660 N I L ( L I S T ( C H A R
0035700 C O D E E O L ] ) \r \r ( 006 004 T
0035720 E D I T - I N D E N T - S T R I
0035740 P - I N D E N T A T I O N 006 001 \r
0035760 [ L A M B D A ( p a r a g
0036000 r a p h f i r s t - l i n e -
0036020 t o o ? ) 006 006 006 001
0036040
0036060 006 006 ( * s m L " 1 5 - S e
0036100 p - 8 6 1 7 : 0 3 " ) 006 001 \r
0036120 \r
0036140 006 006 ( * * R e m o v
0036160 e i n d e n t a t i o n f r
0036200 o m t h e g i v e n s t r
0036220 i n g ) 006 001 \r \r ( 006 002 b
0036240 i n d 006 001 ( s t r i n g _
0036260 p a r a g r a p h ) \r
0036300 ( e o l - p o s _
0036320 1 ) 006 002 w h i l e 006 001 ( S E
0036340 T Q e o l - p o s ( S T R P
0036360 O S * e o l - s t r i n g *
0036400 s t r i n g ) ) \r
0036420 006 002 d o 006 001 [ S E T Q s t r
0036440 i n g ( 006 002 i f 006 001 ( E Q P
0036460 e o l - p o s ( N C H A R S
0036500 s t r i n g ) ) \r
0036520
0036540 006 002 t h e n 006 001 ( S
0036560 U B S T R I N G s t r i n g
0036600 1 ( S U B 1 e o l - p o s )
0036620 ) \r
0036640 006 002 e l s
0036660 e 006 001 ( C O N C A T ( S U B
0036700 S T R I N G s t r i n g 1
0036720 ( S U B 1 e o l - p o s ) ) \r
0036740
*
0037000 " " \r
0037020
0037040 ( O
0037060 R [ S U B S T R I N G s t r
0037100 i n g ( P L U S 1 e o l -
0037120 p o s ( 006 002 \r 006 001
0037140
*
0037240 006 002 \ T E D I T - I N
0037260 D E N T - C O U N T - S P A C E
0037300 S 006 001 \r
0037320
*
0037420 s t r i n g \r
0037440
*
0037540 ( A D D 1 e o l - p o s
0037560 ] \r
0037600
0037620 " " ] \r
0037640 006 002 f i n a l l y 006
0037660 001 ( R E T U R N ( 006 002 i f 006
0037700 001 f i r s t - l i n e - t o o
0037720 ? \r
0037740 006 002 t
0037760 h e n 006 001 ( O R ( S U B S T
0040000 R I N G s t r i n g ( A D D
0040020 1 ( 006 002 \ T E D I T - I N D E
0040040 N T - C O U N T - S P A C E S 006
0040060 001 s t r i n g 1 ) ) ) \r
0040100
*
0040140 " " ) \r
0040160 006
0040200 002 e l s e 006 001 s t r i n g ] )
0040220 \r \r ( 006 004 T E D I T - M A K E -
0040240 L I N E S - E X P L I C I T 006 001
0040260 \r [ L A M B D A ( t e x t
0040300 - s t r e a m ) 006 006 006 001
0040320
*
0040360 006 006 ( * s m L " 8 - S
0040400 e p - 8 6 1 8 : 2 0 " ) 006 001 \r
0040420 \r
0040440 006 006 ( * * T a k e
0040460 t h e c u r r e n t s e l
0040500 e c t i o n a n d r e p l a
0040520 c e a l l T E d i t e n d
0040540 - o f - l i n e s w i t h \r
0040560 006 001 006 006 e x
0040600 p l i c i t l i n e b r e a
0040620 k s . - \r 006 001
0040640 006 006 T h i s i s i n t e
0040660 n d e d t o b e u s e d
0040700 i n L a f i t e , w h e r e
0040720 i t i s s o m e t i m e s
0040740 n i c e t o k n o w t h
0040760 a t \r 006 001
0041000 006 006 a n y o n e r e c e i v i
0041020 n g t h e m s g w i l l
0041040 s e e t h e s a m e l i n
0041060 e b r e a k s t h a t y o
0041100 u s e e . \r 006 001
0041120 006 006 s e e , b u t c a
0041140 n b e u s e d i n a n y
0041160 T E d i t d o c u m e n t )
0041200 006 001 \r \r ( L E T ( ( s
0041220 e l e c t i o n ( T E D I T .
0041240 G E T S E L t e x t - s t r e
0041260 a m ) ) ) \r [
0041300 006 002 f o r 006 001 i 006 002 i n 006 001
0041320 ( 006 002 b i n d 006 001 ( t h i s
0041340 - l i n e _ ( C A R ( 006 002
0041360 f e t c h 006 001 L 1 006 002 o f 006
0041400 001 s e l e c t i o n ) ) ) \r
0041420
0041440 [ l a s t - l i
0041460 n e _ ( C A R ( L A S T
0041500 ( 006 002 f e t c h 006 001 L N 006 002
0041520 o f 006 001 s e l e c t i o n ] \r
0041540
0041560 006 002 r e p e a t u n
0041600 t i l 006 001 ( P R O G N ( S E
0041620 T Q t h i s - l i n e ( 006 002
0041640 f e t c h 006 001 N E X T L I N E
0041660 006 002 o f 006 001 t h i s - l i n
0041700 e ) ) \r
0041720
0041740 ( E Q
0041760 t h i s - l i n e l a s t -
0042000 l i n e ) ) 006 002 c o l l e c t
0042020 006 001 ( 006 002 f e t c h 006 001 C H
0042040 A R L I M \r
0042060
*
0042160 006 002 o f 006 001 t h i s -
0042200 l i n e ) ) \r
0042220 006 002 d o 006 001 ( T E D I T
0042240 . S E T S E L t e x t - s t r
0042260 e a m i 1 ' L E F T T )
0042300 \r
0042320 ( T E D I T . I N S E R T t e
0042340 x t - s t r e a m ( C O N S T
0042360 A N T ( C H A R A C T E R (
0042400 C H A R C O D E E O L ] \r
0042420 ( T E D I T . S E
0042440 T S E L t e x t - s t r e a m
0042460 s e l e c t i o n N I L '
0042500 R I G H T ] ) \r \r ( 006 004 T E D I
0042520 T - O P E N - L I N E 006 001 \r
0042540 [ L A M B D A ( t e x t - s t
0042560 r e a m ) 006 006 006 001
0042600
0042620 006
0042640 006 ( * s m L " 1 7 - S e p -
0042660 8 6 1 1 : 1 3 " ) 006 001 \r
0042700 \r
0042720 006 006 ( * * O p e n a
0042740 n e w l i n e a t t h e
0042760 c u r r e n t p o s i t i o n
0043000 . ) 006 001 \r \r ( L E T (
0043020 ( s e l e c t i o n ( T E D I
0043040 T . G E T S E L t e x t - s t
0043060 r e a m ) ) ) \r
0043100 ( T E D I T . I N S E R T t
0043120 e x t - s t r e a m ( C O N C
0043140 A T * e o l - s t r i n g * \r
0043160
*
0043220 ( A L L O C
0043240 S T R I N G [ D I F F E R E N
0043260 C E ( 006 002 f e t c h 006 001 C H
0043300 # 006 002 o f 006 001 s e l e c t i
0043320 o n ) \r
0043340
*
0043420 ( 006 002 f e t c h 006 001 C H A
0043440 R 1 \r
0043460
*
0043540 006 002 o f 006 001 ( C A R
0043560 ( 006 002 f e t c h 006 001 L 1 006 002
0043600 o f 006 001 s e l e c t i o n ] \r
0043620
*
0043700 " " ) ) ) \r
0043720 ( 006 002 i f 006 001 ( Z E R O P
0043740 ( 006 002 f e t c h 006 001 D C H 006
0043760 002 o f 006 001 s e l e c t i o n )
0044000 ) \r 006
0044020 002 t h e n 006 001 ( T E D I T . S
0044040 E T S E L t e x t - s t r e a
0044060 m s e l e c t i o n ] ) \r \r (
0044100 006 004 T E D I T - R E M O V E - I
0044120 N D E N T 006 001 \r [ L A M B D
0044140 A ( t e x t - s t r e a m ) 006
0044160 006 006 001
0044200
0044220 006 006 ( * s m
0044240 L " 1 5 - S e p - 8 6 1 7 :
0044260 0 3 " ) 006 001 \r
0044300 \r 006 006 ( *
0044320 * R e m o v e t h e i n
0044340 d e n t a t i o n f r o m t
0044360 h e c u r r e n t s e l e c
0044400 t i o n ) 006 001 \r \r ( L E
0044420 T ( ( s e l e c t i o n ( T
0044440 E D I T . G E T S E L t e x t
0044460 - s t r e a m ) ) ) \r
0044500 ( 006 002 T E D I T - I N D
0044520 E N T - R E P L A C E - S E L E
0044540 C T I O N 006 001 t e x t - s t r
0044560 e a m s e l e c t i o n \r
0044600 ( C
0044620 O N C A T L I S T ( 006 002 f o r
0044640 006 001 p a r a g r a p h 006 002 i
0044660 n 006 001 ( 006 002 T E D I T - I N D
0044700 E N T - S E P E R A T E - P A R
0044720 A G R A P H S 006 001 ( T E D I T
0044740 . S E L . A S . S T R I N G \r
0044760
*
0045100 t e x t - s t r e a m \r
0045120
*
0045220 s e
0045240 l e c t i o n ) ) \r
0045260
0045300 006 002 j o i n 006
0045320 001 ( L I S T ( 006 002 T E D I T
0045340 - I N D E N T - S T R I P - I N
0045360 D E N T A T I O N 006 001 p a r a
0045400 g r a p h T ) \r
0045420
*
0045460 * e o l - s t r i n g * ]
0045500 ) \r \r ( 006 004 \ T E D I T - I N D
0045520 E N T - C O U N T - S P A C E S
0045540 006 001 \r [ L A M B D A ( s t
0045560 r i n g s t a r t - p o s ) 006
0045600 006 006 001
0045620
0045640 006 006 ( * s m L " 1 2
0045660 - S e p - 8 6 1 4 : 2 9 " ) 006
0045700 001 \r \r
0045720 006 006 ( * * C o
0045740 u n t t h e n u m b e r o
0045760 f s p a c e s f o l l o w i
0046000 n g p o s i t i o n s t a r
0046020 t - p o s i n s t r i n g )
0046040 006 001 \r \r ( 006 002 i f 006 001
0046060 ( N O T ( S T R I N G P s t
0046100 r i n g ) ) \r 006
0046120 002 t h e n 006 001 0 \r
0046140 006 002 e l s e 006 001 ( D I F F E R
0046160 E N C E [ 006 002 f o r 006 001 i
0046200 006 002 f r o m 006 001 s t a r t - p
0046220 o s 006 002 b i n d 006 001 ( m a x
0046240 - p o s _ ( N C H A R S s
0046260 t r i n g ) ) \r
0046300
0046320 006 002 t h e r e i s 006 001 ( O
0046340 R ( G R E A T E R P i m a
0046360 x - p o s ) \r
0046400
0046420 ( N O
0046440 T ( E Q P ( N T H C H A R C
0046460 O D E s t r i n g i ) \r
0046500
*
0046540 ( C
0046560 H A R C O D E S P A C E ] \r
0046600
0046620 s t a r t - p o s ] ) \r \r ( 006
0046640 004 \ T E D I T - I N D E N T - F
0046660 I N D - P A R A G R A P H - E N
0046700 D 006 001 \r [ L A M B D A ( s
0046720 t r i n g p a r a g r a p h -
0046740 i n d e n t a f t e r - p o s
0046760 ) 006 006 006 001
0047000 006 006 ( * s m L " 1
0047020 5 - S e p - 8 6 1 5 : 5 3 " )
0047040 006 001 \r \r
0047060 006 006 ( * * F
0047100 i n d t h e e n d o f p
0047120 a r a g r a p h t h a t h a
0047140 s t h e g i v e n i n d e
0047160 n t a n d c o n t a i n s
0047200 t h e g i v e n \r 006 001
0047220 006 006 p o s i t i o
0047240 n i n t h e s t r i n g )
0047260 006 001 \r \r ( L E T [ ( e
0047300 o l - p o s ( S T R P O S *
0047320 e o l - s t r i n g * s t r i
0047340 n g ( A D D 1 a f t e r - p
0047360 o s ] \r ( 006 002
0047400 i f 006 001 ( N U L L e o l - p
0047420 o s ) \r
0047440 006 002 t h e n 006 001 ( A D D 1
0047460 ( N C H A R S s t r i n g ) )
0047500 \r 006 002 e l
0047520 s e i f 006 001 ( 006 002 f o r 006 001
0047540 i 006 002 f r o m 006 001 ( A D D 1
0047560 a f t e r - p o s ) 006 002 t o
0047600 006 001 ( S U B 1 e o l - p o s
0047620 ) 006 002 a l w a y s 006 001 ( E Q
0047640 P ( C H A R C O D E S P A C
0047660 E ) \r
0047700
*
0050000 ( N T H C H A R C O D E s t r
0050020 i n g i ) ) ) \r
0050040 006 002 t h e n 006 001 a
0050060 f t e r - p o s \r
0050100 006 002 e l s e i f 006 001 (
0050120 E Q P e o l - p o s ( N C H
0050140 A R S s t r i n g ) ) \r
0050160 006 002 t h e n
0050200 006 001 e o l - p o s \r
0050220 006 002 e l s e i f 006 001
0050240 ( E Q P p a r a g r a p h -
0050260 i n d e n t ( 006 002 \ T E D I T
0050300 - I N D E N T - C O U N T - S P
0050320 A C E S 006 001 s t r i n g ( A
0050340 D D 1 e o l - p o s ) ) ) \r
0050360 006 002 t h
0050400 e n 006 001 ( 006 002 \ T E D I T - I
0050420 N D E N T - F I N D - P A R A G
0050440 R A P H - E N D 006 001 s t r i n
0050460 g p a r a g r a p h - i n d e
0050500 n t e o l - p o s ) \r
0050520 006 002 e l s e 006 001
0050540 e o l - p o s ] ) \r \r ( 006 004 \ T
0050560 E D I T - I N D E N T - S E P E
0050600 R A T E - L I N E S 006 001 \r [
0050620 L A M B D A ( r e m a i n i n
0050640 g - s t r i n g c u r r e n t
0050660 - l i n e s ) 006 006 006 001
0050700 006 006
0050720 ( * s m L " 2 1 - J a n - 8
0050740 7 1 5 : 5 8 " ) 006 001 \r
0050760 \r
0051000 006 006 ( * * R e t u r n a
0051020 l i s t o f l i n e s t
0051040 h a t m a k e u p t h e
0051060 r e m a i n i n g - s t r i n g
0051100 , w i t h t h e r e v e r
0051120 s e \r 006 001
0051140 006 006 o f c u r r e n t - l i n
0051160 e s a p p e n d e d t o t
0051200 h e f r o n t ) 006 001 \r \r
0051220 ( 006 002 i f 006 001 ( N O T ( S
0051240 T R I N G P r e m a i n i n g
0051260 - s t r i n g ) ) \r
0051300 006 002 t h e n 006 001 ( O R (
0051320 D R E V E R S E c u r r e n t
0051340 - l i n e s ) \r
0051360 ( L I S T "
0051400 " ) ) \r 006 002 e l s e
0051420 006 001 ( L E T [ ( e o l - p o
0051440 s ( O R ( S T R P O S * e
0051460 o l - s t r i n g * r e m a i
0051500 n i n g - s t r i n g ) \r
0051520
0051540 ( A D D 1
0051560 ( N C H A R S r e m a i n i
0051600 n g - s t r i n g ] \r
0051620 ( 006 002 \ T
0051640 E D I T - I N D E N T - S E P E
0051660 R A T E - L I N E S 006 001 ( S U
0051700 B S T R I N G r e m a i n i n
0051720 g - s t r i n g ( A D D 1 e
0051740 o l - p o s ) ) \r
0051760
0052000 ( C O N S ( O R ( S U B S T
0052020 R I N G r e m a i n i n g - s
0052040 t r i n g 1 ( S U B 1 e o
0052060 l - p o s ) ) \r
0052100
0052120 " " ) \r
0052140
0052160 c u r r e n
0052200 t - l i n e s ] ) \r \r ( 006 004 \ T
0052220 E D I T - I N D E N T - S E P E
0052240 R A T E - P A R A G R A P H S 006
0052260 001 \r [ L A M B D A ( s t r
0052300 i n g c u r r e n t - p a r a
0052320 g r a p h s ) 006 006 006 001
0052340
0052360 006 006 ( * s m L " 1 5 -
0052400 S e p - 8 6 1 5 : 5 4 " ) 006 001
0052420 \r \r
0052440 006 006 ( * * R e t
0052460 u r n a l i s t o f s t
0052500 r i n g s , e a c h c o m p
0052520 r i s i n g a s e p e r a t
0052540 e p a r a g r a p h , t h a
0052560 t t a k e n \r 006 001
0052600 006 006 t o g e t h e r
0052620 m a k e u p t h e g i v e
0052640 n s t r i n g . P a r a g r
0052660 a p h s a r e d e l i m i t
0052700 e d b y a c h a n g e i
0052720 n \r 006 001 006
0052740 006 i n d e n t a t i o n a f t
0052760 e r t h e s e c o n d l i
0053000 n e , o r a b l a n k l
0053020 i n e . ) 006 001 \r \r ( 006 002
0053040 i f 006 001 ( N O T ( S T R I N
0053060 G P s t r i n g ) ) \r
0053100 006 002 t h e n 006 001 ( D R
0053120 E V E R S E c u r r e n t - p
0053140 a r a g r a p h s ) \r
0053160 006 002 e l s e 006 001 ( L E T (
0053200 ( e o l - p o s ( S T R P O S
0053220 * e o l - s t r i n g * s t
0053240 r i n g ) ) ) \r
0053260 ( 006 002 i f 006 001
0053300 ( N U L L e o l - p o s ) \r
0053320
0053340 006 002 t h e n 006 001 ( D R E
0053360 V E R S E ( C O N S s t r i
0053400 n g c u r r e n t - p a r a g
0053420 r a p h s ) ) \r
0053440 006 002 e l s e
0053460 i f 006 001 ( 006 002 f o r 006 001 i
0053500 006 002 f r o m 006 001 1 006 002 t o 006
0053520 001 ( S U B 1 e o l - p o s )
0053540 006 002 a l w a y s 006 001 ( E Q P
0053560 ( C H A R C O D E S P A C E
0053600 ) \r
0053620
*
0053700 ( N T H C H A R C
0053720 O D E s t r i n g i ) ) ) \r
0053740
0053760 006 002 t h e n 006 001 ( 006 002
0054000 \ T E D I T - I N D E N T - S E
0054020 P E R A T E - P A R A G R A P H
0054040 S 006 001 ( S U B S T R I N G s
0054060 t r i n g ( A D D 1 e o l -
0054100 p o s ) ) \r
0054120
0054140 ( C O N S " " c
0054160 u r r e n t - p a r a g r a p h
0054200 s ) ) \r
0054220 006 002 e l s e i f 006 001
0054240 ( E Q P e o l - p o s ( N
0054260 C H A R S s t r i n g ) ) \r
0054300
0054320 006 002 t h e n 006 001 ( D R E
0054340 V E R S E ( C O N S s t r i
0054360 n g c u r r e n t - p a r a g
0054400 r a p h s ) ) \r
0054420 006 002 e l s e
0054440 006 001 ( L E T ( ( p a r a - e
0054460 n d - p o s ( 006 002 \ T E D I T
0054500 - I N D E N T - F I N D - P A R
0054520 A G R A P H - E N D 006 001 s t r
0054540 i n g \r
0054560
*
0054620 ( 006 002 \ T E D I T -
0054640 I N D E N T - C O U N T - S P A
0054660 C E S 006 001 s t r i n g ( A D
0054700 D 1 e o l - p o s ) ) \r
0054720
*
0054760 e
0055000 o l - p o s ) ) ) \r
0055020
0055040 ( 006 002 \ T E D I T -
0055060 I N D E N T - S E P E R A T E -
0055100 P A R A G R A P H S 006 001 ( S U
0055120 B S T R I N G s t r i n g (
0055140 A D D 1 p a r a - e n d - p o
0055160 s ) ) \r
0055200
0055220 ( C O N S ( O R
0055240 ( S U B S T R I N G s t r i
0055260 n g 1 ( S U B 1 p a r a -
0055300 e n d - p o s ) ) \r
0055320
*
0055360 " " ) \r
0055400
*
0055440 c u r r e n t - p a r a
0055460 g r a p h s ] ) \r ) \r \r ( R P A
0055500 Q ? 006 002 * T E D I T - I N D E
0055520 N T - S T R I N G * 006 001 ( A L
0055540 L O C S T R I N G 4 " " )
0055560 ) \r \r ( R P A Q ? 006 002 * T E D
0055600 I T - I N D E N T - L I N E - L
0055620 E N G T H * 006 001 7 2 ) \r ( D E
0055640 C L A R E % : E V A L @ C O M
0055660 P I L E \r \r ( R P A Q 006 002 *
0055700 e o l - s t r i n g * 006 001 ( C
0055720 H A R A C T E R ( C H A R C O
0055740 D E E O L ) ) ) \r \r [ C O N S
0055760 T A N T S ( * e o l - s t r i
0056000 n g * ( C H A R A C T E R (
0056020 C H A R C O D E E O L ] \r ) \r
0056040 ( D E C L A R E % : D O E V A
0056060 L @ C O M P I L E D O N T C O
0056100 P Y \r \r ( G L O B A L V A R S
0056120 * T E D I T - I N D E N T - S T
0056140 R I N G * * T E D I T - I N D
0056160 E N T - L I N E - L E N G T H *
0056200 ) \r ) \r ( O R ( G E T D ' T
0056220 E D I T ) \r ( F I L E S
0056240 L O A D T E D I T ) ) \r ( T E
0056260 D I T . R E M O V E . M E N U I
0056300 T E M T E D I T . D E F A U L
0056320 T . M E N U ' I n d e n t ) \r
0056340 [ T E D I T . A D D . M E N U I
0056360 T E M T E D I T . D E F A U L
0056400 T . M E N U ' ( I n d e n t
0056420 ' T E D I T - I N D E N T - S E
0056440 L E C T I O N \r
0056460
*
0056520 " I n d e n t
0056540 t h e c u r r e n t s e l e
0056560 c t i o n " \r
0056600
*
0056640 ( S U B I T E M S
0056660 ( I n d e n t ' T E D I T - I
0056700 N D E N T - S E L E C T I O N
0056720 \r
0056740
*
0057020 " I n d e n t t h e c u r
0057040 r e n t s e l e c t i o n " )
0057060 \r
0057100
*
0057140 ( " I n d e n t
0057160 & k e e p l i n e s " ' \r
0057200
*
0057260 T E D I
0057300 T - I N D E N T - S E L E C T I
0057320 O N - K E E P I N G - L I N E B
0057340 R E A K S \r
0057360
*
0057420 " I n d e n t t h e c u r r
0057440 e n t s e l e c t i o n , k
0057460 e e p i n g e x i s t i n g
0057500 l i n e b r e a k s " \r
0057520
*
0057600 ) \r
0057620
*
0057700 ( " S e t i n d e n t "
0057720 ' T E D I T - I N D E N T - S E
0057740 T - I N D E N T \r
0057760
*
0060040 " S e t t h e
0060060 i n d e n t s t r i n g t o
0060100 a n e w v a l u e " ) \r
0060120
*
0060200 ( U n i n d e n t '
0060220 T E D I T - R E M O V E - I N D
0060240 E N T \r
0060260
0060300 " R
0060320 e m o v e o n e l e v e l
0060340 o f i n d e n t a t i o n f
0060360 r o m t h e c u r r e n t
0060400 s e l e c t i o n " \r
0060420
*
0060500 ) \r
0060520
*
0060600 ( " O p e n l i n e " ' T E
0060620 D I T - O P E N - L I N E \r
0060640
*
0060720 " O p e n a
0060740 b l a n k l i n e a t t
0060760 h e c u r r e n t p o s i t
0061000 i o n " \r
0061020
*
0061100 ) \r
0061120
*
0061160 ( " I n s e
0061200 r t < R E T U R N > s " ' T
0061220 E D I T - M A K E - L I N E S -
0061240 E X P L I C I T \r
0061260
0061300 " I n s e r t r
0061320 e a l < R E T U R N > s a t
0061340 t h e e n d o f e a c h
0061360 l i n e i n t h e c u r
0061400 r e n t s e l e c t i o n " \r
0061420
*
0061500 ) \r
0061520
*
0061600 ( " B r e a k l o n
0061620 g l i n e s " ' \r
0061640
*
0061720 T E D I T - I N
0061740 D E N T - B R E A K - L O N G -
0061760 L I N E S \r
0062000
*
0062040 " B r e a k
0062060 l o n g l i n e s b y i n
0062100 s e r t i n g e x p l i c i t
0062120 < R E T U R N > ' s " \r
0062140
*
0062220 ] \r ( P U T
0062240 P R O P S L A F I T E - I N D
0062260 E N T C O P Y R I G H T ( "
0062300 X e r o x C o r p o r a t i o
0062320 n " 1 9 8 6 1 9 8 7 ) ) \r (
0062340 D E C L A R E % : D O N T C O
0062360 P Y \r ( F I L E M A P ( N
0062400 I L ( 3 9 4 9 2 3 3 5 4 (
0062420 T E D I T - I N D E N T - A D D
0062440 - I N D E N T A T I O N 3 9 5
0062460 9 . 6 5 2 7 ) ( T E D I T
0062500 - I N D E N T - B R E A K - L I
0062520 N E 6 5 2 9 . \r 8 4 6 2 )
0062540 ( T E D I T - I N D E N T - B
0062560 R E A K - L O N G - L I N E S
0062600 8 4 6 4 . 1 0 2 3 1 ) ( T
0062620 E D I T - I N D E N T - F I N D
0062640 - B R E A K P O I N T 1 0 2 3
0062660 3 . 1 1 0 5 6 ) ( \r T E D
0062700 I T - I N D E N T - R E P L A C
0062720 E - S E L E C T I O N 1 1 0 5
0062740 8 . 1 1 6 1 5 ) ( T E D I
0062760 T - I N D E N T - S E L E C T I
0063000 O N 1 1 6 1 7 . 1 3 5 1 8
0063020 ) ( \r T E D I T - I N D E N T
0063040 - S E L E C T I O N - K E E P I
0063060 N G - L I N E B R E A K S 1 3
0063100 5 2 0 . 1 3 7 9 9 ) ( T E
0063120 D I T - I N D E N T - S E P E R
0063140 A T E - P A R A G R A P H S 1
0063160 3 8 0 1 . \r 1 4 5 3 0 ) (
0063200 T E D I T - I N D E N T - S E T
0063220 - I N D E N T 1 4 5 3 2 .
0063240 1 5 3 0 6 ) ( T E D I T - I N
0063260 D E N T - S T R I P - I N D E N
0063300 T A T I O N 1 5 3 0 8 . 1
0063320 6 5 2 8 ) ( \r T E D I T - M A
0063340 K E - L I N E S - E X P L I C I
0063360 T 1 6 5 3 0 . 1 7 7 3 5 )
0063400 ( T E D I T - O P E N - L I N
0063420 E 1 7 7 3 7 . 1 8 4 9 3 )
0063440 ( T E D I T - R E M O V E - I
0063460 N D E N T 1 8 4 9 5 . \r 1
0063500 9 2 6 5 ) ( \ T E D I T - I N
0063520 D E N T - C O U N T - S P A C E
0063540 S 1 9 2 6 7 . 1 9 8 6 8 )
0063560 ( \ T E D I T - I N D E N T -
0063600 F I N D - P A R A G R A P H - E
0063620 N D 1 9 8 7 0 . 2 0 8 4 1
0063640 ) ( \r \ T E D I T - I N D E N
0063660 T - S E P E R A T E - L I N E S
0063700 2 0 8 4 3 . 2 1 6 4 1 )
0063720 ( \ T E D I T - I N D E N T - S
0063740 E P E R A T E - P A R A G R A P
0063760 H S 2 1 6 4 3 . 2 3 3 5 2
0064000 ) ) ) ) ) \r S T O P \r
0064013