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