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