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