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