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