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