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