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