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