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