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