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