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