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