$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>LLCHAR.DCOM!1
0000000 ( F I L E C R E A T E D " 2 9
0000020 - J u l - 8 4 1 9 : 1 6 : 4 4
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 . ; 4 ) \r " 2 7 - J u l - 8 4
0000140 2 0 : 1 1 : 2 5 " r e c o m
0000160 p i l e d c h a n g e s : n
0000200 o t h i n g i n " I N T E R
0000220 L I S P - D 2 7 - J u l - 8 4
0000240 . . . " d a t e d \r " 2 7
0000260 - J u l - 8 4 2 1 : 5 2 : 4 0
0000300 " ) \r ( F I L E C R E A T E D
0000320 " 2 9 - J u l - 8 4 1 9 : 1 6
0000340 : 2 1 " { E R I S } < L I S P
0000360 C O R E > S O U R C E S > L L C
0000400 H A R . ; 4 2 9 2 8 8 c h a
0000420 n g e s t o : ( V A R S L
0000440 L C H A R C O M S \r ) p r e v
0000460 i o u s d a t e : " 2 4 - J
0000500 u l - 8 4 1 5 : 2 6 : 1 0 "
0000520 { E R I S } < L I S P C O R E >
0000540 S O U R C E S > L L C H A R . ;
0000560 3 ) \r M K A T O M D 1 \r ( L
0000600 ( 0 X ) ) \0 > \0 \0 \0 001 @ 004 d
0000620 l \a 360 262 034 277 @ 311 \0 @ 310 003 @ 310 002 d
0000640 l 377 361 226 277 @ l \v \n \0 \0 \v \0 \0 020 d
0000660 l 004 360 255 d k 360 251 d l 002 360 244 d l 003
0000700 360 221 @ 020 277 @ \t \0 \0 020 \0 ( 7 3 Q
0000720 P A C K * 4 0 Q \ M K A T O
0000740 M 3 5 Q \ L I S P E R R O R
0000760 ) \r N I L \r ( ) \r S U B A T O M
0001000 D 1 \r ( L ( 2 M 1 N
0001020 0 X ) ) \0 203 005 \0 \0 003 A B 021 2
0001040 004 @ d 004 l 004 360 262 035 277 ` \0 \0 @ 323 340
0001060 320 311 \0 272 k 273 ` \0 \0 @ 323 340 320 311 \0 312
0001100 \0 \a 260 025 005 \a 265 006 @ \t \0 \0 \ 311 \0 272
0001120 L 310 003 273 L 310 002 274 j H 361 225 H L k 330
0001140 330 270 I 241 L 210 j I 361 225 I L k 330 330 271
0001160 H j 361 264 * H I 361 h 360 264 # I L 361 h
0001200 360 264 034 J K H k 331 330 I H 331 k 330 d l
0001220 377 361 226 277 @ l \v \n \0 \0 \v \0 \0 020 \0 (
0001240 2 0 0 Q \ M K A T O M 1 7 5
0001260 Q \ L I S P E R R O R 5 7 Q
0001300 M K S T R I N G ) \r ( 3 4 Q
0001320 \ P N P S P A C E 2 0 Q \ P
0001340 N P S P A C E ) \r ( ) \r C H A R
0001360 A C T E R D 1 \r ( L ( 0 N
0001400 ) ) \0 % \0 \0 \0 001 @ l 377 345 b \0 d
0001420 l 9 361 230 ` \0 \0 @ l \n 331 320 020 l 0 @
0001440 361 244 @ l 0 331 020 ` \0 \0 @ 320 020 \0 N I
0001460 L \r ( 4 0 Q \ O n e C h a r A
0001500 t o m B a s e 1 5 Q \ O n e
0001520 C h a r A t o m B a s e ) \r ( )
0001540 \r M K N U M A T O M D 1 \r ( L
0001560 ( 2 L E N 1 B N 0 B
0001600 A S E ) ) 001 341 \f \0 \0 003 A d B 330
0001620 g \0 \0 021 223 \v H I 360 242 261 \0 242 J g \0
0001640 \0 360 250 J d g \0 \0 360 262 # 277 M 262 035 @
0001660 M N 265 003 H L g \0 \0 360 J g \0 \0 360 222
0001700 l \b 201 l \n \r 005 \0 \0 020 j 020 g \0 \0 360
0001720 246 J g \0 \0 360 264 e O 024 262 ] N 251 H 276
0001740 L g \0 \0 360 _ 022 277 O 024 l \t 361 262 025 M
0001760 l \t 330 276 O 016 M 361 230 N O 016 361 223 N k
0002000 330 276 O 020 237 @ O 020 H L g \0 \0 360 l \n
0002020 \r 005 \0 \0 200 j _ 026 @ M N O 022 l \n \r
0002040 005 \0 \0 O 026 O 016 N 331 N O 016 361 221 k 200
0002060 j 330 330 \n \0 \0 020 j 006 \0 \0 020 @ H 302 [
0002100 d l - 360 262 035 277 L h 360 264 361 J g \0 \0
0002120 360 246 J g \0 \0 360 264 344 g \0 \0 274 J 261 001
0002140 001 l + 360 262 034 L h 360 264 322 J g \0 \0 360
0002160 246 J g \0 \0 360 264 305 g \0 \0 274 J 261 \0 342
0002200 K d l Q 360 237 277 J g \0 \0 360 264 257 H 276
0002220 g \0 \0 261 \0 314 l E 360 262 ( J g \0 \0 360
0002240 246 J g \0 \0 360 264 225 O 016 243 H _ 016 277 H
0002260 276 L g \0 \0 360 _ 022 277 h 274 g \0 \0 261 \0
0002300 241 K l . 360 262 # H _ 016 277 J d g \0 \0
0002320 360 226 277 g \0 \0 261 \0 211 g \0 \0 360 264 003 202
0002340 261 377 [ g \0 \0 260 y l 0 K 361 263 r K l
0002360 9 361 263 l J g \0 \0 360 250 J d g \0 \0 360
0002400 262 032 277 O 024 265 \v K l 0 360 250 H 275 k 201
0002420 k 330 _ 024 277 g \0 \0 260 G g \0 \0 360 250 J
0002440 d g \0 \0 360 262 035 277 O 024 265 016 K l 0 360
0002460 253 k _ 024 277 H 275 204 k 330 _ 024 277 g \0 \0
0002500 260 037 g \0 \0 360 227 H _ 020 277 g \0 \0 217 J
0002520 g \0 \0 360 264 003 202 261 376 344 g \0 \0 200 h d
0002540 242 261 376 332 272 H k 330 X 261 376 . \0 ( 2 5
0002560 1 Q \ F L O A T I N G S C A L
0002600 E 2 2 6 Q \ M K I N T E G E
0002620 R 2 0 7 Q \ M K I N T E G E
0002640 R 7 4 Q \ M K I N T E G E R
0002660 ) \r ( 7 2 0 Q I N E X P O N E
0002700 N T 7 0 6 Q I N E X P O N E
0002720 N T 7 0 1 Q I N E X P O N E
0002740 N T 6 7 0 Q A F T E R E 6
0002760 6 3 Q I N F R A C T I O N 6
0003000 2 7 Q A F T E R I N I T I A L
0003020 D O T 6 2 0 Q I N F R A C T
0003040 I O N 6 1 3 Q I N I T D I G
0003060 I T 5 6 2 Q I N I T D I G I
0003100 T 5 5 3 Q I N I T 5 3 1 Q
0003120 I N F R A C T I O N 5 1 7 Q
0003140 I N I T D I G I T 5 1 1 Q
0003160 A F T E R I N I T I A L D O T
0003200 5 0 3 Q I N I T 4 6 1 Q A
0003220 F T E R E 4 5 0 Q - 4 3 0
0003240 Q I N F R A C T I O N 4 2 2
0003260 Q I N I T D I G I T 4 0 6 Q
0003300 A F T E R Q 3 7 6 Q I N I
0003320 T D I G I T 3 5 6 Q + 3 5
0003340 0 Q A F T E R E 3 4 2 Q I
0003360 N I T 3 1 7 Q - 3 1 1 Q
0003400 A F T E R E 3 0 3 Q I N I T
0003420 2 5 6 Q F L O A T P 2 0 0
0003440 Q - 1 2 7 Q - 1 1 0 Q
0003460 I N E X P O N E N T 1 0 2 Q
0003500 I N F R A C T I O N 6 1 Q A
0003520 F T E R Q 5 4 Q - 3 3 Q
0003540 A F T E R Q 2 4 Q I N I T D
0003560 I G I T 6 I N I T ) \r ( ) \r
0003600 \ M K I N T E G E R D 1 \r ( L
0003620 ( 4 R A D I X 3 N E G
0003640 2 E N D 1 S T A R T 0
0003660 B A S E ) ) \0 + 002 \0 \0 005 j 021 021
0003700 001 A B 360 221 H 020 @ A 302 l 0 331 Y m 376
0003720 360 255 C 225 H D 332 I 331 204 H D 332 I 330 270
0003740 A k 330 b 002 260 335 \0 N I L \r N I L \r
0003760 ( ) \r M K S T R I N G A 0 0 1 1
0004000 D 1 \r ( L ( 0 C O D E )
0004020 F 0 J F 1 S ) \0 023 \0
0004040 002 \0 001 Q 311 \0 Q 310 003 P k 331 330 @ 307 P
0004060 k 330 c \0 020 \0 N I L \r N I L \r ( )
0004100 \r M K S T R I N G D 1 \r ( L
0004120 ( 2 R D T B L 1 F L G 0
0004140 X ) P 4 J P 3 S )
0004160 \0 345 005 \0 \0 003 A 222 261 \0 312 @ 004 d l
0004200 \a 360 221 @ 020 d l 004 360 262 G 277 l \a 037 `
0004220 \0 \0 @ 323 340 320 311 \0 021 002 001 H d I 024 \0
0004240 277 022 ` \0 \0 @ 323 340 320 311 \0 312 \0 \a 021 002
0004260 001 H d I 315 002 277 022 d k 315 003 277 d k 317
0004300 \0 277 d j 317 \0 C 277 d k 317 \0 \0 277 020
0004320 d l 002 360 251 d k 360 245 d l 003 360 262 e 277
0004340 ` \0 \0 265 & l & \t \0 \0 ` \0 \0 265 025 \b
0004360 \0 \0 021 022 002 @ d 005 003 262 027 H I \v \0 \0
0004400 260 + h 027 \0 \0 277 260 353 h 027 \0 \0 277 260 334
0004420 ` \0 \0 223 ` \0 \0 201 l \n ` \0 \0 h 360 265
0004440 005 ` \0 \0 h H I \r 006 \0 \0 Z \t \0 \0 \t
0004460 \0 \0 k J \v \0 \0 H 027 \0 \0 277 I 027 \0 \0
0004500 277 020 277 @ A B \v \0 \0 \t \0 \0 k 021 002 004
0004520 g \0 \0 @ A B \f \0 \0 K 020 \0 ( 3 4 1
0004540 Q \ M A P C H A R S 3 2 4 Q
0004560 A L L O C S T R I N G 3 2 1
0004600 Q N C H A R S 2 7 7 Q R P
0004620 L S T R I N G 2 7 2 Q A L L
0004640 O C S T R I N G 2 6 7 Q N C
0004660 H A R S 2 6 3 Q \ C O N V E
0004700 R T N U M B E R 2 1 0 Q \ C
0004720 O N V E R T . F L O A T I N G .
0004740 N U M B E R 1 7 2 Q C O N C
0004760 A T 1 6 2 Q A L L O C S T R
0005000 I N G ) \r ( 3 3 3 Q M K S T R
0005020 I N G A 0 0 1 1 3 1 0 Q \ \
0005040 N U M S T R 1 . G L O B A L R E
0005060 S O U R C E 3 0 3 Q \ \ N U
0005100 M S T R . G L O B A L R E S O U
0005120 R C E 2 5 4 Q \ S I G N F L
0005140 A G 2 4 5 Q P R X F L G 2
0005160 3 7 Q \ P R I N T R A D I X
0005200 2 3 3 Q P R X F L G 2 2 5 Q
0005220 \ \ N U M S T R . G L O B A L
0005240 R E S O U R C E 2 1 6 Q \ \
0005260 N U M S T R 1 . G L O B A L R E
0005300 S O U R C E 1 6 5 Q \ \ N U
0005320 M S T R 1 . G L O B A L R E S O
0005340 U R C E 1 5 3 Q \ \ N U M S
0005360 T R . G L O B A L R E S O U R C
0005400 E 5 5 Q \ P N P S P A C E
0005420 3 2 Q \ P N P S P A C E ) \r (
0005440 ) \r B K S Y S B U F D 1 \r ( L
0005460 ( 2 R D T B L 1 F L G
0005500 0 X ) ) \0 _ 005 \0 \0 003 021 P 004 A
0005520 263 O @ 004 d l 004 360 262 034 277 ` \0 \0 @ 323
0005540 340 320 311 \0 270 k 271 ` \0 \0 @ 323 340 320 311 \0
0005560 312 \0 \a 217 l \a 360 262 ( @ 311 \0 270 @ 310 003
0005600 271 @ 310 002 272 I J k 331 330 I 274 273 L K 361
0005620 263 030 H L 302 \t \0 \0 277 L k 330 \ 260 361 g
0005640 \0 \0 @ A B \f \0 \0 @ 020 \0 ( 1 3 3 Q
0005660 \ M A P C H A R S 1 1 3 Q
0005700 B K S Y S C H A R C O D E ) \r (
0005720 1 2 5 Q B K S Y S C H A R C O
0005740 D E 3 5 Q \ P N P S P A C E
0005760 2 1 Q \ P N P S P A C E ) \r
0006000 ( ) \r N C H A R S A 0 0 0 1 D
0006020 1 \r ( F 0 N ) \0 \a \0 001 \0 \0
0006040 P k 330 c \0 020 \0 N I L \r N I L \r (
0006060 ) \r N C H A R S D 1 \r ( L (
0006100 2 R D T B L 1 F L G 0
0006120 X ) P 7 N F 1 0 Q \
0006140 P R I M R E A D T A B L E ) \0
0006160 317 \b 001 \0 003 @ 004 d l 004 360 262 p 277 A 262
0006200 _ ` \0 \0 @ 323 340 320 311 \0 312 \0 \a B 265 005
0006220 W 020 212 i 360 223 ` \0 \0 203 B 006 \0 \0 311 \0
0006240 k @ j 021 4 006 ` \0 \0 J 323 340 320 311 \0 275
0006260 ` \0 \0 J 323 340 320 311 \0 312 \0 \a 276 I N 361
0006300 263 032 M I d k 330 271 302 274 H L 302 l @ 345
0006320 j 360 263 353 K k 330 273 260 345 K 022 330 020 ` \0
0006340 \0 @ 323 340 320 311 \0 312 \0 \a 020 l \a 360 262 E
0006360 A 262 > @ 310 002 @ j 021 B 005 H 310 003 274 H
0006400 311 \0 275 L H 310 002 k 331 330 273 L K 361 263 032
0006420 M L d k 330 274 302 Z l " 360 245 J l % 360
0006440 262 353 I k 330 271 260 345 I 022 l 002 330 330 020 @
0006460 310 002 020 j 021 001 \a g \0 \0 @ A B \f \0 \0
0006500 O 016 020 \0 ( 3 1 2 Q \ M A P C H
0006520 A R S ) \r ( 3 0 4 Q N C H A R
0006540 S A 0 0 0 1 1 5 3 Q \ P N P
0006560 S P A C E 7 5 Q \ P N P S P
0006600 A C E 6 3 Q \ P N P S P A C
0006620 E 5 0 Q R E A D T A B L E P
0006640 4 3 Q \ S Y S R E A D T A B
0006660 L E 1 6 Q \ P N P S P A C E
0006700 ) \r ( ) \r N T H C H A R C O D E
0006720 A 0 0 0 1 D 1 \r ( L ( 0 C
0006740 O D E ) F 0 M ) \0 022 \0 001
0006760 \0 001 P k 331 c \0 j 360 264 \t g \0 \0 @ \n
0007000 \0 \0 020 \0 ( 1 7 Q R E T F R O M
0007020 ) \r ( 1 3 Q N T H C H A R C O
0007040 D E ) \r ( ) \r N T H C H A R C O
0007060 D E D 1 \r ( L ( 3 R D T B
0007100 L 2 F L G 1 N 0 X )
0007120 P 0 M ) \0 y 004 \0 \0 004 A 021
0007140 1 003 B 263 Q @ 004 d l \a 360 235 277 @ 311 \0
0007160 271 @ 310 002 273 @ 310 003 260 037 l 004 360 262 7 `
0007200 \0 \0 @ 323 340 320 311 \0 271 ` \0 \0 @ 323 340 320
0007220 311 \0 312 \0 \a 273 k 272 j H 361 225 H K k 330
0007240 330 270 k H 361 263 / H K 361 263 * I J H 330
0007260 k 331 302 020 H j 360 263 035 j H 361 235 k H @
0007300 B C \v \0 \0 k 330 330 X 361 250 g \0 \0 @ B
0007320 C \f \0 \0 h 020 \0 ( 1 6 5 Q \ M A
0007340 P C H A R S 1 4 6 Q N C H A
0007360 R S ) \r ( 1 5 7 Q N T H C H A
0007400 R C O D E A 0 0 0 1 5 5 Q \
0007420 P N P S P A C E 4 3 Q \ P N
0007440 P S P A C E ) \r ( ) \r R P L C H
0007460 A R C O D E D 1 \r ( L ( 2
0007500 C H A R 1 N 0 X ) ) \0
0007520 ` 001 \0 \0 003 @ d 005 \a 262 T 277 @ 310 002 021
0007540 001 \0 @ 312 \0 j 360 263 031 @ 311 \0 @ 310 003
0007560 H h @ \v \0 \0 b \0 311 \0 j H \r 005 \0 \0
0007600 277 j A 361 227 A H k 330 330 b 002 277 k A 361
0007620 243 A H 361 226 A l 033 \n \0 \0 277 @ 311 \0 @
0007640 310 003 A k 331 330 B l 377 345 307 @ 020 \t \0 \0
0007660 A B + 020 \0 ( 1 3 2 Q M K S T R
0007700 I N G 1 0 5 Q \ L I S P E R
0007720 R O R 5 2 Q \ M O V E B Y T
0007740 E S 4 0 Q A L L O C S T R I
0007760 N G ) \r N I L \r ( ) \r \ R P L C
0010000 H A R C O D E D 1 \r ( L ( 2
0010020 C H A R 1 N 0 X ) )
0010040 \0 8 \0 \0 \0 003 @ d 005 \a 262 037 277 @ 312 \0
0010060 j 360 242 @ 260 024 A d j 361 234 @ 310 002 361
0010100 221 A 205 B l 377 361 226 B l 033 \n \0 \0 277 @
0010120 311 \0 @ 310 003 A k 331 330 B 307 @ 020 \0 ( 4
0010140 7 Q \ L I S P E R R O R ) \r N
0010160 I L \r ( ) \r N T H C H A R A 0 0
0010200 0 2 D 1 \r ( L ( 0 C O D E
0010220 ) F 0 M ) \0 - \0 001 \0 001 P
0010240 k 331 c \0 j 360 264 $ g \0 \0 @ l 9 361 227
0010260 ` \0 \0 @ l \n 331 215 l 0 @ 361 244 @ l 0
0010300 331 204 ` \0 \0 @ 320 \n \0 \0 020 \0 ( 5 2 Q
0010320 R E T F R O M ) \r ( 4 5 Q \
0010340 O n e C h a r A t o m B a s e
0010360 2 3 Q \ O n e C h a r A t o m
0010400 B a s e 1 3 Q N T H C H A R
0010420 ) \r ( ) \r N T H C H A R D 1 \r
0010440 ( L ( 3 R D T B L 2 F L
0010460 G 1 N 0 X ) P 0 M
0010500 ) \0 226 005 \0 \0 004 A 021 A 004 B 263 n @
0010520 004 d l \a 360 235 277 @ 311 \0 271 @ 310 002 273 @
0010540 310 003 260 037 l 004 360 262 T ` \0 \0 @ 323 340 320
0010560 311 \0 271 ` \0 \0 @ 323 340 320 311 \0 312 \0 \a 273
0010600 k 272 j H 361 225 H K k 330 330 270 k H 361 263
0010620 L H K 361 263 G I J H 330 k 331 302 \ l 9
0010640 361 230 ` \0 \0 L l \n 331 320 020 l 0 L 361 244
0010660 L l 0 331 020 ` \0 \0 L 320 020 H j 360 263 035
0010700 j H 361 235 k H @ B C \v \0 \0 k 330 330 X
0010720 361 250 g \0 \0 @ B C \f \0 \0 h 020 \0 ( 2
0010740 2 2 Q \ M A P C H A R S 2 0
0010760 3 Q N C H A R S ) \r ( 2 1 4 Q
0011000 N T H C H A R A 0 0 0 2 1 5
0011020 7 Q \ O n e C h a r A t o m B
0011040 a s e 1 3 4 Q \ O n e C h a
0011060 r A t o m B a s e 5 5 Q \ P
0011100 N P S P A C E 4 3 Q \ P N P
0011120 S P A C E ) \r ( ) \r R P L S T R
0011140 I N G D 1 \r ( L ( 2 Y 1
0011160 N 0 X ) ) \0 223 \b \0 \0 003 @
0011200 005 \a 265 006 @ \t \0 \0 B 021 b \a H 311 \0 Z
0011220 H 310 002 [ I d 004 l 004 360 262 035 277 ` \0 \0
0011240 I 323 340 320 311 \0 274 k 276 ` \0 \0 I 323 340 320
0011260 311 \0 312 \0 \a 260 025 005 \a 244 I \t \0 \0 271 I
0011300 311 \0 274 I 310 003 276 I 310 002 ] A j 361 223 A
0011320 k 331 202 K A 330 _ 016 330 K 361 226 B l 033 \n
0011340 \0 \0 277 H 312 \0 j 360 263 026 J H 310 003 K
0011360 h H \v \0 \0 X 311 \0 j K \r 005 \0 \0 277 L
0011400 N H 311 \0 O 016 H 310 003 330 M \r 005 \0 \0 H
0011420 020 \0 ( 2 1 7 Q \ M O V E B Y T
0011440 E S 1 7 6 Q \ M O V E B Y T
0011460 E S 1 6 5 Q A L L O C S T R
0011500 I N G 1 4 2 Q \ L I S P E R
0011520 R O R 7 6 Q M K S T R I N G
0011540 1 0 Q M K S T R I N G ) \r (
0011560 5 4 Q \ P N P S P A C E 4 0
0011600 Q \ P N P S P A C E ) \r ( ) \r
0011620 S U B S T R I N G D 1 \r ( L
0011640 ( 3 O L D P T R 2 M 1
0011660 N 0 X ) ) \0 363 \t \0 \0 004 @ A
0011700 B 021 c \b H d 004 l 004 360 262 036 277 ` \0 \0
0011720 H 323 340 320 311 \0 273 ` \0 \0 H 323 340 320 311 \0
0011740 312 \0 \a 275 k 274 260 026 005 \a 244 H \t \0 \0 270
0011760 H 311 \0 273 H 310 003 274 H 310 002 275 j I 361 225
0012000 I M k 330 330 271 J 241 M 210 j J 361 225 J M
0012020 k 330 330 272 I j 361 264 003 202 261 \0 225 I J 361
0012040 222 261 \0 215 J M 361 222 261 \0 206 C 005 \a 262 5
0012060 C H 004 l 004 360 246 H 312 \0 j 360 241 k 200
0012100 j 317 \0 277 C K 024 \0 277 C J I 331 k 330
0012120 315 002 277 C I L k 331 330 315 003 277 C k 317 \0
0012140 \0 C 020 l \a 037 H 004 l 004 360 265 \n H 312 \0
0012160 j 360 h 360 276 d N 221 k 200 j 317 \0 277
0012200 d K 024 \0 277 J I 331 k 330 _ 016 277 d O 016
0012220 315 002 277 I L k 331 330 _ 020 277 d O 020 315 003
0012240 277 d j 317 \0 C 277 d k 317 \0 \0 277 020 h 020
0012260 \0 ( 6 0 Q M K S T R I N G ) \r
0012300 ( 3 3 Q \ P N P S P A C E 2
0012320 1 Q \ P N P S P A C E ) \r ( )
0012340 \r G N C D 1 \r ( L ( 0 X )
0012360 ) \0 Q 003 \0 \0 001 021 0 002 @ d 005 \a 262
0012400 ) 277 @ 310 002 X j 360 221 h 020 @ 311 \0 @ 310
0012420 003 Y 302 @ 006 \0 \0 I k 330 315 003 277 @ 006 \0
0012440 \0 H k 331 315 002 277 201 k ) Z l 9 361 230 `
0012460 \0 \0 J l \n 331 320 020 l 0 J 361 244 J l 0
0012500 331 020 ` \0 \0 J 320 020 \0 N I L \r ( 1 1
0012520 4 Q \ O n e C h a r A t o m B
0012540 a s e 7 1 Q \ O n e C h a r
0012560 A t o m B a s e 5 0 Q S T R
0012600 I N G P 3 6 Q S T R I N G P
0012620 ) \r ( ) \r G N C C O D E D 1 \r
0012640 ( L ( 0 X ) ) \0 4 002 \0 \0 001
0012660 021 001 @ d 005 \a 262 ) 277 @ 310 002 X j 360
0012700 221 h 020 @ 311 \0 @ 310 003 Y 302 @ 006 \0 \0 I
0012720 k 330 315 003 277 @ 006 \0 \0 H k 331 315 002 277 020
0012740 k ) 020 \0 N I L \r ( 5 0 Q S T R
0012760 I N G P 3 6 Q S T R I N G P
0013000 ) \r ( ) \r G L C D 1 \r ( L (
0013020 0 X ) ) \0 J 002 \0 \0 001 021 001 @
0013040 d 005 \a 262 ! 277 @ 310 002 k 331 X m 377 360 221
0013060 h 020 @ 311 \0 H @ 310 003 330 302 @ 006 \0 \0 H
0013100 315 002 277 202 m 377 ) Y l 9 361 230 ` \0 \0 I
0013120 l \n 331 320 020 l 0 I 361 244 I l 0 331 020 `
0013140 \0 \0 I 320 020 \0 N I L \r ( 1 0 5 Q
0013160 \ O n e C h a r A t o m B a s e
0013200 6 2 Q \ O n e C h a r A t o
0013220 m B a s e 4 2 Q S T R I N G
0013240 P ) \r ( ) \r G L C C O D E D 1
0013260 \r ( L ( 0 X ) ) \0 - 001 \0 \0
0013300 001 021 020 \0 @ d 005 \a 262 ! 277 @ 310 002 k 331
0013320 X m 377 360 221 h 020 @ 311 \0 H @ 310 003 330 302
0013340 @ 006 \0 \0 H 315 002 277 020 m 377 ) 020 \0 N I
0013360 L \r ( 4 2 Q S T R I N G P ) \r
0013400 ( ) \r S T R E Q U A L D 1 \r (
0013420 L ( 1 Y 0 X ) ) \0 E 005
0013440 \0 \0 002 @ 005 \a 264 024 A 005 \a 264 017 @ 310 002
0013460 021 001 \0 H A 310 002 360 241 h 020 @ 311 \0 @ 310
0013500 003 A 311 \0 A 310 003 021 004 004 H j 360 221 i 020
0013520 I J 302 K L 302 360 264 343 J k 330 272 L k 330
0013540 274 H k 331 X 260 346 \0 N I L \r N I L \r
0013560 ( ) \r C H C O N 1 D 1 \r ( L
0013600 ( 0 X ) ) \0 = \0 \0 \0 001 @ 004 d
0013620 l \a 360 237 277 @ 310 002 j 361 264 * @ 311 \0 @
0013640 310 003 302 020 l 004 360 262 036 ` \0 \0 @ 323 340 320
0013660 311 \0 312 \0 \a j 361 264 \r ` \0 \0 @ 323 340 320
0013700 311 \0 k 302 020 @ k ) 020 \0 N I L \r ( 5
0013720 6 Q \ P N P S P A C E 3 6 Q
0013740 \ P N P S P A C E ) \r ( ) \r U
0013760 - C A S E D 1 \r ( L ( 0 X
0014000 ) ) \0 371 \t \0 \0 001 @ 004 d l 004 360 262
0014020 { 277 ` \0 \0 265 ? l 377 \t \0 \0 021 001 \0 H
0014040 311 \0 k @ j 021 D \b ` \0 \0 K 323 340 320 311
0014060 \0 _ 016 277 ` \0 \0 K 323 340 320 311 \0 312 \0 \a
0014100 _ 020 277 J O 020 361 262 024 N 262 8 I j L \v
0014120 \0 \0 260 1 h 027 \0 \0 277 260 303 O 016 J d k
0014140 330 272 302 275 I L l a M 361 255 M d l z 361
0014160 250 l a 331 l A 330 ^ 200 M 307 277 L k 330 274
0014200 260 303 @ 022 H 027 \0 \0 277 020 d l \a 360 262 ]
0014220 277 @ 310 002 \t \0 \0 @ j 021 c \b I 310 003 _
0014240 016 277 I 311 \0 _ 020 277 O 016 I 310 002 k 331 330
0014260 276 H 311 \0 274 O 016 N 361 263 , O 020 O 016 d
0014300 k 330 _ 016 277 302 273 L J l a K 361 255 K d
0014320 l z 361 250 l a 331 l A 330 ] 200 K 307 277 J
0014340 k 330 272 260 322 M 221 H 020 @ 020 l 005 360 237 @
0014360 001 \t \0 \0 @ 002 264 \a @ 002 \t \0 \0 032 020 @
0014400 020 \0 ( 3 6 3 Q U - C A S E 3
0014420 5 2 Q U - C A S E 2 1 5 Q
0014440 A L L O C S T R I N G 1 1 0 Q
0014460 \ M K A T O M 2 2 Q A L L
0014500 O C S T R I N G ) \r ( 1 7 6 Q
0014520 \ \ P N A M E S T R I N G . G L
0014540 O B A L R E S O U R C E 1 1 6
0014560 Q \ \ P N A M E S T R I N G .
0014600 G L O B A L R E S O U R C E 5
0014620 5 Q \ P N P S P A C E 4 1 Q
0014640 \ P N P S P A C E 1 3 Q \
0014660 \ P N A M E S T R I N G . G L O
0014700 B A L R E S O U R C E ) \r ( ) \r
0014720 L - C A S E D 1 \r ( L ( 1
0014740 F L G 0 X ) ) 001 F \t \0 \0 002
0014760 @ 004 d l 004 360 242 261 \0 237 277 ` \0 \0 265 ?
0015000 l 377 \t \0 \0 021 001 \0 H 311 \0 k @ j 021 D
0015020 \b ` \0 \0 K 323 340 320 311 \0 _ 016 277 ` \0 \0
0015040 K 323 340 320 311 \0 312 \0 \a _ 020 277 J O 020 361
0015060 262 024 N 262 [ I j L \v \0 \0 260 T h 027 \0
0015100 \0 277 260 303 O 016 J d k 330 272 302 275 l A M
0015120 361 263 027 M l Z 361 257 A 225 h b 002 277 260 %
0015140 M l A 331 l a 260 032 A 262 032 l a M 361 263
0015160 024 M l z 361 254 h b 002 277 M l a 331 l A
0015200 330 ] 276 I L M 307 277 L k 330 274 260 240 @ 022
0015220 H 027 \0 \0 277 020 d l \a 360 242 261 \0 201 277 @
0015240 310 002 \t \0 \0 @ j 021 c \b I 310 003 _ 016 277
0015260 I 311 \0 _ 020 277 O 016 I 310 002 k 331 330 276 H
0015300 311 \0 274 O 016 N 361 263 O O 020 O 016 d k 330
0015320 _ 016 277 302 273 l A K 361 263 027 K l Z 361 257
0015340 A 225 h b 002 277 260 % K l A 331 l a 260 032
0015360 A 262 032 l a K 361 263 024 K l z 361 254 h b
0015400 002 277 K l a 331 l A 330 [ 275 L J K 307 277
0015420 J k 330 272 260 257 M 221 H 020 @ 020 l 005 360 262
0015440 024 @ 001 A \n \0 \0 @ 002 264 \b @ 002 A \n \0
0015460 \0 032 020 @ 020 \0 ( 5 0 0 Q L - C A
0015500 S E 4 6 6 Q L - C A S E 2
0015520 6 4 Q A L L O C S T R I N G
0015540 1 1 2 Q \ M K A T O M 2 4 Q
0015560 A L L O C S T R I N G ) \r ( 2
0015600 4 3 Q \ \ P N A M E S T R I N
0015620 G . G L O B A L R E S O U R C E
0015640 1 2 0 Q \ \ P N A M E S T R
0015660 I N G . G L O B A L R E S O U R
0015700 C E 5 7 Q \ P N P S P A C E
0015720 4 3 Q \ P N P S P A C E 1
0015740 5 Q \ \ P N A M E S T R I N G
0015760 . G L O B A L R E S O U R C E )
0016000 \r ( ) \r U - C A S E P D 1 \r (
0016020 L ( 0 X ) ) \0 222 005 \0 \0 001 @
0016040 004 d l 004 360 262 < 277 k @ 021 2 004 ` \0 \0
0016060 I 323 340 320 311 \0 273 ` \0 \0 I 323 340 320 311 \0
0016100 312 \0 \a 274 H L 361 263 030 K H d k 330 270 302
0016120 272 l a J 361 263 357 J l z 361 263 351 h 020 i
0016140 020 d l \a 360 262 2 277 @ 021 A 004 H 310 003 273
0016160 H 311 \0 274 K H 310 002 k 331 330 272 K J 361 263
0016200 340 L K d k 330 273 302 271 l a I 361 263 357 I
0016220 l z 361 263 351 h 020 l 005 360 262 305 @ 001 \t \0
0016240 \0 264 277 @ 002 h 360 265 271 @ 002 b \0 261 377 s
0016260 \0 ( 2 0 1 Q U - C A S E P ) \r
0016300 ( 3 2 Q \ P N P S P A C E 2
0016320 0 Q \ P N P S P A C E ) \r ( )
0016340 \r \ S M A S H S T R I N G D 1
0016360 \r ( L ( 3 N C 2 S O U R
0016400 C E 1 P O S 0 D E S T )
0016420 ) \0 033 \0 \0 \0 004 B 311 \0 B 310 003 @ 311
0016440 \0 A @ 310 003 330 C 265 005 B 310 002 \r 005 \0 \0
0016460 @ 020 \0 ( 2 7 Q \ M O V E B Y T
0016500 E S ) \r N I L \r ( ) \r ( P R E T
0016520 T Y C O M P R I N T L L C H A
0016540 R C O M S ) \r ( R P A Q Q L L
0016560 C H A R C O M S ( ( F N S M
0016600 K A T O M S U B A T O M C H
0016620 A R A C T E R M K N U M A T O
0016640 M \ M K I N T E G E R M K S
0016660 T R I N G B K S Y S B U F N
0016700 C H A R S \r N T H C H A R C O
0016720 D E R P L C H A R C O D E \
0016740 R P L C H A R C O D E N T H C
0016760 H A R R P L S T R I N G S U
0017000 B S T R I N G G N C G N C C
0017020 O D E G L C G L C C O D E
0017040 S T R E Q U A L \r C H C O N 1
0017060 U - C A S E L - C A S E U
0017100 - C A S E P \ S M A S H S T R
0017120 I N G ) ( E X P O R T ( G L
0017140 O B A L V A R S \ O n e C h a
0017160 r A t o m B a s e ) ( G L O B
0017200 A L R E S O U R C E S \r \ N U
0017220 M S T R \ N U M S T R 1 \ P
0017240 N A M E S T R I N G ) ( D E C
0017260 L A R E : D O N T C O P Y (
0017300 P R O P D M A C R O F C H A
0017320 R A C T E R ) ( I . S . O P R
0017340 S I N P N A M E I N A T O M
0017360 \r I N S T R I N G ) ( C O N
0017400 S T A N T S ( \ C H A R M A S
0017420 K 2 5 5 ) ( \ M A X C H A R
0017440 2 5 5 ) ) ( M A C R O S \
0017460 N A T O M C H A R S \ N S T R
0017500 I N G C H A R S \ R P L C H A
0017520 R C O D E ) ) ) \r ( P ( M O
0017540 V D ? ( Q U O T E C H A R A
0017560 C T E R ) ( Q U O T E F C H
0017600 A R A C T E R ) ) ) ( L O C A
0017620 L V A R S . T ) ) ) \r ( / S
0017640 E T T O P V A L ( Q U O T E
0017660 \ \ N U M S T R . G L O B A L R
0017700 E S O U R C E ) ) \r ( / S E T T
0017720 O P V A L ( Q U O T E \ \ N
0017740 U M S T R 1 . G L O B A L R E S
0017760 O U R C E ) ) \r ( / S E T T O P
0020000 V A L ( Q U O T E \ \ P N A
0020020 M E S T R I N G . G L O B A L R
0020040 E S O U R C E ) ) \r ( M O V D ?
0020060 ( Q U O T E C H A R A C T E
0020100 R ) ( Q U O T E F C H A R A
0020120 C T E R ) ) \r ( P U T P R O P S
0020140 L L C H A R C O P Y R I G H
0020160 T ( " X e r o x C o r p o r
0020200 a t i o n " 1 9 8 2 1 9 8 3
0020220 1 9 8 4 ) ) \r N I L \r
0020234