$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLEXEC.DCOM!21
0000000 ( F I L E C R E A T E D " 5
0000020 - A u g - 8 6 1 6 : 5 8 : 4 0
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 > L I B R A R Y > C M L E X E
0000120 C . ; 2 3 ) \r " 4 - A u g -
0000140 8 6 1 7 : 4 3 : 1 4 " " C O
0000160 M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 4 - A
0000220 u g - 8 6 . . . " d a t e d
0000240 " 4 - A u g - 8 6 2 2 : 1
0000260 7 : 5 2 " ) \r ( F I L E C R E A
0000300 T E D " 5 - A u g - 8 6 1
0000320 6 : 5 4 : 4 6 " { E R I S } <
0000340 L I S P C O R E > L I B R A R Y
0000360 > C M L E X E C . ; 2 3 2 4 1
0000400 7 9 c h a n g e s t o : (
0000420 F N S \r E X E C - R E A D - L
0000440 I N E C M L E X E C D O - E
0000460 V E N T ) ( C O M M A N D S
0000500 O K D O - E V E N T S ) ( V
0000520 A R S C M L E X E C C O M S )
0000540 p r e v i o u s d a t e :
0000560 \r " 1 - A u g - 8 6 0 1 : 4
0000600 6 : 1 0 " { E R I S } < L I S
0000620 P C O R E > L I B R A R Y > C M
0000640 L E X E C . ; 2 1 ) \r ( R P A Q
0000660 Q C M L E X E C C O M S ( (
0000700 V A R S C M L P R O M P T )
0000720 ( F N S C M L E X E C D O -
0000740 E V E N T D O - A P P L Y - E
0000760 V E N T D O - H I S T O R Y -
0001000 S E A R C H E V A L - I N P U
0001020 T \r E X E C - R E A D - L I N
0001040 E G E T - N E X T - H I S T O
0001060 R Y - E V E N T H I S T O R Y
0001100 - A D D - T O - S P E L L I N G
0001120 - L I S T S H I S T O R Y - N
0001140 T H P R I N T - H I S T O R Y
0001160 \r F I N D - H I S T O R Y - E
0001200 V E N T S P R I N T - E V E N
0001220 T P R I N T - E V E N T - P R
0001240 O M P T P R O C E S S - E X E
0001260 C - I D S E A R C H - F O R -
0001300 E V E N T - N U M B E R \r \ P
0001320 I C K . E V A L Q T ) ( D E C
0001340 L A R E : D O N T E V A L @ L
0001360 O A D D O C O P Y ( P ( C
0001400 H A N G E N A M E ( Q U O T E
0001420 \ P R O C . R E P E A T E D L
0001440 Y E V A L Q T ) ( Q U O T E
0001460 \r E V A L Q T ) ( Q U O T E
0001500 \ P I C K . E V A L Q T ) ) (
0001520 S E T Q B a c k g r o u n d M
0001540 e n u ) ) ) ( S T R U C T U R
0001560 E S C O M M A N D - E N T R Y
0001600 E V E N T E X E C - F O N T
0001620 S \r H I S T O R Y ) ( V A R
0001640 I A B L E S B R E A K - C O M
0001660 M A N D S C L : * * * * *
0001700 * * E X E C - F O N T S * *
0001720 N O T - Y E T - E V A L U A T E
0001740 D * + + + + + + - /
0001760 / / / / / \r E X E C - C O M
0002000 M A N D S * D E F A U L T - E
0002020 X E C U T I V E * ) ( F U N C
0002040 T I O N S C A S E - E Q U A L
0002060 P D E F C O M M A N D E V E
0002100 N T - P R O P S L I S P X F O
0002120 R M A T ) ( F N S \r \ A D D
0002140 - E X E C ) ( A L I S T S (
0002160 B a c k g r o u n d M e n u C o
0002200 m m a n d s E X E C ) ) ( P
0002220 R O P F I L E T Y P E C M L
0002240 E X E C ) ( D E F I N E - T Y
0002260 P E S C O M M A N D S ) ( \r
0002300 C O M M A N D S ? ? = ? ?
0002320 ? ? T A F T E R B E F O R
0002340 E C O N N D A D I R D O
0002360 - E V E N T S F I X N D I R
0002400 P B P L R E M E M B E R
0002420 S H H U N D O R E D O F O
0002440 R G E T ) \r ( P R O P E X E
0002460 C C O M M O N - L I S P I N
0002500 T E R L I S P ) ( D E C L A R
0002520 E : D O N T E V A L @ L O A D
0002540 D O E V A L @ C O M P I L E
0002560 D O N T C O P Y C O M P I L E
0002600 R V A R S ( \r A D D V A R S
0002620 ( N L A M A ) ( N L A M L )
0002640 ( L A M A \ A D D - E X E C
0002660 C M L E X E C ) ) ) ) ) \r ( R P
0002700 A Q Q C M L P R O M P T " >
0002720 " ) \r C M L E X E C A 0 0 0 1
0002740 A 0 0 0 2 D 1 \r ( N A M E E
0002760 R R O R S E T L ( 0 N I L
0003000 ) P 2 H E L P C L O C K
0003020 P 1 L I S P X H I S T F
0003040 3 L I S P X H I S T F 4
0003060 E N V I R O N M E N T F 5
0003100 R E S E T Y ) \0 037 003 003 002 \0 \b \0
0003120 \0 \t \0 \0 S j 021 003 002 H o \0 \0 \0 364 245
0003140 H T \n \0 \0 200 h 022 c \n i 020 \0 ( 2 6
0003160 Q D O - E V E N T 5 C M L
0003200 T R A N S L A T E 2 E X E C
0003220 - R E A D - L I N E ) \r N I L \r
0003240 ( 1 7 Q ( N I L ) ) \r C M L
0003260 E X E C A 0 0 0 1 D 1 \r ( N A
0003300 M E E R R O R S E T P 1
0003320 R E S E T Y P 0 L I S P X
0003340 H I S T F 3 O U T P U T
0003360 F 4 L I S P X H I S T O R Y
0003400 F 5 * E X E C - I D * F
0003420 6 R E S E T V A R S L S T
0003440 F 7 T O P - L E V E L - P
0003460 F 1 0 Q * C U R R E N T - E
0003500 V E N T * F 1 1 Q P R O M
0003520 P T F 1 2 Q L I S P X H I
0003540 S T ) \0 @ 003 \b 002 \0 T U W 016 h 360
0003560 \v \0 \0 c 020 W 022 S \v \0 \0 277 ` \0 \0 \t
0003600 \0 \0 S \n \0 \0 277 W 024 021 ! 002 V o \0 \0
0003620 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0
0003640 \0 277 J 222 \b \0 \0 i 020 \0 ( 7 4 Q E
0003660 R R O R ! 6 6 Q R E S E T R
0003700 E S T O R E 5 4 Q C M L E X
0003720 E C A 0 0 0 1 A 0 0 0 2 3 3 Q
0003740 D S P F O N T 2 7 Q E X E
0003760 C - F O N T S - I N P U T 2 0
0004000 Q P R I N T - E V E N T - P R
0004020 O M P T 1 0 Q G E T - N E X
0004040 T - H I S T O R Y - E V E N T )
0004060 \r ( 6 2 Q E R R O R 5 1 Q
0004100 I N T E R N A L 2 4 Q * E X
0004120 E C - F O N T S * ) \r ( 4 6 Q
0004140 ( C M L E X E C A 0 0 0 1 A 0
0004160 0 0 2 ) ) \r C M L E X E C D 1
0004200 \r ( L ( 0 - a r g s - ) P
0004220 2 5 Q * C U R R E N T - E V
0004240 E N T * P 2 4 Q # R P A R
0004260 S P 2 3 Q * E X E C - I D
0004300 * P 2 2 Q O U T P U T P
0004320 2 1 Q * C U R R E N T - E X
0004340 E C U T I V E - T Y P E * P
0004360 2 0 Q * R E A D T A B L E *
0004400 P 1 5 Q T O P - L E V E L -
0004420 P P 1 0 Q E N V I R O N M
0004440 E N T P 3 P R O M P T F
0004460 2 6 Q C M L P R O M P T F
0004500 2 7 Q C M L R D T B L ) 001
0004520 $ 026 002 002 \0 e 021 001 \0 H k 021 002 002 J d
0004540 I 363 242 261 \0 224 277 W , 022 021 301 017 H k 275
0004560 274 M d L 363 242 261 \0 226 277 H k _ 016 277 276
0004600 O 016 d N 363 242 261 \0 227 277 h _ 020 277 H k
0004620 _ 024 277 _ 022 277 O 024 d O 022 363 242 261 \0 230
0004640 277 W . 021 001 020 H k _ 030 277 _ 026 277 O 030
0004660 d O 026 363 242 261 \0 230 277 h _ 032 277 H k _
0004700 036 277 _ 034 277 O 036 d O 034 363 242 261 \0 231 277
0004720 O 032 223 \b \0 \0 277 g \0 \0 i g \0 \0 \n \0
0004740 \0 021 2 025 \b \0 \0 \t \0 \0 _ & o \0 \0 \0
0004760 i \n \0 \0 277 260 367 a g \0 \0 360 226 J k 330
0005000 a 261 377 h J l 002 324 Z 261 377 V a g \0 \0
0005020 360 222 261 377 h M l 002 324 ] 261 377 X a g \0
0005040 \0 360 227 O 016 k 330 a 261 377 c O 016 l 002 324
0005060 _ 016 261 377 P a g \0 \0 360 227 O 024 k 330 a
0005100 261 377 c O 024 l 002 324 _ 024 261 377 N a g \0
0005120 \0 360 227 O 030 k 330 a 261 377 b O 030 l 002 324
0005140 _ 030 261 377 N a g \0 \0 360 222 261 377 e O 036
0005160 l 002 324 _ 036 261 377 R \0 ( 2 3 6 Q C
0005200 M L E X E C A 0 0 0 1 2 2 4 Q
0005220 P R O C E S S - E X E C - I D
0005240 2 2 1 Q T H I S . P R O C E
0005260 S S 2 1 3 Q G E T S T R E A
0005300 M 2 0 0 Q E N T E R E V A L
0005320 Q T ) \r ( 4 2 3 Q : T I T L E
0005340 3 7 3 Q : T O P - L E V E L
0005360 - P 3 4 3 Q : R E A D T A B
0005400 L E 3 1 3 Q : E N V I R O N
0005420 M E N T 2 7 2 Q : C O M M A
0005440 N D S 2 4 5 Q : P R O M P T
0005460 2 1 0 Q O U T P U T 2 0 4
0005500 Q C O M M O N - L I S P ) \r (
0005520 2 3 2 Q ( C M L E X E C A 0
0005540 0 0 1 ) ) \r D O - E V E N T D
0005560 1 \r ( P 1 4 Q V A L U E S
0005600 P 1 3 Q H E L P C L O C K
0005620 P 1 2 Q X P 1 1 Q E C
0005640 A S E 0 2 0 9 P 1 0 Q C O
0005660 M P 2 V A L U E S P 1
0005700 I N P U T P 0 T O D O
0005720 I 1 E N V I R O N M E N T
0005740 I 0 O R I G I N A L - I N P
0005760 U T F 1 5 Q * C U R R E N
0006000 T - E V E N T * F 1 6 Q *
0006020 R E A D T A B L E * F 1 7 Q
0006040 I T F 2 0 Q + + F 2
0006060 1 Q + F 2 2 Q - F 2
0006100 3 Q / / F 2 4 Q / F
0006120 2 5 Q * * F 2 6 Q C L :
0006140 * F 2 7 Q * T H I S - E X
0006160 E C - C O M M A N D S * F 3
0006200 0 Q E X E C - C O M M A N D S
0006220 F 3 1 Q * * * F 3 2 Q
0006240 A D D S P E L L F L G F 3
0006260 3 Q L I S P X H I S T F 3
0006300 4 Q + + + F 3 5 Q / / /
0006320 ) 001 247 \r 021 \0 002 021 p 006 ` \0 \0 \t \0
0006340 \0 i \n \0 \0 277 @ 271 I X 001 004 l 004 360 242
0006360 261 \0 330 W . W 0 \n \0 \0 021 021 \b O 016 003
0006400 265 ( h 022 242 261 \0 303 H \t \0 \0 021 001 \t O
0006420 022 d g \0 \0 360 262 F 277 I A l 002 H \t \0
0006440 \0 016 \t \0 \0 Z 260 - 001 _ 020 277 I 001 O 020
0006460 \t \0 \0 \n \0 \0 225 O 020 270 i 260 310 O 016 002
0006500 _ 016 260 275 d 001 021 001 \n O 024 i W 034 \v \0
0006520 \0 023 002 003 265 360 J 001 c 036 h 020 g \0 \0 360
0006540 262 0 I A l 002 H \t \0 \0 016 271 W 032 265 006
0006560 023 261 377 w I \n \0 \0 277 W 032 274 g \0 \0 @
0006600 W 032 002 002 002 032 032 273 L 002 002 K 031 277 260 342
0006620 O 022 227 O 022 g \0 \0 360 264 ! g \0 \0 g \0
0006640 \0 H \t \0 \0 h 032 032 g \0 \0 I h 032 032 o
0006660 \0 \0 \0 032 032 032 h 032 X 214 o \0 \0 \0 O 022
0006700 o \0 \0 \0 \f \0 \0 023 W 032 265 003 202 261 \0 224
0006720 W 4 230 H I 360 224 I \t \0 \0 277 W 032 c 6
0006740 277 ` \0 \0 \t \0 \0 i \n \0 \0 277 l 002 \t \0
0006760 \0 021 021 \f W c 8 277 W " c 277 W $
0007000 c " 277 I 001 c $ H A \n \0 \0 \t \0 \0 _
0007020 030 W & c : 277 W ( c & 277 O 030 c ( W
0007040 * c 2 277 W , c * 277 O 030 001 c 036 c ,
0007060 W 032 265 020 ` \0 \0 \t \0 \0 i \n \0 \0 O 030
0007100 260 8 O 030 001 \n \0 \0 277 W 032 276 g \0 \0 O
0007120 030 W 032 002 002 002 032 032 275 N 002 002 M 031 277 260
0007140 325 I \n \0 \0 277 261 377 j d 001 021 001 \n O 024
0007160 i W 034 \v \0 \0 023 002 003 265 360 O 030 020 \0 (
0007200 6 3 5 Q S H O W P R I N T 6
0007220 1 4 Q s e t f - E V E N T - I
0007240 N P U T 5 5 7 Q s e t f - E
0007260 V E N T - V A L U E 5 4 5 Q
0007300 D S P F O N T 5 4 1 Q E X E
0007320 C - F O N T S - V A L U E S 4
0007340 6 6 Q \ M V L I S T 4 6 3 Q
0007360 E V A L - I N P U T 4 3 0 Q
0007400 C L O C K 4 2 2 Q D S P F
0007420 O N T 4 1 6 Q E X E C - F O
0007440 N T S - P R I N T O U T 4 0 2
0007460 Q H I S T O R Y - A D D - T O
0007500 - S P E L L I N G - L I S T S
0007520 3 5 6 Q E C A S E - F A I L
0007540 3 1 4 Q C O M M A N D - E N T
0007560 R Y - F U N C T I O N 2 3 7 Q
0007600 s e t f - E V E N T - I N P U
0007620 T 2 2 1 Q C O M M A N D - E
0007640 N T R Y - F U N C T I O N 1 7
0007660 0 Q S H O W P R I N T 1 3 5
0007700 Q S T R I N G - E Q U A L 1
0007720 3 2 Q C O M M A N D - E N T R
0007740 Y - N A M E 1 1 4 Q \ M V L
0007760 I S T 1 1 0 Q C O M M A N D
0010000 - E N T R Y - F U N C T I O N
0010020 6 3 Q C O M M A N D - E N T R
0010040 Y - M O D E 4 1 Q \ A P P E
0010060 N D 2 1 4 Q D S P F O N T
0010100 1 0 Q E X E C - F O N T S - P
0010120 R I N T O U T ) \r ( 5 6 6 Q L
0010140 I S P X V A L U E S 5 3 6 Q
0010160 * E X E C - F O N T S * 4 1 3
0010200 Q * E X E C - F O N T S * 3
0010220 2 2 Q Q U O T E 3 1 0 Q Q
0010240 U O T E 3 0 5 Q F U N C A L
0010260 L 2 7 7 Q : E V A L 2 4 6
0010300 Q * H I S T O R Y * 2 0 6 Q
0010320 : H I S T O R Y 7 4 Q : Q
0010340 U I E T 5 * E X E C - F O N
0010360 T S * ) \r ( 3 5 3 Q ( : Q U
0010400 I E T : H I S T O R Y ( N I
0010420 L : E V A L ) ) 3 4 5 Q (
0010440 C O M M A N D - E N T R Y - M O
0010460 D E T O D O ) 3 3 2 Q ( E
0010500 N V ) ) \r D O - A P P L Y - E V
0010520 E N T D 1 \r ( P 1 C N T
0010540 P 0 F N I 0 T O D O )
0010560 \0 J 002 \0 \0 001 @ 001 \t \0 \0 262 036 @ 001
0010600 \t \0 \0 l 003 360 235 @ d 002 002 221 002 201 002 001
0010620 k @ 001 016 020 @ \t \0 \0 020 @ 001 j 021 002 001
0010640 @ 002 001 260 027 d 001 375 002 I k 330 Y n 002 \0
0010660 361 227 o \0 \0 \0 \t \0 \0 277 265 353 I H 016 020
0010700 \0 ( 1 0 1 Q L I S P E R R O R
0010720 4 1 Q C L : E V A L 1 3 Q
0010740 A R G T Y P E 4 M A C R O
0010760 - F U N C T I O N ) \r N I L \r (
0011000 7 6 Q " T O O M A N Y A
0011020 R G U M E N T S " ) \r D O - H I
0011040 S T O R Y - S E A R C H D 1 \r
0011060 ( P 3 P R E D P 2 T E
0011100 M P 1 P A T 2 P 0 P
0011120 A T 1 I 2 V A L U E - P
0011140 I 1 P R E D - P I 0 S
0011160 P E C F 4 * E V E N T S *
0011200 ) \0 ` 004 001 \0 003 021 @ 003 A 245 @ i \n
0011220 \0 \0 271 T 001 002 002 002 g \0 \0 ' Z 237 I 235
0011240 I J 001 360 263 9 I J 001 003 001 360 263 1 A 227
0011260 T 001 k @ 017 016 260 & H 265 017 B 262 026 T 001
0011300 002 002 002 g \0 \0 ' 216 T 001 \t \0 \0 001 \n \0
0011320 \0 211 T 001 \t \0 \0 I i \v \0 \0 221 T 020 T
0011340 002 c \b d 263 260 020 \0 ( 1 2 3 Q E D
0011360 I T F I N D P 1 1 6 Q E V E
0011400 N T - I N P U T 1 1 0 Q E D
0011420 I T 4 E 1 0 4 Q E V E N T -
0011440 I N P U T 1 1 Q E D I T F P
0011460 A T ) \r ( 7 5 Q L I S P X V A
0011500 L U E S 2 2 Q * H I S T O R
0011520 Y * ) \r ( ) \r E V A L - I N P U
0011540 T D 1 \r ( P 1 C N T P
0011560 0 F N I 1 E N V I 0
0011600 T O D O ) \0 T 002 \0 \0 002 @ d 002
0011620 262 J 001 \t \0 \0 262 036 @ 001 \t \0 \0 l 003 360
0011640 235 @ d 002 002 221 002 201 002 001 k @ 001 016 020 @
0011660 \t \0 \0 020 @ 001 j 021 002 001 @ 002 001 260 027 d
0011700 001 375 002 I k 330 Y n 002 \0 361 227 o \0 \0 \0
0011720 \t \0 \0 277 265 353 I H 016 020 001 A \n \0 \0 020
0011740 \0 ( 1 2 1 Q C L : E V A L 1
0011760 0 5 Q L I S P E R R O R 4 5
0012000 Q C L : E V A L 1 7 Q A R
0012020 G T Y P E 1 0 Q M A C R O -
0012040 F U N C T I O N ) \r N I L \r (
0012060 1 0 2 Q " T O O M A N Y A
0012100 R G U M E N T S " ) \r E X E C -
0012120 R E A D - L I N E D 1 \r ( P
0012140 3 C H R C O D E P 2 S P
0012160 A C E F L G P 1 T E M P
0012200 0 L I N E F 4 * R E A
0012220 D T A B L E * F 5 L I S P
0012240 X R E A D F N F 6 C T R L
0012260 U F L G ) \0 261 004 003 \0 \0 i T l 002
0012300 U 016 h 032 021 1 003 H d 001 003 247 277 i \t \0
0012320 \0 263 p H 020 K g \0 \0 T \v \0 \0 251 K g
0012340 \0 \0 T \v \0 \0 262 026 i T \n \0 \0 277 H d
0012360 002 263 m h h 032 \n \0 \0 X 260 d K l 360
0012400 237 K g \0 \0 T \v \0 \0 226 i Z \t \0 \0 260
0012420 4 H i T l 002 U 017 016 h 032 \n \0 \0 270 i
0012440 \t \0 \0 \t \0 \0 [ g \0 \0 T \v \0 \0 263 /
0012460 K g \0 \0 T \v \0 \0 264 \n J 244 H 002 002 262
0012500 036 h Z 277 i T \n \0 \0 [ g \0 \0 \n \0 \0
0012520 262 205 i \t \0 \0 277 H 264 006 J 260 344 H 003 231
0012540 V 227 h c \f 277 H \t \0 \0 H 020 \0 ( 2 5
0012560 5 Q E D I T E 2 3 1 Q R E
0012600 A D C 2 2 3 Q S Y N T A X P
0012620 2 1 4 Q P E E K C C O D E
0012640 1 7 3 Q S Y N T A X P 1 6 1
0012660 Q S Y N T A X P 1 5 1 Q C
0012700 H C O N 1 1 4 6 Q L A S T C
0012720 1 4 1 Q \ N C O N C 2 1 2
0012740 2 Q R E A D C 1 1 4 Q S Y
0012760 N T A X P 7 4 Q \ N C O N C
0013000 2 6 0 Q R E A D 5 1 Q S
0013020 Y N T A X P 4 0 Q S Y N T A
0013040 X P 2 4 Q R E A D P ) \r ( 2
0013060 2 0 Q E O L 1 6 7 Q R I G
0013100 H T P A R E N 1 5 5 Q R I G
0013120 H T B R A C K E T 1 1 0 Q S
0013140 E P R 4 5 Q R I G H T B R A
0013160 C K E T 3 4 Q R I G H T P A
0013200 R E N ) \r ( ) \r G E T - N E X T
0013220 - H I S T O R Y - E V E N T D
0013240 1 \r ( P 5 A 0 2 1 8 P 4
0013260 A 0 2 1 9 P 3 A 0 2 1 6
0013300 P 2 A 0 2 1 7 P 1 E
0013320 V E N T I 2 F I R S T - O
0013340 N L Y I 1 I D I 0 H
0013360 I S T O R Y ) \0 k 006 \0 \0 003 @ \t
0013400 \0 \0 021 021 001 H 003 265 F g \0 \0 @ 021 001 002
0013420 J \t \0 \0 k 324 021 001 003 J K \n \0 \0 022 022
0013440 A h 032 032 \n \0 \0 271 @ 021 001 004 I L \t \0
0013460 \0 032 021 001 005 L M \n \0 \0 023 023 @ \t \0 \0
0013500 k 325 @ \t \0 \0 \n \0 \0 h 031 I 020 001 Y \t
0013520 \0 \0 003 002 001 A 360 227 I \t \0 \0 263 255 I 020
0013540 B 263 250 H 002 X 260 240 \0 ( 1 3 5 Q E
0013560 V E N T - I N P U T 1 2 3 Q
0013600 E V E N T - I D 1 1 2 Q N T
0013620 H C D R 1 0 7 Q H I S T O R
0013640 Y - E V E N T S 1 0 1 Q H I
0013660 S T O R Y - S I Z E 7 3 Q s
0013700 e t f - H I S T O R Y - E V E N
0013720 T S 6 2 Q H I S T O R Y - E
0013740 V E N T S 5 0 Q M A K E - E
0013760 V E N T 3 7 Q s e t f - H I
0014000 S T O R Y - I N D E X 2 5 Q
0014020 H I S T O R Y - I N D E X 3
0014040 H I S T O R Y - E V E N T S ) \r
0014060 ( 1 5 Q : I D ) \r ( ) \r H I S
0014100 T O R Y - A D D - T O - S P E L
0014120 L I N G - L I S T S D 1 \r ( I
0014140 0 I N P U T ) \0 X \0 \0 \0 001
0014160 @ d 002 262 030 001 004 l 004 360 264 L @ 001 \t \0
0014200 \0 264 E @ 001 l 002 \n \0 \0 020 001 003 262 # @
0014220 d 001 001 004 l 004 360 262 032 001 001 \t \0 \0 247 @
0014240 001 001 \t \0 \0 264 ! @ 001 001 l 002 \n \0 \0 020
0014260 @ 001 004 l 004 360 264 020 @ 001 \t \0 \0 264 \t @
0014300 001 l 003 \n \0 \0 020 \0 ( 1 2 5 Q A D
0014320 D S P E L L 1 1 4 Q B O U N
0014340 D P 7 6 Q A D D S P E L L
0014360 6 4 Q S P E C I A L - F O R M
0014400 - P 5 5 Q F B O U N D P 3
0014420 1 Q A D D S P E L L 2 0 Q
0014440 \ D E F I N E D P ) \r N I L \r (
0014460 ) \r H I S T O R Y - N T H D 1
0014500 \r ( P 0 E V E N T I 2
0014520 I D I 1 N I 0 L S T
0014540 ) \0 3 001 \0 \0 003 021 020 \0 @ 264 ' A j
0014560 363 241 h 020 @ 001 X \t \0 \0 262 032 B 005 \a 231
0014600 H \t \0 \0 003 002 001 B 360 231 A k 325 b 002 j
0014620 363 241 @ 020 @ 002 b \0 260 324 \0 ( 3 3 Q
0014640 E V E N T - I D 2 1 Q E V E
0014660 N T - I N P U T ) \r N I L \r ( )
0014700 \r P R I N T - H I S T O R Y D
0014720 1 \r ( P 2 X P 1 H E L
0014740 P C L O C K P 0 E V E N T
0014760 S I 4 F I L E I 3 N
0015000 O V A L U E S I 2 S K I P
0015020 F N I 1 L I N E I 0
0015040 H I S T O R Y ) \0 @ 003 \0 \0 005 D
0015060 265 003 i g \0 \0 \n \0 \0 b \b A 265 020 @ \t
0015100 \0 \0 021 021 001 D \t \0 \0 H 260 031 @ \n \0 \0
0015120 260 362 d 001 021 001 002 J D \n \0 \0 277 D \t \0
0015140 \0 023 002 003 265 356 D \t \0 \0 \b \0 \0 020 \0 (
0015160 7 5 Q V A L U E S 7 2 Q T
0015200 E R P R I 6 1 Q T E R P R I
0015220 5 4 Q P R I N T - E V E N T
0015240 4 0 Q F I N D - H I S T O R
0015260 Y - E V E N T S 3 1 Q T E R
0015300 P R I 2 2 Q H I S T O R Y -
0015320 E V E N T S 1 1 Q G E T S T
0015340 R E A M ) \r ( 6 O U T P U T )
0015360 \r ( ) \r F I N D - H I S T O R Y
0015400 - E V E N T S D 1 \r ( P 1 0
0015420 Q A 0 2 2 3 P 7 A L L -
0015440 P P 6 P R E D - P P 5
0015460 V A L P 4 V A L U E - P
0015500 P 3 T E M P 2 S P E
0015520 C P 1 O R I G I N A L - E
0015540 V E N T - S P E C P 0 * E
0015560 V E N T S * I 1 H I S T O
0015600 R Y I 0 E V E N T - S P E
0015620 C F 1 1 Q * C U R R E N T
0015640 - E V E N T * F 1 2 Q * E
0015660 X E C - I D * ) \0 317 \t 002 \0 002 A
0015700 \t \0 \0 @ 021 b \a H 001 W 022 360 222 H 002 270
0015720 @ 001 Z 021 001 \b O 020 g \0 \0 \n \0 \0 232 i
0015740 _ 016 277 @ 002 b \0 023 260 350 O 020 g \0 \0 \n
0015760 \0 \0 262 025 @ 002 [ 226 @ 002 b \0 001 Z 200 J
0016000 N L \v \0 \0 260 Q O 020 g \0 \0 \n \0 \0 236
0016020 i 276 @ 002 b \0 001 Z N L \v \0 \0 260 9 O
0016040 020 g \0 \0 \n \0 \0 224 i \ 023 260 245 J d 3
0016060 262 030 277 j J 363 262 030 H j J 325 O 016 h
0016100 360 264 004 W 024 \v \0 \0 213 N L \v \0 \0 206 H
0016120 A J \v \0 \0 X 023 H 257 O 016 221 M 020 J o
0016140 \0 \0 \0 i \v \0 \0 260 034 @ 002 b \0 263 027 O
0016160 016 244 H 001 h 032 020 M H 001 h 032 \n \0 \0 275
0016200 I b \0 277 H 002 270 h \ 276 261 377 F \0 ( 2
0016220 7 7 Q \ N C O N C 2 2 4 7 Q
0016240 E R R O R 2 2 5 Q S E A R
0016260 C H - F O R - E V E N T - N U M
0016300 B E R 2 1 6 Q D O - H I S T
0016320 O R Y - S E A R C H 2 1 0 Q
0016340 H I S T O R Y - N T H 1 4 7 Q
0016360 S T R I N G . E Q U A L 1 3
0016400 5 Q D O - H I S T O R Y - S E
0016420 A R C H 1 1 7 Q S T R I N G
0016440 . E Q U A L 1 0 5 Q D O - H
0016460 I S T O R Y - S E A R C H 6 2
0016500 Q S T R I N G . E Q U A L 3
0016520 6 Q S T R I N G . E Q U A L
0016540 3 H I S T O R Y - E V E N T S
0016560 ) \r ( 1 4 4 Q = 1 1 4 Q S
0016600 U C H T H A T 5 7 Q F 3 3
0016620 Q A L L ) \r ( 2 4 3 Q "
0016640 ? " ) \r P R I N T - E V E N T A
0016660 0 0 0 1 D 1 \r ( I 1 F I L
0016700 E I 0 X ) \0 \a \0 \0 \0 002 @
0016720 A \n \0 \0 020 \0 ( 4 P R I N 2 ) \r
0016740 N I L \r ( ) \r P R I N T - E V E
0016760 N T A 0 0 0 2 D 1 \r ( I 1
0017000 F I L E I 0 X ) \0 \a \0 \0
0017020 \0 002 @ A \n \0 \0 020 \0 ( 4 S H O W
0017040 P R I N 2 ) \r N I L \r ( ) \r P R
0017060 I N T - E V E N T D 1 \r ( P
0017100 6 X P 5 P R I N T O U T
0017120 P 4 E V E N T # P 3
0017140 T E M P 2 Y P 1 P O
0017160 S I T I O N P 0 I N P U T
0017200 I 1 F I L E I 0 E V
0017220 E N T F 7 S K I P F N F
0017240 1 0 Q C M L P R O M P T F
0017260 1 1 Q H I S T O R Y F 1
0017300 2 Q N O V A L U E S F 1 3
0017320 Q H I S T S T R 0 F 1 4 Q
0017340 * R E A D T A B L E * ) 001 Y
0017360 \a 006 \0 002 W 016 232 @ k W 016 017 016 223 g \0
0017400 \0 020 @ \t \0 \0 o \0 \0 \0 A \n \0 \0 021 2
0017420 004 @ W 020 A \v \0 \0 263 027 W 022 @ \n \0 \0
0017440 274 A o \0 \0 \0 L @ \t \0 \0 \f \0 \0 277 I
0017460 A \n \0 \0 277 ` \0 \0 \t \0 \0 A \n \0 \0 277
0017500 @ 002 002 002 g \0 \0 ' [ 265 022 W 026 H 003 034
0017520 Z 262 # H J \n \0 \0 X 260 034 A h d d g
0017540 \0 \0 \r 006 \0 \0 277 A \t \0 \0 277 I A \n \0
0017560 \0 277 260 331 H 003 263 033 H 265 022 @ 002 002 002 263
0017600 N o \0 \0 \0 A \n \0 \0 260 C A \n \0 \0 260
0017620 = H d 002 002 234 A h d d g \0 \0 \r 006 \0
0017640 \0 260 + 002 262 " H 001 A \n \0 \0 277 H 002 001
0017660 [ 265 \v o \0 \0 \0 A \n \0 \0 217 003 245 k A
0017700 \n \0 \0 277 K 201 H 001 A \n \0 \0 277 J 265 #
0017720 @ 002 002 002 g \0 \0 ' 021 001 005 M 262 6 ` \0
0017740 \0 \t \0 \0 A \n \0 \0 277 A \t \0 \0 277 M 260
0017760 002 270 A \t \0 \0 277 I A \n \0 \0 277 261 377
0020000 M d 001 021 001 006 N A W 030 \v \0 \0 023 002 003
0020020 265 361 023 W 024 263 1 ` \0 \0 \t \0 \0 A \n \0
0020040 \0 277 @ 002 002 002 g \0 \0 ' 260 031 d 001 021 001
0020060 006 A \t \0 \0 277 I A \n \0 \0 277 N A \n \0
0020100 \0 023 002 003 265 350 A \t \0 \0 h 020 \0 ( 5 2
0020120 5 Q F R E S H L I N E 5 1 4
0020140 Q S H O W P R I N T 5 0 6 Q
0020160 D S P X P O S I T I O N 5 0
0020200 0 Q F R E S H L I N E 4 5 4
0020220 Q D S P F O N T 4 5 0 Q E
0020240 X E C - F O N T S - V A L U E S
0020260 4 3 0 Q L I S P X R E P R I
0020300 N T 4 1 0 Q D S P X P O S I
0020320 T I O N 4 0 2 Q T E R P R I
0020340 3 7 0 Q F R E S H L I N E
0020360 3 6 3 Q D S P F O N T 3 5 7
0020400 Q E X E C - F O N T S - P R I
0020420 N T O U T 3 2 7 Q S H O W P
0020440 R I N 2 3 1 6 Q S P A C E S
0020460 3 0 6 Q P R I N 1 2 6 7 Q
0020500 S H O W P R I N 2 2 5 4 Q
0020520 M A P R I N T 2 3 2 Q P R I
0020540 N 2 2 2 4 Q P R I N 1 1 7
0020560 4 Q D S P X P O S I T I O N
0020600 1 6 6 Q T E R P R I 1 6 1 Q
0020620 M A P R I N T 1 4 3 Q L D
0020640 I F F 1 1 2 Q D S P F O N T
0020660 1 0 6 Q E X E C - F O N T S
0020700 - I N P U T 7 7 Q D S P X P
0020720 O S I T I O N 7 1 Q F O R M
0020740 A T 6 6 Q E V E N T - I D
0020760 5 3 Q E N T R Y # 4 3 Q P
0021000 R I N T - E V E N T - P R O M P
0021020 T 3 1 Q S T R I N G W I D T
0021040 H 2 1 Q E V E N T - I N P U
0021060 T ) \r ( 4 6 4 Q L I S P X V A
0021100 L U E S 4 4 5 Q * E X E C -
0021120 F O N T S * 3 5 4 Q * E X E
0021140 C - F O N T S * 3 4 2 Q * L
0021160 I S P X P R I N T * 2 5 0 Q
0021200 P R I N T - E V E N T A 0 0 0 2
0021220 1 5 5 Q P R I N T - E V E N
0021240 T A 0 0 0 1 1 2 2 Q * H I S
0021260 T O R Y * 1 0 3 Q * E X E C
0021300 - F O N T S * 1 4 Q I f ) \r
0021320 ( 3 0 2 Q " ) " 2 2 0 Q
0021340 " < i n p r o g r e s s > "
0021360 6 1 Q " ~ D ~ A " 2 5 Q "
0021400 9 9 / 9 9 9 9 > " ) \r P R I N T
0021420 - E V E N T - P R O M P T D 1
0021440 \r ( P 2 I N D E X P 1
0021460 I D P 0 A 0 2 2 5 I 2
0021500 O U T P U T I 1 P R O M
0021520 P T I 0 E V E N T ) \0 2
0021540 003 \0 \0 003 B \t \0 \0 @ \t \0 \0 003 264 ' `
0021560 \0 \0 \t \0 \0 B \n \0 \0 @ \t \0 \0 021 ! 002
0021600 H 001 272 H 002 001 271 B o \0 \0 \0 I J A \r
0021620 005 \0 \0 i 020 \0 ( 5 6 Q F O R M A
0021640 T 3 0 Q E V E N T - I D 2
0021660 4 Q D S P F O N T 2 0 Q E
0021700 X E C - F O N T S - P R O M P T
0021720 7 E V E N T - I D 3 F R
0021740 E S H - L I N E ) \r ( 1 5 Q *
0021760 E X E C - F O N T S * ) \r ( 4
0022000 7 Q " ~ A ~ D ~ A " ) \r P R O
0022020 C E S S - E X E C - I D D 1 \r
0022040 ( P 1 I D P 0 N A M E
0022060 I 0 X ) \0 K 002 \0 \0 001 @ g
0022100 \0 \0 \n \0 \0 265 B @ \t \0 \0 021 021 001 @ g
0022120 \0 \0 o \0 \0 \0 H k h i \r 005 \0 \0 262 034
0022140 H d g \0 \0 360 226 277 o \0 \0 \0 260 026 l 006
0022160 m 377 \v \0 \0 o \0 \0 \0 204 H o \0 \0 \0 \n
0022200 \0 \0 Y \v \0 \0 I 020 \0 ( 1 0 7 Q P
0022220 R O C E S S P R O P 1 0 3 Q
0022240 C O N C A T 6 6 Q S U B A T
0022260 O M 3 7 Q S T R P O S 1 4
0022300 Q P R O C E S S . N A M E 6
0022320 P R O C E S S P R O P ) \r ( 4
0022340 6 Q E X E C 2 3 Q I D 3
0022360 I D ) \r ( 1 0 0 Q " / "
0022400 7 2 Q " / " 5 5 Q " " 2
0022420 7 Q " E X E C " ) \r S E A R C
0022440 H - F O R - E V E N T - N U M B
0022460 E R D 1 \r ( P 0 I D I
0022500 2 S P E C I 1 H I S T O
0022520 R Y I 0 E V E N T S ) \0
0022540 & 001 \0 \0 003 @ d 262 030 001 \t \0 \0 021 001 \0
0022560 H 003 265 016 B A @ 001 \n \0 \0 : 022 225 @ 020
0022600 001 B 260 371 @ 002 b \0 260 336 \0 ( 2 5 Q
0022620 E N T R Y # 7 E V E N T - I
0022640 D ) \r N I L \r ( ) \r \ P I C K .
0022660 E V A L Q T D 1 \r ( F 0 *
0022700 D E F A U L T - E X E C U T I V
0022720 E * ) \0 023 \0 001 \0 \0 P g \0 \0 360 227
0022740 g \0 \0 i \n \0 \0 020 \b \0 \0 020 \0 ( 2 0
0022760 Q E V A L Q T 1 4 Q C M L
0023000 E X E C ) \r ( 1 0 Q : T O P -
0023020 L E V E L - P 3 C O M M O N
0023040 - L I S P ) \r ( ) \r ( C H A N G
0023060 E N A M E ( Q U O T E \ P R
0023100 O C . R E P E A T E D L Y E V A
0023120 L Q T ) ( Q U O T E E V A L
0023140 Q T ) ( Q U O T E \ P I C K
0023160 . E V A L Q T ) ) \r ( S E T Q
0023200 B a c k g r o u n d M e n u ) \r
0023220 C O M M A N D - E N T R Y - D O
0023240 C U M E N T A T I O N D 1 \r (
0023260 L ( 0 O B J E C T ) ) \0 \a
0023300 \0 \0 \0 001 @ 002 002 002 001 020 \0 N I L \r N
0023320 I L \r ( ) \r s e t f - C O M M A
0023340 N D - E N T R Y - D O C U M E N
0023360 T A T I O N D 1 \r ( L ( 1
0023400 V A L U E 0 O B J E C T ) )
0023420 \0 \t \0 \0 \0 002 @ 002 002 002 A 030 001 020 \0
0023440 N I L \r N I L \r ( ) \r ( R E M P
0023460 R O P ( Q U O T E C O M M A
0023500 N D - E N T R Y - D O C U M E N
0023520 T A T I O N ) ( Q U O T E S
0023540 E T F - M E T H O D - E X P A N
0023560 D E R ) ) \r ( P U T P R O P S
0023600 C O M M A N D - E N T R Y - D O
0023620 C U M E N T A T I O N S E T F
0023640 - I N V E R S E s e t f - C O
0023660 M M A N D - E N T R Y - D O C U
0023700 M E N T A T I O N ) \r C O M M A
0023720 N D - E N T R Y - M O D E D 1
0023740 \r ( L ( 0 O B J E C T ) )
0023760 \0 006 \0 \0 \0 001 @ 002 002 001 020 \0 N I L \r
0024000 N I L \r ( ) \r s e t f - C O M M
0024020 A N D - E N T R Y - M O D E D
0024040 1 \r ( L ( 1 V A L U E 0
0024060 O B J E C T ) ) \0 \b \0 \0 \0 002 @
0024100 002 002 A 030 001 020 \0 N I L \r N I L \r (
0024120 ) \r ( R E M P R O P ( Q U O T
0024140 E C O M M A N D - E N T R Y -
0024160 M O D E ) ( Q U O T E S E T
0024200 F - M E T H O D - E X P A N D E
0024220 R ) ) \r ( P U T P R O P S C O
0024240 M M A N D - E N T R Y - M O D E
0024260 S E T F - I N V E R S E s e
0024300 t f - C O M M A N D - E N T R Y
0024320 - M O D E ) \r C O M M A N D - E
0024340 N T R Y - F U N C T I O N D 1
0024360 \r ( L ( 0 O B J E C T ) )
0024400 \0 005 \0 \0 \0 001 @ 002 001 020 \0 N I L \r N
0024420 I L \r ( ) \r s e t f - C O M M A
0024440 N D - E N T R Y - F U N C T I O
0024460 N D 1 \r ( L ( 1 V A L U E
0024500 0 O B J E C T ) ) \0 \a \0 \0
0024520 \0 002 @ 002 A 030 001 020 \0 N I L \r N I L
0024540 \r ( ) \r ( R E M P R O P ( Q U
0024560 O T E C O M M A N D - E N T R
0024600 Y - F U N C T I O N ) ( Q U O
0024620 T E S E T F - M E T H O D - E
0024640 X P A N D E R ) ) \r ( P U T P R
0024660 O P S C O M M A N D - E N T R
0024700 Y - F U N C T I O N S E T F -
0024720 I N V E R S E s e t f - C O M
0024740 M A N D - E N T R Y - F U N C T
0024760 I O N ) \r C O M M A N D - E N T
0025000 R Y - N A M E D 1 \r ( L ( 0
0025020 O B J E C T ) ) \0 004 \0 \0 \0 001
0025040 @ 001 020 \0 N I L \r N I L \r ( ) \r s
0025060 e t f - C O M M A N D - E N T R
0025100 Y - N A M E D 1 \r ( L ( 1
0025120 V A L U E 0 O B J E C T ) )
0025140 \0 006 \0 \0 \0 002 @ A 030 001 020 \0 N I L
0025160 \r N I L \r ( ) \r ( R E M P R O P
0025200 ( Q U O T E C O M M A N D -
0025220 E N T R Y - N A M E ) ( Q U O
0025240 T E S E T F - M E T H O D - E
0025260 X P A N D E R ) ) \r ( P U T P R
0025300 O P S C O M M A N D - E N T R
0025320 Y - N A M E S E T F - I N V E
0025340 R S E s e t f - C O M M A N D
0025360 - E N T R Y - N A M E ) \r C O P
0025400 Y - C O M M A N D - E N T R Y
0025420 D 1 \r ( L ( 0 O B J E C T )
0025440 ) \0 031 \0 \0 \0 001 @ 001 @ 002 001 @ 002 002
0025460 001 @ 002 002 002 001 @ 002 002 002 002 032 032 032 032 020
0025500 \0 N I L \r N I L \r ( ) \r ( D E F
0025520 P R I N T ( Q U O T E C O M
0025540 M A N D - E N T R Y ) ( F U N
0025560 C T I O N \ D E F P R I N T .
0025600 D E F S T R U C T . D E F A U L
0025620 T ) ) \r M A K E - C O M M A N D
0025640 - E N T R Y D 1 \r ( L ( 0
0025660 - a r g s - ) ) \0 242 \v \0 002 \0 e
0025700 021 001 \0 H k 021 002 002 J d I 363 262 E 277 h
0025720 022 021 221 \n H k 273 272 K d J 363 262 H 277 h
0025740 274 H k 276 275 N d M 363 262 N 277 h _ 016 277
0025760 H k _ 022 277 _ 020 277 O 022 d O 020 363 262 L
0026000 277 h _ 024 277 I L O 016 O 024 h 032 032 032 032
0026020 020 a g \0 \0 360 225 J k 330 a 260 265 J l 002
0026040 324 Z 260 247 a g \0 \0 360 225 K k 330 a 260 262
0026060 K l 002 324 [ 260 244 a g \0 \0 360 225 N k 330
0026100 a 260 254 N l 002 324 ^ 260 236 a g \0 \0 360 226
0026120 O 022 k 330 a 260 255 O 022 l 002 324 _ 022 260 234
0026140 \0 N I L \r ( 2 1 6 Q : D O C U
0026160 M E N T A T I O N 1 7 3 Q :
0026200 M O D E 1 5 0 Q : F U N C T
0026220 I O N 1 2 5 Q : N A M E ) \r
0026240 ( ) \r ( P U T P R O P ( Q U O
0026260 T E C O M M A N D - E N T R Y
0026300 ) ( Q U O T E S T R U C T U
0026320 R E - C O N S T R U C T O R )
0026340 ( Q U O T E M A K E - C O M M
0026360 A N D - E N T R Y ) ) \r ( P U T
0026400 P R O P ( Q U O T E C O M M
0026420 A N D - E N T R Y ) ( Q U O T
0026440 E % % S L O T - D E S C R I P
0026460 T I O N S ) ( Q U O T E ( N
0026500 A M E F U N C T I O N M O D
0026520 E D O C U M E N T A T I O N )
0026540 ) ) \r E V E N T - V A L U E D
0026560 1 \r ( L ( 0 O B J E C T ) )
0026600 \0 006 \0 \0 \0 001 @ 002 002 001 020 \0 N I L
0026620 \r N I L \r ( ) \r s e t f - E V E
0026640 N T - V A L U E D 1 \r ( L (
0026660 1 V A L U E 0 O B J E C T
0026700 ) ) \0 \b \0 \0 \0 002 @ 002 002 A 030 001 020
0026720 \0 N I L \r N I L \r ( ) \r ( R E M
0026740 P R O P ( Q U O T E E V E N
0026760 T - V A L U E ) ( Q U O T E
0027000 S E T F - M E T H O D - E X P A
0027020 N D E R ) ) \r ( P U T P R O P S
0027040 E V E N T - V A L U E S E T
0027060 F - I N V E R S E s e t f - E
0027100 V E N T - V A L U E ) \r E V E N
0027120 T - I D D 1 \r ( L ( 0 O B
0027140 J E C T ) ) \0 005 \0 \0 \0 001 @ 002 001
0027160 020 \0 N I L \r N I L \r ( ) \r s e t
0027200 f - E V E N T - I D D 1 \r ( L
0027220 ( 1 V A L U E 0 O B J E
0027240 C T ) ) \0 \a \0 \0 \0 002 @ 002 A 030 001
0027260 020 \0 N I L \r N I L \r ( ) \r ( R E
0027300 M P R O P ( Q U O T E E V E
0027320 N T - I D ) ( Q U O T E S E
0027340 T F - M E T H O D - E X P A N D
0027360 E R ) ) \r ( P U T P R O P S E
0027400 V E N T - I D S E T F - I N V
0027420 E R S E s e t f - E V E N T -
0027440 I D ) \r E V E N T - I N P U T
0027460 D 1 \r ( L ( 0 O B J E C T )
0027500 ) \0 004 \0 \0 \0 001 @ 001 020 \0 N I L \r
0027520 N I L \r ( ) \r s e t f - E V E N
0027540 T - I N P U T D 1 \r ( L ( 1
0027560 V A L U E 0 O B J E C T )
0027600 ) \0 006 \0 \0 \0 002 @ A 030 001 020 \0 N I
0027620 L \r N I L \r ( ) \r ( R E M P R O
0027640 P ( Q U O T E E V E N T - I
0027660 N P U T ) ( Q U O T E S E T
0027700 F - M E T H O D - E X P A N D E
0027720 R ) ) \r ( P U T P R O P S E V
0027740 E N T - I N P U T S E T F - I
0027760 N V E R S E s e t f - E V E N
0030000 T - I N P U T ) \r C O P Y - E V
0030020 E N T D 1 \r ( L ( 0 O B J
0030040 E C T ) ) \0 022 \0 \0 \0 001 @ 001 @ 002
0030060 001 @ 002 002 001 @ 002 002 002 032 032 032 020 \0 N I
0030100 L \r N I L \r ( ) \r ( D E F P R I
0030120 N T ( Q U O T E E V E N T )
0030140 ( F U N C T I O N \ D E F P
0030160 R I N T . D E F S T R U C T . D
0030200 E F A U L T ) ) \r M A K E - E V
0030220 E N T D 1 \r ( L ( 0 - a r
0030240 g s - ) F 1 0 Q * N O T -
0030260 Y E T - E V A L U A T E D * )
0030300 \0 u \b 001 002 \0 e 021 001 \0 H k 021 002 002 J
0030320 d I 363 262 . 277 h 022 021 a \a H k 273 272 K
0030340 d J 363 262 1 277 h 274 H k 276 275 N d M 363
0030360 262 7 277 W 020 _ 016 277 I L O 016 h 032 032 032
0030400 020 a g \0 \0 360 225 J k 330 a 260 314 J l 002
0030420 324 Z 260 276 a g \0 \0 360 225 K k 330 a 260 311
0030440 K l 002 324 [ 260 273 a g \0 \0 360 225 N k 330
0030460 a 260 304 N l 002 324 ^ 260 265 \0 N I L \r (
0030500 1 4 4 Q : V A L U E 1 2 1 Q
0030520 : I D 7 6 Q : I N P U T )
0030540 \r ( ) \r ( P U T P R O P ( Q U
0030560 O T E E V E N T ) ( Q U O T
0030600 E S T R U C T U R E - C O N S
0030620 T R U C T O R ) ( Q U O T E
0030640 M A K E - E V E N T ) ) \r ( P U
0030660 T P R O P ( Q U O T E E V E
0030700 N T ) ( Q U O T E % % S L O
0030720 T - D E S C R I P T I O N S )
0030740 ( Q U O T E ( I N P U T I D
0030760 ( V A L U E * N O T - Y E T
0031000 - E V A L U A T E D * ) ) ) ) \r
0031020 E X E C - F O N T S - V A L U E
0031040 S D 1 \r ( L ( 0 O B J E C
0031060 T ) ) \0 \a \0 \0 \0 001 @ 002 002 002 001 020
0031100 \0 N I L \r N I L \r ( ) \r s e t f
0031120 - E X E C - F O N T S - V A L U
0031140 E S D 1 \r ( L ( 1 V A L U
0031160 E 0 O B J E C T ) ) \0 \t \0
0031200 \0 \0 002 @ 002 002 002 A 030 001 020 \0 N I L \r
0031220 N I L \r ( ) \r ( R E M P R O P
0031240 ( Q U O T E E X E C - F O N T
0031260 S - V A L U E S ) ( Q U O T E
0031300 S E T F - M E T H O D - E X P
0031320 A N D E R ) ) \r ( P U T P R O P
0031340 S E X E C - F O N T S - V A L
0031360 U E S S E T F - I N V E R S E
0031400 s e t f - E X E C - F O N T S
0031420 - V A L U E S ) \r E X E C - F O
0031440 N T S - P R I N T O U T D 1 \r
0031460 ( L ( 0 O B J E C T ) ) \0
0031500 006 \0 \0 \0 001 @ 002 002 001 020 \0 N I L \r N
0031520 I L \r ( ) \r s e t f - E X E C -
0031540 F O N T S - P R I N T O U T D
0031560 1 \r ( L ( 1 V A L U E 0
0031600 O B J E C T ) ) \0 \b \0 \0 \0 002 @
0031620 002 002 A 030 001 020 \0 N I L \r N I L \r (
0031640 ) \r ( R E M P R O P ( Q U O T
0031660 E E X E C - F O N T S - P R I
0031700 N T O U T ) ( Q U O T E S E
0031720 T F - M E T H O D - E X P A N D
0031740 E R ) ) \r ( P U T P R O P S E
0031760 X E C - F O N T S - P R I N T O
0032000 U T S E T F - I N V E R S E
0032020 s e t f - E X E C - F O N T S -
0032040 P R I N T O U T ) \r E X E C - F
0032060 O N T S - I N P U T D 1 \r ( L
0032100 ( 0 O B J E C T ) ) \0 005 \0
0032120 \0 \0 001 @ 002 001 020 \0 N I L \r N I L \r
0032140 ( ) \r s e t f - E X E C - F O N
0032160 T S - I N P U T D 1 \r ( L (
0032200 1 V A L U E 0 O B J E C T
0032220 ) ) \0 \a \0 \0 \0 002 @ 002 A 030 001 020 \0
0032240 N I L \r N I L \r ( ) \r ( R E M P
0032260 R O P ( Q U O T E E X E C -
0032300 F O N T S - I N P U T ) ( Q U
0032320 O T E S E T F - M E T H O D -
0032340 E X P A N D E R ) ) \r ( P U T P
0032360 R O P S E X E C - F O N T S -
0032400 I N P U T S E T F - I N V E R
0032420 S E s e t f - E X E C - F O N
0032440 T S - I N P U T ) \r E X E C - F
0032460 O N T S - P R O M P T D 1 \r (
0032500 L ( 0 O B J E C T ) ) \0 004
0032520 \0 \0 \0 001 @ 001 020 \0 N I L \r N I L \r
0032540 ( ) \r s e t f - E X E C - F O N
0032560 T S - P R O M P T D 1 \r ( L
0032600 ( 1 V A L U E 0 O B J E C
0032620 T ) ) \0 006 \0 \0 \0 002 @ A 030 001 020 \0
0032640 N I L \r N I L \r ( ) \r ( R E M P
0032660 R O P ( Q U O T E E X E C -
0032700 F O N T S - P R O M P T ) ( Q
0032720 U O T E S E T F - M E T H O D
0032740 - E X P A N D E R ) ) \r ( P U T
0032760 P R O P S E X E C - F O N T S
0033000 - P R O M P T S E T F - I N V
0033020 E R S E s e t f - E X E C - F
0033040 O N T S - P R O M P T ) \r C O P
0033060 Y - E X E C - F O N T S D 1 \r
0033100 ( L ( 0 O B J E C T ) ) \0
0033120 031 \0 \0 \0 001 @ 001 @ 002 001 @ 002 002 001 @ 002
0033140 002 002 001 @ 002 002 002 002 032 032 032 032 020 \0 N I
0033160 L \r N I L \r ( ) \r ( D E F P R I
0033200 N T ( Q U O T E E X E C - F
0033220 O N T S ) ( F U N C T I O N
0033240 \ D E F P R I N T . D E F S T R
0033260 U C T . D E F A U L T ) ) \r M A
0033300 K E - E X E C - F O N T S D 1
0033320 \r ( L ( 0 - a r g s - ) )
0033340 \0 242 \v \0 002 \0 e 021 001 \0 H k 021 002 002 J
0033360 d I 363 262 E 277 h 022 021 221 \n H k 273 272 K
0033400 d J 363 262 H 277 h 274 H k 276 275 N d M 363
0033420 262 N 277 h _ 016 277 H k _ 022 277 _ 020 277 O
0033440 022 d O 020 363 262 L 277 h _ 024 277 I L O 016
0033460 O 024 h 032 032 032 032 020 a g \0 \0 360 225 J k
0033500 330 a 260 265 J l 002 324 Z 260 247 a g \0 \0 360
0033520 225 K k 330 a 260 262 K l 002 324 [ 260 244 a g
0033540 \0 \0 360 225 N k 330 a 260 254 N l 002 324 ^ 260
0033560 236 a g \0 \0 360 226 O 022 k 330 a 260 255 O 022
0033600 l 002 324 _ 022 260 234 \0 N I L \r ( 2 1 6
0033620 Q : V A L U E S 1 7 3 Q :
0033640 P R I N T O U T 1 5 0 Q : I
0033660 N P U T 1 2 5 Q : P R O M P
0033700 T ) \r ( ) \r ( P U T P R O P (
0033720 Q U O T E E X E C - F O N T S
0033740 ) ( Q U O T E S T R U C T U
0033760 R E - C O N S T R U C T O R )
0034000 ( Q U O T E M A K E - E X E C
0034020 - F O N T S ) ) \r ( P U T P R O
0034040 P ( Q U O T E E X E C - F O
0034060 N T S ) ( Q U O T E % % S L
0034100 O T - D E S C R I P T I O N S )
0034120 ( Q U O T E ( P R O M P T
0034140 I N P U T P R I N T O U T V
0034160 A L U E S ) ) ) \r H I S T O R Y
0034200 - M O D D 1 \r ( L ( 0 O B
0034220 J E C T ) ) \0 \a \0 \0 \0 001 @ 002 002
0034240 002 001 020 \0 N I L \r N I L \r ( ) \r s
0034260 e t f - H I S T O R Y - M O D
0034300 D 1 \r ( L ( 1 V A L U E 0
0034320 O B J E C T ) ) \0 \t \0 \0 \0 002
0034340 @ 002 002 002 A 030 001 020 \0 N I L \r N I L
0034360 \r ( ) \r ( R E M P R O P ( Q U
0034400 O T E H I S T O R Y - M O D )
0034420 ( Q U O T E S E T F - M E T
0034440 H O D - E X P A N D E R ) ) \r (
0034460 P U T P R O P S H I S T O R Y
0034500 - M O D S E T F - I N V E R S
0034520 E s e t f - H I S T O R Y - M
0034540 O D ) \r H I S T O R Y - S I Z E
0034560 D 1 \r ( L ( 0 O B J E C T
0034600 ) ) \0 006 \0 \0 \0 001 @ 002 002 001 020 \0 N
0034620 I L \r N I L \r ( ) \r s e t f - H
0034640 I S T O R Y - S I Z E D 1 \r (
0034660 L ( 1 V A L U E 0 O B J
0034700 E C T ) ) \0 \b \0 \0 \0 002 @ 002 002 A
0034720 030 001 020 \0 N I L \r N I L \r ( ) \r (
0034740 R E M P R O P ( Q U O T E H
0034760 I S T O R Y - S I Z E ) ( Q U
0035000 O T E S E T F - M E T H O D -
0035020 E X P A N D E R ) ) \r ( P U T P
0035040 R O P S H I S T O R Y - S I Z
0035060 E S E T F - I N V E R S E s
0035100 e t f - H I S T O R Y - S I Z E
0035120 ) \r H I S T O R Y - I N D E X
0035140 D 1 \r ( L ( 0 O B J E C T )
0035160 ) \0 005 \0 \0 \0 001 @ 002 001 020 \0 N I L
0035200 \r N I L \r ( ) \r s e t f - H I S
0035220 T O R Y - I N D E X D 1 \r ( L
0035240 ( 1 V A L U E 0 O B J E
0035260 C T ) ) \0 \a \0 \0 \0 002 @ 002 A 030 001
0035300 020 \0 N I L \r N I L \r ( ) \r ( R E
0035320 M P R O P ( Q U O T E H I S
0035340 T O R Y - I N D E X ) ( Q U O
0035360 T E S E T F - M E T H O D - E
0035400 X P A N D E R ) ) \r ( P U T P R
0035420 O P S H I S T O R Y - I N D E
0035440 X S E T F - I N V E R S E s
0035460 e t f - H I S T O R Y - I N D E
0035500 X ) \r H I S T O R Y - E V E N T
0035520 S D 1 \r ( L ( 0 O B J E C
0035540 T ) ) \0 004 \0 \0 \0 001 @ 001 020 \0 N I
0035560 L \r N I L \r ( ) \r s e t f - H I
0035600 S T O R Y - E V E N T S D 1 \r
0035620 ( L ( 1 V A L U E 0 O B
0035640 J E C T ) ) \0 006 \0 \0 \0 002 @ A 030
0035660 001 020 \0 N I L \r N I L \r ( ) \r ( R
0035700 E M P R O P ( Q U O T E H I
0035720 S T O R Y - E V E N T S ) ( Q
0035740 U O T E S E T F - M E T H O D
0035760 - E X P A N D E R ) ) \r ( P U T
0036000 P R O P S H I S T O R Y - E V
0036020 E N T S S E T F - I N V E R S
0036040 E s e t f - H I S T O R Y - E
0036060 V E N T S ) \r C O P Y - H I S T
0036100 O R Y D 1 \r ( L ( 0 O B J
0036120 E C T ) ) \0 031 \0 \0 \0 001 @ 001 @ 002
0036140 001 @ 002 002 001 @ 002 002 002 001 @ 002 002 002 002 032
0036160 032 032 032 020 \0 N I L \r N I L \r ( ) \r
0036200 ( D E F P R I N T ( Q U O T E
0036220 H I S T O R Y ) ( F U N C T
0036240 I O N \ D E F P R I N T . D E
0036260 F S T R U C T . D E F A U L T )
0036300 ) \r M A K E - H I S T O R Y D
0036320 1 \r ( L ( 0 - a r g s - ) )
0036340 \0 242 \v \0 002 \0 e 021 001 \0 H k 021 002 002
0036360 J d I 363 262 E 277 h 022 021 221 \n H k 273 272
0036400 K d J 363 262 H 277 h 274 H k 276 275 N d M
0036420 363 262 N 277 h _ 016 277 H k _ 022 277 _ 020 277
0036440 O 022 d O 020 363 262 L 277 h _ 024 277 I L O
0036460 016 O 024 h 032 032 032 032 020 a g \0 \0 360 225 J
0036500 k 330 a 260 265 J l 002 324 Z 260 247 a g \0 \0
0036520 360 225 K k 330 a 260 262 K l 002 324 [ 260 244 a
0036540 g \0 \0 360 225 N k 330 a 260 254 N l 002 324 ^
0036560 260 236 a g \0 \0 360 226 O 022 k 330 a 260 255 O
0036600 022 l 002 324 _ 022 260 234 \0 N I L \r ( 2 1
0036620 6 Q : M O D 1 7 3 Q : S I
0036640 Z E 1 5 0 Q : I N D E X 1
0036660 2 5 Q : E V E N T S ) \r ( ) \r
0036700 ( P U T P R O P ( Q U O T E
0036720 H I S T O R Y ) ( Q U O T E
0036740 S T R U C T U R E - C O N S T R
0036760 U C T O R ) ( Q U O T E M A
0037000 K E - H I S T O R Y ) ) \r ( P U
0037020 T P R O P ( Q U O T E H I S
0037040 T O R Y ) ( Q U O T E % % S
0037060 L O T - D E S C R I P T I O N S
0037100 ) ( Q U O T E ( E V E N T S
0037120 I N D E X S I Z E M O D )
0037140 ) ) \r ( O R ( B O U N D P (
0037160 Q U O T E B R E A K - C O M M
0037200 A N D S ) ) ( S E T Q B R E
0037220 A K - C O M M A N D S N I L )
0037240 ) \r ( P R O C L A I M ( Q U O
0037260 T E ( S P E C I A L B R E A
0037300 K - C O M M A N D S ) ) ) \r ( O
0037320 R ( B O U N D P ( Q U O T E
0037340 C L : * ) ) ( S E T Q C L
0037360 : * N I L ) ) \r ( P R O C L A
0037400 I M ( Q U O T E ( S P E C I
0037420 A L C L : * ) ) ) \r ( O R (
0037440 B O U N D P ( Q U O T E * *
0037460 ) ) ( S E T Q * * N I L )
0037500 ) \r ( P R O C L A I M ( Q U O
0037520 T E ( S P E C I A L * * ) )
0037540 ) \r ( O R ( B O U N D P ( Q
0037560 U O T E * * * ) ) ( S E T Q
0037600 * * * N I L ) ) \r ( P R O C
0037620 L A I M ( Q U O T E ( S P E
0037640 C I A L * * * ) ) ) \r ( S E T
0037660 Q * E X E C - F O N T S * (
0037700 M A K E - E X E C - F O N T S
0037720 : P R O M P T L I T T L E F O
0037740 N T : I N P U T B O L D F O
0037760 N T : P R I N T O U T D E F
0040000 A U L T F O N T : V A L U E S
0040020 \r D E F A U L T F O N T ) ) \r
0040040 ( P U T ( Q U O T E * E X E
0040060 C - F O N T S * ) ( Q U O T E
0040100 G L O B A L V A R ) T ) \r (
0040120 O R ( B O U N D P ( Q U O T
0040140 E * N O T - Y E T - E V A L U
0040160 A T E D * ) ) ( S E T Q * N
0040200 O T - Y E T - E V A L U A T E D
0040220 * " < n o t y e t e v a l
0040240 u a t e d > " ) ) \r ( P R O C L
0040260 A I M ( Q U O T E ( S P E C
0040300 I A L * N O T - Y E T - E V A
0040320 L U A T E D * ) ) ) \r ( O R (
0040340 B O U N D P ( Q U O T E + )
0040360 ) ( S E T Q + N I L ) ) \r
0040400 ( P R O C L A I M ( Q U O T E
0040420 ( S P E C I A L + ) ) ) \r (
0040440 O R ( B O U N D P ( Q U O T
0040460 E + + ) ) ( S E T Q + +
0040500 N I L ) ) \r ( P R O C L A I M
0040520 ( Q U O T E ( S P E C I A L
0040540 + + ) ) ) \r ( O R ( B O U N D
0040560 P ( Q U O T E + + + ) ) (
0040600 S E T Q + + + N I L ) ) \r (
0040620 P R O C L A I M ( Q U O T E
0040640 ( S P E C I A L + + + ) ) ) \r
0040660 ( O R ( B O U N D P ( Q U O
0040700 T E - ) ) ( S E T Q - N
0040720 I L ) ) \r ( P R O C L A I M (
0040740 Q U O T E ( S P E C I A L -
0040760 ) ) ) \r ( O R ( B O U N D P
0041000 ( Q U O T E / ) ) ( S E T Q
0041020 / N I L ) ) \r ( P R O C L A
0041040 I M ( Q U O T E ( S P E C I
0041060 A L / ) ) ) \r ( O R ( B O U
0041100 N D P ( Q U O T E / / ) )
0041120 ( S E T Q / / N I L ) ) \r (
0041140 P R O C L A I M ( Q U O T E
0041160 ( S P E C I A L / / ) ) ) \r (
0041200 O R ( B O U N D P ( Q U O T
0041220 E / / / ) ) ( S E T Q / /
0041240 / N I L ) ) \r ( P R O C L A I
0041260 M ( Q U O T E ( S P E C I A
0041300 L / / / ) ) ) \r ( O R ( B O
0041320 U N D P ( Q U O T E E X E C
0041340 - C O M M A N D S ) ) ( S E T
0041360 Q E X E C - C O M M A N D S
0041400 N I L ) ) \r ( P R O C L A I M
0041420 ( Q U O T E ( S P E C I A L
0041440 E X E C - C O M M A N D S ) ) )
0041460 \r ( O R ( B O U N D P ( Q U
0041500 O T E * D E F A U L T - E X E
0041520 C U T I V E * ) ) ( S E T Q
0041540 * D E F A U L T - E X E C U T I
0041560 V E * ( Q U O T E C O M M O
0041600 N - L I S P ) ) ) \r ( P R O C L
0041620 A I M ( Q U O T E ( S P E C
0041640 I A L * D E F A U L T - E X E
0041660 C U T I V E * ) ) ) \r e x p a n
0041700 d - C A S E - E Q U A L P D 1
0041720 \r ( L ( 1 $ $ M A C R O - E
0041740 N V I R O N M E N T 0 $ $ M
0041760 A C R O - F O R M ) ) \0 262 \v \0
0042000 \0 002 @ 002 021 q \a H 001 271 H 002 272 I 004 l
0042020 004 360 221 I 202 \b \0 \0 273 021 0 \n J 260 m d
0042040 001 ^ 001 d i 360 245 d g \0 \0 360 222 277 i 201
0042060 277 h 222 i 260 & N 001 003 257 g \0 \0 K g \0
0042100 \0 N 001 h 032 032 h 032 032 216 g \0 \0 N 001 h
0042120 275 \ 003 263 031 M \t \0 \0 032 N 002 032 _ 020 277
0042140 O 022 265 ! O 020 h 032 _ 024 260 034 g \0 \0 K
0042160 g \0 \0 L 001 h 032 032 h 032 032 032 M 032 275 L
0042200 002 260 320 O 020 & _ 022 277 002 003 265 224 O 024 022
0042220 _ 016 277 K I 360 226 g \0 \0 O 016 032 020 g \0
0042240 \0 K I h 032 032 h 032 g \0 \0 O 016 032 h 032
0042260 032 032 020 \0 ( 1 2 6 Q R E V E R S
0042300 E 2 5 Q G E N S Y M ) \r ( 2
0042320 5 0 Q C O N D 2 3 6 Q L E
0042340 T 2 2 7 Q C O N D 1 6 0 Q
0042360 Q U O T E 1 5 4 Q S T R I
0042400 N G . E Q U A L 1 1 2 Q O R
0042420 7 6 Q Q U O T E 7 2 Q S
0042440 T R I N G . E Q U A L 5 0 Q
0042460 O T H E R W I S E ) \r ( ) \r ( S
0042500 E T F - M A C R O - F U N C T I
0042520 O N ( Q U O T E C A S E - E
0042540 Q U A L P ) ( Q U O T E e x
0042560 p a n d - C A S E - E Q U A L P
0042600 ) ) \r e x p a n d - D E F C O M
0042620 M A N D D 1 \r ( L ( 1 $ $
0042640 M A C R O - E N V I R O N M E N
0042660 T 0 $ $ M A C R O - F O R M
0042700 ) ) 001 J 022 \0 \0 002 @ 002 021 341 016 @ 271
0042720 H 001 272 H 002 [ 001 274 K 002 275 A 276 M _ 016
0042740 277 g \0 \0 g \0 \0 g \0 \0 g \0 \0 o \0 \0
0042760 \0 021 003 021 J 003 265 003 202 261 \0 314 O " J \n
0043000 \0 \0 _ 034 277 L g \0 \0 O 016 J N g \0 \0
0043020 g \0 \0 \r \a \0 \0 \t \0 \0 _ 032 001 _ 030 277
0043040 O 032 002 _ 026 001 _ 024 277 O 026 002 001 _ 022 277
0043060 g \0 \0 g \0 \0 g \0 \0 g \0 \0 O 034 h 032
0043100 032 h 032 032 g \0 \0 g \0 \0 o \0 \0 \0 O 024
0043120 g \0 \0 J O 030 h 032 032 032 h 032 \n \0 \0 032
0043140 032 h 032 032 h 032 032 032 g \0 \0 g \0 \0 g \0
0043160 \0 J g \0 \0 O 034 g \0 \0 O g \0 \0 O
0043200 022 \r \b \0 \0 h 032 032 O 036 h 032 032 032 h 032
0043220 032 032 022 h 032 032 g \0 \0 o \0 \0 \0 g \0 \0
0043240 g \0 \0 g \0 \0 J g \0 \0 I h 032 032 032 032
0043260 h 032 032 032 h 032 032 032 g \0 \0 J h 032 032 h
0043300 032 032 032 032 020 001 J 260 C d 001 _ 020 d g \0
0043320 \0 360 263 024 d g \0 \0 360 253 d g \0 \0 360 245
0043340 d g \0 \0 360 223 _ 260 ! g \0 \0 360 264 017
0043360 g \0 \0 _ 036 277 o \0 \0 \0 _ " 213 g \0 \0
0043400 O 020 o \0 \0 \0 \f \0 \0 277 002 003 265 275 272 261
0043420 376 355 \0 ( 4 7 7 Q E C A S E - F
0043440 A I L 2 7 3 Q M A K E - C O
0043460 M M A N D - E N T R Y 2 2 5 Q
0043500 \ A P P E N D 2 1 2 0 Q \
0043520 M V L I S T 1 1 5 Q P A R S
0043540 E - D E F M A C R O 7 0 Q P
0043560 A C K * ) \r ( 4 6 6 Q X 4 5
0043600 1 Q B R E A K - C O M M A N D
0043620 S 4 4 3 Q : B R E A K 4 3
0043640 2 Q : M A C R O 4 2 4 Q :
0043660 E V A L 4 1 6 Q : H I S T O
0043700 R Y 4 0 7 Q : Q U I E T 3
0043720 6 1 Q Q U O T E 3 4 0 Q C
0043740 O M M A N D S 3 3 4 Q P U T
0043760 P R O P S 3 3 1 Q F I L E P
0044000 K G F L G 3 2 6 Q A N D 3
0044020 1 7 Q E V A L - W H E N 2 6
0044040 5 Q : D O C U M E N T A T I O
0044060 N 2 6 0 Q : M O D E 2 5 3
0044100 Q : F U N C T I O N 2 4 7 Q
0044120 : N A M E 2 4 4 Q Q U O T
0044140 E 2 4 1 Q C L : P U S H N E
0044160 W 2 1 1 Q C L : B L O C K
0044200 2 0 0 Q C L : L A M B D A 1
0044220 7 5 Q C L : F U N C T I O N
0044240 1 6 2 Q Q U O T E 1 5 7 Q
0044260 S Y M B O L - F U N C T I O N
0044300 1 5 4 Q S E T F 1 5 1 Q P
0044320 R O G N 1 1 1 Q $ $ M A C R
0044340 O - E N V 1 0 6 Q : E N V I
0044360 R O N M E N T 7 7 Q $ $ M A
0044400 C R O - F O R M 4 3 Q : E V
0044420 A L 4 0 Q E X E C - C O M M
0044440 A N D S 3 5 Q W I T H O U T
0044460 - F I L E P K G 3 2 Q P R O
0044500 G N ) \r ( 4 7 4 Q ( ( : Q U
0044520 I E T : H I S T O R Y : E V
0044540 A L : M A C R O ) : B R E A
0044560 K ) 4 6 0 Q " b r e a k - "
0044600 3 2 3 Q ( C L : E V A L )
0044620 2 0 4 Q ( $ $ M A C R O - F O
0044640 R M $ $ M A C R O - E N V ) \r
0044660 4 7 Q " e x e c - " ) \r ( S
0044700 E T F - M A C R O - F U N C T I
0044720 O N ( Q U O T E D E F C O M
0044740 M A N D ) ( Q U O T E e x p
0044760 a n d - D E F C O M M A N D ) )
0045000 \r ( A D D T O V A R P R E T T
0045020 Y P R I N T M A C R O S ( D E
0045040 F C O M M A N D . P P R I N
0045060 T - D E F I N E R ) ) \r e x p a
0045100 n d - E V E N T - P R O P S D
0045120 1 \r ( L ( 1 $ $ M A C R O -
0045140 E N V I R O N M E N T 0 $ $
0045160 M A C R O - F O R M ) ) \0 017 001
0045200 \0 \0 002 @ 002 001 021 001 \0 g \0 \0 H h 032 032
0045220 020 \0 N I L \r ( 1 0 Q C D D D R
0045240 ) \r ( ) \r ( S E T F - M A C R O
0045260 - F U N C T I O N ( Q U O T E
0045300 E V E N T - P R O P S ) ( Q
0045320 U O T E e x p a n d - E V E N
0045340 T - P R O P S ) ) \r L I S P X F
0045360 O R M A T D 1 \r ( L ( 0 -
0045400 a r g s - ) F 1 2 Q L I S
0045420 P X H I S T F 1 3 Q L I S
0045440 P X P R I N T F L G ) \0 } \n 002
0045460 002 \0 e 021 001 \0 k a 021 1 004 H l 002 021 2
0045500 \t N d M 363 262 / 277 O 016 022 272 W 026 262 032
0045520 W 024 262 026 I \t \0 \0 236 g \0 \0 I J 032 h
0045540 032 i W 024 \f \0 \0 277 g \0 \0 l 002 274 273 i
0045560 I J 260 6 a _ 022 277 O 020 265 021 O 022 h 032
0045600 _ 020 _ 016 277 N k 324 ^ 260 271 O 022 & _ 020
0045620 277 260 364 d 001 375 002 L k 330 \ n 002 \0 361 227
0045640 o \0 \0 \0 \t \0 \0 277 265 353 L K 016 020 \0 (
0045660 1 6 4 Q L I S P E R R O R 6
0045700 4 Q L I S P X P U T 4 5 Q
0045720 C L : S T R I N G P ) \r ( 7 0 Q
0045740 F O R M A T 5 1 Q * L I S
0045760 P X P R I N T * ) \r ( 1 6 1 Q
0046000 " T O O M A N Y A R G U M
0046020 E N T S " ) \r \ A D D - E X E C
0046040 A 0 0 0 1 D 1 \r ( L ( 0 w
0046060 i n d o w ) ) \0 < 001 \0 \0 001 @ \t
0046100 \0 \0 311 . 021 001 \0 \b \0 \0 H 360 262 ! g \0
0046120 \0 @ d 236 d i 360 252 3 020 265 \t g \0 \0 @
0046140 h 032 032 h 032 032 \t \0 \0 g \0 \0 020 H \t \0
0046160 \0 264 \a H \t \0 \0 h 020 \0 ( 7 0 Q D
0046200 E L . P R O C E S S 6 2 Q P
0046220 R O C E S S P 5 2 Q A D D .
0046240 P R O C E S S 1 3 Q T H I S
0046260 . P R O C E S S 3 \ I N S U
0046300 R E W I N D O W ) \r ( 5 5 Q D
0046320 O N ' T 4 0 Q Q U O T E 2
0046340 2 Q C L O S E W ) \r ( ) \r \ A
0046360 D D - E X E C D 1 \r ( L ( 0
0046400 - a r g s - ) F 6 * D E
0046420 F A U L T - E X E C U T I V E *
0046440 ) \0 247 006 001 002 \0 e 021 001 \0 k H 361 221
0046460 V 201 k a 021 A 005 l 002 H 361 221 h 202 l 002
0046500 a 272 I d g \0 \0 360 225 277 o \0 \0 \0 215 g
0046520 \0 \0 360 224 o \0 \0 \0 203 o \0 \0 \0 273 J K
0046540 \n \0 \0 \ g \0 \0 g \0 \0 \v \0 \0 g \0 \0
0046560 g \0 \0 g \0 \0 L h 032 032 h 032 032 I 301 002
0046600 311 \0 g \0 \0 ' 265 006 o \0 \0 \0 o \0 \0 \0
0046620 032 032 032 g \0 \0 g \0 \0 g \0 \0 i \r 005 \0
0046640 \0 ] L g \0 \0 K M g \0 \0 \n \0 \0 o \0
0046660 \0 \0 M g \0 \0 \n \0 \0 \n \0 \0 265 003 k \n
0046700 \0 \0 \n \0 \0 \v \0 \0 M \t \0 \0 M 020 \0 (
0046720 2 4 3 Q T T Y . P R O C E S S
0046740 2 3 7 Q P U T W I N D O W P
0046760 R O P 2 3 4 Q C O N C A T
0047000 2 3 1 Q S U B S T R I N G 2
0047020 2 3 Q S T R P O S 2 2 0 Q
0047040 P R O C E S S P R O P 2 0 5 Q
0047060 P R O C E S S P R O P 1 7 0
0047100 Q A D D . P R O C E S S 1 0
0047120 4 Q W I N D O W A D D P R O P
0047140 7 2 Q C R E A T E W ) \r ( 2
0047160 1 5 Q N A M E 2 0 2 Q N A
0047200 M E 1 7 5 Q T I T L E 1 6
0047220 3 Q R E S T A R T A B L E 1
0047240 6 0 Q E X E C 1 5 5 Q N A
0047260 M E 1 3 4 Q E X E C 1 1 5
0047300 Q Q U O T E 1 1 2 Q T T Y
0047320 D I S P L A Y S T R E A M 1 0
0047340 7 Q P R O G N 1 0 1 Q \ A
0047360 D D - E X E C A 0 0 0 1 7 6 Q
0047400 C L O S E F N 5 1 Q I N T
0047420 E R L I S P 3 6 Q C O M M O
0047440 N - L I S P ) \r ( 2 1 1 Q "
0047460 # " 1 4 7 Q ( ( \ P I C K .
0047500 E V A L Q T ) ) 1 4 3 Q ( E
0047520 V A L Q T ) 6 4 Q " L i s p
0047540 E x e c u t i v e " 5 7 Q
0047560 " I n t e r l i s p E x e c "
0047600 4 5 Q " C o m m o n L i s
0047620 p E x e c " ) \r ( A D D T O V
0047640 A R B a c k g r o u n d M e n
0047660 u C o m m a n d s ( E X E C
0047700 ( Q U O T E ( \ A D D - E X E
0047720 C * D E F A U L T - E X E C U
0047740 T I V E * ) ) \r " S t a r t
0047760 a n e w L i s p E x e c u
0050000 t i v e " ( S U B I T E M S
0050020 ( I n t e r l i s p ( Q U O T
0050040 E ( \ A D D - E X E C ( Q U
0050060 O T E I N T E R L I S P ) ) )
0050100 ) ( \r " C o m m o n L i s p
0050120 " ( Q U O T E ( \ A D D - E
0050140 X E C ( Q U O T E C O M M O
0050160 N - L I S P ) ) ) ) ) ) ) \r ( P
0050200 U T P R O P S C M L E X E C
0050220 F I L E T Y P E C O M P I L E
0050240 - F I L E ) \r ( A D D T O V A R
0050260 P R E T T Y D E F M A C R O S
0050300 ( C O M M A N D S X ( P
0050320 * ( M A P C A R ( Q U O T E
0050340 X ) ( F U N C T I O N ( L
0050360 A M B D A ( I T E M ) ( C L
0050400 : D O ( ( D E F ( \r G E T
0050420 I T E M ( Q U O T E C O M M
0050440 A N D S ) ) ) ) ( D E F D E
0050460 F ) ( C E R R O R " R e - f
0050500 e t c h t h e d e f i n i t
0050520 i o n " " N o ~ S d e f i
0050540 n i t i o n f o r ~ S " (
0050560 \r Q U O T E C O M M A N D S )
0050600 I T E M ) ) ) ) ) ) ) ) \r ( A
0050620 D D T O V A R P R E T T Y T Y
0050640 P E L S T ( C H A N G E D C O
0050660 M M A N D S L S T C O M M A N
0050700 D S " C o m m a n d s t o
0050720 L i s p E x e c u t i v e " )
0050740 ) \r ( A D D T O V A R F I L E
0050760 P K G T Y P E S C O M M A N D
0051000 S ) \r ( P U T P R O P S C O M
0051020 M A N D S G E T D E F \ D E
0051040 F I N E - T Y P E - G E T D E F
0051060 ) \r ( P U T P R O P S C O M M
0051100 A N D S F I L E P K G C O N T
0051120 E N T S N I L L ) \r ( P U T P
0051140 R O P S C O M M A N D S P R
0051160 O P T Y P E C O M M A N D S )
0051200 \r e x e c - ? D 1 \r ( L ( 1
0051220 $ $ M A C R O - E N V 0 $
0051240 $ M A C R O - F O R M ) F 1
0051260 * T E R M I N A L - I O * F
0051300 2 * T H I S - E X E C - C O
0051320 M M A N D S * F 3 E X E C
0051340 - C O M M A N D S ) \0 217 001 003 \0
0051360 002 @ 002 265 W Q o \0 \0 \0 \n \0 \0 ` \0 \0
0051400 \t \0 \0 i \n \0 \0 Q o \0 \0 \0 \n \0 \0 `
0051420 \0 \0 i \n \0 \0 Q o \0 \0 \0 \n \0 \0 ` \0
0051440 \0 \t \0 \0 i \n \0 \0 Q o \0 \0 \0 \n \0 \0
0051460 ` \0 \0 i \n \0 \0 Q o \0 \0 \0 \n \0 \0 Q
0051500 o \0 \0 \0 021 020 \0 R 260 024 001 \t \0 \0 020 d
0051520 001 d 001 H 034 243 001 H 032 X 277 002 003 265 362 S
0051540 214 d 001 d 001 H 034 243 001 H 032 X 277 002 003 265
0051560 362 H 022 \v \0 \0 Q o \0 \0 \0 \n \0 \0 020 \0
0051600 ( 2 1 4 Q F O R M A T 2 0 4
0051620 Q F O R M A T 1 3 4 Q I R
0051640 M . L O O K U P 1 1 5 Q F O
0051660 R M A T 1 0 5 Q D S P F O N
0051700 T 7 6 Q F O R M A T 6 6 Q
0051720 D S P F O N T 6 2 Q E X E
0051740 C - F O N T S - I N P U T 5 4
0051760 Q F O R M A T 4 4 Q D S P
0052000 F O N T 3 5 Q F O R M A T
0052020 2 5 Q D S P F O N T 2 1 Q
0052040 E X E C - F O N T S - I N P U T
0052060 1 3 Q F O R M A T ) \r ( 1 0
0052100 1 Q D E F A U L T F O N T 5
0052120 7 Q * E X E C - F O N T S *
0052140 4 0 Q D E F A U L T F O N T
0052160 1 6 Q * E X E C - F O N T S *
0052200 ) \r ( 2 1 1 Q " ~ & ~ & ?
0052220 < n a m e > w i l l g
0052240 i v e m o r e i n f o r m a
0052260 t i o n a b o u t < n a m e
0052300 > ~ & " 1 2 2 Q " ~ & ~
0052320 & o r o n e o f t h e f
0052340 o l l o w i n g : ~ & ~ A ~ & "
0052360 \r 1 1 2 Q " t o a p p l y
0052400 f u n c t i o n t o t h e
0052420 a r g u m e n t s g i v e n
0052440 ~ & " 7 3 Q " f u n c t i o
0052460 n ( a r g 1 a r g 2 . . . )
0052500 " 5 1 Q " t o
0052520 e v a l u a t e a n e x p
0052540 r e s s i o n ~ & " \r 3 2 Q
0052560 " < e x p r e s s i o n > " 1
0052600 0 Q " Y o u a r e t y p i
0052620 n g a t a C o m m o n L
0052640 i s p E x e c . E n t e r
0052660 ~ & " ) \r ( S E T Q E X E C -
0052700 C O M M A N D S ( A D J O I N
0052720 ( Q U O T E ( ? e x e c -
0052740 ? : E V A L N I L ) ) E X
0052760 E C - C O M M A N D S ) ) \r b r
0053000 e a k - ? = D 1 \r ( L ( 1
0053020 $ $ M A C R O - E N V 0 $ $
0053040 M A C R O - F O R M ) F 0
0053060 L A S T P O S ) \0 023 \0 001 \0 002 P
0053100 \t \0 \0 i \n \0 \0 P \t \0 \0 i j \f \0 \0
0053120 020 \0 ( 2 0 Q P R I N T - A R G
0053140 L I S T 1 3 Q S T K A R G S
0053160 7 S M A R T A R G L I S T
0053200 3 S T K N A M E ) \r N I L \r (
0053220 ) \r ( S E T Q B R E A K - C O
0053240 M M A N D S ( A D J O I N (
0053260 Q U O T E ( ? = b r e a k -
0053300 ? = : E V A L N I L ) ) B
0053320 R E A K - C O M M A N D S ) ) \r
0053340 e x e c - ? ? D 1 \r ( L ( 1
0053360 $ $ M A C R O - E N V 0 $
0053400 $ M A C R O - F O R M ) F 1
0053420 L I S P X H I S T O R Y ) \0
0053440 017 001 001 \0 002 @ 002 021 001 \0 Q H \n \0 \0 \b
0053460 \0 \0 020 \0 ( 1 4 Q V A L U E S
0053500 1 1 Q P R I N T - H I S T O R
0053520 Y ) \r N I L \r ( ) \r ( S E T Q
0053540 E X E C - C O M M A N D S ( A
0053560 D J O I N ( Q U O T E ( ? ?
0053600 e x e c - ? ? : Q U I E T
0053620 N I L ) ) E X E C - C O M M A
0053640 N D S ) ) \r e x e c - ? ? T D
0053660 1 \r ( L ( 1 $ $ M A C R O -
0053700 E N V 0 $ $ M A C R O - F O
0053720 R M ) F 1 L I S P X H I S
0053740 T O R Y ) \0 020 001 001 \0 002 @ 002 021 001
0053760 \0 Q H \n \0 \0 277 \b \0 \0 020 \0 ( 1 5 Q
0054000 V A L U E S 1 1 Q H I S T
0054020 O R Y - P R I N T ) \r N I L \r (
0054040 ) \r ( S E T Q E X E C - C O M
0054060 M A N D S ( A D J O I N ( Q
0054100 U O T E ( ? ? T e x e c - ?
0054120 ? T : Q U I E T N I L ) )
0054140 E X E C - C O M M A N D S ) ) \r
0054160 e x e c - A F T E R D 1 \r ( L
0054200 ( 1 $ $ M A C R O - E N V
0054220 0 $ $ M A C R O - F O R M ) )
0054240 \0 \v \0 \0 \0 002 @ 002 001 g \0 \0 \n \0 \0
0054260 020 \0 ( 1 0 Q L I S P X S T A T
0054300 E ) \r ( 5 A F T E R ) \r ( ) \r
0054320 ( S E T Q E X E C - C O M M A
0054340 N D S ( A D J O I N ( Q U O
0054360 T E ( A F T E R e x e c - A
0054400 F T E R : E V A L N I L ) )
0054420 E X E C - C O M M A N D S ) )
0054440 \r e x e c - B E F O R E D 1 \r
0054460 ( L ( 1 $ $ M A C R O - E N
0054500 V 0 $ $ M A C R O - F O R M
0054520 ) ) \0 \v \0 \0 \0 002 @ 002 001 g \0 \0 \n
0054540 \0 \0 020 \0 ( 1 0 Q L I S P X S T
0054560 A T E ) \r ( 5 B E F O R E ) \r
0054600 ( ) \r ( S E T Q E X E C - C O
0054620 M M A N D S ( A D J O I N (
0054640 Q U O T E ( B E F O R E e x
0054660 e c - B E F O R E : E V A L
0054700 N I L ) ) E X E C - C O M M A
0054720 N D S ) ) \r e x e c - C O N N
0054740 D 1 \r ( L ( 1 $ $ M A C R O
0054760 - E N V 0 $ $ M A C R O - F
0055000 O R M ) ) \0 \n \0 \0 \0 002 @ 002 d 220
0055020 001 \t \0 \0 020 \0 ( 7 / C N D I R )
0055040 \r N I L \r ( ) \r ( S E T Q E X
0055060 E C - C O M M A N D S ( A D J
0055100 O I N ( Q U O T E ( C O N N
0055120 e x e c - C O N N : E V A L
0055140 N I L ) ) E X E C - C O M M
0055160 A N D S ) ) \r e x e c - D A D
0055200 1 \r ( L ( 1 $ $ M A C R O -
0055220 E N V 0 $ $ M A C R O - F O
0055240 R M ) ) \0 005 \0 \0 \0 002 \b \0 \0 020 \0
0055260 ( 2 D A T E ) \r N I L \r ( ) \r
0055300 ( S E T Q E X E C - C O M M A
0055320 N D S ( A D J O I N ( Q U O
0055340 T E ( D A e x e c - D A :
0055360 E V A L N I L ) ) E X E C -
0055400 C O M M A N D S ) ) \r e x e c -
0055420 D I R D 1 \r ( L ( 1 $ $ M
0055440 A C R O - E N V 0 $ $ M A C
0055460 R O - F O R M ) ) \0 \a \0 \0 \0 002
0055500 @ 002 \t \0 \0 020 \0 ( 4 D O D I R )
0055520 \r N I L \r ( ) \r ( S E T Q E X
0055540 E C - C O M M A N D S ( A D J
0055560 O I N ( Q U O T E ( D I R
0055600 e x e c - D I R : E V A L N
0055620 I L ) ) E X E C - C O M M A N
0055640 D S ) ) \r e x e c - D O - E V E
0055660 N T S D 1 \r ( L ( 1 $ $ M
0055700 A C R O - E N V 0 $ $ M A C
0055720 R O - F O R M ) P 6 * C U
0055740 R R E N T - E V E N T * F 7
0055760 * C U R R E N T - E V E N T *
0056000 F 1 0 Q A D D S P E L L F
0056020 L G ) \0 d \a 002 \0 002 @ 002 021 Q 005 A
0056040 271 H 260 * d 001 d 003 001 g \0 \0 360 221 002 201
0056060 h 032 274 W 020 224 L \t \0 \0 277 021 020 006 L I
0056100 \n \0 \0 ] 023 M 223 W 016 265 \r 002 003 265 327 h
0056120 c 016 \b \0 \0 020 002 002 002 g \0 \0 ' 265 031 W
0056140 016 273 g \0 \0 M W 016 002 002 002 032 032 272 K 002
0056160 002 J 031 277 260 327 M \n \0 \0 277 260 320 \0 ( 1
0056200 3 7 Q \ N C O N C 2 7 2 Q
0056220 V A L U E S 5 0 Q D O - E V
0056240 E N T 3 7 Q H I S T O R Y -
0056260 A D D - T O - S P E L L I N G -
0056300 L I S T S ) \r ( 1 1 2 Q L I S
0056320 P X V A L U E S 1 0 1 Q L I
0056340 S P X V A L U E S 2 1 Q E V
0056360 E N T ) \r ( ) \r ( S E T Q E X
0056400 E C - C O M M A N D S ( A D J
0056420 O I N ( Q U O T E ( D O - E
0056440 V E N T S e x e c - D O - E V
0056460 E N T S : E V A L N I L ) )
0056500 E X E C - C O M M A N D S ) )
0056520 \r e x e c - F I X D 1 \r ( L
0056540 ( 1 $ $ M A C R O - E N V 0
0056560 $ $ M A C R O - F O R M ) P
0056600 1 L I S P X I D F 6 L
0056620 I S P X H I S T O R Y F 7
0056640 C M L P R O M P T ) \0 W 006 002 \0
0056660 002 @ 002 265 006 o \0 \0 \0 V \n \0 \0 W 016 021
0056700 022 002 H d 002 262 7 277 g \0 \0 021 0 005 H 260
0056720 & d 001 Z d \t \0 \0 002 231 277 g \0 \0 J \t
0056740 \0 \0 032 203 \t \0 \0 001 273 L 265 \a K h 032 ]
0056760 201 K & 274 002 003 265 333 M 022 032 203 001 \t \0 \0
0057000 \t \0 \0 \t \0 \0 020 \0 ( 1 2 4 Q L I
0057020 S P X F I X 1 2 1 Q C O P Y
0057040 1 1 6 Q E V E N T - I N P U
0057060 T 6 5 Q E V E N T - I N P U
0057100 T 6 0 Q E V E N T - I N P U
0057120 T 4 6 Q E V E N T - I N P U
0057140 T 1 3 Q F I N D - H I S T O
0057160 R Y - E V E N T S ) \r ( 5 4 Q
0057200 E V E N T 3 1 Q D O - E V E
0057220 N T S ) \r ( 7 ( - 1 ) ) \r (
0057240 S E T Q E X E C - C O M M A N
0057260 D S ( A D J O I N ( Q U O T
0057300 E ( F I X e x e c - F I X
0057320 : H I S T O R Y N I L ) ) E
0057340 X E C - C O M M A N D S ) ) \r e
0057360 x e c - N D I R D 1 \r ( L (
0057400 1 $ $ M A C R O - E N V 0
0057420 $ $ M A C R O - F O R M ) ) \0
0057440 022 \0 \0 \0 002 @ 002 o \0 \0 \0 g \0 \0 o \0
0057460 \0 \0 \f \0 \0 020 \0 ( 1 7 Q D O D I
0057500 R ) \r ( 1 0 Q * ) \r ( 1 4 Q
0057520 " " 5 ( P C O L U M N S
0057540 2 4 Q ) ) \r ( S E T Q E X E
0057560 C - C O M M A N D S ( A D J O
0057600 I N ( Q U O T E ( N D I R
0057620 e x e c - N D I R : E V A L
0057640 N I L ) ) E X E C - C O M M A
0057660 N D S ) ) \r e x e c - P B D 1
0057700 \r ( L ( 1 $ $ M A C R O - E
0057720 N V 0 $ $ M A C R O - F O R
0057740 M ) ) \0 \v \0 \0 \0 002 @ 002 001 \t \0 \0
0057760 \b \0 \0 020 \0 ( 1 0 Q V A L U E S
0060000 5 P R I N T B I N D I N G S
0060020 ) \r N I L \r ( ) \r ( S E T Q E
0060040 X E C - C O M M A N D S ( A D
0060060 J O I N ( Q U O T E ( P B
0060100 e x e c - P B : E V A L N I
0060120 L ) ) E X E C - C O M M A N D
0060140 S ) ) \r e x e c - P L D 1 \r (
0060160 L ( 1 $ $ M A C R O - E N V
0060200 0 $ $ M A C R O - F O R M )
0060220 ) \0 \v \0 \0 \0 002 @ 002 001 \t \0 \0 \b \0
0060240 \0 020 \0 ( 1 0 Q V A L U E S 5
0060260 P R I N T P R O P S ) \r N I L
0060300 \r ( ) \r ( S E T Q E X E C - C
0060320 O M M A N D S ( A D J O I N
0060340 ( Q U O T E ( P L e x e c -
0060360 P L : E V A L N I L ) ) E
0060400 X E C - C O M M A N D S ) ) \r e
0060420 x e c - R E M E M B E R D 1 \r
0060440 ( L ( 1 $ $ M A C R O - E N
0060460 V 0 $ $ M A C R O - F O R M
0060500 ) ) \0 \r \0 \0 \0 002 @ 002 \t \0 \0 g \0
0060520 \0 \n \0 \0 020 \0 ( 1 2 Q M A R K A
0060540 S C H A N G E D 4 G E T E X
0060560 P R E S S I O N F R O M E V E N
0060600 T S P E C ) \r ( 7 E X P R E S
0060620 S I O N S ) \r ( ) \r ( S E T Q
0060640 E X E C - C O M M A N D S ( A
0060660 D J O I N ( Q U O T E ( R E
0060700 M E M B E R e x e c - R E M E
0060720 M B E R : E V A L N I L ) )
0060740 E X E C - C O M M A N D S ) )
0060760 \r e x e c - S H H D 1 \r ( L
0061000 ( 1 $ $ M A C R O - E N V 0
0061020 $ $ M A C R O - F O R M ) )
0061040 \0 E 003 \0 \0 002 @ 002 021 ! 002 H d 002 262 7
0061060 001 j 272 271 H d 002 002 252 d 001 \t \0 \0 l 003
0061100 360 223 277 H 002 201 002 001 260 027 d 001 375 002 J k
0061120 330 Z n 002 \0 361 227 o \0 \0 \0 \t \0 \0 277 265
0061140 353 J I 016 020 001 \t \0 \0 020 \0 ( 1 0 2 Q
0061160 C L : E V A L 6 7 Q L I S
0061200 P E R R O R 2 7 Q A R G T Y
0061220 P E ) \r N I L \r ( 6 4 Q " T
0061240 O O M A N Y A R G U M E N T
0061260 S " ) \r ( S E T Q E X E C - C
0061300 O M M A N D S ( A D J O I N
0061320 ( Q U O T E ( S H H e x e c
0061340 - S H H : Q U I E T N I L )
0061360 ) E X E C - C O M M A N D S )
0061400 ) \r e x e c - U N D O D 1 \r (
0061420 L ( 1 $ $ M A C R O - E N V
0061440 0 $ $ M A C R O - F O R M )
0061460 F 3 * T E R M I N A L - I
0061500 O * F 4 L I S P X H I S T
0061520 O R Y ) \0 V 003 002 \0 002 @ 002 265 006 o
0061540 \0 \0 \0 T \n \0 \0 021 ! 002 H 003 265 017 I 265
0061560 032 S o \0 \0 \0 \n \0 \0 260 2 001 Z \t \0 \0
0061600 265 003 I 271 H 002 X 260 344 g \0 \0 360 231 S o
0061620 \0 \0 \0 \n \0 \0 260 025 J \t \0 \0 001 271 S o
0061640 \0 \0 \0 I d 003 220 001 \v \0 \0 023 \b \0 \0 020
0061660 \0 ( 1 2 3 Q V A L U E S 1 1
0061700 7 Q F O R M A T 1 0 0 Q E
0061720 V E N T - I N P U T 7 2 Q F
0061740 O R M A T 4 4 Q U N D O L I
0061760 S P X 2 3 5 Q F O R M A T
0062000 1 3 Q F I N D - H I S T O R Y
0062020 - E V E N T S ) \r ( 6 0 Q a l
0062040 r e a d y ) \r ( 1 0 7 Q " ~
0062060 A u n d o n e . ~ & " 6 7 Q
0062100 " A l r e a d y u n d o n e
0062120 . ~ & " 3 2 Q " N o t h i n
0062140 g s a v e d . ~ & " 7 ( -
0062160 1 ) ) \r ( S E T Q E X E C - C
0062200 O M M A N D S ( A D J O I N
0062220 ( Q U O T E ( U N D O e x e
0062240 c - U N D O : E V A L N I L
0062260 ) ) E X E C - C O M M A N D S
0062300 ) ) \r e x e c - R E D O D 1 \r
0062320 ( L ( 1 $ $ M A C R O - E N
0062340 V 0 $ $ M A C R O - F O R M
0062360 ) P 1 L I S P X I D F
0062400 6 L I S P X H I S T O R Y F
0062420 7 C M L P R O M P T ) \0 Q
0062440 006 002 \0 002 @ 002 265 006 o \0 \0 \0 V \n \0 \0
0062460 W 016 021 022 002 H d 002 262 7 277 g \0 \0 021 0
0062500 005 H 260 & d 001 Z d \t \0 \0 002 231 277 g \0
0062520 \0 J \t \0 \0 032 203 \t \0 \0 001 273 L 265 \a K
0062540 h 032 ] 201 K & 274 002 003 265 333 M 022 032 020 001
0062560 \t \0 \0 020 \0 ( 1 1 6 Q E V E N T
0062600 - I N P U T 6 5 Q E V E N T
0062620 - I N P U T 6 0 Q E V E N T
0062640 - I N P U T 4 6 Q E V E N T
0062660 - I N P U T 1 3 Q F I N D -
0062700 H I S T O R Y - E V E N T S ) \r
0062720 ( 5 4 Q E V E N T 3 1 Q D
0062740 O - E V E N T S ) \r ( 7 ( -
0062760 1 ) ) \r ( S E T Q E X E C - C
0063000 O M M A N D S ( A D J O I N
0063020 ( Q U O T E ( R E D O e x e
0063040 c - R E D O : H I S T O R Y
0063060 N I L ) ) E X E C - C O M M A
0063100 N D S ) ) \r e x e c - F O R G E
0063120 T D 1 \r ( L ( 1 $ $ M A C
0063140 R O - E N V 0 $ $ M A C R O
0063160 - F O R M ) F 1 L I S P X
0063200 H I S T O R Y F 2 * T E R
0063220 M I N A L - I O * ) \0 . 001 002 \0
0063240 002 @ 002 265 032 Q \t \0 \0 021 001 \0 H 003 265 025
0063260 R o \0 \0 \0 \n \0 \0 023 \b \0 \0 020 Q \n \0
0063300 \0 260 350 001 i \n \0 \0 277 H 002 X 260 341 \0 (
0063320 4 6 Q U N D O L I S P X 2 3
0063340 7 Q F I N D - H I S T O R Y -
0063360 E V E N T S 3 2 Q V A L U E
0063400 S 2 6 Q F O R M A T 7 H
0063420 I S T O R Y - E V E N T S ) \r N
0063440 I L \r ( 2 3 Q " F o r g o t
0063460 t e n . ~ & " ) \r ( S E T Q E
0063500 X E C - C O M M A N D S ( A D
0063520 J O I N ( Q U O T E ( F O R
0063540 G E T e x e c - F O R G E T
0063560 : E V A L N I L ) ) E X E C
0063600 - C O M M A N D S ) ) \r ( P U T
0063620 P R O P S C O M M O N - L I S
0063640 P E X E C ( C M L E X E C
0063660 : T O P - L E V E L - P T ) )
0063700 \r ( P U T P R O P S I N T E R
0063720 L I S P E X E C ( E V A L Q
0063740 T ) ) \r ( P U T P R O P S C M
0063760 L E X E C C O P Y R I G H T
0064000 ( " X e r o x C o r p o r a t
0064020 i o n " 1 9 8 5 1 9 8 6 ) )
0064040 \r S T O P \r
0064046