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