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