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