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