$ od -c -N 50000 [eris]<LispCore>EVAL>DEBUGGER.DCOM!2 0000000 ( D E F I N E - F I L E - I N F 0000020 O 247 P A C K A G E " I N T E 0000040 R L I S P " 247 R E A D T A B L 0000060 E " I N T E R L I S P " 247 B 0000100 A S E 1 0 ) \r ( F I L E C R E 0000120 A T E D " 2 7 - N o v - 8 6 0000140 0 2 : 3 7 : 0 7 " ( " c o m p 0000160 i l e d o n " { E R I S } 0000200 < L I S P C O R E > E V A L > D 0000220 E B U G G E R . ; 8 ) \r " 2 5 0000240 - N o v - 8 6 0 0 : 4 6 : 5 7 0000260 " " C O M P I L E - F I L E d 0000300 " i n " X e r o x L i s p 0000320 2 5 - N o v - 8 6 . . . " 0000340 d a t e d " 2 5 - N o v - 8 6 0000360 0 1 : 1 8 : 0 1 " ) \r ( F I L 0000400 E C R E A T E D " 2 7 - N o v 0000420 - 8 6 0 2 : 3 5 : 4 1 " { E 0000440 R I S } < L I S P C O R E > E V 0000460 A L > D E B U G G E R . ; 8 7 0000500 2 5 3 7 c h a n g e s t o % 0000520 : ( C O M M A N D S \r " R E 0000540 V E R T " " B T " " E V A L 0000560 " ) ( F N S \ R E A L F R A 0000600 M E P X C L : : I N T E R E S 0000620 T I N G - F R A M E - P B R E 0000640 A K 1 V I R G I N F N B A K 0000660 T R A C E D E B U G G E R - E 0000700 V A L \r ) ( V A R S D E B U 0000720 G G E R C O M S * D E B U G G 0000740 E R - E N T R Y - P O I N T S * 0000760 ) ( V A R I A B L E S * S H 0001000 O R T - B A C K T R A C E - F I 0001020 L T E R * X C L : : * D E B U 0001040 G G E R - P R O M P T * \r ) ( 0001060 F U N C T I O N S A T T A C H 0001100 - B A C K T R A C E - M E N U 0001120 D E B U G G E R F I N D - D E 0001140 B U G G E R - E N T R Y - F R A 0001160 M E ) ( S P E C I A L - F O R 0001200 M S B R E A K 1 ) p r e v i 0001220 o u s \r d a t e % : " 2 7 - 0001240 N o v - 8 6 0 1 : 3 9 : 3 2 " 0001260 { E R I S } < L I S P C O R E 0001300 > E V A L > D E B U G G E R . ; 0001320 7 ) \r ( R P A Q Q D E B U G G 0001340 E R C O M S ( ( * ; ; ; " 0001360 T h e D e b u g g e r " ) ( 0001400 V A R I A B L E S * I N - T H 0001420 E - D E B U G G E R * * S H O 0001440 R T - B A C K T R A C E - F I L 0001460 T E R * \r B R E A K R E G I O 0001500 N S P E C * D E B U G G E R - 0001520 M E N U * * D E B U G G E R - 0001540 M E N U - I T E M S * X C L : 0001560 : * D E B U G G E R - P R O M P 0001600 T * * D E B U G G E R - T E R 0001620 M I N A L - T A B L E * \r ) ( 0001640 A D D V A R S ( C A C H E D M 0001660 E N U S * D E B U G G E R - M 0001700 E N U * ) ( * ; " f o r 0001720 F O N T S E T " ) ( F O N T V 0001740 A R S ( B A C K T R A C E F O 0001760 N T T I N Y F O N T T ) ) ) 0002000 ( * \r ; " m u s t a p p 0002020 e a r e a r l y i n t h e 0002040 f i l e " ) ( F U N C T I O 0002060 N S D E B U G G E R D E B U 0002100 G G E R - S E L E C T E D D E 0002120 B U G G E R - S E L E C T I O N 0002140 - H E L P \r F I N D - D E B U 0002160 G G E R - E N T R Y - F R A M E 0002200 N E A R - B Y - R E G I O N 0002220 P R I N T - B A C K T R A C E 0002240 A T T A C H - B A C K T R A C E 0002260 - M E N U \r F I N D - L E X I 0002300 C A L - E N V I R O N M E N T 0002320 C L O S E - D E B U G G E R - W 0002340 I N D O W E X I T - D E B U G 0002360 G E R B A C K T R A C E - I T 0002400 E M - S E L E C T E D R E G I 0002420 O N - N E X T - T O \r S I M P 0002440 L E - R E P O R T - C O N D I T 0002460 I O N S T A C K - F R A M E - 0002500 P R O P E R T I E S S T A C K 0002520 - F R A M E - P R O P E R T Y 0002540 S T A C K - F R A M E - V A L U 0002560 E - C O M M A N D ) ( F N S 0002600 \r B A K T R A C E B A K T R A 0002620 C E 1 ) ( I N I T V A R S ( 0002640 A U T O B A C K T R A C E F L G 0002660 ) ) ( * ; \r " i f T 0002700 o r B R E A K m e a n s t 0002720 h a t d e b u g g e r a u t 0002740 o m a t i c a l l y a d d s 0002760 b a c k t r a c e " ) ( C O M 0003000 M A N D S " @ " " B T " " 0003020 B T ! " " B T V " \r " B T V 0003040 ! " " D B T " " D B T ! " 0003060 " E V A L " " O K " " P B " 0003100 " P R " " P R O C E E D " 0003120 " R E T R Y " " R E T U R N " 0003140 " R E V E R T " " S T O P " 0003160 " U B " " V A L U E " " ^ 0003200 " \r " ? = " ) ( F N S B A 0003220 K T R A C E C R E A T E - P R 0003240 O C E E D - K E Y L I S T C R 0003260 E A T E - P R O C E E D - M E N 0003300 U M A K E - F R A M E - I N S 0003320 P E C T - W I N D O W \r P R O 0003340 C E E D - F R O M - B R E A K 0003360 P R O C E E D - U S I N G - M E 0003400 N U \ R E L E A S E - S T A C 0003420 K - D A T U M D E B U G G E R 0003440 - E V A L F I N D - N A M E D 0003460 - S T A C K - P O S I T I O N 0003500 \r F I N D - D E B U G G E R - S 0003520 T A C K - F R A M E F I N D - 0003540 S T A C K - F R A M E R E L E 0003560 A S E - D E B U G G E R - W I N 0003600 D O W ) ( V A R I A B L E S 0003620 T R A C E R E G I O N ) ( C O 0003640 M S ( \r F U N C T I O N S E 0003660 N T E R - D E B U G G E R - P ) 0003700 ( V A R S * D E B U G G E R 0003720 - E N T R Y - P O I N T S * B 0003740 A K T R A C E L S T ) ( D E C 0003760 L A R E % : D O C O P Y D O 0004000 N T E V A L @ L O A D \r ( I N 0004020 I T V A R S ( M a x B k M e n 0004040 u W i d t h 1 2 5 ) ( A U T 0004060 O B A C K T R A C E F L G N I 0004100 L ) ( B A C K T R A C E F O N 0004120 T ) ) ) ( D E C L A R E % : 0004140 D O E V A L @ C O M P I L E \r 0004160 D O N T C O P Y ( R E C O R D 0004200 S B K M E N U I T E M ) ) ) 0004220 ( C O M S ( F N S H E L P 0004240 S H O U L D N T E R R O R E 0004260 R R O R X I N T E R R U P T 0004300 F A U L T E V A L F A U L T A 0004320 P P L Y \r O L D F A U L T 1 0004340 E R R O R M E S S E R R O R M 0004360 E S S 1 S M A R T A R G L I S 0004400 T P A C K - I N - \ S I M P 0004420 L I F Y . C L . A R G L I S T 0004440 R E S T O R E N A M E S W B R 0004460 E A K ) ( \r I N I T V A R S 0004500 ( H E L P D E P T H 7 ) ( W 0004520 B R E A K ) ( B R E A K D E L 0004540 I M I T E R " \r " ) ( H E L 0004560 P T I M E 1 0 0 0 ) ( H E L 0004600 P C L O C K ) ( N L S E T Q G 0004620 A G T ) ( * M A C R O E X P 0004640 A N D - H O O K * ( Q U O T E 0004660 C L : F U N C A L L ) ) ( \r 0004700 C O M P I L E R M A C R O P R O 0004720 P S ( Q U O T E ( D M A C R 0004740 O A L T O M A C R O B Y T E 0004760 M A C R O M A C R O ) ) ) ) 0005000 ( A D D V A R S ( W I N D O W 0005020 U S E R F O R M S ( W B R E A 0005040 K T ) ) \r ( E N D O F W I N 0005060 D O W U S E R F O R M S ( W B 0005100 R E A K N I L ) ) ) ( F N S 0005120 X C L : : I N T E R E S T I N 0005140 G - F R A M E - P ) ( * \r " 0005160 f o r b a c k w a r d c o m 0005200 p a t i b i l i t y . U s e d 0005220 c u r r e n t l y b y w i 0005240 n d o w m o u s e h a n d l 0005260 e r " ) ( V A R S ( N B R E 0005300 A K S 0 ) ) ) ( P ( \r C L 0005320 : P R O C L A I M ( Q U O T E 0005340 ( C L : S P E C I A L B R K 0005360 E X P B R K T Y P E B R K C 0005400 O N D B R K P O S ) ) ) ) ( 0005420 P R O P F I L E T Y P E D E 0005440 B U G G E R ) ( D E C L A R E 0005460 % : \r D O N T E V A L @ L O A 0005500 D D O E V A L @ C O M P I L E 0005520 D O N T C O P Y C O M P I L 0005540 E R V A R S ( A D D V A R S 0005560 ( N L A M A ) ( N L A M L ) 0005600 ( L A M A W B R E A K E R R 0005620 O R X \r P R O C E E D - U S I 0005640 N G - M E N U C R E A T E - P 0005660 R O C E E D - M E N U ) ) ) ) ) 0005700 \r ( C L : P R O C L A I M ( Q 0005720 U O T E ( C L : S P E C I A L 0005740 * I N - T H E - D E B U G G E 0005760 R * ) ) ) \r ( O R ( B O U N D 0006000 P ( Q U O T E * I N - T H E 0006020 - D E B U G G E R * ) ) ( S E 0006040 T Q * I N - T H E - D E B U G 0006060 G E R * N I L ) ) \r ( C L : P 0006100 R O C L A I M ( Q U O T E ( 0006120 C L : S P E C I A L * S H O R 0006140 T - B A C K T R A C E - F I L T 0006160 E R * ) ) ) \r ( O R ( B O U N 0006200 D P ( Q U O T E * S H O R T 0006220 - B A C K T R A C E - F I L T E 0006240 R * ) ) ( S E T Q * S H O R 0006260 T - B A C K T R A C E - F I L T 0006300 E R * ( Q U O T E \r X C L : 0006320 : I N T E R E S T I N G - F R A 0006340 M E - P ) ) ) \r ( L E T * ( ( 0006360 A 3 2 7 0 ( Q U O T E * S H 0006400 O R T - B A C K T R A C E - F I 0006420 L T E R * ) ) ( A 3 2 7 1 ( 0006440 Q U O T E C L : : V A R I A B 0006460 L E ) ) ( A 3 2 7 2 \r " U s 0006500 e d t o d e t e r m i n e 0006520 w h a t B T s e e s , a p 0006540 p l i e d t o e a c h s t 0006560 a c k f r a m e " ) ) ( S E 0006600 T - D O C U M E N T A T I O N 0006620 A 3 2 7 0 A 3 2 7 1 A 3 2 7 0006640 2 ) ) \r ( C L : P R O C L A I M 0006660 ( Q U O T E ( G L O B A L 0006700 B R E A K R E G I O N S P E C ) 0006720 ) ) \r ( O R ( B O U N D P ( 0006740 Q U O T E B R E A K R E G I O 0006760 N S P E C ) ) ( S E T Q B R 0007000 E A K R E G I O N S P E C ( C 0007020 O N S 1 7 ( C O N S - 1 2 0007040 0 ( C O N S 4 0 0 ( C O N 0007060 S 1 2 0 N I L \r ) ) ) ) ) ) 0007100 \r ( C L : P R O C L A I M ( Q 0007120 U O T E ( C L : S P E C I A L 0007140 * D E B U G G E R - M E N U * 0007160 ) ) ) \r ( O R ( B O U N D P 0007200 ( Q U O T E * D E B U G G E R 0007220 - M E N U * ) ) ( S E T Q * 0007240 D E B U G G E R - M E N U * N 0007260 I L ) ) \r ( L E T * ( ( A 3 2 0007300 7 3 ( Q U O T E * D E B U G 0007320 G E R - M E N U * ) ) ( A 3 2 0007340 7 4 ( Q U O T E C L : : V A 0007360 R I A B L E ) ) ( A 3 2 7 5 0007400 " M e n u f o r d e b u g g 0007420 e r w i n d o w s " \r ) ) ( 0007440 S E T - D O C U M E N T A T I O 0007460 N A 3 2 7 3 A 3 2 7 4 A 3 0007500 2 7 5 ) ) \r ( C L : P R O C L A 0007520 I M ( Q U O T E ( C L : S P 0007540 E C I A L * D E B U G G E R - 0007560 M E N U - I T E M S * ) ) ) \r ( 0007600 S E T Q * D E B U G G E R - M 0007620 E N U - I T E M S * ( Q U O T 0007640 E ( " E V A L " " E D I T " 0007660 " R E V E R T " " ^ " " P 0007700 R O C E E D " " O K " " B T 0007720 " " B T ! " " ? = " ) ) ) \r 0007740 ( L E T * ( ( A 3 2 7 6 ( Q 0007760 U O T E * D E B U G G E R - M 0010000 E N U - I T E M S * ) ) ( A 3 0010020 2 7 7 ( Q U O T E C L : : V 0010040 A R I A B L E ) ) ( A 3 2 7 8 0010060 \r " E l e m e n t s o f d 0010100 e b u g g e r m e n u " ) ) 0010120 ( S E T - D O C U M E N T A T I 0010140 O N A 3 2 7 6 A 3 2 7 7 A 0010160 3 2 7 8 ) ) \r ( C L : P R O C L 0010200 A I M ( Q U O T E ( C L : S 0010220 P E C I A L X C L : : * D E B 0010240 U G G E R - P R O M P T * ) ) ) 0010260 \r ( O R ( B O U N D P ( Q U 0010300 O T E X C L : : * D E B U G G 0010320 E R - P R O M P T * ) ) ( S E 0010340 T Q X C L : : * D E B U G G E 0010360 R - P R O M P T * " ( d e b u 0010400 g ) " ) ) \r ( L E T * ( ( A 3 0010420 2 7 9 ( Q U O T E X C L : : 0010440 * D E B U G G E R - P R O M P T 0010460 * ) ) ( A 3 2 8 0 ( Q U O T 0010500 E C L : : V A R I A B L E ) ) 0010520 ( A 3 2 8 1 \r " P r o m p t 0010540 u s e d b y d e b u g g e 0010560 r " ) ) ( S E T - D O C U M E 0010600 N T A T I O N A 3 2 7 9 A 3 0010620 2 8 0 A 3 2 8 1 ) ) \r ( C L : 0010640 P R O C L A I M ( Q U O T E 0010660 ( C L : S P E C I A L * D E B 0010700 U G G E R - T E R M I N A L - T 0010720 A B L E * ) ) ) \r ( O R ( B O 0010740 U N D P ( Q U O T E * D E B 0010760 U G G E R - T E R M I N A L - T 0011000 A B L E * ) ) ( S E T Q * D 0011020 E B U G G E R - T E R M I N A L 0011040 - T A B L E * ( C O P Y T E R 0011060 M T A B L E N I L ) ) ) \r ( L 0011100 E T * ( ( A 3 2 8 2 ( Q U O 0011120 T E * D E B U G G E R - T E R 0011140 M I N A L - T A B L E * ) ) ( 0011160 A 3 2 8 3 ( Q U O T E C L : 0011200 : V A R I A B L E ) ) ( A 3 2 0011220 8 4 \r " T e r m i n a l t a 0011240 b l e f o r u s e i n d 0011260 e b u g g e r " ) ) ( S E T - 0011300 D O C U M E N T A T I O N A 3 0011320 2 8 2 A 3 2 8 3 A 3 2 8 4 ) 0011340 ) \r ( A D D T O V A R C A C H 0011360 E D M E N U S * D E B U G G E 0011400 R - M E N U * ) \r ( A D D T O V 0011420 A R F O N T V A R S ( B A C 0011440 K T R A C E F O N T T I N Y F 0011460 O N T T ) ) \r X C L : : D E B 0011500 U G G E R A 0 0 0 1 A 0 0 0 2 A 0011520 0 0 0 3 A 0 0 0 4 D 1 \r ( L 0011540 ( 1 E N V 0 I N P U T ) 0011560 P 0 * I N - T H E - D E B U 0011600 G G E R * ) \0 \n 001 \0 \0 002 021 020 \0 0011620 @ A \n \0 \0 020 \0 ( 7 E V A L - I 0011640 N P U T ) \r N I L \r ( ) \r X C L 0011660 : : D E B U G G E R A 0 0 0 1 A 0011700 0 0 0 2 A 0 0 0 3 D 1 \r ( F 0011720 0 B R K E N V F 1 L A S 0011740 T P O S F 2 X C L : : * D 0011760 E B U G G E R - P R O M P T * ) 0012000 \0 & \0 003 \0 \0 g \0 \0 ` \0 \0 ` \0 \0 0012020 h 032 032 g \0 \0 P 265 006 Q \t \0 \0 g \0 \0 0012040 R g \0 \0 g \0 \0 \r \b \0 \0 020 \0 ( 3 5 0012060 E X E C 2 1 F I N D - L E 0012100 X I C A L - E N V I R O N M E N 0012120 T ) \r ( 3 1 X C L : : D E B U 0012140 G G E R A 0 0 0 1 A 0 0 0 2 A 0 0012160 0 0 3 A 0 0 0 4 2 8 : F U N 0012200 C T I O N 2 4 : P R O M P T 0012220 1 4 : E N V I R O N M E N T 0012240 8 * E X E C - C O M M A N D 0012260 - T A B L E * 5 * D E B U G 0012300 G E R - C O M M A N D - T A B L 0012320 E * 2 : C O M M A N D - T A 0012340 B L E S ) \r ( ) \r X C L : : D E 0012360 B U G G E R A 0 0 0 1 A 0 0 0 2 0012400 D 1 \r ( N A M E E R R O R S 0012420 E T L ( 0 N I L ) F 1 0012440 B R K C O N D F 2 D E B 0012460 U G G E R - W I N D O W F 3 0012500 L A S T P O S F 4 R E S 0012520 E T V A R S L S T F 5 B R 0012540 K P O S F 6 A U T O B A C 0012560 K T R A C E F L G F 7 \ T 0012600 E R M . O F D F 8 W B R E 0012620 A K F 9 B R K F N F 1 0012640 0 D E F A U L T T T Y R E G I 0012660 O N F 1 1 B R K F N P F 0012700 1 2 R E S E T Y ) 002 003 001 \f 0012720 002 \0 U 231 j U \n \0 \0 c 006 277 260 036 j \b 0012740 \0 \0 c 006 \n \0 \0 c \n 277 g \0 \0 U h 032 0012760 032 h h 032 032 T 032 c \b 277 g \0 \0 S h 032 0013000 032 h h 032 032 T 032 c \b 277 W 020 242 261 001 9 0013020 W 016 \t \0 \0 262 t Q 303 \0 \0 262 n ` \0 \0 0013040 \t \0 \0 277 o \0 \0 \0 ` \0 \0 \n \0 \0 277 o 0013060 \0 \0 \0 ` \0 \0 \n \0 \0 277 ` \0 \0 g \0 \0 0013100 \n \0 \0 ` \0 \0 \n \0 \0 277 o \0 \0 \0 ` \0 0013120 \0 \n \0 \0 277 \b \0 \0 222 261 \0 355 ` \0 \0 g 0013140 \0 \0 \n \0 \0 277 o \0 \0 \0 ` \0 \0 \n \0 \0 0013160 277 o \0 \0 \0 ` \0 \0 \n \0 \0 277 ` \0 \0 \t 0013200 \0 \0 277 ` \0 \0 261 \0 274 W 020 242 261 \0 272 W 0013220 016 \t \0 \0 242 261 \0 261 \b \0 \0 262 > g \0 \0 0013240 h g \0 \0 \v \0 \0 021 001 \0 H 233 g \0 \0 h 0013260 H h i \r 005 \0 \0 201 W 016 022 \t \0 \0 \t \0 0013300 \0 311 006 ` \0 \0 \t \0 \0 265 \f l 024 m 354 l 0013320 d d \f \0 \0 \n \0 \0 201 W 024 o \0 \0 \0 \n 0013340 \0 \0 c 004 277 g \0 \0 R h 032 032 h h 032 032 0013360 T 032 c \b 277 R g \0 \0 U \v \0 \0 277 R g 0013400 \0 \0 S \v \0 \0 277 R g \0 \0 \b \0 \0 021 001 0013420 \0 Q H \n \0 \0 277 H \t \0 \0 022 \v \0 \0 277 0013440 R g \0 \0 g \0 \0 \v \0 \0 277 R g \0 \0 g 0013460 \0 \0 \v \0 \0 277 R g \0 \0 ` \0 \0 \v \0 \0 0013500 277 R \t \0 \0 277 Q 303 \0 \0 224 i \t \0 \0 277 0013520 Q 303 \0 \0 262 037 S \t \0 \0 003 262 030 Q 006 \0 0013540 \0 311 002 004 l 004 360 232 S Q 006 \0 \0 311 002 \n 0013560 \0 \0 277 W 026 232 i o \0 \0 \0 W 022 \v \0 \0 0013600 214 Q 303 \0 \0 230 Q 006 \0 \0 311 002 c 022 277 Q 0013620 \t \0 \0 277 R 262 2 V g \0 \0 360 263 024 V d 0013640 g \0 \0 360 221 277 210 241 h 206 Q 303 \0 \0 262 031 0013660 i 262 026 h V g \0 \0 360 245 V g \0 \0 360 221 0013700 h 200 i \n \0 \0 277 g \0 \0 g \0 \0 \n \0 \0 0013720 c 030 i 020 \0 ( 5 0 9 \ C A T C H 0013740 - F U N C A L L 4 9 9 A T T 0013760 A C H - B A C K T R A C E - M E 0014000 N U 4 4 8 C L : P R I N C 0014020 4 2 9 C L : F O R M A T 4 1 0014040 5 S E T S T K N A M E 3 9 1 0014060 S T K N A M E 3 8 0 C L E 0014100 A R B U F 3 7 0 T T Y D I S 0014120 P L A Y S T R E A M 3 6 5 P 0014140 U T W I N D O W P R O P 3 5 4 0014160 W I N D O W A D D P R O P 3 0014200 4 3 P U T W I N D O W P R O P 0014220 3 3 2 P U T W I N D O W P R 0014240 O P 3 2 8 C L : G E T - O U 0014260 T P U T - S T R E A M - S T R I 0014300 N G 3 2 3 S I M P L E - R E 0014320 P O R T - C O N D I T I O N 3 0014340 1 5 C L : M A K E - S T R I N 0014360 G - O U T P U T - S T R E A M 0014400 3 0 7 P U T W I N D O W P R O 0014420 P 2 9 8 P U T W I N D O W P 0014440 R O P 2 7 1 C R E A T E W 0014460 2 6 1 N E A R - B Y - R E G I 0014500 O N 2 5 8 C R E A T E R E G 0014520 I O N 2 4 6 R E G I O N P 0014540 2 3 8 \ I N S U R E W I N D O 0014560 W 2 3 5 W F R O M D S 2 2 0014600 8 E N V A P P L Y 2 1 2 S 0014620 T K P O S 2 0 0 H A S T T Y 0014640 W I N D O W P 1 9 3 I M A G 0014660 E S T R E A M P 1 7 5 T E R 0014700 P R I 1 6 8 P R I N 1 1 5 0014720 7 P R I N 1 1 4 6 P U T W 0014740 I N D O W P R O P 1 3 3 H A 0014760 S T T Y W I N D O W P 1 2 9 0015000 P R I N 1 1 1 8 P R I N 1 0015020 1 1 2 P R O C E S S P R O P 0015040 1 0 2 P R I N 1 9 1 P R I 0015060 N 1 8 0 T E R P R I 6 6 0015100 I M A G E S T R E A M P 2 0 0015120 S T K N T H 1 5 F I N D - D 0015140 E B U G G E R - E N T R Y - F R 0015160 A M E 6 S T K N T H ) \r ( 5 0015200 0 6 X C L : : D E B U G G E R 0015220 A 0 0 0 1 A 0 0 0 2 A 0 0 0 3 0015240 5 0 3 S I : : D E B U G G E R 0015260 - E X I T 4 9 1 A L W A Y S 0015300 ! 4 8 5 B T ! 4 7 5 C L 0015320 : E R R O R 4 6 4 A L W A Y 0015340 S 4 5 6 A L W A Y S ! 4 3 0015360 9 S I : : B R E A K P O I N T 0015400 4 3 4 S I : : B R E A K P O 0015420 I N T 4 1 0 S I : : R E V E 0015440 R T 3 9 8 S I : : R E V E R 0015460 T 3 8 5 S I : : R E V E R T 0015500 3 7 5 C L : E R R O R 3 6 0015520 2 \ R U N N I N G . P R O C E 0015540 S S 3 5 9 P R O C E S S 3 0015560 5 1 C L O S E - D E B U G G E 0015600 R - W I N D O W 3 4 8 C L O 0015620 S E F N 3 4 0 D E B U G G E 0015640 R - S E L E C T E D 3 3 7 B 0015660 U T T O N E V E N T F N 3 1 2 0015700 T I T L E 3 0 3 L A S T P 0015720 O S 2 9 4 S T A C K - P O S 0015740 I T I O N 2 7 7 R E L E A S 0015760 E - D E B U G G E R - W I N D O 0016000 W 2 4 3 B R E A K R E G I O 0016020 N S P E C 2 2 0 T T Y D I S 0016040 P L A Y S T R E A M 2 0 9 D 0016060 E B U G G E R 2 0 5 E X E C 0016100 1 7 9 P R O M P T W I N D O 0016120 W 1 7 2 P R O M P T W I N D 0016140 O W 1 6 5 P R O M P T W I N 0016160 D O W 1 5 4 P R O M P T W I 0016200 N D O W 1 4 3 P A G E F U L 0016220 L F N 1 4 0 P R O M P T W I 0016240 N D O W 1 2 6 P R O M P T W 0016260 I N D O W 1 1 5 P R O M P T 0016300 W I N D O W 1 0 9 N A M E 0016320 1 0 6 \ R U N N I N G . P R O 0016340 C E S S 9 9 P R O M P T W I 0016360 N D O W 8 8 P R O M P T W I 0016400 N D O W 7 7 P R O M P T W I 0016420 N D O W 7 2 S T O R A G E - 0016440 C O N D I T I O N 4 2 R E L 0016460 S T K 2 6 R E L S T K ) \r ( 0016500 4 2 4 " I n ~ S : ~ & " 0016520 2 6 8 " D e b u g g e r W i 0016540 n d o w " 1 6 2 " U s i n g 0016560 P R O M P T W I N D O W a s 0016600 T T Y w i n d o w . " 1 5 0016620 1 " w h i c h d o e s n o 0016640 t h a v e a T T Y w i n 0016660 d o w . " \r 1 2 3 " ' " 0016700 9 6 " r u n n i n g i n p 0016720 r o c e s s ' " 8 5 " R a 0016740 n o u t o f s p a c e " 0016760 ) \r X C L : : D E B U G G E R A 0017000 0 0 0 1 D 1 \r ( P 1 R E S 0017020 E T Y P 0 L I S P X H I S 0017040 T F 3 B R K V A L U E S 0017060 F 4 * D E B U G G E R - T E 0017100 R M I N A L - T A B L E * F 0017120 5 L I S P X H I S T F 6 0017140 R E S E T V A R S L S T ) \0 ~ 0017160 003 004 \0 \0 T \t \0 \0 U 021 ! 002 V o \0 \0 0017200 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 0017220 \0 277 J 223 \b \0 \0 277 023 S 001 265 006 \b \0 \0 0017240 020 d i 360 226 277 S 002 \t \0 \0 020 d g \0 \0 0017260 360 224 277 \b \0 \0 020 d g \0 \0 360 262 024 277 S 0017300 002 002 001 g \0 \0 S 002 001 h 032 i \f \0 \0 020 0017320 g \0 \0 360 262 031 S 002 002 002 001 S 002 001 S 002 0017340 002 001 S 002 002 001 i d \r 006 \0 \0 020 \b \0 \0 0017360 020 \0 ( 1 2 3 H E L P 1 1 9 0017400 E N V A P P L Y 9 0 R E T A 0017420 P P L Y 6 5 E R R O R ! 5 0017440 4 C L : V A L U E S - L I S T 0017460 4 3 C L : V A L U E S 3 4 0017500 E R R O R ! 2 8 R E S E T 0017520 R E S T O R E 1 8 X C L : : 0017540 D E B U G G E R A 0 0 0 1 A 0 0 0017560 0 2 3 S E T T E R M T A B L 0017600 E ) \r ( 9 4 S I : : R E V E R 0017620 T 8 1 C L : V A L U E S - L 0017640 I S T 7 0 R E T U R N 5 9 0017660 E R R O R ! 2 4 E R R O R 0017700 1 5 I N T E R N A L ) \r ( 0017720 1 2 ( X C L : : D E B U G G E 0017740 R A 0 0 0 1 A 0 0 0 2 ) ) \r D E 0017760 B U G G E R D 1 \r ( L ( 0 0020000 - a r g s - ) P 3 3 X C L 0020020 : * C U R R E N T - P R O F I L 0020040 E * P 3 2 B R K V A L U E 0020060 S P 3 1 L A S T P O S P 0020100 3 0 D E B U G G E R - W I N 0020120 D O W P 2 9 \ I N B Q U O 0020140 T E P 2 8 ! V A L U E P 0020160 2 7 \ I N T E R R U P T A B 0020200 L E P 2 6 \ P R I M T E R 0020220 M S A P 2 5 \ P R I M T E 0020240 R M T A B L E P 2 4 \ C U 0020260 R R E N T D I S P L A Y L I N E 0020300 P 2 3 \ # D I S P L A Y L 0020320 I N E S P 2 2 \ P R I M O 0020340 U T . O F D P 2 1 \ P R I 0020360 M I N . O F D P 2 0 \ T E 0020400 R M . O F D P 1 9 \ L I N 0020420 E B U F . O F D P 1 8 * I 0020440 N - T H E - D E B U G G E R * 0020460 P 1 6 B R K F N P 1 3 0020500 B R K F N P P 1 2 B R K P 0020520 O S P 9 B R K C O N D P 0020540 6 B R K E N V P 3 B R 0020560 K E X P F 3 4 \ L I N E B 0020600 U F . O F D F 3 5 \ T E R 0020620 M . O F D F 3 6 * I N - T 0020640 H E - D E B U G G E R * F 3 0020660 7 * N O T - Y E T - E V A L U 0020700 A T E D * F 3 8 \ # D I S 0020720 P L A Y L I N E S F 3 9 X 0020740 C L : * C U R R E N T - P R O F 0020760 I L E * F 4 0 \ P R I M T 0021000 E R M T A B L E F 4 1 \ P 0021020 R I M T E R M S A F 4 2 X 0021040 C L : * D E F A U L T - P R O F 0021060 I L E * ) 001 W " \t 002 \0 e 021 001 \0 0021100 H k 021 002 002 J d I 363 242 261 \0 250 277 h 022 0021120 021 321 020 H k 275 274 M d L 363 242 261 \0 253 277 0021140 h 276 H k _ 020 277 _ 016 277 O 020 d O 016 363 0021160 242 261 \0 253 277 h _ 022 277 H k _ 026 277 _ 024 0021200 277 O 026 d O 024 363 242 261 \0 254 277 h _ 030 277 0021220 i _ 032 277 H k _ 036 277 _ 034 277 O 036 d O 0021240 034 363 242 261 \0 251 277 h _ 032 _ 277 W H i 0021260 W D W F W D W F W L j W P W R i 0021300 W J 021 L O " i 360 242 261 \0 232 o \0 \0 0021320 \0 i \n \0 \0 277 i \t \0 \0 277 o \0 \0 \0 i 0021340 \n \0 \0 277 i d \n \0 \0 \t \0 \0 i \n \0 \0 0021360 260 352 a g \0 \0 360 226 J k 330 a 261 377 S J 0021400 l 002 324 Z 261 377 B a g \0 \0 360 226 M k 330 0021420 a 261 377 P M l 002 324 ] 261 377 ? a g \0 \0 0021440 360 227 O 020 k 330 a 261 377 O O 020 l 002 324 _ 0021460 020 261 377 ; a g \0 \0 360 227 O 026 k 330 a 261 0021500 377 N O 026 l 002 324 _ 026 261 377 : a g \0 \0 0021520 360 227 O 036 k 330 a 261 377 S O 036 l 002 324 _ 0021540 036 261 377 = g \0 \0 \t \0 \0 222 W N 201 W T 0021560 021 001 ! O B \t \0 \0 227 O B \t \0 \0 _ B 0021600 201 O B \t \0 \0 O B \t \0 \0 g \0 \0 \v \0 0021620 \0 020 \0 ( 3 4 0 \ D O . P R O G 0021640 V 3 3 4 X C L : : P R O F I 0021660 L E - V A L U E S 3 2 9 X C 0021700 L : : P R O F I L E - V A R I A 0021720 B L E S 3 2 1 X C L : F I N 0021740 D - P R O F I L E 3 1 5 C L 0021760 : S T R I N G P 3 0 1 B O U 0022000 N D P 1 7 9 P R I N T 1 7 0022020 5 E V A L 1 7 2 R E A D 0022040 1 6 6 P R I N 1 1 5 7 T E 0022060 R P R I 1 5 2 P R I N 1 ) \r 0022100 ( 3 3 7 X C L : : D E B U G G 0022120 E R A 0 0 0 1 2 9 8 X C L : 0022140 * C U R R E N T - P R O F I L E 0022160 * 2 7 5 : A T 2 5 1 : S 0022200 T A C K - P O S I T I O N 2 2 0022220 7 : C O N D I T I O N 2 0 6 0022240 : E N V I R O N M E N T 1 8 0022260 5 : F O R M ) \r ( 1 6 2 " 0022300 e v a l : " 1 4 8 " C a l l 0022320 t o d e b u g g e r w h i 0022340 l e i n t h e d e b u g g 0022360 e r , e n t e r i n g r e a 0022400 d - e v a l - p r i n t - l o o 0022420 p " ) \r D E B U G G E R - S E L 0022440 E C T E D D 1 \r ( L ( 0 - 0022460 a r g s - ) F 1 0 * D E B 0022500 U G G E R - M E N U * F 1 1 0022520 * D E B U G G E R - M E N U - 0022540 I T E M S * ) \0 273 \n 002 002 \0 e 021 0022560 001 \0 k a 021 1 004 H l 002 021 2 \t N d M 0022600 363 262 \ 277 O 016 022 277 W 024 263 . ` \0 \0 037 0022620 d W 026 024 004 277 d g \0 \0 024 034 277 d g \0 0022640 \0 024 277 j d n 177 377 d h 032 032 032 032 273 0022660 d K 024 \n 277 c 024 277 ` \0 \0 k 345 j 360 263 0022700 g W 024 \t \0 \0 Z \ \t \0 \0 265 021 L d o 0022720 \0 \0 \0 \n \0 \0 262 & 277 \b \0 \0 020 a _ 022 0022740 277 O 020 265 021 O 022 h 032 _ 020 _ 016 277 N k 0022760 324 ^ 260 214 O 022 & _ 020 277 260 364 o \0 \0 \0 0023000 \n \0 \0 225 I i \n \0 \0 020 L o \0 \0 \0 \n 0023020 \0 \0 224 I \t \0 \0 020 i \t \0 \0 J \t \0 \0 0023040 l \r \t \0 \0 020 h 020 \0 ( 1 8 2 B K 0023060 S Y S C H A R C O D E 1 7 7 0023100 B K S Y S B U F 1 7 3 C L E 0023120 A R B U F 1 6 8 A T T A C H 0023140 - B A C K T R A C E - M E N U 0023160 1 6 3 S T R I N G . E Q U A L 0023200 1 5 4 A T T A C H - B A C K 0023220 T R A C E - M E N U 1 4 8 S 0023240 T R I N G . E Q U A L 1 0 9 0023260 P R O C E E D - U S I N G - M E 0023300 N U 1 0 3 S T R I N G . E Q 0023320 U A L 9 2 S T R I N G . E Q 0023340 U A L 8 7 M E N U ) \r ( 7 6 0023360 L A S T M O U S E B U T T O N 0023400 S 5 0 C L R P R O M P T 4 0023420 3 D E B U G G E R - S E L E C 0023440 T I O N - H E L P 3 2 | 004 003 0023460 M E N U T Y P E # | ) \r ( 1 6 0023500 0 " B T ! " 1 4 5 " B T " 0023520 1 0 0 " P R O C E E D " ) \r 0023540 D E B U G G E R - S E L E C T I 0023560 O N - H E L P D 1 \r ( L ( 0 0023600 - a r g s - ) ) \0 C \a \0 002 \0 0023620 e 021 001 \0 k a 021 001 001 H l 002 021 2 006 K 0023640 d J 363 262 032 277 L 022 277 ` \0 \0 \t \0 \0 I 0023660 g \0 \0 \n \0 \0 ` \0 \0 \n \0 \0 020 a 276 M 0023700 265 \r N h 032 ] 274 K k 324 [ 260 325 N & 275 0023720 260 367 \0 ( 4 3 P R I N 1 3 7 0023740 C L : D O C U M E N T A T I O N 0023760 3 0 T E R P R I ) \r ( 4 0 0024000 P R O M P T W I N D O W 3 4 0024020 C O M M A N D S 2 7 P R O M 0024040 P T W I N D O W ) \r ( ) \r F I N 0024060 D - D E B U G G E R - E N T R Y 0024100 - F R A M E D 1 \r ( L ( 0 0024120 - a r g s - ) F 4 * D E B 0024140 U G G E R - E N T R Y - P O I N 0024160 T S * ) \0 J 004 001 002 \0 e 021 001 \0 k 0024200 H 361 223 g \0 \0 201 k a 021 ! 003 m 377 I h 0024220 I \f \0 \0 Y \t \0 \0 Z T 034 263 361 J \t \0 0024240 \0 263 353 K 262 023 J g \0 \0 360 263 341 J d g 0024260 \0 \0 360 223 277 260 327 J g \0 \0 \t \0 \0 360 [ 0024300 263 314 I 020 \0 ( 6 6 C L : S P E C 0024320 I A L - F O R M - P 3 7 G E 0024340 N S Y M ? 2 8 S T K N A M E 0024360 2 4 R E A L S T K N T H ) \r 0024400 ( 6 3 B R E A K 1 5 4 E V 0024420 A L - P R O G N 4 6 C L : E 0024440 V A L 1 0 D E B U G G E R ) 0024460 \r ( ) \r N E A R - B Y - R E G I 0024500 O N D 1 \r ( L ( 1 R E G I 0024520 O N T E M P L A T E 0 R E G 0024540 I O N ) F 2 \ C U R S O R 0024560 D E S T W I D T H F 3 \ C 0024600 U R S O R D E S T H E I G H T ) 0024620 \0 - 002 002 \0 002 A 002 002 001 A 002 002 002 001 0024640 021 002 001 @ 001 A 001 324 R H 325 \n \0 \0 @ 002 0024660 001 A 002 001 324 S I 325 \n \0 \0 H I h 032 032 0024700 032 032 020 \0 ( 3 5 C L : M O D 2 0024720 2 C L : M O D ) \r N I L \r ( ) 0024740 \r X C L : : P R I N T - B A C K 0024760 T R A C E A 0 0 0 1 D 1 \r ( L 0025000 ( 0 X ) F 0 T E S T ) 0025020 \0 \b \0 001 \0 001 @ k P 016 h 360 020 \0 N 0025040 I L \r N I L \r ( ) \r P R I N T - 0025060 B A C K T R A C E D 1 \r ( L 0025100 ( 0 - a r g s - ) P 2 1 0025120 * P R I N T - L E N G T H * P 0025140 2 0 * P R I N T - L E V E L 0025160 * P 7 T E S T ) 001 x 026 \0 0025200 002 \0 e 021 001 \0 H k 021 002 002 J d I 363 242 0025220 261 \0 253 277 g \0 \0 022 021 361 020 021 0 023 H k 0025240 273 272 K d J 363 242 261 \0 251 277 h 274 H k 276 0025260 275 N d M 363 242 261 \0 257 277 h _ 016 277 H k 0025300 _ 022 277 _ 020 277 O 022 d O 020 363 242 261 \0 255 0025320 277 h _ 024 277 H k _ 030 277 _ 026 277 O 030 d 0025340 O 026 363 242 261 \0 256 277 h _ 032 277 H k _ 036 0025360 277 _ 034 277 O 036 d O 034 363 242 261 \0 257 277 g 0025400 \0 \0 _ 277 H k _ $ 277 _ " 277 O $ d 0025420 O " 363 242 261 \0 256 277 h _ & 277 l 002 021 001 0025440 024 l \n 021 001 025 I L O 016 264 \a g \0 \0 h 0025460 032 O 024 242 261 \0 246 k 261 \0 243 a g \0 \0 360 0025500 226 J k 330 a 261 377 R J l 002 324 Z 261 377 ? 0025520 a g \0 \0 360 226 K k 330 a 261 377 R K l 002 0025540 324 [ 261 377 A a g \0 \0 360 226 N k 330 a 261 0025560 377 L N l 002 324 ^ 261 377 ; a g \0 \0 360 227 0025600 O 022 k 330 a 261 377 M O 022 l 002 324 _ 022 261 0025620 377 9 a g \0 \0 360 227 O 030 k 330 a 261 377 L 0025640 O 030 l 002 324 _ 030 261 377 8 a g \0 \0 360 227 0025660 O 036 k 330 a 261 377 M O 036 l 002 324 _ 036 261 0025700 377 7 a g \0 \0 360 227 O $ k 330 a 261 377 L 0025720 O $ l 002 324 _ $ 261 377 8 j O & 222 l 006 0025740 200 j O g \0 \0 360 222 l 020 200 j l \b 324 0025760 324 324 O 032 \r 005 \0 \0 020 \0 ( 3 7 3 B 0026000 A K T R A C E ) \r ( 3 5 6 : A 0026020 L I N K 3 2 3 : P R I N T - 0026040 J U N K 2 9 9 : L I N K 2 0026060 7 5 : O U T P U T 2 5 1 : 0026100 P R I N T - V A R I A B L E S 0026120 2 3 0 : T E S T 2 0 9 : T 0026140 O 1 8 8 : F R O M 1 7 2 0026160 X C L : : P R I N T - B A C K T 0026200 R A C E A 0 0 0 1 1 2 7 : A 0026220 L I N K 2 0 P R I N T - B A 0026240 C K T R A C E ) \r ( ) \r A T T A 0026260 C H - B A C K T R A C E - M E N 0026300 U D 1 \r ( L ( 1 S K I P 0026320 0 T T Y W I N D O W ) P 1 0026340 1 * P R I N T - A R R A Y * 0026360 P 1 0 * P R I N T - C I R C 0026400 L E * P 9 * P R I N T - P 0026420 R E T T Y * P 5 * P R I N 0026440 T - R A D I X * P 4 * P R 0026460 I N T - G E N S Y M * P 3 0026500 * P R I N T - E S C A P E * P 0026520 2 * P R I N T - L E N G T H 0026540 * P 1 * P R I N T - L E V 0026560 E L * F 2 1 M a x B k M e 0026600 n u W i d t h F 2 2 \ T E 0026620 R M . O F D F 2 3 * S H O 0026640 R T - B A C K T R A C E - F I L 0026660 T E R * ) 001 253 025 003 \0 002 @ 247 W , 0026700 \t \0 \0 b \0 277 j @ g \0 \0 \n \0 \0 \n \0 0026720 \0 l 002 l 003 i d l \n @ \t \0 \0 311 006 021 0026740 227 017 ` \0 \0 037 j 021 A 024 H \t \0 \0 _ ( 0026760 277 A 234 H k A d i 360 222 277 W . 016 262 . 0027000 O ( d g \0 \0 360 227 277 k H O ( \v \0 \0 0027020 \t \0 \0 O h 032 032 _ & 277 O $ 265 003 202 0027040 261 \0 363 O & h 032 _ $ _ " 277 m 377 H d 0027060 \v \0 \0 X 222 261 \0 347 O " 022 _ 030 277 d O 0027100 030 024 004 277 d g \0 \0 024 026 277 d j 024 032 277 0027120 d ` \0 \0 024 020 277 d k 024 \b 277 d g \0 \0 0027140 024 277 d g \0 \0 024 034 277 j d n 177 377 d 0027160 h 032 032 032 032 _ 032 277 d O 032 024 \n 277 _ 020 0027200 @ \t \0 \0 h _ 036 277 _ 034 003 265 003 202 261 \0 0027220 230 h _ 016 265 ` @ \t \0 \0 311 006 O 020 \t \0 0027240 \0 006 \0 \0 310 004 d W * 361 222 277 W * \t \0 0027260 \0 N 002 002 002 001 g \0 \0 \f \0 \0 \t \0 \0 _ 0027300 016 265 O 020 O 016 j O 016 g \0 \0 \n \0 \0 0027320 O 020 \t \0 \0 006 \0 \0 310 003 331 032 \v \0 \0 h 0027340 020 @ O 016 \t \0 \0 311 006 001 N 001 361 262 [ g 0027360 \0 \0 260 Y g \0 \0 \n \0 \0 001 h O 016 \v \0 0027400 \0 277 O 016 g \0 \0 \n \0 \0 277 O 016 \t \0 \0 0027420 277 260 262 O & & _ $ 277 261 377 023 O k 324 0027440 _ 277 261 376 307 001 _ 036 g \0 \0 \n \0 \0 265 0027460 \b O 034 002 261 377 T 001 006 \0 \0 311 026 g \0 \0 0027500 360 262 360 O 036 261 377 M g \0 \0 h g \0 \0 \r 0027520 005 \0 \0 277 O 016 g \0 \0 @ \t \0 \0 311 . \v 0027540 \0 \0 277 261 377 ` \0 ( 4 2 1 P U T W 0027560 I N D O W P R O P 4 1 6 \ I 0027600 N S U R E W I N D O W 4 0 6 0027620 A T T A C H W I N D O W 3 7 0 0027640 G E T W I N D O W U S E R P R 0027660 O P 3 3 9 C L E A R W 3 3 0027700 3 P U T W I N D O W P R O P 0027720 3 2 4 D E L E T E M E N U 3 0027740 1 7 G E T W I N D O W U S E R 0027760 P R O P 2 9 8 \ I N S U R E 0030000 W I N D O W 2 9 0 A D D M E 0030020 N U 2 8 0 C H E C K / M E N 0030040 U / I M A G E 2 7 5 G E T W 0030060 I N D O W P R O P 2 5 8 C R 0030100 E A T E W 2 5 5 R E G I O N 0030120 - N E X T - T O 2 4 4 W I D 0030140 T H I F W I N D O W 2 2 8 C 0030160 H E C K / M E N U / I M A G E 0030200 2 2 1 \ I N S U R E W I N D O 0030220 W 1 9 9 A T T A C H E D W I 0030240 N D O W S 1 1 8 S T K N T H 0030260 8 6 C L : P R I N 1 - T O - 0030300 S T R I N G 8 3 S T K A R G 0030320 4 9 S T K N A M E 3 2 \ 0030340 I N S U R E W I N D O W 2 0 0030360 S T K N T H 1 7 G E T W I N 0030400 D O W P R O P 6 W F R O M D 0030420 S ) \r ( 4 1 2 P R O C E S S 0030440 4 0 2 L O C A L C L O S E 3 0030460 9 8 L E F T 3 8 7 B A C K 0030500 T R A C E - I T E M - S E L E C 0030520 T E D 3 8 2 M E N U 3 6 7 0030540 M E N U 3 3 0 E X T E N T 0030560 3 1 4 M E N U 3 0 9 R I 0030600 G H T 2 8 3 B I T M A P 2 0030620 7 2 H E I G H T 2 5 2 L E 0030640 F T 2 3 1 B I T M A P 1 7 0030660 0 D E F A U L T M E N U H E L 0030700 D F N 1 6 3 C L R P R O M P 0030720 T 1 5 1 B A C K T R A C E F 0030740 O N T 1 3 9 B A C K T R A C 0030760 E - I T E M - S E L E C T E D 0031000 7 3 C L : E V A L 4 0 | 004 0031020 003 M E N U T Y P E # | 1 4 S 0031040 T A C K - P O S I T I O N ) \r ( 0031060 ) \r F I N D - L E X I C A L - E 0031100 N V I R O N M E N T D 1 \r ( L 0031120 ( 0 - a r g s - ) F 3 0031140 L A S T P O S ) \0 ' 003 001 002 \0 e 0031160 021 001 \0 k H 361 221 S 201 k a 021 021 002 g \0 0031200 \0 h I \v \0 \0 Z 264 \r l 002 J \n \0 \0 J 0031220 \t \0 \0 277 020 \0 ( 3 5 R E L S T K 0031240 3 1 S T K A R G 2 2 S T 0031260 K P O S ) \r ( 1 7 C L : E V A 0031300 L ) \r ( ) \r C L O S E - D E B U 0031320 G G E R - W I N D O W D 1 \r ( 0031340 L ( 0 W ) ) \0 K 001 \0 \0 001 @ 0031360 \t \0 \0 311 . 021 001 \0 \b \0 \0 H \t \0 \0 264 0031400 9 @ H \t \0 \0 \t \0 \0 360 264 . H d ` \0 0031420 \0 360 233 277 @ g \0 \0 \n \0 \0 \b \0 \0 020 g 0031440 \0 \0 \n \0 \0 264 023 @ g \0 \0 \n \0 \0 H g 0031460 \0 \0 \n \0 \0 \b \0 \0 020 \0 ( 7 2 B L 0031500 O C K 6 9 P R O C E S S . A 0031520 P P L Y 6 2 P U T W I N D O 0031540 W P R O P 5 3 P R O C E S S 0031560 . E V A L V 4 6 E X I T - D 0031600 E B U G G E R 4 3 P U T W I 0031620 N D O W P R O P 2 5 W F R O 0031640 M D S 2 2 P R O C E S S . T 0031660 T Y 1 5 P R O C E S S P 1 0031700 1 \ C A R E T . D O W N 3 0031720 \ I N S U R E W I N D O W ) \r ( 0031740 6 6 E X I T - D E B U G G E R 0031760 5 9 P R O C E S S 5 0 * 0032000 I N - T H E - D E B U G G E R * 0032020 4 0 P R O C E S S 3 3 \ 0032040 R U N N I N G . P R O C E S S ) 0032060 \r ( ) \r E X I T - D E B U G G E 0032100 R D 1 \r ( F 0 B R K V A L 0032120 U E S ) \0 022 \0 001 \0 \0 o \0 \0 \0 c 0032140 \0 g \0 \0 h \t \0 \0 \n \0 \0 020 \0 ( 1 5 0032160 \ D O - T H R O W 1 2 \ M 0032200 V L I S T ) \r ( 8 S I : : D E 0032220 B U G G E R - E X I T ) \r ( 3 0032240 ( E R R O R ! ) ) \r B A C K T 0032260 R A C E - I T E M - S E L E C T 0032300 E D A 0 0 0 1 A 0 0 0 2 D 1 \r 0032320 ( L ( 0 P O S ) ) \0 \a \0 \0 0032340 \0 001 @ i \n \0 \0 020 \0 ( 4 S T A C 0032360 K - F R A M E - P R O P E R T I 0032400 E S ) \r N I L \r ( ) \r B A C K T 0032420 R A C E - I T E M - S E L E C T 0032440 E D A 0 0 0 1 A 0 0 0 3 D 1 \r 0032460 ( L ( 1 W H I C H S P E C 0032500 0 F R A M E S P E C ) ) \0 016 0032520 \0 \0 \0 002 A d 002 241 001 020 002 001 @ \n \0 \0 0032540 020 \0 ( 1 1 S T K A R G ) \r N I 0032560 L \r ( ) \r B A C K T R A C E - I 0032600 T E M - S E L E C T E D A 0 0 0 0032620 1 A 0 0 0 4 D 1 \r ( L ( 2 0032640 N E W V A L U E 1 W H I C H 0032660 S P E C 0 F R A M E S P E C 0032700 ) ) \0 017 \0 \0 \0 003 A d 002 241 h 020 002 0032720 001 @ B \v \0 \0 020 \0 ( 1 2 S E T S 0032740 T K A R G ) \r N I L \r ( ) \r B A 0032760 C K T R A C E - I T E M - S E L 0033000 E C T E D A 0 0 0 1 D 1 \r ( N 0033020 A M E E R R O R S E T L ( 0033040 0 N I L ) F 6 M E N U 0033060 F 7 I T E M F 8 R E S 0033100 E T V A R S L S T F 9 B U 0033120 T T O N F 1 0 R E S E T Y 0033140 ) \0 320 006 005 002 \0 W 016 002 001 021 Q 005 V 0033160 006 \0 \0 311 " 265 W V \t \0 \0 g \0 \0 \n \0 0033200 \0 Y g \0 \0 \n \0 \0 272 j H 325 J \n \0 \0 0033220 273 I g \0 \0 \n \0 \0 ] 226 j K M \v \0 \0 0033240 277 W 016 V \n \0 \0 277 W 022 g \0 \0 360 262 % 0033260 g \0 \0 K h 032 032 h h 032 032 W 020 032 c 020 0033300 277 K \t \0 \0 K I \v \0 \0 260 f V \n \0 \0 0033320 277 260 246 K g \0 \0 g \0 \0 g \0 \0 h g \0 0033340 \0 h K \t \0 \0 o \0 \0 \0 \n \0 \0 h I \t 0033360 \0 \0 g \0 \0 \r \v \0 \0 \ g \0 \0 \n \0 \0 0033400 263 1 L I L \t \0 \0 311 006 002 001 I \t \0 \0 0033420 311 006 002 001 361 223 g \0 \0 202 g \0 \0 h g \0 0033440 \0 \r 005 \0 \0 277 L g \0 \0 g \0 \0 \v \0 \0 0033460 277 023 h c 024 i 020 \0 ( 1 9 9 W I N 0033500 D O W A D D P R O P 1 8 8 A 0033520 T T A C H W I N D O W 1 6 7 0033540 \ I N S U R E W I N D O W 1 5 0033560 9 \ I N S U R E W I N D O W 0033600 1 5 1 G E T W I N D O W U S E 0033620 R P R O P 1 4 4 I N S P E C 0033640 T W . C R E A T E 1 3 7 M A 0033660 K E - F R A M E - I N S P E C T 0033700 - W I N D O W 1 3 2 C O N C 0033720 A T 1 2 5 S T K N A M E 1 0033740 0 3 M E N U D E S E L E C T 0033760 9 7 I N S P E C T / A S / F U 0034000 N C T I O N 9 2 S T K N A M 0034020 E 6 2 M E N U S E L E C T 0034040 5 5 S T K N T H 4 7 G E T 0034060 W I N D O W U S E R P R O P 3 0034100 9 S T K N T H 3 1 G E T W 0034120 I N D O W U S E R P R O P 2 4 0034140 G E T W I N D O W U S E R P R 0034160 O P 1 8 W F R O M M E N U ) 0034200 \r ( 1 9 6 D E T A C H W I N D 0034220 O W 1 9 3 C L O S E F N 1 0034240 8 4 L O C A L C L O S E 1 8 0034260 0 B O T T O M 1 7 6 T O P 0034300 1 4 8 M A I N W I N D O W 0034320 1 4 0 S T A C K - F R A M E - 0034340 P R O P E R T Y 1 2 0 S T A 0034360 C K - F R A M E - V A L U E - C 0034400 O M M A N D 1 1 6 B A C K T 0034420 R A C E - I T E M - S E L E C T 0034440 E D A 0 0 0 1 A 0 0 0 4 1 1 3 0034460 B A C K T R A C E - I T E M - 0034500 S E L E C T E D A 0 0 0 1 A 0 0 0034520 0 3 1 1 0 B A C K T R A C E 0034540 - I T E M - S E L E C T E D A 0 0034560 0 0 1 A 0 0 0 2 7 4 R E L S 0034600 T K 6 8 M I D D L E 4 4 0034620 L A S T P O S 2 8 S T A C K 0034640 - P O S I T I O N 2 1 M A I 0034660 N W I N D O W 1 0 M E N U ) 0034700 \r ( 1 2 9 " F r a m e " 0034720 ) \r B A C K T R A C E - I T E M 0034740 - S E L E C T E D D 1 \r ( P 0034760 1 R E S E T Y P 0 L I S 0035000 P X H I S T I 2 B U T T O 0035020 N I 1 M E N U I 0 I 0035040 T E M F 3 L I S P X H I S 0035060 T F 4 R E S E T V A R S L 0035100 S T ) \0 " 003 002 \0 003 S 021 ! 002 T o 0035120 \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z 0035140 \n \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 2 9 0035160 E R R O R ! 2 4 R E S E T R 0035200 E S T O R E 1 4 B A C K T R 0035220 A C E - I T E M - S E L E C T E 0035240 D A 0 0 0 1 ) \r ( 2 0 E R R O 0035260 R 1 1 I N T E R N A L ) \r ( 0035300 8 ( B A C K T R A C E - I T 0035320 E M - S E L E C T E D A 0 0 0 1 0035340 ) ) \r R E G I O N - N E X T - T 0035360 O D 1 \r ( L ( 4 I N T E R 0035400 N A L F L G 3 W H E R E 2 0035420 H E I G H T 1 W I D T H 0035440 0 R E G I O N ) F 6 \ C 0035460 U R S O R D E S T H E I G H T 0035500 F 7 \ C U R S O R D E S T W 0035520 I D T H ) \0 377 006 002 \0 005 021 ` 005 @ 0035540 001 Z @ 002 001 [ @ 002 002 001 \ @ 002 002 002 001 0035560 ] A 243 L b 002 277 B 243 M b 004 277 C d g 0035600 \0 \0 360 262 : 277 @ 002 001 @ 002 002 002 001 k 331 0035620 330 d B 324 V 363 262 277 D 222 j 260 034 @ A 0035640 B g \0 \0 i b \b 277 b 006 277 b 004 277 b 002 0035660 277 b \0 023 260 250 k 324 271 J 261 \0 200 g \0 \0 0035700 360 262 + j K B 325 Y 363 225 D 226 V B 325 271 0035720 J 260 i @ A B g \0 \0 i b \b 277 b 006 277 0035740 b 004 277 b 002 277 b \0 023 261 377 s C g \0 \0 0035760 360 262 + j J A 325 X 363 262 4 D 225 W 016 A 0036000 325 260 + @ A B g \0 \0 i b \b 277 b 006 277 0036020 b 004 277 b 002 277 b \0 023 261 377 C J L 324 X 0036040 A k 331 324 W 016 363 224 D 262 030 j 270 K M B 0036060 325 324 d j 361 241 277 j 271 H I A B \f \0 \0 0036100 020 @ A B g \0 \0 i b \b 277 b 006 277 b 004 0036120 277 b 002 277 b \0 023 261 377 005 \0 ( 2 2 7 0036140 C R E A T E R E G I O N ) \r ( 2 0036160 3 4 L E F T 1 7 2 R I G H 0036200 T 1 4 7 L E F T 1 2 4 T 0036220 O P 9 9 B O T T O M 7 1 0036240 B O T T O M 3 7 T O P ) \r ( 0036260 ) \r S I M P L E - R E P O R T - 0036300 C O N D I T I O N D 1 \r ( L 0036320 ( 1 S T R E A M 0 C O N D 0036340 I T I O N ) ) \0 022 \0 \0 \0 002 @ d 0036360 303 \0 \0 222 277 @ 202 \t \0 \0 A \n \0 \0 020 \0 0036400 ( 1 5 C L : P R I N C 1 1 0036420 C L : T Y P E - O F ) \r ( 4 S 0036440 I M P L E - C O N D I T I O N ) 0036460 \r ( ) \r S T A C K - F R A M E - 0036500 P R O P E R T I E S D 1 \r ( L 0036520 ( 2 E M B E D D E D C A L L 0036540 F L G 1 L O T S F L G 0 0036560 P O S ) F 1 3 C L : L A M 0036600 B D A - L I S T - K E Y W O R D 0036620 S ) 001 \a \r 001 \0 003 @ i \n \0 \0 @ \t 0036640 \0 \0 @ \t \0 \0 o \0 \0 \0 021 4 006 J d 004 0036660 l 004 360 234 d \t \0 \0 227 277 J \t \0 \0 003 275 0036700 J h 032 I k 021 B \f O 020 O 016 363 263 ^ M 0036720 001 M 002 275 \ d W 032 034 263 E 277 O 020 @ \n 0036740 \0 \0 265 032 O 030 226 O 030 g \0 \0 360 222 L 265 0036760 * o \0 \0 \0 O 020 k 325 \n \0 \0 O 020 h 032 0037000 032 _ 026 277 O 024 265 035 O 026 h 032 _ 024 _ 022 0037020 277 O 020 k 324 _ 020 260 263 \t \0 \0 260 340 _ 030 0037040 277 260 256 O 026 & _ 024 277 260 350 O 022 022 H j 0037060 I k 330 021 3 \f O 022 O 016 363 263 S K O 022 0037100 @ K \v \0 \0 360 263 1 O 022 @ \n \0 \0 \ 265 0037120 023 A 262 % o \0 \0 \0 O 020 \n \0 \0 \ 265 004 0037140 260 027 O 022 h 032 032 _ 030 277 O 026 265 032 O 030 0037160 h 032 _ 026 _ 024 277 O 020 k 324 _ 020 277 O 022 0037200 k 324 _ 022 260 264 O 030 & _ 026 277 260 353 O 024 0037220 022 ^ 264 \b o \0 \0 \0 N 032 \n \0 \0 032 020 \0 0037240 ( 2 5 9 \ A P P E N D 2 1 9 0037260 5 C O N C A T 1 8 0 S T K 0037300 A R G N A M E 1 7 1 S T K A 0037320 R G 1 3 0 S T R I N G 9 8 0037340 C O N C A T 7 2 S T K A R 0037360 G N A M E 3 6 S M A R T A R 0037400 G L I S T 3 0 C C O D E P 0037420 1 2 S T K N A M E 8 S T K 0037440 N A R G S 4 S T K N A R G S 0037460 ) \r ( 8 2 & O P T I O N A L ) 0037500 \r ( 2 5 4 ( " l o c a l s " 0037520 ) 1 9 0 " l o c a l " 9 0037540 1 " a r g " 1 6 " n o 0037560 s u c h v a l u e " ) \r S T A 0037600 C K - F R A M E - P R O P E R T 0037620 Y D 1 \r ( L ( 1 D A T U M 0037640 0 P R O P ) ) \0 024 \0 \0 \0 002 0037660 @ 003 265 \t A 003 230 @ 002 001 020 002 263 370 h 020 0037700 @ 001 020 \0 N I L \r N I L \r ( ) \r S 0037720 T A C K - F R A M E - V A L U E 0037740 - C O M M A N D D 1 \r ( L ( 0037760 3 W I N D O W 2 D A T U M 0040000 1 P R O P 0 V A L U E ) 0040020 ) \0 037 \0 \0 \0 004 A 003 265 \n @ A B C 0040040 \f \0 \0 020 002 263 367 A 001 004 l 004 360 264 \b @ 0040060 B C \v \0 \0 020 \0 ( 2 8 I N S P E 0040100 C T / A S / F U N C T I O N 1 0040120 0 D E F A U L T . I N S P E C 0040140 T W . V A L U E C O M M A N D F 0040160 N ) \r N I L \r ( ) \r B A K T R A 0040200 C E D 1 \r ( P 9 S K I P F 0040220 N P 8 Z P 7 Y P 0040240 6 X P 5 F N P 4 P 0040260 L V L F I L E F L G P 3 N 0040300 P 2 P O S P 1 * P R 0040320 I N T - L E N G T H * P 0 0040340 * P R I N T - L E V E L * I 0040360 4 F I L E I 3 F L A G S 0040400 I 2 S K I P F N S I 1 0040420 E P O S I 0 I P O S F 0040440 1 0 C L E A R S T K L S T 0040460 F 1 1 B R E A K D E L I M I 0040500 T E R ) \0 217 \n 002 \0 005 l 002 l \n j 0040520 @ \n \0 \0 j i 021 E \b D 243 i b \b 277 W 0040540 024 i 360 246 J W 024 032 c 024 277 J \t \0 \0 275 0040560 B 262 027 B 214 d 001 021 001 \t M k O 022 016 022 0040600 244 002 003 265 362 h 263 6 C j 360 263 027 K @ J 0040620 \v \0 \0 Z d C l \b 344 D g \0 \0 \r 005 \0 0040640 \0 277 M d g \0 \0 360 225 277 k J \n \0 \0 D 0040660 i \v \0 \0 277 W 026 D \n \0 \0 277 K k 331 [ 0040700 @ J \v \0 \0 Z d 226 A \n \0 \0 262 237 J \t 0040720 \0 \0 277 D \t \0 \0 h 020 \0 ( 1 3 9 T 0040740 E R P R I 1 3 4 R E L S T K 0040760 1 2 8 E Q P 1 2 1 S T K 0041000 N T H 1 1 1 P R I N 1 1 0 0041020 4 P R I N 2 9 9 S T K A R 0041040 G 8 5 B A C K T R A C E 7 0041060 1 S T K N T H 3 5 S T K N 0041100 A M E 8 S T K N T H ) \r ( 9 0041120 1 C L : E V A L 8 1 S H O 0041140 W P R I N T ) \r ( ) \r B A K T R 0041160 A C E 1 D 1 \r ( P 1 X P 0041200 0 T E M I 3 P O S I 0041220 2 I P O S I 1 N I 0041240 0 L S T ) \0 p 002 \0 \0 004 021 020 \0 0041260 @ 241 A 020 A k 331 B C \v \0 \0 b 006 264 365 0041300 @ 001 X C \t \0 \0 360 227 A k 331 b 002 277 260 0041320 G C \t \0 \0 227 A k 331 b 002 277 260 324 H d 0041340 g \0 \0 360 230 277 A k 331 b 002 277 260 * 003 264 0041360 304 H 260 036 d 001 021 001 001 I d g \0 \0 360 222 0041400 277 i 211 A B C \f \0 \0 d 221 b 002 022 244 002 0041420 003 265 343 h 264 237 @ 002 b \0 260 227 \0 ( 9 1 0041440 B A K T R A C E 1 3 9 D U 0041460 M M Y F R A M E P 2 5 S T K 0041500 N A M E 1 4 S T K N T H ) \r 0041520 ( 8 0 - 5 3 & ) \r ( ) \r ( 0041540 R P A Q ? A U T O B A C K T R 0041560 A C E F L G ) \r b r e a k - @ 0041600 D 1 \r ( L ( 1 $ $ M A C R O 0041620 - E N V 0 $ $ M A C R O - F 0041640 O R M ) ) \0 034 002 \0 \0 002 @ 002 021 021 0041660 001 A 271 i o \0 \0 \0 H I \n \0 \0 \t \0 \0 0041700 \v \0 \0 \b \0 \0 020 \0 ( 2 5 C L : V 0041720 A L U E S 2 2 C L : F O R M 0041740 A T 1 9 S T K N A M E 1 6 0041760 F I N D - D E B U G G E R - S 0042000 T A C K - F R A M E ) \r N I L \r 0042020 ( 1 1 " @ = ~ S ~ % % " 0042040 ) \r ( P U T H A S H ( Q U O T 0042060 E " @ " ) ( Q U O T E ( ( 0042100 & R E S T P L A C E & E N V 0042120 I R O N M E N T E N V ) b r 0042140 e a k - @ : E V A L \r " S e 0042160 t d e b u g g e r s t a c k 0042200 p o i n t e r t o l o c a 0042220 t i o n s p e c i f i e d b 0042240 y P L A C E ( o r d e f a 0042260 u l t ) " ) ) * D E B U G G E 0042300 R - C O M M A N D - T A B L E * 0042320 ) \r b r e a k - B T D 1 \r ( L 0042340 ( 1 $ $ M A C R O - E N V 0042360 0 $ $ M A C R O - F O R M ) 0042400 F 0 L A S T P O S ) \0 022 \0 0042420 001 \0 002 g \0 \0 P g \0 \0 g \0 \0 \f \0 \0 0042440 \b \0 \0 020 \0 ( 1 5 C L : V A L U 0042460 E S 1 2 P R I N T - B A C K 0042500 T R A C E ) \r ( 9 X C L : : I 0042520 N T E R E S T I N G - F R A M E 0042540 - P 6 : T E S T 2 : F R 0042560 O M ) \r ( ) \r ( P U T H A S H 0042600 ( Q U O T E " B T " ) ( Q U 0042620 O T E ( N I L b r e a k - B 0042640 T : E V A L " P r i n t b 0042660 a c k t r a c e o f e x t e 0042700 r n a l f r a m e s " ) ) \r 0042720 * D E B U G G E R - C O M M A N 0042740 D - T A B L E * ) \r b r e a k - 0042760 B T ! D 1 \r ( L ( 1 $ $ M 0043000 A C R O - E N V 0 $ $ M A C 0043020 R O - F O R M ) F 0 L A S 0043040 T P O S ) \0 020 \0 001 \0 002 g \0 \0 P 0043060 g \0 \0 h \f \0 \0 \b \0 \0 020 \0 ( 1 3 0043100 C L : V A L U E S 1 0 P R I 0043120 N T - B A C K T R A C E ) \r ( 6 0043140 : T E S T 2 : F R O M ) \r 0043160 ( ) \r ( P U T H A S H ( Q U O 0043200 T E " B T ! " ) ( Q U O T E 0043220 ( N I L b r e a k - B T ! 0043240 : E V A L " P r i n t b a c 0043260 k t r a c e o f a l l f r 0043300 a m e s " ) ) \r * D E B U G G 0043320 E R - C O M M A N D - T A B L E 0043340 * ) \r b r e a k - B T V D 1 \r 0043360 ( L ( 1 $ $ M A C R O - E N 0043400 V 0 $ $ M A C R O - F O R M 0043420 ) F 0 L A S T P O S ) \0 0043440 020 \0 001 \0 002 g \0 \0 P g \0 \0 i \f \0 \0 0043460 \b \0 \0 020 \0 ( 1 3 C L : V A L U 0043500 E S 1 0 P R I N T - B A C K 0043520 T R A C E ) \r ( 6 : P R I N T 0043540 - V A R I A B L E S 2 : F R 0043560 O M ) \r ( ) \r ( P U T H A S H 0043600 ( Q U O T E " B T V " ) ( Q 0043620 U O T E ( N I L b r e a k - 0043640 B T V : E V A L " P r i n t 0043660 b a c k t r a c e o f f r 0043700 a m e s a n d s p e c i a l 0043720 b i n d i n g s " ) ) \r * D 0043740 E B U G G E R - C O M M A N D - 0043760 T A B L E * ) \r b r e a k - B T 0044000 V ! D 1 \r ( L ( 1 $ $ M A 0044020 C R O - E N V 0 $ $ M A C R 0044040 O - F O R M ) F 0 L A S T 0044060 P O S ) \0 025 \0 001 \0 002 g \0 \0 P g 0044100 \0 \0 i g \0 \0 i \r 006 \0 \0 \b \0 \0 020 \0 0044120 ( 1 8 C L : V A L U E S 1 5 0044140 P R I N T - B A C K T R A C E 0044160 ) \r ( 1 0 : P R I N T - J U N 0044200 K 6 : P R I N T - V A R I A 0044220 B L E S 2 : F R O M ) \r ( ) 0044240 \r ( P U T H A S H ( Q U O T E 0044260 " B T V ! " ) ( Q U O T E 0044300 ( N I L b r e a k - B T V ! 0044320 : E V A L " P r i n t b a c 0044340 k t r a c e o f a l l f r 0044360 a m e i n f o r m a t i o n " 0044400 ) ) \r * D E B U G G E R - C O 0044420 M M A N D - T A B L E * ) \r b r 0044440 e a k - D B T D 1 \r ( L ( 1 0044460 $ $ M A C R O - E N V 0 $ 0044500 $ M A C R O - F O R M ) ) \0 \n 0044520 \0 \0 \0 002 h i \n \0 \0 \b \0 \0 020 \0 ( 7 0044540 C L : V A L U E S 4 A T T 0044560 A C H - B A C K T R A C E - M E 0044600 N U ) \r N I L \r ( ) \r ( P U T H 0044620 A S H ( Q U O T E " D B T " 0044640 ) ( Q U O T E ( N I L b r 0044660 e a k - D B T : E V A L N I 0044700 L ) ) * D E B U G G E R - C O 0044720 M M A N D - T A B L E * ) \r b r 0044740 e a k - D B T ! D 1 \r ( L ( 0044760 1 $ $ M A C R O - E N V 0 0045000 $ $ M A C R O - F O R M ) ) \0 0045020 \b \0 \0 \0 002 \b \0 \0 \b \0 \0 020 \0 ( 5 0045040 C L : V A L U E S 2 A T T A 0045060 C H - B A C K T R A C E - M E N 0045100 U ) \r N I L \r ( ) \r ( P U T H A 0045120 S H ( Q U O T E " D B T ! " 0045140 ) ( Q U O T E ( N I L b r 0045160 e a k - D B T ! : E V A L N 0045200 I L ) ) * D E B U G G E R - C 0045220 O M M A N D - T A B L E * ) \r b 0045240 r e a k - E V A L D 1 \r ( L 0045260 ( 1 $ $ M A C R O - E N V 0 0045300 $ $ M A C R O - F O R M ) F 0045320 2 B R K E N V F 3 B R 0045340 K E X P F 4 B R K V A L U 0045360 E S ) \0 $ 002 003 \0 002 @ 002 021 021 001 H 0045400 d 220 001 271 H 225 I R \n \0 \0 020 i S R \n 0045420 \0 \0 \t \0 \0 032 c \b 002 \t \0 \0 020 \0 ( 3 0045440 3 C L : V A L U E S - L I S T 0045460 2 6 \ M V L I S T 2 3 D 0045500 E B U G G E R - E V A L 1 6 0045520 D E B U G G E R - E V A L ) \r N 0045540 I L \r ( ) \r ( P U T H A S H ( 0045560 Q U O T E " E V A L " ) ( Q 0045600 U O T E ( ( & O P T I O N A L 0045620 E X P R E S S I O N ) b r e 0045640 a k - E V A L : E V A L \r " 0045660 E v a l u a t e e x p r e s s 0045700 i o n i n d e b u g g e d 0045720 c o n t e x t " ) ) * D E B U 0045740 G G E R - C O M M A N D - T A B 0045760 L E * ) \r b r e a k - O K D 1 0046000 \r ( L ( 1 $ $ M A C R O - E 0046020 N V 0 $ $ M A C R O - F O R 0046040 M ) F 0 B R K V A L U E S 0046060 F 1 B R K C O N D F 2 0046100 B R K E X P F 3 B R K E 0046120 N V ) \0 ( \0 004 \0 002 Q 303 \0 \0 262 034 0046140 P 254 i R S \n \0 \0 \t \0 \0 032 c \0 277 g 0046160 \0 \0 h \t \0 \0 \n \0 \0 277 \b \0 \0 \b \0 \0 0046200 020 \0 ( 3 7 P R O C E E D - F R 0046220 O M - B R E A K 3 4 P R O C 0046240 E E D 3 0 \ D O - T H R O W 0046260 2 7 \ M V L I S T 1 6 \ 0046300 M V L I S T 1 3 D E B U G G 0046320 E R - E V A L ) \r ( 2 3 S I : 0046340 : D E B U G G E R - E X I T 3 0046360 S I : : B R E A K P O I N T ) 0046400 \r ( ) \r ( P U T H A S H ( Q U 0046420 O T E " O K " ) ( Q U O T E 0046440 ( N I L b r e a k - O K : 0046460 Q U I E T " E x i t / p r o c 0046500 e e d f r o m d e b u g g e 0046520 r " ) ) \r * D E B U G G E R - 0046540 C O M M A N D - T A B L E * ) \r 0046560 e x e c - P B D 1 \r ( L ( 1 0046600 $ $ M A C R O - E N V 0 $ 0046620 $ M A C R O - F O R M ) ) \0 \v 0046640 \0 \0 \0 002 @ 002 001 \t \0 \0 \b \0 \0 020 \0 ( 0046660 8 C L : V A L U E S 5 P R 0046700 I N T B I N D I N G S ) \r N I L 0046720 \r ( ) \r ( P U T H A S H ( Q U 0046740 O T E " P B " ) ( Q U O T E 0046760 ( ( V A R I A B L E ) e x e 0047000 c - P B : E V A L \r " S h o 0047020 w w h e r e o n t h e s 0047040 t a c k V A R I A B L E i s 0047060 ( s p e c i a l ) b o u n d 0047100 " ) ) * E X E C - C O M M A N 0047120 D - T A B L E * ) \r b r e a k - 0047140 P R D 1 \r ( L ( 1 $ $ M A 0047160 C R O - E N V 0 $ $ M A C R 0047200 O - F O R M ) ) \0 \b \0 \0 \0 002 \b 0047220 \0 \0 \b \0 \0 020 \0 ( 5 C L : V A L 0047240 U E S 2 P R O C E E D - F R 0047260 O M - B R E A K ) \r N I L \r ( ) 0047300 \r ( P U T H A S H ( Q U O T E 0047320 " P R " ) ( Q U O T E ( N 0047340 I L b r e a k - P R : E V A 0047360 L " P r o c e e d " ) ) * D 0047400 E B U G G E R - C O M M A N D - 0047420 T A B L E * ) \r b r e a k - P R 0047440 O C E E D D 1 \r ( L ( 1 $ 0047460 $ M A C R O - E N V 0 $ $ M 0047500 A C R O - F O R M ) ) \0 \b \0 \0 0047520 \0 002 \b \0 \0 \b \0 \0 020 \0 ( 5 C L : 0047540 V A L U E S 2 P R O C E E D 0047560 - F R O M - B R E A K ) \r N I L 0047600 \r ( ) \r ( P U T H A S H ( Q U 0047620 O T E " P R O C E E D " ) ( 0047640 Q U O T E ( N I L b r e a k 0047660 - P R O C E E D : E V A L " 0047700 P r o c e e d " ) ) * D E B U 0047720 G G E R - C O M M A N D - T A B 0047740 L E * ) \r e x e c - R E T R Y 0047760 D 1 \r ( L ( 1 $ $ M A C R O 0050000 - E N V 0 $ $ M A C R O - F 0050020 O R M ) F 1 H E L P F L A 0050040 G F 2 L I S P X H I S T O 0050060 R Y ) \0 032 001 002 \0 002 @ 002 021 001 \0 g 0050100 \0 \0 c 002 H 265 006 o \0 \0 \0 R \n \0 \0 \t 0050120 \0 \0 020 \0 ( 2 3 E V E N T S - I 0050140 N P U T 2 0 F I N D - H I S 0050160 T O R Y - E V E N T S ) \r ( 7 0050200 B R E A K ! ) \r ( 1 6 ( - 1 0050220 ) ) \r ( P U T H A S H ( Q U O 0050240 T E " R E T R Y " ) ( Q U O 0050260 T E ( ( & R E S T E V E N T 0050300 - S P E C ) e x e c - R E T R 0050320 Y : H I S T O R Y \r " R e - 0050340 e x e c u t e s p e c i f i e 0050360 d e v e n t s w i t h d e 0050400 b u g g i n g " ) ) * E X E C 0050420 - C O M M A N D - T A B L E * ) 0050440 \r b r e a k - R E T U R N D 1 0050460 \r ( L ( 1 $ $ M A C R O - E 0050500 N V 0 $ $ M A C R O - F O R 0050520 M ) F 2 B R K P O S F 0050540 3 B R K V A L U E S ) \0 , 002 0050560 002 \0 002 @ 002 d 220 001 021 021 001 A 271 g \0 \0 0050600 H I \n \0 \0 \t \0 \0 j R \n \0 \0 h 032 032 0050620 032 c 006 g \0 \0 h \t \0 \0 \n \0 \0 020 \0 ( 0050640 4 1 \ D O - T H R O W 3 8 0050660 \ M V L I S T 2 5 S T K N T 0050700 H 2 0 \ M V L I S T 1 7 0050720 D E B U G G E R - E V A L ) \r ( 0050740 3 4 S I : : D E B U G G E R - 0050760 E X I T 1 2 R E T U R N ) \r 0051000 ( ) \r ( P U T H A S H ( Q U O 0051020 T E " R E T U R N " ) ( Q U 0051040 O T E ( ( & O P T I O N A L 0051060 E X P R E S S I O N & E N V I 0051100 R O N M E N T E N V ) b r e 0051120 a k - R E T U R N : E V A L 0051140 \r " R e t u r n v a l u e f 0051160 r o m d e b u g g e r " ) ) 0051200 * D E B U G G E R - C O M M A N 0051220 D - T A B L E * ) \r b r e a k - 0051240 R E V E R T D 1 \r ( L ( 1 0051260 $ $ M A C R O - E N V 0 $ $ 0051300 M A C R O - F O R M ) F 3 0051320 L A S T P O S F 4 * T E R 0051340 M I N A L - I O * F 5 B R 0051360 K V A L U E S ) \0 253 003 003 \0 002 @ 0051400 002 021 ! 002 A 271 H 225 H I \n \0 \0 277 S \t 0051420 \0 \0 Z g \0 \0 T g \0 \0 l \n g \0 \0 l 0051440 \n g \0 \0 i g \0 \0 h g \0 \0 h g \0 \0 0051460 l 003 g \0 \0 l 003 \r 021 \0 \0 g \0 \0 S \t 0051500 \0 \0 j S \n \0 \0 g \0 \0 g \0 \0 g \0 \0 0051520 g \0 \0 g \0 \0 g \0 \0 g \0 \0 J h 032 032 0051540 g \0 \0 g \0 \0 J h 032 032 h 032 032 h 032 032 0051560 032 h 032 032 g \0 \0 g \0 \0 o \0 \0 \0 g \0 0051600 \0 g \0 \0 J h 032 032 h 032 032 032 032 h 032 032 0051620 032 032 032 h 032 032 032 h 032 032 032 032 c \n g \0 0051640 \0 h \t \0 \0 \n \0 \0 020 \0 ( 1 6 8 \ 0051660 D O - T H R O W 1 6 5 \ M V 0051700 L I S T 7 1 S T K N T H 6 0051720 6 S T K A R G S 5 9 W R I 0051740 T E 1 8 S T K N A M E 1 3 0051760 F I N D - D E B U G G E R - S 0052000 T A C K - F R A M E ) \r ( 1 6 1 0052020 S I : : D E B U G G E R - E X 0052040 I T 1 3 2 Q U O T E 1 2 9 0052060 : F U N C T I O N 1 2 2 M 0052100 A K E - C O N D I T I O N 1 1 0052120 9 : C O N D I T I O N 1 0 2 0052140 Q U O T E 9 9 S T K A R G 0052160 S 9 2 Q U O T E 8 9 C L 0052200 : A P P L Y 8 6 Q U O T E 0052220 8 3 : F O R M 8 0 D E B U 0052240 G G E R 7 7 N O B I N D 7 0052260 4 L A M B D A 6 2 S I : : 0052300 R E V E R T 5 3 : L E N G T 0052320 H 4 8 : L E V E L 4 4 : 0052340 P R E T T Y 4 0 : C I R C L 0052360 E 3 6 : E S C A P E 3 1 0052400 : B A S E 2 6 : R A D I X 0052420 2 2 : S T R E A M ) \r ( 1 2 0052440 6 ( Q U O T E S I : : R E V 0052460 E R T ) ) \r ( P U T H A S H ( 0052500 Q U O T E " R E V E R T " ) 0052520 ( Q U O T E ( ( & R E S T P 0052540 L A C E & E N V I R O N M E N 0052560 T E N V ) b r e a k - R E V 0052600 E R T : E V A L N I L ) ) 0052620 \r * D E B U G G E R - C O M M A 0052640 N D - T A B L E * ) \r b r e a k 0052660 - S T O P D 1 \r ( L ( 1 $ 0052700 $ M A C R O - E N V 0 $ $ M 0052720 A C R O - F O R M ) F 0 B 0052740 R K V A L U E S ) \0 022 \0 001 \0 002 0052760 o \0 \0 \0 c \0 g \0 \0 h \t \0 \0 \n \0 \0 0053000 020 \0 ( 1 5 \ D O - T H R O W 0053020 1 2 \ M V L I S T ) \r ( 8 S 0053040 I : : D E B U G G E R - E X I T 0053060 ) \r ( 3 ( E R R O R ! ) ) \r 0053100 ( P U T H A S H ( Q U O T E 0053120 " S T O P " ) ( Q U O T E ( 0053140 N I L b r e a k - S T O P : 0053160 Q U I E T " E x i t t h i s 0053200 d e b u g g e r l e v e l " 0053220 ) ) \r * D E B U G G E R - C O 0053240 M M A N D - T A B L E * ) \r b r 0053260 e a k - U B D 1 \r ( L ( 1 0053300 $ $ M A C R O - E N V 0 $ $ 0053320 M A C R O - F O R M ) F 1 0053340 B R K F N ) \0 027 001 001 \0 002 @ 002 265 0053360 021 Q 021 001 \0 g \0 \0 H h 032 032 \t \0 \0 020 0053400 001 260 361 \0 ( 1 7 E V A L ) \r ( 1 0053420 0 U N B R E A K ) \r ( ) \r ( P 0053440 U T H A S H ( Q U O T E " U 0053460 B " ) ( Q U O T E ( ( & O P 0053500 T I O N A L F N ) b r e a k 0053520 - U B : E V A L " U n b r e 0053540 a k f u n c t i o n w i t h 0053560 b r e a k p o i n t " ) ) \r 0053600 * D E B U G G E R - C O M M A N 0053620 D - T A B L E * ) \r b r e a k - 0053640 V A L U E D 1 \r ( L ( 1 $ 0053660 $ M A C R O - E N V 0 $ $ M 0053700 A C R O - F O R M ) F 0 B 0053720 R K V A L U E S ) \0 025 \0 001 \0 002 0053740 P 265 016 i o \0 \0 \0 \n \0 \0 \b \0 \0 020 002 0053760 \t \0 \0 020 \0 ( 1 8 C L : V A L U 0054000 E S - L I S T 1 3 C L : V A 0054020 L U E S 1 0 C L : F O R M A 0054040 T ) \r N I L \r ( 7 " N o t 0054060 y e t e v a l u a t e d ~ & " 0054100 ) \r ( P U T H A S H ( Q U O T 0054120 E " V A L U E " ) ( Q U O T 0054140 E ( N I L b r e a k - V A L 0054160 U E : Q U I E T \r " S h o w 0054200 v a l u e f r o m p r e v 0054220 i o u s e v a l u a t i o n 0054240 o f d e b u g e x p r e s s 0054260 i o n " ) ) * D E B U G G E R 0054300 - C O M M A N D - T A B L E * ) 0054320 \r b r e a k - ^ D 1 \r ( L ( 0054340 1 $ $ M A C R O - E N V 0 0054360 $ $ M A C R O - F O R M ) F 0054400 0 B R K V A L U E S ) \0 022 \0 0054420 001 \0 002 o \0 \0 \0 c \0 g \0 \0 h \t \0 \0 0054440 \n \0 \0 020 \0 ( 1 5 \ D O - T H R 0054460 O W 1 2 \ M V L I S T ) \r ( 0054500 8 S I : : D E B U G G E R - E 0054520 X I T ) \r ( 3 ( E R R O R ! 0054540 ) ) \r ( P U T H A S H ( Q U O 0054560 T E " ^ " ) ( Q U O T E ( 0054600 N I L b r e a k - ^ : Q U I 0054620 E T " A b o r t o u t o f 0054640 d e b u g g e r " ) ) * D E 0054660 B U G G E R - C O M M A N D - T 0054700 A B L E * ) \r b r e a k - ? = 0054720 D 1 \r ( L ( 1 $ $ M A C R O 0054740 - E N V 0 $ $ M A C R O - F 0054760 O R M ) F 0 L A S T P O S 0055000 ) \0 026 \0 001 \0 002 P \t \0 \0 i \n \0 \0 0055020 P \t \0 \0 i j \f \0 \0 \b \0 \0 020 \0 ( 1 0055040 9 C L : V A L U E S 1 6 P 0055060 R I N T - A R G L I S T 1 1 0055100 S T K A R G S 7 S M A R T A 0055120 R G L I S T 3 S T K N A M E 0055140 ) \r N I L \r ( ) \r ( P U T H A S 0055160 H ( Q U O T E " ? = " ) ( 0055200 Q U O T E ( N I L b r e a k 0055220 - ? = : E V A L " S h o w 0055240 a r g u m e n t s " ) ) * D E 0055260 B U G G E R - C O M M A N D - T 0055300 A B L E * ) \r B A K T R A C E 0055320 D 1 \r ( P 9 S K I P F N P 0055340 8 Z P 7 Y P 6 X 0055360 P 5 F N P 4 P L V L 0055400 F I L E F L G P 3 N P 0055420 2 P O S P 1 * P R I N T 0055440 - L E N G T H * P 0 * P R 0055460 I N T - L E V E L * I 4 F 0055500 I L E I 3 F L A G S I 0055520 2 S K I P F N S I 1 E P 0055540 O S I 0 I P O S F 1 0 0055560 C L E A R S T K L S T F 1 0055600 1 B R E A K D E L I M I T E R 0055620 ) \0 217 \n 002 \0 005 l 002 l \n j @ \n \0 0055640 \0 j i 021 E \b D 243 i b \b 277 W 024 i 360 0055660 246 J W 024 032 c 024 277 J \t \0 \0 275 B 262 027 0055700 B 214 d 001 021 001 \t M k O 022 016 022 244 002 003 0055720 265 362 h 263 6 C j 360 263 027 K @ J \v \0 \0 0055740 Z d C l \b 344 D g \0 \0 \r 005 \0 \0 277 M 0055760 d g \0 \0 360 225 277 k J \n \0 \0 D i \v \0 0056000 \0 277 W 026 D \n \0 \0 277 K k 331 [ @ J \v 0056020 \0 \0 Z d 226 A \n \0 \0 262 237 J \t \0 \0 277 0056040 D \t \0 \0 h 020 \0 ( 1 3 9 T E R P 0056060 R I 1 3 4 R E L S T K 1 2 0056100 8 E Q P 1 2 1 S T K N T H 0056120 1 1 1 P R I N 1 1 0 4 P 0056140 R I N 2 9 9 S T K A R G 8 0056160 5 B A C K T R A C E 7 1 S 0056200 T K N T H 3 5 S T K N A M E 0056220 8 S T K N T H ) \r ( 9 1 C 0056240 L : E V A L 8 1 S H O W P R 0056260 I N T ) \r ( ) \r C R E A T E - P 0056300 R O C E E D - K E Y L I S T D 0056320 1 \r ( P 1 0 K E Y L I S T 0056340 P 9 M E S S A G E P 8 0056360 C A S E P 4 I P 0 C 0056400 A S E S I 0 C O N D I T I 0056420 O N ) \0 207 \v \0 \0 001 @ \t \0 \0 021 ! 0056440 002 H d 262 037 k 021 R \t K 003 265 030 M 022 021 0056460 001 \n O 024 \t \0 \0 272 o \0 \0 \0 271 J I 031 0056500 O 024 020 001 _ 020 \t \0 \0 _ 022 277 L O 022 g 0056520 \0 \0 i g \0 \0 L o \0 \0 \0 O 022 \v \0 \0 0056540 g \0 \0 i g \0 \0 g \0 \0 o \0 \0 \0 g \0 0056560 \0 O 020 h 032 032 h 032 032 032 h 032 032 032 032 032 0056600 032 032 032 032 032 _ 016 277 N 265 021 O 016 h 032 ^ 0056620 275 K 002 273 L k 324 274 260 221 O 016 & 276 260 363 0056640 \0 ( 6 9 C O N C A T 4 6 C 0056660 L : P R I N C - T O - S T R I N 0056700 G 2 8 L A S T 3 C O M P 0056720 U T E - P R O C E E D - C A S E 0056740 S ) \r ( 8 6 Q U O T E 7 9 0056760 P R O G N 7 6 R E T U R N 0057000 7 2 C O N F I R M F L G 5 9 0057020 E X P L A I N S T R I N G 5 0057040 5 N O E C H O F L G ) \r ( 8 0057060 3 ( T E R P R I T ) 6 4 0057100 " - " 3 3 ( ( " N " " 0057120 N o - d o n ' t p r o c e 0057140 e d " N O E C H O F L G T 0057160 C O N F I R M F L G T A U 0057200 T O C O N F I R M F L G T R 0057220 E T U R N ( T E R P R I T ) 0057240 ) ) ) \r C R E A T E - P R O C E 0057260 E D - M E N U A 0 0 0 2 D 1 \r 0057300 ( L ( 0 C A S E ) ) \0 \n \0 0057320 \0 \0 001 @ \t \0 \0 @ h 032 032 020 \0 ( 3 0057340 C L : P R I N C - T O - S T R I 0057360 N G ) \r N I L \r ( ) \r C R E A T 0057400 E - P R O C E E D - M E N U D 0057420 1 \r ( L ( 0 C O N D I T I O 0057440 N ) ) \0 D 003 \0 \0 001 @ \t \0 \0 021 ! 0057460 002 H 264 : ` \0 \0 037 d o \0 \0 \0 024 022 277 0057500 g \0 \0 H \n \0 \0 271 d I 024 004 277 d g \0 0057520 \0 024 277 d g \0 \0 024 034 277 j d n 177 377 0057540 d h 032 032 032 032 272 d J 024 \n 277 020 \0 ( 2 0057560 8 C L : M A P C A R 3 C O 0057600 M P U T E - P R O C E E D - C A 0057620 S E S ) \r ( 4 5 D E F A U L T 0057640 M E N U H E L D F N 3 8 C L 0057660 R P R O M P T 2 4 C R E A T 0057700 E - P R O C E E D - M E N U A 0 0057720 0 0 2 1 2 | 004 003 M E N U T Y 0057740 P E # | ) \r ( 1 8 " W a y s 0057760 t o p r o c e e d . . . " ) 0060000 \r M A K E - F R A M E - I N S P 0060020 E C T - W I N D O W A 0 0 0 1 0060040 D 1 \r ( I 0 W ) \0 020 \0 \0 \0 0060060 001 @ \t \0 \0 @ g \0 \0 \n \0 \0 g \0 \0 020 0060100 \0 ( 1 0 P U T W I N D O W P R 0060120 O P 3 \ R E L E A S E - S T 0060140 A C K - D A T U M ) \r ( 1 3 ; 0060160 7 S E L E C T A B L E I T E 0060200 M S ) \r ( ) \r M A K E - F R A M 0060220 E - I N S P E C T - W I N D O W 0060240 D 1 \r ( P 3 A T W P 1 0060260 B T W I N D O W P 0 T T 0060300 Y R E G I O N I 0 T T Y W 0060320 I N D O W ) \0 o 004 \0 \0 001 021 001 0060340 @ \t \0 \0 021 021 003 J 003 265 L h 022 Y 265 F 0060360 @ \t \0 \0 X h l 226 g \0 \0 \f \0 \0 o \0 0060400 \0 \0 \n \0 \0 Y g \0 \0 i \v \0 \0 277 I g 0060420 \0 \0 o \0 \0 \0 \v \0 \0 277 I g \0 \0 @ \t 0060440 \0 \0 311 . \v \0 \0 277 I g \0 \0 g \0 \0 i 0060460 \f \0 \0 I 020 001 [ g \0 \0 \n \0 \0 227 K \t 0060500 \0 \0 277 K 260 250 J 002 Z 260 237 \0 ( 1 0 0 0060520 \ R E L E A S E - S T A C K - 0060540 D A T U M 9 5 G E T W I N D 0060560 O W U S E R P R O P 8 5 W I 0060600 N D O W A D D P R O P 7 3 P 0060620 U T W I N D O W P R O P 6 8 0060640 \ I N S U R E W I N D O W 5 9 0060660 P U T W I N D O W P R O P 4 0060700 7 P U T W I N D O W P R O P 0060720 3 9 C R E A T E W 3 2 R E 0060740 G I O N - N E X T - T O 2 2 0060760 W I N D O W R E G I O N 6 A 0061000 T T A C H E D W I N D O W S ) \r 0061020 ( 9 2 F R A M E - I N S P E C 0061040 T 8 1 M A K E - F R A M E - 0061060 I N S P E C T - W I N D O W A 0 0061100 0 0 1 7 8 C L O S E F N 6 0061120 4 P R O C E S S 5 2 M A X 0061140 S I Z E 4 3 F R A M E - I N 0061160 S P E C T 2 9 T O P ) \r ( 0061200 5 6 ( 3 0 0 . 1 5 0 ) 3 0061220 6 " B a c k T r a c e F r 0061240 a m e W i n d o w " ) \r P R O 0061260 C E E D - F R O M - B R E A K 0061300 D 1 \r ( P 1 C A S E P 0 0061320 K E Y S F 2 B R K C O N 0061340 D F 3 * D E B U G - I O * 0061360 ) \0 5 002 002 \0 \0 R \t \0 \0 021 001 \0 H 0061400 265 \v S o \0 \0 \0 \n \0 \0 020 h d o \0 \0 0061420 \0 \f \0 \0 277 h d o \0 \0 \0 H i \r 005 \0 0061440 \0 021 001 001 I d 223 R \n \0 \0 020 \0 ( 5 0 0061460 I N V O K E - P R O C E E D - 0061500 C A S E 4 0 A S K U S E R 0061520 2 7 A S K U S E R E X P L A I 0061540 N 1 7 C L : F O R M A T 3 0061560 C R E A T E - P R O C E E D - 0061600 K E Y L I S T ) \r N I L \r ( 3 0061620 4 " P r o c e e d h o w ? 0061640 " 2 4 " \r " 1 4 " ~ & N 0061660 o p r o c e e d c a s e s 0061700 e n a b l e d . ~ % % " ) \r P R 0061720 O C E E D - U S I N G - M E N U 0061740 D 1 \r ( F 0 B R K C O N D 0061760 F 1 * D E B U G - I O * ) 0062000 \0 032 \0 002 \0 \0 P \t \0 \0 265 \v Q o \0 0062020 \0 \0 \n \0 \0 020 \t \0 \0 d 223 P \n \0 \0 020 0062040 \0 ( 2 3 I N V O K E - P R O C 0062060 E E D - C A S E 1 7 M E N U 0062100 1 3 C L : F O R M A T 3 0062120 C R E A T E - P R O C E E D - M 0062140 E N U ) \r N I L \r ( 1 0 " ~ 0062160 & N o p r o c e e d c a s e 0062200 s e n a b l e d . ~ % % " ) \r 0062220 \ R E L E A S E - S T A C K - D 0062240 A T U M D 1 \r ( P 0 D T 0062260 I 0 W ) \0 ! 001 \0 \0 001 @ g \0 0062300 \0 \n \0 \0 021 001 \0 H d 005 \b 223 \t \0 \0 020 0062320 223 H 003 264 \t g \0 \0 H \n \0 \0 020 \0 ( 3 0062340 0 C L : M A P C 1 7 R E L 0062360 S T K 6 G E T W I N D O W U 0062400 S E R P R O P ) \r ( 2 6 R E L 0062420 S T K 3 D A T U M ) \r ( ) \r 0062440 D E B U G G E R - E V A L D 1 0062460 \r ( I 1 E N V I 0 E X 0062500 P F 0 X C L : : * E V A L 0062520 - F U N C T I O N * ) \0 026 \0 001 0062540 \0 002 P @ A h 032 032 m 377 g \0 \0 \n \0 \0 0062560 h i \r 005 \0 \0 020 \0 ( 1 9 E N V A 0062600 P P L Y 1 3 S T K N T H ) \r 0062620 ( 1 0 D E B U G G E R ) \r ( ) 0062640 \r F I N D - N A M E D - S T A C 0062660 K - P O S I T I O N A 0 0 0 1 0062700 D 1 \r ( I 0 F N F 0 B 0062720 R K P A T ) \0 021 \0 001 \0 001 @ P 002 0062740 001 P 002 002 001 P 002 002 002 \f \0 \0 020 \0 ( 1 0062760 4 S K O R 0 ) \r N I L \r ( ) \r 0063000 F I N D - N A M E D - S T A C K 0063020 - P O S I T I O N D 1 \r ( P 0063040 1 B R K P A T P 0 T E M 0063060 I 2 L S T P O S I 1 0063100 N I 0 F N F 2 D W I 0063120 M F L G F 3 N O S P E L L 0063140 F L G ) \0 [ 002 002 \0 003 021 020 \0 @ A 0063160 B \v \0 \0 X 225 B \t \0 \0 H 020 R 262 8 S 0063200 i 360 263 3 021 020 001 @ o \0 \0 \0 \n \0 \0 \t 0063220 \0 \0 271 g \0 \0 B \n \0 \0 X 022 262 031 g \0 0063240 \0 i \n \0 \0 277 H 001 i \n \0 \0 277 B \t \0 0063260 \0 277 H 002 020 B \t \0 \0 277 @ o \0 \0 \0 i 0063300 \v \0 \0 h 020 \0 ( 8 7 E R R O R 0063320 7 7 R E L S T K 6 9 R E L 0063340 S T K 6 4 P R I N T 5 7 0063360 P R I N 1 4 6 S E A R C H P 0063400 D L 3 8 E D I T F P A T 3 0063420 5 C O N C A T 1 4 R E L S 0063440 T K 8 S T K P O S ) \r ( 5 3 0063460 = 4 2 F I N D - N A M E D 0063500 - S T A C K - P O S I T I O N A 0063520 0 0 0 1 ) \r ( 8 3 " n o t 0063540 f o u n d " 3 2 " 033 033 " ) \r 0063560 F I N D - D E B U G G E R - S T 0063600 A C K - F R A M E D 1 \r ( P 0063620 3 P O S 1 P 2 N P 1 0063640 A 3 3 2 0 P 0 L S T P O 0063660 S I 1 E N V I 0 P L 0063700 A C E F 4 L A S T P O S ) 0063720 \0 312 004 001 \0 002 \b \0 \0 021 001 \0 @ 265 031 0063740 H 247 o \0 \0 \0 \t \0 \0 277 j H T \v \0 \0 0063760 277 H \t \0 \0 T 020 001 021 001 001 I g \0 \0 \n 0064000 \0 \0 230 j T H \v \0 \0 261 \0 216 I g \0 \0 0064020 \n \0 \0 237 j @ 002 001 A \n \0 \0 \n \0 \0 270 0064040 @ 002 260 w @ d 001 3 262 b 277 j @ 001 363 0064060 230 @ 001 H d \v \0 \0 260 _ @ 001 m 377 g \0 0064100 \0 \n \0 \0 021 002 003 K H \n \0 \0 263 ' J j 0064120 363 235 J k 331 272 m 377 K d \v \0 \0 [ 260 352 0064140 m 377 g \0 \0 \n \0 \0 270 K 265 004 H 205 H \n 0064160 \0 \0 226 K \t \0 \0 023 260 m 377 K d \v \0 0064200 \0 273 m 377 H d \v \0 \0 260 337 001 h m 377 H 0064220 d \v \0 \0 \v \0 \0 270 @ 002 b \0 023 261 377 @ 0064240 \0 ( 1 9 1 F I N D - N A M E D 0064260 - S T A C K - P O S I T I O N 0064300 1 8 8 S T K N T H 1 7 7 S 0064320 T K N T H 1 6 9 S T K N T H 0064340 1 5 9 R E L S T K 1 5 4 0064360 E Q P 1 4 4 S T K N T H 1 0064400 3 3 S T K N T H 1 1 6 E Q 0064420 P 1 0 8 S T K N T H 9 6 0064440 S T K N T H 7 1 S T K N T H 0064460 6 8 C L : E V A L 5 9 S 0064500 T R I N G . E Q U A L 4 9 S 0064520 T K N T H 4 2 S T R I N G . 0064540 E Q U A L 2 9 R E L S T K 0064560 2 4 S T K N T H 1 7 E R R 0064600 O R 2 F I N D - D E B U G G 0064620 E R - E N T R Y - F R A M E ) \r 0064640 ( 1 4 1 D E B U G G E R - L O 0064660 O P 1 0 5 D E B U G G E R - 0064700 L O O P 5 6 = 3 9 @ ) \r 0064720 ( 1 4 " n o t f o u n d " 0064740 ) \r F I N D - S T A C K - F R A 0064760 M E D 1 \r ( P 2 A 3 3 2 1 0065000 P 1 T O K E N P 0 P 0065020 O S I 0 F R A M E - S P E 0065040 C F 3 F R A M E S P E C 0065060 F 4 L A S T P O S ) \0 u 003 0065100 002 \0 001 i \t \0 \0 021 021 001 @ 262 ^ S 001 S 0065120 002 c 006 277 Y 021 001 002 J o \0 \0 \0 \n \0 \0 0065140 227 j T H \v \0 \0 260 > J o \0 \0 \0 \n \0 0065160 \0 237 j S 001 S 002 c 006 277 \t \0 \0 \n \0 \0 0065200 260 % I d 3 020 264 \t H d \v \0 \0 260 030 m 0065220 377 H d \v \0 \0 H \f \0 \0 265 \v I o \0 \0 0065240 \0 i \v \0 \0 022 270 260 243 j H T \v \0 \0 c 0065260 \b H \t \0 \0 277 020 \0 ( 1 1 3 R E L 0065300 S T K 1 0 7 S T K N T H 9 0065320 7 E R R O R 8 6 S T K P O 0065340 S 8 2 S T K N T H 7 3 S 0065360 T K N T H 6 0 S T K N T H 0065400 5 7 C L : E V A L 4 5 S T 0065420 R I N G . E Q U A L 3 5 S T 0065440 K N T H 2 8 S T R I N G . E 0065460 Q U A L 3 F I N D - D E B U 0065500 G G E R - E N T R Y - F R A M E 0065520 ) \r N I L \r ( 9 3 " n o t 0065540 f o u n d " 4 2 " = " 2 5 0065560 " @ " ) \r R E L E A S E - D E 0065600 B U G G E R - W I N D O W D 1 0065620 \r ( I 0 D E B U G G E R - W 0065640 I N D O W ) \0 4 \0 \0 \0 001 @ \t \0 0065660 \0 264 . @ g \0 \0 \n \0 \0 \t \0 \0 @ g \0 0065700 \0 \n \0 \0 @ g \0 \0 g \0 \0 \v \0 \0 \b \0 0065720 \0 @ g \0 \0 g \0 \0 \v \0 \0 @ \t \0 \0 020 0065740 \0 ( 4 9 C L O S E W 4 5 W 0065760 I N D O W D E L P R O P 3 5 0066000 \ C A R E T . D O W N 3 2 P 0066020 U T W I N D O W P R O P 2 2 0066040 P U T W I N D O W P R O P 1 5 0066060 R E L S T K 1 2 P U T W I 0066100 N D O W P R O P 3 W I N D O 0066120 W P ) \r ( 4 2 C L O S E - D E 0066140 B U G G E R - W I N D O W 3 9 0066160 C L O S E F N 2 9 T O T O 0066200 P W 2 6 B U T T O N E V E N 0066220 T F N 1 9 P R O C E S S 9 0066240 L A S T P O S ) \r ( ) \r ( C L 0066260 : P R O C L A I M ( Q U O T E 0066300 ( G L O B A L T R A C E R E 0066320 G I O N ) ) ) \r ( O R ( B O U 0066340 N D P ( Q U O T E T R A C E 0066360 R E G I O N ) ) ( S E T Q T 0066400 R A C E R E G I O N ( C O N S 0066420 8 ( C O N S 3 ( C O N S 0066440 5 4 7 ( C O N S 3 1 0 N 0066460 I L ) ) ) ) ) ) \r E N T E R - D 0066500 E B U G G E R - P D 1 \r ( L 0066520 ( 2 C O N D I T I O N 1 P 0066540 O S 0 N ) F 2 P R I N 0066560 T M S G F 3 H E L P F L A 0066600 G F 4 H E L P C L O C K 0066620 F 5 H E L P T I M E ) \0 245 0066640 002 004 \0 003 S d 242 261 \0 225 g \0 \0 360 222 261 0066660 \0 214 m 377 A \n \0 \0 021 021 001 H 242 h 260 ^ 0066700 @ 225 @ k 325 b \0 277 H \t \0 \0 g \0 \0 360 0066720 262 m l 002 H \t \0 \0 361 h 360 264 \b l 002 H 0066740 \n \0 \0 Y 265 022 ` \0 \0 h 360 c 004 277 H \t 0066760 \0 \0 277 h 260 ( g \0 \0 360 263 C I g \0 \0 0067000 360 232 h c 004 277 H \t \0 \0 277 h 216 i c 004 0067020 277 H \t \0 \0 277 @ 264 005 j @ 363 022 265 037 S 0067040 g \0 \0 360 263 027 T 3 264 023 U 3 264 016 0067060 l 002 \t \0 \0 T 331 U 361 264 003 i 020 m 377 H 0067100 d \v \0 \0 X 261 377 w \0 ( 1 5 9 S T 0067120 K N T H 1 4 4 C L O C K 1 0067140 1 2 R E L S T K 1 0 1 R E 0067160 L S T K 7 7 R E L S T K 6 0067200 2 S T K A R G 5 1 S T K N 0067220 A R G S 3 9 S T K N A M E 0067240 1 9 S T K N T H ) \r ( 1 2 6 0067260 B R E A K ! 9 1 N O B R E A 0067300 K 8 4 I N T E R N A L 6 8 0067320 N L S E T Q G A G 4 2 E R 0067340 R O R S E T 8 B R E A K ! ) 0067360 \r ( ) \r ( R P A Q Q * D E B U 0067400 G G E R - E N T R Y - P O I N T 0067420 S * ( \ i n t e r p r e t - B 0067440 R E A K 1 C L : E R R O R C 0067460 L : C E R R O R D E B U G C 0067500 L : B R E A K E R R O R X * 0067520 C A T C H * \r C H E C K - T Y 0067540 P E - F A I L ) ) \r ( R P A Q Q 0067560 B A K T R A C E L S T ( ( A 0067600 P P L Y ( * * B R E A K * * 0067620 L I S P X E R R O R S E T B 0067640 R E A K 1 A E R R O R S E T 0067660 B R E A K 1 ) ( * * T O P * * 0067700 L I S P X E R R O R S E T 0067720 \r E V A L Q T T ) ( * * E D 0067740 I T O R * * L I S P X E R R 0067760 O R S E T E R R O R S E T E 0070000 R R O R S E T E D I T L 1 E 0070020 D I T L 0 E R R O R S E T ( 0070040 ( E R R O R S E T E R R O R S 0070060 E T \r E R R O R S E T E D I 0070100 T L 1 E D I T L 0 E R R O R 0070120 S E T ) - ) E D I T L E R 0070140 R O R S E T E R R O R S E T 0070160 E D I T E ( ( E D I T F ) ( 0070200 E D I T V ) ( E D I T P ) - 0070220 ) ) ( \r * * U S E R E X E C * 0070240 * L I S P X E R R O R S E T 0070260 E R R O R S E T U S E R E X 0070300 E C ) ) ( E V A L ( * * B R 0070320 E A K * * L I S P X E R R O 0070340 R S E T B R E A K 1 A E R R 0070360 O R S E T \r B R E A K 1 ) ( 0070400 * * T O P * * L I S P X E R 0070420 R O R S E T E V A L Q T T ) 0070440 ( * * E D I T O R * * ( ( M 0070460 A P C A R A P P L Y ) ( E R 0070500 R O R S E T L I S P X ) ) E 0070520 R R O R S E T \r E R R O R S E 0070540 T E R R O R S E T E D I T L 0070560 1 E D I T L 0 E R R O R S E 0070600 T ( ( E R R O R S E T E R R 0070620 O R S E T E R R O R S E T E 0070640 D I T L 1 E D I T L 0 E R R 0070660 O R S E T ) - ) E D I T L \r 0070700 E R R O R S E T E R R O R S 0070720 E T E D I T E ( ( E D I T F 0070740 ) ( E D I T V ) ( E D I T P 0070760 ) - ) ) ( * * U S E R E X E 0071000 C * * E R R O R S E T L I S 0071020 P X E R R O R S E T E R R O 0071040 R S E T \r U S E R E X E C ) ) 0071060 ( P R O G N * * B R E A K * 0071100 * E V A L ( ( E R R O R S E 0071120 T B R E A K 1 A E R R O R S 0071140 E T B R E A K 1 ) ( B R E A 0071160 K 1 ) ) ) ( B L K A P P L Y 0071200 * * B R E A K * * \r P R O G N 0071220 E V A L E R R O R S E T B 0071240 R E A K 1 A E R R O R S E T 0071260 B R E A K 1 ) ( * P R O G * L 0071300 A M ( N I L E V A L A * E 0071320 N V * ) ( N I L C L I S P B 0071340 R E A K 1 ) ) ) ) \r ( R P A Q ? 0071360 M a x B k M e n u W i d t h 0071400 1 2 5 ) \r ( R P A Q ? A U T O 0071420 B A C K T R A C E F L G N I L 0071440 ) \r ( R P A Q ? B A C K T R A 0071460 C E F O N T ) \r H E L P D 1 \r 0071500 ( I 1 M E S S 2 I 0 M 0071520 E S S 1 ) \0 027 \0 \0 \0 002 o \0 \0 \0 0071540 @ 265 006 o \0 \0 \0 A 265 006 o \0 \0 \0 \v \0 0071560 \0 020 \0 ( 2 0 D E B U G ) \r N I 0071600 L \r ( 1 7 " " 1 0 " " 0071620 3 " H e l p ! ~ A ~ A " ) \r 0071640 S H O U L D N T D 1 \r ( I 0 0071660 M E S S ) \0 \n \0 \0 \0 001 o \0 \0 0071700 \0 @ \n \0 \0 020 \0 ( 7 H E L P ) \r 0071720 N I L \r ( 3 " S h o u l d n 0071740 ' t h a p p e n " ) \r E R R O 0071760 R D 1 \r ( P 0 P O S I 0072000 2 N O B R E A K I 1 M E 0072020 S S 2 I 0 M E S S 1 F 0072040 1 H E L P F L A G F 2 * 0072060 L A S T - C O N D I T I O N * ) 0072100 \0 Q 001 002 \0 003 B 262 B Q g \0 \0 360 263 0072120 ; 021 020 \0 ` \0 \0 262 ! g \0 \0 m 377 \n \0 0072140 \0 X 262 026 H \t \0 \0 k 363 264 \b l 002 H \n 0072160 \0 \0 H \t \0 \0 277 234 l 021 @ A 032 \n \0 \0 0072200 277 \b \0 \0 277 023 \b \0 \0 020 l 021 @ A 032 \n 0072220 \0 \0 R \t \0 \0 020 \0 ( 7 8 E R R O 0072240 R X 7 4 S E T E R R O R N 0072260 6 5 E R R O R ! 6 0 E R R 0072300 O R M E S S 5 6 S E T E R R 0072320 O R N 4 6 R E L S T K 4 2 0072340 S T K A R G 3 2 S T K N A 0072360 R G S 2 5 S T K P O S ) \r ( 0072400 2 0 E R R O R S E T 1 5 N 0072420 L S E T Q G A G 6 B R E A K 0072440 ! ) \r ( ) \r E R R O R X A 0 0 0 0072460 1 A 0 0 0 2 D 1 \r ( P 0 * 0072500 P R O C E E D - C A S E S * F 0072520 1 P R O C E E D - C A S E 3 0072540 3 2 7 F 2 * P R O C E E D 0072560 - C A S E S * F 3 * L A S 0072600 T - C O N D I T I O N * ) \0 0 0072620 001 003 \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0 0072640 Q g \0 \0 j g \0 \0 h g \0 \0 o \0 \0 \0 0072660 \r \n \0 \0 R 032 021 001 \0 S \t \0 \0 \t \0 \0 0072700 022 032 020 \0 ( 4 3 \ M V L I S T 0072720 4 0 C L : E R R O R 3 1 M 0072740 A K E - P R O C E E D - C A S E 0072760 ) \r ( 2 3 : R E P O R T 1 9 0073000 : T E S T 1 5 : S E L E C 0073020 T O R 1 1 : T A G 8 P R 0073040 O C E E D 5 : N A M E 2 0073060 : N O R M A L ) \r ( 2 7 " R 0073100 e t r y e x e c u t i o n " ) 0073120 \r E R R O R X A 0 0 0 1 D 1 \r 0073140 ( N A M E E R R O R S E T P 0073160 4 P R O C E E D - C A S E 3 0073200 3 2 7 P 0 E R R O R P O S 0073220 F 5 R E S E T V A R S L S 0073240 T F 6 R E S E T Y ) \0 Z 0073260 005 002 002 \0 g \0 \0 \t \0 \0 021 1 003 g \0 \0 0073300 H h 032 032 h h 032 032 U 032 c \n 277 h h 032 0073320 021 001 004 L g \0 \0 \n \0 \0 022 [ 001 272 K 002 0073340 271 J d g \0 \0 360 226 277 I \t \0 \0 260 033 j 0073360 : 264 027 H \t \0 \0 H \t \0 \0 k H d \v \0 0073400 \0 H i d \r 006 \0 \0 022 c \f i 020 \0 ( 8 0073420 3 E N V A P P L Y 7 6 S T 0073440 K N T H 7 0 S T K A R G S 0073460 6 6 S T K N A M E 5 6 C L 0073500 : V A L U E S - L I S T 3 7 0073520 \ C A T C H - F U N C A L L 5 0073540 F I N D - D E B U G G E R - E 0073560 N T R Y - F R A M E ) \r ( 4 9 0073600 : N O R M A L 3 4 E R R O R 0073620 X A 0 0 0 1 A 0 0 0 2 1 1 R 0073640 E L S T K 2 E R R O R X ) \r 0073660 ( ) \r E R R O R X D 1 \r ( L 0073700 ( 0 E R X M ) P 1 R E S 0073720 E T Y P 0 L I S P X H I S 0073740 T F 3 L I S P X H I S T 0073760 F 4 R E S E T V A R S L S T 0074000 ) \0 2 003 002 \0 001 @ 235 @ d 303 \0 \0 246 0074020 001 @ 002 001 \n \0 \0 277 S 021 ! 002 T o \0 \0 0074040 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 0074060 \0 J 223 \b \0 \0 020 I 020 \0 ( 4 5 E R 0074100 R O R ! 4 0 R E S E T R E S 0074120 T O R E 3 0 E R R O R X A 0 0074140 0 0 1 1 4 S E T E R R O R N 0074160 ) \r ( 3 6 E R R O R 2 7 I 0074200 N T E R N A L 6 C O N D I T 0074220 I O N ) \r ( 2 4 ( E R R O R 0074240 X A 0 0 0 1 ) ) \r I N T E R R U 0074260 P T D 1 \r ( I 0 I N T F N 0074300 ) \0 022 \0 \0 \0 001 g \0 \0 g \0 \0 g \0 0074320 \0 @ \v \0 \0 \n \0 \0 020 \0 ( 1 5 D E 0074340 B U G G E R 1 2 M A K E - C 0074360 O N D I T I O N ) \r ( 8 : F U 0074400 N C T I O N 5 S I : : I N T 0074420 E R R U P T 2 : C O N D I T 0074440 I O N ) \r ( ) \r F A U L T E V A 0074460 L D 1 \r ( P 1 T E M 2 P 0074500 0 T E M I 0 F A U L T 0074520 X F 2 C L I S P A R R A Y 0074540 F 3 D W I M F L G F 4 0074560 L A M B D A S P L S T F 5 0074600 * M A C R O E X P A N D - H O 0074620 O K * ) \0 x 002 004 \0 001 021 001 @ 003 0074640 265 022 S 262 j g \0 \0 \t \0 \0 262 b @ \t \0 0074660 \0 020 001 X d 004 l 004 360 262 > ` \0 \0 \n \0 0074700 \0 Y 262 # @ d I \n \0 \0 Y 364 263 031 R 262 0074720 023 @ I 003 265 \t g \0 \0 I h 032 032 R \v \0 0074740 \0 277 I , 020 H 301 002 311 \0 g \0 \0 ' Y 265 0074760 026 @ 001 \t \0 \0 X 003 262 252 H 001 T 034 262 244 0075000 @ \t \0 \0 020 @ h l 003 U 016 , 020 @ \t \0 0075020 \0 020 \0 ( 1 1 7 O L D F A U L T 0075040 1 1 0 4 \ E V A L F O R M A 0075060 S L A M B D A 9 0 G E T D 0075100 6 9 P U T H A S H 4 6 M A 0075120 C R O E X P A N S I O N 3 7 0075140 G E T M A C R O P R O P 2 1 0075160 N E W F A U L T 1 1 5 \ D E 0075200 F I N E D P ) \r ( 8 1 M A C R 0075220 O - F N 6 1 P R O G N 3 4 0075240 C O M P I L E R M A C R O P R 0075260 O P S 1 2 N E W F A U L T 1 0075300 ) \r ( ) \r F A U L T A P P L Y 0075320 D 1 \r ( P 8 T R A N F N P 0075340 7 T R A N P 6 C L O S 0075360 U R E P 5 C L O S U R E 0075400 P 4 % % L E X I C A L - E N 0075420 V I R O N M E N T % % P 3 0075440 D E F P 0 \ I N T E R R U 0075460 P T A B L E I 1 F A U L T 0075500 A R G S I 0 F A U L T F N 0075520 F 9 C L I S P A R R A Y 0075540 F 1 0 L A M B D A S P L S T 0075560 F 1 1 D W I M F L G F 0075600 1 2 L A M B D A T R A N F N S 0075620 ) \0 305 \t 004 \0 002 @ \t \0 \0 262 4 021 020 0075640 \0 g \0 \0 @ i \v \0 \0 277 A 022 021 021 002 j 0075660 272 I 260 026 d 001 375 002 J k 330 Z n 002 \0 361 0075700 226 h l 4 \n \0 \0 277 265 354 J g \0 \0 016 020 0075720 @ d 004 l 004 360 222 \t \0 \0 021 021 004 K 303 \0 0075740 \0 262 034 K 021 001 005 M 006 \0 \0 022 311 002 274 K 0075760 021 001 006 N 006 \0 \0 022 311 \0 [ 260 343 021 \b 0076000 K 003 230 K d 001 W 024 034 263 026 277 W 026 262 G 0076020 g \0 \0 \t \0 \0 262 ? @ A i \v \0 \0 020 W 0076040 022 \n \0 \0 _ 016 265 $ K 001 W 030 026 002 001 _ 0076060 020 262 033 K k O 020 016 _ 016 003 237 W 022 230 K 0076100 O 016 W 022 \v \0 \0 277 O 016 [ 203 L 262 277 K 0076120 A \n \0 \0 020 @ A i \v \0 \0 020 \0 ( 1 9 0076140 4 O L D F A U L T 1 1 8 7 0076160 A P P L Y 1 7 4 P U T H A S 0076200 H 1 3 9 G E T H A S H 1 3 0076220 3 N E W F A U L T 1 1 2 5 0076240 \ D E F I N E D P 6 5 G E T 0076260 D 4 6 \ L I S P E R R O R 0076300 1 6 P U T D 3 C C O D E P 0076320 ) \r ( 1 2 2 N E W F A U L T 1 0076340 9 4 C L O S U R E 8 2 C 0076360 L O S U R E 7 2 C L O S U R 0076400 E 5 3 \ I N T E R P R E T E 0076420 R - D U M M Y 1 1 \ I N T E 0076440 R P R E T E R - D U M M Y ) \r ( 0076460 ) \r O L D F A U L T 1 D 1 \r ( 0076500 P 1 C N T P 0 F N I 0076520 2 F A U L T A P P L Y F L G 0076540 I 1 F A U L T A R G S I 0076560 0 F A U L T X ) \0 \ 002 \0 \0 0076600 003 o \0 \0 \0 B 262 023 g \0 \0 g \0 \0 @ g 0076620 \0 \0 A \r 005 \0 \0 260 030 @ 003 247 g \0 \0 g 0076640 \0 \0 @ 207 g \0 \0 g \0 \0 @ 001 \v \0 \0 \n 0076660 \0 \0 B 262 $ @ j 021 002 001 A 260 026 d 001 375 0076700 002 I k 330 Y n 002 \0 361 226 h l 4 \n \0 \0 0076720 277 265 354 I H 016 020 @ \t \0 \0 020 \0 ( 8 9 0076740 E V A L 7 8 \ L I S P E R 0076760 R O R 4 8 C L : C E R R O R 0077000 4 5 M A K E - C O N D I T I 0077020 O N 2 1 M A K E - C O N D I 0077040 T I O N ) \r ( 4 0 : N A M E 0077060 3 7 U N D E F I N E D - F U N 0077100 C T I O N 3 2 : N A M E 2 0077120 9 U N B O U N D - V A R I A B 0077140 L E 1 6 : A R G U M E N T S 0077160 1 2 : N A M E 9 U N D E 0077200 F I N E D - F U N C T I O N - I 0077220 N - A P P L Y ) \r ( 3 " R e 0077240 - e x e c u t e " ) \r E R R O R 0077260 M E S S D 1 \r ( P 0 C O N 0077300 D I T I O N I 0 U F 1 0077320 * L A S T - C O N D I T I O N 0077340 * F 2 L I S P X H I S T O 0077360 R Y F 3 * E R R O R - O U 0077400 T P U T * ) \0 / 001 003 \0 001 @ 265 004 0077420 Q 215 303 \0 \0 221 @ 207 @ 001 @ 002 001 \n \0 \0 0077440 021 001 \0 R 237 H 303 \0 \0 252 g \0 \0 H \t \0 0077460 \0 \n \0 \0 277 H S \n \0 \0 020 \0 ( 4 4 0077500 C L : P R I N C 3 8 L I S P 0077520 X P U T 3 5 C L : T Y P E - 0077540 O F 1 8 E R R M - T O - C O 0077560 N D I T I O N ) \r ( 3 1 * E R 0077600 R O R * 2 7 S T O R A G E - 0077620 C O N D I T I O N 7 C O N D 0077640 I T I O N ) \r ( ) \r E R R O R M 0077660 E S S 1 D 1 \r ( P 1 M E S 0077700 S A G E P 0 B A D G U Y 0077720 I 2 M E S S 3 I 1 M E 0077740 S S 2 I 0 M E S S 1 F 0077760 2 L I S P X H I S T O R Y ) 0100000 \0 ] 002 001 \0 003 021 001 @ 265 \r A 247 B i 0100020 d \v \0 \0 h 020 @ i \n \0 \0 @ 227 @ 3 \b 0100040 243 A 005 \a 225 k i \n \0 \0 203 i \t \0 \0 277 0100060 @ X A Y d 005 \a 232 A i \n \0 \0 277 i \t 0100100 \0 \0 211 A X i d \v \0 \0 277 @ Y 277 R 264 0100120 306 B g \0 \0 360 263 276 g \0 \0 H \n \0 \0 277 0100140 260 264 \0 ( 8 8 L I S P X P U T 0100160 6 7 L I S P X P R I N T 5 9 0100200 L I S P X T E R P R I 5 4 0100220 L I S P X P R I N 1 4 0 L I 0100240 S P X T E R P R I 3 5 L I S 0100260 P X S P A C E S 2 0 L I S P 0100300 X P R I N 1 1 3 L I S P X P 0100320 R I N T ) \r ( 8 4 * E R R O R 0100340 * 7 8 h e l p ! ) \r ( ) \r S 0100360 M A R T A R G L I S T D 1 \r ( 0100400 P 1 D E F P 0 T E M 0100420 I 2 T A I L I 1 E X P 0100440 L A I N F L G I 0 F N ) 0100460 001 263 002 \0 \0 003 021 001 @ d 004 l 004 360 222 0100500 261 001 211 277 A 242 261 001 w @ d 003 242 261 001 q 0100520 d 001 g \0 \0 360 242 261 001 g 002 001 \t \0 \0 020 0100540 @ o \0 \0 \0 \n \0 \0 X 265 ? A 262 h @ 301 0100560 002 311 \0 g \0 \0 ' 265 021 @ \t \0 \0 265 \v @ 0100600 301 002 311 \0 g \0 \0 ' Y \t \0 \0 262 7 I 003 0100620 001 d g \0 \0 360 254 d g \0 \0 360 246 d g \0 0100640 \0 360 262 027 277 i 260 025 002 001 X d 003 222 001 221 0100660 H 020 A 263 [ H 002 002 020 277 h 226 I 002 001 \t 0100700 \0 \0 020 @ g \0 \0 g \0 \0 o \0 \0 \0 \f \0 0100720 \0 Y 265 ` @ \t \0 \0 265 \f @ o \0 \0 \0 \n 0100740 \0 \0 002 001 Y 265 - A 242 261 \0 301 @ ` \0 \0 0100760 \n \0 \0 X d 242 261 \0 265 001 d g \0 \0 360 254 0101000 d g \0 \0 360 246 d g \0 \0 360 262 g 277 H 002 0101020 001 020 \t \0 \0 245 I \t \0 \0 262 315 A 262 P I 0101040 \t \0 \0 d l 002 360 245 d l 003 360 262 ; 277 i 0101060 260 9 001 d g \0 \0 360 245 d g \0 \0 360 223 277 0101100 i 260 027 d g \0 \0 360 245 d g \0 \0 360 226 277 0101120 I 001 I 002 271 201 277 h 242 261 377 { I \t \0 \0 0101140 002 002 001 \t \0 \0 020 277 h 222 261 377 } I \t \0 0101160 \0 020 d g \0 \0 360 234 277 H 002 h b 004 277 b 0101200 \0 023 261 376 264 241 h 020 H 001 003 264 6 H 001 \t 0101220 \0 \0 002 262 024 H 001 g \0 \0 H 001 \t \0 \0 002 0101240 h 032 032 \n \0 \0 020 H 001 020 H i 360 242 H 265 0101260 022 @ i h i B \r 005 \0 \0 X 265 \a @ \t \0 0101300 \0 020 @ 360 263 371 H b \0 301 002 311 \0 g \0 \0 0101320 ' 242 261 376 216 @ 301 002 311 \0 g \0 \0 ' h b 0101340 004 277 b \0 023 261 376 Q \0 ( 3 9 4 A R 0101360 G L I S T 3 8 7 F N C H E C 0101400 K 3 6 7 \ A P P E N D 2 3 0101420 6 0 L A S T 3 4 7 L A S T 0101440 3 1 4 A R G L I S T 3 0 3 0101460 \ S I M P L I F Y . C L . A R 0101500 G L I S T 2 9 7 R E M O V E 0101520 - C O M M E N T S 2 3 6 A R 0101540 G T Y P E 2 2 7 C C O D E P 0101560 2 2 2 E X P R P 1 8 8 G 0101600 E T M A C R O P R O P 1 7 1 0101620 G E T L I S 1 6 1 G E T D 0101640 1 5 4 G E T D E F 1 3 9 \ 0101660 S I M P L I F Y . C L . A R G L 0101700 I S T 8 5 E X P R P 7 0 0101720 G E T D 4 9 G E T L I S 4 0101740 0 \ S I M P L I F Y . C L . A 0101760 R G L I S T ) \r ( 4 2 2 B R O 0102000 K E N 4 0 9 B R O K E N 3 0102020 5 5 . . . 3 1 9 = 2 7 8 0102040 D E F C O M M A N D 2 7 2 0102060 D E F D E F I N E R 2 6 2 C 0102100 L : D E F U N 2 5 6 D E F M 0102120 A C R O 2 1 1 O P E N L A M 0102140 B D A 2 0 5 N L A M B D A 0102160 1 9 9 L A M B D A 1 8 5 C 0102200 O M P I L E R M A C R O P R O P 0102220 S 1 4 7 C U R R E N T 1 4 0102240 4 F U N C T I O N S 1 0 6 0102260 N L A M B D A 1 0 0 L A M B 0102300 D A 9 4 C L : L A M B D A 0102320 8 0 E X P R 6 3 A D V I S 0102340 E D 3 0 C L : L A M B D A ) 0102360 \r ( 1 6 8 ( E X P R C O D 0102400 E ) 1 5 1 ( N O E R R O R 0102420 N O C O P Y ) 4 6 ( A R G N 0102440 A M E S ) ) \r P A C K - I N - 0102460 D 1 \r ( P 5 Y P 1 T E 0102500 M 2 P 0 T E M 1 I 0 0102520 X ) \0 225 006 \0 \0 001 @ d 003 242 h 032 020 0102540 001 @ 002 002 001 021 002 001 @ 002 001 g \0 \0 360 251 0102560 o \0 \0 \0 @ i \v \0 \0 020 H 003 262 2 021 0 0102600 004 H 260 037 d 001 021 001 005 M g \0 \0 I h 032 0102620 032 032 \t \0 \0 022 Z 003 226 K 265 \f J \ [ 277 0102640 002 003 265 342 L 020 \t \0 \0 [ J 031 260 363 I 003 0102660 262 2 021 0 004 I 260 037 d 001 021 001 005 H g \0 0102700 \0 M h 032 032 032 \t \0 \0 022 Z 003 226 K 265 \f 0102720 J \ [ 277 002 003 265 342 L 020 \t \0 \0 [ J 031 0102740 260 363 H g \0 \0 I \v \0 \0 h 032 020 \0 ( 1 0102760 4 4 P A C K * 1 3 1 L A S 0103000 T 1 1 1 P A C K - I N - 7 0103020 9 L A S T 5 9 P A C K - I 0103040 N - 3 1 E R R O R ) \r ( 1 4 0103060 0 - I N - 1 0 3 I N 5 1 0103100 I N 2 0 I N ) \r ( 2 6 0103120 " n o t o f f o r m ( f n 0103140 1 I N f n 2 ) " ) \r \ S I M 0103160 P L I F Y . C L . A R G L I S T 0103200 D 1 \r ( L ( 0 L S T ) ) 0103220 \0 t 006 \0 \0 001 @ 021 Q 005 H 003 265 004 I 020 0103240 001 \ d 003 262 # 277 M d g \0 \0 360 224 277 L 0103260 001 260 E g \0 \0 360 233 L d 001 003 223 001 001 260 0103300 7 001 260 4 L 260 1 g \0 \0 360 263 323 L d g 0103320 \0 \0 360 263 " d g \0 \0 360 263 033 d g \0 \0 0103340 360 263 024 d g \0 \0 360 253 d g \0 \0 360 245 d 0103360 g \0 \0 360 220 ] 273 J 265 \f K h 032 Z 271 H 0103400 002 X 260 231 K & 272 260 370 \0 N I L \r ( 9 0103420 2 & E N V I R O N M E N T 8 0103440 6 & R E S T 8 0 & B O D Y 0103460 7 3 & K E Y 6 6 & O P T 0103500 I O N A L 5 9 & A U X 5 1 0103520 & A U X 3 1 & K E Y 2 1 0103540 & O P T I O N A L ) \r ( ) \r R 0103560 E S T O R E N A M E S A 0 0 0 1 0103600 D 1 \r ( N A M E E R R O R S 0103620 E T F 0 N O L I N K M E S 0103640 S F 1 D E F F 2 F N 0103660 F 3 N E W F 4 X X X 0103700 ) \0 017 \0 005 002 \0 i c \0 277 Q S T R 0103720 \f \0 \0 h 032 020 \0 ( 1 0 C H A N G 0103740 E N A M E 1 ) \r N I L \r ( ) \r R 0103760 E S T O R E N A M E S D 1 \r ( 0104000 P 1 1 M A C R O Y P 1 0 0104020 M A C R O X P 9 Z P 0104040 8 N E W P 7 D E F P 0104060 6 F N P 5 M A C R O Y 0104100 P 4 M A C R O X P 3 X 0104120 X X I 0 F N F 1 2 R 0104140 E S E T V A R S L S T F 1 3 0104160 B R O K E N F N S F 1 4 0104200 N O L I N K M E S S ) 001 \0 \f 003 0104220 \0 001 021 0 002 @ g \0 \0 \n \0 \0 261 \0 343 d 0104240 001 021 1 006 N g \0 \0 \n \0 \0 265 \f N g \0 0104260 \0 \n \0 \0 265 003 N \t \0 \0 K g \0 \0 N \v 0104300 \0 \0 021 022 \t O 020 \t \0 \0 277 O 020 W 032 034 0104320 235 g \0 \0 O 020 W 032 \n \0 \0 \n \0 \0 277 K 0104340 N g \0 \0 \n \0 \0 \n \0 \0 _ 022 231 N g \0 0104360 \0 O 022 \v \0 \0 206 N g \0 \0 \n \0 \0 277 O 0104400 020 g \0 \0 \n \0 \0 277 O 016 264 5 g \0 \0 W 0104420 034 032 W 030 032 c 030 021 021 \v W 030 _ 026 277 o 0104440 \0 \0 \0 g \0 \0 \n \0 \0 O 024 001 002 c 034 277 0104460 O 026 d W 030 360 236 277 O 024 002 c 030 260 033 o 0104500 \0 \0 \0 032 260 , W 030 \n \0 \0 234 W 030 k O 0104520 026 \v \0 \0 O 024 002 031 277 265 005 \b \0 \0 022 001 0104540 255 O 020 o \0 \0 \0 N h 032 \n \0 \0 032 200 K 0104560 022 022 270 I 265 \a H h 032 Z 201 H & 271 002 003 0104600 265 003 202 261 377 034 J 022 @ g \0 \0 \n \0 \0 277 0104620 020 \0 ( 2 5 2 / R E M P R O P 0104640 2 1 8 \ A P P E N D 2 2 0 3 0104660 E R R O R ! 1 9 3 N L E F 0104700 T 1 8 4 T A I L P 1 5 0 0104720 R E S T O R E N A M E S A 0 0 0 0104740 1 1 1 6 / R E M P R O P 1 0104760 0 7 / R E M P R O P 9 9 / 0105000 P U T P R O P 8 7 R E M O V 0105020 E 8 4 G E T P R O P 7 5 0105040 / S E T A T O M V A L 7 2 R 0105060 E M O V E 5 5 / P U T D 4 0105100 7 P A C K * 3 9 G E T D 0105120 3 3 G E T P 2 4 G E T P 0105140 9 G E T P R O P ) \r ( 2 4 9 0105160 N A M E S C H A N G E D 1 4 7 0105200 I N T E R N A L 1 2 4 N O 0105220 L I N K M E S S 1 1 3 A L I 0105240 A S 1 0 4 N A M E S C H A N 0105260 G E D 9 4 N A M E S C H A N 0105300 G E D 8 1 N A M E S C H A N 0105320 G E D 6 5 B R O K E N F N S 0105340 4 3 - I N - 3 0 B R O K 0105360 E N 2 1 A D V I S E D 6 0105400 N A M E S C H A N G E D ) \r ( 0105420 2 1 2 ( n o t f o u n d i 0105440 n ) 1 7 6 ( n o t d e f i 0105460 n e d ) 1 4 4 ( R E S T O R 0105500 E N A M E S A 0 0 0 1 ) ) \r W B 0105520 R E A K D 1 \r ( L ( 0 - a 0105540 r g s - ) F 3 W B R E A K 0105560 ) \0 033 003 001 002 \0 e 021 001 \0 021 002 k 0105600 H 361 221 i 203 i 271 k a 272 S I 223 J c 006 0105620 277 020 \0 N I L \r N I L \r ( ) \r ( R 0105640 P A Q ? H E L P D E P T H 7 0105660 ) \r ( R P A Q ? W B R E A K ) 0105700 \r ( R P A Q ? B R E A K D E L 0105720 I M I T E R " \r " ) \r ( R P A 0105740 Q ? H E L P T I M E 1 0 0 0 0105760 ) \r ( R P A Q ? H E L P C L O 0106000 C K ) \r ( R P A Q ? N L S E T 0106020 Q G A G T ) \r ( R P A Q ? * 0106040 M A C R O E X P A N D - H O O K 0106060 * ( Q U O T E C L : F U N C 0106100 A L L ) ) \r ( R P A Q ? C O M 0106120 P I L E R M A C R O P R O P S 0106140 ( Q U O T E ( D M A C R O A 0106160 L T O M A C R O B Y T E M A C 0106200 R O M A C R O ) ) ) \r ( A D D 0106220 T O V A R W I N D O W U S E R 0106240 F O R M S ( W B R E A K T ) 0106260 ) \r ( A D D T O V A R E N D O 0106300 F W I N D O W U S E R F O R M S 0106320 ( W B R E A K N I L ) ) \r X 0106340 C L : : I N T E R E S T I N G - 0106360 F R A M E - P D 1 \r ( P 0 0106400 N A M E I 1 I N T E R P F 0106420 L G I 0 P O S F 1 O 0106440 P E N F N S ) \0 l 001 001 \0 002 @ d 0106460 005 \b 222 \t \0 \0 021 001 \0 H 004 l 004 360 264 Z 0106500 H d g \0 \0 360 221 h 020 g \0 \0 360 234 l 002 0106520 @ \n \0 \0 g \0 \0 360 h 360 020 H d g \0 \0 0106540 360 231 277 l 002 @ \n \0 \0 h 360 020 g \0 \0 360 0106560 230 l 003 @ \n \0 \0 h 360 020 H 004 l 004 360 h 0106600 360 265 027 H d Q 034 221 A 020 \t \0 \0 l \ 360 0106620 h 360 265 006 H \t \0 \0 020 \0 ( 1 0 5 E 0106640 X P R P 9 4 C H C O N 1 7 0106660 2 S T K A R G 5 8 S T K A 0106700 R G 3 7 S T K A R G 7 S 0106720 T K N A M E ) \r ( 6 4 A P P L 0106740 Y 4 9 E V A L 4 0 I N T 0106760 E R N A L 2 9 E R R O R S E 0107000 T 2 2 * E N V * ) \r ( ) \r ( 0107020 R P A Q Q N B R E A K S 0 ) 0107040 \r ( C L : P R O C L A I M ( Q 0107060 U O T E ( C L : S P E C I A L 0107100 B R K E X P B R K T Y P E 0107120 B R K C O N D B R K P O S ) ) 0107140 ) \r ( P U T P R O P S D E B U 0107160 G G E R F I L E T Y P E C L 0107200 : C O M P I L E - F I L E ) \r ( 0107220 P U T P R O P S D E B U G G E 0107240 R C O P Y R I G H T ( " X e 0107260 r o x C o r p o r a t i o n " 0107300 1 9 8 6 ) ) \r N I L \r 0107314