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