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