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