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