$ od -c -N 50000 [Indigo]<Loops>RELEASE>22-Mar-84>LOOPSAV.DCOM!1
0000000 ( F I L E C R E A T E D " 2 6
0000020 - D E C - 8 3 1 8 : 3 0 : 4 8
0000040 " ( " c o m p i l e d o n
0000060 " { I N D I G O } < L O O P S
0000100 > S O U R C E S > L O O P S A V
0000120 . ; 9 ) \r " 1 2 - O C T - 8 3
0000140 1 3 : 5 2 : 2 8 " r e c o m
0000160 p i l e d e x p r s : S u b
0000200 s t I n A V i n L O O P S .
0000220 S Y S O U T d a t e d " 2 4
0000240 - D E C - 8 3 1 1 : 0 9 : 4 3
0000260 " ) \r ( F I L E C R E A T E D
0000300 " 2 6 - D E C - 8 3 1 8 : 3 0
0000320 : 0 5 " { I N D I G O } < L O
0000340 O P S > S O U R C E S > L O O P
0000360 S A V . ; 9 1 9 7 4 7 c h a
0000400 n g e s t o : ( F N S S u
0000420 b s t I n A V ) \r p r e v i o
0000440 u s d a t e : " 7 - N O V
0000460 - 8 3 1 9 : 1 5 : 4 4 " { I
0000500 N D I G O } < L O O P S > S O U
0000520 R C E S > L O O P S A V . ; 8 )
0000540 \r A L I S T U N I O N D 1 \r (
0000560 P 1 e P 0 n e w L i s
0000600 t I 1 L 2 I 0 L 1 )
0000620 \0 3 002 \0 \0 002 h h 032 021 001 \0 @ 260 !
0000640 d 001 021 001 001 I A 034 263 025 I 004 l 004 361 226
0000660 I 001 A \n \0 \0 245 H I \n \0 \0 277 023 002 003
0000700 265 340 H A \n \0 \0 001 020 \0 ( 5 7 Q L
0000720 C O N C 4 4 Q T C O N C 3
0000740 6 Q F A S S O C ) \r N I L \r N
0000760 I L \r A t t a c h L i s t A P
0001000 D 1 \r ( P 1 c u r r e n t V
0001020 a l P 0 p r o p V a l s
0001040 I 6 o t h e r A r g s I
0001060 5 s e l e c t o r I 4 r
0001100 e c e i v e r I 3 p r o p
0001120 I 2 a v P r o c I 1
0001140 i v N a m e I 0 o b j e c
0001160 t ) \0 7 002 \0 \0 \a 021 001 @ A C \v
0001200 \0 \0 003 X @ A \n \0 \0 Y d B \n \0 \0 253
0001220 @ A h B g \0 \0 \r 005 \0 \0 277 @ A D E
0001240 F 032 032 H 032 C \f \0 \0 @ A \n \0 \0 020 \0
0001260 ( 6 4 Q G e t V a l u e 5 7
0001300 Q P u t V a l u e O n l y 4
0001320 1 Q M a k e A c t i v e V a l
0001340 u e 2 5 Q H a s A c t i v e
0001360 P u t F n 1 7 Q G e t V a l
0001400 u e O n l y 1 0 Q G e t I V
0001420 H e r e ) \r ( 3 5 Q E M B E D
0001440 ) \r N I L \r A t C r e a t i o n
0001460 D 1 \r ( I 5 t y p e I
0001500 4 a v I 3 p r o p N a m
0001520 e I 2 l o c S t a t e I
0001540 1 v a r N a m e I 0 s
0001560 e l f ) \0 ! \0 \0 \0 006 D B d 003 223
0001600 \t \0 \0 215 003 224 B \t \0 \0 206 @ A l 002 B
0001620 017 016 @ A C E \r 006 \0 \0 020 \0 ( 3 6 Q
0001640 R e p l a c e A c t i v e V a
0001660 l u e 1 6 Q E V A L 7 E
0001700 V A L ) \r N I L \r N I L \r C o p
0001720 y A V D 1 \r ( I 0 a v )
0001740 \0 ; 002 \0 \0 001 ` \0 \0 037 @ 006 \0 \0 311 \0
0001760 \t \0 \0 021 002 001 H d I 024 \0 277 022 @ 006 \0
0002000 \0 311 002 \t \0 \0 021 002 001 H d I 024 002 277 022
0002020 @ 006 \0 \0 311 004 021 002 001 H d I 024 004 277 020
0002040 \0 ( 3 7 Q C O P Y 1 4 Q C
0002060 O P Y ) \r ( 5 5 Q a c t i v e
0002100 V a l u e 3 2 Q a c t i v e
0002120 V a l u e 7 a c t i v e V a
0002140 l u e 2 004 003 a c t i v e V a
0002160 l u e T Y P E # ) \r N I L \r D e
0002200 f A V P D 1 \r ( I 1 p u t
0002220 F l g I 0 f n N a m e )
0002240 \0 " \0 \0 \0 002 o \0 \0 \0 @ h 032 A 224 o
0002260 \0 \0 \0 203 o \0 \0 \0 i \f \0 \0 \t \0 \0 @
0002300 k g \0 \0 017 016 020 \0 ( 3 0 Q D E F
0002320 I N E 2 5 Q S U B P A I R )
0002340 \r ( 3 5 Q E D I T F ) \r ( 2 1
0002360 Q ( ( f n N a m e ( s e l f
0002400 v a r N a m e l o c a l S t
0002420 p r o p N a m e a c t i v e
0002440 V a l t y p e ) ( * T h i
0002460 s i s a g e t F n . T h
0002500 e v a l u e o f t h i s
0002520 g e t F n i s r e t u r n e
0002540 d a s t h e v a l u e o
0002560 f t h e e n c l o s i n g
0002600 G e t V a l u e . ) l o c a l
0002620 S t ) ) 1 4 Q ( ( f n N a m
0002640 e ( s e l f v a r N a m e
0002660 n e w V a l u e p r o p N a m
0002700 e a c t i v e V a l t y p e
0002720 ) ( * T h i s i s a p
0002740 u t F n . * * * N O T E * * *
0002760 T h e v a l u e o f t h
0003000 i s f u n c t i o n w i l l
0003020 b e r e t u r n e d a s
0003040 t h e v a l u e o f a n y
0003060 e n c l o s i n g P u t V a
0003100 l u e . T h i s u s u a l l
0003120 y m e a n s t h a t y o u
0003140 w a n t t o r e t u r n
0003160 t h e v a l u e r e t u r n
0003200 e d b y P u t L o c a l S t
0003220 a t e . ) ( P u t L o c a l S
0003240 t a t e a c t i v e V a l n
0003260 e w V a l u e s e l f v a r
0003300 N a m e p r o p N a m e t y
0003320 p e ) ) ) 3 ( f n N a m e )
0003340 ) \r F i r s t F e t c h D 1 \r
0003360 ( I 5 t y p e I 4 a v
0003400 I 3 p r o p N a m e I
0003420 2 l o c S t a t e I 1 v
0003440 a r N a m e I 0 s e l f )
0003460 \0 ! \0 \0 \0 006 D B d 003 223 \t \0 \0 215
0003500 003 224 B \t \0 \0 206 @ A l 002 B 017 016 @ A
0003520 C E \r 006 \0 \0 020 \0 ( 3 6 Q R e p
0003540 l a c e A c t i v e V a l u e
0003560 1 6 Q E V A L 7 E V A L )
0003600 \r N I L \r N I L \r G e t F r o m
0003620 I V D 1 \r ( I 5 t y p e
0003640 I 4 a c t i v e V a l I
0003660 3 p r o p N a m e I 2 l
0003700 o c a l S t I 1 v a r N a
0003720 m e I 0 s e l f ) \0 \a \0
0003740 \0 \0 006 @ B \n \0 \0 020 \0 ( 4 G e t
0003760 V a l u e ) \r N I L \r N I L \r G
0004000 e t I n d i r e c t D 1 \r ( I
0004020 5 t y p e I 4 a c t i
0004040 v e V a l I 3 p r o p N a
0004060 m e I 2 l s I 1 v a
0004100 r N a m e I 0 s e l f )
0004120 \0 \t \0 \0 \0 006 g \0 \0 B \n \0 \0 020 \0 (
0004140 6 A P P L Y ) \r ( 2 G e t I
0004160 t ) \r N I L \r G e t S u p e r C
0004200 l a s s V a l u e D 1 \r ( P
0004220 1 4 Q l s P 1 3 Q f n
0004240 P 1 2 Q v a l u e P 1 1
0004260 Q c P 7 c l s P 6
0004300 s u p P 0 c l a s s I
0004320 3 a c t i v e V a l I 2
0004340 p r o p N a m e I 1 v a r
0004360 N a m e I 0 s e l f ) \0
0004400 330 \r \0 \0 004 @ d 004 ` \0 \0 360 262 026 d 004
0004420 ` \0 \0 360 246 d 004 ` \0 \0 360 222 311 \0 202 \t
0004440 \0 \0 021 A 004 H d 006 \0 \0 311 022 032 021 ! \a
0004460 M ^ 001 _ 016 277 N 003 264 & O 016 Z g \0 \0
0004500 \n \0 \0 271 J A l 002 I 017 016 262 O 016 A
0004520 B g \0 \0 \f \0 \0 C \n \0 \0 236 N 002 022 021
0004540 ! \n O 020 003 265 \n g \0 \0 020 N 002 260 304 001
0004560 _ 022 \ g \0 \0 \n \0 \0 273 L A l 002 K 017
0004600 016 262 025 O 022 A B g \0 \0 \f \0 \0 _ 024 d
0004620 g \0 \0 360 227 277 O 020 002 _ 020 260 311 004 ` \0
0004640 \0 360 262 7 O 024 006 \0 \0 311 002 O 024 H A B
0004660 g \0 \0 \r 005 \0 \0 021 002 \f O 026 265 005 O 030
0004700 020 003 265 023 H A O 030 B O 024 g \0 \0 l 006
0004720 O 026 017 016 020 \t \0 \0 020 O 024 020 \0 ( 3 2
0004740 2 Q E V A L 2 6 1 Q G e t
0004760 L o c a l S t a t e 2 0 7 Q
0005000 G e t I t H e r e 1 6 3 Q F
0005020 e t c h M e t h o d O r H e l p
0005040 1 2 5 Q H a s A V 1 2 1 Q
0005060 G e t I t H e r e 7 5 Q F
0005100 e t c h M e t h o d O r H e l p
0005120 3 4 Q G e t L i s p C l a s
0005140 s ) \r ( 3 1 0 Q C V 2 5 5 Q
0005160 C V 2 4 3 Q a c t i v e V
0005200 a l u e 2 3 3 Q 004 003 a c t i
0005220 v e V a l u e T Y P E # 2 1 5
0005240 Q ? 2 0 4 Q C V 1 6 0 Q
0005260 H a s C V 1 4 4 Q ? 1 1
0005300 6 Q C V 7 2 Q H a s C V
0005320 4 4 Q c l a s s 2 4 Q 004 003
0005340 c l a s s T Y P E # 1 5 Q 004
0005360 003 i n s t a n c e T Y P E # 5
0005400 004 003 i n s t a n c e T Y P E #
0005420 ) \r N I L \r G e t t i n g B r o
0005440 k e n V a r i a b l e D 1 \r (
0005460 I 5 t y p e I 4 a v
0005500 I 3 p r o p N a m e I 2
0005520 v a l u e I 1 v a r N a
0005540 m e I 0 s e l f ) \0 020 \0
0005560 \0 \0 006 g \0 \0 i g \0 \0 o \0 \0 \0 \f \0
0005600 \0 020 \0 ( 1 5 Q B R E A K 1 ) \r
0005620 ( 6 G e t t i n g V a l u e
0005640 2 v a l u e ) \r ( 1 2 Q ( ?
0005660 = ( s e l f v a r N a m e
0005700 p r o p N a m e v a l u e ) )
0005720 ) \r G e t t i n g T r a c e d V
0005740 a r i a b l e D 1 \r ( I 4
0005760 a v I 3 p r o p N a m e
0006000 I 2 v a l u e I 1 v a
0006020 r N a m e I 0 s e l f )
0006040 \0 020 \0 \0 \0 005 g \0 \0 i g \0 \0 o \0 \0
0006060 \0 \f \0 \0 020 \0 ( 1 5 Q B R E A K
0006100 1 ) \r ( 6 T r a c e d V a l u
0006120 e 2 v a l u e ) \r ( 1 2 Q
0006140 ( T R A C E ? = ( s e l f
0006160 v a r N a m e p r o p N a m e
0006200 ) G O ) ) \r H a s A V D 1 \r
0006220 ( L ( 1 a c t i v e V a l
0006240 0 v a l u e ) ) \0 031 \0 \0 \0 002
0006260 @ 004 ` \0 \0 360 264 021 A @ 360 265 \f @ 006 \0
0006300 \0 311 \0 b \0 260 354 020 \0 N I L \r ( 2 0
0006320 Q a c t i v e V a l u e 4
0006340 004 003 a c t i v e V a l u e T Y P
0006360 E # ) \r N I L \r H a s A c t i v
0006400 e G e t F n D 1 \r ( L ( 1
0006420 g e t F 0 v a l u e ) ) \0
0006440 \0 \0 \0 002 @ 004 ` \0 \0 360 264 030 A @ 006
0006460 \0 \0 311 002 360 222 @ 265 \f @ 006 \0 \0 311 \0 b
0006500 \0 260 345 020 \0 N I L \r ( 2 7 Q a c
0006520 t i v e V a l u e 1 4 Q a c
0006540 t i v e V a l u e 4 004 003 a c
0006560 t i v e V a l u e T Y P E # ) \r
0006600 N I L \r H a s A c t i v e P u t
0006620 F n D 1 \r ( L ( 1 p u t F
0006640 0 v a l u e ) ) \0 \0 \0 \0
0006660 002 @ 004 ` \0 \0 360 264 030 A @ 006 \0 \0 311 004
0006700 360 222 @ 265 \f @ 006 \0 \0 311 \0 b \0 260 345 020
0006720 \0 N I L \r ( 2 7 Q a c t i v e
0006740 V a l u e 1 4 Q a c t i v e
0006760 V a l u e 4 004 003 a c t i v e
0007000 V a l u e T Y P E # ) \r N I L \r
0007020 M a k e A c t i v e V a l u e
0007040 D 1 \r ( P 1 a v P 0 o
0007060 l d V a l u e I 6 t y p e
0007100 I 5 p r o p N a m e I
0007120 4 n e w L o c a l S t I 3
0007140 n e w P u t F n I 2 n e
0007160 w G e t F n I 1 v a r O r
0007200 S e l e c t o r I 0 s e l
0007220 f ) \0 b 002 \0 \0 \a @ A E F \f \0 \0
0007240 021 021 001 H 004 ` \0 \0 360 227 D g \0 \0 360 241
0007260 H 210 ` \0 \0 037 d H 024 \0 277 271 B 235 I 006
0007300 \0 \0 B d i 360 221 277 h 024 002 277 C 235 I 006
0007320 \0 \0 C d i 360 221 277 h 024 004 277 D 265 \r @
0007340 A I E F \r 005 \0 \0 I 020 g \0 \0 360 263 361
0007360 I 006 \0 \0 D 024 \0 277 260 347 \0 ( 1 1 6 Q
0007400 P u t I t O n l y 6 G e t
0007420 I t H e r e ) \r ( 1 3 2 Q a c
0007440 t i v e V a l u e 1 2 3 Q E
0007460 M B E D 7 0 Q a c t i v e V
0007500 a l u e 5 0 Q a c t i v e V
0007520 a l u e 3 3 Q 004 003 a c t i v
0007540 e V a l u e T Y P E # 2 4 Q
0007560 E M B E D 1 6 Q 004 003 a c t i
0007600 v e V a l u e T Y P E # ) \r N I
0007620 L \r N o U p d a t e P e r m i t
0007640 t e d D 1 \r ( I 4 a v I
0007660 3 p r o p N a m e I 2
0007700 v a l u e I 1 e n t r y
0007720 I 0 s e l f ) \0 020 \0 \0 \0 005
0007740 o \0 \0 \0 @ A C h 032 032 032 \n \0 \0 020 \0
0007760 ( 1 5 Q E R R O R ) \r N I L \r
0010000 ( 3 " N o e n t r y p e r
0010020 m i t t e d o n " ) \r P u t
0010040 I n d i r e c t D 1 \r ( P 0
0010060 l s I 5 t y p e I 4
0010100 a c t i v e V a l I 3 p
0010120 r o p N a m e I 2 n e w V
0010140 a l u e I 1 v a r N a m e
0010160 I 0 s e l f ) \0 034 001 \0 \0
0010200 006 D \t \0 \0 021 001 \0 H 001 H 002 001 B H 002
0010220 002 001 H 002 002 002 001 \r 005 \0 \0 020 \0 ( 3 1
0010240 Q P u t I t 3 G e t L o c
0010260 a l S t a t e ) \r N I L \r N I L
0010300 \r P u t L o c a l S t a t e D
0010320 1 \r ( P 1 l o c S t a t e
0010340 P 0 f n I 5 t y p e
0010360 I 4 p r o p N a m e I 3
0010400 v a r N a m e I 2 s e l
0010420 f I 1 n e w V a l u e I
0010440 0 a c t i v e V a l ) \0 203
0010460 002 \0 \0 006 021 001 B 004 ` \0 \0 360 262 < E
0010500 226 E g \0 \0 360 262 3 B C D \v \0 \0 g \0
0010520 \0 360 262 ' B C B d 004 ` \0 \0 360 246 d 004
0010540 ` \0 \0 360 222 311 \0 202 \t \0 \0 C D \v \0 \0
0010560 \t \0 \0 b \0 \v \0 \0 277 @ 006 \0 \0 311 \0 Y
0010600 004 ` \0 \0 360 262 ! I 006 \0 \0 311 004 X 265 005
0010620 I 260 026 003 265 016 B C A D I E l 006 H 017
0010640 016 020 \t \0 \0 020 @ 006 \0 \0 A 024 \0 277 B 223
0010660 B i 024 002 A 020 \0 ( 1 6 0 Q E V A
0010700 L 1 0 3 Q P u t V a l u e O
0010720 n l y 7 6 Q C o p y A V 7
0010740 3 Q G e t C l a s s I V 6 6
0010760 Q G e t L i s p C l a s s 3
0011000 1 Q G e t I V H e r e ) \r ( 1
0011020 6 5 Q a c t i v e V a l u e
0011040 1 2 6 Q a c t i v e V a l u e
0011060 1 1 7 Q 004 003 a c t i v e V a
0011100 l u e T Y P E # 1 1 0 Q a c
0011120 t i v e V a l u e 5 6 Q 004 003
0011140 c l a s s T Y P E # 4 7 Q 004
0011160 003 i n s t a n c e T Y P E # 3
0011200 4 Q ? 2 0 Q I V 7 004 003
0011220 i n s t a n c e T Y P E # ) \r N
0011240 I L \r P u t L o c a l S t a t e
0011260 ! D 1 \r ( L ( 1 n e w l s
0011300 0 a c t i v e V a l ) ) \0
0011320 037 002 \0 \0 002 @ 021 021 001 H 006 \0 \0 311 \0 Y
0011340 004 ` \0 \0 360 223 I X 260 362 H 006 \0 \0 A 024
0011360 \0 @ 020 \0 N I L \r ( 3 0 Q a c t
0011400 i v e V a l u e 1 6 Q 004 003 a
0011420 c t i v e V a l u e T Y P E #
0011440 7 a c t i v e V a l u e ) \r N
0011460 I L \r P u t L o c a l S t a t e
0011500 O n l y D 1 \r ( L ( 1 n e
0011520 w V a l u e 0 a c t i v e V
0011540 a l ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0 A
0011560 024 \0 A 020 \0 N I L \r ( 3 a c t i
0011600 v e V a l u e ) \r N I L \r R e m
0011620 o t e C a l l D 1 \r ( P 1
0011640 c l a s s F o r M e t h o d P
0011660 0 o B j I 0 c a l l )
0011700 \0 002 \0 \0 001 o \0 \0 \0 \t \0 \0 @ 001
0011720 \t \0 \0 021 021 001 H @ 002 001 \n \0 \0 H @ 002
0011740 002 032 \n \0 \0 020 \0 ( 3 5 Q A P P L
0011760 Y 2 5 Q F e t c h M e t h o
0012000 d O r H e l p 1 3 Q G e t O
0012020 b j F r o m U I D 6 D E C L
0012040 A R E : ) \r N I L \r ( 3 ( ( L
0012060 O C A L V A R S . T ) ( S
0012100 P E C V A R S c l a s s F o r
0012120 M e t h o d ) ) ) \r R e m o t e
0012140 S e n d D 1 \r ( P 0 c a l
0012160 l I 5 t y p e I 4 a
0012200 c t i v e V a l I 3 p r o
0012220 p N a m e I 2 n e w V a l
0012240 u e I 1 v a r N a m e I
0012260 0 s e l f ) \0 X 002 \0 \0 006 @
0012300 A g \0 \0 E \f \0 \0 260 @ d 001 021 021 001 g
0012320 \0 \0 H 001 001 H 002 001 B H 002 002 032 032 032 Y
0012340 d 262 032 d i 360 263 025 d 005 001 245 d 005 002 241
0012360 005 003 265 \t g \0 \0 I h 032 032 h 032 032 H 001
0012400 002 001 j \v \0 \0 023 002 003 265 301 D B @ A C
0012420 E \r 006 \0 \0 020 \0 ( 1 2 5 Q P u t
0012440 L o c a l S t a t e 1 0 6 Q
0012460 R E M O T E V A L 1 0 Q G e
0012500 t I t ) \r ( 6 7 Q Q U O T E
0012520 2 2 Q R e m o t e C a l l 4
0012540 r e m o t e C a l l s ) \r N I
0012560 L \r R e m o v e L i s t A P D
0012600 1 \r ( P 1 a v P 0 p r
0012620 o p V a l s I 5 n o E r r
0012640 o r F l g I 4 v a l u e
0012660 I 3 p r o p I 2 a v P
0012700 r o c I 1 i v N a m e I
0012720 0 o b j e c t ) \0 ? 002 \0 \0
0012740 006 021 001 @ A D @ A C \v \0 \0 003 \n \0
0012760 \0 X C \f \0 \0 H 221 i 020 @ A \n \0 \0 B
0013000 \n \0 \0 Y 265 016 E 247 B o \0 \0 \0 \n \0 \0
0013020 h 020 d 006 \0 \0 311 \0 @ A \f \0 \0 260 363 \0
0013040 ( 7 3 Q R e p l a c e A c t i
0013060 v e V a l u e 5 6 Q H E L P
0013100 C H E C K 4 1 Q H a s A c t
0013120 i v e P u t F n 3 5 Q G e t
0013140 V a l u e O n l y 2 4 Q P u
0013160 t V a l u e O n l y 1 7 Q D
0013200 E L A S S O C 1 3 Q G e t I
0013220 V H e r e ) \r ( 6 4 Q a c t i
0013240 v e V a l u e ) \r ( 5 3 Q " n
0013260 o t f o u n d o n o b j e
0013300 c t " ) \r R e p l a c e A c t i
0013320 v e V a l u e D 1 \r ( P 2
0013340 l o c V a l u e P 1 n e x
0013360 t V a l u e P 0 t e s t V
0013400 a l u e I 5 t y p e I
0013420 4 p r o p N a m e I 3 v
0013440 a r N a m e I 2 s e l f
0013460 I 1 n e w V a l I 0 a
0013500 c t i v e V a l ) \0 y 003 \0 \0 006
0013520 B C D E \f \0 \0 021 ! 002 H 004 ` \0 \0 360
0013540 252 B C A D E \r 005 \0 \0 260 9 @ H 360 232
0013560 B C A D E \r 005 \0 \0 260 * B 004 ` \0 \0
0013600 360 262 % E 226 E g \0 \0 360 262 034 B C D \v
0013620 \0 \0 g \0 \0 360 236 B C @ A H \v \0 \0 D
0013640 \f \0 \0 A 020 270 @ H 006 \0 \0 311 \0 Y 360 251
0013660 I d 004 ` \0 \0 360 263 356 277 H 006 \0 \0 A 024
0013700 \0 277 B i 024 002 A 020 \0 ( 1 2 2 Q P
0013720 u t V a l u e O n l y 1 1 6 Q
0013740 S u b s t I n A V 1 0 1 Q
0013760 G e t I V H e r e 5 0 Q P u
0014000 t I t O n l y 3 1 Q P u t I
0014020 t O n l y 6 G e t I t O n l
0014040 y ) \r ( 1 5 5 Q a c t i v e V
0014060 a l u e 1 4 5 Q 004 003 a c t i
0014100 v e V a l u e T Y P E # 1 3 2
0014120 Q a c t i v e V a l u e 1 0
0014140 4 Q ? 7 0 Q I V 5 7 Q
0014160 004 003 i n s t a n c e T Y P E #
0014200 1 6 Q 004 003 a c t i v e V a l u
0014220 e T Y P E # ) \r N I L \r R e p l
0014240 a c e M e D 1 \r ( I 5 t y
0014260 p e I 4 a c t i v e V a l
0014300 I 3 p r o p N a m e I
0014320 2 n e w V a l u e I 1 v
0014340 a r N a m e I 0 s e l f )
0014360 \0 \f \0 \0 \0 006 D B @ A C E \r 006 \0
0014400 \0 020 \0 ( 1 1 Q R e p l a c e A
0014420 c t i v e V a l u e ) \r N I L \r
0014440 N I L \r S e n d A V M e s s a g
0014460 e D 1 \r ( P 4 o B j P
0014500 3 c l a s s F o r M e t h o d
0014520 P 2 m s g P 1 n v
0014540 I 4 a c t i v e V a l I
0014560 3 p r o p N a m e I 2 n
0014600 e w V a l u e I 1 v a r N
0014620 a m e I 0 s e l f ) \0 5
0014640 005 \0 \0 005 @ A g \0 \0 \v \0 \0 D B @ A
0014660 C \r 005 \0 \0 021 2 004 H 003 265 004 I 020 001 Z
0014700 001 \ J 002 001 \n \0 \0 L I J 002 002 032 032 \n
0014720 \0 \0 277 H 002 X 260 343 \0 ( 5 5 Q A P
0014740 P L Y 4 3 Q F e t c h M e t
0014760 h o d O r H e l p 2 0 Q P u
0015000 t L o c a l S t a t e 7 G e
0015020 t I V H e r e ) \r ( 4 a v M e
0015040 s s a g e s ) \r N I L \r S e t t
0015060 i n g B r o k e n V a r i a b l
0015100 e D 1 \r ( I 5 t y p e I
0015120 4 a c t i v e V a l I 3
0015140 p r o p N a m e I 2 n e
0015160 w V a l u e I 1 v a r N a
0015200 m e I 0 s e l f ) \0 021 \0
0015220 \0 \0 006 o \0 \0 \0 i g \0 \0 o \0 \0 \0 \f
0015240 \0 \0 020 \0 ( 1 6 Q B R E A K 1 )
0015260 \r ( 7 S e t t i n g V a r i a
0015300 b l e ) \r ( 1 3 Q ( ? = ( s
0015320 e l f v a r N a m e p r o p
0015340 N a m e n e w V a l u e ) )
0015360 3 ( P u t L o c a l S t a t e
0015400 a c t i v e V a l n e w V a
0015420 l u e s e l f v a r N a m e
0015440 p r o p N a m e t y p e ) )
0015460 \r S e t t i n g T r a c e d V a
0015500 r i a b l e D 1 \r ( P 0 o
0015520 l d V a l u e I 4 a c t i
0015540 v e V a l u e I 3 p r o p
0015560 N a m e I 2 n e w V a l u
0015600 e I 1 v a r N a m e I
0015620 0 s e l f ) \0 035 001 \0 \0 005 D @
0015640 A B C \r 005 \0 \0 021 001 \0 o \0 \0 \0 i g
0015660 \0 \0 o \0 \0 \0 \f \0 \0 020 \0 ( 3 2 Q
0015700 B R E A K 1 1 0 Q G e t L o
0015720 c a l S t a t e ) \r ( 2 3 Q S
0015740 e t t i n g V a r i a b l e ) \r
0015760 ( 2 7 Q ( T R A C E ? = (
0016000 s e l f v a r N a m e p r o
0016020 p N a m e o l d V a l u e )
0016040 G O ) 1 7 Q ( P u t L o c a
0016060 l S t a t e a c t i v e V a l
0016100 u e n e w V a l u e s e l f
0016120 v a r N a m e p r o p N a m
0016140 e ) ) \r S n a p L i n k D 1 \r
0016160 ( I 5 t y p e I 4 a v
0016200 I 3 p r o p N a m e I
0016220 2 l o c S t a t e I 1 v
0016240 a r N a m e I 0 s e l f )
0016260 \0 023 \0 \0 \0 006 @ A D 006 \0 \0 311 \0 \t
0016300 \0 \0 \t \0 \0 \v \0 \0 020 \0 ( 2 0 Q P
0016320 u t V a l u e O n l y 1 5 Q
0016340 G e t O b j e c t R e c 1 2 Q
0016360 M K A T O M ) \r ( 5 a c t i
0016400 v e V a l u e ) \r N I L \r S t o
0016420 r e U n m a r k e d D 1 \r ( L
0016440 ( 5 t y p e 4 a c t i v
0016460 e V a l 3 p r o p N a m e
0016500 2 n e w V a l u e 1 v a r
0016520 N a m e 0 s e l f ) ) \0 \n
0016540 \0 \0 \0 006 D 006 \0 \0 B 024 \0 B 020 \0 N I
0016560 L \r ( 3 a c t i v e V a l u e
0016600 ) \r N I L \r S u b s t I n A V
0016620 D 1 \r ( P 0 l s I 2 a
0016640 v I 1 n e w L S I 0
0016660 o l d L S ) \0 C 004 \0 \0 003 B 006 \0
0016700 \0 311 \0 021 1 003 ` \0 \0 037 B 006 \0 \0 311 002
0016720 271 d I 024 002 277 B 006 \0 \0 311 004 272 d J 024
0016740 004 277 H d @ 360 222 277 A 215 004 ` \0 \0 360 241
0016760 H 205 @ A H \v \0 \0 273 d K 024 \0 277 020 \0
0017000 ( 7 2 Q S u b s t I n A V ) \r
0017020 ( 6 0 Q 004 003 a c t i v e V a l
0017040 u e T Y P E # 3 4 Q a c t i
0017060 v e V a l u e 2 0 Q a c t i
0017100 v e V a l u e 1 3 Q 004 003 a c
0017120 t i v e V a l u e T Y P E # 3
0017140 a c t i v e V a l u e ) \r N I
0017160 L \r U n S n a p L i n k D 1 \r
0017200 ( P 0 v a l u e I 2 p
0017220 r o p N a m e I 1 v a r n
0017240 a m e I 0 s e l f ) \0 :
0017260 002 \0 \0 003 @ A B \v \0 \0 021 021 001 H 004 `
0017300 \0 \0 360 264 ) @ A ` \0 \0 037 H \t \0 \0 271
0017320 d I 024 \0 277 d g \0 \0 024 002 277 d g \0 \0
0017340 024 004 277 B \f \0 \0 277 H \t \0 \0 020 \0 ( 6
0017360 7 Q U I D 6 2 Q P u t V a
0017400 l u e O n l y 3 2 Q U I D
0017420 5 G e t V a l u e O n l y ) \r
0017440 ( 5 3 Q P u t I n V a l u e
0017460 4 4 Q S n a p L i n k 2 5 Q
0017500 004 003 a c t i v e V a l u e T Y
0017520 P E # 1 5 Q 004 003 i n s t a n
0017540 c e T Y P E # ) \r N I L \r U n i
0017560 o n S u p e r V a l u e D 1 \r
0017600 ( I 5 t y p e I 4 a c
0017620 t i v e V a l I 3 p r o p
0017640 N a m e I 2 l o c a l S t
0017660 I 1 v a r N a m e I 0
0017700 s e l f ) \0 017 \0 \0 \0 006 @ A C
0017720 D \f \0 \0 003 B 003 \n \0 \0 020 \0 ( 1 4 Q
0017740 A L I S T U N I O N 6 G e
0017760 t S u p e r C l a s s V a l u e
0020000 ) \r N I L \r N I L \r U p d a t e
0020020 M e t h o d s L i s t D 1 \r (
0020040 I 5 t y p e I 4 a c t
0020060 i v e V a l I 3 p r o p N
0020100 a m e I 2 n e w V a l u e
0020120 I 1 v a r N a m e I 0
0020140 s e l f ) \0 \f \0 \0 \0 006 D B @
0020160 A C E \r 006 \0 \0 020 \0 ( 1 1 Q P u
0020200 t L o c a l S t a t e ) \r N I L
0020220 \r N I L \r ( P R E T T Y C O M P
0020240 R I N T L O O P S A V C O M S
0020260 ) \r ( R P A Q Q L O O P S A V
0020300 C O M S ( ( * C o p y r i g
0020320 h t ( c ) X e r o x C o r
0020340 p o r a t i o n , 1 9 8 3 )
0020360 ( V A R S I m p l i c i t R e
0020400 p l a c e F n s ) ( F N S *
0020420 A V F N S ) \r ( P ( S E T
0020440 A L L S Y N T A X % # ( M A
0020460 C R O F I R S T H a s h M a
0020500 c r o ) ) ) ) ) \r ( R P A Q Q
0020520 I m p l i c i t R e p l a c e F
0020540 n s ( A t C r e a t i o n F
0020560 i r s t F e t c h ) ) \r ( R P A
0020600 Q Q A V F N S ( A L I S T U
0020620 N I O N A t t a c h L i s t A
0020640 P A t C r e a t i o n C o p
0020660 y A V D e f A V P F i r s t
0020700 F e t c h G e t F r o m I V
0020720 G e t I n d i r e c t \r G e t
0020740 S u p e r C l a s s V a l u e
0020760 G e t t i n g B r o k e n V a r
0021000 i a b l e G e t t i n g T r a
0021020 c e d V a r i a b l e H a s A
0021040 V H a s A c t i v e G e t F n
0021060 H a s A c t i v e P u t F n
0021100 \r M a k e A c t i v e V a l u e
0021120 N o U p d a t e P e r m i t t
0021140 e d P u t I n d i r e c t P
0021160 u t L o c a l S t a t e P u t
0021200 L o c a l S t a t e ! P u t L
0021220 o c a l S t a t e O n l y \r R
0021240 e m o t e C a l l R e m o t e
0021260 S e n d R e m o v e L i s t A
0021300 P R e p l a c e A c t i v e V
0021320 a l u e R e p l a c e M e S
0021340 e n d A V M e s s a g e S e t
0021360 t i n g B r o k e n V a r i a b
0021400 l e \r S e t t i n g T r a c e
0021420 d V a r i a b l e S n a p L i
0021440 n k S t o r e U n m a r k e d
0021460 S u b s t I n A V U n S n a
0021500 p L i n k U n i o n S u p e r
0021520 V a l u e U p d a t e M e t h
0021540 o d s L i s t ) ) \r ( S E T A L
0021560 L S Y N T A X % # ( M A C R
0021600 O F I R S T H a s h M a c r
0021620 o ) ) \r N I L \r
0021630