$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>WEDIT.DCOM!3
0000000 ( F I L E C R E A T E D " 1 8
0000020 - S e p - 8 4 1 8 : 1 8 : 3 6
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > W E D I T .
0000120 ; 3 ) \r " 1 8 - S e p - 8 4
0000140 1 5 : 4 2 : 3 3 " b r e c o m
0000160 p i l e d c h a n g e s : n
0000200 o t h i n g i n " I N T E R
0000220 L I S P - D 1 7 - S e p - 8 4
0000240 . . . " d a t e d \r " 1 7
0000260 - S e p - 8 4 0 5 : 1 2 : 5 0
0000300 " ) \r ( F I L E C R E A T E D
0000320 " 1 8 - S e p - 8 4 1 8 : 1 7
0000340 : 5 0 " { E R I S } < L I S P
0000360 C O R E > S O U R C E S > W E D
0000400 I T . ; 3 2 9 7 7 3 c h a n
0000420 g e s t o : ( U S E R M A C
0000440 R O S L O W E R \r ) p r e v
0000460 i o u s d a t e : " 1 3 - S
0000500 E P - 8 4 0 0 : 5 1 : 0 9 "
0000520 { E R I S } < L I S P C O R E >
0000540 S O U R C E S > W E D I T . ; 2
0000560 ) \r S E T T E R M C H A R S D
0000600 1 \r ( L ( 5 P P C H A R 4
0000620 2 C H A R 3 U N Q U O T E
0000640 C H A R 2 L A S T C H A R
0000660 1 B K C H A R 0 N E X T C
0000700 H A R ) ) \0 252 \0 \0 \0 006 @ \t \0 \0
0000720 b \0 265 003 202 261 \0 222 B \t \0 \0 b 004 265 s
0000740 D \t \0 \0 b \b 265 V A \t \0 \0 b 002 265 9
0000760 C \t \0 \0 b 006 265 035 E \t \0 \0 b \n d 262
0001000 023 o \0 \0 \0 ` \0 \0 \v \0 \0 E g \0 \0 \n
0001020 \0 \0 020 o \0 \0 \0 i \v \0 \0 277 C i ` \0
0001040 \0 \v \0 \0 277 260 323 o \0 \0 \0 ` \0 \0 \v \0
0001060 \0 277 A g \0 \0 \n \0 \0 277 260 266 o \0 \0 \0
0001100 ` \0 \0 \v \0 \0 277 D g \0 \0 \n \0 \0 277 260
0001120 231 o \0 \0 \0 ` \0 \0 \v \0 \0 277 B g \0 \0
0001140 \n \0 \0 277 261 377 | o \0 \0 \0 ` \0 \0 \v \0
0001160 \0 277 261 377 f \0 ( 2 4 4 Q / S E T
0001200 S Y N T A X 2 2 6 Q / E C H
0001220 O C O N T R O L 2 1 6 Q / S
0001240 E T S Y N T A X 2 0 1 Q / E
0001260 C H O C O N T R O L 1 7 1 Q
0001300 / S E T S Y N T A X 1 5 4 Q
0001320 / E C H O C O N T R O L 1 4 4
0001340 Q / S E T S Y N T A X 1 2 7
0001360 Q / S E T S Y N T A X 1 1 6
0001400 Q / S E T S Y N T A X 1 0 5
0001420 Q / E C H O C O N T R O L 7
0001440 6 Q / S E T S Y N T A X 5 7
0001460 Q \ S E T T E R M C H A R S /
0001500 I N T C H E C K 4 7 Q \ S E
0001520 T T E R M C H A R S / I N T C H
0001540 E C K 3 7 Q \ S E T T E R M
0001560 C H A R S / I N T C H E C K 2
0001600 7 Q \ S E T T E R M C H A R S
0001620 / I N T C H E C K 1 7 Q \ S
0001640 E T T E R M C H A R S / I N T C
0001660 H E C K 3 \ S E T T E R M C
0001700 H A R S / I N T C H E C K ) \r (
0001720 2 4 1 Q E D I T R D T B L 2
0001740 2 3 Q I G N O R E 2 1 3 Q
0001760 E D I T R D T B L 1 7 6 Q I
0002000 G N O R E 1 6 6 Q E D I T R
0002020 D T B L 1 5 1 Q I G N O R E
0002040 1 4 1 Q E D I T R D T B L
0002060 1 2 4 Q E D I T R D T B L 1
0002100 0 2 Q I G N O R E 7 3 Q E
0002120 D I T R D T B L ) \r ( 2 3 6 Q
0002140 ( M A C R O F I R S T I M M
0002160 E D I A T E ( L A M B D A N
0002200 I L ( C H A R M A C R O N X
0002220 P ) ) ) 2 1 0 Q ( M A C R O
0002240 F I R S T I M M E D I A T E
0002260 ( L A M B D A N I L ( C H
0002300 A R M A C R O - 1 P ) ) ) 1
0002320 6 3 Q ( M A C R O F I R S T
0002340 I M M E D I A T E ( L A M B
0002360 D A N I L ( C H A R M A C R
0002400 O 2 P ) ) ) 1 3 6 Q ( M A
0002420 C R O F I R S T I M M E D I
0002440 A T E E S C Q U O T E ( L A
0002460 M B D A N I L ( C H A R M A
0002500 C R O B K P ) ) ) 1 1 2 Q
0002520 ( M A C R O F I R S T ( L A
0002540 M B D A ( F I L E R D T B L
0002560 ) ( E V A L ( R E A D F I
0002600 L E R D T B L ) ) ) ) 7 0 Q
0002620 ( S P L I C E F I R S T I
0002640 M M E D I A T E E S C Q U O T
0002660 E ( L A M B D A N I L ( T
0002700 E R P R I T ) ( # # P P *
0002720 ) ( P R I N 1 ( Q U O T E
0002740 * ) T ) N I L ) ) ) \r \ S E
0002760 T T E R M C H A R S / I N T C H
0003000 E C K D 1 \r ( L ( 0 C H A
0003020 R ) ) \0 235 003 \0 \0 001 @ 021 ! 002 H d
0003040 003 221 001 X 241 h 020 H d d 005 001 241 005 002 243
0003060 \t \0 \0 X l @ 361 225 H l @ 331 X 200 H \t
0003100 \0 \0 262 N @ 003 265 A o \0 \0 \0 i \n \0 \0
0003120 277 H l @ 330 Z d l 9 361 230 277 ` \0 \0 J
0003140 l \n 331 215 l 0 375 361 244 J l 0 331 204 ` \0
0003160 \0 J 320 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0
0003200 277 i \t \0 \0 h 020 002 001 Y 265 \b H \t \0 \0
0003220 H 020 d 005 001 241 005 002 265 \a I \t \0 \0 Y l
0003240 @ 361 224 I l @ 331 200 I H \t \0 \0 265 005 \b
0003260 \0 \0 002 032 260 331 \0 ( 2 2 7 Q H E L
0003300 P 2 2 2 Q I N T C H A R 2
0003320 0 3 Q C H C O N 1 1 6 5 Q
0003340 I N T C H A R 1 5 2 Q T E R
0003360 P R I 1 4 5 Q P R I N 1 1
0003400 3 4 Q P R I N 1 6 5 Q P R
0003420 I N 1 4 7 Q G E T I N T E R
0003440 R U P T 3 0 Q C H C O N 1 )
0003460 \r ( 1 2 6 Q \ O n e C h a r A
0003500 t o m B a s e 1 0 4 Q \ O n
0003520 e C h a r A t o m B a s e ) \r (
0003540 1 4 1 Q " i s a n i n t
0003560 e r r u p t a n d c a n ' t
0003600 b e a n e d i t c o n t
0003620 r o l - c h a r a c t e r " 6
0003640 1 Q " c o n t r o l - " ) \r C
0003660 H A R M A C R O D 1 \r ( L (
0003700 0 X ) ) \0 \a \0 \0 001 001 i \t \0 \0
0003720 @ 020 \0 ( 3 T E R P R I ) \r N I
0003740 L \r N I L \r F I R S T A T O M
0003760 D 1 \r ( L ( 0 X ) ) \0 \f \0
0004000 \0 \0 001 @ 003 265 004 @ 020 001 b \0 260 370 \0 N
0004020 I L \r N I L \r N I L \r N E G A T
0004040 E D 1 \r ( L ( 0 X ) ) 001
0004060 4 004 \0 \0 001 @ 003 001 d g \0 \0 360 245 d g
0004100 \0 \0 360 224 277 @ 002 001 020 d g \0 \0 360 232 277
0004120 g \0 \0 @ 002 \t \0 \0 032 020 d g \0 \0 360 232
0004140 277 g \0 \0 @ 002 \t \0 \0 032 020 d g \0 \0 360
0004160 262 # 277 @ 002 002 263 023 @ 002 001 002 002 252 g \0
0004200 \0 @ 002 001 032 b \0 260 257 g \0 \0 @ 002 \t \0
0004220 \0 032 020 d g \0 \0 360 262 8 277 g \0 \0 @ 002
0004240 001 021 @ 003 @ 002 260 ! d [ d 002 231 001 001 K
0004260 001 002 \t \0 \0 032 203 001 \t \0 \0 270 I 265 \a H
0004300 h 032 Z 201 H & 271 002 003 265 337 J 022 032 032 020
0004320 d g \0 \0 360 231 277 @ 002 \t \0 \0 \t \0 \0 020
0004340 d g \0 \0 360 237 277 g \0 \0 @ 002 001 \t \0 \0
0004360 @ 002 002 032 032 020 d g \0 \0 360 226 277 @ 002 001
0004400 h 360 020 g \0 \0 360 233 @ 002 h h 032 \n \0 \0
0004420 \t \0 \0 020 ` \0 \0 021 021 001 H 003 265 - h 022
0004440 265 ( @ h 360 265 # @ i 360 h 360 264 034 @ d
0004460 d 005 001 245 d 005 002 241 005 003 241 005 \a h 360 264
0004500 \t g \0 \0 @ h 032 032 020 001 Y d 001 @ 001 360
0004520 225 002 @ 002 032 260 312 002 @ 001 360 226 I 001 @ 002
0004540 032 260 276 H 002 X 260 265 \0 ( 3 3 5 Q M
0004560 K P R O G N 3 3 2 Q \ A P P
0004600 E N D 2 2 7 2 Q N E G A T E
0004620 2 5 1 Q M K P R O G N 2 4
0004640 6 Q \ N E G A T E / N E G L
0004660 2 0 5 Q N E G A T E 1 7 7 Q
0004700 \ N E G A T E / N E G L 1 3
0004720 3 Q \ N E G A T E / N E G C
0004740 6 3 Q \ N E G A T E / N E G L
0004760 S T 4 2 Q \ N E G A T E / N
0005000 E G L S T ) \r ( 4 1 6 Q N O T
0005020 3 4 1 Q N E G A T I O N S
0005040 3 2 0 Q C O N S 3 0 4 Q Q
0005060 U O T E 2 6 4 Q P R O G 1
0005100 2 5 6 Q P R O G 1 2 3 6 Q
0005120 P R O G N 1 5 0 Q S E L E C
0005140 T Q 1 4 1 Q S E L E C T Q
0005160 1 2 6 Q C O N D 1 1 3 Q A
0005200 N D 7 1 Q C O N D 5 6 Q
0005220 A N D 5 0 Q O R 3 5 Q O
0005240 R 2 7 Q A N D 1 4 Q N U
0005260 L L 6 N O T ) \r ( ) \r \ N E
0005300 G A T E / N E G L D 1 \r ( L
0005320 ( 0 L ) ) \0 024 \0 \0 \0 001 @ d 002
0005340 246 001 \t \0 \0 h 032 020 001 @ 002 \t \0 \0 032 020
0005360 \0 ( 2 0 Q \ N E G A T E / N E
0005400 G L 7 N E G A T E ) \r N I L
0005420 \r ( ) \r \ N E G A T E / N E G L
0005440 S T D 1 \r ( L ( 0 L ) )
0005460 \0 036 003 \0 \0 001 021 0 002 @ 260 024 d 001 \t \0
0005500 \0 270 I 265 \a H h 032 Z 201 H & 271 002 003 265
0005520 355 J 020 \0 ( 1 2 Q N E G A T E )
0005540 \r N I L \r ( ) \r \ N E G A T E /
0005560 N E G C D 1 \r ( L ( 0 X )
0005600 ) \0 J \0 \0 \0 001 @ 265 \n i d h 032 032
0005620 h 032 020 001 002 263 " @ 001 001 \t \0 \0 @ 002 h
0005640 360 265 020 @ 002 \t \0 \0 b \0 264 \a g \0 \0 @
0005660 032 h 032 032 h 032 020 @ 001 001 @ 001 002 \t \0 \0
0005700 032 @ 001 001 i 360 h 360 264 \a @ 002 \t \0 \0 032
0005720 020 \0 ( 1 0 6 Q \ N E G A T E /
0005740 N E G C 6 7 Q \ N E G A T E
0005760 / N E G L 3 7 Q \ N E G A T
0006000 E / N E G C 2 4 Q N E G A T
0006020 E ) \r ( 4 6 Q C O N D ) \r ( )
0006040 \r M K P R O G N D 1 \r ( L (
0006060 0 L ) ) \0 023 \0 \0 \0 001 @ \t \0 \0
0006100 b \0 d 002 226 277 g \0 \0 @ 032 020 001 020 \0 (
0006120 3 \ M K P R O G N / M K P R O
0006140 G N 1 ) \r ( 1 4 Q P R O G N )
0006160 \r N I L \r \ M K P R O G N / M K
0006200 P R O G N 1 D 1 \r ( L ( 0
0006220 L ) ) \0 m \0 \0 \0 001 @ d 002 254 277 @
0006240 d 001 001 g \0 \0 360 221 001 002 020 001 003 245 @ 002
0006260 b \0 260 351 @ 001 001 d g \0 \0 360 263 ) d g
0006300 \0 \0 360 263 " d g \0 \0 360 263 033 d g \0 \0
0006320 360 263 024 d g \0 \0 360 253 d g \0 \0 360 245 d
0006340 g \0 \0 360 234 277 @ 001 002 @ 002 \n \0 \0 b \0
0006360 260 253 g \0 \0 360 225 @ 002 b \0 260 240 @ 001 @
0006400 002 \t \0 \0 032 020 \0 ( 1 5 1 Q \ M K
0006420 P R O G N / M K P R O G N 1 1
0006440 2 3 Q A P P E N D ) \r ( 1 3 2
0006460 Q Q U O T E 1 1 0 Q N U L
0006500 L 1 0 2 Q N O T 7 4 Q C
0006520 D R 6 5 Q C A R 5 6 Q C
0006540 O N S 4 7 Q L I S T 4 0 Q
0006560 P R O G N 1 3 Q P R O G N
0006600 ) \r N I L \r M A K E F N A 0 1 3
0006620 1 D 1 \r ( N A M E E R R O R
0006640 S E T L ( 2 E R R O R S E
0006660 T . W 1 E R R O R S E T . V
0006700 0 E R R O R S E T . U ) F
0006720 0 A F 1 A C T U A L
0006740 F 2 B O D Y ) \0 \v \0 003 \0 003
0006760 P 001 Q 001 R \v \0 \0 i 020 \0 ( 7 E S
0007000 U B S T ) \r N I L \r N I L \r M A
0007020 K E F N D 1 \r ( L ( 1 A R
0007040 G L I S T 0 F O R M ) P
0007060 1 A C T U A L P 0 A I
0007100 2 B O D Y ) \0 245 003 \0 \0 003 @
0007120 004 l 004 360 262 B 001 \t \0 \0 262 031 B 002 263
0007140 025 A 265 023 @ B 032 h 032 \t \0 \0 @ \t \0 \0
0007160 \t \0 \0 020 A @ 002 021 022 002 @ d 003 231 d 001
0007200 226 001 004 l 004 360 251 @ o \0 \0 \0 i \v \0 \0
0007220 277 I 003 262 G H 003 265 - A I 001 004 l 004 360
0007240 223 I 001 260 027 o \0 \0 \0 205 d 001 A 034 224 002
0007260 003 265 371 h 001 265 005 \b \0 \0 h 032 X \n \0 \0
0007300 b 002 277 H 001 I 001 360 250 o \0 \0 \0 i \n \0
0007320 \0 277 H 002 270 I 002 Y 260 272 @ 001 g \0 \0 A
0007340 B 032 032 Z h 032 032 h 032 \t \0 \0 277 J \t \0
0007360 \0 h 020 \0 ( 2 4 1 Q F I X E D I
0007400 T D A T E 2 3 4 Q D E F I N
0007420 E 2 0 1 Q M A K E F N A 0 1
0007440 3 1 1 6 0 Q N C O N C 1 5
0007460 2 Q G E N S Y M 1 0 0 Q E
0007500 R R O R 4 3 Q F I X E D I T
0007520 D A T E 4 0 Q G E T D 3 4
0007540 Q D E F I N E 1 3 Q F N T
0007560 Y P ) \r ( 2 1 7 Q L A M B D A
0007600 ) \r ( 1 7 5 Q ( D U M M Y . F
0007620 O R . E R R O R S E T ) 1 3 1
0007640 Q ( X Y Z A B C D
0007660 ) 7 4 Q " ? " ) \r E D I T
0007700 G E T D D 1 \r ( L ( 1 E D
0007720 I T C H A I N 0 X ) ) \0 314
0007740 006 \0 \0 002 @ 003 264 j @ 001 021 ! 002 H d 003
0007760 262 & 001 d g \0 \0 360 237 277 H 002 001 @ 002 H
0010000 002 002 \v \0 \0 \t \0 \0 020 g \0 \0 360 264 \b H
0010020 @ 002 \n \0 \0 020 ` \0 \0 \n \0 \0 234 @ i \n
0010040 \0 \0 d @ \n \0 \0 262 & 277 H d g \0 \0 033
0010060 262 ! 277 @ i A 265 006 o \0 \0 \0 \v \0 \0 H
0010100 @ 001 360 241 @ 020 @ ` \0 \0 035 d 222 \t \0 \0
0010120 020 \t \0 \0 Y 264 373 021 0 005 I 002 260 030 d 001
0010140 001 g \0 \0 360 255 d 001 273 L 265 \a K h 032 ]
0010160 201 K & 274 002 003 265 350 M 022 Z I d 002 001 250
0010200 277 d \t \0 \0 \t \0 \0 020 001 g \0 \0 360 246 I
0010220 d 002 001 003 254 277 I 001 I 002 001 J 032 032 I 002
0010240 032 020 002 001 @ 002 J i \f \0 \0 \t \0 \0 020 \0
0010260 ( 3 1 1 Q M K P R O G N 3 0
0010300 6 Q S U B P A I R 2 4 3 Q
0010320 C O P Y 2 4 0 Q M K P R O G
0010340 N 1 5 7 Q G E T D E F 1 5
0010360 3 Q C O P Y 1 3 2 Q D W I
0010400 M I F Y 1 0 2 Q E Q U A L
0010420 7 5 Q E X P A N D M A C R O
0010440 6 7 Q G E T L I S 6 0 Q E
0010460 X P A N D O P E N L A M B D A
0010500 4 3 Q M K P R O G N 4 0 Q
0010520 S U B P A I R ) \r ( 2 5 0 Q N
0010540 L A M B D A 1 7 7 Q * 1 4
0010560 5 Q C L I S P A R R A Y 1 1
0010600 2 Q C L I S P W O R D 6 4 Q
0010620 C O M P I L E R M A C R O P R
0010640 O P S 4 7 Q O P E N L A M B
0010660 D A 2 2 Q L A M B D A ) \r (
0010700 1 2 7 Q ( N I L ) ) \r M A K E
0010720 C O M D 1 \r ( L ( 1 V A L
0010740 S 0 V A R ) F 5 C O M
0010760 ) \0 ~ 005 001 001 002 h \t \0 \0 021 021 001 H
0011000 001 c \n h H \v \0 \0 Y d 003 262 024 @ c \n
0011020 I 034 257 @ h I \t \0 \0 \v \0 \0 b \0 243 \b
0011040 \0 \0 277 I 021 ! 004 l 002 273 J 003 265 \a \b \0
0011060 \0 h 020 001 @ 360 262 . A 254 H d 002 231 d 002
0011100 002 245 277 K h 032 020 H 002 231 K A d 002 240 001
0011120 h 032 032 020 g \0 \0 L A d 002 240 001 h 032 \n
0011140 \0 \0 032 020 H 002 X 243 h L 032 274 K k 330 273
0011160 J 002 Z 260 270 \0 ( 1 5 1 Q N C O N
0011200 C 7 0 Q E R R O R ! 5 1 Q
0011220 E R R O R ! 4 3 Q F I X S
0011240 P E L L 4 0 Q A P P E N D
0011260 1 7 Q S M A R T A R G L I S T
0011300 3 # # ) \r ( 1 3 6 Q N ) \r
0011320 N I L \r S W A P P E D C O N D
0011340 D 1 \r ( L ( 0 C N D ) F
0011360 3 L ) \0 217 003 001 \0 001 @ 001 d g \0
0011400 \0 360 246 d g \0 \0 360 262 " 277 @ i S \v \0
0011420 \0 @ d 001 g \0 \0 360 250 ` \0 \0 035 265 005 \b
0011440 \0 \0 \t \0 \0 002 \t \0 \0 020 g \0 \0 360 262 W
0011460 @ 002 001 @ 002 002 @ 002 002 001 021 003 002 H 002 243
0011500 \b \0 \0 277 g \0 \0 H 001 \t \0 \0 J 001 i 360
0011520 223 J 002 265 \r I 241 h 204 g \0 \0 I 032 h 032
0011540 032 H d 002 002 254 d 002 001 001 g \0 \0 360 223 002
0011560 001 002 216 002 001 245 H 002 002 241 h 205 i H 002 032
0011600 h 032 032 032 020 \b \0 \0 020 \0 ( 2 1 4 Q
0011620 S H O U L D N T 1 2 0 Q N E
0011640 G A T E 1 0 7 Q E R R O R !
0011660 5 5 Q C O N D . T O . I F
0011700 5 1 Q S W A P P E D C O N D
0011720 4 6 Q E R R O R ! 2 5 Q D
0011740 W I M I F Y ) \r ( 1 6 1 Q C O
0011760 N D 1 4 0 Q C O N D 1 1 3
0012000 Q C O N D 6 1 Q C O N D
0012020 4 0 Q C L I S P A R R A Y 3
0012040 3 Q C O N D 1 3 Q i f 5
0012060 I F ) \r N I L \r B Q U O T I F
0012100 Y D 1 \r ( L ( 0 F O R M )
0012120 ) \0 223 003 \0 \0 001 @ d 003 262 r 001 d g
0012140 \0 \0 360 226 277 @ 002 001 h 032 020 d g \0 \0 360
0012160 262 * 277 @ 002 021 ! 002 H 003 265 \a I 022 h 032
0012200 020 001 272 I J \t \0 \0 265 \t g \0 \0 J h 032
0012220 032 \n \0 \0 271 H 002 X 260 341 g \0 \0 360 264 +
0012240 @ 002 001 \t \0 \0 265 \v g \0 \0 @ 002 001 h 032
0012260 032 @ 002 002 001 \t \0 \0 265 022 g \0 \0 @ 002 002
0012300 001 h 032 032 \n \0 \0 h 032 020 001 260 371 d 005 001
0012320 245 d 005 002 241 005 003 253 @ d 005 \a 247 277 @ d
0012340 i 360 241 243 @ h 032 020 h 020 \0 ( 1 5 6 Q
0012360 \ N C O N C 2 1 3 7 Q B Q
0012400 U O T I F Y 1 1 5 Q B Q U O
0012420 T I F Y 7 3 Q \ N C O N C 2
0012440 5 7 Q B Q U O T I F Y ) \r (
0012460 1 4 4 Q . , 1 2 2 Q , 1
0012500 0 4 Q C O N S 6 4 Q , 2
0012520 6 Q L I S T 1 1 Q Q U O T
0012540 E ) \r N I L \r C O N D . T O . I
0012560 F D 1 \r ( L ( 0 C O N D C
0012600 L A U S E S ) ) \0 L 004 \0 \0 001 g
0012620 \0 \0 021 @ 003 @ 260 4 d 001 [ 001 i 360 233 K
0012640 @ 001 360 246 g \0 \0 K 002 260 025 g \0 \0 K 001
0012660 K 002 264 \v g \0 \0 K 002 \t \0 \0 032 032 032 X
0012700 003 226 I 265 017 H Z Y 277 002 003 265 315 J 022 002
0012720 032 020 \t \0 \0 Y H 031 260 360 \0 ( 1 0 5 Q
0012740 L A S T 5 4 Q \ A P P E N
0012760 D 2 ) \r ( 4 7 Q t h e n 3 6
0013000 Q e l s e i f 2 7 Q e l s
0013020 e 2 i f ) \r N I L \r F I X E
0013040 D I T D A T E D 1 \r ( P 0
0013060 E I 0 E X P R ) \0 230 001 \0
0013100 \0 001 ` \0 \0 264 036 @ 003 264 032 @ 001 ` \0 \0
0013120 034 264 022 @ 002 003 264 \r @ 002 002 021 001 \0 H 003
0013140 265 004 h 020 001 003 262 N H 001 001 d g \0 \0 360
0013160 245 d g \0 \0 360 225 277 H 002 X 260 344 d g \0
0013200 \0 360 262 026 277 H d 001 002 001 001 g \0 \0 360 262
0013220 & 001 002 001 002 X 260 311 g \0 \0 360 263 306 H d
0013240 001 001 ` \0 \0 360 235 d 001 002 001 g \0 \0 360 224
0013260 002 X 260 255 H 002 003 264 026 H 001 \t \0 \0 264 017
0013300 H d 001 ` \0 \0 \n \0 \0 \n \0 \0 211 ` \0 \0
0013320 \n \0 \0 H \n \0 \0 @ 020 \0 ( 2 2 4 Q
0013340 / A T T A C H 2 2 0 Q E D I
0013360 T D A T E 2 1 1 Q / R P L A
0013400 C A 2 0 6 Q E D I T D A T E
0013420 1 7 3 Q E D I T D A T E ? )
0013440 \r ( 2 1 5 Q I N I T I A L S
0013460 2 0 3 Q I N I T I A L S 1 5
0013500 3 Q D E C L A R A T I O N S :
0013520 1 4 2 Q C O M M E N T F L G
0013540 1 3 0 Q A D V - P R O G 1
0013560 1 3 Q P R O G N 7 6 Q B R
0013600 E A K 1 6 2 Q D E C L A R E
0013620 5 4 Q C L I S P : 1 5 Q
0013640 L A M B D A S P L S T 2 I N
0013660 I T I A L S ) \r N I L \r E D I T
0013700 D A T E ? D 1 \r ( L ( 0 C
0013720 O M M E N T ) ) \0 i \0 \0 \0 001 @
0013740 d 003 262 b 001 ` \0 \0 360 264 Z ` \0 \0 246 @
0013760 \t \0 \0 b \0 200 @ 002 001 ` \0 \0 360 265 F @
0014000 002 001 004 l 004 360 264 = @ d 002 002 002 002 002 002
0014020 263 025 002 002 001 005 \a 265 , @ 002 001 m 377 ) l
0014040 : 360 265 ! @ 002 001 g \0 \0 360 264 030 @ 002 002
0014060 001 g \0 \0 360 264 016 @ 002 002 002 002 002 002 002 002
0014100 002 h 360 020 005 \a 020 \0 ( 2 3 Q G E T
0014120 C O M M E N T ) \r ( 1 2 4 Q b
0014140 y 1 1 2 Q E d i t e d 3 4
0014160 Q I N I T I A L S 1 6 Q N
0014200 O R M A L C O M M E N T S F L G
0014220 1 0 Q C O M M E N T F L G )
0014240 \r N I L \r E D I T D A T E D 1
0014260 \r ( P 0 S T R I 1 I N
0014300 I T L S I 0 O L D A T E )
0014320 \0 4 001 \0 \0 002 021 020 \0 \b \0 \0 X k l
0014340 017 H \f \0 \0 X @ 003 235 @ 001 ` \0 \0 360 226
0014360 @ 002 002 001 005 \a 251 ` \0 \0 A H h 032 032 032
0014400 020 @ 002 A 030 002 H 030 @ 020 \0 ( 1 5 Q
0014420 S U B S T R I N G 5 D A T E
0014440 ) \r ( 4 2 Q C O M M E N T F L
0014460 G 2 6 Q C O M M E N T F L G
0014500 ) \r N I L \r S E T I N I T I A L
0014520 S A 0 1 5 8 D 1 \r ( N A M E
0014540 E R R O R S E T L ( 2 E R
0014560 R O R S E T . W 1 E R R O R
0014600 S E T . V 0 E R R O R S E T
0014620 . U ) P 0 T E M ) \0 G 001
0014640 \0 \0 003 h 027 \0 \0 277 i 027 \0 \0 277 021 020 \0
0014660 \b \0 \0 \t \0 \0 ` \0 \0 \n \0 \0 X 265 017 g
0014700 \0 \0 ` \0 \0 \n \0 \0 022 h 032 020 002 003 246 g
0014720 \0 \0 H 002 260 361 g \0 \0 H 002 001 \n \0 \0 277
0014740 g \0 \0 H 002 002 001 260 336 \0 ( 7 3 Q S
0014760 A V E S E T 4 4 Q S A V E S
0015000 E T 3 0 Q F A S S O C 2 2
0015020 Q M K A T O M 1 7 Q U S E
0015040 R N A M E ) \r ( 7 7 Q I N I T
0015060 I A L S 6 5 Q F I R S T N A
0015100 M E 5 6 Q I N I T I A L S
0015120 4 1 Q D E F A U L T I N I T I
0015140 A L S 3 6 Q I N I T I A L S
0015160 2 5 Q I N I T I A L S L S T
0015200 1 0 Q D F N F L G 3 F I
0015220 L E P K G F L G ) \r N I L \r S E
0015240 T I N I T I A L S D 1 \r ( P
0015260 1 M A C R O Y P 0 M A C
0015300 R O X F 2 R E S E T V A R
0015320 S L S T ) \0 T 002 001 \0 \0 g \0 \0 `
0015340 \0 \0 032 g \0 \0 ` \0 \0 032 R 032 032 c 004 021
0015360 021 001 R Y o \0 \0 \0 g \0 \0 \n \0 \0 H 001
0015400 002 027 \0 \0 277 H 002 X 001 002 027 \0 \0 277 I d
0015420 R 360 225 277 H 002 c 004 215 R \n \0 \0 231 R k
0015440 I \v \0 \0 H 002 031 277 265 005 \b \0 \0 001 020 \0
0015460 ( 1 2 0 Q E R R O R ! 1 0 7
0015500 Q N L E F T 1 0 0 Q T A I
0015520 L P 4 1 Q S E T I N I T I A
0015540 L S A 0 1 5 8 ) \r ( 6 0 Q D F
0015560 N F L G 4 7 Q F I L E P K G
0015600 F L G 3 6 Q I N T E R N A L
0015620 1 4 Q D F N F L G 1 1 Q
0015640 D F N F L G 5 F I L E P K G
0015660 F L G 2 F I L E P K G F L G
0015700 ) \r ( 3 3 Q ( D U M M Y . F O
0015720 R . E R R O R S E T ) ) \r ( P R
0015740 E T T Y C O M P R I N T W E D
0015760 I T C O M S ) \r ( R P A Q Q W
0016000 E D I T C O M S ( ( V A R S
0016020 E D I T O P S M A X L O O P
0016040 ( E D I T R A C E F N ) ( U P
0016060 F I N D F L G T ) M A X L E
0016100 V E L F I N D F L A G ( E D
0016120 I T Q U I E T F L G ) ) ( \r I
0016140 N I T V A R S ( E D I T S M A
0016160 S H U S E R F N ) ( E D I T E
0016200 M B E D T O K E N ( Q U O T E
0016220 & ) ) ( E D I T U S E R F N
0016240 ) ( C H A N G E S A R R A Y )
0016260 ( E D I T U N S A V E B L O C
0016300 K F L G \r T ) ( E D I T L O
0016320 A D F N S F L G ( Q U O T E
0016340 ( T ) ) ) ) ( I N I T V A R S
0016360 ( E D I T M A C R O S ) ( U
0016400 S E R M A C R O S ) ) ( A D D
0016420 V A R S ( H I S T O R Y C O M
0016440 S ? ? R E D O \r R E P E A
0016460 T F I X U S E . . . N A
0016500 M E R E T R I E V E D O !
0016520 N ! E ! F T Y P E - A H E
0016540 A D 033 033 B U F S ; ) ( D
0016560 O N T S A V E H I S T O R Y C O
0016600 M S S A V E P ? P P \r
0016620 P P * E ; ) ( E D I T C O
0016640 M S A O K S T O P S A V E
0016660 T T Y : E ? P P P P *
0016700 P P V P ^ ! 0 M A R K
0016720 U N D O ! U N D O T E S T
0016740 U N B L O C K _ \ \ P
0016760 _ _ F \r B F U P D E L E
0017000 T E N X B K ! N X ? ?
0017020 R E D O R E P E A T F I X
0017040 U S E N A M E R E T R I E V
0017060 E D O ! N ! E ! F T Y
0017100 P E - A H E A D ) ( E D I T C
0017120 O M S L S R R 1 \r R C
0017140 R C 1 E I N P F F S
0017160 F = O R F B F N T H I
0017200 F R I R O L I L O B I
0017220 B O M N X B K O R R
0017240 M B D X T R T H R U T O
0017260 A B : A F T E R B E F O
0017300 R E \r M V L P L P Q L C
0017320 L C L _ B E L O W S W
0017340 B I N D C O M S O R I G I N
0017360 A L I N S E R T R E P L A C
0017400 E C H A N G E D E L E T E
0017420 E M B E D S U R R O U N D M
0017440 O V E \r E X T R A C T S W I
0017460 T C H ? ? R E D O R E P E
0017500 A T F I X U S E N A M E
0017520 R E T R I E V E D O M A R K
0017540 \ ) ) ( U S E R M A C R O S
0017560 C A P L O W E R R A I S E
0017600 2 N D 3 R D \r % % F % %
0017620 N E X R E P A C K * > *
0017640 S H O W E X A M P P * )
0017660 ( * * c o n t r o l c h a
0017700 r s f o r m o v i n g a r
0017720 o u n d i n t h e e d i t
0017740 o r ) ( F N S \r S E T T E R
0017760 M C H A R S I N T C H E C K
0020000 C H A R M A C R O ) ( I N I T
0020020 V A R S ( E D I T C H A R A C
0020040 T E R S ) ) ( V A R S N E G
0020060 A T I O N S ) ( U S E R M A C
0020100 R O S 2 P N X P B K P \r
0020120 - 1 P ) ( A D D V A R S ( C
0020140 O M P A C T H I S T O R Y C O M
0020160 S 2 P N X P B K P - 1 P
0020200 ) ) ( D E C L A R E : D O N
0020220 T C O P Y ( M A C R O S C F
0020240 O B F ) ) ( B L O C K S ( \r
0020260 S E T T E R M C H A R S S E T
0020300 T E R M C H A R S I N T C H E
0020320 C K ( N O L I N K F N S .
0020340 T ) ( G L O B A L V A R S E
0020360 D I T R D T B L ) ) ( N I L
0020400 C H A R M A C R O ( L O C A L
0020420 V A R S \r . T ) ) ) ( *
0020440 * m a c r o s f o r c a l
0020460 l i n g e d i t o r ) ( U S
0020500 E R M A C R O S E F E V E
0020520 P ) ( A D D V A R S ( D O N
0020540 T S A V E H I S T O R Y C O M S
0020560 E F E V E P ) ) \r ( F N
0020600 S F I R S T A T O M ) ( B L
0020620 O C K S ( N I L F I R S T A
0020640 T O M ( L O C A L V A R S .
0020660 T ) ) ) ( * * M i s c
0020700 e d i t m a c r o s ) ( U S
0020720 E R M A C R O S E V A L Q
0020740 \r G E T D G E T V A L M A K
0020760 E F N D N E G A T E G O
0021000 S W A P M A K E S W A P C
0021020 B Q U O T E I F Y S P L I T
0021040 C J O I N C ) ( F N S M A
0021060 K E F N E D I T G E T D N E
0021100 G A T E \r N E G L N E G L S
0021120 T N E G C M K P R O G N M
0021140 K P R O G N 1 M A K E C O M
0021160 S W A P P E D C O N D B Q U O
0021200 T I F Y C O N D . T O . I F )
0021220 ( B L O C K S ( N E G A T E
0021240 N E G A T E N E G L \r N E
0021260 G L S T N E G C ( N O L I N
0021300 K F N S . T ) ( G L O B A
0021320 L V A R S N E G A T I O N S )
0021340 ) ( M K P R O G N M K P R O
0021360 G N M K P R O G N 1 ( N O L
0021400 I N K F N S . T ) ) ) ( \r
0021420 G L O B A L V A R S C L I S P
0021440 A R R A Y M A C R O P R O P S
0021460 ) ( L O C A L V A R S . T
0021500 ) ( * * T i m e s t a m
0021520 p o n f u n c t i o n s w
0021540 h e n e d i t e d ) ( D E C
0021560 L A R E : \r D O N T C O P Y
0021600 ( P ( * U s e r e n a b l
0021620 e s t h i s b y a n ( A
0021640 D D T O V A R I N I T I A L S
0021660 L I S T ( U S E R N A M E .
0021700 i n i t i a l s : ) ) i n
0021720 h i s \r I N I T . L I S P .
0021740 E . g . ( A D D T O V A R I
0021760 N I T I A L S L I S T ( M A S
0022000 I N T E R . l m m : ) ) -
0022020 T h e d a t e f i x u p
0022040 i s e n a b l e d b y t h
0022060 e v a r i a b l e \r I N I T
0022100 I A L S . T h e f u n c t i
0022120 o n S E T I N I T I A L S s
0022140 e t s I N I T I A L S f r o
0022160 m I N I T I A L S L I S T a
0022200 n d U S E R N A M E a t l
0022220 o a d t i m e , a n d \r a
0022240 f t e r a s y s i n . ) ) )
0022260 ( F N S F I X E D I T D A T
0022300 E E D I T D A T E ? E D I T
0022320 D A T E S E T I N I T I A L S
0022340 ) ( I N I T V A R S ( I N I
0022360 T I A L S ) ( I N I T I A L S
0022400 L S T ) \r ( D E F A U L T I N
0022420 I T I A L S ( Q U O T E e d
0022440 i t e d : ) ) ) ( G L O B A L
0022460 V A R S L A M B D A S P L S T
0022500 N O R M A L C O M M E N T S F
0022520 L G C O M M E N T F L G F I
0022540 R S T N A M E \r I N I T I A L
0022560 S I N I T I A L S L S T D E
0022600 F A U L T I N I T I A L S F I
0022620 L E P K G F L G D F N F L G )
0022640 ( P ( M O V D ? ( Q U O T
0022660 E N I L L ) ( Q U O T E P
0022700 R E E D I T F N ) ) ) ( \r D E
0022720 C L A R E : D O N T E V A L @
0022740 L O A D D O E V A L @ C O M P
0022760 I L E D O N T C O P Y C O M
0023000 P I L E R V A R S ( A D D V A
0023020 R S ( N L A M A ) ( N L A M
0023040 L M A K E C O M C H A R M A
0023060 C R O ) \r ( L A M A ) ) ) ) )
0023100 \r ( R P A Q Q E D I T O P S
0023120 ( ( I N S E R T ( B E F O R E
0023140 A F T E R F O R ) ( E D I
0023160 T : # 2 # 3 # 1 ) ) ( R
0023200 E P L A C E ( W I T H B Y )
0023220 ( E D I T : : # 1 # 3 )
0023240 ) ( \r C H A N G E ( T O )
0023260 ( E D I T : : # 1 # 3 ) )
0023300 ( D E L E T E N I L ( E D
0023320 I T : : # 1 ) ) ( E M B E
0023340 D ( I N W I T H ) ( E D I
0023360 T M B D # 1 # 3 ) ) ( S U
0023400 R R O U N D ( \r W I T H I N
0023420 ) ( E D I T M B D # 1 # 3
0023440 ) ) ( M O V E ( T O ) ( E
0023460 D I T M V # 1 ( C A R # 3
0023500 ) ( C D R # 3 ) ) ) ( E X
0023520 T R A C T ( F R O M ) ( E D
0023540 I T X T R # 3 # 1 ) ) ( \r
0023560 S W I T C H ( A N D ) ( E D
0023600 I T S W # 1 # 3 ) ) ) ) \r (
0023620 R P A Q Q M A X L O O P 3 0
0023640 ) \r ( R P A Q Q E D I T R A C
0023660 E F N N I L ) \r ( R P A Q Q
0023700 U P F I N D F L G T ) \r ( R P
0023720 A Q Q M A X L E V E L 3 0 0
0023740 ) \r ( R P A Q Q F I N D F L A
0023760 G N I L ) \r ( R P A Q Q E D
0024000 I T Q U I E T F L G N I L ) \r
0024020 ( R P A Q ? E D I T S M A S H
0024040 U S E R F N ) \r ( R P A Q ? E
0024060 D I T E M B E D T O K E N ( Q
0024100 U O T E & ) ) \r ( R P A Q ?
0024120 E D I T U S E R F N ) \r ( R P A
0024140 Q ? C H A N G E S A R R A Y )
0024160 \r ( R P A Q ? E D I T U N S A
0024200 V E B L O C K F L G T ) \r ( R
0024220 P A Q ? E D I T L O A D F N S
0024240 F L G ( Q U O T E ( T ) ) )
0024260 \r ( R P A Q ? E D I T M A C R
0024300 O S ) \r ( R P A Q ? U S E R M
0024320 A C R O S ) \r ( A D D T O V A R
0024340 H I S T O R Y C O M S ? ?
0024360 R E D O R E P E A T F I X
0024400 U S E . . . N A M E R E T
0024420 R I E V E D O ! N ! E !
0024440 F T Y P E - A H E A D 033 033
0024460 B U F S ; ) \r ( A D D T O V A
0024500 R D O N T S A V E H I S T O R
0024520 Y C O M S S A V E P ? P
0024540 P P P * E ; ) \r ( A D D T
0024560 O V A R E D I T C O M S A O
0024600 K S T O P S A V E T T Y :
0024620 E ? P P P P * P P V
0024640 P ^ ! 0 M A R K U N D O
0024660 ! U N D O T E S T U N B L
0024700 O C K _ \ \ P _ _ F
0024720 \r B F U P D E L E T E N X
0024740 B K ! N X ? ? R E D O
0024760 R E P E A T F I X U S E N
0025000 A M E R E T R I E V E D O
0025020 ! N ! E ! F T Y P E - A H
0025040 E A D ) \r ( A D D T O V A R E
0025060 D I T C O M S L S R R 1
0025100 R C R C 1 E I N P F
0025120 F S F = O R F B F N T
0025140 H I F R I R O L I L O
0025160 B I B O M N X B K O
0025200 R R M B D X T R \r T H R U
0025220 T O A B : A F T E R
0025240 B E F O R E M V L P L P Q
0025260 L C L C L _ B E L O W
0025300 S W B I N D C O M S O R I
0025320 G I N A L I N S E R T R E P
0025340 L A C E C H A N G E D E L E
0025360 T E \r E M B E D S U R R O U
0025400 N D M O V E E X T R A C T
0025420 S W I T C H ? ? R E D O R
0025440 E P E A T F I X U S E N A
0025460 M E R E T R I E V E D O M
0025500 A R K \ ) \r ( A D D T O V A R
0025520 E D I T M A C R O S ( L O W
0025540 E R N I L U P ( I 1 (
0025560 L - C A S E ( # # 1 ) ) )
0025600 1 ) ( C A P N I L U P (
0025620 I 1 ( L - C A S E ( # #
0025640 1 ) T ) ) 1 ) ( \r R E P A
0025660 C K N I L ( I F ( L I S T
0025700 P ( # # ) ) ( 1 ) N I L )
0025720 ( I : ( ( L A M B D A (
0025740 X Y ) ( S E T Q C O M (
0025760 Q U O T E R E P A C K ) ) (
0026000 S E T Q Y ( A P P L Y ( \r
0026020 Q U O T E C O N C A T ) ( E
0026040 D I T E ( U N P A C K X ) )
0026060 ) ) ( C O N D ( ( N O T (
0026100 S T R I N G P X ) ) ( S E T
0026120 Q Y ( M K A T O M Y ) ) )
0026140 ) ( P R I N T Y T T ) )
0026160 ( # # ) ) \r ) ) ( * X M
0026200 A R K ( O R R ( ( I > *
0026220 ( C O N D ( ( R A I S E P )
0026240 ( C O N S ( Q U O T E * )
0026260 ( C O N S ( Q U O T E % % )
0026300 ( Q U O T E X ) ) ) ) ( T
0026320 ( C O N S ( Q U O T E \r *
0026340 ) ( Q U O T E X ) ) ) ) ) )
0026360 ( ( E ( Q U O T E C A N '
0026400 T ) ) ) ) _ _ ) ( L O W E R
0026420 ( C ) ( I R ( Q U O T E
0026440 C ) ( L - C A S E ( Q U O
0026460 T E C ) ) ) ) ( R A I S E
0026500 ( C ) \r ( I R ( L - C A S
0026520 E ( Q U O T E C ) ) ( Q U
0026540 O T E C ) ) ) ( R A I S E
0026560 N I L U P ( I 1 ( U - C
0026600 A S E ( # # 1 ) ) ) 1 )
0026620 ( 2 N D X ( O R R ( ( L C
0026640 . X ) ( L C \r . X ) )
0026660 ) ) ( 3 R D X ( O R R (
0026700 ( L C . X ) ( L C . X
0026720 ) ( L C . X ) ) ) ) ( %
0026740 % F ( X Y ) ( E ( E D I
0026760 T Q F ( L - C A S E ( Q U O
0027000 T E X ) ( Q U O T E Y ) )
0027020 \r ) T ) ) ( % % X ( C O
0027040 M S ( C O N S ( C A R ( Q
0027060 U O T E X ) ) ( C O M M E N
0027100 T 3 ( C D R ( Q U O T E X
0027120 ) ) ( C A R ( L A S T L )
0027140 ) ) ) ) ) ( N E X N I L (
0027160 B E L O W _ \r ) N X ) ( N
0027200 E X ( X ) ( B E L O W X )
0027220 N X ) ( R E P A C K N I L
0027240 ( I F ( L I S T P ( # # )
0027260 ) ( 1 ) N I L ) ( I :
0027300 ( ( L A M B D A ( X Y ) (
0027320 S E T Q C O M ( \r Q U O T E
0027340 R E P A C K ) ) ( S E T Q
0027360 Y ( A P P L Y ( Q U O T E
0027400 C O N C A T ) ( E D I T E (
0027420 U N P A C K X ) ) ) ) ( C O
0027440 N D ( ( N O T ( S T R I N G
0027460 P X ) ) ( S E T Q Y ( \r
0027500 M K A T O M Y ) ) ) ) ( P R
0027520 I N T Y T T ) ) ( # # )
0027540 ) ) ) ( R E P A C K ( X )
0027560 ( L C . X ) R E P A C K )
0027600 ( > * ( X ) ( B I N D (
0027620 M A R K # 1 ) 0 ( _ ( (
0027640 * A N Y * \r P R O G P R O G
0027660 N C O N D S E L E C T Q L
0027700 A M B D A N L A M B D A A S
0027720 S E M B L E ) - - ) ) ( M A
0027740 R K # 2 ) ( E ( S E T Q
0027760 # 3 ( S E L E C T Q ( # #
0030000 1 ) ( ( C O N D \r S E L E C
0030020 T Q ) 2 ) 1 ) ) T ) ( \
0030040 # 1 ) ( O R R ( 1 1 )
0030060 ( 1 ) N I L ) ( B E L O W
0030100 ( \ # 2 ) # 3 ) ( I F (
0030120 Q U O T E X ) ( ( O R R (
0030140 N X ( B X ) ) ( ( I F (
0030160 \r E Q ( # # ( \ # 2 ) 0
0030200 1 ) ( Q U O T E P R O G )
0030220 ) N I L ( B K ) ) ( A X
0030240 ) ) ( ( \ # 2 ) ( > * X
0030260 ) ) ) ) N I L ) ) ) ( S H O
0030300 W X ( F ( * A N Y * .
0030320 X ) T ) ( \r L P Q M A R K
0030340 ( O R R ( 1 ! 0 ) N I L
0030360 ) P _ _ ( F ( * A N Y *
0030400 . X ) N ) ) ( E ( Q U
0030420 O T E d o n e ) ) ) ( E X A
0030440 M X ( F ( * A N Y * .
0030460 X ) T ) ( B I N D ( \r L P
0030500 Q ( M A R K # 1 ) ( O R R
0030520 ( 1 ! 0 P ) N I L ) (
0030540 M A R K # 2 ) T T Y : ( M
0030560 A R K # 3 ) ( I F ( E Q
0030600 ( # # ( \ # 3 ) ) ( # #
0030620 ( \ # 2 ) ) ) ( ( \ # 1 )
0030640 ) \r N I L ) ( F ( * A N Y
0030660 * . X ) N ) ) ) ( E (
0030700 Q U O T E d o n e ) ) ) ( P
0030720 P * N I L ( R E S E T V A R
0030740 * * C O M M E N T * * F L G
0030760 N I L P P ) ) ) \r ( A D D T O
0031000 V A R E D I T C O M S A C A
0031020 P L O W E R R A I S E N E
0031040 X R E P A C K P P * ) \r ( A
0031060 D D T O V A R E D I T C O M S
0031100 L L O W E R R A I S E 2 N
0031120 D 3 R D % % F % % R E P
0031140 A C K * > * E X A M S H
0031160 O W ) \r ( A D D T O V A R D O
0031200 N T S A V E H I S T O R Y C O M
0031220 S P P * ) \r ( R P A Q ? E D
0031240 I T C H A R A C T E R S ) \r ( R
0031260 P A Q Q N E G A T I O N S (
0031300 ( N E Q . E Q ) ( N L I S
0031320 T P . L I S T P ) ( G O
0031340 . G O ) ( E R R O R . E
0031360 R R O R ) ( E R R O R X .
0031400 E R R O R X ) ( R E T U R N
0031420 . \r R E T U R N ) ( R E T F
0031440 R O M . R E T F R O M ) (
0031460 R E T T O . R E T T O ) (
0031500 I G R E A T E R P . I L E Q
0031520 ) ( I L E S S P . I G E Q
0031540 ) ) ) \r ( A D D T O V A R E D
0031560 I T M A C R O S ( N X P N I
0031600 L ( O R R ( N X ) ( ! N X
0031620 ( E ( P R I N 1 " > "
0031640 T ) T ) ) ( ( E ( P R O G
0031660 N ( S E T Q Q C O M N X )
0031700 ( E R R O R ! ) ) \r ) ) ) P
0031720 ) ( - 1 P N I L ( O R R
0031740 ( - 1 P ) ( ( E ( P R O G
0031760 N ( S E T Q Q C O M - 1 )
0032000 ( E R R O R ! ) ) ) ) ) ) (
0032020 B K P N I L ( O R R ( B K
0032040 ) ( ! 0 ) ( ( E ( P R O G
0032060 N \r ( S E T Q Q C O M B K
0032100 ) ( E R R O R ! ) ) ) ) ) P
0032120 ) ( 2 P N I L ( O R R (
0032140 2 ) ( 1 ) ( ( E ( P R O G
0032160 N ( S E T Q Q C O M 2 )
0032200 ( E R R O R ! ) ) ) ) ) P ) )
0032220 \r ( A D D T O V A R E D I T C
0032240 O M S A N X P - 1 P B K P
0032260 2 P ) \r ( A D D T O V A R C
0032300 O M P A C T H I S T O R Y C O M
0032320 S 2 P N X P B K P - 1 P
0032340 ) \r ( A D D T O V A R C O M P
0032360 A C T H I S T O R Y C O M S 2
0032400 P N X P B K P - 1 P ) \r (
0032420 A D D T O V A R E D I T M A C
0032440 R O S ( E V N I L ( O R R
0032460 ( ( E ( L I S P X E V A L
0032500 ( L I S T ( Q U O T E E D I
0032520 T V ) ( F I R S T A T O M (
0032540 # # ) ) ) ( Q U O T E E V -
0032560 > ) ) ) ) \r ( ( E ( Q U O T
0032600 E E V ? ) ) ) ) ) ( E P N
0032620 I L ( O R R ( ( E ( L I S
0032640 P X E V A L ( L I S T ( Q U
0032660 O T E E D I T P ) ( F I R S
0032700 T A T O M ( # # ) ) ) ( Q U
0032720 O T E E P - > ) ) ) ) \r ( (
0032740 E ( Q U O T E E P ? ) ) ) )
0032760 ) ( E F N I L ( O R R (
0033000 ( E ( L I S P X E V A L ( L
0033020 I S T ( Q U O T E E D I T F
0033040 ) ( F I R S T A T O M ( # #
0033060 ) ) ) ( Q U O T E E F - > )
0033100 ) ) ) \r ( ( E ( Q U O T E
0033120 E F ? ) ) ) ) ) ) \r ( A D D T O
0033140 V A R E D I T C O M S A E V
0033160 E P E F ) \r ( A D D T O V A
0033200 R D O N T S A V E H I S T O R
0033220 Y C O M S E F E V E P ) \r
0033240 ( A D D T O V A R D O N T S A
0033260 V E H I S T O R Y C O M S E F
0033300 E V E P ) \r ( A D D T O V A
0033320 R U S E R M A C R O S ( I F
0033340 Y N I L ( F ( C O N D -
0033360 - ) T ) U P ( I 1 ( C
0033400 O N D . T O . I F ( C D R (
0033420 # # 1 ) ) ) ) 1 ) ) \r ( A D
0033440 D T O V A R E D I T M A C R O
0033460 S ( B Q U O T E N I L U P
0033500 ( O R R ( ( I 1 ( O R
0033520 ( C O N S ( Q U O T E B Q U
0033540 O T E ) ( O R ( B Q U O T I
0033560 F Y ( # # 1 ) ) ( E R R O
0033600 R ! ) \r ) ) ( E R R O R ! ) )
0033620 ) ) ( ( E ( Q U O T E B Q
0033640 U O T E ? ) ) ) ) 1 ) ( S W
0033660 A P ( L C 1 L C 2 ) ( B I
0033700 N D ( M A R K # 3 ) ( L C
0033720 . L C 1 ) U P ( M A R K
0033740 # 1 ) ( \ # 3 \r ) ( L C
0033760 . L C 2 ) U P ( I F (
0034000 N O T ( O R ( F M E M B (
0034020 C A A R # 1 ) L ) ( F M E
0034040 M B ( C A A R L ) # 1 ) )
0034060 ) ( ( E ( S E T Q # 2 (
0034100 C A R ( # # ) ) ) T ) ( \
0034120 \r # 1 ) ( E ( S E T Q #
0034140 1 ( C A R ( # # ) ) ) T )
0034160 ( I 1 # 2 ) \ ( I 1
0034200 # 1 ) ) ( ( E ( Q U O T E
0034220 ( N E S T E D E X P R E S S
0034240 I O N S ) ) ) ) ) ( \ # 3 )
0034260 ) ) ( E V A L \r N I L ( O
0034300 R R ( ( E ( L I S P X E V A
0034320 L ( # # ( O R R ( U P 1
0034340 ) N I L ) ) ( Q U O T E *
0034360 ) ) ) ) ( ( E ( Q U O T E
0034400 E V A L ? ) ) ) ) ) ( G O (
0034420 L A B ) ( O R R ( ( _ ( \r
0034440 ( * A N Y * P R O G A S S E
0034460 M B L E D P R O G R E S E T
0034500 L S T ) - - L A B - - ) )
0034520 F L A B ( O R R 2 1 )
0034540 P ) ( ( E ( P R O G N (
0034560 S E T Q Q C O M L A B ) (
0034600 E R R O R ! \r ) ) ) ) ) ) ( J
0034620 O I N C N I L ( F C O N D
0034640 T ) U P ( B I 1 2 )
0034660 1 ( B O 2 ) ( 2 ) ( R O
0034700 1 ) ( B O 1 ) ) ( N E G
0034720 A T E N I L U P ( I 1
0034740 ( N E G A T E ( # # 1 \r ) )
0034760 ) 1 ) ( S P L I T C ( X )
0035000 ( F C O N D T ) ( B I
0035020 1 X ) ( I F ( A N D ( E
0035040 Q ( # # 2 1 ) T ) ( #
0035060 # 2 2 ) ( N U L L ( C D
0035100 D R ( # # ) ) ) ) ( ( B O
0035120 2 ) ( \r 2 ) ) ( ( - 2 C O
0035140 N D ) ( L I 2 ) ) ) U P
0035160 ( B O 1 ) ) ( S W A P C N
0035200 I L ( F ( ( * A N Y * C O
0035220 N D I F i f ) - - ) T )
0035240 U P ( I 1 ( S W A P P E
0035260 D C O N D ( # # 1 \r ) ) )
0035300 1 ) ( M A K E ( V A R .
0035320 V A L S ) ( C O M S ( M A K
0035340 E C O M V A R V A L S ) ) )
0035360 ( D N I L ( : ) 1 P )
0035400 ( Q N I L ( M B D Q U O
0035420 T E ) ) ( M A K E F N ( F O
0035440 R M \r A R G S N M ) ( I
0035460 F ( Q U O T E M ) ( ( B I
0035500 N M ) ( L C . N ) (
0035520 B E L O W \ ) ) ( ( I F (
0035540 Q U O T E N ) ( ( B I N
0035560 - 1 ) ( L C . N ) ( B E
0035600 L O W \ ) ) ( \r ( L I 1 )
0035620 ) ) ) ) ( E ( M A K E F N
0035640 ( Q U O T E F O R M ) ( Q U
0035660 O T E A R G S ) ( # # ) )
0035700 T ) U P ( 1 F O R M ) 1
0035720 ) ( G E T D N I L U P (
0035740 O R R ( ( I 1 ( O R ( \r
0035760 E D I T G E T D ( # # 1 )
0036000 ( A N D ( C D R L ) ( E D
0036020 I T L 0 L ( Q U O T E ( !
0036040 0 ) ) ) ) ) ( E R R O R ! ) )
0036060 ) ) ( ( E ( Q U O T E G E
0036100 T D ? ) ) ) ) 1 ) ( G E T V
0036120 A L N I L \r U P ( O R R
0036140 ( ( I 1 ( E V A L ( # #
0036160 1 ) ( Q U O T E * ) ) ) )
0036200 ( ( E ( Q U O T E G E T V A
0036220 L ? ) ) ) ) 1 ) ) \r ( A D D T
0036240 O V A R E D I T C O M S A B
0036260 Q U O T E J O I N C E V A L
0036300 N E G A T E S W A P C D
0036320 Q G E T D G E T V A L ) \r (
0036340 A D D T O V A R E D I T C O M
0036360 S L S P L I T C M A K E M
0036400 A K E F N S W A P G O ) \r (
0036420 R P A Q ? I N I T I A L S ) \r
0036440 ( R P A Q ? I N I T I A L S L
0036460 S T ) \r ( R P A Q ? D E F A U
0036500 L T I N I T I A L S ( Q U O T
0036520 E e d i t e d : ) ) \r ( M O V
0036540 D ? ( Q U O T E N I L L )
0036560 ( Q U O T E P R E E D I T F N
0036600 ) ) \r ( P U T P R O P S W E D
0036620 I T C O P Y R I G H T ( " X
0036640 e r o x C o r p o r a t i o n
0036660 " 1 9 8 2 1 9 8 3 1 9 8 4
0036700 ) ) \r N I L \r
0036707