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