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