$ od -c -N 50000 [Indigo]<Loops>RELEASE>27-SEP-83>LOOPSRULES.DCOM!1
0000000 ( F I L E C R E A T E D " 2 0
0000020 - S E P - 8 3 1 8 : 2 7 : 1 5
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 . ; 1 7 ) \r " 1 4 - S E
0000140 P - 8 3 1 9 : 3 3 : 3 6 " r
0000160 e c o m p i l e d e x p r s :
0000200 L i s t R u l e S e t s M a
0000220 k e E d i t M e n u R E O b j
0000240 e c t R e i n s t a l l R u l
0000260 e S e t s R u l e . P r i n t
0000300 \r R u l e S e t . C o m p i l
0000320 e R u l e s R u l e S e t . C
0000340 o p y R u l e s R u l e S e t
0000360 . E d i t R u l e s R u l e S
0000400 e t . O f f R u l e S e t . O
0000420 n R u l e S e t . P P R u l e
0000440 s \r R u l e S e t M e t a . N
0000460 e w R u l e S e t S o u r c e
0000500 . C o m p i l e R u l e s R u
0000520 l e S e t S o u r c e . E d i t
0000540 R u l e s R u l e S e t S o u
0000560 r c e . G e t S o u r c e \r R
0000600 u l e S e t S o u r c e . P P R
0000620 u l e s S a v e R u l e s S
0000640 e a r c h S t a c k F o r W o r
0000660 k S p a c e C l o s e R E W i
0000700 n d o w C o u n t R u l e s
0000720 G e t R u l e s M I N U S M I
0000740 N U S \r P A U S E P L U S P
0000760 L U S P u t A u d i t R e c
0001000 P u t C l a s s A u d i t R e c
0001020 R E R E 1 R E A s k W h y
0001040 R E F o c u s R u l e S e t
0001060 R E T r a c e S e l e c t F n
0001100 R S G e t F n \r R S P u t F n
0001120 R u l e S e t S t o p R u l
0001140 e S e t T r a n s f e r S e t
0001160 U p R E T r a c e L H S T r
0001200 a c e R H S W R I T E T T Y
0001220 W h i c h R u l e ? i n W O
0001240 R K d a t e d \r " 1 4 - S E
0001260 P - 8 3 1 9 : 4 6 : 3 8 " ) \r
0001300 ( F I L E C R E A T E D " 2 0
0001320 - S E P - 8 3 1 8 : 2 6 : 3 8
0001340 " { I N D I G O } < L O O P S
0001360 > S O U R C E S > L O O P S R U
0001400 L E S . ; 1 7 4 5 8 1 2 c h
0001420 a n g e s t o : ( F N S D
0001440 e f R S M ) \r p r e v i o u s
0001460 d a t e : " 1 0 - A U G - 8
0001500 3 1 3 : 4 8 : 5 0 " { I N D
0001520 I G O } < L O O P S > S O U R C
0001540 E S > L O O P S R U L E S . ; 1
0001560 6 ) \r L i s t R u l e S e t s
0001600 D 1 \r ( P 2 4 Q r s n P
0001620 2 3 Q n u m P 2 0 Q m e
0001640 t h o d P 6 f i l e H a n
0001660 d l e P 5 r u l e S e t
0001700 P 4 r u l e S e t N a m e
0001720 P 3 c l a s s P 2 n u
0001740 m N a m e s P 1 r u l e S
0001760 e t N a m e s P 0 l i s t
0002000 F i l e I 1 p r e s s F i
0002020 l e N a m e I 0 r u l e S
0002040 e t s S p e c ) 001 V 025 \0 \0 002 A
0002060 265 005 g \0 \0 021 301 \f @ d 003 263 m \t \0 \0
0002100 g \0 \0 \n \0 \0 @ \t \0 \0 273 265 ] @ \t \0
0002120 \0 [ 262 S 021 0 017 K _ 020 g \0 \0 \n \0 \0
0002140 _ 016 277 O 020 g \0 \0 l 002 O 016 017 016 260 &
0002160 d 001 021 001 020 K O g \0 \0 \v \0 \0 \ d
0002200 221 h 032 022 _ 032 003 232 O 034 265 021 O 032 _ 036
0002220 _ 034 277 002 003 265 333 O 036 022 214 \t \0 \0 _ 034
0002240 O 032 031 260 357 @ h 032 Y H g \0 \0 \n \0 \0
0002260 ^ K 265 $ I \t \0 \0 Z d I k 021 023 024 O
0002300 $ 003 265 > 023 N \t \0 \0 A 250 N \t \0 \0 277
0002320 N \t \0 \0 h 020 _ 024 g \0 \0 \n \0 \0 _ 022
0002340 277 O 024 N l 002 O 022 017 016 277 g \0 \0 N \n
0002360 \0 \0 277 N j \n \0 \0 277 N \t \0 \0 277 260 266
0002400 001 _ ( 277 O & O " 361 263 273 O ( \t \0 \0
0002420 ] 262 c O ( \t \0 \0 277 k \t \0 \0 277 N \t
0002440 \0 \0 277 N \t \0 \0 277 o \0 \0 \0 N \n \0 \0
0002460 277 N \t \0 \0 277 N \t \0 \0 277 M _ 030 g \0
0002500 \0 \n \0 \0 _ 026 277 O 030 N l 002 O 026 017 016
0002520 277 O & J 360 263 037 g \0 \0 N \n \0 \0 277 N
0002540 j \n \0 \0 277 N \t \0 \0 277 N \t \0 \0 277 N
0002560 \t \0 \0 277 O $ 002 _ $ 277 O & k 330 _ &
0002600 277 261 377 > \0 ( 5 0 3 Q T E R P R
0002620 I 4 7 6 Q T E R P R I 4 7
0002640 1 Q T E R P R I 4 6 4 Q P
0002660 O S I T I O N 4 5 6 Q P R I
0002700 N 3 4 2 4 Q F e t c h M e t
0002720 h o d O r H e l p 4 1 2 Q T
0002740 E R P R I 4 0 5 Q T E R P R
0002760 I 4 0 0 Q P R I N 1 3 6 7
0003000 Q T E R P R I 3 6 2 Q T E
0003020 R P R I 3 5 5 Q S P A C E S
0003040 3 5 0 Q P R I N 1 3 4 0 Q
0003060 G e t O b j e c t R e c 3 1
0003100 5 Q T E R P R I 3 1 0 Q P
0003120 O S I T I O N 3 0 2 Q P R I
0003140 N 3 2 5 6 Q F e t c h M e t
0003160 h o d O r H e l p 2 4 4 Q D
0003200 E L F I L E 2 3 7 Q E M P R
0003220 E S S 2 3 1 Q C L O S E F
0003240 2 1 0 Q F L E N G T H 2 0 0
0003260 Q O P E N F I L E 1 5 6 Q
0003300 L A S T 1 1 6 Q G e t M e t
0003320 h o d 6 0 Q F e t c h M e t
0003340 h o d O r H e l p 4 1 Q G e
0003360 t C l a s s R e c 3 2 Q G e
0003400 t C l a s s R e c 2 6 Q F I
0003420 L E C O M S L S T 2 0 Q U -
0003440 C A S E ) \r ( 4 5 2 Q % \f 4
0003460 2 1 Q P P R u l e s 2 7 6 Q
0003500 % \f 2 5 3 Q P P 1 7 5 Q
0003520 O U T P U T 1 1 3 Q R u l
0003540 e S e t 7 0 Q M e t h o d s
0003560 5 5 Q L i s t 2 3 Q I N
0003600 S T A N C E S 5 { C O R E }
0003620 L i s t R u l e s ) \r ( 3 7 4 Q
0003640 " * * * * * * * * * * * * * *
0003660 * * * * * * * * * * * * * * * *
0003700 * * * * * * * * * * * * * * * "
0003720 ) \r M a k e E d i t M e n u D
0003740 1 \r N I L \0 A 002 \0 \0 \0 ` \0 \0 265
0003760 < ` \0 \0 037 d o \0 \0 \0 024 004 277 d o \0
0004000 \0 \0 024 022 277 d g \0 \0 024 277 d g \0 \0
0004020 024 034 277 j d n 177 377 d h 032 032 032 032 021 002
0004040 001 H d I 024 \n 277 022 027 \0 \0 020 \0 N I L
0004060 \r ( 7 6 Q r e E d i t M e n u
0004100 4 3 Q D E F A U L T M E N U
0004120 H E L D F N 3 4 Q C L R P R
0004140 O M P T 7 004 003 M E N U T Y P
0004160 E # 2 r e E d i t M e n u )
0004200 \r ( 2 5 Q " R u l e E d i t
0004220 O p t i o n s " 1 5 Q ( O
0004240 K E d i t R u l e s H e l p
0004260 E d i t A l l D e c l s E d
0004300 i t W S S T O P U n d o !
0004320 U E E F C o m p i l e S a
0004340 v e I n s p e c t R u l e S e
0004360 t ) ) \r R E O b j e c t D 1 \r
0004400 ( I 0 ^ w s ) \0 005 \0 \0 \0 001
0004420 \b \0 \0 020 \0 ( 2 R E ) \r N I L \r
0004440 N I L \r R e i n s t a l l R u l
0004460 e S e t s D 1 \r ( P 5 s e
0004500 l e c t o r P 2 r u l e S
0004520 e t N a m e P 1 m e t h o
0004540 d s P 0 c l a s s I 0
0004560 c l a s s N a m e ) \0 : 006 \0
0004600 \0 001 021 P 004 @ \t \0 \0 X d \ g \0 \0 \n
0004620 \0 \0 273 L g \0 \0 l 002 K 017 016 260 032 d 001
0004640 021 001 005 H M g \0 \0 \v \0 \0 Z 226 @ M J
0004660 \v \0 \0 277 023 002 003 265 347 h 020 \0 ( 6 0 Q
0004700 D e f R S M 5 0 Q G e t M
0004720 e t h o d 1 7 Q F e t c h M
0004740 e t h o d O r H e l p 6 G e
0004760 t C l a s s R e c ) \r ( 4 5 Q
0005000 R u l e S e t 2 4 Q M e t h
0005020 o d s 1 4 Q L i s t ) \r N I
0005040 L \r R u l e . P r i n t D 1 \r
0005060 ( I 1 f i l e I 0 s e
0005100 l f ) \0 262 \0 \0 \0 002 A \t \0 \0 277 `
0005120 \0 \0 A \n \0 \0 277 @ g \0 \0 \n \0 \0 A \n
0005140 \0 \0 277 ` \0 \0 A \n \0 \0 277 A \t \0 \0 A
0005160 \t \0 \0 277 ` \0 \0 A \n \0 \0 277 l 005 A \n
0005200 \0 \0 277 o \0 \0 \0 A \n \0 \0 277 @ g \0 \0
0005220 \n \0 \0 A \n \0 \0 277 o \0 \0 \0 A \n \0 \0
0005240 277 @ g \0 \0 \n \0 \0 g \0 \0 \n \0 \0 A \n
0005260 \0 \0 A \t \0 \0 277 l 005 A \n \0 \0 277 o \0
0005300 \0 \0 A \n \0 \0 277 @ g \0 \0 \n \0 \0 A \n
0005320 \0 \0 277 o \0 \0 \0 A \n \0 \0 277 @ g \0 \0
0005340 \n \0 \0 A \n \0 \0 277 ` \0 \0 A \n \0 \0 277
0005360 A \t \0 \0 277 A \t \0 \0 i 020 \0 ( 2 5 6
0005400 Q T E R P R I 2 5 1 Q T E
0005420 R P R I 2 4 4 Q C H A N G E
0005440 F O N T 2 3 4 Q P R I N 1
0005460 2 3 0 Q G e t V a l u e 2 2
0005500 0 Q P R I N 1 2 0 7 Q P R
0005520 I N 1 2 0 3 Q G e t V a l u
0005540 e 1 7 3 Q P R I N 1 1 6 2
0005560 Q S P A C E S 1 5 3 Q T E
0005600 R P R I 1 4 7 Q P R I N 1
0005620 1 4 3 Q G e t V a l u e 1 3
0005640 5 Q G e t V a l u e 1 2 5 Q
0005660 P R I N 1 1 1 4 Q P R I N
0005700 1 1 1 0 Q G e t V a l u e
0005720 1 0 0 Q P R I N 1 6 7 Q S
0005740 P A C E S 6 0 Q C H A N G E
0005760 F O N T 5 0 Q T E R P R I
0006000 4 4 Q T E R P R I 3 7 Q C
0006020 H A N G E F O N T 2 7 Q P R
0006040 I N 1 2 3 Q G e t V a l u e
0006060 1 3 Q C H A N G E F O N T
0006100 3 T E R P R I ) \r ( 2 4 0 Q
0006120 D E F A U L T F O N T 2 2 5 Q
0006140 e d i t e d 2 0 0 Q e d i
0006160 t o r 1 4 0 Q n a m e 1 3
0006200 2 Q r u l e S e t 1 0 5 Q
0006220 r u l e N u m b e r 5 4 Q C
0006240 O M M E N T F O N T 3 3 Q D
0006260 E F A U L T F O N T 2 0 Q s
0006300 o u r c e 7 B O L D F O N T
0006320 ) \r ( 2 1 4 Q " o n " 1
0006340 6 7 Q " e d i t e d b
0006360 y " 1 2 1 Q " f r o m
0006400 " 7 4 Q " . . . R u l e
0006420 " ) \r R u l e S e t . C o m p i
0006440 l e R u l e s D 1 \r ( P 0
0006460 s o u r c e P e r s p e c t i v
0006500 e I 1 c o m p i l e r O p
0006520 t i o n s I 0 s e l f )
0006540 \0 ) 005 \0 \0 002 021 P 004 @ Z g \0 \0 \n \0
0006560 \0 271 J g \0 \0 l 002 I 017 016 X d \ g \0
0006600 \0 \n \0 \0 273 L A l 002 K 017 016 @ 020 \0 (
0006620 3 5 Q F e t c h M e t h o d O
0006640 r H e l p 1 2 Q F e t c h M
0006660 e t h o d O r H e l p ) \r ( 3 2
0006700 Q C o m p i l e R u l e s 1
0006720 7 Q S o u r c e 7 G e t P
0006740 e r s p ) \r N I L \r R u l e S e
0006760 t . C o p y R u l e s D 1 \r (
0007000 P 1 r u l e S e t S o u r c
0007020 e P 0 n e w R S I 2
0007040 w o r k S p a c e I 1 n e
0007060 w N a m e I 0 s e l f )
0007100 \0 k \n \0 \0 003 021 240 \t @ [ g \0 \0 \n \0
0007120 \0 272 K A l 002 J 017 016 X B 230 d g \0 \0
0007140 B \v \0 \0 277 @ g \0 \0 \n \0 \0 027 \0 \0 @
0007160 ] g \0 \0 \n \0 \0 274 M g \0 \0 l 002 L 017
0007200 016 Y d @ I _ 016 g \0 \0 \n \0 \0 276 O 016
0007220 k N 017 016 \v \0 \0 h 027 \0 \0 H _ 022 g \0
0007240 \0 \n \0 \0 _ 020 277 O 022 k O 020 017 016 H 020
0007260 \0 ( 1 3 5 Q F e t c h M e t h
0007300 o d O r H e l p 1 2 0 Q S a
0007320 v e R u l e s 1 0 6 Q F e t
0007340 c h M e t h o d O r H e l p 6
0007360 0 Q F e t c h M e t h o d O r
0007400 H e l p 4 5 Q G e t V a l u
0007420 e 3 5 Q P u t V a l u e 1
0007440 2 Q F e t c h M e t h o d O r
0007460 H e l p ) \r ( 1 3 2 Q C o m p
0007500 i l e R u l e s 1 2 4 Q r s
0007520 C o m p i l e r O p t i o n s
0007540 1 0 3 Q G e t S o u r c e 6
0007560 5 Q S o u r c e 5 5 Q G e
0007600 t P e r s p 5 0 Q r s R u l
0007620 e C l a s s 4 2 Q r u l e C
0007640 l a s s 3 1 Q w o r k S p a
0007660 c e 7 C o p y ) \r N I L \r R
0007700 u l e S e t . E d i t R u l e s
0007720 D 1 \r ( P 0 s o u r c e P
0007740 e r s p e c t i v e I 1 c
0007760 o m s I 0 s e l f ) \0 )
0010000 005 \0 \0 002 021 P 004 @ Z g \0 \0 \n \0 \0 271
0010020 J g \0 \0 l 002 I 017 016 X d \ g \0 \0 \n
0010040 \0 \0 273 L A l 002 K 017 016 @ 020 \0 ( 3 5
0010060 Q F e t c h M e t h o d O r H
0010100 e l p 1 2 Q F e t c h M e t
0010120 h o d O r H e l p ) \r ( 3 2 Q
0010140 E d i t R u l e s 1 7 Q S o
0010160 u r c e 7 G e t P e r s p )
0010200 \r N I L \r R u l e S e t . O f f
0010220 D 1 \r ( I 1 c o m p i l e
0010240 r O p t i o n I 0 s e l f
0010260 ) \0 U 002 \0 \0 002 A @ g \0 \0 \n \0 \0
0010300 034 262 & @ g \0 \0 A @ g \0 \0 \n \0 \0 \n
0010320 \0 \0 \v \0 \0 @ 021 021 001 H g \0 \0 \n \0 \0
0010340 271 H k I 017 016 020 ` \0 \0 i \n \0 \0 A i
0010360 \n \0 \0 ` \0 \0 i \n \0 \0 o \0 \0 \0 i \n
0010400 \0 \0 @ i \n \0 \0 i \t \0 \0 020 \0 ( 1 2
0010420 2 Q T E R P R I 1 1 6 Q P
0010440 R I N 1 1 1 1 Q P R I N 1
0010460 1 0 1 Q C H A N G E F O N T
0010500 7 2 Q P R I N 1 6 5 Q C H
0010520 A N G E F O N T 4 7 Q F e t
0010540 c h M e t h o d O r H e l p 3
0010560 4 Q P u t V a l u e 3 1 Q
0010600 R E M O V E 2 6 Q G e t V a
0010620 l u e 7 G e t V a l u e ) \r
0010640 ( 7 5 Q D E F A U L T F O N T
0010660 6 1 Q B O L D F O N T 4 4
0010700 Q C o m p i l e R u l e s 2
0010720 3 Q c o m p i l e r O p t i o
0010740 n s 1 6 Q c o m p i l e r O
0010760 p t i o n s 4 c o m p i l e
0011000 r O p t i o n s ) \r ( 1 0 5 Q
0011020 " n o t o n f o r " ) \r
0011040 R u l e S e t . O n D 1 \r ( I
0011060 1 c o m p i l e r O p t i o
0011100 n I 0 s e l f ) \0 4 002 \0
0011120 \0 002 A @ g \0 \0 \n \0 \0 034 263 ( @ g \0
0011140 \0 @ g \0 \0 \n \0 \0 A h 032 \n \0 \0 \v \0
0011160 \0 @ 021 021 001 H g \0 \0 \n \0 \0 271 H k I
0011200 017 016 020 h 020 \0 ( 5 1 Q F e t c h
0011220 M e t h o d O r H e l p 3 6 Q
0011240 P u t V a l u e 3 3 Q \ N
0011260 C O N C 2 2 5 Q G e t V a l
0011300 u e 7 G e t V a l u e ) \r (
0011320 4 6 Q C o m p i l e R u l e s
0011340 2 2 Q c o m p i l e r O p t
0011360 i o n s 1 6 Q c o m p i l e
0011400 r O p t i o n s 4 c o m p i
0011420 l e r O p t i o n s ) \r N I L \r
0011440 R u l e S e t . P P R u l e s
0011460 D 1 \r ( I 1 f i l e I 0
0011500 s e l f ) \0 * 002 \0 \0 002 @ 021 021
0011520 001 H g \0 \0 \n \0 \0 271 H g \0 \0 l 002 I
0011540 017 016 022 021 021 001 H g \0 \0 \n \0 \0 271 H A
0011560 l 002 I 017 016 020 \0 ( 3 7 Q F e t c
0011600 h M e t h o d O r H e l p 1 2
0011620 Q F e t c h M e t h o d O r H
0011640 e l p ) \r ( 3 4 Q P P R u l e
0011660 s 1 7 Q S o u r c e 7 G
0011700 e t P e r s p ) \r N I L \r R u l
0011720 e S e t M e t a . N e w D 1 \r
0011740 ( P 1 s o u r c e P e r s p
0011760 P 0 n e w R u l e S e t
0012000 I 2 n a m e I 1 a s s
0012020 o c L i s t I 0 s e l f )
0012040 \0 ; 006 \0 \0 003 021 ` 005 B 265 021 o \0 \0
0012060 \0 h o \0 \0 \0 g \0 \0 \f \0 \0 b 004 @ [
0012100 g \0 \0 \n \0 \0 272 K A l 002 J 017 016 X d
0012120 ] g \0 \0 \n \0 \0 274 M B l 002 L 017 016 H
0012140 020 \0 ( 5 7 Q F e t c h M e t h
0012160 o d O r H e l p 3 6 Q G e t
0012200 S u p e r M e t h o d 2 4 Q
0012220 I N T T Y ) \r ( 5 4 Q S e t N
0012240 a m e 3 3 Q N e w 2 1 Q
0012260 n o S h i f t F l g ) \r ( 1 6 Q
0012300 " R u l e S e t s n e e d
0012320 t o h a v e n a m e s .
0012340 P l e a s e e n t e r a n
0012360 a m e f o r t h e R u l e
0012400 S e t . " 1 1 Q " R u l e S
0012420 e t n a m e : " ) \r R u l e
0012440 S e t S o u r c e . C o m p i l
0012460 e R u l e s D 1 \r ( P 4 r
0012500 u l e S e t A r g s P 3 r
0012520 u l e S t r P 2 r u l e P
0012540 o s P 1 r u l e S e t P
0012560 0 c o d e B o d y I 2
0012600 s o u r c e S t r I 1 u s
0012620 e r C o m p i l e r O p t i o n
0012640 s I 0 s e l f ) 001 * \t \0
0012660 \0 003 021 220 \b @ ^ g \0 \0 \n \0 \0 275 N g
0012700 \0 \0 l 002 M 017 016 Y A 230 d g \0 \0 A \v
0012720 \0 \0 277 I g \0 \0 \n \0 \0 027 \0 \0 ` \0 \0
0012740 \t \0 \0 277 o \0 \0 \0 \t \0 \0 277 ` \0 \0 \t
0012760 \0 \0 277 o \0 \0 \0 \t \0 \0 277 ` \0 \0 \t \0
0013000 \0 277 h \t \0 \0 B 265 027 @ _ 020 g \0 \0 \n
0013020 \0 \0 _ 016 277 O 020 k O 016 017 016 b 004 A \n
0013040 \0 \0 ` \0 \0 222 261 \0 261 o \0 \0 \0 B \n \0
0013060 \0 l \b 324 Z B J \n \0 \0 [ d \t \0 \0 `
0013100 \0 \0 222 261 \0 224 B \t \0 \0 027 \0 \0 B I \n
0013120 \0 \0 027 \0 \0 I @ \n \0 \0 X g \0 \0 ` \0
0013140 \0 032 \ ` \0 \0 263 q ` \0 \0 L H h 032 032
0013160 032 h 032 \t \0 \0 277 I g \0 \0 ` \0 \0 \v \0
0013200 \0 277 \b \0 \0 277 g \0 \0 A 034 262 L ` \0 \0
0013220 263 G ` \0 \0 \t \0 \0 277 o \0 \0 \0 \t \0 \0
0013240 277 ` \0 \0 \t \0 \0 277 o \0 \0 \0 \t \0 \0 277
0013260 ` \0 \0 \t \0 \0 277 h \t \0 \0 277 h \t \0 \0
0013300 277 o \0 \0 \0 \t \0 \0 277 o \0 \0 \0 \t \0 \0
0013320 277 ` \0 \0 \t \0 \0 ` \0 \0 020 \0 ( 4 4 4
0013340 Q C O M P I L E 4 3 5 Q B
0013360 K S Y S B U F 4 2 5 Q B K S
0013400 Y S B U F 4 1 5 Q T E R P R
0013420 I 4 1 0 Q T E R P R I 4 0
0013440 3 Q C H A N G E F O N T 3 7
0013460 4 Q P R I N 1 3 6 4 Q P R
0013500 I N 1 3 5 5 Q P R I N 1 3
0013520 4 5 Q C H A N G E F O N T 3
0013540 2 2 Q T E R P R I 3 1 6 Q
0013560 P u t V a l u e 3 0 3 Q D E
0013600 F I N E 2 4 7 Q C o m p i l
0013620 e R u l e L i s t 2 3 7 Q G
0013640 e t R u l e s 2 2 7 Q C o u
0013660 n t R u l e s 2 1 4 Q P a r
0013700 s e T o k e n s 2 0 7 Q S U
0013720 B S T R I N G 1 7 6 Q S T R
0013740 P O S 1 5 7 Q G e t R u l e
0013760 S e t D e c l a r a t i o n s
0014000 1 3 7 Q F e t c h M e t h o d
0014020 O r H e l p 1 2 3 Q T E R P
0014040 R I 1 1 6 Q C H A N G E F O
0014060 N T 1 0 7 Q P R I N 1 7 7
0014100 Q P R I N 1 7 0 Q P R I N
0014120 1 6 0 Q C H A N G E F O N T
0014140 4 7 Q G e t V a l u e 3 7
0014160 Q P u t V a l u e 1 2 Q F
0014200 e t c h M e t h o d O r H e l p
0014220 ) \r ( 4 4 7 Q r s N a m e 4
0014240 4 1 Q r s N a m e 4 0 0 Q
0014260 D E F A U L T F O N T 3 6 1 Q
0014300 r s N a m e 3 4 2 Q B O L
0014320 D F O N T 3 3 5 Q p a r s e
0014340 E r r o r F l g 3 2 6 Q L C
0014360 3 1 3 Q r s N a m e 3 1 0
0014400 Q c o m p i l e d R u l e s
0014420 2 7 0 Q r s N a m e 2 6 3 Q
0014440 p a r s e E r r o r F l g 2
0014460 5 6 Q r s A r g s 2 5 3 Q
0014500 s e l f 2 4 2 Q r s R u l e
0014520 O b j e c t s 2 3 2 Q r s N
0014540 u m R u l e s 2 1 7 Q p a r
0014560 s e E r r o r F l g 1 6 2 Q
0014600 p a r s e E r r o r F l g 1 3
0014620 4 Q G e t S o u r c e 1 1 3
0014640 Q D E F A U L T F O N T 7 4
0014660 Q r s N a m e 5 5 Q B O L
0014700 D F O N T 5 2 Q r s N a m e
0014720 4 4 Q n a m e 3 3 Q c o
0014740 m p i l e r O p t i o n s 1 7
0014760 Q R u l e S e t 7 G e t P
0015000 e r s p ) \r ( 4 3 2 Q " N \r "
0015020 4 2 2 Q " S T \r " 3 7 1 Q
0015040 " t o B y t e C o d e s .
0015060 " 3 5 2 Q " C o m p i l i n
0015100 g " 1 7 2 Q " * * * * * *
0015120 * * " 1 0 4 Q " t o L i
0015140 s p . " 6 5 Q " C o m p i l
0015160 i n g " ) \r R u l e S e t S o
0015200 u r c e . E d i t R u l e s A 1
0015220 2 6 3 D 1 \r ( N A M E E R R
0015240 O R S E T L ( 2 E R R O R
0015260 S E T . W 1 E R R O R S E T
0015300 . V 0 E R R O R S E T . U )
0015320 F 0 s o u r c e R u l e s
0015340 F 1 R E S E T Y ) \0 034 \0
0015360 002 \0 003 \b \0 \0 277 o \0 \0 \0 h d o \0 \0
0015400 \0 h d P \r \a \0 \0 c \0 c 002 i 020 \0 (
0015420 2 4 Q T T Y I N 2 S E T .
0015440 T T Y I N E D I T . W I N D O W
0015460 ) \r N I L \r ( 1 5 Q ( S T R I
0015500 N G N O R A I S E R E P E A
0015520 T ) 7 " " ) \r R u l e S e
0015540 t S o u r c e . E d i t R u l e
0015560 s A 1 2 6 4 D 1 \r ( N A M E
0015600 E R R O R S E T L ( 2 E R
0015620 R O R S E T . W 1 E R R O R
0015640 S E T . V 0 E R R O R S E T
0015660 . U ) F 0 s o u r c e R u
0015700 l e s F 1 r u l e P o s
0015720 F 2 R E S E T Y ) \0 = \0 003
0015740 \0 003 \b \0 \0 277 P \t \0 \0 277 o \0 \0 \0 P
0015760 \n \0 \0 l \b 324 c 002 277 \b \0 \0 P Q \n \0
0016000 \0 \n \0 \0 c \0 277 o \0 \0 \0 h d o \0 \0
0016020 \0 h d P \r \a \0 \0 c \0 c 004 i 020 \0 (
0016040 6 5 Q T T Y I N 4 1 Q C O
0016060 N C A T 3 6 Q S U B S T R I
0016100 N G 3 1 Q G e t R S A l l D
0016120 e c l S t r i n g 2 0 Q S T
0016140 R P O S 7 G e t R u l e S e
0016160 t D e c l a r a t i o n s 2
0016200 S E T . T T Y I N E D I T . W I
0016220 N D O W ) \r N I L \r ( 5 6 Q (
0016240 S T R I N G N O R A I S E R
0016260 E P E A T ) 5 0 Q " " 1
0016300 4 Q " * * * * * * * * " ) \r R
0016320 u l e S e t S o u r c e . E d i
0016340 t R u l e s D 1 \r ( P 2 6 Q
0016360 R E S E T Z P 2 5 Q R E
0016400 S E T Y P 2 4 Q L I S P X
0016420 H I S T P 7 r u l e P o s
0016440 P 6 w o r k S p a c e P
0016460 5 d o n e F l g P 4 s
0016500 o u r c e R u l e s P 3 r
0016520 u l e S e t P 2 o l d S o
0016540 u r c e R u l e s P 1 c o
0016560 m m a n d P 0 n e e d T o
0016600 C o m p i l e F l g I 1 c
0016620 o m s I 0 s e l f F 2
0016640 7 Q T T Y I N E D I T W I N D
0016660 O W F 3 0 Q L I S P X H I
0016700 S T F 3 1 Q R E S E T V A
0016720 R S L S T ) 002 033 027 003 \0 002 i 021 361
0016740 017 021 @ 023 @ _ 022 g \0 \0 \n \0 \0 _ 020 277
0016760 O 022 g \0 \0 l 002 O 020 017 016 [ @ _ 026 g
0017000 \0 \0 \n \0 \0 _ 024 277 O 026 k O 024 017 016 Z
0017020 d \ K g \0 \0 \n \0 \0 027 \0 \0 \b \0 \0 A
0017040 247 g \0 \0 h 032 b 002 277 M 222 261 001 312 A 001
0017060 A 002 b 002 277 265 \b ` \0 \0 \t \0 \0 Y d g
0017100 \0 \0 360 225 277 \b \0 \0 260 340 g \0 \0 360 262 B
0017120 i 270 W . g \0 \0 o \0 \0 \0 ` \0 \0 o \0
0017140 \0 \0 \v \0 \0 \v \0 \0 277 W 0 021 ! 026 W 2
0017160 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0
0017200 _ , \n \0 \0 277 O , 223 \b \0 \0 277 023 260 233
0017220 I d g \0 \0 360 262 D 277 i 270 W . g \0 \0
0017240 o \0 \0 \0 ` \0 \0 o \0 \0 \0 \v \0 \0 \v \0
0017260 \0 277 W 0 021 ! 026 W 2 o \0 \0 \0 g \0 \0
0017300 \n \0 \0 221 h 202 g \0 \0 _ , \n \0 \0 277 O
0017320 , 223 \b \0 \0 277 023 261 377 R g \0 \0 360 262 <
0017340 H 262 036 h 027 \0 \0 277 @ _ 032 g \0 \0 \n \0
0017360 \0 _ 030 277 O 032 h L l 003 O 030 017 016 277 `
0017400 \0 \0 222 261 377 & i 275 @ K L ` \0 \0 \f \0
0017420 \0 277 W . \t \0 \0 261 377 021 I d g \0 \0 360
0017440 262 $ 277 h 027 \0 \0 277 @ _ 036 g \0 \0 \n \0
0017460 \0 _ 034 277 O 036 h L l 003 O 034 017 016 277 h
0017500 X 261 376 347 g \0 \0 360 224 i ] 261 376 337 I d
0017520 g \0 \0 360 231 277 @ K L \v \0 \0 261 376 314 g
0017540 \0 \0 360 262 034 ` \0 \0 \t \0 \0 242 261 376 275 g
0017560 \0 \0 ` \0 \0 \n \0 \0 277 \b \0 \0 261 376 254 I
0017600 d g \0 \0 360 262 031 277 K _ " g \0 \0 \n \0
0017620 \0 _ 277 O " k O 017 016 261 376 215 g \0
0017640 \0 360 262 . K g \0 \0 \n \0 \0 \t \0 \0 ^ 265
0017660 \f o \0 \0 \0 \t \0 \0 261 376 p _ & g \0 \0
0017700 \n \0 \0 _ $ 277 O & k O $ 017 016 261 376 [
0017720 I d g \0 \0 360 225 277 J \ 261 376 N g \0 \0
0017740 360 242 261 376 G o \0 \0 \0 i \n \0 \0 277 i \t
0017760 \0 \0 261 376 6 h 020 \0 ( 1 0 2 4 Q T
0020000 E R P R I 1 0 1 7 Q P R I N
0020020 1 7 4 5 Q F e t c h M e t h
0020040 o d O r H e l p 7 3 2 Q W R
0020060 I T E 7 2 0 Q G e t C l a s
0020100 s R e c 7 1 5 Q G e t V a l
0020120 u e 6 6 3 Q F e t c h M e t
0020140 h o d O r H e l p 6 3 6 Q C
0020160 L E A R B U F 6 3 2 Q A P P
0020200 L Y 6 1 5 Q F N T Y P 5 7
0020220 6 Q S a v e R u l e s 5 2 3
0020240 Q F e t c h M e t h o d O r H
0020260 e l p 4 7 1 Q S H R I N K W
0020300 4 6 3 Q S a v e R u l e s
0020320 4 2 3 Q F e t c h M e t h o d
0020340 O r H e l p 3 6 7 Q E R R O
0020360 R ! 3 6 0 Q R E S E T R E S
0020400 T O R E 3 4 5 Q R u l e S e
0020420 t S o u r c e . E d i t R u l e
0020440 s A 1 2 6 4 3 2 3 Q P U T W
0020460 I N D O W P R O P 3 2 0 Q C
0020500 O N C A T 2 5 6 Q E R R O R
0020520 ! 2 4 7 Q R E S E T R E S T
0020540 O R E 2 3 4 Q R u l e S e t
0020560 S o u r c e . E d i t R u l e s
0020600 A 1 2 6 3 2 1 2 Q P U T W I
0020620 N D O W P R O P 2 0 7 Q C O
0020640 N C A T 1 5 2 Q U E 1 3 7
0020660 Q M E N U 1 0 1 Q M a k e
0020700 E d i t M e n u 7 3 Q G e t
0020720 V a l u e 4 7 Q F e t c h M
0020740 e t h o d O r H e l p 1 7 Q
0020760 F e t c h M e t h o d O r H e l
0021000 p ) \r ( 1 0 0 2 Q H e l p 7
0021020 6 7 Q U n d o ! 7 4 2 Q E
0021040 d i t 7 1 2 Q w o r k S p a
0021060 c e 7 0 3 Q E d i t W S 6
0021100 6 0 Q I n s p e c t 6 4 6 Q
0021120 I n s p e c t R u l e S e t
0021140 6 2 7 Q r s N a m e 6 2 4 Q
0021160 E F 6 1 2 Q r s N a m e
0021200 6 0 4 Q E F 5 6 5 Q S a v
0021220 e 5 5 1 Q S T O P 5 2 0 Q
0021240 C o m p i l e R u l e s 5 1
0021260 1 Q p a r s e E r r o r F l g
0021300 5 0 1 Q C o m p i l e 4 6
0021320 0 Q r s R u l e O b j e c t s
0021340 4 4 4 Q p a r s e E r r o r
0021360 F l g 4 2 0 Q C o m p i l e
0021400 R u l e s 4 1 1 Q p a r s e
0021420 E r r o r F l g 3 7 7 Q O K
0021440 3 5 3 Q E R R O R 3 4 2 Q
0021460 I N T E R N A L 3 1 1 Q r
0021500 s N a m e 3 0 2 Q T I T L E
0021520 2 6 7 Q E d i t A l l D e c
0021540 l s 2 4 2 Q E R R O R 2 3
0021560 1 Q I N T E R N A L 2 0 0 Q
0021600 r s N a m e 1 7 1 Q T I T
0021620 L E 1 5 7 Q E d i t R u l e
0021640 s 1 4 4 Q U E 1 3 4 Q r
0021660 e E d i t M e n u 1 0 6 Q E
0021700 d i t R u l e s 7 6 Q r s N
0021720 a m e 7 0 Q n a m e 4 4 Q
0021740 G e t S o u r c e 2 7 Q R
0021760 u l e S e t 1 4 Q G e t P e
0022000 r s p ) \r ( 1 0 1 3 Q " U s e
0022020 O K t o C o m p i l e t
0022040 h e r u l e s , s a v e t
0022060 h e m , a n d e x i t . \r U
0022100 s e E d i t R u l e s t o
0022120 e d i t t h e r u l e s . \r
0022140 U s e E d i t A l l D e c l s
0022160 t o e d i t t h e r u l
0022200 e s , s h o w i n g a l l
0022220 d e c l a r a t i o n s . \r U s
0022240 e S T O P t o e x i t w
0022260 i t h o u t c o m p i l i n g
0022300 o r s a v i n g . \r U s e
0022320 U n d o ! t o r e s t o r e
0022340 t h e o r i g i n a l R u
0022360 l e S e t . \r U s e U E t o
0022400 g o i n t o a L i s p
0022420 u s e r e x e c . \r U s e E
0022440 F t o e d i t t h e c o
0022460 m p i l e d l i s p c o d e
0022500 f o r t h e R u l e S e t
0022520 . \r U s e C o m p i l e t o
0022540 c o m p i l e t h e r u l
0022560 e s w i t h o u t e x i t i
0022600 n g . \r U s e I n s p e c t R
0022620 u l e S e t t o i n s p e c
0022640 t t h e R u l e S e t o b
0022660 j e c t . \r U s e H e l p t
0022700 o g e t t h i s l i s t .
0022720 " 7 2 7 Q " C l a s s f o
0022740 r W o r k s p a c e n o t
0022760 f o u n d . " 3 3 7 Q ( D U
0023000 M M Y . F O R . E R R O R S E T
0023020 ) 3 1 5 Q " ( S t o
0023040 p G a p V e r s i o n ) " 3
0023060 0 6 Q " T T Y I N E d i t
0023100 o f R u l e S e t " 2 2 6
0023120 Q ( D U M M Y . F O R . E R R
0023140 O R S E T ) 2 0 4 Q "
0023160 ( S t o p G a p V e r s i o
0023200 n ) " 1 7 5 Q " T T Y I N
0023220 E d i t o f R u l e S e t
0023240 " ) \r R u l e S e t S o u r c e
0023260 . G e t S o u r c e D 1 \r ( P
0023300 1 1 Q r u l e N u m P 5
0023320 n u m R u l e s P 4 r u
0023340 l e S e t P 3 r u l e S o
0023360 u r c e P 2 s t r P 1
0023400 d e c l S t r P 0 C R L
0023420 F I 0 s e l f ) \0 e \n \0
0023440 \0 001 o \0 \0 \0 021 q \a @ _ 016 g \0 \0 \n
0023460 \0 \0 276 O 016 g \0 \0 l 002 N 017 016 \ d \t
0023500 \0 \0 Y H Z L g \0 \0 \n \0 \0 265 003 j ]
0023520 d k 021 002 \t O 022 O 020 361 263 @ O 022 \n
0023540 \0 \0 g \0 \0 \n \0 \0 [ 227 J H d K \f \0
0023560 \0 272 O 022 k 330 _ 022 260 337 023 I o \0 \0 \0
0023600 H J \f \0 \0 020 \0 ( 1 4 2 Q C O N
0023620 C A T 1 1 6 Q C O N C A T
0023640 1 0 5 Q G e t V a l u e 7 7
0023660 Q G e t N t h V a l u e 5 1
0023700 Q G e t V a l u e 3 7 Q G
0023720 e t R S D e c l S t r i n g 1
0023740 7 Q F e t c h M e t h o d O r
0023760 H e l p ) \r ( 1 0 2 Q s o u r
0024000 c e 4 6 Q n u m R u l e s
0024020 2 5 Q R u l e S e t 1 4 Q
0024040 G e t P e r s p ) \r ( 1 3 5 Q
0024060 " * * * * * * * * " 3 " \r "
0024100 ) \r R u l e S e t S o u r c e .
0024120 P P R u l e s D 1 \r ( I 1
0024140 f i l e I 0 s e l f F
0024160 2 P P D e f a u l t ) \0 230 002
0024200 001 \0 002 A 243 R b 002 277 ` \0 \0 A \n \0 \0
0024220 277 o \0 \0 \0 A \n \0 \0 277 @ 021 021 001 H g
0024240 \0 \0 \n \0 \0 271 H g \0 \0 l 002 I 017 016 022
0024260 g \0 \0 \n \0 \0 A \n \0 \0 277 A \t \0 \0 `
0024300 \0 \0 A \n \0 \0 277 o \0 \0 \0 A \n \0 \0 277
0024320 @ g \0 \0 \n \0 \0 A \n \0 \0 277 o \0 \0 \0
0024340 A \n \0 \0 277 @ g \0 \0 \n \0 \0 A \n \0 \0
0024360 277 ` \0 \0 A \n \0 \0 277 A \t \0 \0 @ 021 021
0024400 001 H g \0 \0 \n \0 \0 271 H k I 017 016 022 A
0024420 \n \0 \0 277 A \t \0 \0 @ 020 \0 ( 2 2 4 Q
0024440 T E R P R I 2 1 7 Q P R I
0024460 N 1 2 0 4 Q F e t c h M e t
0024500 h o d O r H e l p 1 7 1 Q T
0024520 E R P R I 1 6 4 Q C H A N G
0024540 E F O N T 1 5 4 Q P R I N 1
0024560 1 5 0 Q G e t V a l u e 1
0024600 4 0 Q P R I N 1 1 2 7 Q P
0024620 R I N 1 1 2 3 Q G e t V a l
0024640 u e 1 1 3 Q P R I N 1 1 0
0024660 2 Q C H A N G E F O N T 7 3
0024700 Q T E R P R I 6 6 Q P R I
0024720 N 1 6 2 Q G e t V a l u e
0024740 4 1 Q F e t c h M e t h o d O
0024760 r H e l p 2 5 Q P R I N 1
0025000 1 4 Q C H A N G E F O N T ) \r
0025020 ( 2 0 1 Q G e t S o u r c e
0025040 1 6 0 Q D E F A U L T F O N T
0025060 1 4 5 Q e d i t o r 1 2 0
0025100 Q e d i t e d 7 6 Q C O M
0025120 M E N T F O N T 5 7 Q n a m
0025140 e 4 6 Q R u l e S e t 3 6
0025160 Q G e t P e r s p 1 0 Q B
0025200 O L D F O N T ) \r ( 1 3 4 Q "
0025220 b y " 1 0 7 Q " L a s t
0025240 E d i t e d : " 2 1 Q "
0025260 R u l e S e t " ) \r S a v e R
0025300 u l e s D 1 \r ( P 5 r u l
0025320 e P 4 I P 1 e d i t
0025340 e d P 0 e d i t o r I
0025360 3 r u l e O b j e c t s I
0025400 2 s o u r c e R u l e s I
0025420 1 r u l e S e t I 0 r u
0025440 l e S e t S o u r c e F 6
0025460 U S E R N A M E F 7 S t u
0025500 d e n t N a m e F 1 0 Q n
0025520 u m R u l e s ) 001 ! 006 003 \0 004 021
0025540 001 V d g \0 \0 360 222 277 W 016 X \b \0 \0
0025560 Y B \t \0 \0 ` \0 \0 235 A g \0 \0 ` \0 \0
0025600 \t \0 \0 \v \0 \0 277 A g \0 \0 ` \0 \0 \v \0
0025620 \0 A g \0 \0 ` \0 \0 \v \0 \0 A g \0 \0 `
0025640 \0 \0 \v \0 \0 A g \0 \0 ` \0 \0 \v \0 \0 A
0025660 g \0 \0 ` \0 \0 \v \0 \0 A g \0 \0 ` \0 \0
0025700 \v \0 \0 A g \0 \0 ` \0 \0 \v \0 \0 A g \0
0025720 \0 ` \0 \0 g \0 \0 \t \0 \0 360 221 h 205 ` \0
0025740 \0 \t \0 \0 \v \0 \0 A g \0 \0 ` \0 \0 \v \0
0025760 \0 A g \0 \0 ` \0 \0 g \0 \0 \t \0 \0 360 221
0026000 h 205 ` \0 \0 \t \0 \0 \v \0 \0 @ g \0 \0 H
0026020 \v \0 \0 @ g \0 \0 I \v \0 \0 C 255 B \t \0
0026040 \0 027 \0 \0 277 B A \n \0 \0 210 ` \0 \0 c 020
0026060 277 ` \0 \0 b 006 277 A g \0 \0 ` \0 \0 \v \0
0026100 \0 @ g \0 \0 \n \0 \0 ` \0 \0 C k 021 023 005
0026120 K 003 265 004 h 020 001 275 L J 361 263 371 M g \0
0026140 \0 I \v \0 \0 277 M g \0 \0 H \v \0 \0 277 @
0026160 L M \v \0 \0 277 K 002 273 L k 330 274 260 323 \0
0026200 ( 4 2 5 Q P u t N t h V a l u
0026220 e 4 1 6 Q P u t V a l u e
0026240 4 0 5 Q P u t V a l u e 3 5
0026260 0 Q P u t V a l u e 3 4 1 Q
0026300 P u t V a l u e 3 1 2 Q G
0026320 e t R u l e s 3 0 1 Q C o u
0026340 n t R u l e s 2 7 3 Q P u t
0026360 V a l u e 2 6 3 Q P u t V a
0026400 l u e 2 5 3 Q P u t V a l u
0026420 e 2 5 0 Q C l a s s N a m e
0026440 2 3 6 Q G e t O b j e c t R
0026460 e c 2 2 1 Q P u t V a l u e
0026500 2 0 7 Q P u t V a l u e 2
0026520 0 4 Q C l a s s N a m e 1 7
0026540 2 Q G e t O b j e c t R e c
0026560 1 5 5 Q P u t V a l u e 1 4
0026600 3 Q P u t V a l u e 1 3 1 Q
0026620 P u t V a l u e 1 1 7 Q P
0026640 u t V a l u e 1 0 5 Q P u t
0026660 V a l u e 7 3 Q P u t V a l
0026700 u e 6 1 Q P u t V a l u e
0026720 4 6 Q P u t V a l u e 4 3 Q
0026740 C l a s s N a m e 2 5 Q G
0026760 e t R u l e S e t D e c l a r a
0027000 t i o n s 2 0 Q D A T E ) \r
0027020 ( 4 1 2 Q e d i t o r 4 0 1
0027040 Q e d i t e d 3 5 3 Q r s
0027060 N u m R u l e s 3 4 5 Q i n
0027100 d e x e d V a r s 3 3 6 Q r
0027120 s N u m R u l e s 3 3 3 Q n
0027140 u m R u l e s 3 2 4 Q r s R
0027160 u l e O b j e c t s 3 1 6 Q
0027200 r s N u m R u l e s 3 0 4 Q
0027220 r s N u m R u l e s 2 6 7 Q
0027240 e d i t e d 2 5 7 Q e d i t
0027260 o r 2 4 5 Q r s R u l e C l
0027300 a s s 2 3 3 Q R u l e 2 3
0027320 0 Q r s R u l e C l a s s 2
0027340 2 5 Q r u l e C l a s s 2 1
0027360 6 Q r s A u d i t S p e c i f
0027400 i c a t i o n 2 1 3 Q m e t
0027420 a A s s i g n m e n t s 2 0 1
0027440 Q r s A u d i t C l a s s 1
0027460 6 7 Q S t a n d a r d A u d i
0027500 t R e c o r d 1 6 4 Q r s A
0027520 u d i t C l a s s 1 6 1 Q a
0027540 u d i t C l a s s 1 5 2 Q r
0027560 s C o m p i l e r O p t i o n s
0027600 1 4 7 Q c o m p i l e r O p
0027620 t i o n s 1 4 0 Q r s W h i
0027640 l e C o n d i t i o n 1 3 5 Q
0027660 w h i l e C o n d i t i o n
0027700 1 2 6 Q c o n t r o l T y p e
0027720 1 2 3 Q c o n t r o l S t r
0027740 u c t u r e 1 1 4 Q r s A r
0027760 g s 1 1 1 Q a r g s 1 0 2
0030000 Q d e b u g V a r s 7 7 Q
0030020 d e b u g V a r s 7 0 Q t e
0030040 m p V a r s 6 5 Q t e m p V
0030060 a r s 5 6 Q t a s k V a r s
0030100 5 3 Q t a s k V a r s 4 0
0030120 Q w s C l a s s 3 5 Q w o
0030140 r k S p a c e 3 0 Q w s C l
0030160 a s s 7 L O O P S C O U R S
0030200 E ) \r N I L \r S e a r c h S t a
0030220 c k F o r W o r k S p a c e D
0030240 1 \r ( P 4 I P 0 r u l
0030260 e S e t N a m e ) \0 J 005 \0 \0 \0
0030300 021 0 002 n 003 350 k 021 002 004 L K 361 263 & L
0030320 \t \0 \0 X 265 004 260 035 \t \0 \0 262 ( H \t \0
0030340 \0 Z g \0 \0 \n \0 \0 271 J g \0 \0 l 002 I
0030360 017 016 237 023 H 264 \r g \0 \0 H j \n \0 \0 \n
0030400 \0 \0 020 L k 330 \ 260 304 \0 ( 1 0 1 Q
0030420 E V A L V 7 6 Q S T K P O S
0030440 4 7 Q F e t c h M e t h o d
0030460 O r H e l p 4 0 Q $ ! 3 2
0030500 Q $ ! 2 2 Q S T K N T H N
0030520 A M E ) \r ( 7 1 Q s e l f 5
0030540 4 Q R u l e S e t 4 4 Q I
0030560 n s t O f ! ) \r N I L \r C l o s
0030600 e R E W i n d o w D 1 \r ( F
0030620 0 r e T r a c e W i n d o w
0030640 F 1 r e I n s p e c t W i n
0030660 d o w ) \0 021 \0 002 \0 \0 P 265 \t Q d
0030700 222 \t \0 \0 020 \t \0 \0 277 260 365 \0 ( 1 4 Q
0030720 C L O S E W 1 0 Q C L O S
0030740 E W ) \r N I L \r N I L \r C o u n
0030760 t R u l e s D 1 \r ( P 2 r
0031000 u l e P o s P 1 s t r P
0031020 0 c h a r I 0 s o u r
0031040 c e S t r ) \0 0 004 \0 \0 001 i 021 1
0031060 003 o \0 \0 \0 @ \n \0 \0 l \b 330 Z @ J \n
0031100 \0 \0 Y j 273 H 262 024 I \t \0 \0 X d g \0
0031120 \0 360 262 364 277 K k 330 260 354 K 020 \0 ( 3 6
0031140 Q G N C 2 4 Q S U B S T R
0031160 I N G 1 3 Q S T R P O S ) \r
0031200 ( 4 3 Q ; ) \r ( 7 " * * * *
0031220 * * * * " ) \r D e f R S M D 1
0031240 \r ( P 1 c l a s s R e c P
0031260 0 r u l e S e t I 2 r
0031300 u l e S e t N a m e I 1 s
0031320 e l e c t o r I 0 c l a s
0031340 s N a m e ) \0 227 006 \0 \0 003 021 ` 005
0031360 @ \t \0 \0 Y 255 o \0 \0 \0 @ o \0 \0 \0 \v
0031400 \0 \0 h 020 A 252 o \0 \0 \0 \t \0 \0 b 002 264
0031420 364 @ d 004 ` \0 \0 360 246 004 ` \0 \0 360 226 @
0031440 \t \0 \0 b \0 277 B 265 9 A @ \n \0 \0 b 004
0031460 277 g \0 \0 \t \0 \0 [ g \0 \0 \n \0 \0 272 K
0031500 h B l 003 J 017 016 X g \0 \0 @ \v \0 \0 277
0031520 H ] g \0 \0 \n \0 \0 274 M k L 017 016 260 023
0031540 \t \0 \0 X g \0 \0 @ \v \0 \0 277 B \t \0 \0
0031560 X 277 I A B \v \0 \0 I A B g \0 \0 \f \0
0031600 \0 B 020 \0 ( 2 2 3 Q P u t M e t
0031620 h o d 2 1 2 Q P u t M e t h
0031640 o d 2 0 2 Q G e t O b j e c
0031660 t R e c 1 7 5 Q P u t V a l
0031700 u e 1 6 5 Q G e t O b j e c
0031720 t R e c 1 5 2 Q F e t c h M
0031740 e t h o d O r H e l p 1 4 1 Q
0031760 P u t V a l u e 1 2 0 Q F
0032000 e t c h M e t h o d O r H e l p
0032020 1 1 1 Q G e t O b j e c t R
0032040 e c 1 0 0 Q P A C K * 6 5
0032060 Q C l a s s N a m e 3 7 Q
0032100 P r o m p t R e a d 2 4 Q W
0032120 R I T E 6 G e t C l a s s R
0032140 e c ) \r ( 2 2 0 Q R u l e S e
0032160 t 1 7 1 Q w o r k S p a c e
0032200 1 4 7 Q E R 1 3 5 Q w o
0032220 r k S p a c e 1 1 5 Q N e w
0032240 1 0 6 Q R u l e S e t 5 7
0032260 Q 004 003 c l a s s T Y P E # 5
0032300 1 Q 004 003 i n s t a n c e T Y P
0032320 E # ) \r ( 3 4 Q " T y p e s
0032340 e l e c t o r f o r R u l e
0032360 S e t M e t h o d : " 2 1
0032400 Q " n o t f o u n d . "
0032420 1 4 Q " C l a s s " ) \r G e t
0032440 R u l e s D 1 \r ( P 7 c h
0032460 a r P 6 r u l e S t r P
0032500 5 s e m i P o s P 4 r
0032520 u l e P 3 r u l e s P
0032540 2 r u l e P o s P 1 s t
0032560 r P 0 r u l e C o u n t
0032600 I 1 r u l e S e t I 0
0032620 s o u r c e S t r ) \0 205 \n \0 \0
0032640 002 j 021 221 \t o \0 \0 \0 @ \n \0 \0 l \b 330
0032660 272 @ J \n \0 \0 271 g \0 \0 I \n \0 \0 ] 262
0032700 d ` \0 \0 _ 022 g \0 \0 \n \0 \0 _ 020 277 O
0032720 022 k O 020 017 016 274 I k M \v \0 \0 ^ k d
0032740 \v \0 \0 _ 016 265 / L g \0 \0 N \v \0 \0 277
0032760 L g \0 \0 A \v \0 \0 277 H k 330 270 L g \0
0033000 \0 H \v \0 \0 277 K L h 032 \n \0 \0 273 I M
0033020 k 330 260 241 o \0 \0 \0 034 262 316 N l 002 \n \0
0033040 \0 260 274 K 020 \0 ( 1 7 7 Q S U B S
0033060 T R I N G 1 5 3 Q \ N C O N
0033100 C 2 1 4 3 Q P u t V a l u e
0033120 1 2 6 Q P u t V a l u e 1
0033140 1 5 Q P u t V a l u e 1 0 1
0033160 Q S U B A T O M 7 3 Q S U
0033200 B S T R I N G 5 2 Q F e t c
0033220 h M e t h o d O r H e l p 3 4
0033240 Q S T R P O S 2 4 Q S U B
0033260 S T R I N G 1 3 Q S T R P O
0033300 S ) \r ( 1 3 7 Q r u l e N u m
0033320 b e r 1 2 2 Q r u l e S e t
0033340 1 1 1 Q s o u r c e 4 7 Q
0033360 N e w 4 2 Q r s R u l e C
0033400 l a s s 3 0 Q ; ) \r ( 1 6 6
0033420 Q ( % \r % \n ) 7 " * * *
0033440 * * * * * " ) \r M I N U S M I N
0033460 U S D 1 \r ( L ( 1 b 0
0033500 a ) ) \0 \b \0 \0 \0 002 @ A 331 l 004 334
0033520 020 \0 N I L \r N I L \r N I L \r P A
0033540 U S E D 1 \r ( P 0 m s g
0033560 I 3 m s g 4 I 2 m s g
0033600 3 I 1 m s g 2 I 0 m
0033620 s g 1 ) \0 3 001 \0 \0 004 021 020 \0 C 230
0033640 @ A B C \f \0 \0 260 032 B 226 @ A B \v \0
0033660 \0 216 A 225 @ A \n \0 \0 206 @ 265 006 o \0 \0
0033700 \0 X d h o \0 \0 \0 \v \0 \0 i 020 \0 ( 5
0033720 7 Q I N T T Y L 3 5 Q C O
0033740 N C A T 2 5 Q C O N C A T
0033760 1 3 Q C O N C A T ) \r N I L \r
0034000 ( 5 4 Q " T y p e R e t u r
0034020 n w h e n r e a d y t o
0034040 C o n t i n u e " 4 5 Q " P
0034060 A U S E : T y p e R E T U R
0034100 N t o c o n t i n u e . " )
0034120 \r P L U S P L U S D 1 \r ( L
0034140 ( 1 b 0 a ) ) \0 \b \0 \0 \0
0034160 002 @ A 330 l 004 334 020 \0 N I L \r N I L
0034200 \r N I L \r P u t A u d i t R e c
0034220 D 1 \r ( I 3 a u d i t R e
0034240 c o r d I 2 n e w V a l u
0034260 e I 1 a u d i t V a r N a
0034300 m e I 0 a u d i t O b j e
0034320 c t ) \0 021 \0 \0 \0 004 @ A C g \0 \0
0034340 \f \0 \0 @ A B \v \0 \0 020 \0 ( 1 6 Q
0034360 P u t V a l u e 1 0 Q P u t
0034400 V a l u e ) \r ( 5 r e a s o n
0034420 ) \r N I L \r P u t C l a s s A u
0034440 d i t R e c D 1 \r ( I 3 a
0034460 u d i t R e c o r d I 2 n
0034500 e w V a l u e I 1 v a r N
0034520 a m e I 0 s e l f ) \0 021
0034540 \0 \0 \0 004 @ A C g \0 \0 \f \0 \0 @ A B
0034560 \v \0 \0 020 \0 ( 1 6 Q P u t C l a
0034600 s s V a l u e 1 0 Q P u t C
0034620 l a s s V a l u e ) \r ( 5 r e
0034640 a s o n ) \r N I L \r R E A 1 2 8
0034660 3 D 1 \r ( N A M E E R R O R
0034700 S E T L ( 2 E R R O R S E
0034720 T . W 1 E R R O R S E T . V
0034740 0 E R R O R S E T . U ) P
0034760 0 ^ w s F 1 R E S E T
0035000 V A R S L S T F 2 r e W i
0035020 n d o w F 3 w s N a m e
0035040 F 4 R E S E T Y ) \0 202 001 004
0035060 \0 003 g \0 \0 \b \0 \0 \t \0 \0 h 032 032 h 032
0035100 Q 032 c 002 277 g \0 \0 R g \0 \0 \n \0 \0 \t
0035120 \0 \0 h 032 032 h 032 Q 032 c 002 277 g \0 \0 R
0035140 h 032 032 h h 032 032 Q 032 c 002 277 S 265 005 \b
0035160 \0 \0 021 001 \0 H 265 020 o \0 \0 \0 h o \0 \0
0035200 \0 i \f \0 \0 X g \0 \0 360 263 $ H g \0 \0
0035220 360 263 035 H d g \0 \0 360 263 024 \t \0 \0 X 251
0035240 o \0 \0 \0 \t \0 \0 277 260 315 \b \0 \0 277 023 i
0035260 c \b 020 \0 ( 1 7 2 Q R E 1 1 6
0035300 4 Q W R I T E 1 5 3 Q $ !
0035320 1 2 2 Q I N T T Y 7 7 Q
0035340 S e a r c h S t a c k F o r W o
0035360 r k S p a c e 3 7 Q T T Y D
0035400 I S P L A Y S T R E A M 3 4 Q
0035420 G E T W I N D O W P R O P 1
0035440 0 Q T T Y . P R O C E S S 5
0035460 T H I S . P R O C E S S ) \r (
0035500 1 4 5 Q O K 1 3 5 Q O k
0035520 1 2 6 Q o k 5 4 Q C L O S
0035540 E W 3 1 Q D S P 2 5 Q T
0035560 T Y D I S P L A Y S T R E A M
0035600 2 T T Y . P R O C E S S ) \r (
0035620 1 6 1 Q " W o r k s p a c e
0035640 n o t f o u n d . " 1 1 6
0035660 Q " T y p e n a m e o f
0035700 w o r k S p a c e . \r T y p e
0035720 o k t o q u i t . " 1 1 1
0035740 Q " W o r k s p a c e : "
0035760 ) \r R E D 1 \r ( P 2 R E S
0036000 E T Z P 1 R E S E T Y P
0036020 0 L I S P X H I S T I 0
0036040 w s N a m e F 3 r e W i
0036060 n d o w F 4 L I S P X H I
0036100 S T F 5 R E S E T V A R S
0036120 L S T ) \0 [ 003 003 \0 001 S 265 5 n 001
0036140 025 l \f n 002 X l 372 h 032 032 032 032 o \0 \0
0036160 \0 \n \0 \0 c 006 g \0 \0 g \0 \0 \v \0 \0 277
0036200 g \0 \0 S \n \0 \0 277 S g \0 \0 \n \0 \0 277
0036220 S \t \0 \0 T 021 ! 002 U o \0 \0 \0 g \0 \0
0036240 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223 \b
0036260 \0 \0 020 I 020 \0 ( 1 2 6 Q E R R O
0036300 R ! 1 2 1 Q R E S E T R E S
0036320 T O R E 1 0 7 Q R E A 1 2 8
0036340 3 7 0 Q C L E A R W 6 3 Q
0036360 P U T W I N D O W P R O P 5
0036400 3 Q D S P S C R O L L 4 3 Q
0036420 P U T W I N D O W P R O P 3
0036440 0 Q C R E A T E W ) \r ( 1 1 5
0036460 Q E R R O R 1 0 4 Q I N T
0036500 E R N A L 6 0 Q R I G H T B
0036520 U T T O N F N 4 7 Q O N 4
0036540 0 Q C l o s e R E W i n d o w
0036560 3 5 Q C L O S E F N ) \r ( 1
0036600 0 1 Q ( D U M M Y . F O R . E
0036620 R R O R S E T ) 2 5 Q " R u
0036640 l e E x e c ( S t o p g a p
0036660 V e r s i o n ) " ) \r R E 1 A
0036700 1 2 8 4 D 1 \r ( N A M E E R
0036720 R O R S E T L ( 2 E R R O
0036740 R S E T . W 1 E R R O R S E
0036760 T . V 0 E R R O R S E T . U
0037000 ) F 0 ^ c o m E x p r )
0037020 \0 \n \0 001 \0 003 P \t \0 \0 \t \0 \0 i 020 \0
0037040 ( 6 W R I T E 3 E V A L )
0037060 \r N I L \r N I L \r R E 1 D 1 \r
0037100 ( P 6 p r e v T o k e n s
0037120 P 5 ^ c o m E x p r P 4
0037140 ^ c o m S t r P 3 ^ r u
0037160 l e S e t N a m e s P 2 s
0037200 e l f P 1 ^ d o n e E x p
0037220 r s P 0 w h y T o k e n s
0037240 F 7 ^ w s F 1 0 Q r
0037260 e T r a c e W i n d o w F 1
0037300 1 Q r e W i n d o w ) \0 251 \a
0037320 003 \0 \0 o \0 \0 \0 o \0 \0 \0 021 R 006 \b \0
0037340 \0 273 W 016 Z 277 W 020 \t \0 \0 277 o \0 \0 \0
0037360 h d o \0 \0 \0 \f \0 \0 \ 265 004 260 352 o \0
0037400 \0 \0 \n \0 \0 250 L o \0 \0 \0 \n \0 \0 232 W
0037420 022 \t \0 \0 277 \b \0 \0 260 315 L o \0 \0 \0 \n
0037440 \0 \0 230 o \0 \0 \0 \t \0 \0 260 273 L \t \0 \0
0037460 277 ` \0 \0 d 001 H 034 225 277 \b \0 \0 260 250 001
0037500 I 034 221 i 020 ` \0 \0 ^ g \0 \0 h 032 \n \0
0037520 \0 027 \0 \0 277 g \0 \0 \t \0 \0 275 ` \0 \0 230
0037540 o \0 \0 \0 M \n \0 \0 277 ` \0 \0 247 o \0 \0
0037560 \0 \t \0 \0 277 \b \0 \0 261 377 m \0 ( 2 4 4
0037600 Q R E F o c u s R u l e S e t
0037620 2 4 0 Q R E 1 A 1 2 8 4 2
0037640 2 4 Q W R I T E 2 0 7 Q C
0037660 o m p i l e R u l e 1 1 7 5 Q
0037700 \ N C O N C 2 1 5 1 Q R E
0037720 A s k W h y 1 3 4 Q P a r s
0037740 e T o k e n s 1 2 6 Q W R I
0037760 T E 1 1 6 Q S T R E Q U A L
0040000 1 0 4 Q U E 1 0 0 Q C L
0040020 O S E W 7 2 Q S T R E Q U A
0040040 L 6 1 Q S T R E Q U A L 4
0040060 5 Q T T Y I N 2 7 Q T O T
0040100 O P W 1 5 Q S e t U p R E )
0040120 \r ( 2 3 0 Q p a r s e E r r o
0040140 r F l g 2 1 3 Q r s C o m p
0040160 i l e r D e b u g F l g 2 0 4
0040200 Q s p e c i a l F l g 2 0 0
0040220 Q r u l e S e t T o k e n s
0040240 1 7 0 Q ; 1 6 4 Q r u l e
0040260 S e t T o k e n s 1 4 0 Q r
0040300 u l e S e t T o k e n s ) \r ( 2
0040320 3 5 Q ( D U M M Y . F O R . E
0040340 R R O R S E T ) 2 2 0 Q " ^
0040360 c o m E x p r = " 1 2 3 Q "
0040400 T o i n s p e c t a w o r
0040420 k s p a c e , u s e L E F
0040440 T m o u s e b u t t o n i
0040460 n t r a c e m e n u . \r T o
0040500 p r i n t a R u l e S e t
0040520 , u s e M I D D L E m o u
0040540 s e b u t t o n i n t r a
0040560 c e m e n u . \r T o e v a l
0040600 u a t e a R u l e e x p r
0040620 e s s i o n , t y p e i t
0040640 i n t h i s w i n d o w . \r
0040660 T o g e t t h e L I S P
0040700 U s e r E x e c , t y p e
0040720 U E . \r T o q u i t , t y p
0040740 e O K . " 1 1 3 Q " ? "
0040760 6 7 Q " u e " 5 6 Q " U E
0041000 " 4 2 Q ( S T R I N G N O
0041020 R A I S E ) 3 4 Q " r e :
0041040 " 7 ( O K O k o k D O
0041060 N E D o n e d o n e B Y E
0041100 B y e b y e ) 3 ( W H Y
0041120 W h y w h y ) ) \r R E A s k
0041140 W h y D 1 \r ( P 1 r u l e
0041160 P 0 c o m p i l e d E x p
0041200 r F 4 p r e v T o k e n s
0041220 ) \0 227 004 001 \0 \0 021 @ 003 ` \0 \0 002 027
0041240 \0 \0 d 001 g \0 \0 360 262 ' 277 T 027 \0 \0 277
0041260 o \0 \0 \0 i \n \0 \0 277 ` \0 \0 001 i \n \0
0041300 \0 277 i \t \0 \0 277 i \t \0 \0 277 ` \0 \0 g
0041320 \0 \0 h 032 \n \0 \0 027 \0 \0 277 \b \0 \0 002 002
0041340 001 X 001 d g \0 \0 360 227 277 H g \0 \0 030 260
0041360 025 g \0 \0 360 262 3 H g \0 \0 030 277 H i h
0041400 032 \n \0 \0 277 H \t \0 \0 Y 265 017 o \0 \0 \0
0041420 \t \0 \0 277 \b \0 \0 h 020 [ g \0 \0 \n \0 \0
0041440 272 K k J 017 016 260 355 o \0 \0 \0 260 344 \0 (
0041460 2 0 7 Q F e t c h M e t h o d
0041500 O r H e l p 1 7 6 Q T E R P
0041520 R I 1 7 2 Q W R I T E 1 6
0041540 0 Q E V A L 1 5 3 Q \ N C
0041560 O N C 2 1 0 5 Q C o m p i l
0041600 e R u l e 1 7 6 Q \ N C O N
0041620 C 2 6 2 Q T E R P R I 5 5
0041640 Q T E R P R I 5 0 Q P R I
0041660 N 1 3 7 Q P R I N 1 ) \r ( 2
0041700 0 4 Q P r i n t 1 4 2 Q W
0041720 h i c h R u l e ? 1 3 3 Q G
0041740 e t C l a s s V a l u e 1 2 5
0041760 Q W h i c h R u l e ? 1 1 6
0042000 Q G e t V a l u e 1 0 1 Q
0042020 r u l e S e t T o k e n s 7 1
0042040 Q ; 6 6 Q r u l e S e t T
0042060 o k e n s 4 3 Q r u l e S e
0042100 t T o k e n s 2 6 Q r u l e
0042120 S e t T o k e n s 1 6 Q ;
0042140 1 1 Q r u l e S e t T o k e n
0042160 s 5 r u l e S e t T o k e n
0042200 s ) \r ( 2 2 3 Q " e h ? " 1
0042220 6 7 Q " R u l e n o t k n
0042240 o w n . " 3 3 Q " - -
0042260 T h a t i s , w h y " )
0042300 \r R E F o c u s R u l e S e t
0042320 D 1 \r ( F 2 ^ w s ) \0 \ 002
0042340 001 \0 \0 R d 004 ` \0 \0 360 246 d 004 ` \0 \0
0042360 360 222 311 \0 202 \t \0 \0 027 \0 \0 d 021 021 001 H
0042400 g \0 \0 \n \0 \0 271 H g \0 \0 l 002 I 017 016
0042420 022 027 \0 \0 h 027 \0 \0 d 027 \0 \0 g \0 \0 027
0042440 \0 \0 o \0 \0 \0 027 \0 \0 h 027 \0 \0 d 027 \0
0042460 \0 d 027 \0 \0 d 027 \0 \0 d 027 \0 \0 020 \0 (
0042500 4 2 Q F e t c h M e t h o d O
0042520 r H e l p 2 4 Q G e t L i s
0042540 p C l a s s ) \r ( 1 3 1 Q r s
0042560 T a s k F l g 1 2 5 Q r u l
0042600 e O b j e c t 1 2 1 Q r s A
0042620 u d i t F l g 1 1 5 Q r s B
0042640 r e a k F l g 1 1 1 Q r s T
0042660 r a c e F l g 1 0 5 Q r u l
0042700 e N u m b e r 7 6 Q c o n t
0042720 r o l T y p e 7 3 Q D O A L
0042740 L 7 0 Q t e m p V a r s 6
0042760 4 Q t a s k V a r s 6 0 Q
0043000 w s V a r s 4 7 Q I V S 3
0043020 7 Q L i s t ! 2 7 Q w s C
0043040 l a s s 1 4 Q 004 003 c l a s s
0043060 T Y P E # 5 004 003 i n s t a n
0043100 c e T Y P E # ) \r ( 1 0 2 Q -
0043120 2 3 4 2 0 Q ) \r R E T r a c e S
0043140 e l e c t F n D 1 \r ( P 0
0043160 w s I 2 k e y I 1 m
0043200 e n u I 0 i t e m F 3
0043220 ^ r e I n s p e c t W i n d o
0043240 w ) \0 < 003 001 \0 003 021 0 002 B d g \0
0043260 \0 360 262 031 277 @ 002 001 X Z g \0 \0 \n \0 \0
0043300 271 J k I 017 016 c 006 277 260 031 g \0 \0 360 264
0043320 024 g \0 \0 @ 001 \t \0 \0 o \0 \0 \0 032 032 \t
0043340 \0 \0 h 020 \0 ( 7 0 Q E V A L . I
0043360 N . T T Y . P R O C E S S 5 7
0043400 Q G e t O b j e c t R e c 2
0043420 6 Q F e t c h M e t h o d O r
0043440 H e l p ) \r ( 5 2 Q _ 4 4 Q
0043460 M I D D L E 2 3 Q I n s p
0043500 e c t 7 L E F T ) \r ( 6 3 Q
0043520 ( E R ) ) \r R S G e t F n D
0043540 1 \r ( P 1 r u l e V a l u e
0043560 P 0 r u l e S e t I 5
0043600 t y p e I 4 a c t i v e
0043620 V a l I 3 p r o p N a m e
0043640 I 2 l o c a l S t I 1
0043660 v a r N a m e I 0 s e l
0043700 f ) \0 3 003 \0 \0 006 021 0 002 @ A g \0
0043720 \0 \v \0 \0 \t \0 \0 X d 227 g \0 \0 H \n \0
0043740 \0 247 o \0 \0 \0 \t \0 \0 277 H d 004 l 004 360
0043760 242 \t \0 \0 272 B k J 017 016 020 \0 ( 5 2 Q
0044000 G e t O b j e c t N a m e 3
0044020 7 Q E R R O R 2 7 Q C l a
0044040 s s ? 1 5 Q G e t O b j e c
0044060 t R e c 1 2 Q G e t V a l u
0044100 e ) \r ( 2 3 Q R u l e S e t
0044120 7 R S G e t ) \r ( 3 4 Q " R
0044140 u l e S e t n o t f o u n d
0044160 f o r a c t i v e v a l u
0044200 e . " ) \r R S P u t F n D 1 \r
0044220 ( P 1 r u l e V a l u e P
0044240 0 r u l e S e t I 5 t
0044260 y p e I 4 a c t i v e V a
0044300 l I 3 p r o p N a m e I
0044320 2 n e w V a l u e I 1
0044340 v a r N a m e I 0 s e l f
0044360 ) \0 > 003 \0 \0 006 021 0 002 @ A g \0 \0
0044400 \v \0 \0 \t \0 \0 X d 227 g \0 \0 H \n \0 \0
0044420 247 o \0 \0 \0 \t \0 \0 277 H d 004 l 004 360 242
0044440 \t \0 \0 272 B k J 017 016 Y D I @ A C E
0044460 \r 006 \0 \0 020 \0 ( 7 3 Q P u t L o
0044500 c a l S t a t e 5 2 Q G e t
0044520 O b j e c t N a m e 3 7 Q E
0044540 R R O R 2 7 Q C l a s s ?
0044560 1 5 Q G e t O b j e c t R e c
0044600 1 2 Q G e t V a l u e ) \r (
0044620 2 3 Q R u l e S e t 7 R S
0044640 P u t ) \r ( 3 4 Q " R u l e S
0044660 e t n o t f o u n d f o r
0044700 a c t i v e v a l u e . " )
0044720 \r R u l e S e t S t o p D 1 \r
0044740 ( L ( 2 ^ r e a s o n 1
0044760 ^ s t a t u s 0 s t o p V a
0045000 l u e ) F 0 ^ v a l u e )
0045020 \0 005 \0 001 \0 003 @ c \0 020 \0 N I L \r
0045040 N I L \r N I L \r R u l e S e t T
0045060 r a n s f e r D 1 \r ( P 0
0045100 r u l e S e t P o s I 0 r
0045120 u l e S e t A r g s ) \0 B 001 \0
0045140 \0 001 g \0 \0 \t \0 \0 021 001 \0 H 250 o \0 \0
0045160 \0 \t \0 \0 260 m 377 H \n \0 \0 g \0 \0 360
0045200 262 025 m 376 H \n \0 \0 g \0 \0 360 227 m 375 H
0045220 d \v \0 \0 277 g \0 \0 @ H d i d \r 006 \0
0045240 \0 h 020 \0 ( 7 6 Q E N V A P P L
0045260 Y 6 1 Q S T K N T H 4 5 Q
0045300 S T K N T H N A M E 3 1 Q
0045320 S T K N T H N A M E 2 1 Q E
0045340 R R O R 5 S T K P O S ) \r (
0045360 6 5 Q R u l e S e t . R u n
0045400 5 0 Q * E N V * 3 4 Q A P
0045420 P L Y 2 R u l e S e t . R u
0045440 n ) \r ( 1 6 Q " M u s t b e
0045460 i n s i d e a R u l e S e
0045500 t R . R u n t o t r a n s f
0045520 e r " ) \r S e t U p R E D 1 \r
0045540 ( P 1 5 Q W S P 1 1 Q
0045560 I P 4 w R e g i o n P
0045600 3 m P o s i t i o n P 2
0045620 t r a c e M e n u P 1 s t
0045640 k N a m e P 0 r u l e S e
0045660 t N a m e s F 1 6 Q c o n
0045700 t r o l t y p e F 1 7 Q r
0045720 s T r a c e F o n t F 2 0 Q
0045740 r e W i n d o w F 2 1 Q
0045760 r e T r a c e W i n d o w ) 001
0046000 \t 016 004 \0 \0 021 200 \a g \0 \0 c 034 \b \0 \0
0046020 n 003 350 k 021 2 \f O 022 O 020 361 247 O 022 \t
0046040 \0 \0 Y 265 } O 024 022 X ` \0 \0 037 d H 024
0046060 004 277 d k 024 \b 277 d W 036 024 020 277 d g \0
0046100 \0 024 026 277 d g \0 \0 024 277 d g \0 \0 024
0046120 034 277 j d n 177 377 d h 032 032 032 032 _ 016 277
0046140 d O 016 024 \n 277 d 006 \0 \0 311 \n 002 002 l 226
0046160 030 277 Z W g \0 \0 \n \0 \0 \ d 001 l 227
0046200 331 L 002 001 L 002 002 002 001 l 2 331 330 032 [ J
0046220 h K g \0 \0 \f \0 \0 J \t \0 \0 c " h 020
0046240 \t \0 \0 262 Y I \t \0 \0 ^ g \0 \0 \n \0 \0
0046260 275 N g \0 \0 l 002 M 017 016 262 B g \0 \0 I
0046300 j \n \0 \0 \n \0 \0 021 001 \r I O 032 o \0 \0
0046320 \0 O 032 \t \0 \0 o \0 \0 \0 o \0 \0 \0 I o
0046340 \0 \0 \0 \r 006 \0 \0 h 032 032 032 022 _ 030 277 O
0046360 026 265 024 O 030 h 032 _ 026 _ 024 277 O 022 k 330
0046400 _ 022 261 377 027 O 030 & _ 026 277 260 361 \0 ( 3
0046420 4 1 Q C O N C A T 3 2 0 Q
0046440 G e t O b j e c t N a m e 3 0
0046460 1 Q E V A L V 2 7 6 Q S T
0046500 K P O S 2 5 2 Q F e t c h M
0046520 e t h o d O r H e l p 2 4 3 Q
0046540 G e t O b j e c t R e c 2 3
0046560 5 Q G e t O b j e c t R e c
0046600 2 2 6 Q W F R O M M E N U 2
0046620 2 2 Q A D D M E N U 1 6 5 Q
0046640 G E T W I N D O W P R O P 3
0046660 4 Q S T K N T H N A M E 1 2
0046700 Q R E F o c u s R u l e S e t
0046720 ) \r ( 2 7 1 Q s e l f 2 5 7
0046740 Q R u l e S e t 2 4 7 Q I
0046760 n s t O f ! 2 1 7 Q S c r o
0047000 l l F l g 1 6 2 Q R E G I O
0047020 N 1 4 4 Q M E N U 1 1 1 Q
0047040 D E F A U L T M E N U H E L D
0047060 F N 1 0 2 Q C L R P R O M P
0047100 T 7 3 Q R E T r a c e S e l
0047120 e c t F n 4 6 Q 004 003 M E N U
0047140 T Y P E # 5 D O A L L ) \r (
0047160 3 3 5 Q " r u l e s " 3 3
0047200 0 Q " M i d d l e t o E D
0047220 I T " 3 2 4 Q " \r " 3 1
0047240 3 Q " L e f t t o I N S P
0047260 E C T " ) \r T r a c e L H S
0047300 D 1 \r ( I 2 r u l e N u m
0047320 I 1 r u l e L a b I 0
0047340 r u l e S e t N a m e ) \0 H \0
0047360 \0 \0 003 o \0 \0 \0 i \n \0 \0 277 ` \0 \0 i
0047400 \n \0 \0 277 A 265 003 B i \n \0 \0 277 ` \0 \0
0047420 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277 ` \0
0047440 \0 i \n \0 \0 277 @ i \n \0 \0 277 ` \0 \0 i
0047460 \n \0 \0 277 i \t \0 \0 i 020 \0 ( 1 0 4 Q
0047500 T E R P R I 7 7 Q C H A N
0047520 G E F O N T 6 7 Q P R I N 1
0047540 6 1 Q C H A N G E F O N T
0047560 5 1 Q P R I N 1 4 0 Q C H
0047600 A N G E F O N T 3 0 Q P R I
0047620 N 1 1 7 Q C H A N G E F O N
0047640 T 7 P R I N 1 ) \r ( 7 3 Q
0047660 D E F A U L T F O N T 5 5 Q
0047700 B O L D F O N T 3 4 Q D E F
0047720 A U L T F O N T 1 3 Q B O L
0047740 D F O N T ) \r ( 4 5 Q " i n
0047760 R u l e S e t " 3 " T
0050000 e s t i n g r u l e " ) \r T
0050020 r a c e R H S D 1 \r ( I 3
0050040 ^ v a l u e I 2 r u l e N
0050060 u m I 1 r u l e L a b I
0050100 0 r u l e S e t N a m e )
0050120 \0 H \0 \0 \0 004 o \0 \0 \0 i \n \0 \0 277 `
0050140 \0 \0 i \n \0 \0 277 A 265 003 B i \n \0 \0 277
0050160 ` \0 \0 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0
0050200 277 ` \0 \0 i \n \0 \0 277 @ i \n \0 \0 277 `
0050220 \0 \0 i \n \0 \0 277 i \t \0 \0 C 020 \0 ( 1
0050240 0 4 Q T E R P R I 7 7 Q C
0050260 H A N G E F O N T 6 7 Q P R
0050300 I N 1 6 1 Q C H A N G E F O
0050320 N T 5 1 Q P R I N 1 4 0 Q
0050340 C H A N G E F O N T 3 0 Q
0050360 P R I N 1 1 7 Q C H A N G E
0050400 F O N T 7 P R I N 1 ) \r ( 7
0050420 3 Q D E F A U L T F O N T 5
0050440 5 Q B O L D F O N T 3 4 Q
0050460 D E F A U L T F O N T 1 3 Q
0050500 B O L D F O N T ) \r ( 4 5 Q "
0050520 i n R u l e S e t " 3
0050540 " E x e c u t i n g r u l e
0050560 " ) \r W R I T E T T Y D 1 \r (
0050600 P 1 I P 0 n a r g s )
0050620 \0 035 002 \0 002 \0 e 021 001 \0 j 021 001 001 H
0050640 I 361 232 I k 330 Y a \t \0 \0 277 260 363 \b \0
0050660 \0 i 020 \0 ( 3 1 Q T E R P R I
0050700 2 3 Q P R I N 1 ) \r N I L \r N
0050720 I L \r W h i c h R u l e ? D 1
0050740 \r ( P 0 a u d i t R e c o r
0050760 d I 2 c l a s s F l g I
0051000 1 v a r N a m e I 0 o
0051020 b j ) \0 + 001 \0 \0 003 021 020 \0 B 230 @
0051040 A g \0 \0 \v \0 \0 207 @ A g \0 \0 \v \0 \0
0051060 X d 264 021 d g \0 \0 360 247 d g \0 \0 \n \0
0051100 \0 020 h 020 \0 ( 4 6 Q G e t V a l
0051120 u e 2 5 Q G e t V a l u e
0051140 1 4 Q G e t C l a s s V a l u
0051160 e ) \r ( 4 3 Q r u l e 3 5 Q
0051200 ? 2 2 Q r e a s o n 1 1
0051220 Q r e a s o n ) \r N I L \r ( P
0051240 R E T T Y C O M P R I N T L O
0051260 O P S R U L E S C O M S ) \r ( R
0051300 P A Q Q L O O P S R U L E S C
0051320 O M S ( ( * C o p y r i g h
0051340 t ( c ) 1 9 8 2 b y X e
0051360 r o x C o r p o r a t i o n )
0051400 ( * * P a c k a g e f o
0051420 r R u l e - O r i e n t e d
0051440 \r P r o g r a m m i n g i n
0051460 L O O P S . - F i l e L O
0051500 O P S R U L E S c o n t a i n
0051520 s t h e b a s i c c l a s
0051540 s d e f i n i t i o n s . F
0051560 i l e L O O P S R U L E S P
0051600 \r c o n t a i n s t h e r u
0051620 l e p a r s e r . - F i l
0051640 e L O O P S R U L E S C c o
0051660 n t a i n s t h e r u l e
0051700 c o m p i l e r . F i l e L
0051720 O O P S R U L E S D i n t e r
0051740 p r e t s \r R u l e S e t d
0051760 e c l a r a t i o n s . ) ( *
0052000 W r i t t e n i n A u g u
0052020 s t 1 9 8 2 b y M a r k
0052040 S t e f i k , A l a n B e l
0052060 l , a n d D a n n y B o b
0052100 r o w ) ( * \r C l a s s e s
0052120 f o r R u l e - O r i e n t
0052140 e d P r o g r a m m i n g i
0052160 n L O O P S . ) ( C L A S S
0052200 E S * L O O P S R U L E S C
0052220 L A S S E S ) ( F N S * L
0052240 O O P S R U L E S F N S ) ( \r
0052260 F N S * R U L E S E T M I S
0052300 C F N S ) ( V A R S ( ^ r s
0052320 N I L ) ( ^ w s N I L )
0052340 ( ^ c a l l e r N I L ) ( ^
0052360 t a s k N I L ) ( r e W i n
0052400 d o w N I L ) ( \r r e T r a
0052420 c e W i n d o w N I L ) ( r
0052440 e I n s p e c t W i n d o w N
0052460 I L ) ( r s T r a c e F o n t
0052500 ( F O N T C R E A T E ( Q U
0052520 O T E G A C H A ) 8 ) ) )
0052540 ( P ( C L D I S A B L E ( \r
0052560 Q U O T E ^ ) ) ) ( P ( I
0052600 N T E R R U P T C H A R 6 (
0052620 L I S T ( F U N C T I O N R
0052640 E ) ) ) ) ( M A C R O S R u
0052660 n R S ) ( D E C L A R E : D
0052700 O N T E V A L @ L O A D \r D O
0052720 E V A L @ C O M P I L E D O N
0052740 T C O P Y C O M P I L E R V A
0052760 R S ( A D D V A R S ( N L A
0053000 M A ) ( N L A M L ) ( L A M
0053020 A W R I T E T T Y ) ) ) ) ) \r
0053040 ( R P A Q Q L O O P S R U L E
0053060 S C L A S S E S ( R u l e R
0053100 u l e S e t R u l e S e t M e
0053120 t a R u l e S e t N o d e R
0053140 u l e S e t S o u r c e S t a
0053160 n d a r d A u d i t R e c o r d
0053200 T a s k \r T e s t A u d i t
0053220 R e c o r d ) ) \r ( D E F C L A
0053240 S S E S R u l e R u l e S e
0053260 t R u l e S e t M e t a R u
0053300 l e S e t N o d e R u l e S e
0053320 t S o u r c e S t a n d a r d
0053340 A u d i t R e c o r d T a s k
0053360 \r T e s t A u d i t R e c o r
0053400 d ) \r ( D E F C L A S S R u l
0053420 e ( M e t a C l a s s C l a
0053440 s s d o c ( * * C l a s
0053460 s f o r d e s c r i b i n g
0053500 r u l e s a s o b j e c t
0053520 s . I n s t a n c e s o f
0053540 t h i s \r c l a s s ( r u l
0053560 e o b j e c t s ) a r e c
0053600 r e a t e d a s a s i d e
0053620 - e f f e c t w h e n R u l
0053640 e S e t s a r e c o m p i l
0053660 e d i n a u d i t m o d e
0053700 . ) E d i t e d : ( \r * m
0053720 j s : " 1 2 - F E B - 8 3 1
0053740 2 : 1 9 " ) ) ( S u p e r s
0053760 O b j e c t ) ( C l a s s V a
0054000 r i a b l e s ) ( I n s t a n
0054020 c e V a r i a b l e s ( s o u
0054040 r c e N I L d o c ( * \r
0054060 s t r i n g t h a t w a s
0054100 t h e s o u r c e o f t h
0054120 e r u l e i n t h e R u
0054140 l e S e t . ) ) ( e d i t e d
0054160 N I L d o c ( * p e r s
0054200 o n w h o e d i t e d t h
0054220 e \r r u l e . ) ) ( e d i t
0054240 o r N I L d o c ( * t i
0054260 m e a n d d a t e o f t
0054300 h e e d i t i n g . ) ) ( r
0054320 u l e N u m b e r 0 d o c
0054340 ( * s e q u e n c e n u m b
0054360 e r o f t h e \r r u l e
0054400 i n t h e R u l e S e t a
0054420 t t h e t i m e o f e d
0054440 i t i n g . ) ) ( r u l e S e
0054460 t N I L d o c ( * R u l
0054500 e S e t t o w h i c h t h
0054520 i s r u l e b e l o n g s .
0054540 \r ) ) ) ( M e t h o d s ( P
0054560 r i n t R u l e . P r i n t
0054600 a r g s ( f i l e ) d o c
0054620 ( * * P r i n t o u t f
0054640 o r m a t t e d i n f o r m a
0054660 t i o n a b o u t a r u l
0054700 e - t h e \r s o u r c e ,
0054720 R u l e S e t , a n d e d
0054740 i t i n g i n f o r m a t i o
0054760 n . ) ) ) ) \r ( D E F C L A S S
0055000 R u l e S e t ( M e t a C l
0055020 a s s R u l e S e t M e t a
0055040 d o c ( * * A R u l e S
0055060 e t i s a s e t o f r
0055100 u l e s , t o g e t h e r w
0055120 i t h m e t h o d s \r f o r
0055140 i n t e r p r e t i n g t h
0055160 e m . ) E d i t e d : ( *
0055200 m j s : " 1 - J U N - 8 3
0055220 0 9 : 5 5 " ) ) ( S u p e r s
0055240 N a m e d O b j e c t P e r
0055260 s p e c t i v e O b j e c t )
0055300 ( \r C l a s s V a r i a b l e
0055320 s ) ( I n s t a n c e V a r i
0055340 a b l e s ( c o m p i l e d R
0055360 u l e s N I L d o c ( *
0055400 N a m e o f L i s p F u n
0055420 c t i o n f o r R u l e s .
0055440 ) ) ( \r w o r k S p a c e N
0055460 I L d o c ( * n a m e o
0055500 f c l a s s f o r w o r k
0055520 s p a c e . ) ) ( a r g s
0055540 N I L d o c ( * a r g u m
0055560 e n t s t o t h e R u l e
0055600 S e t o t h e r \r t h a n
0055620 s e l f . ) ) ( t e m p V a r
0055640 s N I L d o c ( * t e m
0055660 p o r a r y v a r i a b l e s
0055700 . ) ) ( t a s k V a r s N I
0055720 L d o c ( * T a s k v a
0055740 r i a b l e s . ) ) ( \r d e b
0055760 u g V a r s N I L d o c (
0056000 * v a r i a b l e s t o b
0056020 e p r i n t e d d u r i n g
0056040 a t r a c e o r b r e a
0056060 k . ) ) ( n u m R u l e s N
0056100 I L d o c ( * N u m b e r
0056120 o f \r R u l e s i n R u
0056140 l e S e t . ) ) ( c o n t r o
0056160 l S t r u c t u r e d o A l l
0056200 d o c ( * c o n t r o l
0056220 s t r u c t u r e f o r r u
0056240 l e s . ) ) ( w h i l e C o n
0056260 d i t i o n N I L \r d o c
0056300 ( * w h i l e c o n d i t i
0056320 o n f o r R u l e S e t . )
0056340 ) ( c o m p i l e r O p t i o
0056360 n s N I L d o c ( * C o
0056400 m p i l a t i o n o p t i o n
0056420 s . ) ) ( a u d i t C l a s s
0056440 \r # $ S t a n d a r d A u d i
0056460 t R e c o r d d o c ( * n
0056500 a m e o f c l a s s f o r
0056520 a u d i t r e c o r d s . )
0056540 ) ( m e t a A s s i g n m e n
0056560 t s N I L d o c ( * R u
0056600 l e S e t \r s p e c i f i c
0056620 m e t a - a s s i g n m e n t
0056640 s t a t e m e n t s . ) ) ( r
0056660 u l e C l a s s # $ R u l e
0056700 d o c ( * n a m e o f c
0056720 l a s s f o r r u l e o b
0056740 j e c t s . ) ) ( \r t a s k C
0056760 l a s s N I L d o c ( *
0057000 N a m e o f c l a s s u s
0057020 e d f o r t a s k i n g . )
0057040 ) ( p e r s p e c t i v e N o
0057060 d e # $ R u l e S e t N o d e
0057100 ) ) ( M e t h o d s ( \r C o
0057120 m p i l e R u l e s R u l e S
0057140 e t . C o m p i l e R u l e s
0057160 d o c ( * C o m p i l e t
0057200 h e R u l e S e t . ) ) ( C
0057220 o p y R u l e s R u l e S e t
0057240 . C o p y R u l e s a r g s
0057260 ( \r n e w N a m e ) d o c (
0057300 * C r e a t e s a n e w
0057320 R u l e S e t c o n t a i n i
0057340 n g a c o p y o f t h e
0057360 r u l e s . ) ) ( E R R u
0057400 l e S e t . E d i t R u l e s
0057420 d o c ( * \r S h o r t h a n
0057440 d f o r E d i t R u l e s )
0057460 ) ( E d i t R u l e s R u l
0057500 e S e t . E d i t R u l e s d
0057520 o c ( * F o r w a r d t h
0057540 e E d i t m e s s a g e t
0057560 o t h e S o u r c e \r p e
0057600 r s p e c t i v e o f t h e
0057620 R u l e S e t . ) a r g s
0057640 N I L ) ( O f f R u l e S e
0057660 t . O f f a r g s ( c o m p
0057700 i l e r O p t i o n ) d o c
0057720 ( * T u r n o f f a \r c
0057740 o m p i l e r o p t i o n . )
0057760 ) ( O n R u l e S e t . O n
0060000 a r g s ( c o m p i l e r O
0060020 p t i o n ) d o c ( * T u
0060040 r n o n a c o m p i l e r
0060060 o p t i o n . ) ) ( P P R
0060100 \r R u l e S e t . P P R u l e s
0060120 d o c ( * S h o r t h a n
0060140 d f o r P P R u l e s ) )
0060160 ( P P R u l e s R u l e S e t
0060200 . P P R u l e s a r g s N I
0060220 L d o c ( * P r e t t y P
0060240 r i n t \r t h e R u l e s .
0060260 ) ) ) ) \r ( D E F C L A S S R
0060300 u l e S e t M e t a ( M e t a
0060320 C l a s s M e t a C l a s s
0060340 d o c ( * * M e t a C l a
0060360 s s f o r R u l e S e t s .
0060400 ) E d i t e d : ( * m j s
0060420 : \r " 2 9 - S E P - 8 2 0 9
0060440 : 1 4 " ) ) ( S u p e r s T
0060460 e m p l a t e ) ( C l a s s V
0060500 a r i a b l e s ) ( I n s t a
0060520 n c e V a r i a b l e s ) ( M
0060540 e t h o d s ( N e w \r R u l
0060560 e S e t M e t a . N e w d o c
0060600 ( * * C r e a t e a n
0060620 e w r u l e s e t . ) a r
0060640 g s ( n a m e ) ) ) ) \r ( D E
0060660 F C L A S S R u l e S e t N o
0060700 d e ( M e t a C l a s s T e
0060720 m p l a t e d o c ( * N o
0060740 d e f o r R u l e S e t p
0060760 e r s p e c t i v e s . ) E d
0061000 i t e d : ( * m j s : \r "
0061020 2 9 - S E P - 8 2 1 0 : 4 3 "
0061040 ) ) ( S u p e r s N o d e
0061060 O b j e c t ) ( C l a s s V a
0061100 r i a b l e s ) ( I n s t a n
0061120 c e V a r i a b l e s ( p e r
0061140 s p e c t i v e s N I L S o
0061160 u r c e \r # $ R u l e S e t S
0061200 o u r c e R u l e S e t # $
0061220 R u l e S e t ) ) ( M e t h o
0061240 d s ) ) \r ( D E F C L A S S R
0061260 u l e S e t S o u r c e ( M e
0061300 t a C l a s s T e m p l a t e
0061320 d o c ( * * S o u r c e
0061340 c o d e f o r a R u l e
0061360 S e t . C o n t a i n s e d
0061400 i t i n g \r i n f o r m a t i
0061420 o n a b o u t t h e R u l
0061440 e S e t , a n d a n i n d
0061460 e x e d l i s t o f r u l
0061500 e o b j e c t s . ) E d i t
0061520 e d : ( * m j s : " 1 2 -
0061540 F E B - 8 3 1 2 : 1 6 " \r ) )
0061560 ( S u p e r s D a t e d O b
0061600 j e c t P e r s p e c t i v e
0061620 V a r L e n g t h ) ( C l a
0061640 s s V a r i a b l e s ) ( I n
0061660 s t a n c e V a r i a b l e s
0061700 ( p e r s p e c t i v e N o d e
0061720 # $ \r R u l e S e t N o d e )
0061740 ( e d i t e d N I L d o c
0061760 ( * D a t e l a s t e d
0062000 i t e d . ) ) ( e d i t o r
0062020 N I L d o c ( * L a s t
0062040 U s e r t o e d i t t h e
0062060 r u l e s . ) ) ) \r ( M e t
0062100 h o d s ( C o m p i l e R u l
0062120 e s R u l e S e t S o u r c e
0062140 . C o m p i l e R u l e s d o
0062160 c ( * * C o m p i l e t
0062200 h e R u l e s f o r a R
0062220 u l e S e t f r o m t h e
0062240 \r R u l e L a n g u a g e i
0062260 n t o I n t e r l i s p . )
0062300 a r g s ( ^ u s e r C o m p i
0062320 l e r O p t i o n s s o u r c
0062340 e R u l e s ) ) ( E d i t R u
0062360 l e s \r R u l e S e t S o u r
0062400 c e . E d i t R u l e s d o c
0062420 ( * E d i t t h e r u l
0062440 e s a s s o c i a t e d w i
0062460 t h a R u l e S e t S o u r
0062500 c e . ) a r g s N I L ) (
0062520 G e t S o u r c e \r R u l e S
0062540 e t S o u r c e . G e t S o u r
0062560 c e a r g s ( a l l D e c l
0062600 F l g ) d o c ( * C o m p
0062620 u t e t h e s o u r c e s
0062640 t r i n g f o r a R u l e
0062660 S e t f o r p r i n t i n g
0062700 \r o r e d i t i n g . I f
0062720 a l l D e c l F l g i s T
0062740 , t h e c o m p u t e d s
0062760 t r i n g w i l l i n c l u
0063000 d e e x t r a r u l e d e
0063020 c l a r a t i o n s b e y o n
0063040 d t h e \r b a s i c s e t
0063060 , e v e n i f t h e y h
0063100 a v e n o c u r r e n t v
0063120 a l u e . ) ) ( P P R u l e s
0063140 R u l e S e t S o u r c e . P
0063160 P R u l e s a r g s ( f i l
0063200 e ) d o c ( * \r P r e t t
0063220 y P r i n t t h e R u l e
0063240 s ) ) ) ) \r ( D E F C L A S S
0063260 S t a n d a r d A u d i t R e c
0063300 o r d ( M e t a C l a s s C
0063320 l a s s d o c ( * * S t
0063340 a n d a r d ( d e f a u l t )
0063360 a u d i t r e c o r d f o
0063400 r m a k e i n g \r a u d i t
0063420 t r a i l s o f R u l e S
0063440 e t i n v o c a t i o n s . )
0063460 E d i t e d : ( * m j s :
0063500 " 9 - J U N - 8 3 0 9 : 5
0063520 3 " ) ) ( S u p e r s O b j
0063540 e c t ) ( \r C l a s s V a r i
0063560 a b l e s ( m e t a A s s n s
0063600 ( r u l e _ r u l e O b j
0063620 e c t ) d o c ( * d e f a
0063640 u l t m e t a - a s s i g n m
0063660 e n t s t a t e m e n t s a
0063700 s s o c i a t e d \r w i t h
0063720 t h i s a u d i t r e c o r
0063740 d . ) ) ) ( I n s t a n c e V
0063760 a r i a b l e s ( r u l e N
0064000 I L d o c ( * R u l e u
0064020 s e d i n s e t t i n g t
0064040 h e v a l u e . ) ) ) ( \r M
0064060 e t h o d s ) ) \r ( D E F C L A
0064100 S S T a s k ( M e t a C l a
0064120 s s C l a s s d o c ( *
0064140 * R e p r e s e n t a t i o n
0064160 o f t h e i n v o c a t i
0064200 o n o f a R u l e S e t .
0064220 U s e d i n \r c r e a t i
0064240 n g v a r i a t i o n s o f
0064260 a g e n d a c o n t r o l
0064300 s t r u c t u r e s . S i m i
0064320 l a r t o t h e i d e a
0064340 o f c l o s u r e s . ) E d
0064360 i t e d : ( * m j s : \r "
0064400 7 - J U N - 8 3 1 0 : 2 4 "
0064420 ) ) ( S u p e r s O b j e c
0064440 t ) ( C l a s s V a r i a b l
0064460 e s ) ( I n s t a n c e V a r
0064500 i a b l e s ( r u l e N u m b
0064520 e r 1 d o c ( * N u m b
0064540 e r o f \r t h e n e x t
0064560 r u l e t o b e e x e c u
0064600 t e d . U s e d f o r R u
0064620 l e S e t d e b u g g i n g
0064640 a n d f o r d o N e x t a
0064660 n d c y c l e N e x t . ) )
0064700 ( r s N I L d o c \r ( *
0064720 R u l e S e t t h a t w a s
0064740 i n v o k e d . ) ) ( s e l
0064760 f N I L d o c ( * w o r
0065000 k S p a c e g i v e n t o
0065020 t h e R u l e S e t . ) ) (
0065040 v a l u e N I L d o c ( *
0065060 \r v a l u e r e t u r n e d
0065100 b y t h e R u l e S e t )
0065120 ) ( s t a t u s S t a r t e
0065140 d d o c ( * E x e c u t i
0065160 o n s t a t u s . E x a m p
0065200 l e s : S t a r t e d , D o
0065220 n e , \r A b o r t e d , S u
0065240 s p e n d e d . ) ) ( r e a s
0065260 o n N o t K n o w n d o c
0065300 ( * R e a s o n f o r t h
0065320 e s t a t u s . E x a m p l
0065340 e s : S u c c e s s , N o S
0065360 p a c e , \r B l o c k e d ) )
0065400 ( c a l l e r N I L d o c
0065420 ( * C a l l e r o f t h
0065440 e R u l e S e t . ) ) ) ( M
0065460 e t h o d s ( S t e p N I L
0065500 d o c ( * M e t h o d t
0065520 o S t e p t h e \r T a s k
0065540 . ) ) ) ) \r ( D E F C L A S S
0065560 T e s t A u d i t R e c o r d
0065600 ( M e t a C l a s s C l a s s
0065620 d o c ( * F o r T e s t
0065640 c a s e s . ) E d i t e d :
0065660 ( * m j s : " 1 1 - N O V
0065700 - 8 2 0 9 : 3 0 " ) ) \r ( S
0065720 u p e r s S t a n d a r d A u
0065740 d i t R e c o r d ) ( C l a s
0065760 s V a r i a b l e s ) ( I n s
0066000 t a n c e V a r i a b l e s (
0066020 ^ r s N I L ) ( ^ r u l e N
0066040 u m b e r 0 ) ( c f . 3 )
0066060 ( \r s u p p o r t N I L ) )
0066100 ( M e t h o d s ) ) \r ( R P A
0066120 Q Q L O O P S R U L E S F N S
0066140 ( L i s t R u l e S e t s M
0066160 a k e E d i t M e n u R E O b
0066200 j e c t R e i n s t a l l R u
0066220 l e S e t s R u l e . P r i n
0066240 t \r R u l e S e t . C o m p i
0066260 l e R u l e s R u l e S e t .
0066300 C o p y R u l e s R u l e S e
0066320 t . E d i t R u l e s R u l e
0066340 S e t . O f f R u l e S e t .
0066360 O n R u l e S e t . P P R u l
0066400 e s \r R u l e S e t M e t a .
0066420 N e w R u l e S e t S o u r c
0066440 e . C o m p i l e R u l e s R
0066460 u l e S e t S o u r c e . E d i
0066500 t R u l e s R u l e S e t S o
0066520 u r c e . G e t S o u r c e \r
0066540 R u l e S e t S o u r c e . P P
0066560 R u l e s S a v e R u l e s
0066600 S e a r c h S t a c k F o r W o
0066620 r k S p a c e ) ) \r ( R P A Q Q
0066640 R U L E S E T M I S C F N S
0066660 ( C l o s e R E W i n d o w C
0066700 o u n t R u l e s D e f R S M
0066720 G e t R u l e s M I N U S M
0066740 I N U S P A U S E P L U S P
0066760 L U S P u t A u d i t R e c
0067000 \r P u t C l a s s A u d i t R e
0067020 c R E R E 1 R E A s k W h
0067040 y R E F o c u s R u l e S e t
0067060 R E T r a c e S e l e c t F n
0067100 R S G e t F n R S P u t F n
0067120 R u l e S e t S t o p \r R u
0067140 l e S e t T r a n s f e r S e
0067160 t U p R E T r a c e L H S T
0067200 r a c e R H S W R I T E T T Y
0067220 W h i c h R u l e ? ) ) \r ( R
0067240 P A Q Q ^ r s N I L ) \r ( R
0067260 P A Q Q ^ w s N I L ) \r ( R
0067300 P A Q Q ^ c a l l e r N I L
0067320 ) \r ( R P A Q Q ^ t a s k N
0067340 I L ) \r ( R P A Q Q r e W i n
0067360 d o w N I L ) \r ( R P A Q Q
0067400 r e T r a c e W i n d o w N I
0067420 L ) \r ( R P A Q Q r e I n s p
0067440 e c t W i n d o w N I L ) \r (
0067460 R P A Q r s T r a c e F o n t
0067500 ( F O N T C R E A T E ( Q U
0067520 O T E G A C H A ) 8 ) ) \r (
0067540 C L D I S A B L E ( Q U O T E
0067560 ^ ) ) \r ( I N T E R R U P T C
0067600 H A R 6 ( L I S T ( F U N
0067620 C T I O N R E ) ) ) \r ( P U T
0067640 P R O P S R u n R S M A C R
0067660 O ( ( r s w s . a r g s
0067700 ) ( A P P L Y * ( C O N D
0067720 ( ( L I T A T O M r s ) r s
0067740 ) ( T ( G e t O b j e c t N
0067760 a m e r s ) ) ) w s . \r
0070000 a r g s ) ) ) \r ( P U T P R O P
0070020 S L O O P S R U L E S C O P
0070040 Y R I G H T ( " X e r o x C
0070060 o r p o r a t i o n " 1 9 8 3
0070100 ) ) \r N I L \r
0070107