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