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