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