$ od -c -N 50000 [eris]<LispUsers>EDITMACROS.DCOM!10
0000000 ( F I L E C R E A T E D " 2 3
0000020 - S E P - 8 3 1 3 : 4 2 : 1 0
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P U
0000100 S E R S > E D I T M A C R O S .
0000120 ; 1 1 ) \r " 1 7 - S E P - 8 3
0000140 1 7 : 0 5 : 4 6 " r e c o m
0000160 p i l e d c h a n g e s : \
0000200 E D I T . P R E P A R E S W I T
0000220 C H \ E D I T . B Q U O T I F
0000240 Y \ E D I T . B Q U O T I F Y
0000260 . 1 i n W O R K \r d a t e
0000300 d " 1 9 - S E P - 8 3 1 3 :
0000320 4 5 : 1 8 " ) \r ( F I L E C R E
0000340 A T E D " 2 3 - S E P - 8 3
0000360 1 3 : 4 0 : 5 8 " { P H Y L U
0000400 M } < L I S P U S E R S > E D I
0000420 T M A C R O S . ; 1 1 9 3 8 4
0000440 c h a n g e s t o : ( F N
0000460 S \r \ E D I T . B Q U O T I F
0000500 Y \ E D I T . P R E P A R E S
0000520 W I T C H \ E D I T . B Q U O
0000540 T I F Y . 1 ) ( V A R S E D
0000560 I T M A C R O S C O M S ) ( U
0000600 S E R M A C R O S B Q U O T E
0000620 ) \r p r e v i o u s d a t e
0000640 : " 3 - J U L - 8 3 0 7 :
0000660 1 9 : 0 3 " { P H Y L U M } <
0000700 L I S P U S E R S > E D I T M A
0000720 C R O S . ; 9 ) \r \ E D I T . C
0000740 O N D C L A U S E S . T O . I F
0000760 D 1 \r ( P 1 T E M P 0
0001000 L I 0 X ) \0 273 004 \0 \0 001
0001020 021 @ 003 @ \t \0 \0 k 331 272 k [ J 361 263 H
0001040 @ d 001 002 263 036 277 g \0 \0 @ 001 001 @ 002 264
0001060 \a @ 002 \t \0 \0 h 032 032 032 g \0 \0 H 032 032
0001100 260 b 001 002 \t \0 \0 g \0 \0 @ 001 001 g \0 \0
0001120 h 032 032 032 H \n \0 \0 \n \0 \0 270 @ 002 b \0
0001140 277 K k 330 260 267 @ d 001 002 251 001 001 g \0 \0
0001160 H 032 032 260 / 001 002 \t \0 \0 @ 001 001 \t \0 \0
0001200 234 @ 001 001 \t \0 \0 225 g \0 \0 h 032 214 g \0
0001220 \0 @ 001 001 g \0 \0 h 032 032 032 H \n \0 \0 \n
0001240 \0 \0 X \t \0 \0 X d 001 d g \0 \0 360 236 277
0001260 H d 002 002 225 g \0 \0 030 277 214 002 001 020 g \0
0001300 \0 360 224 H g \0 \0 030 H 020 \0 ( 2 2 5 Q
0001320 D R E V E R S E 2 2 1 Q \
0001340 N C O N C 2 2 1 6 Q \ N C O
0001360 N C 2 1 6 6 Q E V A L 1 5
0001400 7 Q C O N S T A N T E X P R E
0001420 S S I O N P 1 5 1 Q R E V E
0001440 R S E 1 1 2 Q \ N C O N C 2
0001460 1 0 7 Q \ N C O N C 2 6 6
0001500 Q R E V E R S E 4 5 Q \ E
0001520 D I T . C O N D C L A U S E S .
0001540 T O . I F 6 L E N G T H ) \r
0001560 ( 2 6 6 Q i f 2 6 0 Q e l
0001600 s e i f 2 4 7 Q P R O G N
0001620 2 3 4 Q e l s e 2 0 6 Q e
0001640 l s e i f 2 0 0 Q t h e n
0001660 1 7 2 Q e l s e 1 3 7 Q e
0001700 l s e 7 7 Q e l s e i f 7
0001720 1 Q t h e n 5 4 Q e l s e
0001740 3 1 Q O R ) \r N I L \r \ E D
0001760 I T . I F . T O . C O N D C L A
0002000 U S E S D 1 \r ( P 5 T E M
0002020 P 4 L P 3 U I T E M
0002040 P 2 I T E M P 1 C O
0002060 N D I T I O N F L G P 0 C
0002100 L A U S E I 0 X ) \0 355 006
0002120 \0 \0 001 @ 001 \t \0 \0 g \0 \0 360 243 \b \0 \0
0002140 277 @ 002 b \0 d 001 @ 002 b \0 277 h 032 g \0
0002160 \0 021 B 005 @ 003 265 023 I 265 003 202 261 \0 247 H
0002200 \t \0 \0 L 032 \ 261 \0 257 001 @ 002 b \0 277 Z
0002220 004 l 004 360 264 006 J \t \0 \0 273 I 265 030 K g
0002240 \0 \0 360 245 K g \0 \0 360 222 i 260 N J H 032
0002260 270 h 260 G g \0 \0 360 262 % K d g \0 \0 360
0002300 224 277 h Y 260 025 g \0 \0 360 232 g \0 \0 271 H
0002320 L 032 274 h X 202 \b \0 \0 277 h 260 036 I g \0
0002340 \0 360 262 024 K g \0 \0 360 245 K g \0 \0 360 221
0002360 i 206 \b \0 \0 202 \b \0 \0 242 261 377 z H \t \0
0002400 \0 L 032 274 K g \0 \0 360 227 i @ 032 L 032 \
0002420 260 % @ 001 @ 002 b \0 277 h 032 270 g \0 \0 271
0002440 261 377 T g \0 \0 360 223 \b \0 \0 210 I g \0 \0
0002460 360 243 \b \0 \0 277 g \0 \0 L \t \0 \0 032 020 \0
0002500 ( 3 5 1 Q D R E V E R S E 3
0002520 4 1 Q S H O U L D N T 3 2 7
0002540 Q E R R O R 2 5 5 Q D R E
0002560 V E R S E 2 4 5 Q S H O U L
0002600 D N T 2 4 1 Q E R R O R 2
0002620 0 5 Q E R R O R 1 0 6 Q U
0002640 - C A S E 5 7 Q D R E V E R
0002660 S E 1 4 Q E R R O R 4 U
0002700 - C A S E ) \r ( 3 4 5 Q C O N
0002720 D 3 3 4 Q E L S E I F 3 2
0002740 2 Q T H E N 3 1 3 Q T H E
0002760 N 2 6 4 Q E L S E 2 3 2 Q
0003000 E L S E I F 2 2 4 Q E L S
0003020 E 2 1 5 Q E L S E I F 1 7
0003040 2 Q E L S E I F 1 6 5 Q T
0003060 H E N R E T 1 5 3 Q T H E N
0003100 1 4 3 Q T H E N 1 2 4 Q
0003120 E L S E I F 1 1 6 Q E L S E
0003140 3 5 Q T H E N 7 I F ) \r
0003160 N I L \r \ E D I T . P R E P A R
0003200 E C O P Y D 1 \r ( P 6 T O
0003220 . L O C A T O R P 5 I . O
0003240 P P 4 F R O M . L O C A T
0003260 O R I 0 L L ) \0 243 \a \0 \0
0003300 001 @ 021 1 003 H b \0 d 003 262 035 d 001 g \0
0003320 \0 360 263 025 001 273 J 265 \v K h 032 Z 271 @ 002
0003340 260 346 K & 272 260 371 002 b \0 277 I 022 @ 001 @
0003360 002 b \0 021 003 006 M 223 L 246 N 244 o \0 \0 \0
0003400 020 o \0 \0 \0 L 264 \t g \0 \0 L 032 h 032 o
0003420 \0 \0 \0 N 264 \t g \0 \0 N 032 h 032 o \0 \0
0003440 \0 g \0 \0 M g \0 \0 360 224 o \0 \0 \0 203 o
0003460 \0 \0 \0 o \0 \0 \0 g \0 \0 M o \0 \0 \0 h
0003500 032 032 032 h 032 h 032 032 032 032 h 032 o \0 \0 \0
0003520 \n \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 \n
0003540 \0 \0 020 \0 ( 2 4 0 Q \ A P P E N
0003560 D 2 2 3 5 Q \ A P P E N D 2
0003600 2 3 2 Q \ A P P E N D 2 2
0003620 2 7 Q \ A P P E N D 2 2 2 4
0003640 Q \ A P P E N D 2 2 2 1 Q
0003660 \ A P P E N D 2 ) \r ( 1 7 0 Q
0003700 I 1 4 6 Q N 1 4 2 Q I F
0003720 1 2 7 Q L C 1 1 1 Q L C
0003740 1 7 Q T O ) \r ( 2 1 6 Q (
0003760 _ _ ) 1 7 5 Q ( C O P Y #
0004000 3 ) 1 6 5 Q ( ( E ( Q U O
0004020 T E ( N E S T E D L O C A T
0004040 I O N S ) ) ) ) 1 6 1 Q ( A
0004060 N D ( L I S T P ( C A R #
0004100 1 ) ) ( M E M B ( C A R #
0004120 1 ) ( C D R # 2 ) ) ) 1 5
0004140 4 Q ( A N D ( L I S T P (
0004160 C A R # 1 ) ) ( M E M B (
0004200 C A R # 1 ) # 2 ) ) 1 3 7
0004220 Q ( ( M A R K # 2 ) ) 1 2
0004240 1 Q ( ( M A R K # 1 ) ( S
0004260 # 3 ) _ ) 1 0 3 Q ( B I
0004300 N D M A R K ) 7 6 Q ( ( E
0004320 ( Q U O T E ? ) ) ) ) \r \ E
0004340 D I T . P R E P A R E S W I T C
0004360 H D 1 \r ( P 5 T O . L O C
0004400 A T O R P 4 F R O M . L O
0004420 C A T O R I 0 L L ) \0 q
0004440 006 \0 \0 001 @ 021 1 003 H b \0 d 003 262 d
0004460 001 o \0 \0 \0 \n \0 \0 263 025 001 273 J 265 \v K
0004500 h 032 Z 271 @ 002 260 343 K & 272 260 371 002 b \0
0004520 277 I 022 @ 021 002 005 L 246 M 244 o \0 \0 \0 020
0004540 o \0 \0 \0 L 264 \t g \0 \0 L 032 h 032 o \0
0004560 \0 \0 M 264 \t g \0 \0 M 032 h 032 o \0 \0 \0
0004600 o \0 \0 \0 \n \0 \0 \n \0 \0 \n \0 \0 \n \0 \0
0004620 \n \0 \0 020 \0 ( 1 5 6 Q \ A P P E
0004640 N D 2 1 5 3 Q \ A P P E N D
0004660 2 1 5 0 Q \ A P P E N D 2
0004700 1 4 5 Q \ A P P E N D 2 1 4
0004720 2 Q \ A P P E N D 2 2 3 Q
0004740 M E M B ) \r ( 1 2 3 Q L C 1
0004760 0 5 Q L C ) \r ( 1 3 7 Q ( _
0005000 _ ) 1 3 3 Q ( ( I F ( O R
0005020 ( A N D ( L I S T P ( C A
0005040 R # 1 ) ) ( F M E M B ( C
0005060 A R # 1 ) ( C D R L ) ) )
0005100 ( A N D ( L I S T P ( C A
0005120 R L ) ) ( F M E M B ( C A
0005140 R L ) ( C D R # 1 ) ) ) )
0005160 ( ( E ( Q U O T E ( N E S
0005200 T E D L O C A T I O N S ) ) )
0005220 ) ( U P ( M A R K # 2 )
0005240 ( \ # 1 ) U P ( I 1 (
0005260 P R O G 1 ( C A A R # 2 )
0005300 ( S E T Q # 1 ( C A A R L
0005320 ) ) ) ) ( \ # 2 ) U P (
0005340 I 1 # 1 ) ) ) ) 1 1 5 Q
0005360 ( ( M A R K # 1 ) _ ) 7 7
0005400 Q ( B I N D M A R K ) 7 2
0005420 Q ( ( E ( Q U O T E ? ) )
0005440 ) 2 0 Q ( W I T H T O ) )
0005460 \r \ E D I T . B Q U O T I F Y
0005500 D 1 \r ( P 7 X P 6 L
0005520 P 3 X I 0 F O R M )
0005540 001 \a \b \0 \0 001 @ d 003 242 261 \0 371 001 d g
0005560 \0 \0 360 226 277 @ 002 001 h 032 020 d g \0 \0 360
0005600 262 1 277 021 0 002 @ 260 031 d 001 021 001 003 K g
0005620 \0 \0 \n \0 \0 022 X 003 226 I 265 017 H Z Y 277
0005640 002 003 265 347 J 022 h 032 020 \t \0 \0 Y H 031 260
0005660 360 d g \0 \0 360 262 ( 277 @ 002 001 g \0 \0 \n
0005700 \0 \0 @ 002 002 001 \t \0 \0 265 016 g \0 \0 @ 002
0005720 002 001 h 032 032 h 032 001 \n \0 \0 h 032 020 d g
0005740 \0 \0 360 262 5 277 @ 002 021 ! 006 L ^ 003 265 026
0005760 M 022 @ 002 \t \0 \0 001 g \0 \0 \n \0 \0 \n \0
0006000 \0 h 032 020 002 262 353 M N 001 g \0 \0 \n \0 \0
0006020 \n \0 \0 275 N 002 260 326 d g \0 \0 360 262 7 277
0006040 @ 002 021 1 \a L ^ 003 262 $ M N 001 \t \0 \0
0006060 _ 016 230 N d 002 225 277 277 h 260 023 N 001 g \0
0006100 \0 \n \0 \0 \n \0 \0 275 N 002 260 334 M 022 d 262
0006120 034 h 032 020 g \0 \0 360 264 \n @ i \n \0 \0 \t
0006140 \0 \0 020 \t \0 \0 264 005 @ h 032 020 \0 ( 3 7
0006160 7 Q C O N S T A N T E X P R E
0006200 S S I O N P 3 7 3 Q \ E D I
0006220 T . B Q U O T I F Y 3 7 0 Q
0006240 E X P A N D M A C R O 3 4 0 Q
0006260 \ N C O N C 2 3 3 5 Q \ E
0006300 D I T . B Q U O T I F Y . 1 3
0006320 1 1 Q \ E D I T . B Q U O T I
0006340 F Y 2 5 4 Q \ N C O N C 2
0006360 2 5 1 Q \ E D I T . B Q U O T
0006400 I F Y . 1 2 3 2 Q \ N C O N
0006420 C 2 2 2 7 Q \ E D I T . B Q
0006440 U O T I F Y . 1 2 2 0 Q L A
0006460 S T 1 6 4 Q \ N C O N C 2
0006500 1 4 2 Q \ E D I T . B Q U O T
0006520 I F Y 1 3 3 Q \ E D I T . B
0006540 Q U O T I F Y . 1 1 0 5 Q L
0006560 A S T 5 6 Q \ E D I T . B Q
0006600 U O T I F Y . 1 ) \r ( 3 6 0 Q
0006620 L I S T @ 3 3 2 Q , @ 2 6
0006640 5 Q N C O N C 2 4 6 Q , @
0006660 2 2 4 Q , . 1 7 3 Q A P
0006700 P E N D 1 4 7 Q , . 1 3 0
0006720 Q , 1 1 6 Q C O N S 5 3
0006740 Q , 3 0 Q L I S T 1 3 Q
0006760 Q U O T E ) \r N I L \r \ E D I
0007000 T . B Q U O T I F Y . 1 D 1 \r
0007020 ( I 1 U N Q U O T E R I
0007040 0 Z ) \0 \r \0 \0 \0 002 @ \t \0 \0 265
0007060 \a A @ h 032 032 020 \0 ( 3 \ E D I T
0007100 . B Q U O T I F Y ) \r N I L \r N
0007120 I L \r ( P R E T T Y C O M P R I
0007140 N T E D I T M A C R O S C O M
0007160 S ) \r ( R P A Q Q E D I T M A
0007200 C R O S C O M S ( ( * T h e
0007220 s e u s e f u l E D I T m
0007240 a c r o s , w h i c h e v e
0007260 r y b o d y n e e d s , o u
0007300 g h t t o g o i n t o t
0007320 h e \r s t a t n d a r d ) (
0007340 F N S \ E D I T . C O N D C L
0007360 A U S E S . T O . I F \ E D I
0007400 T . I F . T O . C O N D C L A U
0007420 S E S \ E D I T . P R E P A R
0007440 E C O P Y \ E D I T . P R E P
0007460 A R E S W I T C H \r \ E D I T
0007500 . B Q U O T I F Y \ E D I T .
0007520 B Q U O T I F Y . 1 ) ( U S E
0007540 R M A C R O S I F Y C O N D
0007560 I F Y C O P Y S W I T C H
0007600 B Q U O T E ) ( P ( P R O G
0007620 ( X ) \r " R e m o v e t h
0007640 o s e a n a c h r o n i s t i
0007660 c F I X 8 a n d F I X 9
0007700 m a c r o s ! " A ( C O N D
0007720 ( ( O R ( S E T Q X ( A
0007740 S S O C ( Q U O T E F I X 8
0007760 ) E D I T M A C R O S \r ) )
0010000 ( S E T Q X ( A S S O C (
0010020 Q U O T E F I X 9 ) E D I T
0010040 M A C R O S ) ) ) ( S E T Q
0010060 E D I T M A C R O S ( D R E M
0010100 O V E X E D I T M A C R O S
0010120 ) ) ( G O A ) ) ) ) ) ) ) \r
0010140 ( A D D T O V A R U S E R M A
0010160 C R O S ( C O N D I F Y N I
0010200 L ( O R R ( ( I F ( F M E
0010220 M B ( # # 1 ) ( Q U O T E
0010240 ( I F i f ) ) ) ) ) ( ( O
0010260 R F ( I F - - ) ( i f -
0010300 - ) ) ) ) \r U P ( I 1 (
0010320 \ E D I T . I F . T O . C O N D
0010340 C L A U S E S ( # # 1 ) ) )
0010360 1 ) ( C O P Y L ( C O M
0010400 S ( C O N S ( Q U O T E C
0010420 O M S Q ) ( \ E D I T . P R E
0010440 P A R E C O P Y ( \r Q U O T E
0010460 L ) ) ) ) ) ( S W I T C H
0010500 L ( C O M S ( C O N S ( Q
0010520 U O T E C O M S Q ) ( \ E D
0010540 I T . P R E P A R E S W I T C H
0010560 ( Q U O T E L ) ) ) ) ) (
0010600 I F Y N I L ( F ( C O N D
0010620 \r ( & - - ) - - ) T )
0010640 U P ( I 1 ( \ E D I T . C
0010660 O N D C L A U S E S . T O . I F
0010700 ( C D R ( # # 1 ) ) ) )
0010720 1 ) ) \r ( A D D T O V A R E D
0010740 I T M A C R O S ( B Q U O T E
0010760 N I L U P ( O R R ( ( I
0011000 1 ( O R ( C O N S ( Q U
0011020 O T E B Q U O T E ) ( O R
0011040 ( \ E D I T . B Q U O T I F Y
0011060 ( # # 1 ) ) ( \r E R R O R !
0011100 ) ) ) ( E R R O R ! ) ) ) )
0011120 ( ( E ( Q U O T E B Q U O T
0011140 E ? ) ) ) ) 1 ) ) \r ( A D D T
0011160 O V A R E D I T C O M S A B
0011200 Q U O T E ) \r ( A D D T O V A R
0011220 E D I T C O M S L C O P Y
0011240 S W I T C H ) \r ( P R O G ( X
0011260 ) " R e m o v e t h o s e
0011300 a n a c h r o n i s t i c F I
0011320 X 8 a n d F I X 9 m a c r
0011340 o s ! " A ( C O N D ( ( O
0011360 R ( S E T Q X ( A S S O C
0011400 ( Q U O T E F I X 8 ) \r E
0011420 D I T M A C R O S ) ) ( S E T
0011440 Q X ( A S S O C ( Q U O T
0011460 E F I X 9 ) E D I T M A C R
0011500 O S ) ) ) ( S E T Q E D I T
0011520 M A C R O S ( D R E M O V E
0011540 X E D I T M A C R O S ) ) (
0011560 G O A ) \r ) ) ) \r ( P U T P R
0011600 O P S E D I T M A C R O S C
0011620 O P Y R I G H T ( " X e r o x
0011640 C o r p o r a t i o n " 1 9
0011660 8 3 ) ) \r N I L \r
0011671