$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLSTRING.DCOM!14
0000000 ( F I L E C R E A T E D " 2 9
0000020 - J u l - 8 6 0 1 : 5 5 : 1 8
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 S T R
0000120 I N G . ; 1 4 ) \r " 2 3 - J u
0000140 l - 8 6 0 4 : 2 6 : 5 6 " "
0000160 C O M P I L E - F I L E d " i
0000200 n " X e r o x L i s p 2 3
0000220 - J u l - 8 6 . . . " d a t
0000240 e d " 2 3 - J u l - 8 6 0 4
0000260 : 5 2 : 4 7 " ) \r ( F I L E C R
0000300 E A T E D " 2 9 - J u l - 8 6
0000320 0 1 : 5 4 : 1 6 " { E R I S
0000340 } < L I S P C O R E > L I B R A
0000360 R Y > C M L S T R I N G . ; 1 4
0000400 3 6 2 1 0 c h a n g e s t
0000420 o : ( V A R S \r C M L S T R
0000440 I N G C O M S ) ( F N S S T
0000460 R I N G ) p r e v i o u s d
0000500 a t e : " 1 7 - J u l - 8 6
0000520 0 4 : 5 8 : 2 5 " { E R I S }
0000540 < L I S P C O R E > L I B R A R
0000560 Y > C M L S T R I N G . ; 1 3 )
0000600 \r ( R P A Q Q C M L S T R I N
0000620 G C O M S ( ( F U N C T I O N
0000640 S F O R - S U B S T R I N G
0000660 \ S T R I N G W I T H - O N E
0000700 - S T R I N G W I T H - S T R
0000720 I N G W I T H - T W O - S T R
0000740 I N G S \r S T R I N G < > = *
0000760 - B O D Y ) ( F N S S T R I
0001000 N G S T R I N G - E Q U A L
0001020 \ S P - S T R I N G - C O M P A
0001040 R E S T R I N G = * S T R I
0001060 N G / = * S T R I N G < * S
0001100 T R I N G > * \r S T R I N G <
0001120 = * S T R I N G > = * S T R
0001140 I N G < S T R I N G > S T R
0001160 I N G < = S T R I N G > = S
0001200 T R I N G = S T R I N G / =
0001220 S T R I N G - L E S S P S T R
0001240 I N G - G R E A T E R P \r S T
0001260 R I N G - N O T - G R E A T E R
0001300 P S T R I N G - N O T - L E S
0001320 S P S T R I N G - N O T - E Q
0001340 U A L M A K E - S T R I N G
0001360 S T R I N G - U P C A S E S T
0001400 R I N G - D O W N C A S E \r S
0001420 T R I N G - C A P I T A L I Z E
0001440 N S T R I N G - U P C A S E
0001460 N S T R I N G - D O W N C A S E
0001500 N S T R I N G - C A P I T A L
0001520 I Z E S T R I N G - L E F T -
0001540 T R I M \r S T R I N G - R I G
0001560 H T - T R I M S T R I N G - T
0001600 R I M ) ( P R O P F I L E T
0001620 Y P E C M L S T R I N G ) (
0001640 D E C L A R E : D O N T E V A
0001660 L @ L O A D D O E V A L @ C O
0001700 M P I L E \r D O N T C O P Y
0001720 C O M P I L E R V A R S ( A D
0001740 D V A R S ( N L A M A ) ( N
0001760 L A M L ) ( L A M A S T R I
0002000 N G - T R I M S T R I N G - R
0002020 I G H T - T R I M S T R I N G
0002040 - L E F T - T R I M \r N S T R
0002060 I N G - C A P I T A L I Z E N
0002100 S T R I N G - D O W N C A S E
0002120 N S T R I N G - U P C A S E S
0002140 T R I N G - C A P I T A L I Z E
0002160 S T R I N G - D O W N C A S E
0002200 S T R I N G - U P C A S E \r
0002220 M A K E - S T R I N G S T R I
0002240 N G - N O T - E Q U A L S T R
0002260 I N G - N O T - L E S S P S T
0002300 R I N G - N O T - G R E A T E R
0002320 P S T R I N G - G R E A T E R
0002340 P S T R I N G - L E S S P \r
0002360 S T R I N G / = S T R I N G =
0002400 S T R I N G > = S T R I N G
0002420 < = S T R I N G > S T R I N
0002440 G < S T R I N G > = * S T R
0002460 I N G < = * S T R I N G > *
0002500 S T R I N G < * S T R I N G /
0002520 = * \r S T R I N G = * S T R
0002540 I N G - E Q U A L S T R I N G
0002560 ) ) ) ) ) \r e x p a n d - F O R
0002600 - S U B S T R I N G D 1 \r ( L
0002620 ( 1 $ $ M A C R O - E N V I
0002640 R O N M E N T 0 $ $ M A C R
0002660 O - F O R M ) ) \0 340 \v \0 \0 002 @
0002700 002 021 241 \n H 001 271 H 002 Z 001 273 J 002 \ 001
0002720 275 L 002 ^ 001 _ 016 277 N 002 _ 020 001 _ 022 277
0002740 O 020 002 _ 024 277 g \0 \0 g \0 \0 g \0 \0 I
0002760 h 032 032 h 032 032 O 016 o \0 \0 \0 032 h 032 032
0003000 g \0 \0 g \0 \0 g \0 \0 j g \0 \0 g \0 \0
0003020 K h 032 032 g \0 \0 g \0 \0 g \0 \0 O 016 o
0003040 \0 \0 \0 032 032 g \0 \0 I o \0 \0 \0 032 032 h
0003060 032 032 032 h 032 032 032 032 032 032 032 032 g \0 \0 O
0003100 022 g \0 \0 K g \0 \0 g \0 \0 M h 032 032 g
0003120 \0 \0 O 024 032 032 032 032 032 032 032 g \0 \0 g \0
0003140 \0 g \0 \0 M g \0 \0 o \0 \0 \0 g \0 \0 g
0003160 \0 \0 g \0 \0 O 016 o \0 \0 \0 032 032 g \0 \0
0003200 I o \0 \0 \0 032 032 h 032 032 032 h 032 032 032 032
0003220 032 032 032 032 O 016 h 032 032 032 032 032 032 020 \0 N
0003240 I L \r ( 3 0 0 Q C H A R 2 6
0003260 5 Q C H A R 2 6 2 Q S E T
0003300 F 2 5 7 Q d o 2 5 0 Q t
0003320 o 2 4 4 Q f r o m 2 4 1 Q
0003340 I N D E X 2 3 6 Q f o r
0003360 2 2 2 Q d o 2 1 3 Q 1 -
0003400 2 1 0 Q t o 2 0 4 Q f r o
0003420 m 1 7 7 Q f o r 1 5 0 Q
0003440 C H A R 1 3 5 Q C H A R 1
0003460 3 2 Q S E T F 1 2 7 Q d o
0003500 1 2 0 Q 1 - 1 1 5 Q t o
0003520 1 1 1 Q f r o m 1 0 6 Q
0003540 I N D E X 1 0 3 Q f o r 5
0003560 7 Q C L : L E N G T H 5 4 Q
0003600 S L E N 5 1 Q L E T * ) \r
0003620 ( 3 0 5 Q ( I N D E X ) 2
0003640 7 3 Q ( I N D E X ) 2 5 4 Q
0003660 ( 1 - S L E N ) 1 5 5 Q
0003700 ( I N D E X ) 1 4 3 Q ( I N
0003720 D E X ) 7 4 Q ( ( M A K E -
0003740 S T R I N G S L E N ) ) ) \r (
0003760 S E T F - M A C R O - F U N C T
0004000 I O N ( Q U O T E F O R - S
0004020 U B S T R I N G ) ( Q U O T E
0004040 e x p a n d - F O R - S U B S
0004060 T R I N G ) ) \r e x p a n d - \
0004100 S T R I N G D 1 \r ( L ( 1
0004120 $ $ M A C R O - E N V I R O N M
0004140 E N T 0 $ $ M A C R O - F O
0004160 R M ) ) \0 % 001 \0 \0 002 @ 002 001 021 001
0004200 \0 g \0 \0 g \0 \0 H h 032 032 H h 032 032 i
0004220 g \0 \0 H h 032 032 h 032 032 h 032 032 032 020 \0
0004240 N I L \r ( 2 7 Q S T R I N G
0004260 1 3 Q S T R I N G P 1 0 Q
0004300 C O N D ) \r ( ) \r ( S E T F - M
0004320 A C R O - F U N C T I O N ( Q
0004340 U O T E \ S T R I N G ) ( Q
0004360 U O T E e x p a n d - \ S T R
0004400 I N G ) ) \r e x p a n d - W I T
0004420 H - O N E - S T R I N G D 1 \r
0004440 ( L ( 1 $ $ M A C R O - E N
0004460 V I R O N M E N T 0 $ $ M A
0004500 C R O - F O R M ) ) \0 X 005 \0 \0
0004520 002 @ 002 021 A 004 H 001 271 H 002 002 Z 001 273 J
0004540 002 274 g \0 \0 g \0 \0 g \0 \0 I h 032 032 g
0004560 \0 \0 I g \0 \0 I h 032 032 h 032 032 032 h 032
0004600 032 h 032 032 g \0 \0 g \0 \0 K h 032 032 g \0
0004620 \0 K g \0 \0 I h 032 032 h 032 032 032 h 032 032
0004640 h 032 032 L 032 032 032 020 \0 N I L \r ( 1 0
0004660 3 Q C L : L E N G T H 7 7 Q
0004700 S E T Q 7 0 Q N U L L 6
0004720 5 Q C O N D 4 4 Q S Y M B
0004740 O L - N A M E 4 0 Q S E T Q
0004760 3 1 Q S Y M B O L P 2 6 Q
0005000 C O N D 2 3 Q P R O G N )
0005020 \r ( ) \r ( S E T F - M A C R O -
0005040 F U N C T I O N ( Q U O T E
0005060 W I T H - O N E - S T R I N G )
0005100 ( Q U O T E e x p a n d - W
0005120 I T H - O N E - S T R I N G ) )
0005140 \r e x p a n d - W I T H - S T R
0005160 I N G D 1 \r ( L ( 1 $ $ M
0005200 A C R O - E N V I R O N M E N T
0005220 0 $ $ M A C R O - F O R M )
0005240 ) \0 I 003 \0 \0 002 @ 002 021 ! 002 H 001 271
0005260 H 002 272 g \0 \0 o \0 \0 \0 g \0 \0 g \0 \0
0005300 I h 032 032 g \0 \0 I g \0 \0 I h 032 032 h
0005320 032 032 032 h 032 032 h 032 032 g \0 \0 g \0 \0 g
0005340 \0 \0 I h 032 032 h 032 032 032 J 032 032 032 032 020
0005360 \0 N I L \r ( 7 1 Q C L : L E N
0005400 G T H 6 6 Q E N D 6 3 Q
0005420 S E T Q 4 2 Q S Y M B O L -
0005440 N A M E 3 6 Q S E T Q 2 7
0005460 Q S Y M B O L P 2 4 Q C O
0005500 N D 1 5 Q L E T ) \r ( 2 1
0005520 Q ( ( S T A R T 0 ) E N D
0005540 ) ) \r ( S E T F - M A C R O - F
0005560 U N C T I O N ( Q U O T E W
0005600 I T H - S T R I N G ) ( Q U O
0005620 T E e x p a n d - W I T H - S
0005640 T R I N G ) ) \r e x p a n d - W
0005660 I T H - T W O - S T R I N G S
0005700 D 1 \r ( L ( 1 $ $ M A C R O
0005720 - E N V I R O N M E N T 0 $
0005740 $ M A C R O - F O R M ) ) \0 252
0005760 \t \0 \0 002 @ 002 021 201 \b H 001 271 H 002 Z 001
0006000 273 J 002 002 \ 001 275 L 002 002 ^ 001 _ 016 277 N
0006020 002 _ 020 277 g \0 \0 g \0 \0 g \0 \0 I h 032
0006040 032 g \0 \0 I g \0 \0 I h 032 032 h 032 032 032
0006060 h 032 032 h 032 032 g \0 \0 g \0 \0 M h 032 032
0006100 g \0 \0 M g \0 \0 I h 032 032 h 032 032 032 h
0006120 032 032 h 032 032 g \0 \0 g \0 \0 K h 032 032 g
0006140 \0 \0 K g \0 \0 K h 032 032 h 032 032 032 h 032
0006160 032 h 032 032 g \0 \0 g \0 \0 O 016 h 032 032 g
0006200 \0 \0 O 016 g \0 \0 K h 032 032 h 032 032 032 h
0006220 032 032 h 032 032 O 020 032 032 032 032 032 020 \0 N I
0006240 L \r ( 2 2 2 Q C L : L E N G T
0006260 H 2 1 5 Q S E T Q 2 0 5 Q
0006300 N U L L 2 0 2 Q C O N D
0006320 1 6 1 Q S Y M B O L - N A M E
0006340 1 5 5 Q S E T Q 1 4 6 Q
0006360 S Y M B O L P 1 4 3 Q C O N
0006400 D 1 2 2 Q C L : L E N G T H
0006420 1 1 6 Q S E T Q 1 0 7 Q
0006440 N U L L 1 0 4 Q C O N D 6
0006460 3 Q S Y M B O L - N A M E 5
0006500 7 Q S E T Q 5 0 Q S Y M B
0006520 O L P 4 5 Q C O N D 4 2 Q
0006540 P R O G N ) \r ( ) \r ( S E T F
0006560 - M A C R O - F U N C T I O N
0006600 ( Q U O T E W I T H - T W O -
0006620 S T R I N G S ) ( Q U O T E
0006640 e x p a n d - W I T H - T W O -
0006660 S T R I N G S ) ) \r e x p a n d
0006700 - S T R I N G < > = * - B O D Y
0006720 D 1 \r ( L ( 1 $ $ M A C R
0006740 O - E N V I R O N M E N T 0
0006760 $ $ M A C R O - F O R M ) ) \0
0007000 235 003 \0 \0 002 @ 002 021 ! 002 H 001 271 H 002 001
0007020 272 g \0 \0 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0007040 g \0 \0 g \0 \0 g \0 \0 o \0 \0 \0 g \0 \0
0007060 g \0 \0 g \0 \0 g \0 \0 g \0 \0 I 223 g \0
0007100 \0 202 g \0 \0 h 032 032 032 o \0 \0 \0 032 g \0
0007120 \0 g \0 \0 I 223 g \0 \0 202 g \0 \0 h 032 032
0007140 032 o \0 \0 \0 032 I 223 g \0 \0 202 g \0 \0 o
0007160 \0 \0 \0 032 o \0 \0 \0 032 o \0 \0 \0 032 032 032
0007200 032 h 032 032 i J 264 006 o \0 \0 \0 h 032 032 h
0007220 032 032 032 h 032 032 032 h 032 032 032 032 032 032 032 032
0007240 020 \0 N I L \r ( 1 5 1 Q C H A R
0007260 > 1 4 5 Q C H A R < 1 2 7
0007300 Q E N D 1 1 2 3 Q E N D 2
0007320 1 1 6 Q I N D E X 1 1 3 Q
0007340 = 7 7 Q E N D 2 7 3 Q
0007360 E N D 1 6 6 Q I N D E X 6
0007400 3 Q = 6 0 Q C O N D 5 5
0007420 Q I N D E X 5 2 Q C O N D
0007440 4 3 Q L E T 4 0 Q E N D
0007460 2 3 5 Q S T A R T 2 3 2 Q
0007500 E N D 1 2 7 Q S T A R T 1
0007520 2 4 Q S T R I N G 2 2 1 Q
0007540 S T R I N G 1 1 6 Q W I T
0007560 H - T W O - S T R I N G S ) \r (
0007600 2 0 6 Q ( - E N D 1 S T
0007620 A R T 1 ) 1 6 7 Q ( ( T N
0007640 I L ) ) 1 6 2 Q ( I N D E X
0007660 ) 1 5 5 Q ( ( C H A R S T
0007700 R I N G 1 I N D E X ) ( C H
0007720 A R S T R I N G 2 ( + I N
0007740 D E X ( - S T A R T 2 S T
0007760 A R T 1 ) ) ) ) \r 1 3 7 Q (
0010000 N I L ) 1 0 7 Q ( I N D E X
0010020 ) 4 7 Q ( ( I N D E X ( \
0010040 S P - S T R I N G - C O M P A R
0010060 E S T R I N G 1 S T A R T 1
0010100 E N D 1 S T R I N G 2 S T
0010120 A R T 2 E N D 2 ) ) ) ) \r ( S
0010140 E T F - M A C R O - F U N C T I
0010160 O N ( Q U O T E S T R I N G
0010200 < > = * - B O D Y ) ( Q U O T
0010220 E e x p a n d - S T R I N G <
0010240 > = * - B O D Y ) ) \r S T R I N
0010260 G D 1 \r ( L ( 0 X ) ) \0
0010300 6 004 \0 \0 001 @ 021 1 003 H Y d \t \0 \0 221
0010320 @ 020 004 l 004 360 224 @ \t \0 \0 020 I \t \0 \0
0010340 264 016 k \t \0 \0 Z 273 @ K j 267 J 020 g \0
0010360 \0 H o \0 \0 \0 \f \0 \0 020 \0 ( 6 3 Q
0010400 C H E C K - T Y P E - F A I L
0010420 4 0 Q M A K E - S T R I N G
0010440 3 2 Q C H A R A C T E R P 2
0010460 5 Q S Y M B O L - N A M E 1
0010500 1 Q C L : S T R I N G P ) \r (
0010520 5 3 Q X ) \r ( 6 0 Q ( O R
0010540 S T R I N G S Y M B O L C
0010560 H A R A C T E R ) ) \r S T R I N
0010600 G - E Q U A L D 1 \r ( L ( 0
0010620 - a r g s - ) ) 001 9 022 \0 002 \0
0010640 e 021 001 \0 k a 021 321 016 l 002 a 272 H l 003
0010660 274 273 L d K 363 242 261 \0 256 277 j 275 H l 003
0010700 _ 016 277 276 O 016 d N 363 242 261 \0 260 277 h _
0010720 020 277 H l 003 _ 024 277 _ 022 277 O 024 d O 022
0010740 363 242 261 \0 260 277 j _ 026 277 H l 003 _ 032 277
0010760 _ 030 277 O 032 d O 030 363 242 261 \0 260 277 h _
0011000 034 277 I 004 l 004 360 224 I \t \0 \0 271 O 020 246
0011020 I \t \0 \0 _ 020 277 J 004 l 004 360 224 J \t \0
0011040 \0 272 O 034 265 006 J \t \0 \0 O 026 325 O 020 M
0011060 325 \n \0 \0 264 003 202 261 \0 240 O 020 k 325 M O
0011100 026 021 003 021 O O 036 363 222 261 \0 211 I O
0011120 \n \0 \0 \t \0 \0 J O " \n \0 \0 \t \0 \0 :
0011140 263 b i 260 q a g \0 \0 360 226 L k 330 a 261
0011160 377 M L l 002 324 \ 261 377 < a g \0 \0 360 227
0011200 O 016 k 330 a 261 377 J O 016 l 002 324 _ 016 261
0011220 377 7 a g \0 \0 360 227 O 024 k 330 a 261 377 J
0011240 O 024 l 002 324 _ 024 261 377 6 a g \0 \0 360 227
0011260 O 032 k 330 a 261 377 J O 032 l 002 324 _ 032 261
0011300 377 6 O k 324 _ 277 O " k 324 _ " 277
0011320 261 377 t h 022 h 360 020 \0 ( 2 7 6 Q C
0011340 H A R - U P C A S E 2 7 3 Q
0011360 C H A R 2 6 5 Q C H A R - U
0011400 P C A S E 2 6 2 Q C H A R
0011420 2 2 3 Q % % = 2 1 1 Q C L
0011440 : L E N G T H 2 0 0 Q S Y M
0011460 B O L - N A M E 1 6 3 Q C L
0011500 : L E N G T H 1 5 3 Q S Y M
0011520 B O L - N A M E ) \r ( 4 1 5 Q
0011540 : E N D 2 3 6 5 Q : S T A R
0011560 T 2 3 3 5 Q : E N D 1 3 1
0011600 0 Q : S T A R T 1 ) \r ( ) \r \
0011620 S P - S T R I N G - C O M P A R
0011640 E D 1 \r ( P 4 I P 3
0011660 I 2 P 2 I 1 I 5 E N
0011700 D 2 I 4 S T A R T 2 I
0011720 3 S T R I N G 2 I 2 E N
0011740 D 1 I 1 S T A R T 1 I
0011760 0 S T R I N G 1 ) \0 A 005 \0 \0
0012000 006 E 265 006 C \t \0 \0 k 325 B 265 006 @ \t \0
0012020 \0 k 325 A D j 021 005 004 K H 363 263 # J I
0012040 363 263 036 @ J \n \0 \0 C K \n \0 \0 360 241 L
0012060 020 J k 324 272 K k 324 273 L k 324 274 260 334 h
0012100 020 \0 ( 5 3 Q C H A R 4 6 Q
0012120 C H A R 1 7 Q C L : L E N G
0012140 T H 6 C L : L E N G T H ) \r
0012160 N I L \r ( ) \r S T R I N G = *
0012200 D 1 \r ( L ( 5 E N D 2 4
0012220 S T A R T 2 3 E N D 1 2
0012240 S T A R T 1 1 S T R I N G 2
0012260 0 S T R I N G 1 ) ) \0 D \0
0012300 \0 \0 006 @ 004 l 004 360 226 @ \t \0 \0 b \0 277
0012320 C 246 @ \t \0 \0 b 006 277 A 004 l 004 360 226 A
0012340 \t \0 \0 b 002 277 E 265 \b A \t \0 \0 b \n D
0012360 325 C B 325 \n \0 \0 264 016 @ B C A D E \r
0012400 006 \0 \0 h 360 020 \0 ( 7 7 Q \ S P -
0012420 S T R I N G - C O M P A R E 6
0012440 3 Q % % = 5 1 Q C L : L E
0012460 N G T H 3 7 Q S Y M B O L -
0012500 N A M E 2 2 Q C L : L E N G
0012520 T H 1 1 Q S Y M B O L - N A
0012540 M E ) \r N I L \r ( ) \r S T R I N
0012560 G / = * D 1 \r ( L ( 5 E N
0012600 D 2 4 S T A R T 2 3 E N
0012620 D 1 2 S T A R T 1 1 S T
0012640 R I N G 2 0 S T R I N G 1 )
0012660 ) \0 8 \0 \0 \0 006 @ 004 l 004 360 226 @ \t
0012700 \0 \0 b \0 277 C 246 @ \t \0 \0 b 006 277 A 004
0012720 l 004 360 226 A \t \0 \0 b 002 277 E 246 A \t \0
0012740 \0 b \n 277 @ B C A D E \r 006 \0 \0 020 \0
0012760 ( 6 5 Q \ S P - S T R I N G -
0013000 C O M P A R E 5 0 Q C L : L
0013020 E N G T H 3 7 Q S Y M B O L
0013040 - N A M E 2 2 Q C L : L E N
0013060 G T H 1 1 Q S Y M B O L - N
0013100 A M E ) \r N I L \r ( ) \r S T R I
0013120 N G < * D 1 \r ( L ( 5 E N
0013140 D 2 4 S T A R T 2 3 E N
0013160 D 1 2 S T A R T 1 1 S T
0013200 R I N G 2 0 S T R I N G 1 )
0013220 ) \0 b 001 \0 \0 006 @ 004 l 004 360 226 @ \t
0013240 \0 \0 b \0 277 C 246 @ \t \0 \0 b 006 277 A 004
0013260 l 004 360 226 A \t \0 \0 b 002 277 E 246 A \t \0
0013300 \0 b \n 277 @ B C A D E \r 006 \0 \0 021 001
0013320 \0 H d 262 % d C \n \0 \0 221 H 020 E \n \0
0013340 \0 221 h 020 @ H \n \0 \0 A H D B 325 324 \n
0013360 \0 \0 \n \0 \0 264 003 H 020 \0 ( 1 3 4 Q
0013400 C H A R < 1 3 1 Q C H A R
0013420 1 2 0 Q C H A R 1 1 0 Q %
0013440 % = 1 0 1 Q % % = 6 5 Q
0013460 \ S P - S T R I N G - C O M P A
0013500 R E 5 0 Q C L : L E N G T H
0013520 3 7 Q S Y M B O L - N A M E
0013540 2 2 Q C L : L E N G T H 1
0013560 1 Q S Y M B O L - N A M E ) \r
0013600 N I L \r ( ) \r S T R I N G > *
0013620 D 1 \r ( L ( 5 E N D 2 4
0013640 S T A R T 2 3 E N D 1 2
0013660 S T A R T 1 1 S T R I N G 2
0013700 0 S T R I N G 1 ) ) \0 b 001
0013720 \0 \0 006 @ 004 l 004 360 226 @ \t \0 \0 b \0 277
0013740 C 246 @ \t \0 \0 b 006 277 A 004 l 004 360 226 A
0013760 \t \0 \0 b 002 277 E 246 A \t \0 \0 b \n 277 @
0014000 B C A D E \r 006 \0 \0 021 001 \0 H d 262 %
0014020 d E \n \0 \0 221 H 020 C \n \0 \0 221 h 020 @
0014040 H \n \0 \0 A H D B 325 324 \n \0 \0 \n \0 \0
0014060 264 003 H 020 \0 ( 1 3 4 Q C H A R >
0014100 1 3 1 Q C H A R 1 2 0 Q
0014120 C H A R 1 1 0 Q % % = 1 0
0014140 1 Q % % = 6 5 Q \ S P - S
0014160 T R I N G - C O M P A R E 5 0
0014200 Q C L : L E N G T H 3 7 Q
0014220 S Y M B O L - N A M E 2 2 Q
0014240 C L : L E N G T H 1 1 Q S Y
0014260 M B O L - N A M E ) \r N I L \r (
0014300 ) \r S T R I N G < = * D 1 \r (
0014320 L ( 5 E N D 2 4 S T A R
0014340 T 2 3 E N D 1 2 S T A R
0014360 T 1 1 S T R I N G 2 0 S
0014400 T R I N G 1 ) ) \0 e 001 \0 \0 006 @
0014420 004 l 004 360 226 @ \t \0 \0 b \0 277 C 246 @ \t
0014440 \0 \0 b 006 277 A 004 l 004 360 226 A \t \0 \0 b
0014460 002 277 E 246 A \t \0 \0 b \n 277 @ B C A D
0014500 E \r 006 \0 \0 021 001 \0 H 265 006 C B 325 020 d
0014520 C \n \0 \0 221 H 020 E \n \0 \0 221 h 020 @ H
0014540 \n \0 \0 A H D B 325 324 \n \0 \0 \n \0 \0 264
0014560 003 H 020 \0 ( 1 3 7 Q C H A R <
0014600 1 3 4 Q C H A R 1 2 3 Q C
0014620 H A R 1 1 3 Q % % = 1 0 4
0014640 Q % % = 6 5 Q \ S P - S T
0014660 R I N G - C O M P A R E 5 0 Q
0014700 C L : L E N G T H 3 7 Q S
0014720 Y M B O L - N A M E 2 2 Q C
0014740 L : L E N G T H 1 1 Q S Y M
0014760 B O L - N A M E ) \r N I L \r ( )
0015000 \r S T R I N G > = * D 1 \r ( L
0015020 ( 5 E N D 2 4 S T A R T
0015040 2 3 E N D 1 2 S T A R T
0015060 1 1 S T R I N G 2 0 S T
0015100 R I N G 1 ) ) \0 e 001 \0 \0 006 @ 004
0015120 l 004 360 226 @ \t \0 \0 b \0 277 C 246 @ \t \0
0015140 \0 b 006 277 A 004 l 004 360 226 A \t \0 \0 b 002
0015160 277 E 246 A \t \0 \0 b \n 277 @ B C A D E
0015200 \r 006 \0 \0 021 001 \0 H 265 006 C B 325 020 d E
0015220 \n \0 \0 221 H 020 C \n \0 \0 221 h 020 @ H \n
0015240 \0 \0 A H D B 325 324 \n \0 \0 \n \0 \0 264 003
0015260 H 020 \0 ( 1 3 7 Q C H A R > 1
0015300 3 4 Q C H A R 1 2 3 Q C H
0015320 A R 1 1 3 Q % % = 1 0 4 Q
0015340 % % = 6 5 Q \ S P - S T R
0015360 I N G - C O M P A R E 5 0 Q
0015400 C L : L E N G T H 3 7 Q S Y
0015420 M B O L - N A M E 2 2 Q C L
0015440 : L E N G T H 1 1 Q S Y M B
0015460 O L - N A M E ) \r N I L \r ( ) \r
0015500 S T R I N G < D 1 \r ( L ( 0
0015520 - a r g s - ) ) 001 h 025 \0 002 \0
0015540 e 021 001 \0 k a 021 361 020 l 002 a 272 H l 003
0015560 274 273 L d K 363 242 261 \0 277 277 j 275 H l 003
0015600 _ 016 277 276 O 016 d N 363 242 261 \0 301 277 h _
0015620 020 277 H l 003 _ 024 277 _ 022 277 O 024 d O 022
0015640 363 242 261 \0 301 277 j _ 026 277 H l 003 _ 032 277
0015660 _ 030 277 O 032 d O 030 363 242 261 \0 301 277 h _
0015700 034 277 I 004 l 004 360 224 I \t \0 \0 271 O 020 246
0015720 I \t \0 \0 _ 020 277 J 004 l 004 360 224 J \t \0
0015740 \0 272 O 034 246 J \t \0 \0 _ 034 277 O 020 M 325
0015760 O 034 O 026 325 _ 277 _ 036 277 j O 036 363 244
0016000 j O 363 227 o \0 \0 \0 \t \0 \0 277 M O 026
0016020 021 " 024 O " d O 020 \n \0 \0 253 277 O $ O
0016040 034 \n \0 \0 262 o O " O 020 \n \0 \0 264 003 202
0016060 261 \0 206 O " 020 a g \0 \0 360 226 L k 330 a
0016100 261 377 < L l 002 324 \ 261 377 + a g \0 \0 360
0016120 227 O 016 k 330 a 261 377 9 O 016 l 002 324 _ 016
0016140 261 377 & a g \0 \0 360 227 O 024 k 330 a 261 377
0016160 9 O 024 l 002 324 _ 024 261 377 % a g \0 \0 360
0016200 227 O 032 k 330 a 261 377 9 O 032 l 002 324 _ 032
0016220 261 377 % I O " \n \0 \0 _ & 277 J O $ \n
0016240 \0 \0 _ ( 277 O & O ( : 253 O & O ( \n
0016260 \0 \0 264 004 O " 020 O " k 324 O $ k 324 _
0016300 $ 277 _ " 261 377 Q \0 ( 5 2 1 Q C H
0016320 A R < 5 0 1 Q C H A R 4 7
0016340 0 Q C H A R 3 1 4 Q % % =
0016360 3 0 3 Q % % = 2 7 2 Q %
0016400 % = 2 5 3 Q C L : E R R O R
0016420 2 1 0 Q C L : L E N G T H
0016440 2 0 0 Q S Y M B O L - N A M E
0016460 1 6 3 Q C L : L E N G T H
0016500 1 5 3 Q S Y M B O L - N A M E
0016520 ) \r ( 4 3 6 Q : E N D 2 4 0
0016540 6 Q : S T A R T 2 3 5 6 Q
0016560 : E N D 1 3 3 1 Q : S T A R
0016600 T 1 ) \r ( 2 5 0 Q " I m p r
0016620 o p e r b o u n d s f o r
0016640 s t r i n g c o m p a r i s o
0016660 n . " ) \r S T R I N G > D 1 \r
0016700 ( L ( 0 - a r g s - ) ) 001
0016720 d 025 \0 002 \0 e 021 001 \0 k a 021 361 020 l 002
0016740 a 272 H l 003 274 273 L d K 363 242 261 \0 271 277
0016760 j 275 H l 003 _ 016 277 276 O 016 d N 363 242 261
0017000 \0 273 277 h _ 020 277 H l 003 _ 024 277 _ 022 277
0017020 O 024 d O 022 363 242 261 \0 273 277 j _ 026 277 H
0017040 l 003 _ 032 277 _ 030 277 O 032 d O 030 363 242 261
0017060 \0 273 277 h _ 034 277 I 004 l 004 360 224 I \t \0
0017100 \0 271 O 020 246 I \t \0 \0 _ 020 277 J 004 l 004
0017120 360 224 J \t \0 \0 272 O 034 246 J \t \0 \0 _ 034
0017140 277 O 020 M 325 O 034 O 026 325 _ 277 _ 036 277
0017160 j O 036 363 244 j O 363 227 o \0 \0 \0 \t \0
0017200 \0 277 M O 026 021 " 024 O " O 020 \n \0 \0 250
0017220 O $ O 034 \n \0 \0 262 m O 036 O \n \0 \0
0017240 263 b O " 020 a g \0 \0 360 226 L k 330 a 261
0017260 377 B L l 002 324 \ 261 377 1 a g \0 \0 360 227
0017300 O 016 k 330 a 261 377 ? O 016 l 002 324 _ 016 261
0017320 377 , a g \0 \0 360 227 O 024 k 330 a 261 377 ?
0017340 O 024 l 002 324 _ 024 261 377 + a g \0 \0 360 227
0017360 O 032 k 330 a 261 377 ? O 032 l 002 324 _ 032 261
0017400 377 + h 020 I O " \n \0 \0 _ & 277 J O $
0017420 \n \0 \0 _ ( 277 O & O ( : 253 O & O (
0017440 \n \0 \0 264 004 O " 020 O " k 324 O $ k 324
0017460 _ $ 277 _ " 261 377 U \0 ( 5 1 5 Q C
0017500 H A R > 4 7 5 Q C H A R 4
0017520 6 4 Q C H A R 3 1 2 Q % %
0017540 = 3 0 1 Q % % = 2 7 1 Q
0017560 % % = 2 5 3 Q C L : E R R O
0017600 R 2 1 0 Q C L : L E N G T H
0017620 2 0 0 Q S Y M B O L - N A M
0017640 E 1 6 3 Q C L : L E N G T H
0017660 1 5 3 Q S Y M B O L - N A M
0017700 E ) \r ( 4 3 0 Q : E N D 2 4
0017720 0 0 Q : S T A R T 2 3 5 0 Q
0017740 : E N D 1 3 2 3 Q : S T A
0017760 R T 1 ) \r ( 2 5 0 Q " I m p
0020000 r o p e r b o u n d s f o r
0020020 s t r i n g c o m p a r i s
0020040 o n . " ) \r S T R I N G < = D
0020060 1 \r ( L ( 0 - a r g s - ) )
0020100 001 h 025 \0 002 \0 e 021 001 \0 k a 021 361 020
0020120 l 002 a 272 H l 003 274 273 L d K 363 242 261 \0
0020140 277 277 j 275 H l 003 _ 016 277 276 O 016 d N 363
0020160 242 261 \0 301 277 h _ 020 277 H l 003 _ 024 277 _
0020200 022 277 O 024 d O 022 363 242 261 \0 301 277 j _ 026
0020220 277 H l 003 _ 032 277 _ 030 277 O 032 d O 030 363
0020240 242 261 \0 301 277 h _ 034 277 I 004 l 004 360 224 I
0020260 \t \0 \0 271 O 020 246 I \t \0 \0 _ 020 277 J 004
0020300 l 004 360 224 J \t \0 \0 272 O 034 246 J \t \0 \0
0020320 _ 034 277 O 020 M 325 O 034 O 026 325 _ 277 _
0020340 036 277 j O 036 363 244 j O 363 227 o \0 \0 \0
0020360 \t \0 \0 277 M O 026 021 " 024 O " d O 020 \n
0020400 \0 \0 253 277 O $ O 034 \n \0 \0 262 o O " O
0020420 020 \n \0 \0 264 003 202 261 \0 206 O " 020 a g \0
0020440 \0 360 226 L k 330 a 261 377 < L l 002 324 \ 261
0020460 377 + a g \0 \0 360 227 O 016 k 330 a 261 377 9
0020500 O 016 l 002 324 _ 016 261 377 & a g \0 \0 360 227
0020520 O 024 k 330 a 261 377 9 O 024 l 002 324 _ 024 261
0020540 377 % a g \0 \0 360 227 O 032 k 330 a 261 377 9
0020560 O 032 l 002 324 _ 032 261 377 % I O " \n \0 \0
0020600 _ & 277 J O $ \n \0 \0 _ ( 277 O & O (
0020620 : 253 O & O ( \n \0 \0 264 004 O " 020 O "
0020640 k 324 O $ k 324 _ $ 277 _ " 261 377 Q \0 (
0020660 5 2 1 Q C H A R < = 5 0 1 Q
0020700 C H A R 4 7 0 Q C H A R
0020720 3 1 4 Q % % = 3 0 3 Q % %
0020740 = 2 7 2 Q % % = 2 5 3 Q
0020760 C L : E R R O R 2 1 0 Q C L
0021000 : L E N G T H 2 0 0 Q S Y M
0021020 B O L - N A M E 1 6 3 Q C L
0021040 : L E N G T H 1 5 3 Q S Y M
0021060 B O L - N A M E ) \r ( 4 3 6 Q
0021100 : E N D 2 4 0 6 Q : S T A R
0021120 T 2 3 5 6 Q : E N D 1 3 3
0021140 1 Q : S T A R T 1 ) \r ( 2 5
0021160 0 Q " I m p r o p e r b o u
0021200 n d s f o r s t r i n g c
0021220 o m p a r i s o n . " ) \r S T R
0021240 I N G > = D 1 \r ( L ( 0 -
0021260 a r g s - ) ) \0 276 017 \0 002 \0 e 021
0021300 001 \0 k a 021 321 016 l 002 a 272 H l 003 274 273
0021320 L d K 363 262 R 277 j 275 H l 003 _ 016 277 276
0021340 O 016 d N 363 262 T 277 h _ 020 277 H l 003 _
0021360 024 277 _ 022 277 O 024 d O 022 363 262 T 277 j _
0021400 026 277 H l 003 _ 032 277 _ 030 277 O 032 d O 030
0021420 363 262 T 277 h _ 034 277 I J M O 020 O 026 O
0021440 034 \r 006 \0 \0 020 a g \0 \0 360 225 L k 330 a
0021460 260 250 L l 002 324 \ 260 232 a g \0 \0 360 226 O
0021500 016 k 330 a 260 245 O 016 l 002 324 _ 016 260 225 a
0021520 g \0 \0 360 226 O 024 k 330 a 260 245 O 024 l 002
0021540 324 _ 024 260 224 a g \0 \0 360 226 O 032 k 330 a
0021560 260 245 O 032 l 002 324 _ 032 260 224 \0 ( 1 4 6
0021600 Q S T R I N G > = * ) \r ( 2 5
0021620 2 Q : E N D 2 2 2 4 Q : S
0021640 T A R T 2 1 7 6 Q : E N D 1
0021660 1 5 3 Q : S T A R T 1 ) \r (
0021700 ) \r S T R I N G = D 1 \r ( L
0021720 ( 0 - a r g s - ) ) 001 > 023 \0
0021740 002 \0 e 021 001 \0 k a 021 321 016 l 002 a 272 H
0021760 l 003 274 273 L d K 363 242 261 \0 305 277 j 275 H
0022000 l 003 _ 016 277 276 O 016 d N 363 242 261 \0 307 277
0022020 h _ 020 277 H l 003 _ 024 277 _ 022 277 O 024 d
0022040 O 022 363 242 261 \0 307 277 j _ 026 277 H l 003 _
0022060 032 277 _ 030 277 O 032 d O 030 363 242 261 \0 307 277
0022100 h _ 034 277 I 004 l 004 360 224 I \t \0 \0 271 O
0022120 020 246 I \t \0 \0 _ 020 277 J 004 l 004 360 224 J
0022140 \t \0 \0 272 O 034 265 \b J \t \0 \0 _ 034 O 026
0022160 325 O 020 M 325 \n \0 \0 264 003 202 261 \0 243 O 034
0022200 k 325 O 020 k 325 M O 026 021 004 022 O $ O 036
0022220 363 222 261 \0 212 O " d O 363 222 261 \0 202 277
0022240 I O " \n \0 \0 J O $ \n \0 \0 : 264 n O
0022260 " k 324 _ " 277 O $ k 324 _ $ 260 322 a g
0022300 \0 \0 360 226 L k 330 a 261 377 6 L l 002 324 \
0022320 261 377 % a g \0 \0 360 227 O 016 k 330 a 261 377
0022340 3 O 016 l 002 324 _ 016 261 377 a g \0 \0 360
0022360 227 O 024 k 330 a 261 377 3 O 024 l 002 324 _ 024
0022400 261 377 037 a g \0 \0 360 227 O 032 k 330 a 261 377
0022420 3 O 032 l 002 324 _ 032 261 377 037 020 O " 020 \0
0022440 ( 3 1 1 Q C H A R 3 0 3 Q
0022460 C H A R 2 2 5 Q % % = 2 1
0022500 1 Q C L : L E N G T H 2 0 0
0022520 Q S Y M B O L - N A M E 1 6
0022540 3 Q C L : L E N G T H 1 5 3
0022560 Q S Y M B O L - N A M E ) \r (
0022600 4 4 4 Q : E N D 2 4 1 4 Q
0022620 : S T A R T 2 3 6 4 Q : E N
0022640 D 1 3 3 7 Q : S T A R T 1 )
0022660 \r ( ) \r S T R I N G / = D 1 \r
0022700 ( L ( 0 - a r g s - ) ) 001
0022720 B 023 \0 002 \0 e 021 001 \0 k a 021 321 016 l 002
0022740 a 272 H l 003 274 273 L d K 363 242 261 \0 247 277
0022760 j 275 H l 003 _ 016 277 276 O 016 d N 363 242 261
0023000 \0 251 277 h _ 020 277 H l 003 _ 024 277 _ 022 277
0023020 O 024 d O 022 363 242 261 \0 251 277 j _ 026 277 H
0023040 l 003 _ 032 277 _ 030 277 O 032 d O 030 363 242 261
0023060 \0 251 277 h _ 034 277 I 004 l 004 360 224 I \t \0
0023100 \0 271 O 020 246 I \t \0 \0 _ 020 277 J 004 l 004
0023120 360 224 J \t \0 \0 272 O 034 265 \b J \t \0 \0 _
0023140 034 k 325 O 020 k 325 M O 026 021 004 022 O $ O
0023160 036 363 222 261 \0 215 O " d O 363 222 261 \0 205
0023200 277 I O " \n \0 \0 J O $ \n \0 \0 360 263 b
0023220 O " 020 a g \0 \0 360 226 L k 330 a 261 377 T
0023240 L l 002 324 \ 261 377 C a g \0 \0 360 227 O 016
0023260 k 330 a 261 377 Q O 016 l 002 324 _ 016 261 377 >
0023300 a g \0 \0 360 227 O 024 k 330 a 261 377 Q O 024
0023320 l 002 324 _ 024 261 377 = a g \0 \0 360 227 O 032
0023340 k 330 a 261 377 Q O 032 l 002 324 _ 032 261 377 =
0023360 O " k 324 _ " 277 O $ k 324 _ $ 261 377 r
0023400 O " O 020 \n \0 \0 232 O $ d O 034 \n \0 \0
0023420 220 h 020 O $ 020 \0 ( 4 7 2 Q % % =
0023440 4 6 1 Q % % = 2 6 7 Q C
0023460 H A R 2 6 1 Q C H A R 2 1
0023500 1 Q C L : L E N G T H 2 0 0
0023520 Q S Y M B O L - N A M E 1 6
0023540 3 Q C L : L E N G T H 1 5 3
0023560 Q S Y M B O L - N A M E ) \r (
0023600 4 0 6 Q : E N D 2 3 5 6 Q
0023620 : S T A R T 2 3 2 6 Q : E N
0023640 D 1 3 0 1 Q : S T A R T 1 )
0023660 \r ( ) \r S T R I N G - L E S S P
0023700 D 1 \r ( L ( 0 - a r g s -
0023720 ) ) 001 f 025 \0 002 \0 e 021 001 \0 k a 021
0023740 361 020 l 002 a 272 H l 003 274 273 L d K 363 242
0023760 261 \0 271 277 j 275 H l 003 _ 016 277 276 O 016 d
0024000 N 363 242 261 \0 273 277 h _ 020 277 H l 003 _ 024
0024020 277 _ 022 277 O 024 d O 022 363 242 261 \0 273 277 j
0024040 _ 026 277 H l 003 _ 032 277 _ 030 277 O 032 d O
0024060 030 363 242 261 \0 273 277 h _ 034 277 I 004 l 004 360
0024100 224 I \t \0 \0 271 O 020 246 I \t \0 \0 _ 020 277
0024120 J 004 l 004 360 224 J \t \0 \0 272 O 034 246 J \t
0024140 \0 \0 _ 034 277 O 020 M 325 O 034 O 026 325 _
0024160 277 _ 036 277 j O 036 363 244 j O 363 227 o \0
0024200 \0 \0 \t \0 \0 277 M O 026 021 " 024 O " O 020
0024220 \n \0 \0 250 O $ O 034 \n \0 \0 262 m O 036 O
0024240 \n \0 \0 263 b O " 020 a g \0 \0 360 226 L
0024260 k 330 a 261 377 B L l 002 324 \ 261 377 1 a g
0024300 \0 \0 360 227 O 016 k 330 a 261 377 ? O 016 l 002
0024320 324 _ 016 261 377 , a g \0 \0 360 227 O 024 k 330
0024340 a 261 377 ? O 024 l 002 324 _ 024 261 377 + a g
0024360 \0 \0 360 227 O 032 k 330 a 261 377 ? O 032 l 002
0024400 324 _ 032 261 377 + h 020 I O " \n \0 \0 _ &
0024420 277 J O $ \n \0 \0 _ ( 277 O & O ( \n \0
0024440 \0 253 O & O ( \n \0 \0 264 004 O " 020 O "
0024460 k 324 O $ k 324 _ $ 277 _ " 261 377 S \0 (
0024500 5 1 7 Q C H A R - L E S S P
0024520 5 0 7 Q C H A R - E Q U A L
0024540 4 7 5 Q C H A R 4 6 4 Q C
0024560 H A R 3 1 2 Q % % = 3 0 1
0024600 Q % % = 2 7 1 Q % % = 2
0024620 5 3 Q C L : E R R O R 2 1 0
0024640 Q C L : L E N G T H 2 0 0 Q
0024660 S Y M B O L - N A M E 1 6 3
0024700 Q C L : L E N G T H 1 5 3 Q
0024720 S Y M B O L - N A M E ) \r ( 4
0024740 3 0 Q : E N D 2 4 0 0 Q :
0024760 S T A R T 2 3 5 0 Q : E N D
0025000 1 3 2 3 Q : S T A R T 1 ) \r
0025020 ( 2 5 0 Q " I m p r o p e r
0025040 b o u n d s f o r s t r i
0025060 n g c o m p a r i s o n . " )
0025100 \r S T R I N G - G R E A T E R P
0025120 D 1 \r ( L ( 0 - a r g s -
0025140 ) ) 001 f 025 \0 002 \0 e 021 001 \0 k a 021
0025160 361 020 l 002 a 272 H l 003 274 273 L d K 363 242
0025200 261 \0 271 277 j 275 H l 003 _ 016 277 276 O 016 d
0025220 N 363 242 261 \0 273 277 h _ 020 277 H l 003 _ 024
0025240 277 _ 022 277 O 024 d O 022 363 242 261 \0 273 277 j
0025260 _ 026 277 H l 003 _ 032 277 _ 030 277 O 032 d O
0025300 030 363 242 261 \0 273 277 h _ 034 277 I 004 l 004 360
0025320 224 I \t \0 \0 271 O 020 246 I \t \0 \0 _ 020 277
0025340 J 004 l 004 360 224 J \t \0 \0 272 O 034 246 J \t
0025360 \0 \0 _ 034 277 O 020 M 325 O 034 O 026 325 _
0025400 277 _ 036 277 j O 036 363 244 j O 363 227 o \0
0025420 \0 \0 \t \0 \0 277 M O 026 021 " 024 O " O 020
0025440 \n \0 \0 250 O $ O 034 \n \0 \0 262 m O 036 O
0025460 \n \0 \0 263 b O " 020 a g \0 \0 360 226 L
0025500 k 330 a 261 377 B L l 002 324 \ 261 377 1 a g
0025520 \0 \0 360 227 O 016 k 330 a 261 377 ? O 016 l 002
0025540 324 _ 016 261 377 , a g \0 \0 360 227 O 024 k 330
0025560 a 261 377 ? O 024 l 002 324 _ 024 261 377 + a g
0025600 \0 \0 360 227 O 032 k 330 a 261 377 ? O 032 l 002
0025620 324 _ 032 261 377 + h 020 I O " \n \0 \0 _ &
0025640 277 J O $ \n \0 \0 _ ( 277 O & O ( \n \0
0025660 \0 253 O & O ( \n \0 \0 264 004 O " 020 O "
0025700 k 324 O $ k 324 _ $ 277 _ " 261 377 S \0 (
0025720 5 1 7 Q C H A R - G R E A T E
0025740 R P 5 0 7 Q C H A R - E Q U
0025760 A L 4 7 5 Q C H A R 4 6 4
0026000 Q C H A R 3 1 2 Q % % =
0026020 3 0 1 Q % % = 2 7 1 Q % %
0026040 = 2 5 3 Q C L : E R R O R
0026060 2 1 0 Q C L : L E N G T H 2
0026100 0 0 Q S Y M B O L - N A M E
0026120 1 6 3 Q C L : L E N G T H 1
0026140 5 3 Q S Y M B O L - N A M E )
0026160 \r ( 4 3 0 Q : E N D 2 4 0 0
0026200 Q : S T A R T 2 3 5 0 Q :
0026220 E N D 1 3 2 3 Q : S T A R T
0026240 1 ) \r ( 2 5 0 Q " I m p r o
0026260 p e r b o u n d s f o r s
0026300 t r i n g c o m p a r i s o n
0026320 . " ) \r S T R I N G - N O T - G
0026340 R E A T E R P D 1 \r ( L ( 0
0026360 - a r g s - ) ) 001 ^ 025 \0 002 \0
0026400 e 021 001 \0 k a 021 361 020 l 002 a 272 H l 003
0026420 274 273 L d K 363 242 261 \0 262 277 j 275 H l 003
0026440 _ 016 277 276 O 016 d N 363 242 261 \0 264 277 h _
0026460 020 277 H l 003 _ 024 277 _ 022 277 O 024 d O 022
0026500 363 242 261 \0 264 277 j _ 026 277 H l 003 _ 032 277
0026520 _ 030 277 O 032 d O 030 363 242 261 \0 264 277 h _
0026540 034 277 I 004 l 004 360 224 I \t \0 \0 271 O 020 246
0026560 I \t \0 \0 _ 020 277 J 004 l 004 360 224 J \t \0
0026600 \0 272 O 034 246 J \t \0 \0 _ 034 277 O 020 M 325
0026620 O 034 O 026 325 _ 277 _ 036 277 j O 036 363 244
0026640 j O 363 227 o \0 \0 \0 \t \0 \0 277 M O 026
0026660 021 " 024 O " d O 020 \n \0 \0 253 277 O $ O
0026700 034 \n \0 \0 262 b O " 020 a g \0 \0 360 226 L
0026720 k 330 a 261 377 I L l 002 324 \ 261 377 8 a g
0026740 \0 \0 360 227 O 016 k 330 a 261 377 F O 016 l 002
0026760 324 _ 016 261 377 3 a g \0 \0 360 227 O 024 k 330
0027000 a 261 377 F O 024 l 002 324 _ 024 261 377 2 a g
0027020 \0 \0 360 227 O 032 k 330 a 261 377 F O 032 l 002
0027040 324 _ 032 261 377 2 I O " \n \0 \0 _ & 277 J
0027060 O $ \n \0 \0 _ ( 277 O & O ( \n \0 \0 254
0027100 O & O ( \n \0 \0 242 261 377 ~ h 020 O " k
0027120 324 O $ k 324 _ $ 277 _ " 261 377 [ \0 ( 5
0027140 0 6 Q C H A R - G R E A T E R
0027160 P 4 7 6 Q C H A R - E Q U A
0027200 L 4 6 4 Q C H A R 4 5 3 Q
0027220 C H A R 3 0 3 Q % % = 2
0027240 7 2 Q % % = 2 5 3 Q C L :
0027260 E R R O R 2 1 0 Q C L : L E
0027300 N G T H 2 0 0 Q S Y M B O L
0027320 - N A M E 1 6 3 Q C L : L E
0027340 N G T H 1 5 3 Q S Y M B O L
0027360 - N A M E ) \r ( 4 2 1 Q : E N
0027400 D 2 3 7 1 Q : S T A R T 2
0027420 3 4 1 Q : E N D 1 3 1 4 Q
0027440 : S T A R T 1 ) \r ( 2 5 0 Q
0027460 " I m p r o p e r b o u n d s
0027500 f o r s t r i n g c o m p
0027520 a r i s o n . " ) \r S T R I N G
0027540 - N O T - L E S S P D 1 \r ( L
0027560 ( 0 - a r g s - ) ) 001 ^ 025
0027600 \0 002 \0 e 021 001 \0 k a 021 361 020 l 002 a 272
0027620 H l 003 274 273 L d K 363 242 261 \0 262 277 j 275
0027640 H l 003 _ 016 277 276 O 016 d N 363 242 261 \0 264
0027660 277 h _ 020 277 H l 003 _ 024 277 _ 022 277 O 024
0027700 d O 022 363 242 261 \0 264 277 j _ 026 277 H l 003
0027720 _ 032 277 _ 030 277 O 032 d O 030 363 242 261 \0 264
0027740 277 h _ 034 277 I 004 l 004 360 224 I \t \0 \0 271
0027760 O 020 246 I \t \0 \0 _ 020 277 J 004 l 004 360 224
0030000 J \t \0 \0 272 O 034 246 J \t \0 \0 _ 034 277 O
0030020 020 M 325 O 034 O 026 325 _ 277 _ 036 277 j O
0030040 036 363 244 j O 363 227 o \0 \0 \0 \t \0 \0 277
0030060 M O 026 021 " 024 O " d O 020 \n \0 \0 253 277
0030100 O $ O 034 \n \0 \0 262 b O " 020 a g \0 \0
0030120 360 226 L k 330 a 261 377 I L l 002 324 \ 261 377
0030140 8 a g \0 \0 360 227 O 016 k 330 a 261 377 F O
0030160 016 l 002 324 _ 016 261 377 3 a g \0 \0 360 227 O
0030200 024 k 330 a 261 377 F O 024 l 002 324 _ 024 261 377
0030220 2 a g \0 \0 360 227 O 032 k 330 a 261 377 F O
0030240 032 l 002 324 _ 032 261 377 2 I O " \n \0 \0 _
0030260 & 277 J O $ \n \0 \0 _ ( 277 O & O ( \n
0030300 \0 \0 254 O & O ( \n \0 \0 242 261 377 ~ h 020
0030320 O " k 324 O $ k 324 _ $ 277 _ " 261 377 [
0030340 \0 ( 5 0 6 Q C H A R - L E S S
0030360 P 4 7 6 Q C H A R - E Q U A
0030400 L 4 6 4 Q C H A R 4 5 3 Q
0030420 C H A R 3 0 3 Q % % = 2
0030440 7 2 Q % % = 2 5 3 Q C L :
0030460 E R R O R 2 1 0 Q C L : L E
0030500 N G T H 2 0 0 Q S Y M B O L
0030520 - N A M E 1 6 3 Q C L : L E
0030540 N G T H 1 5 3 Q S Y M B O L
0030560 - N A M E ) \r ( 4 2 1 Q : E N
0030600 D 2 3 7 1 Q : S T A R T 2
0030620 3 4 1 Q : E N D 1 3 1 4 Q
0030640 : S T A R T 1 ) \r ( 2 5 0 Q
0030660 " I m p r o p e r b o u n d s
0030700 f o r s t r i n g c o m p
0030720 a r i s o n . " ) \r S T R I N G
0030740 - N O T - E Q U A L D 1 \r ( L
0030760 ( 0 - a r g s - ) ) 001 272 027
0031000 \0 002 \0 e 021 001 \0 k a 021 361 020 021 ` 026 l
0031020 002 a 272 H l 003 274 273 L d K 363 242 261 \0 251
0031040 277 j 275 H l 003 _ 016 277 276 O 016 d N 363 242
0031060 261 \0 253 277 h _ 020 277 H l 003 _ 024 277 _ 022
0031100 277 O 024 d O 022 363 242 261 \0 253 277 j _ 026 277
0031120 H l 003 _ 032 277 _ 030 277 O 032 d O 030 363 242
0031140 261 \0 253 277 h _ 034 277 I 004 l 004 360 224 I \t
0031160 \0 \0 271 O 020 246 I \t \0 \0 _ 020 277 J 004 l
0031200 004 360 224 J \t \0 \0 272 O 034 246 J \t \0 \0 _
0031220 034 277 O 020 M 325 O 034 O 026 325 _ 277 _ 036
0031240 277 j O 036 363 244 j O 363 227 o \0 \0 \0 \t
0031260 \0 \0 277 j O 036 363 245 j O 363 262 g o \0
0031300 \0 \0 \t \0 \0 020 a g \0 \0 360 226 L k 330 a
0031320 261 377 R L l 002 324 \ 261 377 A a g \0 \0 360
0031340 227 O 016 k 330 a 261 377 O O 016 l 002 324 _ 016
0031360 261 377 < a g \0 \0 360 227 O 024 k 330 a 261 377
0031400 O O 024 l 002 324 _ 024 261 377 ; a g \0 \0 360
0031420 227 O 032 k 330 a 261 377 O O 032 l 002 324 _ 032
0031440 261 377 ; O 036 O \n \0 \0 262 / M O 026 _
0031460 $ 277 _ " O 020 \n \0 \0 221 h 020 I O " \n
0031500 \0 \0 J O $ \n \0 \0 \n \0 \0 242 O " 020 O
0031520 " k 324 O $ k 324 260 330 O O 036 363 262 0
0031540 M O 026 _ ( 277 _ & d O 020 \n \0 \0 263 025
0031560 277 I O & \n \0 \0 J O ( \n \0 \0 \n \0 \0
0031600 242 O & 020 O & k 324 O ( k 324 260 327 M O
0031620 026 _ , 277 _ * 277 O , O 034 \n \0 \0 257 I
0031640 O * \n \0 \0 J O , \n \0 \0 \n \0 \0 242 O
0031660 * 020 O * k 324 O , k 324 260 327 \0 ( 6 5
0031700 2 Q C H A R - E Q U A L 6 4
0031720 7 Q C H A R 6 4 1 Q C H A
0031740 R 6 3 2 Q % % = 5 7 4 Q
0031760 C H A R - E Q U A L 5 7 1 Q
0032000 C H A R 5 6 3 Q C H A R 5
0032020 5 2 Q % % = 5 0 7 Q C H A
0032040 R - E Q U A L 5 0 4 Q C H A
0032060 R 4 7 6 Q C H A R 4 6 5 Q
0032100 % % = 4 4 6 Q % % = 3 0
0032120 1 Q C L : E R R O R 2 5 6 Q
0032140 C L : E R R O R 2 1 3 Q C
0032160 L : L E N G T H 2 0 3 Q S Y
0032200 M B O L - N A M E 1 6 6 Q C
0032220 L : L E N G T H 1 5 6 Q S Y
0032240 M B O L - N A M E ) \r ( 4 1 3 Q
0032260 : E N D 2 3 6 3 Q : S T A
0032300 R T 2 3 3 3 Q : E N D 1 3
0032320 0 6 Q : S T A R T 1 ) \r ( 2
0032340 7 6 Q " I m p r o p e r s u
0032360 b s t r i n g f o r c o m p
0032400 a r i s o n . " 2 5 3 Q " I
0032420 m p r o p e r b o u n d s f
0032440 o r s t r i n g c o m p a r
0032460 i s o n . " ) \r M A K E - S T R
0032500 I N G D 1 \r ( L ( 0 - a r
0032520 g s - ) ) \0 5 005 \0 002 \0 e 021 001 \0
0032540 k a 021 1 004 H l 002 273 272 K d J 363 235 277
0032560 h 274 I L d 222 \t \0 \0 \n \0 \0 020 a g \0
0032600 \0 360 225 K k 330 a 260 352 K l 002 324 [ 260 335
0032620 \0 ( 3 7 Q A L L O C S T R I N
0032640 G 3 4 Q C H A R - I N T ) \r
0032660 ( 4 4 Q : I N I T I A L - E L
0032700 E M E N T ) \r ( ) \r S T R I N G
0032720 - U P C A S E D 1 \r ( L ( 0
0032740 - a r g s - ) ) \0 357 020 \0 002 \0
0032760 e 021 001 \0 k a 021 341 017 H l 002 273 272 K d
0033000 J 363 262 o 277 j 274 H l 002 276 275 N d M 363
0033020 262 u 277 h _ 016 277 I 004 l 004 360 224 I \t \0
0033040 \0 271 O 016 246 I \t \0 \0 _ 016 277 I \t \0 \0
0033060 _ 020 \t \0 \0 _ 022 277 L k 325 j _ 026 277 _
0033100 024 277 O 026 O 024 363 262 R O 016 k 325 L _ 032
0033120 277 _ 030 277 O 032 O 030 363 262 V O 020 k 325 O
0033140 016 _ 036 277 _ 034 277 O 036 O 034 363 262 \ O 022
0033160 020 a g \0 \0 360 225 K k 330 a 260 213 K l 002
0033200 324 [ 261 377 } a g \0 \0 360 225 N k 330 a 260
0033220 205 N l 002 324 ^ 261 377 w O 022 O 026 I O 026
0033240 \n \0 \0 \v \0 \0 277 O 026 k 324 _ 026 260 227 O
0033260 022 O 032 I O 032 \n \0 \0 \t \0 \0 \v \0 \0 277
0033300 O 032 k 324 _ 032 260 220 O 022 O 036 I O 036 \n
0033320 \0 \0 \v \0 \0 277 O 036 k 324 _ 036 260 215 \0 (
0033340 3 4 4 Q S C H A R S E T 3 4
0033360 1 Q C H A R 3 1 6 Q S C H
0033400 A R S E T 3 1 3 Q C H A R -
0033420 U P C A S E 3 1 0 Q C H A R
0033440 2 6 5 Q S C H A R S E T 2
0033460 6 2 Q C H A R 1 0 4 Q M A
0033500 K E - S T R I N G 7 7 Q C L
0033520 : L E N G T H 7 0 Q C L : L
0033540 E N G T H 6 0 Q S Y M B O L
0033560 - N A M E ) \r ( 2 3 0 Q : E N
0033600 D 2 0 4 Q : S T A R T ) \r (
0033620 ) \r S T R I N G - D O W N C A S
0033640 E D 1 \r ( L ( 0 - a r g s
0033660 - ) ) \0 357 020 \0 002 \0 e 021 001 \0 k a
0033700 021 341 017 H l 002 273 272 K d J 363 262 o 277 j
0033720 274 H l 002 276 275 N d M 363 262 u 277 h _ 016
0033740 277 I 004 l 004 360 224 I \t \0 \0 271 O 016 246 I
0033760 \t \0 \0 _ 016 277 I \t \0 \0 _ 020 \t \0 \0 _
0034000 022 277 L k 325 j _ 026 277 _ 024 277 O 026 O 024
0034020 363 262 R O 016 k 325 L _ 032 277 _ 030 277 O 032
0034040 O 030 363 262 V O 020 k 325 O 016 _ 036 277 _ 034
0034060 277 O 036 O 034 363 262 \ O 022 020 a g \0 \0 360
0034100 225 K k 330 a 260 213 K l 002 324 [ 261 377 } a
0034120 g \0 \0 360 225 N k 330 a 260 205 N l 002 324 ^
0034140 261 377 w O 022 O 026 I O 026 \n \0 \0 \v \0 \0
0034160 277 O 026 k 324 _ 026 260 227 O 022 O 032 I O 032
0034200 \n \0 \0 \t \0 \0 \v \0 \0 277 O 032 k 324 _ 032
0034220 260 220 O 022 O 036 I O 036 \n \0 \0 \v \0 \0 277
0034240 O 036 k 324 _ 036 260 215 \0 ( 3 4 4 Q S
0034260 C H A R S E T 3 4 1 Q C H A
0034300 R 3 1 6 Q S C H A R S E T
0034320 3 1 3 Q C H A R - D O W N C A
0034340 S E 3 1 0 Q C H A R 2 6 5
0034360 Q S C H A R S E T 2 6 2 Q
0034400 C H A R 1 0 4 Q M A K E - S
0034420 T R I N G 7 7 Q C L : L E N
0034440 G T H 7 0 Q C L : L E N G T
0034460 H 6 0 Q S Y M B O L - N A M
0034500 E ) \r ( 2 3 0 Q : E N D 2 0
0034520 4 Q : S T A R T ) \r ( ) \r S T
0034540 R I N G - C A P I T A L I Z E
0034560 D 1 \r ( L ( 0 - a r g s - )
0034600 ) 001 % 022 \0 002 \0 e 021 001 \0 k a 021 361
0034620 020 021 020 021 H l 002 273 272 K d J 363 262 { 277
0034640 j 274 H l 002 276 275 N d M 363 242 261 \0 201 277
0034660 h _ 016 277 I 004 l 004 360 224 I \t \0 \0 271 O
0034700 016 246 I \t \0 \0 _ 016 277 i h _ 022 277 _ 020
0034720 277 I \t \0 \0 _ 024 \t \0 \0 _ 026 277 L k 325
0034740 j _ 032 277 _ 030 277 O 032 O 030 363 262 V O 016
0034760 k 325 L _ 036 277 _ 034 277 O 036 O 034 363 262 Z
0035000 O 024 k 325 O 016 _ " 277 _ 277 O " O
0035020 363 242 261 \0 203 O 026 020 a g \0 \0 360 226 K k
0035040 330 a 261 377 177 K l 002 324 [ 261 377 p a g \0
0035060 \0 360 226 N k 330 a 261 377 z N l 002 324 ^ 261
0035100 377 i O 026 O 032 I O 032 \n \0 \0 \v \0 \0 277
0035120 O 032 k 324 _ 032 260 223 I O 036 \n \0 \0 _ 022
0035140 \t \0 \0 245 i _ 020 277 260 032 O 020 234 O 022 \t
0035160 \0 \0 _ 022 277 h _ 020 277 207 O 022 \t \0 \0 _
0035200 022 277 O 026 O 036 O 022 \v \0 \0 277 O 036 k 324
0035220 _ 036 261 377 i O 026 O " I O " \n \0 \0 \v
0035240 \0 \0 277 O " k 324 _ " 261 377 e \0 ( 4 3
0035260 1 Q S C H A R S E T 4 2 6 Q
0035300 C H A R 4 0 2 Q S C H A R
0035320 S E T 3 6 6 Q C H A R - D O
0035340 W N C A S E 3 5 1 Q C H A R
0035360 - U P C A S E 3 3 2 Q A L P
0035400 H A N U M E R I C P 3 2 5 Q
0035420 C H A R 3 0 6 Q S C H A R S
0035440 E T 3 0 3 Q C H A R 1 2 1
0035460 Q M A K E - S T R I N G 1 1
0035500 4 Q C L : L E N G T H 7 5 Q
0035520 C L : L E N G T H 6 5 Q S
0035540 Y M B O L - N A M E ) \r ( 2 5 0
0035560 Q : E N D 2 2 3 Q : S T A
0035600 R T ) \r ( ) \r N S T R I N G - U
0035620 P C A S E D 1 \r ( L ( 0 -
0035640 a r g s - ) ) \0 213 \n \0 002 \0 e 021
0035660 001 \0 k a 021 201 \t H l 002 273 272 K d J 363
0035700 262 P 277 j 274 H l 002 276 275 N d M 363 262 U
0035720 277 h _ 016 277 I 004 l 004 360 224 I \t \0 \0 271
0035740 O 016 265 006 I \t \0 \0 k 325 L _ 022 277 _ 020
0035760 277 O 022 O 020 363 263 @ I O 022 I O 022 \n \0
0036000 \0 \t \0 \0 \v \0 \0 277 O 022 k 324 _ 022 260 345
0036020 a g \0 \0 360 225 K k 330 a 260 252 K l 002 324
0036040 [ 260 234 a g \0 \0 360 225 N k 330 a 260 245 N
0036060 l 002 324 ^ 260 227 I 020 \0 ( 1 3 0 Q S
0036100 C H A R S E T 1 2 5 Q C H A
0036120 R - U P C A S E 1 2 2 Q C H
0036140 A R 7 1 Q C L : L E N G T H
0036160 6 0 Q S Y M B O L - N A M E
0036200 ) \r ( 1 7 0 Q : E N D 1 4 5
0036220 Q : S T A R T ) \r ( ) \r N S T
0036240 R I N G - D O W N C A S E D 1
0036260 \r ( L ( 0 - a r g s - ) )
0036300 \0 213 \n \0 002 \0 e 021 001 \0 k a 021 201 \t H
0036320 l 002 273 272 K d J 363 262 P 277 j 274 H l 002
0036340 276 275 N d M 363 262 U 277 h _ 016 277 I 004 l
0036360 004 360 224 I \t \0 \0 271 O 016 265 006 I \t \0 \0
0036400 k 325 L _ 022 277 _ 020 277 O 022 O 020 363 263 @
0036420 I O 022 I O 022 \n \0 \0 \t \0 \0 \v \0 \0 277
0036440 O 022 k 324 _ 022 260 345 a g \0 \0 360 225 K k
0036460 330 a 260 252 K l 002 324 [ 260 234 a g \0 \0 360
0036500 225 N k 330 a 260 245 N l 002 324 ^ 260 227 I 020
0036520 \0 ( 1 3 0 Q S C H A R S E T
0036540 1 2 5 Q C H A R - D O W N C A
0036560 S E 1 2 2 Q C H A R 7 1 Q
0036600 C L : L E N G T H 6 0 Q S
0036620 Y M B O L - N A M E ) \r ( 1 7 0
0036640 Q : E N D 1 4 5 Q : S T A
0036660 R T ) \r ( ) \r N S T R I N G - C
0036700 A P I T A L I Z E D 1 \r ( L
0036720 ( 0 - a r g s - ) ) \0 266 \f \0
0036740 002 \0 e 021 001 \0 k a 021 241 \v H l 002 273 272
0036760 K d J 363 262 B 277 j 274 H l 002 276 275 N d
0037000 M 363 262 G 277 h _ 016 277 I 004 l 004 360 224 I
0037020 \t \0 \0 271 O 016 246 I \t \0 \0 _ 016 277 i _
0037040 020 277 O 016 k 325 L _ 026 277 _ 024 277 O 026 O
0037060 024 363 262 * I 020 a g \0 \0 360 225 K k 330 a
0037100 260 270 K l 002 324 [ 260 252 a g \0 \0 360 225 N
0037120 k 330 a 260 263 N l 002 324 ^ 260 245 I O 026 \n
0037140 \0 \0 _ 022 \t \0 \0 245 i _ 020 277 260 032 O 020
0037160 234 O 022 \t \0 \0 _ 022 277 h _ 020 277 207 O 022
0037200 \t \0 \0 _ 022 277 I O 026 O 022 \v \0 \0 277 O
0037220 026 k 324 _ 026 260 232 \0 ( 2 5 3 Q S C
0037240 H A R S E T 2 4 0 Q C H A R
0037260 - D O W N C A S E 2 2 3 Q C
0037300 H A R - U P C A S E 2 0 4 Q
0037320 A L P H A N U M E R I C P 1 7
0037340 7 Q C H A R 7 0 Q C L : L
0037360 E N G T H 6 0 Q S Y M B O L
0037400 - N A M E ) \r ( 1 5 2 Q : E N
0037420 D 1 2 7 Q : S T A R T ) \r (
0037440 ) \r S T R I N G - L E F T - T R
0037460 I M D 1 \r ( L ( 1 S T R I
0037500 N G 0 C H A R - B A G ) )
0037520 \0 1 002 \0 \0 002 021 001 A d 004 l 004 360 224
0037540 \t \0 \0 b 002 \t \0 \0 X j Y H \n \0 \0 251
0037560 A I \n \0 \0 @ \n \0 \0 246 A I H \v \0 \0
0037600 020 I k 324 260 346 \0 ( 5 1 Q S U B S
0037620 E Q 4 2 Q C L : F I N D 3
0037640 6 Q C H A R 3 0 Q % % =
0037660 2 1 Q C L : L E N G T H 1 4
0037700 Q S Y M B O L - N A M E ) \r N
0037720 I L \r ( ) \r S T R I N G - R I G
0037740 H T - T R I M D 1 \r ( L ( 1
0037760 S T R I N G 0 C H A R - B
0040000 A G ) ) \0 3 001 \0 \0 002 A d 004 l 004
0040020 360 224 \t \0 \0 b 002 \t \0 \0 d k 325 021 001 \0
0040040 j H 363 251 A H \n \0 \0 @ \n \0 \0 250 A j
0040060 H k 324 \v \0 \0 020 H k 325 270 260 345 \0 ( 5
0040100 2 Q S U B S E Q 4 1 Q C L
0040120 : F I N D 3 5 Q C H A R 1
0040140 6 Q C L : L E N G T H 1 1 Q
0040160 S Y M B O L - N A M E ) \r N I
0040200 L \r ( ) \r S T R I N G - T R I M
0040220 D 1 \r ( L ( 1 S T R I N G
0040240 0 C H A R - B A G ) ) \0 O
0040260 005 \0 \0 002 021 P 004 A d 004 l 004 360 224 \t \0
0040300 \0 b 002 \t \0 \0 X j [ d H \n \0 \0 254 277
0040320 A K \n \0 \0 @ \n \0 \0 263 ! K 271 H k 325
0040340 274 I L 363 251 A L \n \0 \0 @ \n \0 \0 257 L
0040360 272 A I J k 324 \v \0 \0 020 K k 324 260 313 L
0040400 260 336 \0 ( 1 0 4 Q S U B S E Q
0040420 7 1 Q C L : F I N D 6 5 Q
0040440 C H A R 4 4 Q C L : F I N D
0040460 4 0 Q C H A R 3 1 Q % %
0040500 = 2 1 Q C L : L E N G T H
0040520 1 4 Q S Y M B O L - N A M E )
0040540 \r N I L \r ( ) \r ( P U T P R O P
0040560 S C M L S T R I N G F I L E
0040600 T Y P E C O M P I L E - F I L
0040620 E ) \r ( P U T P R O P S C M L
0040640 S T R I N G C O P Y R I G H T
0040660 ( " X e r o x C o r p o r a
0040700 t i o n " 1 9 8 5 1 9 8 6 )
0040720 ) \r S T O P \r
0040727