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