$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron2.0>Methods-Derived>SaffronElementNameImpl.Mesa!23 0000000 - - S a f f r o n E l e m e n 0000020 t N a m e I m p l . m e s a \r 0000040 - - C o p y r i g h t 323 1 0000060 9 8 7 b y X e r o x C o r 0000100 p o r a t i o n . A l l r 0000120 i g h t s r e s e r v e d . \r 0000140 - - G e n e r a t e d b y 0000160 h e d e r m a n . p a a t 0000200 A u g u s t 1 7 , 1 9 8 7 0000220 6 : 5 9 : 3 6 p m P D T \r 0000240 - - u s i n g T h r e e C 0000260 a s a b a F o u r [ 1 . 2 ] 0000300 o f J u n e 1 , 1 9 8 7 0000320 6 : 0 0 : 0 0 p m P D T \r \r 0000340 D I R E C T O R Y \r \t S a f f r 0000360 o n A G 1 D e f , \r \t S a f f r 0000400 o n A G 6 D e f , \r \t S a f f r 0000420 o n G e n e r i c D e f , \r \t T 0000440 h r e e C 4 S u p p o r t , \r \t 0000460 S a f f r o n B a s e D e f , \r 0000500 \t S a f f r o n A T D e f ; \r \r 0000520 S a f f r o n E l e m e n t N a 0000540 m e I m p l : C E D A R P R 0000560 O G R A M I M P O R T S T h 0000600 r e e C 4 S u p p o r t , S a 0000620 f f r o n B a s e D e f , S a 0000640 f f r o n A T D e f E X P O R 0000660 T S S a f f r o n A G 1 D e f 0000700 , S a f f r o n A G 6 D e f = 0000720 \r B E G I N \r O P E N S a f 0000740 f r o n A G 1 D e f , S a f f 0000760 r o n A G 6 D e f , S a f f r 0001000 o n G e n e r i c D e f , T h 0001020 r e e C 4 S u p p o r t , S a 0001040 f f r o n B a s e D e f , S a 0001060 f f r o n A T D e f ; \r E l e m 0001100 e n t i d P r o d E l e m e n t 0001120 I n f o : \t P U B L I C P R O 0001140 C [ r e f : R E F A N Y ] 0001160 R E T U R N S [ t e m p 0 : I 0001200 d N o d e , t e m p 1 : E x 0001220 p P T r e e N o d e ] = \r B E 0001240 G I N \r t r e e : \t E l e m e n 0001260 t N o d e _ N A R R O W [ r e 0001300 f ] ; \r B E G I N \r E N A B L E 0001320 T h r e e C 4 S u p p o r t . 0001340 G e t S o u r c e I n f o = > 0001360 R E S U M E [ t r e e . p o s 0001400 i t i o n , t r e e . l e n g 0001420 t h ] ; \r t r e e D a t a : \t E 0001440 l e m e n t i d P r o d D a t a 0001460 _ N A R R O W [ t r e e . d 0001500 a t a ] ; \r t e m p 1 _ N u 0001520 l l E x p P T r e e [ ] ; \r t e 0001540 m p 0 _ t r e e D a t a . I 0001560 d ; \r E N D \r E N D ; \r \r E l e 0001600 m e n t i d w i t h r e p P r o 0001620 d E l e m e n t I n f o : \t P U 0001640 B L I C P R O C [ r e f : R 0001660 E F A N Y ] R E T U R N S [ 0001700 t e m p 0 : I d N o d e , t 0001720 e m p 1 : E x p P T r e e N o 0001740 d e ] = \r B E G I N \r t r e e 0001760 : \t E l e m e n t N o d e _ N 0002000 A R R O W [ r e f ] ; \r B E G I 0002020 N \r E N A B L E T h r e e C 4 0002040 S u p p o r t . G e t S o u r c 0002060 e I n f o = > R E S U M E [ 0002100 t r e e . p o s i t i o n , t 0002120 r e e . l e n g t h ] ; \r t r e 0002140 e D a t a : \t E l e m e n t i d 0002160 w i t h r e p P r o d D a t a 0002200 _ N A R R O W [ t r e e . d a 0002220 t a ] ; \r t e m p 1 _ E x p 0002240 P T r e e V a l [ t r e e D a t 0002260 a . E x p ] ; \r t e m p 0 _ 0002300 t r e e D a t a . I d ; \r E N D 0002320 \r E N D ; \r \r E l e m e n t a n 0002340 o n y m o u s r e p P r o d E l 0002360 e m e n t I n f o : \t P U B L I 0002400 C P R O C [ r e f : R E F 0002420 A N Y ] R E T U R N S [ t e m 0002440 p 0 : I d N o d e , t e m p 0002460 1 : E x p P T r e e N o d e ] 0002500 = \r B E G I N \r t r e e : \t E 0002520 l e m e n t N o d e _ N A R R 0002540 O W [ r e f ] ; \r B E G I N \r E 0002560 N A B L E T h r e e C 4 S u p 0002600 p o r t . G e t S o u r c e I n 0002620 f o = > R E S U M E [ t r e 0002640 e . p o s i t i o n , t r e e 0002660 . l e n g t h ] ; \r t r e e D a 0002700 t a : \t E l e m e n t a n o n y 0002720 m o u s r e p P r o d D a t a 0002740 _ N A R R O W [ t r e e . d a 0002760 t a ] ; \r t e m p 1 _ E x p 0003000 P T r e e V a l [ t r e e D a t 0003020 a . E x p ] ; \r t e m p 0 _ 0003040 N u l l I d [ ] ; \r E N D \r E N 0003060 D ; \r \r E x p i d P r o d I d V 0003100 a l : \t P U B L I C P R O C [ 0003120 r e f : R E F A N Y ] R E 0003140 T U R N S [ t e m p 0 : I d N 0003160 o d e ] = \r B E G I N \r t r e 0003200 e : \t E x p N o d e _ N A R R 0003220 O W [ r e f ] ; \r B E G I N \r E 0003240 N A B L E T h r e e C 4 S u p 0003260 p o r t . G e t S o u r c e I n 0003300 f o = > R E S U M E [ t r e 0003320 e . p o s i t i o n , t r e e 0003340 . l e n g t h ] ; \r t r e e D a 0003360 t a : \t E x p i d P r o d D a t 0003400 a _ N A R R O W [ t r e e . 0003420 d a t a ] ; \r t e m p 0 _ t 0003440 r e e D a t a . I d ; \r E N D \r 0003460 E N D ; \r \r E x p s u m P r o d 0003500 I d V a l : \t P U B L I C P R 0003520 O C [ r e f : R E F A N Y ] 0003540 R E T U R N S [ t e m p 0 : 0003560 I d N o d e ] = \r B E G I N \r 0003600 t r e e : \t E x p N o d e _ N 0003620 A R R O W [ r e f ] ; \r B E G I 0003640 N \r E N A B L E T h r e e C 4 0003660 S u p p o r t . G e t S o u r c 0003700 e I n f o = > R E S U M E [ 0003720 t r e e . p o s i t i o n , t 0003740 r e e . l e n g t h ] ; \r t r e 0003760 e D a t a : \t E x p s u m P r o 0004000 d D a t a _ N A R R O W [ t 0004020 r e e . d a t a ] ; \r B E G I N 0004040 \r x : \t B O O L E A N ; \r x _ 0004060 E r r o r [ " E x p e c t e d 0004100 a n I d " ] ; \r t e m p 0 0004120 _ N u l l I d [ ] ; \r E N D ; 0004140 \r E N D \r E N D ; \r \r E x p u n 0004160 a r y s u m P r o d I d V a l : 0004200 \t P U B L I C P R O C [ r e f 0004220 : R E F A N Y ] R E T U R 0004240 N S [ t e m p 0 : I d N o d e 0004260 ] = \r B E G I N \r t r e e : \t 0004300 E x p N o d e _ N A R R O W [ 0004320 r e f ] ; \r B E G I N \r E N A B 0004340 L E T h r e e C 4 S u p p o r 0004360 t . G e t S o u r c e I n f o 0004400 = > R E S U M E [ t r e e . p 0004420 o s i t i o n , t r e e . l e 0004440 n g t h ] ; \r t r e e D a t a : 0004460 \t E x p u n a r y s u m P r o d 0004500 D a t a _ N A R R O W [ t r 0004520 e e . d a t a ] ; \r B E G I N \r 0004540 x : \t B O O L E A N ; \r x _ 0004560 E r r o r [ " E x p e c t e d 0004600 a n I d " ] ; \r t e m p 0 _ 0004620 N u l l I d [ ] ; \r E N D ; \r 0004640 E N D \r E N D ; \r \r E x p p r o 0004660 d u c t P r o d I d V a l : \t P 0004700 U B L I C P R O C [ r e f : 0004720 R E F A N Y ] R E T U R N S 0004740 [ t e m p 0 : I d N o d e ] 0004760 = \r B E G I N \r t r e e : \t E x 0005000 p N o d e _ N A R R O W [ r e 0005020 f ] ; \r B E G I N \r E N A B L E 0005040 T h r e e C 4 S u p p o r t . 0005060 G e t S o u r c e I n f o = > 0005100 R E S U M E [ t r e e . p o s 0005120 i t i o n , t r e e . l e n g 0005140 t h ] ; \r t r e e D a t a : \t E 0005160 x p p r o d u c t P r o d D a t 0005200 a _ N A R R O W [ t r e e . 0005220 d a t a ] ; \r B E G I N \r x : \t 0005240 B O O L E A N ; \r x _ E r r 0005260 o r [ " E x p e c t e d a n 0005300 I d " ] ; \r t e m p 0 _ N u 0005320 l l I d [ ] ; \r E N D ; \r E N D 0005340 \r E N D ; \r \r E x p o r P r o d 0005360 I d V a l : \t P U B L I C P R 0005400 O C [ r e f : R E F A N Y ] 0005420 R E T U R N S [ t e m p 0 : 0005440 I d N o d e ] = \r B E G I N \r 0005460 t r e e : \t E x p N o d e _ N 0005500 A R R O W [ r e f ] ; \r B E G I 0005520 N \r E N A B L E T h r e e C 4 0005540 S u p p o r t . G e t S o u r c 0005560 e I n f o = > R E S U M E [ 0005600 t r e e . p o s i t i o n , t 0005620 r e e . l e n g t h ] ; \r t r e 0005640 e D a t a : \t E x p o r P r o d 0005660 D a t a _ N A R R O W [ t r 0005700 e e . d a t a ] ; \r B E G I N \r 0005720 x : \t B O O L E A N ; \r x _ 0005740 E r r o r [ " E x p e c t e d 0005760 a n I d " ] ; \r t e m p 0 _ 0006000 N u l l I d [ ] ; \r E N D ; \r 0006020 E N D \r E N D ; \r \r E x p a n d 0006040 P r o d I d V a l : \t P U B L I 0006060 C P R O C [ r e f : R E F 0006100 A N Y ] R E T U R N S [ t e m 0006120 p 0 : I d N o d e ] = \r B E 0006140 G I N \r t r e e : \t E x p N o d 0006160 e _ N A R R O W [ r e f ] ; \r 0006200 B E G I N \r E N A B L E T h r 0006220 e e C 4 S u p p o r t . G e t S 0006240 o u r c e I n f o = > R E S 0006260 U M E [ t r e e . p o s i t i o 0006300 n , t r e e . l e n g t h ] ; 0006320 \r t r e e D a t a : \t E x p a n 0006340 d P r o d D a t a _ N A R R 0006360 O W [ t r e e . d a t a ] ; \r B 0006400 E G I N \r x : \t B O O L E A N ; 0006420 \r x _ E r r o r [ " E x p e 0006440 c t e d a n I d " ] ; \r t e 0006460 m p 0 _ N u l l I d [ ] ; \r 0006500 E N D ; \r E N D \r E N D ; \r \r E 0006520 x p n o t P r o d I d V a l : \t 0006540 P U B L I C P R O C [ r e f : 0006560 R E F A N Y ] R E T U R N 0006600 S [ t e m p 0 : I d N o d e ] 0006620 = \r B E G I N \r t r e e : \t E 0006640 x p N o d e _ N A R R O W [ r 0006660 e f ] ; \r B E G I N \r E N A B L 0006700 E T h r e e C 4 S u p p o r t 0006720 . G e t S o u r c e I n f o = 0006740 > R E S U M E [ t r e e . p o 0006760 s i t i o n , t r e e . l e n 0007000 g t h ] ; \r t r e e D a t a : \t 0007020 E x p n o t P r o d D a t a _ 0007040 N A R R O W [ t r e e . d a t 0007060 a ] ; \r B E G I N \r x : \t B O O 0007100 L E A N ; \r x _ E r r o r [ 0007120 " E x p e c t e d a n I d " 0007140 ] ; \r t e m p 0 _ N u l l I 0007160 d [ ] ; \r E N D ; \r E N D \r E N 0007200 D ; \r \r E x p r e l a t i o n P 0007220 r o d I d V a l : \t P U B L I C 0007240 P R O C [ r e f : R E F A 0007260 N Y ] R E T U R N S [ t e m p 0007300 0 : I d N o d e ] = \r B E G 0007320 I N \r t r e e : \t E x p N o d e 0007340 _ N A R R O W [ r e f ] ; \r B 0007360 E G I N \r E N A B L E T h r e 0007400 e C 4 S u p p o r t . G e t S o 0007420 u r c e I n f o = > R E S U 0007440 M E [ t r e e . p o s i t i o n 0007460 , t r e e . l e n g t h ] ; \r 0007500 t r e e D a t a : \t E x p r e l 0007520 a t i o n P r o d D a t a _ 0007540 N A R R O W [ t r e e . d a t a 0007560 ] ; \r B E G I N \r x : \t B O O L 0007600 E A N ; \r x _ E r r o r [ " 0007620 E x p e c t e d a n I d " ] 0007640 ; \r t e m p 0 _ N u l l I d 0007660 [ ] ; \r E N D ; \r E N D \r E N D 0007700 ; \r \r E x p i f t h e n e l s e 0007720 P r o d I d V a l : \t P U B L I 0007740 C P R O C [ r e f : R E F 0007760 A N Y ] R E T U R N S [ t e m 0010000 p 0 : I d N o d e ] = \r B E 0010020 G I N \r t r e e : \t E x p N o d 0010040 e _ N A R R O W [ r e f ] ; \r 0010060 B E G I N \r E N A B L E T h r 0010100 e e C 4 S u p p o r t . G e t S 0010120 o u r c e I n f o = > R E S 0010140 U M E [ t r e e . p o s i t i o 0010160 n , t r e e . l e n g t h ] ; 0010200 \r t r e e D a t a : \t E x p i f 0010220 t h e n e l s e P r o d D a t a 0010240 _ N A R R O W [ t r e e . d 0010260 a t a ] ; \r B E G I N \r x : \t B 0010300 O O L E A N ; \r x _ E r r o 0010320 r [ " E x p e c t e d a n I 0010340 d " ] ; \r t e m p 0 _ N u l 0010360 l I d [ ] ; \r E N D ; \r E N D \r 0010400 E N D ; \r \r E x p s e l e c t P 0010420 r o d I d V a l : \t P U B L I C 0010440 P R O C [ r e f : R E F A 0010460 N Y ] R E T U R N S [ t e m p 0010500 0 : I d N o d e ] = \r B E G 0010520 I N \r t r e e : \t E x p N o d e 0010540 _ N A R R O W [ r e f ] ; \r B 0010560 E G I N \r E N A B L E T h r e 0010600 e C 4 S u p p o r t . G e t S o 0010620 u r c e I n f o = > R E S U 0010640 M E [ t r e e . p o s i t i o n 0010660 , t r e e . l e n g t h ] ; \r 0010700 t r e e D a t a : \t E x p s e l 0010720 e c t P r o d D a t a _ N A 0010740 R R O W [ t r e e . d a t a ] ; 0010760 \r B E G I N \r x : \t B O O L E A 0011000 N ; \r x _ E r r o r [ " E x 0011020 p e c t e d a n I d " ] ; \r 0011040 t e m p 0 _ N u l l I d [ ] 0011060 ; \r E N D ; \r E N D \r E N D ; \r 0011100 \r E x p a s s i g n P r o d I d 0011120 V a l : \t P U B L I C P R O C 0011140 [ r e f : R E F A N Y ] R 0011160 E T U R N S [ t e m p 0 : I d 0011200 N o d e ] = \r B E G I N \r t r 0011220 e e : \t E x p N o d e _ N A R 0011240 R O W [ r e f ] ; \r B E G I N \r 0011260 E N A B L E T h r e e C 4 S u 0011300 p p o r t . G e t S o u r c e I 0011320 n f o = > R E S U M E [ t r 0011340 e e . p o s i t i o n , t r e 0011360 e . l e n g t h ] ; \r t r e e D 0011400 a t a : \t E x p a s s i g n P r 0011420 o d D a t a _ N A R R O W [ 0011440 t r e e . d a t a ] ; \r B E G I 0011460 N \r x : \t B O O L E A N ; \r x 0011500 _ E r r o r [ " E x p e c t e 0011520 d a n I d " ] ; \r t e m p 0 0011540 _ N u l l I d [ ] ; \r E N D 0011560 ; \r E N D \r E N D ; \r \r E x p m 0011600 u l t i a s s i g n P r o d I d 0011620 V a l : \t P U B L I C P R O C 0011640 [ r e f : R E F A N Y ] R 0011660 E T U R N S [ t e m p 0 : I d 0011700 N o d e ] = \r B E G I N \r t r 0011720 e e : \t E x p N o d e _ N A R 0011740 R O W [ r e f ] ; \r B E G I N \r 0011760 E N A B L E T h r e e C 4 S u 0012000 p p o r t . G e t S o u r c e I 0012020 n f o = > R E S U M E [ t r 0012040 e e . p o s i t i o n , t r e 0012060 e . l e n g t h ] ; \r t r e e D 0012100 a t a : \t E x p m u l t i a s s 0012120 i g n P r o d D a t a _ N A 0012140 R R O W [ t r e e . d a t a ] ; 0012160 \r B E G I N \r x : \t B O O L E A 0012200 N ; \r x _ E r r o r [ " E x 0012220 p e c t e d a n I d " ] ; \r 0012240 t e m p 0 _ N u l l I d [ ] 0012260 ; \r E N D ; \r E N D \r E N D ; \r 0012300 \r E x p n u m P r o d I d V a l 0012320 : \t P U B L I C P R O C [ r e 0012340 f : R E F A N Y ] R E T U 0012360 R N S [ t e m p 0 : I d N o d 0012400 e ] = \r B E G I N \r t r e e : 0012420 \t E x p N o d e _ N A R R O W 0012440 [ r e f ] ; \r B E G I N \r E N A 0012460 B L E T h r e e C 4 S u p p o 0012500 r t . G e t S o u r c e I n f o 0012520 = > R E S U M E [ t r e e . 0012540 p o s i t i o n , t r e e . l 0012560 e n g t h ] ; \r t r e e D a t a 0012600 : \t E x p n u m P r o d D a t a 0012620 _ N A R R O W [ t r e e . d 0012640 a t a ] ; \r B E G I N \r x : \t B 0012660 O O L E A N ; \r x _ E r r o 0012700 r [ " E x p e c t e d a n I 0012720 d " ] ; \r t e m p 0 _ N u l 0012740 l I d [ ] ; \r E N D ; \r E N D \r 0012760 E N D ; \r \r E x p s t r i n g P 0013000 r o d I d V a l : \t P U B L I C 0013020 P R O C [ r e f : R E F A 0013040 N Y ] R E T U R N S [ t e m p 0013060 0 : I d N o d e ] = \r B E G 0013100 I N \r t r e e : \t E x p N o d e 0013120 _ N A R R O W [ r e f ] ; \r B 0013140 E G I N \r E N A B L E T h r e 0013160 e C 4 S u p p o r t . G e t S o 0013200 u r c e I n f o = > R E S U 0013220 M E [ t r e e . p o s i t i o n 0013240 , t r e e . l e n g t h ] ; \r 0013260 t r e e D a t a : \t E x p s t r 0013300 i n g P r o d D a t a _ N A 0013320 R R O W [ t r e e . d a t a ] ; 0013340 \r B E G I N \r x : \t B O O L E A 0013360 N ; \r x _ E r r o r [ " E x 0013400 p e c t e d a n I d " ] ; \r 0013420 t e m p 0 _ N u l l I d [ ] 0013440 ; \r E N D ; \r E N D \r E N D ; \r 0013460 \r E x p f l n u m P r o d I d V 0013500 a l : \t P U B L I C P R O C [ 0013520 r e f : R E F A N Y ] R E 0013540 T U R N S [ t e m p 0 : I d N 0013560 o d e ] = \r B E G I N \r t r e 0013600 e : \t E x p N o d e _ N A R R 0013620 O W [ r e f ] ; \r B E G I N \r E 0013640 N A B L E T h r e e C 4 S u p 0013660 p o r t . G e t S o u r c e I n 0013700 f o = > R E S U M E [ t r e 0013720 e . p o s i t i o n , t r e e 0013740 . l e n g t h ] ; \r t r e e D a 0013760 t a : \t E x p f l n u m P r o d 0014000 D a t a _ N A R R O W [ t r 0014020 e e . d a t a ] ; \r B E G I N \r 0014040 x : \t B O O L E A N ; \r x _ 0014060 E r r o r [ " E x p e c t e d 0014100 a n I d " ] ; \r t e m p 0 _ 0014120 N u l l I d [ ] ; \r E N D ; \r 0014140 E N D \r E N D ; \r \r E x p c h a 0014160 r P r o d I d V a l : \t P U B L 0014200 I C P R O C [ r e f : R E F 0014220 A N Y ] R E T U R N S [ t e 0014240 m p 0 : I d N o d e ] = \r B 0014260 E G I N \r t r e e : \t E x p N o 0014300 d e _ N A R R O W [ r e f ] ; 0014320 \r B E G I N \r E N A B L E T h 0014340 r e e C 4 S u p p o r t . G e t 0014360 S o u r c e I n f o = > R E 0014400 S U M E [ t r e e . p o s i t i 0014420 o n , t r e e . l e n g t h ] 0014440 ; \r t r e e D a t a : \t E x p c 0014460 h a r P r o d D a t a _ N A 0014500 R R O W [ t r e e . d a t a ] ; 0014520 \r B E G I N \r x : \t B O O L E A 0014540 N ; \r x _ E r r o r [ " E x 0014560 p e c t e d a n I d " ] ; \r 0014600 t e m p 0 _ N u l l I d [ ] 0014620 ; \r E N D ; \r E N D \r E N D ; \r 0014640 \r E x p a t o m P r o d I d V a 0014660 l : \t P U B L I C P R O C [ r 0014700 e f : R E F A N Y ] R E T 0014720 U R N S [ t e m p 0 : I d N o 0014740 d e ] = \r B E G I N \r t r e e 0014760 : \t E x p N o d e _ N A R R O 0015000 W [ r e f ] ; \r B E G I N \r E N 0015020 A B L E T h r e e C 4 S u p p 0015040 o r t . G e t S o u r c e I n f 0015060 o = > R E S U M E [ t r e e 0015100 . p o s i t i o n , t r e e . 0015120 l e n g t h ] ; \r t r e e D a t 0015140 a : \t E x p a t o m P r o d D a 0015160 t a _ N A R R O W [ t r e e 0015200 . d a t a ] ; \r B E G I N \r x : 0015220 \t B O O L E A N ; \r x _ E r 0015240 r o r [ " E x p e c t e d a n 0015260 I d " ] ; \r t e m p 0 _ N 0015300 u l l I d [ ] ; \r E N D ; \r E N 0015320 D \r E N D ; \r \r E x p n a r r o 0015340 w P r o d I d V a l : \t P U B L 0015360 I C P R O C [ r e f : R E F 0015400 A N Y ] R E T U R N S [ t e 0015420 m p 0 : I d N o d e ] = \r B 0015440 E G I N \r t r e e : \t E x p N o 0015460 d e _ N A R R O W [ r e f ] ; 0015500 \r B E G I N \r E N A B L E T h 0015520 r e e C 4 S u p p o r t . G e t 0015540 S o u r c e I n f o = > R E 0015560 S U M E [ t r e e . p o s i t i 0015600 o n , t r e e . l e n g t h ] 0015620 ; \r t r e e D a t a : \t E x p n 0015640 a r r o w P r o d D a t a _ 0015660 N A R R O W [ t r e e . d a t a 0015700 ] ; \r B E G I N \r x : \t B O O L 0015720 E A N ; \r x _ E r r o r [ " 0015740 E x p e c t e d a n I d " ] 0015760 ; \r t e m p 0 _ N u l l I d 0016000 [ ] ; \r E N D ; \r E N D \r E N D 0016020 ; \r \r E x p l o o p h o l e P r 0016040 o d I d V a l : \t P U B L I C 0016060 P R O C [ r e f : R E F A N 0016100 Y ] R E T U R N S [ t e m p 0 0016120 : I d N o d e ] = \r B E G I 0016140 N \r t r e e : \t E x p N o d e _ 0016160 N A R R O W [ r e f ] ; \r B E 0016200 G I N \r E N A B L E T h r e e 0016220 C 4 S u p p o r t . G e t S o u 0016240 r c e I n f o = > R E S U M 0016260 E [ t r e e . p o s i t i o n , 0016300 t r e e . l e n g t h ] ; \r t 0016320 r e e D a t a : \t E x p l o o p 0016340 h o l e P r o d D a t a _ N 0016360 A R R O W [ t r e e . d a t a ] 0016400 ; \r B E G I N \r x : \t B O O L E 0016420 A N ; \r x _ E r r o r [ " E 0016440 x p e c t e d a n I d " ] ; 0016460 \r t e m p 0 _ N u l l I d [ 0016500 ] ; \r E N D ; \r E N D \r E N D ; 0016520 \r \r E x p a p p l y P r o d I d 0016540 V a l : \t P U B L I C P R O C 0016560 [ r e f : R E F A N Y ] R 0016600 E T U R N S [ t e m p 0 : I d 0016620 N o d e ] = \r B E G I N \r t r 0016640 e e : \t E x p N o d e _ N A R 0016660 R O W [ r e f ] ; \r B E G I N \r 0016700 E N A B L E T h r e e C 4 S u 0016720 p p o r t . G e t S o u r c e I 0016740 n f o = > R E S U M E [ t r 0016760 e e . p o s i t i o n , t r e 0017000 e . l e n g t h ] ; \r t r e e D 0017020 a t a : \t E x p a p p l y P r o 0017040 d D a t a _ N A R R O W [ t 0017060 r e e . d a t a ] ; \r B E G I N 0017100 \r x : \t B O O L E A N ; \r x _ 0017120 E r r o r [ " E x p e c t e d 0017140 a n I d " ] ; \r t e m p 0 0017160 _ N u l l I d [ ] ; \r E N D ; 0017200 \r E N D \r E N D ; \r \r E x p q u 0017220 a l i f i e r P r o d I d V a l 0017240 : \t P U B L I C P R O C [ r e 0017260 f : R E F A N Y ] R E T U 0017300 R N S [ t e m p 0 : I d N o d 0017320 e ] = \r B E G I N \r t r e e : 0017340 \t E x p N o d e _ N A R R O W 0017360 [ r e f ] ; \r B E G I N \r E N A 0017400 B L E T h r e e C 4 S u p p o 0017420 r t . G e t S o u r c e I n f o 0017440 = > R E S U M E [ t r e e . 0017460 p o s i t i o n , t r e e . l 0017500 e n g t h ] ; \r t r e e D a t a 0017520 : \t E x p q u a l i f i e r P r 0017540 o d D a t a _ N A R R O W [ 0017560 t r e e . d a t a ] ; \r B E G I 0017600 N \r x : \t B O O L E A N ; \r x 0017620 _ E r r o r [ " E x p e c t e 0017640 d a n I d " ] ; \r t e m p 0 0017660 _ N u l l I d [ ] ; \r E N D 0017700 ; \r E N D \r E N D ; \r \r E x p e 0017720 x p l i s t P r o d I d V a l : 0017740 \t P U B L I C P R O C [ r e f 0017760 : R E F A N Y ] R E T U R 0020000 N S [ t e m p 0 : I d N o d e 0020020 ] = \r B E G I N \r t r e e : \t 0020040 E x p N o d e _ N A R R O W [ 0020060 r e f ] ; \r B E G I N \r E N A B 0020100 L E T h r e e C 4 S u p p o r 0020120 t . G e t S o u r c e I n f o 0020140 = > R E S U M E [ t r e e . p 0020160 o s i t i o n , t r e e . l e 0020200 n g t h ] ; \r t r e e D a t a : 0020220 \t E x p e x p l i s t P r o d D 0020240 a t a _ N A R R O W [ t r e 0020260 e . d a t a ] ; \r B E G I N \r x 0020300 : \t B O O L E A N ; \r x _ E 0020320 r r o r [ " E x p e c t e d a 0020340 n I d " ] ; \r t e m p 0 _ 0020360 N u l l I d [ ] ; \r E N D ; \r E 0020400 N D \r E N D ; \r \r E x p p r e f 0020420 i x o p P r o d I d V a l : \t P 0020440 U B L I C P R O C [ r e f : 0020460 R E F A N Y ] R E T U R N S 0020500 [ t e m p 0 : I d N o d e ] 0020520 = \r B E G I N \r t r e e : \t E x 0020540 p N o d e _ N A R R O W [ r e 0020560 f ] ; \r B E G I N \r E N A B L E 0020600 T h r e e C 4 S u p p o r t . 0020620 G e t S o u r c e I n f o = > 0020640 R E S U M E [ t r e e . p o s 0020660 i t i o n , t r e e . l e n g 0020700 t h ] ; \r t r e e D a t a : \t E 0020720 x p p r e f i x o p P r o d D a 0020740 t a _ N A R R O W [ t r e e 0020760 . d a t a ] ; \r B E G I N \r x : 0021000 \t B O O L E A N ; \r x _ E r 0021020 r o r [ " E x p e c t e d a n 0021040 I d " ] ; \r t e m p 0 _ N 0021060 u l l I d [ ] ; \r E N D ; \r E N 0021100 D \r E N D ; \r \r E x p v a l P r 0021120 o d I d V a l : \t P U B L I C 0021140 P R O C [ r e f : R E F A N 0021160 Y ] R E T U R N S [ t e m p 0 0021200 : I d N o d e ] = \r B E G I 0021220 N \r t r e e : \t E x p N o d e _ 0021240 N A R R O W [ r e f ] ; \r B E 0021260 G I N \r E N A B L E T h r e e 0021300 C 4 S u p p o r t . G e t S o u 0021320 r c e I n f o = > R E S U M 0021340 E [ t r e e . p o s i t i o n , 0021360 t r e e . l e n g t h ] ; \r t 0021400 r e e D a t a : \t E x p v a l P 0021420 r o d D a t a _ N A R R O W 0021440 [ t r e e . d a t a ] ; \r B E G 0021460 I N \r x : \t B O O L E A N ; \r x 0021500 _ E r r o r [ " E x p e c t 0021520 e d a n I d " ] ; \r t e m p 0021540 0 _ N u l l I d [ ] ; \r E N 0021560 D ; \r E N D \r E N D ; \r \r E x p 0021600 a l l P r o d I d V a l : \t P U 0021620 B L I C P R O C [ r e f : R 0021640 E F A N Y ] R E T U R N S [ 0021660 t e m p 0 : I d N o d e ] = 0021700 \r B E G I N \r t r e e : \t E x p 0021720 N o d e _ N A R R O W [ r e f 0021740 ] ; \r B E G I N \r E N A B L E 0021760 T h r e e C 4 S u p p o r t . G 0022000 e t S o u r c e I n f o = > 0022020 R E S U M E [ t r e e . p o s i 0022040 t i o n , t r e e . l e n g t 0022060 h ] ; \r t r e e D a t a : \t E x 0022100 p a l l P r o d D a t a _ N 0022120 A R R O W [ t r e e . d a t a ] 0022140 ; \r B E G I N \r x : \t B O O L E 0022160 A N ; \r x _ E r r o r [ " E 0022200 x p e c t e d a n I d " ] ; 0022220 \r t e m p 0 _ N u l l I d [ 0022240 ] ; \r E N D ; \r E N D \r E N D ; 0022260 \r \r E x p n e w P r o d I d V a 0022300 l : \t P U B L I C P R O C [ r 0022320 e f : R E F A N Y ] R E T 0022340 U R N S [ t e m p 0 : I d N o 0022360 d e ] = \r B E G I N \r t r e e 0022400 : \t E x p N o d e _ N A R R O 0022420 W [ r e f ] ; \r B E G I N \r E N 0022440 A B L E T h r e e C 4 S u p p 0022460 o r t . G e t S o u r c e I n f 0022500 o = > R E S U M E [ t r e e 0022520 . p o s i t i o n , t r e e . 0022540 l e n g t h ] ; \r t r e e D a t 0022560 a : \t E x p n e w P r o d D a t 0022600 a _ N A R R O W [ t r e e . 0022620 d a t a ] ; \r B E G I N \r x : \t 0022640 B O O L E A N ; \r x _ E r r 0022660 o r [ " E x p e c t e d a n 0022700 I d " ] ; \r t e m p 0 _ N u 0022720 l l I d [ ] ; \r E N D ; \r E N D 0022740 \r E N D ; \r \r E x p c o n s P r 0022760 o d I d V a l : \t P U B L I C 0023000 P R O C [ r e f : R E F A N 0023020 Y ] R E T U R N S [ t e m p 0 0023040 : I d N o d e ] = \r B E G I 0023060 N \r t r e e : \t E x p N o d e _ 0023100 N A R R O W [ r e f ] ; \r B E 0023120 G I N \r E N A B L E T h r e e 0023140 C 4 S u p p o r t . G e t S o u 0023160 r c e I n f o = > R E S U M 0023200 E [ t r e e . p o s i t i o n , 0023220 t r e e . l e n g t h ] ; \r t 0023240 r e e D a t a : \t E x p c o n s 0023260 P r o d D a t a _ N A R R O 0023300 W [ t r e e . d a t a ] ; \r B E 0023320 G I N \r x : \t B O O L E A N ; \r 0023340 x _ E r r o r [ " E x p e c 0023360 t e d a n I d " ] ; \r t e m 0023400 p 0 _ N u l l I d [ ] ; \r E 0023420 N D ; \r E N D \r E N D ; \r \r E x 0023440 p l i s t c o n s P r o d I d V 0023460 a l : \t P U B L I C P R O C [ 0023500 r e f : R E F A N Y ] R E 0023520 T U R N S [ t e m p 0 : I d N 0023540 o d e ] = \r B E G I N \r t r e 0023560 e : \t E x p N o d e _ N A R R 0023600 O W [ r e f ] ; \r B E G I N \r E 0023620 N A B L E T h r e e C 4 S u p 0023640 p o r t . G e t S o u r c e I n 0023660 f o = > R E S U M E [ t r e 0023700 e . p o s i t i o n , t r e e 0023720 . l e n g t h ] ; \r t r e e D a 0023740 t a : \t E x p l i s t c o n s P 0023760 r o d D a t a _ N A R R O W 0024000 [ t r e e . d a t a ] ; \r B E G 0024020 I N \r x : \t B O O L E A N ; \r x 0024040 _ E r r o r [ " E x p e c t 0024060 e d a n I d " ] ; \r t e m p 0024100 0 _ N u l l I d [ ] ; \r E N 0024120 D ; \r E N D \r E N D ; \r \r E x p 0024140 n i l P r o d I d V a l : \t P U 0024160 B L I C P R O C [ r e f : R 0024200 E F A N Y ] R E T U R N S [ 0024220 t e m p 0 : I d N o d e ] = 0024240 \r B E G I N \r t r e e : \t E x p 0024260 N o d e _ N A R R O W [ r e f 0024300 ] ; \r B E G I N \r E N A B L E 0024320 T h r e e C 4 S u p p o r t . G 0024340 e t S o u r c e I n f o = > 0024360 R E S U M E [ t r e e . p o s i 0024400 t i o n , t r e e . l e n g t 0024420 h ] ; \r B E G I N \r x : \t B O O 0024440 L E A N ; \r x _ E r r o r [ 0024460 " E x p e c t e d a n I d " 0024500 ] ; \r t e m p 0 _ N u l l I 0024520 d [ ] ; \r E N D ; \r E N D \r E N 0024540 D ; \r \r E x p t y p e o p P r o 0024560 d I d V a l : \t P U B L I C P 0024600 R O C [ r e f : R E F A N Y 0024620 ] R E T U R N S [ t e m p 0 : 0024640 I d N o d e ] = \r B E G I N 0024660 \r t r e e : \t E x p N o d e _ 0024700 N A R R O W [ r e f ] ; \r B E G 0024720 I N \r E N A B L E T h r e e C 0024740 4 S u p p o r t . G e t S o u r 0024760 c e I n f o = > R E S U M E 0025000 [ t r e e . p o s i t i o n , 0025020 t r e e . l e n g t h ] ; \r t r 0025040 e e D a t a : \t E x p t y p e o 0025060 p P r o d D a t a _ N A R R 0025100 O W [ t r e e . d a t a ] ; \r B 0025120 E G I N \r x : \t B O O L E A N ; 0025140 \r x _ E r r o r [ " E x p e 0025160 c t e d a n I d " ] ; \r t e 0025200 m p 0 _ N u l l I d [ ] ; \r 0025220 E N D ; \r E N D \r E N D ; \r \r E 0025240 x p s i z e P r o d I d V a l : 0025260 \t P U B L I C P R O C [ r e f 0025300 : R E F A N Y ] R E T U R 0025320 N S [ t e m p 0 : I d N o d e 0025340 ] = \r B E G I N \r t r e e : \t 0025360 E x p N o d e _ N A R R O W [ 0025400 r e f ] ; \r B E G I N \r E N A B 0025420 L E T h r e e C 4 S u p p o r 0025440 t . G e t S o u r c e I n f o 0025460 = > R E S U M E [ t r e e . p 0025500 o s i t i o n , t r e e . l e 0025520 n g t h ] ; \r t r e e D a t a : 0025540 \t E x p s i z e P r o d D a t a 0025560 _ N A R R O W [ t r e e . d 0025600 a t a ] ; \r B E G I N \r x : \t B 0025620 O O L E A N ; \r x _ E r r o 0025640 r [ " E x p e c t e d a n I 0025660 d " ] ; \r t e m p 0 _ N u l 0025700 l I d [ ] ; \r E N D ; \r E N D \r 0025720 E N D ; \r \r E x p s i z e 2 P r 0025740 o d I d V a l : \t P U B L I C 0025760 P R O C [ r e f : R E F A N 0026000 Y ] R E T U R N S [ t e m p 0 0026020 : I d N o d e ] = \r B E G I 0026040 N \r t r e e : \t E x p N o d e _ 0026060 N A R R O W [ r e f ] ; \r B E 0026100 G I N \r E N A B L E T h r e e 0026120 C 4 S u p p o r t . G e t S o u 0026140 r c e I n f o = > R E S U M 0026160 E [ t r e e . p o s i t i o n , 0026200 t r e e . l e n g t h ] ; \r t 0026220 r e e D a t a : \t E x p s i z e 0026240 2 P r o d D a t a _ N A R R 0026260 O W [ t r e e . d a t a ] ; \r B 0026300 E G I N \r x : \t B O O L E A N ; 0026320 \r x _ E r r o r [ " E x p e 0026340 c t e d a n I d " ] ; \r t e 0026360 m p 0 _ N u l l I d [ ] ; \r 0026400 E N D ; \r E N D \r E N D ; \r \r E 0026420 x p b i t s P r o d I d V a l : 0026440 \t P U B L I C P R O C [ r e f 0026460 : R E F A N Y ] R E T U R 0026500 N S [ t e m p 0 : I d N o d e 0026520 ] = \r B E G I N \r t r e e : \t 0026540 E x p N o d e _ N A R R O W [ 0026560 r e f ] ; \r B E G I N \r E N A B 0026600 L E T h r e e C 4 S u p p o r 0026620 t . G e t S o u r c e I n f o 0026640 = > R E S U M E [ t r e e . p 0026660 o s i t i o n , t r e e . l e 0026700 n g t h ] ; \r t r e e D a t a : 0026720 \t E x p b i t s P r o d D a t a 0026740 _ N A R R O W [ t r e e . d 0026760 a t a ] ; \r B E G I N \r x : \t B 0027000 O O L E A N ; \r x _ E r r o 0027020 r [ " E x p e c t e d a n I 0027040 d " ] ; \r t e m p 0 _ N u l 0027060 l I d [ ] ; \r E N D ; \r E N D \r 0027100 E N D ; \r \r E x p b i t s 2 P r 0027120 o d I d V a l : \t P U B L I C 0027140 P R O C [ r e f : R E F A N 0027160 Y ] R E T U R N S [ t e m p 0 0027200 : I d N o d e ] = \r B E G I 0027220 N \r t r e e : \t E x p N o d e _ 0027240 N A R R O W [ r e f ] ; \r B E 0027260 G I N \r E N A B L E T h r e e 0027300 C 4 S u p p o r t . G e t S o u 0027320 r c e I n f o = > R E S U M 0027340 E [ t r e e . p o s i t i o n , 0027360 t r e e . l e n g t h ] ; \r t 0027400 r e e D a t a : \t E x p b i t s 0027420 2 P r o d D a t a _ N A R R 0027440 O W [ t r e e . d a t a ] ; \r B 0027460 E G I N \r x : \t B O O L E A N ; 0027500 \r x _ E r r o r [ " E x p e 0027520 c t e d a n I d " ] ; \r t e 0027540 m p 0 _ N u l l I d [ ] ; \r 0027560 E N D ; \r E N D \r E N D ; \r \r E 0027600 x p b y t e s P r o d I d V a l 0027620 : \t P U B L I C P R O C [ r e 0027640 f : R E F A N Y ] R E T U 0027660 R N S [ t e m p 0 : I d N o d 0027700 e ] = \r B E G I N \r t r e e : 0027720 \t E x p N o d e _ N A R R O W 0027740 [ r e f ] ; \r B E G I N \r E N A 0027760 B L E T h r e e C 4 S u p p o 0030000 r t . G e t S o u r c e I n f o 0030020 = > R E S U M E [ t r e e . 0030040 p o s i t i o n , t r e e . l 0030060 e n g t h ] ; \r t r e e D a t a 0030100 : \t E x p b y t e s P r o d D a 0030120 t a _ N A R R O W [ t r e e 0030140 . d a t a ] ; \r B E G I N \r x : 0030160 \t B O O L E A N ; \r x _ E r 0030200 r o r [ " E x p e c t e d a n 0030220 I d " ] ; \r t e m p 0 _ N 0030240 u l l I d [ ] ; \r E N D ; \r E N 0030260 D \r E N D ; \r \r E x p b y t e s 0030300 2 P r o d I d V a l : \t P U B L 0030320 I C P R O C [ r e f : R E F 0030340 A N Y ] R E T U R N S [ t e 0030360 m p 0 : I d N o d e ] = \r B 0030400 E G I N \r t r e e : \t E x p N o 0030420 d e _ N A R R O W [ r e f ] ; 0030440 \r B E G I N \r E N A B L E T h 0030460 r e e C 4 S u p p o r t . G e t 0030500 S o u r c e I n f o = > R E 0030520 S U M E [ t r e e . p o s i t i 0030540 o n , t r e e . l e n g t h ] 0030560 ; \r t r e e D a t a : \t E x p b 0030600 y t e s 2 P r o d D a t a _ 0030620 N A R R O W [ t r e e . d a t a 0030640 ] ; \r B E G I N \r x : \t B O O L 0030660 E A N ; \r x _ E r r o r [ " 0030700 E x p e c t e d a n I d " ] 0030720 ; \r t e m p 0 _ N u l l I d 0030740 [ ] ; \r E N D ; \r E N D \r E N D 0030760 ; \r \r E x p u n i t s P r o d I 0031000 d V a l : \t P U B L I C P R O 0031020 C [ r e f : R E F A N Y ] 0031040 R E T U R N S [ t e m p 0 : I 0031060 d N o d e ] = \r B E G I N \r t 0031100 r e e : \t E x p N o d e _ N A 0031120 R R O W [ r e f ] ; \r B E G I N 0031140 \r E N A B L E T h r e e C 4 S 0031160 u p p o r t . G e t S o u r c e 0031200 I n f o = > R E S U M E [ t 0031220 r e e . p o s i t i o n , t r 0031240 e e . l e n g t h ] ; \r t r e e 0031260 D a t a : \t E x p u n i t s P r 0031300 o d D a t a _ N A R R O W [ 0031320 t r e e . d a t a ] ; \r B E G I 0031340 N \r x : \t B O O L E A N ; \r x 0031360 _ E r r o r [ " E x p e c t e 0031400 d a n I d " ] ; \r t e m p 0 0031420 _ N u l l I d [ ] ; \r E N D 0031440 ; \r E N D \r E N D ; \r \r E x p u 0031460 n i t s 2 P r o d I d V a l : \t 0031500 P U B L I C P R O C [ r e f : 0031520 R E F A N Y ] R E T U R N 0031540 S [ t e m p 0 : I d N o d e ] 0031560 = \r B E G I N \r t r e e : \t E 0031600 x p N o d e _ N A R R O W [ r 0031620 e f ] ; \r B E G I N \r E N A B L 0031640 E T h r e e C 4 S u p p o r t 0031660 . G e t S o u r c e I n f o = 0031700 > R E S U M E [ t r e e . p o 0031720 s i t i o n , t r e e . l e n 0031740 g t h ] ; \r t r e e D a t a : \t 0031760 E x p u n i t s 2 P r o d D a t 0032000 a _ N A R R O W [ t r e e . 0032020 d a t a ] ; \r B E G I N \r x : \t 0032040 B O O L E A N ; \r x _ E r r 0032060 o r [ " E x p e c t e d a n 0032100 I d " ] ; \r t e m p 0 _ N u 0032120 l l I d [ ] ; \r E N D ; \r E N D 0032140 \r E N D ; \r \r E x p w o r d s P 0032160 r o d I d V a l : \t P U B L I C 0032200 P R O C [ r e f : R E F A 0032220 N Y ] R E T U R N S [ t e m p 0032240 0 : I d N o d e ] = \r B E G 0032260 I N \r t r e e : \t E x p N o d e 0032300 _ N A R R O W [ r e f ] ; \r B 0032320 E G I N \r E N A B L E T h r e 0032340 e C 4 S u p p o r t . G e t S o 0032360 u r c e I n f o = > R E S U 0032400 M E [ t r e e . p o s i t i o n 0032420 , t r e e . l e n g t h ] ; \r 0032440 t r e e D a t a : \t E x p w o r 0032460 d s P r o d D a t a _ N A R 0032500 R O W [ t r e e . d a t a ] ; \r 0032520 B E G I N \r x : \t B O O L E A N 0032540 ; \r x _ E r r o r [ " E x p 0032560 e c t e d a n I d " ] ; \r t 0032600 e m p 0 _ N u l l I d [ ] ; 0032620 \r E N D ; \r E N D \r E N D ; \r \r 0032640 E x p w o r d s 2 P r o d I d V 0032660 a l : \t P U B L I C P R O C [ 0032700 r e f : R E F A N Y ] R E 0032720 T U R N S [ t e m p 0 : I d N 0032740 o d e ] = \r B E G I N \r t r e 0032760 e : \t E x p N o d e _ N A R R 0033000 O W [ r e f ] ; \r B E G I N \r E 0033020 N A B L E T h r e e C 4 S u p 0033040 p o r t . G e t S o u r c e I n 0033060 f o = > R E S U M E [ t r e 0033100 e . p o s i t i o n , t r e e 0033120 . l e n g t h ] ; \r t r e e D a 0033140 t a : \t E x p w o r d s 2 P r o 0033160 d D a t a _ N A R R O W [ t 0033200 r e e . d a t a ] ; \r B E G I N 0033220 \r x : \t B O O L E A N ; \r x _ 0033240 E r r o r [ " E x p e c t e d 0033260 a n I d " ] ; \r t e m p 0 0033300 _ N u l l I d [ ] ; \r E N D ; 0033320 \r E N D \r E N D ; \r \r E x p i s 0033340 t y p e P r o d I d V a l : \t P 0033360 U B L I C P R O C [ r e f : 0033400 R E F A N Y ] R E T U R N S 0033420 [ t e m p 0 : I d N o d e ] 0033440 = \r B E G I N \r t r e e : \t E x 0033460 p N o d e _ N A R R O W [ r e 0033500 f ] ; \r B E G I N \r E N A B L E 0033520 T h r e e C 4 S u p p o r t . 0033540 G e t S o u r c e I n f o = > 0033560 R E S U M E [ t r e e . p o s 0033600 i t i o n , t r e e . l e n g 0033620 t h ] ; \r t r e e D a t a : \t E 0033640 x p i s t y p e P r o d D a t a 0033660 _ N A R R O W [ t r e e . d 0033700 a t a ] ; \r B E G I N \r x : \t B 0033720 O O L E A N ; \r x _ E r r o 0033740 r [ " E x p e c t e d a n I 0033760 d " ] ; \r t e m p 0 _ N u l 0034000 l I d [ ] ; \r E N D ; \r E N D \r 0034020 E N D ; \r \r E x p a d d r e s s 0034040 P r o d I d V a l : \t P U B L I 0034060 C P R O C [ r e f : R E F 0034100 A N Y ] R E T U R N S [ t e m 0034120 p 0 : I d N o d e ] = \r B E 0034140 G I N \r t r e e : \t E x p N o d 0034160 e _ N A R R O W [ r e f ] ; \r 0034200 B E G I N \r E N A B L E T h r 0034220 e e C 4 S u p p o r t . G e t S 0034240 o u r c e I n f o = > R E S 0034260 U M E [ t r e e . p o s i t i o 0034300 n , t r e e . l e n g t h ] ; 0034320 \r t r e e D a t a : \t E x p a d 0034340 d r e s s P r o d D a t a _ 0034360 N A R R O W [ t r e e . d a t a 0034400 ] ; \r B E G I N \r x : \t B O O L 0034420 E A N ; \r x _ E r r o r [ " 0034440 E x p e c t e d a n I d " ] 0034460 ; \r t e m p 0 _ N u l l I d 0034500 [ ] ; \r E N D ; \r E N D \r E N D 0034520 ; \r \r E x p d e s c r i p t o r 0034540 P r o d I d V a l : \t P U B L I 0034560 C P R O C [ r e f : R E F 0034600 A N Y ] R E T U R N S [ t e m 0034620 p 0 : I d N o d e ] = \r B E 0034640 G I N \r t r e e : \t E x p N o d 0034660 e _ N A R R O W [ r e f ] ; \r 0034700 B E G I N \r E N A B L E T h r 0034720 e e C 4 S u p p o r t . G e t S 0034740 o u r c e I n f o = > R E S 0034760 U M E [ t r e e . p o s i t i o 0035000 n , t r e e . l e n g t h ] ; 0035020 \r t r e e D a t a : \t E x p d e 0035040 s c r i p t o r P r o d D a t a 0035060 _ N A R R O W [ t r e e . d 0035100 a t a ] ; \r B E G I N \r x : \t B 0035120 O O L E A N ; \r x _ E r r o 0035140 r [ " E x p e c t e d a n I 0035160 d " ] ; \r t e m p 0 _ N u l 0035200 l I d [ ] ; \r E N D ; \r E N D \r 0035220 E N D ; \r \r E x p e r r o r P r 0035240 o d I d V a l : \t P U B L I C 0035260 P R O C [ r e f : R E F A N 0035300 Y ] R E T U R N S [ t e m p 0 0035320 : I d N o d e ] = \r B E G I 0035340 N \r t r e e : \t E x p N o d e _ 0035360 N A R R O W [ r e f ] ; \r B E 0035400 G I N \r E N A B L E T h r e e 0035420 C 4 S u p p o r t . G e t S o u 0035440 r c e I n f o = > R E S U M 0035460 E [ t r e e . p o s i t i o n , 0035500 t r e e . l e n g t h ] ; \r B 0035520 E G I N \r x : \t B O O L E A N ; 0035540 \r x _ E r r o r [ " E x p e 0035560 c t e d a n I d " ] ; \r t e 0035600 m p 0 _ N u l l I d [ ] ; \r 0035620 E N D ; \r E N D \r E N D ; \r \r E 0035640 x p t r a n s f e r P r o d I d 0035660 V a l : \t P U B L I C P R O C 0035700 [ r e f : R E F A N Y ] R 0035720 E T U R N S [ t e m p 0 : I d 0035740 N o d e ] = \r B E G I N \r t r 0035760 e e : \t E x p N o d e _ N A R 0036000 R O W [ r e f ] ; \r B E G I N \r 0036020 E N A B L E T h r e e C 4 S u 0036040 p p o r t . G e t S o u r c e I 0036060 n f o = > R E S U M E [ t r 0036100 e e . p o s i t i o n , t r e 0036120 e . l e n g t h ] ; \r t r e e D 0036140 a t a : \t E x p t r a n s f e r 0036160 P r o d D a t a _ N A R R O 0036200 W [ t r e e . d a t a ] ; \r B E 0036220 G I N \r x : \t B O O L E A N ; \r 0036240 x _ E r r o r [ " E x p e c 0036260 t e d a n I d " ] ; \r t e m 0036300 p 0 _ N u l l I d [ ] ; \r E 0036320 N D ; \r E N D \r E N D ; \r \r E N 0036340 D . . \r 0036344