$ od -c -N 50000 [eris]<LispCore>SOURCES>ACODE.DCOM!33
0000000 ( F I L E C R E A T E D " 1
0000020 - O c t - 8 6 1 6 : 5 6 : 2 1
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > A C O D E .
0000120 ; 2 6 ) \r " 2 7 - S e p - 8 6
0000140 0 0 : 3 3 : 5 8 " b r e c o
0000160 m p i l e d c h a n g e s :
0000200 W H O C A L L S W H O C A L L
0000220 S 1 i n " X e r o x L i s
0000240 p 2 7 - S e p - 8 6 . . . "
0000260 d a t e d \r " 2 7 - S e p -
0000300 8 6 0 0 : 5 1 : 4 7 " ) \r ( F
0000320 I L E C R E A T E D " 1 - O
0000340 c t - 8 6 1 6 : 5 5 : 1 8 "
0000360 { E R I S } < L I S P C O R E >
0000400 S O U R C E S > A C O D E . ; 2
0000420 6 4 6 0 2 2 c h a n g e s
0000440 t o : ( F N S W H O C A L L
0000460 S \r W H O C A L L S 1 ) ( V
0000500 A R S A C O D E C O M S ) p
0000520 r e v i o u s d a t e : " 2
0000540 4 - J u l - 8 6 1 1 : 0 5 : 4
0000560 0 " { E R I S } < L I S P C O
0000600 R E > S O U R C E S > A C O D E
0000620 . ; 2 5 ) \r C A L L S C C O D E
0000640 D 1 \r ( L ( 2 F N A P P L
0000660 Y 1 O P T I O N 0 D E F
0000700 ) F 2 2 Q I G N O R E F N
0000720 S ) 002 Y 022 001 \0 003 @ \t \0 \0 265 \n @
0000740 o \0 \0 \0 \n \0 \0 021 261 \v A g \0 \0 360 222
0000760 261 \0 202 H 310 006 276 l 020 N l \b 330 340 _ 026
0001000 277 _ 024 277 j H O 024 302 341 H O 024 k 330 302
0001020 344 321 _ 016 262 ^ H O 026 302 d j 360 244 d l
0001040 200 360 224 277 g \0 \0 203 277 g \0 \0 _ 020 277 A
0001060 g \0 \0 360 245 A g \0 \0 360 231 O 016 O 020 l
0001100 002 B 016 260 034 O 020 g \0 \0 360 231 O 016 d J
0001120 034 254 J 032 Z 210 O 016 d I 034 242 I 032 Y 277
0001140 O 024 l 002 324 _ 024 277 O 026 l 002 324 _ 026 277
0001160 260 224 H 310 003 021 Q 021 H O 030 d k 324 _ 030
0001200 277 302 _ 032 \t \0 \0 _ 022 002 002 001 _ " j 361
0001220 264 \f H O 030 d k 324 _ 030 277 302 _ 034 277 O
0001240 " k 361 264 \f H O 030 d k 324 _ 030 277 302 _
0001260 036 277 O " l 002 361 264 \f H O 030 d k 324 _
0001300 030 277 302 _ 277 O 022 002 001 d g \0 \0 360 262
0001320 033 023 A g \0 \0 360 257 A g \0 \0 360 251 A d
0001340 g \0 \0 360 242 261 001 ( h 020 d g \0 \0 360 263
0001360 033 d g \0 \0 360 263 024 d g \0 \0 360 253 d g
0001400 \0 \0 360 245 d g \0 \0 360 227 277 j O 034 341 O
0001420 036 215 d g \0 \0 360 262 * 277 j O 036 341 O
0001440 330 321 _ 016 277 A g \0 \0 360 250 A d g \0 \0
0001460 360 262 _ 277 O 016 g \0 \0 l 002 B 016 277 261 377
0001500 : d g \0 \0 360 246 d g \0 \0 360 262 @ 277 A
0001520 d g \0 \0 360 223 277 261 377 ! g \0 \0 360 246 A
0001540 g \0 \0 360 262 025 j O 034 341 O 036 330 321 g \0
0001560 \0 l 002 B 016 277 261 377 002 j O 034 341 O 036 330
0001600 321 d K 034 242 K 032 [ 277 261 376 357 277 261 376 353
0001620 g \0 \0 360 222 261 376 343 O 016 d W $ 034 223 277
0001640 261 376 330 \t \0 \0 265 \n A i 360 262 R 261 376 313
0001660 A \n \0 \0 _ 032 242 261 376 301 A i 360 231 O 032
0001700 I \n \0 \0 271 261 376 263 O 032 001 M \n \0 \0 275
0001720 O 032 002 002 001 J \n \0 \0 272 O 032 002 002 002 001
0001740 I \n \0 \0 271 O 032 002 002 002 002 001 K \n \0 \0
0001760 273 O 032 002 001 L \n \0 \0 274 261 376 ~ O 016 d
0002000 L 034 223 277 261 376 t L 032 274 261 376 n i 360 225
0002020 I K \n \0 \0 020 M \t \0 \0 L \t \0 \0 J \t
0002040 \0 \0 I \t \0 \0 K \t \0 \0 h 032 032 032 032 032
0002060 020 \0 ( 1 1 2 0 Q R E V E R S E
0002100 1 1 1 4 Q R E V E R S E 1
0002120 1 1 0 Q R E V E R S E 1 1 0
0002140 4 Q R E V E R S E 1 1 0 0 Q
0002160 R E V E R S E 1 0 7 3 Q \
0002200 C A L L S C C O D E / R U N I O
0002220 N 1 0 3 7 Q \ C A L L S C C
0002240 O D E / R U N I O N 1 0 2 6 Q
0002260 \ C A L L S C C O D E / R U N
0002300 I O N 1 0 1 2 Q \ C A L L S
0002320 C C O D E / R U N I O N 7 7 7
0002340 Q \ C A L L S C C O D E / R U
0002360 N I O N 7 6 5 Q \ C A L L S
0002400 C C O D E / R U N I O N 7 5 2
0002420 Q \ C A L L S C C O D E / R U
0002440 N I O N 7 3 2 Q C A L L S C
0002460 C O D E 7 1 4 Q \ S U B F N
0002500 D E F 2 5 5 Q \ F I N D O P
0002520 1 5 Q E R R O R 3 \ G E
0002540 T - C O M P I L E D - C O D E -
0002560 B A S E ) \r ( 6 7 1 Q V A R A
0002600 P P L Y 6 2 7 Q G L O B A L
0002620 S 6 1 1 Q A P P L Y 6 0 3
0002640 Q V A R A P P L Y 5 7 2 Q
0002660 F N A P P L Y 5 6 1 Q G V A
0002700 R _ 5 5 3 Q G V A R 5 3 7
0002720 Q C A L L E D 5 2 6 Q A P
0002740 P L Y 5 1 7 Q F N A P P L Y
0002760 4 7 4 Q F N X 4 5 6 Q F
0003000 N 4 4 5 0 Q F N 3 4 4 2 Q
0003020 F N 2 4 3 3 Q F N 1 4 2
0003040 4 Q F N 0 4 1 1 Q A P P L
0003060 Y 4 0 2 Q V A R A P P L Y
0003100 3 7 4 Q F N A P P L Y 3 6 4
0003120 Q - X - 1 6 0 Q B O U N D
0003140 1 3 7 Q A P P L Y 1 3 1 Q
0003160 V A R A P P L Y 1 2 2 Q U
0003200 S E D F R E E 1 1 5 Q B O U
0003220 N D 2 4 Q F N A P P L Y ) \r
0003240 ( 1 2 Q " n o t c o m p i
0003260 l e d c o d e " ) \r \ C A L L
0003300 S C C O D E / R U N I O N D 1
0003320 \r ( L ( 1 L 2 0 L 1 ) )
0003340 \0 032 001 \0 \0 002 @ 021 001 \0 H 003 265 004 A
0003360 020 001 d A 034 243 A 032 b 002 277 H 002 X 260 356
0003400 \0 N I L \r N I L \r ( ) \r C H A N
0003420 G E C C O D E D 1 \r ( L ( 2
0003440 F N 1 O L D R E F 0 N
0003460 E W R E F ) P 1 2 Q \ I N
0003500 T E R R U P T A B L E ) 001 1 \v
0003520 \0 \0 003 o \0 \0 \0 021 a 006 B \t \0 \0 d 242
0003540 261 001 " Y A d 003 001 H 360 257 H I A \n \0
0003560 \0 032 b 002 277 @ 360 262 025 A 020 002 001 001 I 360
0003600 252 o \0 \0 \0 A B 032 \n \0 \0 277 A 261 \0 354
0003620 d 001 ^ 001 271 N 002 001 255 N 002 002 001 250 N d
0003640 002 002 002 001 262 023 277 @ 004 l 004 360 250 o \0 \0
0003660 \0 @ \n \0 \0 277 N 002 001 260 & d 001 272 I J
0003700 @ 006 \0 \0 323 021 003 \t O 016 O 020 O 022 343 307
0003720 277 O 016 O 020 k 330 O 022 l 377 345 307 023 002 003
0003740 265 333 N 002 002 001 260 & d 001 273 I K @ 006 \0
0003760 \0 323 021 003 \t O 016 O 020 O 022 343 307 277 O 016
0004000 O 020 k 330 O 022 l 377 345 307 023 002 003 265 333 N
0004020 002 002 002 001 260 & d 001 274 I L @ 006 \0 \0 323
0004040 021 003 \t O 016 O 020 O 022 343 307 277 O 016 O 020
0004060 k 330 O 022 l 377 345 307 023 002 003 265 333 N 002 002
0004100 002 002 001 260 3 d 001 275 021 020 \n @ 025 \0 277 I
0004120 M @ 322 307 277 I M k 330 @ 323 021 003 \t O 016
0004140 O 020 O 022 343 307 277 O 016 O 020 k 330 O 022 l
0004160 377 345 307 023 023 002 003 265 316 002 003 265 003 202 261 377
0004200 022 A 020 \0 ( 1 4 1 Q E R R O R
0004220 6 7 Q E R R O R 3 5 Q \ C
0004240 H A N G E C C O D E / C C C S C
0004260 A N 1 2 Q \ G E T - C O M P
0004300 I L E D - C O D E - B A S E ) \r
0004320 ( 3 1 3 Q L I T A T O M 2 3
0004340 5 Q L I T A T O M 1 6 0 Q
0004360 L I T A T O M ) \r ( 1 3 5 Q
0004400 " C a n ' t c h a n g e n a m
0004420 e a s y m b o l t o a
0004440 n o n - s y m b o l i n c o
0004460 m p i l e d c o d e " 6 1 Q
0004500 " I n c o n s i s t e n t r
0004520 e f e r e n c e m a p " 3 \r
0004540 " r e f m a p " ) \r \ C H A N
0004560 G E C C O D E / C C C S U B F N
0004600 ? D 1 \r ( L ( 0 X ) F
0004620 2 S U B M A P S F 3 O L
0004640 D R E F ) \0 6 002 002 \0 001 @ \t \0 \0
0004660 d 262 036 \t \0 \0 b \0 R 021 021 001 H 003 265 022
0004700 h 022 265 \r R @ S \n \0 \0 \n \0 \0 c 004 020
0004720 001 Y 001 @ 360 225 I 265 352 i 260 347 H 002 X 260
0004740 336 \0 ( 4 0 Q \ N C O N C 2 3
0004760 5 Q \ C H A N G E C C O D E /
0005000 C C C S C A N 1 1 Q \ G E T
0005020 - C O M P I L E D - C O D E - B
0005040 A S E 3 \ S U B F N D E F )
0005060 \r N I L \r ( ) \r \ C H A N G E C
0005100 C O D E / C C C S C A N D 1 \r
0005120 ( L ( 0 D E F ) P 4 S
0005140 U B M A P S I 1 O L D R E
0005160 F ) 001 . 020 \0 \0 002 @ 021 361 017 H 310 003
0005200 _ 020 277 A 004 l 004 360 262 031 l 020 _ 022 277 j
0005220 H O 022 302 341 H O 022 k 330 302 344 321 _ 016 265
0005240 6 H O 020 302 \t \0 \0 276 O 020 N 002 002 001 k
0005260 324 324 _ 020 277 N 002 002 002 001 265 005 N 002 001 d
0005300 g \0 \0 360 262 277 H M I J K h 032 032 032
0005320 032 032 L 032 020 A 360 224 O 022 M 032 275 O 022 l
0005340 002 324 260 252 d g \0 \0 360 246 d g \0 \0 360 262
0005360 @ 277 H O 020 l 002 331 _ 026 277 _ 024 O 026 302
0005400 341 O 024 O 026 k 330 302 344 _ 016 277 A 004 l 004
0005420 360 262 023 O 016 A 006 \0 \0 323 360 227 O 020 l 002
0005440 331 J 032 272 j O 016 321 \t \0 \0 277 261 377 u d
0005460 g \0 \0 360 262 8 277 A 004 l 004 360 242 261 377 d
0005500 H O 020 l 002 331 _ 032 277 _ 030 O 032 302 341 O
0005520 030 O 032 k 330 302 344 A 006 \0 \0 323 360 242 261 377
0005540 C O 020 l 002 331 I 032 271 261 377 8 g \0 \0 360
0005560 242 261 377 0 H O 020 l 003 331 302 H O 020 l 002
0005600 331 _ 036 277 _ 034 O 036 302 341 O 034 O 036 k 330
0005620 302 344 321 _ 016 A 360 242 261 377 \t O 020 l 003 331
0005640 K 032 273 261 376 376 \0 ( 2 6 1 Q \ C H
0005660 A N G E C C O D E / C C C S U B
0005700 F N ? 5 6 Q \ F I N D O P )
0005720 \r ( 3 6 5 Q G C O N S T 3 4
0005740 1 Q L I T A T O M 2 7 1 Q
0005760 A T O M 2 3 7 Q L I T A T O
0006000 M 1 6 4 Q F N X 1 5 6 Q
0006020 F N 1 1 1 Q - X - ) \r ( ) \r
0006040 P R I N T C O D E D 1 \r ( L
0006060 ( 6 F N . I S . C O D E B A S
0006100 E 5 P C 4 F I R S T B Y
0006120 T E 2 R A D I X 1 L V F
0006140 L G 0 F N ) P 2 5 Q *
0006160 P R I N T - B A S E * P 1 2
0006200 Q I V A R S P 1 1 Q F V
0006220 A R S P 1 0 Q P V A R S
0006240 P 2 I 6 P 1 I 4 P
0006260 0 C O D E B A S E I 3 O
0006300 U T F ) \t b 037 \0 \0 \a B 244 l \b b
0006320 004 277 F 222 @ 260 $ @ \t \0 \0 265 036 @ d 004
0006340 l 004 360 235 301 002 311 \0 g \0 \0 ' \t \0 \0 265
0006360 \n @ o \0 \0 \0 \n \0 \0 g \0 \0 l 004 B h
0006400 032 032 032 g \0 \0 l 006 B h 032 032 032 021 363 021
0006420 021 0 024 B 021 001 025 j _ 026 277 l 020 O 026 361
0006440 242 261 \0 326 I O 026 C \v \0 \0 277 o \0 \0 \0
0006460 C \n \0 \0 277 J H O 026 302 341 H O 026 k 330
0006500 302 344 C \v \0 \0 277 O 026 d j 360 227 277 o \0
0006520 \0 \0 261 \0 223 l 002 360 226 o \0 \0 \0 261 \0 210
0006540 O 026 d l 004 360 226 277 o \0 \0 \0 260 y l 006
0006560 360 225 o \0 \0 \0 260 o O 026 d l \b 360 262 #
0006600 277 o \0 \0 \0 C \n \0 \0 277 H 312 004 ! C \n
0006620 \0 \0 277 H 312 004 p j 360 263 Q o \0 \0 \0 260
0006640 F l \n 360 235 o \0 \0 \0 C \n \0 \0 277 H 311
0006660 004 260 4 O 026 d l \f 360 226 277 o \0 \0 \0 260
0006700 & l 016 360 262 & o \0 \0 \0 C \n \0 \0 277 H
0006720 312 \a \a C \n \0 \0 277 o \0 \0 \0 C \n \0 \0
0006740 277 H 312 \a 207 C \n \0 \0 277 C \t \0 \0 277 O
0006760 026 l 002 324 261 377 $ 023 H 310 006 [ o \0 \0 \0
0007000 l 020 K 340 \v \0 \0 H 310 003 \ d K d j 360
0007020 223 277 l \b 201 340 340 l 020 330 ^ 331 [ d l 004
0007040 363 234 277 o \0 \0 \0 N K 342 \v \0 \0 260 $ l
0007060 004 360 262 C \t \0 \0 277 o \0 \0 \0 C \n \0
0007100 \0 277 H N 342 320 311 \0 C \n \0 \0 277 C \t \0
0007120 \0 277 C \t \0 \0 277 o \0 \0 \0 C \n \0 \0 277
0007140 C \t \0 \0 L A 264 003 j 021 r 036 O . 262 036
0007160 g \0 \0 \t \0 \0 277 g \0 \0 \t \0 \0 277 ` \0
0007200 \0 \t \0 \0 277 ` \0 \0 \t \0 \0 277 E 265 N D
0007220 227 D O , 361 222 261 001 U I O , C \v \0 \0
0007240 277 o \0 \0 \0 C \n \0 \0 277 A 242 261 \0 214 O
0007260 , ` \0 \0 \n \0 \0 276 O . 262 \ N 262 h O
0007300 . N 360 234 O < O , ` \0 \0 \n \0 \0 364 263
0007320 V o \0 \0 \0 C \n \0 \0 260 K O , 361 263 261
0007340 O , E 331 j 360 263 033 o \0 \0 \0 C \n \0 \0
0007360 277 I E C \v \0 \0 277 o \0 \0 \0 C \n \0 \0
0007400 277 o \0 \0 \0 C \n \0 \0 277 C \t \0 \0 277 h
0007420 b \n 277 261 377 | N _ . 277 O , ` \0 \0 \n
0007440 \0 \0 _ < 277 O . 237 l \a h C \v \0 \0 277
0007460 I O . C \v \0 \0 277 l \f h C \v \0 \0 277
0007500 H O , d k 324 _ , 277 302 _ 0 \t \0 \0 ]
0007520 002 002 001 _ 8 277 I O 0 C \v \0 \0 277 O 8
0007540 d j 361 262 027 277 I H O , d k 324 _ , 277
0007560 302 _ 2 C \v \0 \0 277 O 8 k 361 262 024 I H
0007600 O , d k 324 _ , 277 302 _ 4 C \v \0 \0 277
0007620 O 8 l 002 361 262 024 I H O , d k 324 _ ,
0007640 277 302 _ 6 C \v \0 \0 277 l 036 h C \v \0 \0
0007660 277 M 002 001 C \n \0 \0 277 M 001 _ 016 277 M 002
0007700 002 002 002 001 _ : 277 O 016 003 265 003 202 261 001 :
0007720 M 002 002 002 001 265 005 M 002 001 ] d g \0 \0 360
0007740 242 261 001 - 277 C \t \0 \0 h 020 H O , d k
0007760 324 _ , 277 302 \t \0 \0 ] 002 002 002 001 265 005 M
0010000 002 001 d g \0 \0 360 263 335 d g \0 \0 360 262 035
0010020 277 O . 262 } O . H O , 302 l 017 345 331 k
0010040 330 _ . O < 032 _ < 277 260 Z d g \0 \0 360
0010060 262 024 277 O . 262 [ O < 001 O < 002 _ < 277
0010100 _ . 260 C d g \0 \0 360 262 026 277 O . 262 B
0010120 O < 001 O < 002 _ < 277 k 331 _ . 260 ( d
0010140 g \0 \0 360 225 277 h _ . 260 034 g \0 \0 360 262
0010160 024 O . 262 035 O . H O , k 330 302 331 k 330
0010200 _ . 277 O . 231 M 002 002 002 002 001 _ : 265 016
0010220 O , M 002 002 001 324 _ , 261 375 362 d 003 225 277
0010240 O : 001 _ : g \0 \0 360 235 O . k H O ,
0010260 302 331 324 _ . 277 260 332 O : d g \0 \0 360 234
0010300 277 O . H O , 302 331 _ . 277 260 305 g \0 \0
0010320 360 250 O : d g \0 \0 360 226 277 h _ . 277 260
0010340 261 g \0 \0 360 250 O : d g \0 \0 360 232 277 O
0010360 . m 377 324 _ . 277 260 231 3 020 262 225 O . O
0010400 : 324 _ . 277 260 213 001 _ 016 277 261 376 305 g \0
0010420 \0 360 262 Q l ( h C \v \0 \0 277 O 8 j 360
0010440 225 O 0 O 016 331 202 O 2 342 O 024 026 265 - o
0010460 \0 \0 \0 C \n \0 \0 277 g \0 \0 C \n \0 \0 277
0010500 O 8 j 360 225 O 0 O 016 331 202 O 2 342 C \n
0010520 \0 \0 277 o \0 \0 \0 261 004 ] 002 001 C \n \0 \0
0010540 261 004 X M d g \0 \0 360 262 R 277 l ( h C
0010560 \v \0 \0 277 O 8 j 360 225 O 0 O 016 331 202 O
0010600 2 342 O 020 026 265 - o \0 \0 \0 C \n \0 \0 277
0010620 g \0 \0 C \n \0 \0 277 O 8 j 360 225 O 0 O
0010640 016 331 202 O 2 342 C \n \0 \0 277 o \0 \0 \0 261
0010660 004 005 002 001 C \n \0 \0 261 004 \0 g \0 \0 360 262
0010700 Q l ( h C \v \0 \0 277 O 8 j 360 225 O 0
0010720 O 016 331 202 O 2 342 O 022 026 265 - o \0 \0 \0
0010740 C \n \0 \0 277 g \0 \0 C \n \0 \0 277 O 8 j
0010760 360 225 O 0 O 016 331 202 O 2 342 C \n \0 \0 277
0011000 o \0 \0 \0 261 003 260 002 001 C \n \0 \0 261 003 253
0011020 M d g \0 \0 360 262 Z 277 O 0 O 016 331 l 002
0011040 330 _ 030 277 o \0 \0 \0 C \n \0 \0 277 I O 030
0011060 O , O 8 k 330 331 330 _ 030 C \v \0 \0 277 O
0011100 . 242 261 003 w O 030 O : g \0 \0 360 246 O :
0011120 g \0 \0 360 222 O . 203 O . k 331 ` \0 \0 \v
0011140 \0 \0 277 O 030 O < ` \0 \0 \v \0 \0 261 003 K
0011160 g \0 \0 360 262 023 l ( h C \v \0 \0 277 O 2
0011200 C \n \0 \0 261 003 4 M d g \0 \0 360 262 030 277
0011220 l ( h C \v \0 \0 277 O 2 n 001 \0 331 C \n
0011240 \0 \0 261 003 026 g \0 \0 360 262 027 l ( h C \v
0011260 \0 \0 277 O 2 341 O 4 330 C \n \0 \0 261 002 373
0011300 M d g \0 \0 360 262 a 277 l 200 O 2 361 246 O
0011320 2 n 001 \0 331 201 O 2 _ 032 277 o \0 \0 \0 C
0011340 \n \0 \0 277 I O 032 O , O 8 k 330 331 330 _
0011360 032 C \v \0 \0 277 O . 242 261 002 300 O 032 O :
0011400 g \0 \0 360 246 O : g \0 \0 360 222 O . 203 O
0011420 . k 331 ` \0 \0 \v \0 \0 277 O 032 O < ` \0
0011440 \0 \v \0 \0 261 002 224 g \0 \0 360 262 032 O 2 341
0011460 O 4 330 _ 0 277 l ( h C \v \0 \0 277 j O
0011500 0 321 261 002 r M d g \0 \0 360 242 261 \0 346 277
0011520 l ( h C \v \0 \0 277 O 2 342 342 342 342 O 2
0011540 l 017 345 _ & 277 _ $ 277 O 4 O $ 331 O 4
0011560 O $ O & 330 331 k 330 _ 036 277 _ 034 277 O 036
0011600 O 034 363 263 ? k C \n \0 \0 277 O 036 O 020 026
0011620 265 # o \0 \0 \0 C \n \0 \0 277 g \0 \0 C \n
0011640 \0 \0 277 O 036 C \n \0 \0 277 o \0 \0 \0 C \n
0011660 \0 \0 205 002 001 C \n \0 \0 277 O 036 k 324 _ 036
0011700 260 300 g \0 \0 C \n \0 \0 277 O 4 d O $ 331
0011720 k 330 _ " 277 _ 277 O " O 363 263 ? k
0011740 C \n \0 \0 277 O " O 020 026 265 # o \0 \0 \0
0011760 C \n \0 \0 277 g \0 \0 C \n \0 \0 277 O " C
0012000 \n \0 \0 277 o \0 \0 \0 C \n \0 \0 205 002 001 C
0012020 \n \0 \0 277 O " k 324 _ " 260 300 O . 265 005
0012040 261 001 231 O & 331 k 330 _ . O < 032 _ < 261
0012060 001 211 g \0 \0 360 262 d O 2 341 O 4 O 2 l
0012100 177 361 224 o \0 \0 \0 200 j 330 330 _ ( 277 o \0
0012120 \0 \0 C \n \0 \0 277 I O ( O , O 8 k 330
0012140 331 330 _ ( C \v \0 \0 277 O . 242 261 001 M O
0012160 ( O : g \0 \0 360 246 O : g \0 \0 360 222 O
0012200 . 203 O . k 331 ` \0 \0 \v \0 \0 277 O ( O
0012220 < ` \0 \0 \v \0 \0 261 001 ! M d g \0 \0 360
0012240 262 032 277 l ( h C \v \0 \0 277 j O 2 341 O
0012260 4 330 321 C \n \0 \0 261 001 001 g \0 \0 360 262 032
0012300 l ( h C \v \0 \0 277 O 2 O 4 341 O 6 330
0012320 321 C \n \0 \0 261 \0 343 M d g \0 \0 360 262 /
0012340 277 o \0 \0 \0 C \n \0 \0 277 O 2 C \n \0 \0
0012360 277 o \0 \0 \0 C \n \0 \0 277 l ( h C \v \0
0012400 \0 277 j O 4 341 O 6 330 321 261 \0 252 g \0 \0
0012420 360 262 ! o \0 \0 \0 C \n \0 \0 277 O 2 \t \0
0012440 \0 265 005 g \0 \0 C \n \0 \0 277 o \0 \0 \0 261
0012460 \0 205 M d g \0 \0 360 262 024 277 O . 262 | O
0012500 < 001 O < 002 _ < 277 _ . 260 n g \0 \0 360
0012520 262 025 O . 262 e O < 001 O < 002 _ < 277 k
0012540 331 _ . 260 U M d g \0 \0 360 225 277 h _ .
0012560 260 H g \0 \0 360 262 ) l ( h C \v \0 \0 277
0012600 ` \0 \0 O 2 k 330 \n \0 \0 001 C \n \0 \0 277
0012620 O . 262 ' O . O 4 331 k 330 _ . 260 033 M
0012640 003 262 030 l ( h C \v \0 \0 277 M O 2 k 330
0012660 \n \0 \0 001 C \n \0 \0 277 C \t \0 \0 277 O .
0012700 242 261 370 313 O : 242 261 370 305 O : d g \0 \0
0012720 360 234 277 O . k O 2 331 324 _ . 261 370 257 g
0012740 \0 \0 360 231 O . O 2 331 _ . 261 370 240 O :
0012760 g \0 \0 360 250 O : d g \0 \0 360 226 277 h _
0013000 . 261 370 212 g \0 \0 360 250 O : d g \0 \0 360
0013020 232 277 O . m 377 324 _ . 261 370 r 3 020 242 261
0013040 370 m O . O : 324 _ . 261 370 b \0 ( 4 3
0013060 6 1 Q T E R P R I 4 3 5 4 Q
0013100 P R I N 1 4 3 4 7 Q N T H
0013120 4 3 3 6 Q T A B 4 3 0 3 Q
0013140 P R I N 2 4 2 7 6 Q N T H
0013160 4 2 6 3 Q T A B 4 1 3 6 Q
0013200 P R I N 1 4 1 2 5 Q \ T Y
0013220 P E N A M E F R O M N U M B E R
0013240 4 1 1 7 Q P R I N 1 4 0 6
0013260 5 Q T A B 4 0 5 5 Q P R I
0013300 N 1 4 0 4 4 Q P R I N 1 4
0013320 0 3 5 Q P R I N 1 4 0 1 1 Q
0013340 P R I N 2 3 7 7 3 Q T A B
0013360 3 7 5 3 Q P R I N 2 3 7 3
0013400 6 Q T A B 3 7 1 3 Q P U T
0013420 H A S H 3 7 0 0 Q P U T H A
0013440 S H 3 6 3 4 Q P R I N T N U
0013460 M 3 6 1 2 Q P R I N 1 3 5
0013500 0 7 Q P R I N 2 3 5 0 0 Q
0013520 P R I N 1 3 4 6 7 Q P R I N
0013540 1 3 4 6 0 Q P R I N 1 3 4
0013560 5 0 Q P R I N 1 3 4 3 0 Q
0013600 S P A C E S 3 3 7 5 Q P R I
0013620 N 1 3 3 5 5 Q P R I N 2 3
0013640 3 4 6 Q P R I N 1 3 3 3 5 Q
0013660 P R I N 1 3 3 2 6 Q P R I
0013700 N 1 3 3 1 6 Q P R I N 1 3
0013720 2 7 6 Q S P A C E S 3 2 1 3
0013740 Q T A B 3 1 6 1 Q T A B
0013760 3 1 3 0 Q P U T H A S H 3 1
0014000 1 5 Q P U T H A S H 3 0 5 1
0014020 Q P R I N T N U M 3 0 2 7 Q
0014040 P R I N 1 2 7 6 1 Q P R I
0014060 N 2 2 7 4 6 Q T A B 2 7 2
0014100 6 Q P R I N 2 2 7 1 3 Q T
0014120 A B 2 6 7 0 Q P R I N 2 2
0014140 6 6 1 Q T A B 2 6 4 1 Q P
0014160 U T H A S H 2 6 2 6 Q P U T
0014200 H A S H 2 5 6 2 Q P R I N T
0014220 N U M 2 5 4 0 Q P R I N 1
0014240 2 5 0 1 Q P R I N 2 2 4 6 3
0014260 Q P R I N 1 2 4 4 0 Q P R
0014300 I N 1 2 4 3 0 Q P R I N 1
0014320 2 3 7 4 Q T A B 2 3 5 4 Q
0014340 P R I N 2 2 3 3 6 Q P R I N
0014360 1 2 3 1 3 Q P R I N 1 2 3
0014400 0 3 Q P R I N 1 2 2 4 7 Q
0014420 T A B 2 2 2 4 Q P R I N 2
0014440 2 2 0 6 Q P R I N 1 2 1 6 3
0014460 Q P R I N 1 2 1 5 3 Q P R
0014500 I N 1 2 1 1 7 Q T A B 1 4
0014520 5 4 Q \ F I N D O P 1 4 3 5
0014540 Q T E R P R I 1 3 5 4 Q P
0014560 R I N 1 1 3 4 4 Q T A B 1
0014600 3 3 4 Q P R I N T N U M 1 3
0014620 0 3 Q P R I N T N U M 1 2 5
0014640 3 Q P R I N T N U M 1 2 2 1
0014660 Q P R I N T N U M 1 2 0 3 Q
0014700 \ F I N D O P 1 1 6 3 Q T
0014720 A B 1 1 5 3 Q P R I N T N U
0014740 M 1 1 4 3 Q T A B 1 1 2 6
0014760 Q G E T H A S H 1 1 0 2 Q
0015000 T E R P R I 1 0 7 5 Q P R I
0015020 N 1 1 0 6 4 Q P R I N 1 1
0015040 0 5 3 Q P R I N T N U M 1 0
0015060 4 4 Q P R I N 1 1 0 1 5 Q
0015100 P R I N 1 1 0 0 2 Q G E T H
0015120 A S H 7 5 3 Q G E T H A S H
0015140 7 3 5 Q P R I N 1 7 2 4 Q
0015160 P R I N T N U M 6 7 7 Q C
0015200 L R H A S H 6 7 0 Q C L R H
0015220 A S H 6 6 1 Q S E T U P H A
0015240 S H A R R A Y 6 5 2 Q S E T
0015260 U P H A S H A R R A Y 6 3 0 Q
0015300 T E R P R I 6 2 3 Q P R I
0015320 N 1 6 1 2 Q T E R P R I 6
0015340 0 5 Q T E R P R I 6 0 0 Q
0015360 P R I N 1 5 6 5 Q P R I N 1
0015400 5 5 4 Q T E R P R I 5 4 1
0015420 Q P R I N T C O D E N T 4 7
0015440 3 Q P R I N T C O D E N T 4
0015460 4 2 Q T E R P R I 4 3 5 Q
0015500 P R I N 1 4 2 4 Q P R I N 1
0015520 4 1 3 Q P R I N 1 4 0 2 Q
0015540 P R I N 1 3 4 1 Q P R I N
0015560 1 3 0 6 Q P R I N 1 2 7 5
0015600 Q P R I N 1 1 7 2 Q P R I
0015620 N T N U M 1 5 0 Q P R I N 1
0015640 1 3 7 Q P R I N T N U M 5
0015660 5 Q E R R O R 4 3 Q \ G E
0015700 T - C O M P I L E D - C O D E -
0015720 B A S E 1 7 Q \ G E T - C O
0015740 M P I L E D - C O D E - B A S E
0015760 ) \r ( 4 5 0 3 Q N C J U M P
0016000 4 4 7 3 Q C J U M P 4 4 5 7
0016020 Q U N W I N D 4 4 4 7 Q J
0016040 U M P 4 4 2 6 Q P O P . N
0016060 4 4 0 4 Q F N X 4 2 6 7 Q
0016100 \ I N I T S U B R S 4 2 5 1 Q
0016120 S U B R C A L L 4 2 3 6 Q
0016140 R E T U R N 4 2 0 3 Q D U N
0016160 B I N D 4 1 5 3 Q U N B I N
0016200 D 4 1 3 2 Q ? 4 1 0 4 Q
0016220 T Y P E P 4 0 2 1 Q F N X
0016240 3 7 6 1 Q G C O N S T 3 7 2
0016260 3 Q A T O M 3 7 1 0 Q \ P
0016300 R I N T C O D E . S T K S T A T
0016320 E 3 6 7 5 Q \ P R I N T C O
0016340 D E . L E V E L 3 6 6 1 Q J
0016360 U M P 3 6 5 2 Q N C J U M P
0016400 3 5 5 1 Q J U M P X X 3 4
0016420 5 4 Q p v a r 3 3 7 1 Q ;
0016440 3 3 2 2 Q p v a r 3 1 7 6
0016460 Q B I N D 3 1 3 6 Q F N
0016500 3 1 2 5 Q \ P R I N T C O D E
0016520 . S T K S T A T E 3 1 1 2 Q
0016540 \ P R I N T C O D E . L E V E L
0016560 3 0 7 6 Q J U M P 3 0 6 7
0016600 Q N C J U M P 2 7 7 1 Q J
0016620 U M P X 2 7 3 4 Q S I C X
0016640 2 7 0 0 Q S N I C 2 6 4 7 Q
0016660 S I C 2 6 3 6 Q \ P R I N
0016700 T C O D E . S T K S T A T E 2
0016720 6 2 3 Q \ P R I N T C O D E .
0016740 L E V E L 2 6 0 7 Q J U M P
0016760 2 6 0 0 Q N C J U M P 2 5
0017000 1 1 Q J U M P 2 4 3 4 Q f
0017020 v a r 2 3 6 2 Q F V A R 2
0017040 3 0 7 Q p v a r 2 2 3 4 Q
0017060 P V A R 2 1 5 7 Q i v a r
0017100 2 1 0 5 Q I V A R 2 0 4 0 Q
0017120 N C J U M P 2 0 3 0 Q C J
0017140 U M P 2 0 1 4 Q U N W I N D
0017160 2 0 0 4 Q J U M P 1 7 6 2
0017200 Q P O P . N 1 7 3 4 Q F N
0017220 X 1 6 4 2 Q S U B R C A L L
0017240 1 6 2 7 Q R E T U R N 1 5
0017260 7 4 Q D U N B I N D 1 5 4 3
0017300 Q U N B I N D 1 5 0 1 Q B
0017320 I N D 1 4 7 2 Q - X - 1 4
0017340 2 3 Q - X - 1 1 2 3 Q \ P
0017360 R I N T C O D E . S T K S T A T
0017400 E 7 7 7 Q \ P R I N T C O D
0017420 E . S T K S T A T E 7 5 0 Q
0017440 \ P R I N T C O D E . L E V E L
0017460 6 7 4 Q \ P R I N T C O D E
0017500 . S T K S T A T E 6 6 5 Q \
0017520 P R I N T C O D E . L E V E L
0017540 6 5 6 Q \ P R I N T C O D E .
0017560 S T K S T A T E 6 4 7 Q \ P
0017600 R I N T C O D E . L E V E L 7
0017620 2 Q F I X 6 0 Q F I X 3
0017640 7 Q C O D E ) \r ( 4 1 4 3 Q
0017660 " ) " 4 1 1 3 Q " ( " 4
0017700 0 5 1 Q " ) " 4 0 3 1 Q "
0017720 ( " 3 6 0 6 Q " - > " 3 5
0017740 7 3 Q - 2 0 0 0 0 0 Q 3 4 7
0017760 4 Q " ] " 3 4 4 4 Q " [ "
0020000 3 3 4 2 Q " ] " 3 3 1 2 Q
0020020 \r " [ " 3 0 2 3 Q " - > "
0020040 2 5 3 4 Q " - > " 2 4 7 0
0020060 Q " ] " 2 4 2 4 Q " [ "
0020100 2 3 4 3 Q " ] " 2 2 7 7 Q
0020120 " [ " 2 2 1 3 Q " ] " 2 1
0020140 4 7 Q " [ " 1 0 7 1 Q " -
0020160 - - - - - - - - - - - - - - - -
0020200 - - - - - - - - - - - - - " \r
0020220 1 0 6 0 Q " n o t f o u n
0020240 d ) " 1 0 4 0 Q " ( P C "
0020260 1 0 1 1 Q " * " 7 3 1 Q
0020300 " : " 6 1 7 Q " - - - - "
0020320 5 6 1 Q " I n f o : " 5
0020340 3 3 Q " L o c a l a r g s :
0020360 " 4 6 4 Q \r " n a m e t
0020400 a b l e : " 4 2 0 Q " f
0020420 v a r o f f s e t : " 3 7 6
0020440 Q " n l o c a l s : " 3
0020460 6 3 Q " n t s i z e " 3 3
0020500 5 Q " f r a m e n a m e :
0020520 " 3 2 3 Q " C l o s u r
0020540 e P " \r 2 7 1 Q " a r g
0020560 t y p e : " 2 5 2 Q " s
0020600 t a r t p c " 2 4 0 Q " p
0020620 v " 2 2 1 Q " n a " 2 0
0020640 6 Q " s t k m i n " 1 4 4
0020660 Q " : " 5 2 Q " n o t
0020700 c o m p i l e d c o d e " ) \r
0020720 P R I N T C O D E N T D 1 \r (
0020740 L ( 2 S T A R T 2 1 S T
0020760 A R T 1 0 S T R ) F 4
0021000 O U T F F 5 C O D E B A S
0021020 E F 6 I 4 F 7 I 6
0021040 F 1 0 Q F V A R S F 1 1
0021060 Q I V A R S F 1 2 Q P V
0021100 A R S ) \0 366 004 \a \0 003 021 @ 003 A B
0021120 A 330 b 004 375 361 264 025 @ T \n \0 \0 277 T \t
0021140 \0 \0 A B 273 272 B J 361 241 h 020 V J T \v
0021160 \0 \0 277 o \0 \0 \0 T \n \0 \0 277 W 016 U J
0021200 302 341 U J k 330 302 344 T \v \0 \0 277 l 003 T
0021220 \n \0 \0 277 V K T \v \0 \0 277 o \0 \0 \0 T
0021240 \n \0 \0 277 W 016 U K 302 341 U K k 330 302 344
0021260 T \v \0 \0 277 j U J 302 341 U J k 330 302 344
0021300 321 X 262 l U K k 330 302 271 l 005 T \n \0 \0
0021320 277 U K 302 d j 360 262 023 277 I H h 032 032 W
0021340 022 032 c 022 277 g \0 \0 260 # l 200 360 236 I H
0021360 h 032 032 W 024 032 c 024 277 g \0 \0 215 I H h
0021400 032 032 W 020 032 c 020 277 g \0 \0 T \n \0 \0 277
0021420 o \0 \0 \0 T \n \0 \0 277 I T \n \0 \0 277 o
0021440 \0 \0 \0 T \n \0 \0 277 H T \n \0 \0 277 T \t
0021460 \0 \0 277 J l 002 324 272 K l 002 324 273 261 377 )
0021500 \0 ( 3 4 6 Q T E R P R I 3 4
0021520 1 Q P R I N 1 3 3 3 Q P R
0021540 I N 1 3 2 2 Q P R I N 1 3
0021560 1 4 Q P R I N 1 3 0 3 Q P
0021600 R I N 1 2 0 4 Q S P A C E S
0021620 1 5 0 Q P R I N T N U M 1
0021640 2 7 Q P R I N 1 1 1 6 Q P
0021660 R I N T N U M 1 0 7 Q S P A
0021700 C E S 1 0 0 Q P R I N T N U
0021720 M 5 7 Q P R I N 1 4 6 Q
0021740 P R I N T N U M 2 6 Q T E R
0021760 P R I 2 1 Q P R I N 1 ) \r (
0022000 2 7 7 Q F V A R 2 6 0 Q P
0022020 V A R 2 3 4 Q I V A R ) \r (
0022040 3 2 7 Q " : " 3 1 0 Q
0022060 " " 1 2 3 Q " : " 5 3
0022100 Q " : " ) \r W H O C A L L S
0022120 D 1 \r ( P 5 V A L P 4
0022140 C A L L T Y P E I 1 U S
0022160 A G E I 0 C A L L E E )
0022200 \0 250 006 \0 \0 002 A d 003 262 9 277 021 @ 003 A
0022220 260 % d 001 [ l F o \0 \0 \0 \v \0 \0 265 006
0022240 K \t \0 \0 270 I 221 h 200 i 224 H h 032 Z 202
0022260 I H & 271 002 003 265 334 J 022 b 002 277 g \0 \0
0022300 260 b g \0 \0 360 263 $ A g \0 \0 360 263 035 A
0022320 g \0 \0 360 263 026 A g \0 \0 360 255 A g \0 \0
0022340 360 247 A d g \0 \0 360 233 277 g \0 \0 b 002 277
0022360 g \0 \0 260 / g \0 \0 360 255 A d g \0 \0 360
0022400 247 d g \0 \0 360 232 277 A h 032 b 002 277 g \0
0022420 \0 217 227 A d g \0 \0 360 224 277 g \0 \0 202 \t
0022440 \0 \0 021 021 005 g \0 \0 \t \0 \0 M 020 \0 ( 2
0022460 4 4 Q M A P A T O M S 2 3 3
0022500 Q \ I L L E G A L . A R G 3
0022520 5 Q \ I L L E G A L . A R G
0022540 2 7 Q M I S S P E L L E D ? )
0022560 \r ( 2 4 1 Q W H O C A L L S 1
0022600 2 2 7 Q F N A P P L Y 2 2
0022620 1 Q C A L L S 2 1 2 Q V A
0022640 R A P P L Y 1 7 6 Q G L O B
0022660 A L S 1 7 0 Q U S E D F R E
0022700 E 1 6 1 Q B O U N D 1 5 4
0022720 Q V A R A P P L Y 1 4 6 Q
0022740 U S E S 1 4 0 Q G L O B A L
0022760 S 1 3 1 Q U S E D F R E E
0023000 1 2 3 Q B O U N D 1 1 4 Q
0023020 V A R S 1 0 5 Q V A R 7 6
0023040 Q U S E S 7 1 Q V A R A P
0023060 P L Y ) \r ( 2 4 Q ( B O U N
0023100 D U S E D F R E E G L O B A
0023120 L S ) ) \r W H O C A L L S 1 A 0
0023140 0 0 1 D 1 \r ( L ( 1 F L G
0023160 0 C A L L E D ) F 0 C
0023200 A L L E E F 1 U S A G E
0023220 F 2 F N F 3 V A L )
0023240 \0 3 \0 004 \0 002 Q 003 226 A Q \n \0 \0 264 )
0023260 P 003 225 @ P \n \0 \0 202 @ P 360 264 033 R i
0023300 \n \0 \0 277 o \0 \0 \0 i \n \0 \0 R S 032 c
0023320 006 g \0 \0 \t \0 \0 020 \0 ( 6 0 Q R E
0023340 T F R O M 4 5 Q P R I N 1
0023360 3 4 Q P R I N 1 2 1 Q M E
0023400 M B 7 M E M B ) \r ( 5 5 Q
0023420 W H O C A L L S 1 ) \r ( 4 1 Q
0023440 " , " ) \r W H O C A L L S 1
0023460 D 1 \r ( I 0 F N F 0
0023500 C A L L T Y P E ) \0 023 \0 001 \0 001
0023520 @ \t \0 \0 264 \r @ P g \0 \0 \v \0 \0 \b \0
0023540 \0 020 \0 ( 2 0 Q B L O C K 1 5
0023560 Q C A L L S C C O D E 3 C
0023600 C O D E P ) \r ( 1 2 Q W H O C
0023620 A L L S 1 A 0 0 0 1 ) \r ( ) \r \
0023640 S U B F N D E F D 1 \r ( L (
0023660 0 X ) ) \0 E 003 \0 \0 001 @ 004 l 004
0023700 360 264 > @ m 373 \n \0 \0 l A 360 264 3 m 377
0023720 m 374 021 022 002 I H 363 263 035 @ I \n \0 \0 Z
0023740 l 0 375 361 244 J l 9 361 224 I 265 \v i 206 I
0023760 k 324 Y 260 343 h 022 h 360 264 006 @ \t \0 \0 020
0024000 \0 ( 1 0 2 Q \ G E T - C O M P
0024020 I L E D - D E F I N I T I O N
0024040 4 2 Q N T H C H A R C O D E
0024060 1 4 Q N T H C H A R C O D E )
0024100 \r N I L \r ( ) \r L L B R E A K
0024120 D 1 \r ( L ( 1 W H E N 0
0024140 F N ) ) \0 _ 003 \0 \0 002 021 0 002 @ d
0024160 g \0 \0 \n \0 \0 231 277 @ g \0 \0 \n \0 \0 277
0024200 @ \t \0 \0 Y 250 @ o \0 \0 \0 \n \0 \0 277 g
0024220 \0 \0 @ ` \0 \0 032 \n \0 \0 @ g \0 \0 \t \0
0024240 \0 \n \0 \0 X I i \v \0 \0 @ g \0 \0 H \v
0024260 \0 \0 @ l \r I \n \0 \0 I A \n \0 \0 272 d
0024300 J 024 \0 277 \n \0 \0 @ 020 \0 ( 1 3 3 Q
0024320 / P U T D 1 2 2 Q B R O K E
0024340 N D E F 1 1 5 Q N C R E A T
0024360 E 2 1 0 6 Q / P U T P R O P
0024400 7 6 Q / P U T D 7 0 Q P
0024420 A C K * 6 5 Q G E N S Y M
0024440 5 6 Q / S E T A T O M V A L
0024460 4 2 Q E R R O R 3 0 Q \ G
0024500 E T - C O M P I L E D - D E F I
0024520 N I T I O N 2 3 Q R E S T O
0024540 R E 1 2 Q G E T P R O P ) \r
0024560 ( 1 0 2 Q B R O K E N 6 2 Q
0024600 L 5 2 Q B R O K E N F N S
0024620 4 6 Q B R O K E N F N S 2
0024640 0 Q B R O K E N 7 B R O K
0024660 E N ) \r ( 3 7 Q " i s n o
0024700 t c o m p i l e d c o d e "
0024720 ) \r B R O K E N D E F D 1 \r (
0024740 L ( 2 W H E N 1 C A 0
0024760 D E F ) ) \0 327 \a \0 \0 003 @ \t \0
0025000 \0 021 a 006 H 310 003 274 B d g \0 \0 360 224 277
0025020 i Y 260 036 g \0 \0 360 223 i Z 260 025 B 227 B
0025040 d g \0 \0 360 224 277 i Y Z 204 l 033 \n \0 \0
0025060 277 H \t \0 \0 340 340 273 I 222 l 003 200 j K 330
0025100 L l 003 330 342 342 l 002 330 m 376 345 \n \0 \0 275
0025120 I 262 G H j M j L \r 005 \0 \0 277 M L g
0025140 \0 \0 \t \0 \0 001 307 277 M L k 330 g \0 \0 \t
0025160 \0 \0 001 307 277 M L l 002 330 g \0 \0 \t \0 \0
0025200 001 307 277 H L M L l 003 330 K L 331 \r 005 \0
0025220 \0 277 L l 003 324 \ 210 H j M j K \r 005 \0
0025240 \0 277 J 262 023 h 277 M L 302 \t \0 \0 ^ 002 001
0025260 d g \0 \0 360 221 M 020 g \0 \0 360 232 M L g
0025300 \0 \0 \t \0 \0 001 307 277 L N 002 002 001 k 324 324
0025320 \ 260 325 \0 ( 3 0 7 Q \ F I N D O
0025340 P 2 5 7 Q \ F I N D O P 2
0025360 4 3 Q \ M O V E B Y T E S 2
0025400 2 3 Q \ M O V E B Y T E S 2
0025420 0 2 Q \ F I N D O P 1 6 4 Q
0025440 \ F I N D O P 1 4 7 Q \ F
0025460 I N D O P 1 3 6 Q \ M O V E
0025500 B Y T E S 1 2 1 Q \ A L L O
0025520 C . C O D E . B L O C K 6 7 Q
0025540 \ # B L O C K D A T A C E L L
0025560 S 6 2 Q \ L I S P E R R O R
0025600 3 \ G E T - C O M P I L E D
0025620 - C O D E - B A S E ) \r ( 3 0 4
0025640 Q \ R E T U R N 2 7 5 Q R
0025660 E T U R N 2 6 6 Q - X - 1
0025700 7 7 Q P O P 1 6 1 Q R A I
0025720 D 1 4 4 Q ' N I L 4 6 Q
0025740 B O T H 3 1 Q A F T E R 1
0025760 7 Q B E F O R E ) \r ( ) \r P R
0026000 I N T O P C O D E S D 1 \r ( L
0026020 ( 0 S I N G L E ) ) 001 \r 002
0026040 \0 \0 001 o \0 \0 \0 \t \0 \0 277 l \t \t \0 \0
0026060 277 o \0 \0 \0 \t \0 \0 277 l 030 \t \0 \0 277 o
0026100 \0 \0 \0 \t \0 \0 277 l " \t \0 \0 277 o \0 \0
0026120 \0 \t \0 \0 277 l + \t \0 \0 277 o \0 \0 \0 \t
0026140 \0 \0 277 l 7 \t \0 \0 277 o \0 \0 \0 \t \0 \0
0026160 277 h \t \0 \0 277 h \t \0 \0 @ 265 \b ` \0 \0
0026200 261 \0 246 \t \0 \0 h 032 261 \0 236 d 001 021 021 001
0026220 H 001 Y 003 262 033 o \0 \0 \0 I 001 \n \0 \0 277
0026240 o \0 \0 \0 \t \0 \0 277 I 002 001 \t \0 \0 207 o
0026260 \0 \0 \0 I \n \0 \0 277 l \t \t \0 \0 277 H 002
0026300 001 \t \0 \0 277 H 002 001 g \0 \0 360 263 U l 032
0026320 \t \0 \0 277 H 002 002 001 265 005 g \0 \0 \t \0 \0
0026340 277 l # \t \0 \0 277 H 002 002 002 001 265 005 g \0
0026360 \0 \t \0 \0 277 l , \t \0 \0 277 H 002 002 002 002
0026400 001 265 005 g \0 \0 \t \0 \0 277 l 7 \t \0 \0 277
0026420 H 002 002 002 002 002 001 265 006 o \0 \0 \0 \t \0 \0
0026440 277 \b \0 \0 023 002 003 265 003 202 261 377 a h 020 \0
0026460 ( 4 0 0 Q T E R P R I 3 7 4
0026500 Q P R I N 1 3 5 3 Q T A B
0026520 3 4 5 Q P R I N 1 3 2 6 Q
0026540 T A B 3 2 0 Q P R I N 1
0026560 3 0 2 Q T A B 2 7 4 Q P R
0026600 I N 1 2 5 7 Q T A B 2 4 0
0026620 Q P R I N 1 2 3 1 Q T A B
0026640 2 2 3 Q P R I N T N U M 2
0026660 1 2 Q P R I N 1 2 0 3 Q P
0026700 R I N 1 1 7 3 Q P R I N T N
0026720 U M 1 4 2 Q \ F I N D O P
0026740 1 2 6 Q T E R P R I 1 2 1 Q
0026760 T E R P R I 1 1 4 Q P R I
0027000 N 1 1 0 4 Q T A B 7 6 Q
0027020 P R I N 1 6 6 Q T A B 6 0
0027040 Q P R I N 1 5 0 Q T A B
0027060 4 2 Q P R I N 1 3 2 Q T A
0027100 B 2 4 Q P R I N 1 1 4 Q
0027120 T A B 6 P R I N 1 ) \r ( 3 4
0027140 2 Q ? 3 1 5 Q ? 2 7 1 Q
0027160 ? 2 4 7 Q u n u s e d 1
0027200 3 4 Q \ O P C O D E S ) \r (
0027220 3 7 1 Q " " 2 1 7 Q ( F I
0027240 X 3 1 0 Q ) 2 0 0 Q " -
0027260 " 1 6 6 Q ( F I X 3 1 0
0027300 Q ) 1 1 1 Q " U F N t a b
0027320 l e e n t r y " 7 3 Q " s
0027340 t k e f f e c t " 5 5 Q "
0027360 f o r m a t " \r 3 7 Q " l e
0027400 n - 1 " 2 1 Q " n a m e "
0027420 3 " # " ) \r ( P R E T T Y
0027440 C O M P R I N T A C O D E C O
0027460 M S ) \r ( R P A Q Q A C O D E
0027500 C O M S ( ( C O M S ( * ;
0027520 " P r i n t i n g c o m p i
0027540 l e d c o d e " ) ( F N S
0027560 P R I N T C O D E P R I N T C
0027600 O D E N T ) ( D E C L A R E :
0027620 D O N T C O P Y \r ( M A C R
0027640 O S P C V A R P R I N J U M
0027660 P N E X T B Y T E P R I N T
0027700 C O D E H E A D E R D E C O D E
0027720 ) ( G L O B A L V A R S \ I
0027740 N I T S U B R S \ P R I N T C
0027760 O D E . L E V E L \r \ P R I N
0030000 T C O D E . S T K S T A T E ) )
0030020 ) ( C O M S ( * ; " A n
0030040 a l y z i n g c o m p i l e d
0030060 c o d e " ) ( F N S C A L
0030100 L S C C O D E R U N I O N W
0030120 H O C A L L S W H O C A L L S
0030140 1 \r ) ( F N S C H A N G E C
0030160 C O D E C C C S U B F N ? \
0030200 S U B F N D E F C C C S C A N
0030220 ) ( B L O C K S ( C A L L S
0030240 C C O D E C A L L S C C O D E
0030260 R U N I O N ) ( C H A N G E
0030300 C C O D E \r C H A N G E C C O
0030320 D E C C C S U B F N ? C C C
0030340 S C A N ) ) ( D E C L A R E :
0030360 D O N T C O P Y ( R E C O R
0030400 D S R E F M A P ) ( M A C R
0030420 O S C O D E B A S E L T C O
0030440 D E B A S E L T 2 \r C O D E B
0030460 A S E S E T A C O D E B A S E
0030500 S E T A 2 ) ) ( A D D V A R S
0030520 ( I G N O R E F N S ) ) ) (
0030540 C O M S ( * ; " L o w - l
0030560 e v e l b r e a k " ) ( F N
0030600 S L L B R E A K \r B R O K E
0030620 N D E F ) ) ( C O M S ( *
0030640 ; " f o r T E L E R A I D "
0030660 ) ( D E C L A R E : D O N T
0030700 C O P Y ( A D D V A R S ( R
0030720 D C O M S ( F N S P R I N T
0030740 C O D E P R I N T C O D E N T
0030760 \r B R O K E N D E F ) ) ( E
0031000 X P A N D M A C R O F N S N E
0031020 X T B Y T E P C V A R P R I
0031040 N J U M P C O D E B A S E L T
0031060 C O D E B A S E L T 2 C O D
0031100 E B A S E S E T A C O D E B A
0031120 S E S E T A 2 \r P R I N T C O
0031140 D E H E A D E R D E C O D E ) )
0031160 ) ) ( C O M S ( * ; " r
0031200 e f e r e n c e t o o p c o
0031220 d e s s y m b o l i c a l l y
0031240 " ) ( F N S P R I N T O P C
0031260 O D E S ) ( \r G L O B A L V A
0031300 R S \ O P C O D E S ) ) ( D
0031320 E C L A R E : E V A L @ C O M
0031340 P I L E D O N T C O P Y ( L
0031360 O C A L V A R S . T ) ) ) )
0031400 \r ( A D D T O V A R I G N O R
0031420 E F N S ) \r ( P U T P R O P S
0031440 A C O D E C O P Y R I G H T
0031460 ( " X e r o x C o r p o r a t
0031500 i o n " 1 9 8 2 1 9 8 3 1
0031520 9 8 4 1 9 8 5 1 9 8 6 ) ) \r
0031540 N I L \r
0031544