$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>lafite-indent.lcom!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 (
0000100 F I L E C R E A T E D " 2 2 -
0000120 J a n - 8 7 0 1 : 3 9 : 3 4 "
0000140 ( " c o m p i l e d o n "
0000160 { E R I S } < L I S P U S E R
0000200 S > L I S P C O R E > L A F I T
0000220 E - I N D E N T . ; 1 ) \r " 2
0000240 1 - J a n - 8 7 1 6 : 5 4 : 0
0000260 6 " t c o m p l ' d i n "
0000300 X e r o x L i s p 2 1 - J a
0000320 n - 8 7 . . . " d a t e d
0000340 " 2 1 - J a n - 8 7 1 7 : 5 5
0000360 : 0 5 " ) \r ( F I L E C R E A T
0000400 E D " 2 2 - J a n - 8 7 0 1
0000420 : 3 4 : 3 6 " { E R I S } < L
0000440 I S P U S E R S > L I S P C O R
0000460 E > L A F I T E - I N D E N T .
0000500 ; 1 2 5 8 4 5 p r e v i o u
0000520 s d a t e % : \r " 2 1 - J a
0000540 n - 8 7 1 6 : 0 6 : 0 1 " {
0000560 E R I S } < L I S P U S E R S >
0000600 K O T O > L A F I T E - I N D E
0000620 N T . ; 5 ) \r T E D I T - I N D
0000640 E N T - A D D - I N D E N T A T
0000660 I O N : D 4 \r ( P 4 n e w
0000700 - i n d e n t - s t r i n g P
0000720 3 n e w - i n d e n t P
0000740 2 o l d - i n d e n t P 1
0000760 i I 3 h a n g i n g - i
0001000 n d e n t I 2 r i g h t -
0001020 m a r g i n I 1 i n d e n
0001040 t - s t r i n g I 0 p a r
0001060 a g r a p h ) \0 253 \b \0 \0 004 @ \t
0001100 \0 \0 k 021 002 001 I H 363 263 027 @ I \n \0 \0
0001120 o \0 \0 \0 \n \0 \0 241 h 206 I k 324 Y 260 351
0001140 i 022 221 @ 020 @ g \0 \0 @ \n \0 \0 265 006 @
0001160 \t \0 \0 k 330 \n \0 \0 021 001 002 A \t \0 \0 J
0001200 324 021 001 003 A J o \0 \0 \0 \n \0 \0 \n \0 \0
0001220 021 001 004 021 0 \a C 3 020 224 o \0 \0 \0 200 A
0001240 @ \t \0 \0 \n \0 \0 B K C 3 020 265 003 j 324
0001260 325 B K 325 \v \0 \0 260 037 d d 002 231 001 g \0
0001300 \0 L h 032 032 032 202 001 h 032 ] 003 227 N 265 022
0001320 M _ 016 ^ 277 002 003 265 342 O 016 022 \t \0 \0 020
0001340 \t \0 \0 ^ M 031 260 356 \0 ( 1 6 4 L A
0001360 S T 1 6 0 C O N C A T L I S
0001400 T 1 2 0 T E D I T - I N D E
0001420 N T - B R E A K - L I N E 1 0
0001440 4 C O N C A T 1 0 1 T E D
0001460 I T - I N D E N T - S T R I P -
0001500 I N D E N T A T I O N 8 1 C
0001520 O N C A T 7 8 A L L O C S T
0001540 R I N G 6 4 N C H A R S 5
0001560 7 \ T E D I T - I N D E N T -
0001600 C O U N T - S P A C E S 5 2
0001620 N C H A R S 4 6 S T R P O S
0001640 2 4 M E M B 1 7 N T H C
0001660 H A R C O D E 3 N C H A R S
0001700 ) \r ( 1 3 0 % \r 4 2 % \r )
0001720 \r ( 9 5 " " 7 5 " "
0001740 2 1 ( 3 2 1 3 ) ) \r T E D I
0001760 T - I N D E N T - B R E A K - L
0002000 I N E : D 4 \r ( P 2 b r e
0002020 a k - p o i n t P 1 e x i
0002040 s t i n g - e o l I 2 m a
0002060 x - l e n g t h I 1 f i r
0002100 s t - l i n e - m a x - l e n g
0002120 t h I 0 s t r i n g ) \0
0002140 214 003 \0 \0 003 @ d 262 023 o \0 \0 \0 \n \0 \0
0002160 247 @ g \0 \0 \n \0 \0 221 h 020 o \0 \0 \0 021
0002200 001 \0 H d 002 253 l \r h 032 \t \0 \0 030 i 031
0002220 277 H 022 001 @ \n \0 \0 021 001 001 I 265 \v @ \t
0002240 \0 \0 A 363 262 024 I 3 020 262 023 I @ \t \0 \0
0002260 360 231 I d A 363 245 277 @ h 032 020 I 3 020 225
0002300 A I 363 221 I 204 @ A \n \0 \0 021 001 002 @ k
0002320 J k 331 \v \0 \0 265 006 o \0 \0 \0 @ J k 330
0002340 \n \0 \0 265 006 o \0 \0 \0 B d \v \0 \0 032 020
0002360 \0 ( 1 3 6 T E D I T - I N D E
0002400 N T - B R E A K - L I N E 1 2
0002420 5 S U B S T R I N G 1 1 2
0002440 S U B S T R I N G 1 0 1 T E
0002460 D I T - I N D E N T - F I N D -
0002500 B R E A K P O I N T 7 4 N C
0002520 H A R S 6 0 N C H A R S 5
0002540 0 S T R P O S L 3 9 M A K
0002560 E B I T T A B L E 1 8 S T R
0002600 I N G - E Q U A L 1 0 S T R
0002620 I N G - E Q U A L ) \r ( 1 5 %
0002640 \r ) \r ( 1 3 1 " " 1 1 8
0002660 " " 2 5 ( N I L ) 7 " "
0002700 ) \r T E D I T - I N D E N T - B
0002720 R E A K - L O N G - L I N E S
0002740 : D 4 \r ( P 4 s t r i n g
0002760 P 2 h a n g i n g - i n d e
0003000 n t P 0 s e l e c t i o n
0003020 I 1 e x p l i c i t - p a
0003040 r a g r a p h - b r e a k s ?
0003060 I 0 t e x t - s t r e a m )
0003100 \0 n 005 \0 \0 002 @ \t \0 \0 021 001 \0 @ H
0003120 @ H \n \0 \0 A \n \0 \0 H 006 \0 \0 311 016 001
0003140 006 \0 \0 311 026 H 006 \0 \0 311 006 \n \0 \0 h 360
0003160 264 025 H 006 \0 \0 311 006 H 006 \0 \0 311 016 001 006
0003200 \0 \0 311 026 325 021 " 004 I \ 003 262 K L 001
0003220 o \0 \0 \0 ` \0 \0 J \f \0 \0 g \0 \0 h 032
0003240 032 h 272 \n \0 \0 273 L 002 260 340 K 022 \t \0 \0
0003260 \v \0 \0 020 \0 ( 1 0 7 T E D I T -
0003300 I N D E N T - R E P L A C E - S
0003320 E L E C T I O N 1 0 4 C O N
0003340 C A T L I S T 9 4 \ N C O N
0003360 C 2 8 3 T E D I T - I N D E
0003400 N T - A D D - I N D E N T A T I
0003420 O N 3 8 E Q P 1 7 T E D
0003440 I T - I N D E N T - S E P E R A
0003460 T E - P A R A G R A P H S 1 3
0003500 T E D I T . S E L . A S . S T
0003520 R I N G 3 T E D I T . G E T
0003540 S E L ) \r ( 8 6 % \r 7 9 *
0003560 T E D I T - I N D E N T - L I N
0003600 E - L E N G T H * 5 8 L I N
0003620 E D E S C R I P T O R 5 2 S
0003640 E L E C T I O N 4 6 S E L E
0003660 C T I O N 3 3 S E L E C T I
0003700 O N 2 7 L I N E D E S C R I
0003720 P T O R 2 1 S E L E C T I O
0003740 N ) \r ( 7 6 " " ) \r T E D I
0003760 T - I N D E N T - F I N D - B R
0004000 E A K P O I N T : D 4 \r ( P
0004020 1 w h i t e - s p a c e - c h
0004040 a r s I 1 m a x - l e n g
0004060 t h I 0 s t r i n g ) \0
0004100 > 002 \0 \0 002 o \0 \0 \0 021 001 \0 H d 002 263
0004120 024 l l \t l \r h 032 032 032 \t \0 \0 030 i
0004140 031 277 H 022 001 021 001 001 I @ A h i \r 005 \0
0004160 \0 265 020 I @ A \v \0 \0 265 \b @ \t \0 \0 k
0004200 330 020 \0 ( 5 7 N C H A R S 5 1
0004220 S T R P O S L 4 3 S T R P
0004240 O S L 2 4 M A K E B I T T A
0004260 B L E ) \r N I L \r ( 3 ( N I
0004300 L ) ) \r T E D I T - I N D E N T
0004320 - R E P L A C E - S E L E C T I
0004340 O N : D 4 \r ( P 0 s t a r
0004360 t I 2 n e w - t e x t I
0004400 1 s e l e c t i o n I 0
0004420 t e x t - s t r e a m ) \0 ,
0004440 001 \0 \0 003 A 006 \0 \0 311 006 021 001 \0 @ H A
0004460 006 \0 \0 311 \f g \0 \0 i \r 005 \0 \0 @ B \n
0004500 \0 \0 @ H B \t \0 \0 g \0 \0 \f \0 \0 020 \0
0004520 ( 4 1 T E D I T . S E T S E L
0004540 3 5 N C H A R S 2 9 T E
0004560 D I T . I N S E R T 2 4 T E
0004600 D I T . S E T S E L ) \r ( 3 8
0004620 R I G H T 1 9 L E F T 1 4
0004640 S E L E C T I O N 3 S E L
0004660 E C T I O N ) \r ( ) \r T E D I T
0004700 - I N D E N T - S E L E C T I O
0004720 N : D 4 \r ( P 4 s t r i n
0004740 g P 2 h a n g i n g - i n
0004760 d e n t P 0 s e l e c t i
0005000 o n I 1 e x p l i c i t -
0005020 p a r a g r a p h - b r e a k s
0005040 ? I 0 t e x t - s t r e a
0005060 m ) \0 m 005 \0 \0 002 @ \t \0 \0 021 001 \0
0005100 @ H @ H \n \0 \0 A \n \0 \0 H 006 \0 \0 311
0005120 016 001 006 \0 \0 311 026 H 006 \0 \0 311 006 \n \0 \0
0005140 h 360 264 025 H 006 \0 \0 311 006 H 006 \0 \0 311 016
0005160 001 006 \0 \0 311 026 325 021 " 004 I \ 003 262 037 K
0005200 L 001 ` \0 \0 ` \0 \0 J \f \0 \0 g \0 \0 h
0005220 032 032 h 272 \n \0 \0 273 L 002 260 341 K 022 \t \0
0005240 \0 \v \0 \0 020 \0 ( 1 0 6 T E D I T
0005260 - I N D E N T - R E P L A C E -
0005300 S E L E C T I O N 1 0 3 C O
0005320 N C A T L I S T 9 3 \ N C O
0005340 N C 2 8 2 T E D I T - I N D
0005360 E N T - A D D - I N D E N T A T
0005400 I O N 3 8 E Q P 1 7 T E
0005420 D I T - I N D E N T - S E P E R
0005440 A T E - P A R A G R A P H S 1
0005460 3 T E D I T . S E L . A S . S
0005500 T R I N G 3 T E D I T . G E
0005520 T S E L ) \r ( 8 5 % \r 7 8
0005540 * T E D I T - I N D E N T - L I
0005560 N E - L E N G T H * 7 5 * T
0005600 E D I T - I N D E N T - S T R I
0005620 N G * 5 8 L I N E D E S C R
0005640 I P T O R 5 2 S E L E C T I
0005660 O N 4 6 S E L E C T I O N
0005700 3 3 S E L E C T I O N 2 7
0005720 L I N E D E S C R I P T O R 2
0005740 1 S E L E C T I O N ) \r ( ) \r
0005760 T E D I T - I N D E N T - S E L
0006000 E C T I O N - K E E P I N G - L
0006020 I N E B R E A K S : D 4 \r ( I
0006040 0 t e x t - s t r e a m )
0006060 \0 \a \0 \0 \0 001 @ i \n \0 \0 020 \0 ( 4
0006100 T E D I T - I N D E N T - S E L
0006120 E C T I O N ) \r N I L \r ( ) \r T
0006140 E D I T - I N D E N T - S E P E
0006160 R A T E - P A R A G R A P H S
0006200 : D 4 \r ( I 1 e x p l i c i
0006220 t - p a r a g r a p h - b r e a
0006240 k s ? I 0 s t r i n g )
0006260 \0 024 \0 \0 \0 002 @ \t \0 \0 241 h 020 A 224 @
0006300 \t \0 \0 020 @ \t \0 \0 020 \0 ( 1 7 \ T
0006320 E D I T - I N D E N T - S E P E
0006340 R A T E - P A R A G R A P H S
0006360 1 2 \ T E D I T - I N D E N T
0006400 - S E P E R A T E - L I N E S
0006420 3 S T R I N G P ) \r N I L \r (
0006440 ) \r T E D I T - I N D E N T - S
0006460 E T - I N D E N T : D 4 \r ( P
0006500 1 p w i n d o w P 0 w
0006520 i n d o w I 0 t e x t - s
0006540 t r e a m ) \0 < 002 \0 \0 001 @ \t \0
0006560 \0 006 \0 \0 311 022 021 001 \0 H 265 # ` \0 \0 021
0006600 001 001 I \t \0 \0 o \0 \0 \0 ` \0 \0 h I h
0006620 d l \r h 032 \r \a \0 \0 027 \0 \0 020 d 003 222
0006640 277 H 001 \t \0 \0 260 331 \0 ( 5 6 G E T
0006660 P R O M P T W I N D O W 4 3
0006700 P R O M P T F O R W O R D 2 4
0006720 C L E A R W 3 T E X T O B
0006740 J ) \r ( 4 6 * T E D I T - I N
0006760 D E N T - S T R I N G * 3 1
0007000 * T E D I T - I N D E N T - S T
0007020 R I N G * 1 7 P R O M P T W
0007040 I N D O W 6 T E X T O B J )
0007060 \r ( 2 8 " N e w i n d e n
0007100 t s t r i n g : " ) \r T E D
0007120 I T - I N D E N T - S T R I P -
0007140 I N D E N T A T I O N : D 4 \r
0007160 ( P 1 e o l - p o s P 0
0007200 s t r i n g I 1 f i r s
0007220 t - l i n e - t o o ? I 0
0007240 p a r a g r a p h ) \0 ` 002 \0 \0
0007260 002 @ k 021 002 001 g \0 \0 H \n \0 \0 Y 265 027
0007300 A 262 M H d k \n \0 \0 k 330 \n \0 \0 265 006
0007320 o \0 \0 \0 020 H \t \0 \0 \n \0 \0 231 H k I
0007340 k 331 \v \0 \0 260 & H k I k 331 \v \0 \0 o
0007360 \0 \0 \0 H I H I k 330 \n \0 \0 k 324 324 \n
0007400 \0 \0 265 006 o \0 \0 \0 \v \0 \0 270 260 252 H 020
0007420 \0 ( 8 9 C O N C A T 8 0 S
0007440 U B S T R I N G 7 4 \ T E D
0007460 I T - I N D E N T - C O U N T -
0007500 S P A C E S 6 1 S U B S T R
0007520 I N G 5 1 S U B S T R I N G
0007540 4 2 E Q P 3 9 N C H A R
0007560 S 2 8 S U B S T R I N G 2
0007600 3 \ T E D I T - I N D E N T -
0007620 C O U N T - S P A C E S 1 1
0007640 S T R P O S ) \r ( 7 % \r ) \r (
0007660 8 6 " " 6 5 " " 3 4
0007700 " " ) \r T E D I T - M A K E -
0007720 L I N E S - E X P L I C I T :
0007740 D 4 \r ( P 6 i P 2 l a
0007760 s t - l i n e P 1 t h i s
0010000 - l i n e P 0 s e l e c t
0010020 i o n I 0 t e x t - s t r
0010040 e a m ) \0 h \a \0 \0 001 @ \t \0 \0 021
0010060 001 \0 H 006 \0 \0 311 016 001 H 006 \0 \0 311 020 \t
0010100 \0 \0 001 021 2 005 I 006 \0 \0 311 030 275 L 265 030
0010120 M h 032 \ 273 I 006 \0 \0 311 034 Y d J 360 262
0010140 350 277 K 022 260 ! M & 274 260 354 d 001 021 001 006
0010160 @ N k g \0 \0 i \r 005 \0 \0 277 @ g \0 \0
0010200 \n \0 \0 023 002 003 265 345 @ H h g \0 \0 \f \0
0010220 \0 020 \0 ( 1 0 1 T E D I T . S E
0010240 T S E L 8 7 T E D I T . I N
0010260 S E R T 7 9 T E D I T . S E
0010300 T S E L 2 2 L A S T 3 T
0010320 E D I T . G E T S E L ) \r ( 9 8
0010340 R I G H T 8 4 % \r 7 4
0010360 L E F T 4 5 L I N E D E S C
0010400 R I P T O R 3 0 L I N E D E
0010420 S C R I P T O R 1 7 S E L E
0010440 C T I O N 1 0 S E L E C T I
0010460 O N ) \r ( ) \r T E D I T - O P E
0010500 N - L I N E : D 4 \r ( P 0
0010520 s e l e c t i o n I 0 t e
0010540 x t - s t r e a m ) \0 G 002 \0 \0
0010560 001 @ \t \0 \0 021 021 001 @ g \0 \0 H 006 \0 \0
0010600 311 006 H 006 \0 \0 311 016 001 006 \0 \0 311 026 325 o
0010620 \0 \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 H 006 \0 \0
0010640 311 \f Y j 360 252 I 005 003 264 \r I \t \0 \0 264
0010660 \a @ H \n \0 \0 020 \0 ( 6 8 T E D I
0010700 T . S E T S E L 6 1 \ F Z E
0010720 R O P 4 2 T E D I T . I N S
0010740 E R T 3 9 C O N C A T 3 6
0010760 A L L O C S T R I N G 3 T
0011000 E D I T . G E T S E L ) \r ( 4 6
0011020 S E L E C T I O N 2 6 L I
0011040 N E D E S C R I P T O R 2 0
0011060 S E L E C T I O N 1 4 S E L
0011100 E C T I O N 1 0 % \r ) \r (
0011120 3 3 " " ) \r T E D I T - R E
0011140 M O V E - I N D E N T : D 4 \r
0011160 ( P 4 p a r a g r a p h P
0011200 0 s e l e c t i o n I 0
0011220 t e x t - s t r e a m ) \0 G
0011240 005 \0 \0 001 @ \t \0 \0 021 001 \0 @ H 021 0 003
0011260 @ H \n \0 \0 \t \0 \0 260 036 d 001 021 001 004 L
0011300 i \n \0 \0 g \0 \0 h 032 032 022 Y 003 226 J 265
0011320 023 I [ Z 277 002 003 265 343 K 022 \t \0 \0 \v \0
0011340 \0 020 \t \0 \0 Z I 031 260 354 \0 ( 6 4 L
0011360 A S T 6 0 T E D I T - I N D
0011400 E N T - R E P L A C E - S E L E
0011420 C T I O N 5 7 C O N C A T L
0011440 I S T 3 1 T E D I T - I N D
0011460 E N T - S T R I P - I N D E N T
0011500 A T I O N 1 9 T E D I T - I
0011520 N D E N T - S E P E R A T E - P
0011540 A R A G R A P H S 1 6 T E D
0011560 I T . S E L . A S . S T R I N G
0011600 3 T E D I T . G E T S E L )
0011620 \r ( 3 4 % \r ) \r ( ) \r \ T E D
0011640 I T - I N D E N T - C O U N T -
0011660 S P A C E S : D 4 \r ( P 1
0011700 m a x - p o s P 0 i I
0011720 1 s t a r t - p o s I 0
0011740 s t r i n g ) \0 / 002 \0 \0 002 @ \t
0011760 \0 \0 241 j 020 A @ \t \0 \0 021 002 001 H d I
0012000 363 254 277 @ H \n \0 \0 l \n \0 \0 247 H 265
0012020 003 i 022 A 325 020 H k 324 X 260 344 \0 ( 3 0
0012040 E Q P 2 5 N T H C H A R C
0012060 O D E 1 1 N C H A R S 3
0012100 S T R I N G P ) \r N I L \r ( ) \r
0012120 \ T E D I T - I N D E N T - F I
0012140 N D - P A R A G R A P H - E N D
0012160 : D 4 \r ( P 2 i P 0
0012200 e o l - p o s I 2 a f t e
0012220 r - p o s I 1 p a r a g r
0012240 a p h - i n d e n t I 0 s
0012260 t r i n g ) \0 \ 003 \0 \0 003 g \0 \0
0012300 @ B k 330 \v \0 \0 021 001 \0 H 265 \t @ \t \0
0012320 \0 k 330 020 k 331 B k 330 021 002 002 J I 363 263
0012340 025 @ J \n \0 \0 l \n \0 \0 241 h 206 J k
0012360 324 Z 260 353 i 022 221 B 020 H @ \t \0 \0 \n \0
0012400 \0 221 H 020 A @ H k 330 \n \0 \0 \n \0 \0 262
0012420 363 @ A H \v \0 \0 020 \0 ( 8 9 \ T E
0012440 D I T - I N D E N T - F I N D -
0012460 P A R A G R A P H - E N D 8 1
0012500 E Q P 7 8 \ T E D I T - I
0012520 N D E N T - C O U N T - S P A C
0012540 E S 6 7 E Q P 6 4 N C H
0012560 A R S 4 5 E Q P 4 0 N T
0012600 H C H A R C O D E 1 9 N C H
0012620 A R S 9 S T R P O S ) \r ( 2
0012640 % \r ) \r ( ) \r \ T E D I T - I
0012660 N D E N T - S E P E R A T E - L
0012700 I N E S : D 4 \r ( P 0 e o
0012720 l - p o s I 1 c u r r e n
0012740 t - l i n e s I 0 r e m a
0012760 i n i n g - s t r i n g ) \0 @
0013000 001 \0 \0 002 @ \t \0 \0 254 A \t \0 \0 265 5 o
0013020 \0 \0 \0 h 032 020 g \0 \0 @ \n \0 \0 265 \b @
0013040 \t \0 \0 k 330 021 001 \0 @ H k 330 \n \0 \0 @
0013060 k H k 331 \v \0 \0 265 006 o \0 \0 \0 A 032 \n
0013100 \0 \0 020 \0 ( 6 1 \ T E D I T - I
0013120 N D E N T - S E P E R A T E - L
0013140 I N E S 5 0 S U B S T R I N
0013160 G 4 2 S U B S T R I N G 3
0013200 0 N C H A R S 2 4 S T R P
0013220 O S 8 D R E V E R S E 3
0013240 S T R I N G P ) \r ( 2 0 % \r )
0013260 \r ( 5 6 " " 1 4 " " ) \r
0013300 \ T E D I T - I N D E N T - S E
0013320 P E R A T E - P A R A G R A P H
0013340 S : D 4 \r ( P 3 p a r a -
0013360 e n d - p o s P 2 i P
0013400 0 e o l - p o s I 1 c u
0013420 r r e n t - p a r a g r a p h s
0013440 I 0 s t r i n g ) \0 206 004
0013460 \0 \0 002 @ \t \0 \0 244 A \t \0 \0 020 g \0 \0
0013500 @ \n \0 \0 021 001 \0 H 265 \t @ A 032 \t \0 \0
0013520 020 k 331 k 021 002 002 J I 363 263 025 @ J \n \0
0013540 \0 l \n \0 \0 241 h 206 J k 324 Z 260 353 i
0013560 022 262 023 @ H k 330 \n \0 \0 o \0 \0 \0 A 032
0013600 \n \0 \0 020 H @ \t \0 \0 \n \0 \0 263 276 @ d
0013620 H k 330 \n \0 \0 H \v \0 \0 021 001 003 @ K k
0013640 330 \n \0 \0 @ k K k 331 \v \0 \0 265 006 o \0
0013660 \0 \0 A 032 \n \0 \0 020 \0 ( 1 3 1 \ T
0013700 E D I T - I N D E N T - S E P E
0013720 R A T E - P A R A G R A P H S
0013740 1 2 0 S U B S T R I N G 1 1
0013760 2 S U B S T R I N G 1 0 2
0014000 \ T E D I T - I N D E N T - F I
0014020 N D - P A R A G R A P H - E N D
0014040 9 8 \ T E D I T - I N D E N
0014060 T - C O U N T - S P A C E S 8
0014100 8 E Q P 8 5 N C H A R S
0014120 7 9 \ T E D I T - I N D E N T
0014140 - S E P E R A T E - P A R A G R
0014160 A P H S 7 0 S U B S T R I N
0014200 G 5 0 E Q P 4 5 N T H C
0014220 H A R C O D E 2 8 D R E V E
0014240 R S E 1 6 S T R P O S 8
0014260 D R E V E R S E 3 S T R I N
0014300 G P ) \r ( 1 2 % \r ) \r ( 1 2
0014320 6 " " 7 4 " " ) \r ( P R E
0014340 T T Y C O M P R I N T L A F I
0014360 T E - I N D E N T C O M S ) \r (
0014400 R P A Q Q L A F I T E - I N D
0014420 E N T C O M S ( ( * * L A
0014440 F I T E - I N D E N T d e f i
0014460 n e s a f u n c t i o n t
0014500 h a t w i l l i n d e n t
0014520 t h e c u r r e n t \r s e l
0014540 e c t i o n . ) ( F N S T E
0014560 D I T - I N D E N T - A D D - I
0014600 N D E N T A T I O N T E D I T
0014620 - I N D E N T - B R E A K - L I
0014640 N E T E D I T - I N D E N T -
0014660 B R E A K - L O N G - L I N E S
0014700 \r T E D I T - I N D E N T - F
0014720 I N D - B R E A K P O I N T T
0014740 E D I T - I N D E N T - R E P L
0014760 A C E - S E L E C T I O N T E
0015000 D I T - I N D E N T - S E L E C
0015020 T I O N \r T E D I T - I N D E
0015040 N T - S E L E C T I O N - K E E
0015060 P I N G - L I N E B R E A K S
0015100 T E D I T - I N D E N T - S E P
0015120 E R A T E - P A R A G R A P H S
0015140 T E D I T - I N D E N T - S E
0015160 T - I N D E N T \r T E D I T -
0015200 I N D E N T - S T R I P - I N D
0015220 E N T A T I O N T E D I T - M
0015240 A K E - L I N E S - E X P L I C
0015260 I T T E D I T - O P E N - L I
0015300 N E T E D I T - R E M O V E -
0015320 I N D E N T \r \ T E D I T - I
0015340 N D E N T - C O U N T - S P A C
0015360 E S \ T E D I T - I N D E N T
0015400 - F I N D - P A R A G R A P H -
0015420 E N D \ T E D I T - I N D E N
0015440 T - S E P E R A T E - L I N E S
0015460 \r \ T E D I T - I N D E N T -
0015500 S E P E R A T E - P A R A G R A
0015520 P H S ) ( I N I T V A R S (
0015540 * T E D I T - I N D E N T - S T
0015560 R I N G * ( A L L O C S T R I
0015600 N G 4 " " ) ) ( \r * T E
0015620 D I T - I N D E N T - L I N E -
0015640 L E N G T H * 7 2 ) ) ( C O
0015660 N S T A N T S ( * e o l - s t
0015700 r i n g * ( C H A R A C T E R
0015720 ( C H A R C O D E E O L ) )
0015740 ) ) ( G L O B A L V A R S \r
0015760 * T E D I T - I N D E N T - S T
0016000 R I N G * * T E D I T - I N D
0016020 E N T - L I N E - L E N G T H *
0016040 ) ( P ( O R ( G E T D (
0016060 Q U O T E T E D I T ) ) ( F
0016100 I L E S L O A D T E D I T ) )
0016120 ( \r T E D I T . R E M O V E .
0016140 M E N U I T E M T E D I T . D
0016160 E F A U L T . M E N U ( Q U O
0016200 T E I n d e n t ) ) ( T E D
0016220 I T . A D D . M E N U I T E M
0016240 T E D I T . D E F A U L T . M E
0016260 N U ( Q U O T E \r ( I n d e
0016300 n t ( Q U O T E T E D I T -
0016320 I N D E N T - S E L E C T I O N
0016340 ) " I n d e n t t h e c u
0016360 r r e n t s e l e c t i o n "
0016400 ( S U B I T E M S ( I n d e
0016420 n t ( Q U O T E \r T E D I T
0016440 - I N D E N T - S E L E C T I O
0016460 N ) " I n d e n t t h e c
0016500 u r r e n t s e l e c t i o n
0016520 " ) ( " I n d e n t & k e
0016540 e p l i n e s " ( Q U O T E
0016560 \r T E D I T - I N D E N T - S
0016600 E L E C T I O N - K E E P I N G
0016620 - L I N E B R E A K S ) \r " I
0016640 n d e n t t h e c u r r e n
0016660 t s e l e c t i o n , k e e
0016700 p i n g e x i s t i n g l i
0016720 n e b r e a k s " ) ( " S e
0016740 t i n d e n t " ( Q U O T E
0016760 \r T E D I T - I N D E N T - S
0017000 E T - I N D E N T ) " S e t
0017020 t h e i n d e n t s t r i n
0017040 g t o a n e w v a l u e
0017060 " ) ( U n i n d e n t ( Q U
0017100 O T E T E D I T - R E M O V E
0017120 - I N D E N T ) \r " R e m o v
0017140 e o n e l e v e l o f i
0017160 n d e n t a t i o n f r o m
0017200 t h e c u r r e n t s e l e
0017220 c t i o n " ) ( " O p e n l
0017240 i n e " ( Q U O T E T E D I
0017260 T - O P E N - L I N E ) \r " O
0017300 p e n a b l a n k l i n e
0017320 a t t h e c u r r e n t
0017340 p o s i t i o n " ) ( " I n s
0017360 e r t < R E T U R N > s " (
0017400 Q U O T E T E D I T - M A K E
0017420 - L I N E S - E X P L I C I T )
0017440 \r " I n s e r t r e a l <
0017460 R E T U R N > s a t t h e
0017500 e n d o f e a c h l i n e
0017520 i n t h e c u r r e n t
0017540 s e l e c t i o n " ) ( " B r
0017560 e a k l o n g l i n e s "
0017600 ( Q U O T E \r T E D I T - I N
0017620 D E N T - B R E A K - L O N G -
0017640 L I N E S ) " B r e a k l o
0017660 n g l i n e s b y i n s e
0017700 r t i n g e x p l i c i t <
0017720 R E T U R N > ' s " ) ) ) ) ) )
0017740 ) ) \r ( R P A Q ? * T E D I T
0017760 - I N D E N T - S T R I N G *
0020000 ( A L L O C S T R I N G 4 "
0020020 " ) ) \r ( R P A Q ? * T E D
0020040 I T - I N D E N T - L I N E - L
0020060 E N G T H * 7 2 ) \r ( R P A Q
0020100 * e o l - s t r i n g * ( C
0020120 H A R A C T E R ( C H A R C O
0020140 D E E O L ) ) ) \r ( C O N S T
0020160 A N T S ( * e o l - s t r i n
0020200 g * ( C H A R A C T E R ( C
0020220 H A R C O D E E O L ) ) ) ) \r
0020240 ( O R ( G E T D ( Q U O T E
0020260 T E D I T ) ) ( F I L E S L
0020300 O A D T E D I T ) ) \r ( T E D
0020320 I T . R E M O V E . M E N U I T
0020340 E M T E D I T . D E F A U L T
0020360 . M E N U ( Q U O T E I n d
0020400 e n t ) ) \r ( T E D I T . A D D
0020420 . M E N U I T E M T E D I T .
0020440 D E F A U L T . M E N U ( Q U
0020460 O T E ( I n d e n t ( Q U O
0020500 T E T E D I T - I N D E N T -
0020520 S E L E C T I O N ) \r " I n d
0020540 e n t t h e c u r r e n t
0020560 s e l e c t i o n " ( S U B I
0020600 T E M S ( I n d e n t ( Q U
0020620 O T E T E D I T - I N D E N T
0020640 - S E L E C T I O N ) \r " I n
0020660 d e n t t h e c u r r e n t
0020700 s e l e c t i o n " ) ( " I
0020720 n d e n t & k e e p l i n
0020740 e s " ( Q U O T E \r T E D I
0020760 T - I N D E N T - S E L E C T I
0021000 O N - K E E P I N G - L I N E B
0021020 R E A K S ) \r " I n d e n t
0021040 t h e c u r r e n t s e l e
0021060 c t i o n , k e e p i n g e
0021100 x i s t i n g l i n e b r e
0021120 a k s " ) ( " S e t i n d e
0021140 n t " ( Q U O T E \r T E D I
0021160 T - I N D E N T - S E T - I N D
0021200 E N T ) " S e t t h e i n
0021220 d e n t s t r i n g t o a
0021240 n e w v a l u e " ) ( U n
0021260 i n d e n t ( Q U O T E T E
0021300 D I T - R E M O V E - I N D E N
0021320 T ) \r " R e m o v e o n e
0021340 l e v e l o f i n d e n t a
0021360 t i o n f r o m t h e c u
0021400 r r e n t s e l e c t i o n "
0021420 ) ( " O p e n l i n e " (
0021440 Q U O T E T E D I T - O P E N
0021460 - L I N E ) \r " O p e n a
0021500 b l a n k l i n e a t t h
0021520 e c u r r e n t p o s i t i
0021540 o n " ) ( " I n s e r t < R
0021560 E T U R N > s " ( Q U O T E
0021600 T E D I T - M A K E - L I N E S
0021620 - E X P L I C I T ) \r " I n s
0021640 e r t r e a l < R E T U R N
0021660 > s a t t h e e n d o f
0021700 e a c h l i n e i n t h
0021720 e c u r r e n t s e l e c t
0021740 i o n " ) ( " B r e a k l o
0021760 n g l i n e s " ( Q U O T E
0022000 \r T E D I T - I N D E N T - B
0022020 R E A K - L O N G - L I N E S )
0022040 " B r e a k l o n g l i n
0022060 e s b y i n s e r t i n g
0022100 e x p l i c i t < R E T U R N
0022120 > ' s " ) ) ) ) ) \r ( P U T P R
0022140 O P S L A F I T E - I N D E N
0022160 T C O P Y R I G H T ( " X e
0022200 r o x C o r p o r a t i o n "
0022220 1 9 8 6 1 9 8 7 ) ) \r N I L
0022240 \r
0022241