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