$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronPGMethods1Impl.mesa!3 0000000 - - S a f f r o n P G M e t h 0000020 o d s 1 I m p l . m e s a \r - 0000040 - C o p y r i g h t 323 1 9 0000060 8 7 b y X e r o x C o r p 0000100 o r a t i o n . A l l r i 0000120 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 J u n e 0000200 1 6 , 1 9 8 8 3 : 3 0 : 1 0000220 6 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 3 D 0000360 e f , \r \t S a f f r o n A G 5 D 0000400 e f , \r \t S a f f r o n A G 9 D 0000420 e f , \r \t S a f f r o n A G 1 D 0000440 e f , \r \t T h r e e C 4 S u p p 0000460 o r t , \r \t S a f f r o n B a s 0000500 e D e f , \r \t S a f f r o n A T 0000520 D e f , \r \t S a f f r o n P G D 0000540 e c l s D e f ; \r \r S a f f r o 0000560 n P G M e t h o d s 1 I m p l : 0000600 C E D A R P R O G R A M I 0000620 M P O R T S T h r e e C 4 S u 0000640 p p o r t , S a f f r o n B a 0000660 s e D e f , S a f f r o n P G 0000700 D e c l s D e f E X P O R T S 0000720 S a f f r o n A G 3 D e f , 0000740 S a f f r o n A G 5 D e f , S 0000760 a f f r o n A G 9 D e f , S a 0001000 f f r o n A G 1 D e f = \r B E 0001020 G I N \r O P E N S a f f r o n 0001040 A G 3 D e f , S a f f r o n A 0001060 G 5 D e f , S a f f r o n A G 0001100 9 D e f , S a f f r o n A G 1 0001120 D e f , T h r e e C 4 S u p p 0001140 o r t , S a f f r o n B a s e 0001160 D e f , S a f f r o n A T D e 0001200 f , S a f f r o n P G D e c l 0001220 s D e f ; \r T o p m o d u l e p 0001240 P r o d G e n e r a t e P G : \t 0001260 P U B L I C P R O C [ r e f : 0001300 R E F A N Y , e n v : C 0001320 o m p i l e r S t a t e N o d e 0001340 ] R E T U R N S [ t e m p 0 : 0001360 P r o g r a m G r a p h N o d 0001400 e ] = \r B E G I N \r t r e e : 0001420 \t T o p N o d e _ N A R R O W 0001440 [ r e f ] ; \r B E G I N \r E N A 0001460 B L E T h r e e C 4 S u p p o 0001500 r t . G e t S o u r c e I n f o 0001520 = > R E S U M E [ t r e e . 0001540 p o s i t i o n , t r e e . l 0001560 e n g t h ] ; \r t r e e D a t a 0001600 : \t T o p m o d u l e p P r o d 0001620 D a t a _ N A R R O W [ t r 0001640 e e . d a t a ] ; \r t e m p 0 0001660 _ t r e e D a t a . M o d u l 0001700 e P . p r o c s . G e n e r a t 0001720 e P G [ t r e e D a t a . M o d 0001740 u l e P , e n v ] ; \r E N D \r 0001760 E N D ; \r \r M o d u l e P i m p 0002000 l P r o d G e n e r a t e P G : 0002020 \t P U B L I C P R O C [ r e f 0002040 : R E F A N Y , e n v : 0002060 C o m p i l e r S t a t e N o d 0002100 e ] R E T U R N S [ t e m p 0 0002120 : P r o g r a m G r a p h N o 0002140 d e ] = \r B E G I N \r t r e e 0002160 : \t M o d u l e P N o d e _ N 0002200 A R R O W [ r e f ] ; \r B E G I 0002220 N \r E N A B L E T h r e e C 4 0002240 S u p p o r t . G e t S o u r c 0002260 e I n f o = > R E S U M E [ 0002300 t r e e . p o s i t i o n , t 0002320 r e e . l e n g t h ] ; \r t r e 0002340 e D a t a : \t M o d u l e P i m 0002360 p l P r o d D a t a _ N A R 0002400 R O W [ t r e e . d a t a ] ; \r 0002420 t e m p 0 _ M a k e B o g u 0002440 s P G N [ ] ; \r E N D \r E N D ; 0002460 \r \r M o d u l e P d e f P r o d 0002500 G e n e r a t e P G : \t P U B L 0002520 I C P R O C [ r e f : R E F 0002540 A N Y , e n v : C o m p i 0002560 l e r S t a t e N o d e ] R E 0002600 T U R N S [ t e m p 0 : P r o 0002620 g r a m G r a p h N o d e ] = 0002640 \r B E G I N \r t r e e : \t M o d 0002660 u l e P N o d e _ N A R R O W 0002700 [ r e f ] ; \r B E G I N \r E N A 0002720 B L E T h r e e C 4 S u p p o 0002740 r t . G e t S o u r c e I n f o 0002760 = > R E S U M E [ t r e e . 0003000 p o s i t i o n , t r e e . l 0003020 e n g t h ] ; \r t r e e D a t a 0003040 : \t M o d u l e P d e f P r o d 0003060 D a t a _ N A R R O W [ t r 0003100 e e . d a t a ] ; \r t e m p 0 0003120 _ t r e e D a t a . D e f B o 0003140 d y . p r o c s . G e n e r a t 0003160 e P G [ t r e e D a t a . D e f 0003200 B o d y , e n v ] ; \r E N D \r 0003220 E N D ; \r \r D e f B o d y P r o 0003240 d G e n e r a t e P G : \t P U B 0003260 L I C P R O C [ r e f : R E 0003300 F A N Y , e n v : C o m p 0003320 i l e r S t a t e N o d e ] R 0003340 E T U R N S [ t e m p 0 : P r 0003360 o g r a m G r a p h N o d e ] 0003400 = \r B E G I N \r t r e e : \t D e 0003420 f B o d y N o d e _ N A R R O 0003440 W [ r e f ] ; \r B E G I N \r E N 0003460 A B L E T h r e e C 4 S u p p 0003500 o r t . G e t S o u r c e I n f 0003520 o = > R E S U M E [ t r e e 0003540 . p o s i t i o n , t r e e . 0003560 l e n g t h ] ; \r t r e e D a t 0003600 a : \t D e f B o d y P r o d D a 0003620 t a _ N A R R O W [ t r e e 0003640 . d a t a ] ; \r t e m p 0 _ 0003660 t r e e D a t a . D e c L i s t 0003700 . p r o c s . G e n e r a t e P 0003720 G [ t r e e D a t a . D e c L i 0003740 s t , e n v ] ; \r E N D \r E N 0003760 D ; \r \r D e c L i s t o n e P r 0004000 o d G e n e r a t e P G : \t P U 0004020 B L I C P R O C [ r e f : R 0004040 E F A N Y , e n v : C o m 0004060 p i l e r S t a t e N o d e ] 0004100 R E T U R N S [ t e m p 0 : P 0004120 r o g r a m G r a p h N o d e ] 0004140 = \r B E G I N \r t r e e : \t D 0004160 e c L i s t N o d e _ N A R R 0004200 O W [ r e f ] ; \r B E G I N \r E 0004220 N A B L E T h r e e C 4 S u p 0004240 p o r t . G e t S o u r c e I n 0004260 f o = > R E S U M E [ t r e 0004300 e . p o s i t i o n , t r e e 0004320 . l e n g t h ] ; \r t r e e D a 0004340 t a : \t D e c L i s t o n e P r 0004360 o d D a t a _ N A R R O W [ 0004400 t r e e . d a t a ] ; \r t e m p 0004420 0 _ t r e e D a t a . D e c 0004440 l a r a t i o n . p r o c s . G 0004460 e n e r a t e P G [ t r e e D a 0004500 t a . D e c l a r a t i o n , 0004520 e n v ] ; \r E N D \r E N D ; \r \r 0004540 D e c L i s t m a n y P r o d G 0004560 e n e r a t e P G : \t P U B L I 0004600 C P R O C [ r e f : R E F 0004620 A N Y , e n v : C o m p i l 0004640 e r S t a t e N o d e ] R E T 0004660 U R N S [ t e m p 0 : P r o g 0004700 r a m G r a p h N o d e ] = \r 0004720 B E G I N \r t r e e : \t D e c L 0004740 i s t N o d e _ N A R R O W [ 0004760 r e f ] ; \r B E G I N \r E N A B 0005000 L E T h r e e C 4 S u p p o r 0005020 t . G e t S o u r c e I n f o 0005040 = > R E S U M E [ t r e e . p 0005060 o s i t i o n , t r e e . l e 0005100 n g t h ] ; \r t r e e D a t a : 0005120 \t D e c L i s t m a n y P r o d 0005140 D a t a _ N A R R O W [ t r 0005160 e e . d a t a ] ; \r t e m p 0 0005200 _ t r e e D a t a . D e c L i 0005220 s t h e a d . p r o c s . G e n 0005240 e r a t e P G [ t r e e D a t a 0005260 . D e c L i s t h e a d , e n 0005300 v ] ; \r E N D \r E N D ; \r \r D e 0005320 c l a r a t i o n v a l u e P r 0005340 o d G e n e r a t e P G : \t P U 0005360 B L I C P R O C [ r e f : R 0005400 E F A N Y , e n v : C o m 0005420 p i l e r S t a t e N o d e ] 0005440 R E T U R N S [ t e m p 0 : P 0005460 r o g r a m G r a p h N o d e ] 0005500 = \r B E G I N \r t r e e : \t D 0005520 e c l a r a t i o n N o d e _ 0005540 N A R R O W [ r e f ] ; \r B E G 0005560 I N \r E N A B L E T h r e e C 0005600 4 S u p p o r t . G e t S o u r 0005620 c e I n f o = > R E S U M E 0005640 [ t r e e . p o s i t i o n , 0005660 t r e e . l e n g t h ] ; \r t r 0005700 e e D a t a : \t D e c l a r a t 0005720 i o n v a l u e P r o d D a t a 0005740 _ N A R R O W [ t r e e . d 0005760 a t a ] ; \r t e m p 0 _ t r 0006000 e e D a t a . I n i t i a l i z 0006020 a t i o n . p r o c s . G e n e 0006040 r a t e P G [ t r e e D a t a . 0006060 I n i t i a l i z a t i o n , 0006100 e n v ] ; \r E N D \r E N D ; \r \r 0006120 D e c l a r a t i o n t y p e P 0006140 r o d G e n e r a t e P G : \t P 0006160 U B L I C P R O C [ r e f : 0006200 R E F A N Y , e n v : C o 0006220 m p i l e r S t a t e N o d e ] 0006240 R E T U R N S [ t e m p 0 : 0006260 P r o g r a m G r a p h N o d e 0006300 ] = \r B E G I N \r t r e e : \t 0006320 D e c l a r a t i o n N o d e _ 0006340 N A R R O W [ r e f ] ; \r B E 0006360 G I N \r E N A B L E T h r e e 0006400 C 4 S u p p o r t . G e t S o u 0006420 r c e I n f o = > R E S U M 0006440 E [ t r e e . p o s i t i o n , 0006460 t r e e . l e n g t h ] ; \r t 0006500 r e e D a t a : \t D e c l a r a 0006520 t i o n t y p e P r o d D a t a 0006540 _ N A R R O W [ t r e e . d 0006560 a t a ] ; \r t e m p 0 _ M a 0006600 k e B o g u s P G N [ ] ; \r E N 0006620 D \r E N D ; \r \r D e c l a r a t 0006640 i o n o p a q u e t y p e P r o 0006660 d G e n e r a t e P G : \t P U B 0006700 L I C P R O C [ r e f : R E 0006720 F A N Y , e n v : C o m p 0006740 i l e r S t a t e N o d e ] R 0006760 E T U R N S [ t e m p 0 : P r 0007000 o g r a m G r a p h N o d e ] 0007020 = \r B E G I N \r t r e e : \t D e 0007040 c l a r a t i o n N o d e _ N 0007060 A R R O W [ r e f ] ; \r B E G I 0007100 N \r E N A B L E T h r e e C 4 0007120 S u p p o r t . G e t S o u r c 0007140 e I n f o = > R E S U M E [ 0007160 t r e e . p o s i t i o n , t 0007200 r e e . l e n g t h ] ; \r t r e 0007220 e D a t a : \t D e c l a r a t i 0007240 o n o p a q u e t y p e P r o d 0007260 D a t a _ N A R R O W [ t r 0007300 e e . d a t a ] ; \r t e m p 0 0007320 _ M a k e B o g u s P G N [ ] 0007340 ; \r E N D \r E N D ; \r \r I n i t 0007360 i a l i z a t i o n e m p t y P 0007400 r o d G e n e r a t e P G : \t P 0007420 U B L I C P R O C [ r e f : 0007440 R E F A N Y , e n v : C o 0007460 m p i l e r S t a t e N o d e ] 0007500 R E T U R N S [ t e m p 0 : 0007520 P r o g r a m G r a p h N o d e 0007540 ] = \r B E G I N \r t r e e : \t 0007560 I n i t i a l i z a t i o n N o 0007600 d e _ N A R R O W [ r e f ] ; 0007620 \r B E G I N \r E N A B L E T h 0007640 r e e C 4 S u p p o r t . G e t 0007660 S o u r c e I n f o = > R E 0007700 S U M E [ t r e e . p o s i t i 0007720 o n , t r e e . l e n g t h ] 0007740 ; \r t e m p 0 _ M a k e B o 0007760 g u s P G N [ ] ; \r E N D \r E N 0010000 D ; \r \r I n i t i a l i z a t i 0010020 o n b i n d i n g P r o d G e n 0010040 e r a t e P G : \t P U B L I C 0010060 P R O C [ r e f : R E F A N 0010100 Y , e n v : C o m p i l e r 0010120 S t a t e N o d e ] R E T U R 0010140 N S [ t e m p 0 : P r o g r a 0010160 m G r a p h N o d e ] = \r B E 0010200 G I N \r t r e e : \t I n i t i a 0010220 l i z a t i o n N o d e _ N A 0010240 R R O W [ r e f ] ; \r B E G I N 0010260 \r E N A B L E T h r e e C 4 S 0010300 u p p o r t . G e t S o u r c e 0010320 I n f o = > R E S U M E [ t 0010340 r e e . p o s i t i o n , t r 0010360 e e . l e n g t h ] ; \r t r e e 0010400 D a t a : \t I n i t i a l i z a 0010420 t i o n b i n d i n g P r o d D 0010440 a t a _ N A R R O W [ t r e 0010460 e . d a t a ] ; \r t e m p 0 _ 0010500 t r e e D a t a . I n i t i a 0010520 l V a l u e . p r o c s . G e n 0010540 e r a t e P G [ t r e e D a t a 0010560 . I n i t i a l V a l u e , e 0010600 n v ] ; \r E N D \r E N D ; \r \r I 0010620 n i t i a l i z a t i o n a s s 0010640 i g n m e n t P r o d G e n e r 0010660 a t e P G : \t P U B L I C P R 0010700 O C [ r e f : R E F A N Y , 0010720 e n v : C o m p i l e r S t 0010740 a t e N o d e ] R E T U R N S 0010760 [ t e m p 0 : P r o g r a m G 0011000 r a p h N o d e ] = \r B E G I 0011020 N \r t r e e : \t I n i t i a l i 0011040 z a t i o n N o d e _ N A R R 0011060 O W [ r e f ] ; \r B E G I N \r E 0011100 N A B L E T h r e e C 4 S u p 0011120 p o r t . G e t S o u r c e I n 0011140 f o = > R E S U M E [ t r e 0011160 e . p o s i t i o n , t r e e 0011200 . l e n g t h ] ; \r t r e e D a 0011220 t a : \t I n i t i a l i z a t i 0011240 o n a s s i g n m e n t P r o d 0011260 D a t a _ N A R R O W [ t r 0011300 e e . d a t a ] ; \r t e m p 0 0011320 _ t r e e D a t a . I n i t i 0011340 a l V a l u e . p r o c s . G e 0011360 n e r a t e P G [ t r e e D a t 0011400 a . I n i t i a l V a l u e , 0011420 e n v ] ; \r E N D \r E N D ; \r \r 0011440 I n i t i a l V a l u e t r a s 0011460 h P r o d G e n e r a t e P G : 0011500 \t P U B L I C P R O C [ r e f 0011520 : R E F A N Y , e n v : 0011540 C o m p i l e r S t a t e N o d 0011560 e ] R E T U R N S [ t e m p 0 0011600 : P r o g r a m G r a p h N o 0011620 d e ] = \r B E G I N \r t r e e 0011640 : \t I n i t i a l V a l u e N o 0011660 d e _ N A R R O W [ r e f ] ; 0011700 \r B E G I N \r E N A B L E T h 0011720 r e e C 4 S u p p o r t . G e t 0011740 S o u r c e I n f o = > R E 0011760 S U M E [ t r e e . p o s i t i 0012000 o n , t r e e . l e n g t h ] 0012020 ; \r t e m p 0 _ M a k e B o 0012040 g u s P G N [ ] ; \r E N D \r E N 0012060 D ; \r \r I n i t i a l V a l u e 0012100 c o d e P r o d G e n e r a t e 0012120 P G : \t P U B L I C P R O C [ 0012140 r e f : R E F A N Y , e n 0012160 v : C o m p i l e r S t a t e 0012200 N o d e ] R E T U R N S [ t e 0012220 m p 0 : P r o g r a m G r a p 0012240 h N o d e ] = \r B E G I N \r t 0012260 r e e : \t I n i t i a l V a l u 0012300 e N o d e _ N A R R O W [ r e 0012320 f ] ; \r B E G I N \r E N A B L E 0012340 T h r e e C 4 S u p p o r t . 0012360 G e t S o u r c e I n f o = > 0012400 R E S U M E [ t r e e . p o s 0012420 i t i o n , t r e e . l e n g 0012440 t h ] ; \r t e m p 0 _ M a k 0012460 e B o g u s P G N [ ] ; \r E N D 0012500 \r E N D ; \r \r I n i t i a l V a 0012520 l u e e x p P r o d G e n e r a 0012540 t e P G : \t P U B L I C P R O 0012560 C [ r e f : R E F A N Y , 0012600 e n v : C o m p i l e r S t a 0012620 t e N o d e ] R E T U R N S [ 0012640 t e m p 0 : P r o g r a m G r 0012660 a p h N o d e ] = \r B E G I N 0012700 \r t r e e : \t I n i t i a l V a 0012720 l u e N o d e _ N A R R O W [ 0012740 r e f ] ; \r B E G I N \r E N A B 0012760 L E T h r e e C 4 S u p p o r 0013000 t . G e t S o u r c e I n f o 0013020 = > R E S U M E [ t r e e . p 0013040 o s i t i o n , t r e e . l e 0013060 n g t h ] ; \r t r e e D a t a : 0013100 \t I n i t i a l V a l u e e x p 0013120 P r o d D a t a _ N A R R O 0013140 W [ t r e e . d a t a ] ; \r B E 0013160 G I N \r e v a l u a t e d E x p 0013200 : \t E v a l u a t e d E x p r e 0013220 s s i o n N o d e ; \r e v a l u 0013240 a t e d E x p _ t r e e D a 0013260 t a . E x p . p r o c s . E v a 0013300 l u a t e [ t r e e D a t a . E 0013320 x p ] ; \r t e m p 0 _ M a k 0013340 e S e m i B o g u s P G N [ e v 0013360 a l u a t e d E x p ] ; \r E N D 0013400 ; \r E N D \r E N D ; \r \r I n i t 0013420 i a l V a l u e b l o c k P r o 0013440 d G e n e r a t e P G : \t P U B 0013460 L I C P R O C [ r e f : R E 0013500 F A N Y , e n v : C o m p 0013520 i l e r S t a t e N o d e ] R 0013540 E T U R N S [ t e m p 0 : P r 0013560 o g r a m G r a p h N o d e ] 0013600 = \r B E G I N \r t r e e : \t I n 0013620 i t i a l V a l u e N o d e _ 0013640 N A R R O W [ r e f ] ; \r B E G 0013660 I N \r E N A B L E T h r e e C 0013700 4 S u p p o r t . G e t S o u r 0013720 c e I n f o = > R E S U M E 0013740 [ t r e e . p o s i t i o n , 0013760 t r e e . l e n g t h ] ; \r t r 0014000 e e D a t a : \t I n i t i a l V 0014020 a l u e b l o c k P r o d D a t 0014040 a _ N A R R O W [ t r e e . 0014060 d a t a ] ; \r t e m p 0 _ M 0014100 a k e B o g u s P G N [ ] ; \r E 0014120 N D \r E N D ; \r \r I n i t i a l 0014140 V a l u e m a c h i n e c o d e 0014160 P r o d G e n e r a t e P G : \t 0014200 P U B L I C P R O C [ r e f : 0014220 R E F A N Y , e n v : C 0014240 o m p i l e r S t a t e N o d e 0014260 ] R E T U R N S [ t e m p 0 : 0014300 P r o g r a m G r a p h N o d 0014320 e ] = \r B E G I N \r t r e e : 0014340 \t I n i t i a l V a l u e N o d 0014360 e _ N A R R O W [ r e f ] ; \r 0014400 B E G I N \r E N A B L E T h r 0014420 e e C 4 S u p p o r t . G e t S 0014440 o u r c e I n f o = > R E S 0014460 U M E [ t r e e . p o s i t i o 0014500 n , t r e e . l e n g t h ] ; 0014520 \r t r e e D a t a : \t I n i t i 0014540 a l V a l u e m a c h i n e c o 0014560 d e P r o d D a t a _ N A R 0014600 R O W [ t r e e . d a t a ] ; \r 0014620 t e m p 0 _ M a k e B o g u 0014640 s P G N [ ] ; \r E N D \r E N D ; 0014660 \r \r E x p s u m P r o d E v a l 0014700 u a t e : \t P U B L I C P R O 0014720 C [ r e f : R E F A N Y ] 0014740 R E T U R N S [ t e m p 0 : E 0014760 v a l u a t e d E x p r e s s i 0015000 o n N o d e ] = \r B E G I N \r 0015020 t r e e : \t E x p N o d e _ N 0015040 A R R O W [ r e f ] ; \r B E G I 0015060 N \r E N A B L E T h r e e C 4 0015100 S u p p o r t . G e t S o u r c 0015120 e I n f o = > R E S U M E [ 0015140 t r e e . p o s i t i o n , t 0015160 r e e . l e n g t h ] ; \r t r e 0015200 e D a t a : \t E x p s u m P r o 0015220 d D a t a _ N A R R O W [ t 0015240 r e e . d a t a ] ; \r t e m p 0 0015260 _ M a k e I n t e g e r E v 0015300 E x p [ 0 ] ; \r E N D \r E N D ; 0015320 \r \r E x p u n a r y s u m P r o 0015340 d E v a l u a t e : \t P U B L I 0015360 C P R O C [ r e f : R E F 0015400 A N Y ] R E T U R N S [ t e m 0015420 p 0 : E v a l u a t e d E x p 0015440 r e s s i o n N o d e ] = \r B 0015460 E G I N \r t r e e : \t E x p N o 0015500 d e _ N A R R O W [ r e f ] ; 0015520 \r B E G I N \r E N A B L E T h 0015540 r e e C 4 S u p p o r t . G e t 0015560 S o u r c e I n f o = > R E 0015600 S U M E [ t r e e . p o s i t i 0015620 o n , t r e e . l e n g t h ] 0015640 ; \r t r e e D a t a : \t E x p u 0015660 n a r y s u m P r o d D a t a 0015700 _ N A R R O W [ t r e e . d a 0015720 t a ] ; \r t e m p 0 _ M a k 0015740 e I n t e g e r E v E x p [ 1 ] 0015760 ; \r E N D \r E N D ; \r \r E x p p 0016000 r o d u c t P r o d E v a l u a 0016020 t e : \t P U B L I C P R O C [ 0016040 r e f : R E F A N Y ] R E 0016060 T U R N S [ t e m p 0 : E v a 0016100 l u a t e d E x p r e s s i o n 0016120 N o d e ] = \r B E G I N \r t r 0016140 e e : \t E x p N o d e _ N A R 0016160 R O W [ r e f ] ; \r B E G I N \r 0016200 E N A B L E T h r e e C 4 S u 0016220 p p o r t . G e t S o u r c e I 0016240 n f o = > R E S U M E [ t r 0016260 e e . p o s i t i o n , t r e 0016300 e . l e n g t h ] ; \r t r e e D 0016320 a t a : \t E x p p r o d u c t P 0016340 r o d D a t a _ N A R R O W 0016360 [ t r e e . d a t a ] ; \r t e m 0016400 p 0 _ M a k e I n t e g e r 0016420 E v E x p [ 2 ] ; \r E N D \r E N 0016440 D ; \r \r E x p o r P r o d E v a 0016460 l u a t e : \t P U B L I C P R 0016500 O C [ r e f : R E F A N Y ] 0016520 R E T U R N S [ t e m p 0 : 0016540 E v a l u a t e d E x p r e s s 0016560 i o n N o d e ] = \r B E G I N 0016600 \r t r e e : \t E x p N o d e _ 0016620 N A R R O W [ r e f ] ; \r B E G 0016640 I N \r E N A B L E T h r e e C 0016660 4 S u p p o r t . G e t S o u r 0016700 c e I n f o = > R E S U M E 0016720 [ t r e e . p o s i t i o n , 0016740 t r e e . l e n g t h ] ; \r t r 0016760 e e D a t a : \t E x p o r P r o 0017000 d D a t a _ N A R R O W [ t 0017020 r e e . d a t a ] ; \r t e m p 0 0017040 _ M a k e I n t e g e r E v 0017060 E x p [ 3 ] ; \r E N D \r E N D ; 0017100 \r \r E x p a n d P r o d E v a l 0017120 u a t e : \t P U B L I C P R O 0017140 C [ r e f : R E F A N Y ] 0017160 R E T U R N S [ t e m p 0 : E 0017200 v a l u a t e d E x p r e s s i 0017220 o n N o d e ] = \r B E G I N \r 0017240 t r e e : \t E x p N o d e _ N 0017260 A R R O W [ r e f ] ; \r B E G I 0017300 N \r E N A B L E T h r e e C 4 0017320 S u p p o r t . G e t S o u r c 0017340 e I n f o = > R E S U M E [ 0017360 t r e e . p o s i t i o n , t 0017400 r e e . l e n g t h ] ; \r t r e 0017420 e D a t a : \t E x p a n d P r o 0017440 d D a t a _ N A R R O W [ t 0017460 r e e . d a t a ] ; \r t e m p 0 0017500 _ M a k e I n t e g e r E v 0017520 E x p [ 4 ] ; \r E N D \r E N D ; 0017540 \r \r E x p n o t P r o d E v a l 0017560 u a t e : \t P U B L I C P R O 0017600 C [ r e f : R E F A N Y ] 0017620 R E T U R N S [ t e m p 0 : E 0017640 v a l u a t e d E x p r e s s i 0017660 o n N o d e ] = \r B E G I N \r 0017700 t r e e : \t E x p N o d e _ N 0017720 A R R O W [ r e f ] ; \r B E G I 0017740 N \r E N A B L E T h r e e C 4 0017760 S u p p o r t . G e t S o u r c 0020000 e I n f o = > R E S U M E [ 0020020 t r e e . p o s i t i o n , t 0020040 r e e . l e n g t h ] ; \r t r e 0020060 e D a t a : \t E x p n o t P r o 0020100 d D a t a _ N A R R O W [ t 0020120 r e e . d a t a ] ; \r t e m p 0 0020140 _ M a k e I n t e g e r E v 0020160 E x p [ 5 ] ; \r E N D \r E N D ; 0020200 \r \r E x p r e l a t i o n P r o 0020220 d E v a l u a t e : \t P U B L I 0020240 C P R O C [ r e f : R E F 0020260 A N Y ] R E T U R N S [ t e m 0020300 p 0 : E v a l u a t e d E x p 0020320 r e s s i o n N o d e ] = \r B 0020340 E G I N \r t r e e : \t E x p N o 0020360 d e _ N A R R O W [ r e f ] ; 0020400 \r B E G I N \r E N A B L E T h 0020420 r e e C 4 S u p p o r t . G e t 0020440 S o u r c e I n f o = > R E 0020460 S U M E [ t r e e . p o s i t i 0020500 o n , t r e e . l e n g t h ] 0020520 ; \r t r e e D a t a : \t E x p r 0020540 e l a t i o n P r o d D a t a 0020560 _ N A R R O W [ t r e e . d a 0020600 t a ] ; \r t e m p 0 _ M a k 0020620 e I n t e g e r E v E x p [ 6 ] 0020640 ; \r E N D \r E N D ; \r \r E x p i 0020660 f t h e n e l s e P r o d E v a 0020700 l u a t e : \t P U B L I C P R 0020720 O C [ r e f : R E F A N Y ] 0020740 R E T U R N S [ t e m p 0 : 0020760 E v a l u a t e d E x p r e s s 0021000 i o n N o d e ] = \r B E G I N 0021020 \r t r e e : \t E x p N o d e _ 0021040 N A R R O W [ r e f ] ; \r B E G 0021060 I N \r E N A B L E T h r e e C 0021100 4 S u p p o r t . G e t S o u r 0021120 c e I n f o = > R E S U M E 0021140 [ t r e e . p o s i t i o n , 0021160 t r e e . l e n g t h ] ; \r t r 0021200 e e D a t a : \t E x p i f t h e 0021220 n e l s e P r o d D a t a _ 0021240 N A R R O W [ t r e e . d a t a 0021260 ] ; \r t e m p 0 _ M a k e I 0021300 n t e g e r E v E x p [ 7 ] ; \r 0021320 E N D \r E N D ; \r \r E x p s e l 0021340 e c t P r o d E v a l u a t e : 0021360 \t P U B L I C P R O C [ r e f 0021400 : R E F A N Y ] R E T U R 0021420 N S [ t e m p 0 : E v a l u a 0021440 t e d E x p r e s s i o n N o d 0021460 e ] = \r B E G I N \r t r e e : 0021500 \t E x p N o d e _ N A R R O W 0021520 [ r e f ] ; \r B E G I N \r E N A 0021540 B L E T h r e e C 4 S u p p o 0021560 r t . G e t S o u r c e I n f o 0021600 = > R E S U M E [ t r e e . 0021620 p o s i t i o n , t r e e . l 0021640 e n g t h ] ; \r t r e e D a t a 0021660 : \t E x p s e l e c t P r o d D 0021700 a t a _ N A R R O W [ t r e 0021720 e . d a t a ] ; \r t e m p 0 _ 0021740 M a k e I n t e g e r E v E x 0021760 p [ 8 ] ; \r E N D \r E N D ; \r \r 0022000 E x p a s s i g n P r o d E v a 0022020 l u a t e : \t P U B L I C P R 0022040 O C [ r e f : R E F A N Y ] 0022060 R E T U R N S [ t e m p 0 : 0022100 E v a l u a t e d E x p r e s s 0022120 i o n N o d e ] = \r B E G I N 0022140 \r t r e e : \t E x p N o d e _ 0022160 N A R R O W [ r e f ] ; \r B E G 0022200 I N \r E N A B L E T h r e e C 0022220 4 S u p p o r t . G e t S o u r 0022240 c e I n f o = > R E S U M E 0022260 [ t r e e . p o s i t i o n , 0022300 t r e e . l e n g t h ] ; \r t r 0022320 e e D a t a : \t E x p a s s i g 0022340 n P r o d D a t a _ N A R R 0022360 O W [ t r e e . d a t a ] ; \r t 0022400 e m p 0 _ M a k e I n t e g 0022420 e r E v E x p [ 9 ] ; \r E N D \r 0022440 E N D ; \r \r E x p m u l t i a s 0022460 s i g n P r o d E v a l u a t e 0022500 : \t P U B L I C P R O C [ r e 0022520 f : R E F A N Y ] R E T U 0022540 R N S [ t e m p 0 : E v a l u 0022560 a t e d E x p r e s s i o n N o 0022600 d e ] = \r B E G I N \r t r e e 0022620 : \t E x p N o d e _ N A R R O 0022640 W [ r e f ] ; \r B E G I N \r E N 0022660 A B L E T h r e e C 4 S u p p 0022700 o r t . G e t S o u r c e I n f 0022720 o = > R E S U M E [ t r e e 0022740 . p o s i t i o n , t r e e . 0022760 l e n g t h ] ; \r t r e e D a t 0023000 a : \t E x p m u l t i a s s i g 0023020 n P r o d D a t a _ N A R R 0023040 O W [ t r e e . d a t a ] ; \r t 0023060 e m p 0 _ M a k e I n t e g 0023100 e r E v E x p [ 1 0 ] ; \r E N D 0023120 \r E N D ; \r \r E x p i d P r o d 0023140 E v a l u a t e : \t P U B L I C 0023160 P R O C [ r e f : R E F A 0023200 N Y ] R E T U R N S [ t e m p 0023220 0 : E v a l u a t e d E x p r 0023240 e s s i o n N o d e ] = \r B E 0023260 G I N \r t r e e : \t E x p N o d 0023300 e _ N A R R O W [ r e f ] ; \r 0023320 B E G I N \r E N A B L E T h r 0023340 e e C 4 S u p p o r t . G e t S 0023360 o u r c e I n f o = > R E S 0023400 U M E [ t r e e . p o s i t i o 0023420 n , t r e e . l e n g t h ] ; 0023440 \r t r e e D a t a : \t E x p i d 0023460 P r o d D a t a _ N A R R O 0023500 W [ t r e e . d a t a ] ; \r t e 0023520 m p 0 _ M a k e I n t e g e 0023540 r E v E x p [ 1 1 ] ; \r E N D \r 0023560 E N D ; \r \r E x p n u m P r o d 0023600 E v a l u a t e : \t P U B L I C 0023620 P R O C [ r e f : R E F A 0023640 N Y ] R E T U R N S [ t e m p 0023660 0 : E v a l u a t e d E x p r 0023700 e s s i o n N o d e ] = \r B E 0023720 G I N \r t r e e : \t E x p N o d 0023740 e _ N A R R O W [ r e f ] ; \r 0023760 B E G I N \r E N A B L E T h r 0024000 e e C 4 S u p p o r t . G e t S 0024020 o u r c e I n f o = > R E S 0024040 U M E [ t r e e . p o s i t i o 0024060 n , t r e e . l e n g t h ] ; 0024100 \r t r e e D a t a : \t E x p n u 0024120 m P r o d D a t a _ N A R R 0024140 O W [ t r e e . d a t a ] ; \r t 0024160 e m p 0 _ t r e e D a t a . 0024200 N u m . p r o c s . E v a l u a 0024220 t e [ t r e e D a t a . N u m ] 0024240 ; \r E N D \r E N D ; \r \r E x p s 0024260 t r i n g P r o d E v a l u a t 0024300 e : \t P U B L I C P R O C [ r 0024320 e f : R E F A N Y ] R E T 0024340 U R N S [ t e m p 0 : E v a l 0024360 u a t e d E x p r e s s i o n N 0024400 o d e ] = \r B E G I N \r t r e 0024420 e : \t E x p N o d e _ N A R R 0024440 O W [ r e f ] ; \r B E G I N \r E 0024460 N A B L E T h r e e C 4 S u p 0024500 p o r t . G e t S o u r c e I n 0024520 f o = > R E S U M E [ t r e 0024540 e . p o s i t i o n , t r e e 0024560 . l e n g t h ] ; \r t r e e D a 0024600 t a : \t E x p s t r i n g P r o 0024620 d D a t a _ N A R R O W [ t 0024640 r e e . d a t a ] ; \r t e m p 0 0024660 _ M a k e I n t e g e r E v 0024700 E x p [ 1 3 ] ; \r E N D \r E N D 0024720 ; \r \r E x p f l n u m P r o d E 0024740 v a l u a t e : \t P U B L I C 0024760 P R O C [ r e f : R E F A N 0025000 Y ] R E T U R N S [ t e m p 0 0025020 : E v a l u a t e d E x p r e 0025040 s s i o n N o d e ] = \r B E G 0025060 I N \r t r e e : \t E x p N o d e 0025100 _ N A R R O W [ r e f ] ; \r B 0025120 E G I N \r E N A B L E T h r e 0025140 e C 4 S u p p o r t . G e t S o 0025160 u r c e I n f o = > R E S U 0025200 M E [ t r e e . p o s i t i o n 0025220 , t r e e . l e n g t h ] ; \r 0025240 t r e e D a t a : \t E x p f l n 0025260 u m P r o d D a t a _ N A R 0025300 R O W [ t r e e . d a t a ] ; \r 0025320 t e m p 0 _ M a k e I n t e 0025340 g e r E v E x p [ 1 4 ] ; \r E N 0025360 D \r E N D ; \r \r E x p c h a r P 0025400 r o d E v a l u a t e : \t P U B 0025420 L I C P R O C [ r e f : R E 0025440 F A N Y ] R E T U R N S [ t 0025460 e m p 0 : E v a l u a t e d E 0025500 x p r e s s i o n N o d e ] = 0025520 \r B E G I N \r t r e e : \t E x p 0025540 N o d e _ N A R R O W [ r e f 0025560 ] ; \r B E G I N \r E N A B L E 0025600 T h r e e C 4 S u p p o r t . G 0025620 e t S o u r c e I n f o = > 0025640 R E S U M E [ t r e e . p o s i 0025660 t i o n , t r e e . l e n g t 0025700 h ] ; \r t r e e D a t a : \t E x 0025720 p c h a r P r o d D a t a _ 0025740 N A R R O W [ t r e e . d a t a 0025760 ] ; \r t e m p 0 _ M a k e I 0026000 n t e g e r E v E x p [ 1 5 ] ; 0026020 \r E N D \r E N D ; \r \r E x p a t 0026040 o m P r o d E v a l u a t e : \t 0026060 P U B L I C P R O C [ r e f : 0026100 R E F A N Y ] R E T U R N 0026120 S [ t e m p 0 : E v a l u a t 0026140 e d E x p r e s s i o n N o d e 0026160 ] = \r B E G I N \r t r e e : \t 0026200 E x p N o d e _ N A R R O W [ 0026220 r e f ] ; \r B E G I N \r E N A B 0026240 L E T h r e e C 4 S u p p o r 0026260 t . G e t S o u r c e I n f o 0026300 = > R E S U M E [ t r e e . p 0026320 o s i t i o n , t r e e . l e 0026340 n g t h ] ; \r t r e e D a t a : 0026360 \t E x p a t o m P r o d D a t a 0026400 _ N A R R O W [ t r e e . d 0026420 a t a ] ; \r t e m p 0 _ M a 0026440 k e I n t e g e r E v E x p [ 1 0026460 6 ] ; \r E N D \r E N D ; \r \r E x 0026500 p n a r r o w P r o d E v a l u 0026520 a t e : \t P U B L I C P R O C 0026540 [ r e f : R E F A N Y ] R 0026560 E T U R N S [ t e m p 0 : E v 0026600 a l u a t e d E x p r e s s i o 0026620 n N o d e ] = \r B E G I N \r t 0026640 r e e : \t E x p N o d e _ N A 0026660 R R O W [ r e f ] ; \r B E G I N 0026700 \r E N A B L E T h r e e C 4 S 0026720 u p p o r t . G e t S o u r c e 0026740 I n f o = > R E S U M E [ t 0026760 r e e . p o s i t i o n , t r 0027000 e e . l e n g t h ] ; \r t r e e 0027020 D a t a : \t E x p n a r r o w P 0027040 r o d D a t a _ N A R R O W 0027060 [ t r e e . d a t a ] ; \r t e m 0027100 p 0 _ M a k e I n t e g e r 0027120 E v E x p [ 1 7 ] ; \r E N D \r E 0027140 N D ; \r \r E x p l o o p h o l e 0027160 P r o d E v a l u a t e : \t P U 0027200 B L I C P R O C [ r e f : R 0027220 E F A N Y ] R E T U R N S [ 0027240 t e m p 0 : E v a l u a t e d 0027260 E x p r e s s i o n N o d e ] 0027300 = \r B E G I N \r t r e e : \t E x 0027320 p N o d e _ N A R R O W [ r e 0027340 f ] ; \r B E G I N \r E N A B L E 0027360 T h r e e C 4 S u p p o r t . 0027400 G e t S o u r c e I n f o = > 0027420 R E S U M E [ t r e e . p o s 0027440 i t i o n , t r e e . l e n g 0027460 t h ] ; \r t r e e D a t a : \t E 0027500 x p l o o p h o l e P r o d D a 0027520 t a _ N A R R O W [ t r e e 0027540 . d a t a ] ; \r t e m p 0 _ 0027560 M a k e I n t e g e r E v E x p 0027600 [ 1 8 ] ; \r E N D \r E N D ; \r \r 0027620 E x p a p p l y P r o d E v a l 0027640 u a t e : \t P U B L I C P R O 0027660 C [ r e f : R E F A N Y ] 0027700 R E T U R N S [ t e m p 0 : E 0027720 v a l u a t e d E x p r e s s i 0027740 o n N o d e ] = \r B E G I N \r 0027760 t r e e : \t E x p N o d e _ N 0030000 A R R O W [ r e f ] ; \r B E G I 0030020 N \r E N A B L E T h r e e C 4 0030040 S u p p o r t . G e t S o u r c 0030060 e I n f o = > R E S U M E [ 0030100 t r e e . p o s i t i o n , t 0030120 r e e . l e n g t h ] ; \r t r e 0030140 e D a t a : \t E x p a p p l y P 0030160 r o d D a t a _ N A R R O W 0030200 [ t r e e . d a t a ] ; \r t e m 0030220 p 0 _ M a k e I n t e g e r 0030240 E v E x p [ 1 9 ] ; \r E N D \r E 0030260 N D ; \r \r E x p q u a l i f i e 0030300 r P r o d E v a l u a t e : \t P 0030320 U B L I C P R O C [ r e f : 0030340 R E F A N Y ] R E T U R N S 0030360 [ t e m p 0 : E v a l u a t e 0030400 d E x p r e s s i o n N o d e ] 0030420 = \r B E G I N \r t r e e : \t E 0030440 x p N o d e _ N A R R O W [ r 0030460 e f ] ; \r B E G I N \r E N A B L 0030500 E T h r e e C 4 S u p p o r t 0030520 . G e t S o u r c e I n f o = 0030540 > R E S U M E [ t r e e . p o 0030560 s i t i o n , t r e e . l e n 0030600 g t h ] ; \r t r e e D a t a : \t 0030620 E x p q u a l i f i e r P r o d 0030640 D a t a _ N A R R O W [ t r 0030660 e e . d a t a ] ; \r t e m p 0 0030700 _ M a k e I n t e g e r E v E 0030720 x p [ 2 0 ] ; \r E N D \r E N D ; 0030740 \r \r E x p e x p l i s t P r o d 0030760 E v a l u a t e : \t P U B L I C 0031000 P R O C [ r e f : R E F A 0031020 N Y ] R E T U R N S [ t e m p 0031040 0 : E v a l u a t e d E x p r 0031060 e s s i o n N o d e ] = \r B E 0031100 G I N \r t r e e : \t E x p N o d 0031120 e _ N A R R O W [ r e f ] ; \r 0031140 B E G I N \r E N A B L E T h r 0031160 e e C 4 S u p p o r t . G e t S 0031200 o u r c e I n f o = > R E S 0031220 U M E [ t r e e . p o s i t i o 0031240 n , t r e e . l e n g t h ] ; 0031260 \r t r e e D a t a : \t E x p e x 0031300 p l i s t P r o d D a t a _ 0031320 N A R R O W [ t r e e . d a t a 0031340 ] ; \r t e m p 0 _ M a k e I 0031360 n t e g e r E v E x p [ 2 1 ] ; 0031400 \r E N D \r E N D ; \r \r E x p p r 0031420 e f i x o p P r o d E v a l u a 0031440 t e : \t P U B L I C P R O C [ 0031460 r e f : R E F A N Y ] R E 0031500 T U R N S [ t e m p 0 : E v a 0031520 l u a t e d E x p r e s s i o n 0031540 N o d e ] = \r B E G I N \r t r 0031560 e e : \t E x p N o d e _ N A R 0031600 R O W [ r e f ] ; \r B E G I N \r 0031620 E N A B L E T h r e e C 4 S u 0031640 p p o r t . G e t S o u r c e I 0031660 n f o = > R E S U M E [ t r 0031700 e e . p o s i t i o n , t r e 0031720 e . l e n g t h ] ; \r t r e e D 0031740 a t a : \t E x p p r e f i x o p 0031760 P r o d D a t a _ N A R R O 0032000 W [ t r e e . d a t a ] ; \r t e 0032020 m p 0 _ M a k e I n t e g e 0032040 r E v E x p [ 2 2 ] ; \r E N D \r 0032060 E N D ; \r \r E x p v a l P r o d 0032100 E v a l u a t e : \t P U B L I C 0032120 P R O C [ r e f : R E F A 0032140 N Y ] R E T U R N S [ t e m p 0032160 0 : E v a l u a t e d E x p r 0032200 e s s i o n N o d e ] = \r B E 0032220 G I N \r t r e e : \t E x p N o d 0032240 e _ N A R R O W [ r e f ] ; \r 0032260 B E G I N \r E N A B L E T h r 0032300 e e C 4 S u p p o r t . G e t S 0032320 o u r c e I n f o = > R E S 0032340 U M E [ t r e e . p o s i t i o 0032360 n , t r e e . l e n g t h ] ; 0032400 \r t r e e D a t a : \t E x p v a 0032420 l P r o d D a t a _ N A R R 0032440 O W [ t r e e . d a t a ] ; \r t 0032460 e m p 0 _ M a k e I n t e g 0032500 e r E v E x p [ 2 3 ] ; \r E N D 0032520 \r E N D ; \r \r E x p a l l P r o 0032540 d E v a l u a t e : \t P U B L I 0032560 C P R O C [ r e f : R E F 0032600 A N Y ] R E T U R N S [ t e m 0032620 p 0 : E v a l u a t e d E x p 0032640 r e s s i o n N o d e ] = \r B 0032660 E G I N \r t r e e : \t E x p N o 0032700 d e _ N A R R O W [ r e f ] ; 0032720 \r B E G I N \r E N A B L E T h 0032740 r e e C 4 S u p p o r t . G e t 0032760 S o u r c e I n f o = > R E 0033000 S U M E [ t r e e . p o s i t i 0033020 o n , t r e e . l e n g t h ] 0033040 ; \r t r e e D a t a : \t E x p a 0033060 l l P r o d D a t a _ N A R 0033100 R O W [ t r e e . d a t a ] ; \r 0033120 t e m p 0 _ M a k e I n t e 0033140 g e r E v E x p [ 2 4 ] ; \r E N 0033160 D \r E N D ; \r \r E x p n e w P r 0033200 o d E v a l u a t e : \t P U B L 0033220 I C P R O C [ r e f : R E F 0033240 A N Y ] R E T U R N S [ t e 0033260 m p 0 : E v a l u a t e d E x 0033300 p r e s s i o n N o d e ] = \r 0033320 B E G I N \r t r e e : \t E x p N 0033340 o d e _ N A R R O W [ r e f ] 0033360 ; \r B E G I N \r E N A B L E T 0033400 h r e e C 4 S u p p o r t . G e 0033420 t S o u r c e I n f o = > R 0033440 E S U M E [ t r e e . p o s i t 0033460 i o n , t r e e . l e n g t h 0033500 ] ; \r t r e e D a t a : \t E x p 0033520 n e w P r o d D a t a _ N A 0033540 R R O W [ t r e e . d a t a ] ; 0033560 \r t e m p 0 _ M a k e I n t 0033600 e g e r E v E x p [ 2 5 ] ; \r E 0033620 N D \r E N D ; \r \r E x p c o n s 0033640 P r o d E v a l u a t e : \t P U 0033660 B L I C P R O C [ r e f : R 0033700 E F A N Y ] R E T U R N S [ 0033720 t e m p 0 : E v a l u a t e d 0033740 E x p r e s s i o n N o d e ] 0033760 = \r B E G I N \r t r e e : \t E x 0034000 p N o d e _ N A R R O W [ r e 0034020 f ] ; \r B E G I N \r E N A B L E 0034040 T h r e e C 4 S u p p o r t . 0034060 G e t S o u r c e I n f o = > 0034100 R E S U M E [ t r e e . p o s 0034120 i t i o n , t r e e . l e n g 0034140 t h ] ; \r t r e e D a t a : \t E 0034160 x p c o n s P r o d D a t a _ 0034200 N A R R O W [ t r e e . d a t 0034220 a ] ; \r t e m p 0 _ M a k e 0034240 I n t e g e r E v E x p [ 2 6 ] 0034260 ; \r E N D \r E N D ; \r \r E x p l 0034300 i s t c o n s P r o d E v a l u 0034320 a t e : \t P U B L I C P R O C 0034340 [ r e f : R E F A N Y ] R 0034360 E T U R N S [ t e m p 0 : E v 0034400 a l u a t e d E x p r e s s i o 0034420 n N o d e ] = \r B E G I N \r t 0034440 r e e : \t E x p N o d e _ N A 0034460 R R O W [ r e f ] ; \r B E G I N 0034500 \r E N A B L E T h r e e C 4 S 0034520 u p p o r t . G e t S o u r c e 0034540 I n f o = > R E S U M E [ t 0034560 r e e . p o s i t i o n , t r 0034600 e e . l e n g t h ] ; \r t r e e 0034620 D a t a : \t E x p l i s t c o n 0034640 s P r o d D a t a _ N A R R 0034660 O W [ t r e e . d a t a ] ; \r t 0034700 e m p 0 _ M a k e I n t e g 0034720 e r E v E x p [ 2 7 ] ; \r E N D 0034740 \r E N D ; \r \r E x p n i l P r o 0034760 d E v a l u a t e : \t P U B L I 0035000 C P R O C [ r e f : R E F 0035020 A N Y ] R E T U R N S [ t e m 0035040 p 0 : E v a l u a t e d E x p 0035060 r e s s i o n N o d e ] = \r B 0035100 E G I N \r t r e e : \t E x p N o 0035120 d e _ N A R R O W [ r e f ] ; 0035140 \r B E G I N \r E N A B L E T h 0035160 r e e C 4 S u p p o r t . G e t 0035200 S o u r c e I n f o = > R E 0035220 S U M E [ t r e e . p o s i t i 0035240 o n , t r e e . l e n g t h ] 0035260 ; \r t e m p 0 _ M a k e I n 0035300 t e g e r E v E x p [ 2 8 ] ; \r 0035320 E N D \r E N D ; \r \r E x p t y p 0035340 e o p P r o d E v a l u a t e : 0035360 \t P U B L I C P R O C [ r e f 0035400 : R E F A N Y ] R E T U R 0035420 N S [ t e m p 0 : E v a l u a 0035440 t e d E x p r e s s i o n N o d 0035460 e ] = \r B E G I N \r t r e e : 0035500 \t E x p N o d e _ N A R R O W 0035520 [ r e f ] ; \r B E G I N \r E N A 0035540 B L E T h r e e C 4 S u p p o 0035560 r t . G e t S o u r c e I n f o 0035600 = > R E S U M E [ t r e e . 0035620 p o s i t i o n , t r e e . l 0035640 e n g t h ] ; \r t r e e D a t a 0035660 : \t E x p t y p e o p P r o d D 0035700 a t a _ N A R R O W [ t r e 0035720 e . d a t a ] ; \r t e m p 0 _ 0035740 M a k e I n t e g e r E v E x 0035760 p [ 2 9 ] ; \r E N D \r E N D ; \r 0036000 \r E x p s i z e P r o d E v a l 0036020 u a t e : \t P U B L I C P R O 0036040 C [ r e f : R E F A N Y ] 0036060 R E T U R N S [ t e m p 0 : E 0036100 v a l u a t e d E x p r e s s i 0036120 o n N o d e ] = \r B E G I N \r 0036140 t r e e : \t E x p N o d e _ N 0036160 A R R O W [ r e f ] ; \r B E G I 0036200 N \r E N A B L E T h r e e C 4 0036220 S u p p o r t . G e t S o u r c 0036240 e I n f o = > R E S U M E [ 0036260 t r e e . p o s i t i o n , t 0036300 r e e . l e n g t h ] ; \r t r e 0036320 e D a t a : \t E x p s i z e P r 0036340 o d D a t a _ N A R R O W [ 0036360 t r e e . d a t a ] ; \r t e m p 0036400 0 _ M a k e I n t e g e r E 0036420 v E x p [ 3 0 ] ; \r E N D \r E N 0036440 D ; \r \r E x p s i z e 2 P r o d 0036460 E v a l u a t e : \t P U B L I C 0036500 P R O C [ r e f : R E F A 0036520 N Y ] R E T U R N S [ t e m p 0036540 0 : E v a l u a t e d E x p r 0036560 e s s i o n N o d e ] = \r B E 0036600 G I N \r t r e e : \t E x p N o d 0036620 e _ N A R R O W [ r e f ] ; \r 0036640 B E G I N \r E N A B L E T h r 0036660 e e C 4 S u p p o r t . G e t S 0036700 o u r c e I n f o = > R E S 0036720 U M E [ t r e e . p o s i t i o 0036740 n , t r e e . l e n g t h ] ; 0036760 \r t r e e D a t a : \t E x p s i 0037000 z e 2 P r o d D a t a _ N A 0037020 R R O W [ t r e e . d a t a ] ; 0037040 \r t e m p 0 _ M a k e I n t 0037060 e g e r E v E x p [ 3 1 ] ; \r E 0037100 N D \r E N D ; \r \r E x p b i t s 0037120 P r o d E v a l u a t e : \t P U 0037140 B L I C P R O C [ r e f : R 0037160 E F A N Y ] R E T U R N S [ 0037200 t e m p 0 : E v a l u a t e d 0037220 E x p r e s s i o n N o d e ] 0037240 = \r B E G I N \r t r e e : \t E x 0037260 p N o d e _ N A R R O W [ r e 0037300 f ] ; \r B E G I N \r E N A B L E 0037320 T h r e e C 4 S u p p o r t . 0037340 G e t S o u r c e I n f o = > 0037360 R E S U M E [ t r e e . p o s 0037400 i t i o n , t r e e . l e n g 0037420 t h ] ; \r t r e e D a t a : \t E 0037440 x p b i t s P r o d D a t a _ 0037460 N A R R O W [ t r e e . d a t 0037500 a ] ; \r t e m p 0 _ M a k e 0037520 I n t e g e r E v E x p [ 3 2 ] 0037540 ; \r E N D \r E N D ; \r \r E x p b 0037560 i t s 2 P r o d E v a l u a t e 0037600 : \t P U B L I C P R O C [ r e 0037620 f : R E F A N Y ] R E T U 0037640 R N S [ t e m p 0 : E v a l u 0037660 a t e d E x p r e s s i o n N o 0037700 d e ] = \r B E G I N \r t r e e 0037720 : \t E x p N o d e _ N A R R O 0037740 W [ r e f ] ; \r B E G I N \r E N 0037760 A B L E T h r e e C 4 S u p p 0040000 o r t . G e t S o u r c e I n f 0040020 o = > R E S U M E [ t r e e 0040040 . p o s i t i o n , t r e e . 0040060 l e n g t h ] ; \r t r e e D a t 0040100 a : \t E x p b i t s 2 P r o d D 0040120 a t a _ N A R R O W [ t r e 0040140 e . d a t a ] ; \r t e m p 0 _ 0040160 M a k e I n t e g e r E v E x 0040200 p [ 3 3 ] ; \r E N D \r E N D ; \r 0040220 \r E x p b y t e s P r o d E v a 0040240 l u a t e : \t P U B L I C P R 0040260 O C [ r e f : R E F A N Y ] 0040300 R E T U R N S [ t e m p 0 : 0040320 E v a l u a t e d E x p r e s s 0040340 i o n N o d e ] = \r B E G I N 0040360 \r t r e e : \t E x p N o d e _ 0040400 N A R R O W [ r e f ] ; \r B E G 0040420 I N \r E N A B L E T h r e e C 0040440 4 S u p p o r t . G e t S o u r 0040460 c e I n f o = > R E S U M E 0040500 [ t r e e . p o s i t i o n , 0040520 t r e e . l e n g t h ] ; \r t r 0040540 e e D a t a : \t E x p b y t e s 0040560 P r o d D a t a _ N A R R O 0040600 W [ t r e e . d a t a ] ; \r t e 0040620 m p 0 _ M a k e I n t e g e 0040640 r E v E x p [ 3 4 ] ; \r E N D \r 0040660 E N D ; \r \r E x p b y t e s 2 P 0040700 r o d E v a l u a t e : \t P U B 0040720 L I C P R O C [ r e f : R E 0040740 F A N Y ] R E T U R N S [ t 0040760 e m p 0 : E v a l u a t e d E 0041000 x p r e s s i o n N o d e ] = 0041020 \r B E G I N \r t r e e : \t E x p 0041040 N o d e _ N A R R O W [ r e f 0041060 ] ; \r B E G I N \r E N A B L E 0041100 T h r e e C 4 S u p p o r t . G 0041120 e t S o u r c e I n f o = > 0041140 R E S U M E [ t r e e . p o s i 0041160 t i o n , t r e e . l e n g t 0041200 h ] ; \r t r e e D a t a : \t E x 0041220 p b y t e s 2 P r o d D a t a 0041240 _ N A R R O W [ t r e e . d a 0041260 t a ] ; \r t e m p 0 _ M a k 0041300 e I n t e g e r E v E x p [ 3 5 0041320 ] ; \r E N D \r E N D ; \r \r E x p 0041340 u n i t s P r o d E v a l u a t 0041360 e : \t P U B L I C P R O C [ r 0041400 e f : R E F A N Y ] R E T 0041420 U R N S [ t e m p 0 : E v a l 0041440 u a t e d E x p r e s s i o n N 0041460 o d e ] = \r B E G I N \r t r e 0041500 e : \t E x p N o d e _ N A R R 0041520 O W [ r e f ] ; \r B E G I N \r E 0041540 N A B L E T h r e e C 4 S u p 0041560 p o r t . G e t S o u r c e I n 0041600 f o = > R E S U M E [ t r e 0041620 e . p o s i t i o n , t r e e 0041640 . l e n g t h ] ; \r t r e e D a 0041660 t a : \t E x p u n i t s P r o d 0041700 D a t a _ N A R R O W [ t r 0041720 e e . d a t a ] ; \r t e m p 0 0041740 _ M a k e I n t e g e r E v E 0041760 x p [ 3 6 ] ; \r E N D \r E N D ; 0042000 \r \r E x p u n i t s 2 P r o d E 0042020 v a l u a t e : \t P U B L I C 0042040 P R O C [ r e f : R E F A N 0042060 Y ] R E T U R N S [ t e m p 0 0042100 : E v a l u a t e d E x p r e 0042120 s s i o n N o d e ] = \r B E G 0042140 I N \r t r e e : \t E x p N o d e 0042160 _ N A R R O W [ r e f ] ; \r B 0042200 E G I N \r E N A B L E T h r e 0042220 e C 4 S u p p o r t . G e t S o 0042240 u r c e I n f o = > R E S U 0042260 M E [ t r e e . p o s i t i o n 0042300 , t r e e . l e n g t h ] ; \r 0042320 t r e e D a t a : \t E x p u n i 0042340 t s 2 P r o d D a t a _ N A 0042360 R R O W [ t r e e . d a t a ] ; 0042400 \r t e m p 0 _ M a k e I n t 0042420 e g e r E v E x p [ 3 7 ] ; \r E 0042440 N D \r E N D ; \r \r E x p w o r d 0042460 s P r o d E v a l u a t e : \t P 0042500 U B L I C P R O C [ r e f : 0042520 R E F A N Y ] R E T U R N S 0042540 [ t e m p 0 : E v a l u a t e 0042560 d E x p r e s s i o n N o d e ] 0042600 = \r B E G I N \r t r e e : \t E 0042620 x p N o d e _ N A R R O W [ r 0042640 e f ] ; \r B E G I N \r E N A B L 0042660 E T h r e e C 4 S u p p o r t 0042700 . G e t S o u r c e I n f o = 0042720 > R E S U M E [ t r e e . p o 0042740 s i t i o n , t r e e . l e n 0042760 g t h ] ; \r t r e e D a t a : \t 0043000 E x p w o r d s P r o d D a t a 0043020 _ N A R R O W [ t r e e . d 0043040 a t a ] ; \r t e m p 0 _ M a 0043060 k e I n t e g e r E v E x p [ 3 0043100 8 ] ; \r E N D \r E N D ; \r \r E x 0043120 p w o r d s 2 P r o d E v a l u 0043140 a t e : \t P U B L I C P R O C 0043160 [ r e f : R E F A N Y ] R 0043200 E T U R N S [ t e m p 0 : E v 0043220 a l u a t e d E x p r e s s i o 0043240 n N o d e ] = \r B E G I N \r t 0043260 r e e : \t E x p N o d e _ N A 0043300 R R O W [ r e f ] ; \r B E G I N 0043320 \r E N A B L E T h r e e C 4 S 0043340 u p p o r t . G e t S o u r c e 0043360 I n f o = > R E S U M E [ t 0043400 r e e . p o s i t i o n , t r 0043420 e e . l e n g t h ] ; \r t r e e 0043440 D a t a : \t E x p w o r d s 2 P 0043460 r o d D a t a _ N A R R O W 0043500 [ t r e e . d a t a ] ; \r t e m 0043520 p 0 _ M a k e I n t e g e r 0043540 E v E x p [ 3 9 ] ; \r E N D \r E 0043560 N D ; \r \r E x p i s t y p e P r 0043600 o d E v a l u a t e : \t P U B L 0043620 I C P R O C [ r e f : R E F 0043640 A N Y ] R E T U R N S [ t e 0043660 m p 0 : E v a l u a t e d E x 0043700 p r e s s i o n N o d e ] = \r 0043720 B E G I N \r t r e e : \t E x p N 0043740 o d e _ N A R R O W [ r e f ] 0043760 ; \r B E G I N \r E N A B L E T 0044000 h r e e C 4 S u p p o r t . G e 0044020 t S o u r c e I n f o = > R 0044040 E S U M E [ t r e e . p o s i t 0044060 i o n , t r e e . l e n g t h 0044100 ] ; \r t r e e D a t a : \t E x p 0044120 i s t y p e P r o d D a t a _ 0044140 N A R R O W [ t r e e . d a t 0044160 a ] ; \r t e m p 0 _ M a k e 0044200 I n t e g e r E v E x p [ 4 0 ] 0044220 ; \r E N D \r E N D ; \r \r E x p a 0044240 d d r e s s P r o d E v a l u a 0044260 t e : \t P U B L I C P R O C [ 0044300 r e f : R E F A N Y ] R E 0044320 T U R N S [ t e m p 0 : E v a 0044340 l u a t e d E x p r e s s i o n 0044360 N o d e ] = \r B E G I N \r t r 0044400 e e : \t E x p N o d e _ N A R 0044420 R O W [ r e f ] ; \r B E G I N \r 0044440 E N A B L E T h r e e C 4 S u 0044460 p p o r t . G e t S o u r c e I 0044500 n f o = > R E S U M E [ t r 0044520 e e . p o s i t i o n , t r e 0044540 e . l e n g t h ] ; \r t r e e D 0044560 a t a : \t E x p a d d r e s s P 0044600 r o d D a t a _ N A R R O W 0044620 [ t r e e . d a t a ] ; \r t e m 0044640 p 0 _ M a k e I n t e g e r 0044660 E v E x p [ 4 1 ] ; \r E N D \r E 0044700 N D ; \r \r E x p d e s c r i p t 0044720 o r P r o d E v a l u a t e : \t 0044740 P U B L I C P R O C [ r e f : 0044760 R E F A N Y ] R E T U R N 0045000 S [ t e m p 0 : E v a l u a t 0045020 e d E x p r e s s i o n N o d e 0045040 ] = \r B E G I N \r t r e e : \t 0045060 E x p N o d e _ N A R R O W [ 0045100 r e f ] ; \r B E G I N \r E N A B 0045120 L E T h r e e C 4 S u p p o r 0045140 t . G e t S o u r c e I n f o 0045160 = > R E S U M E [ t r e e . p 0045200 o s i t i o n , t r e e . l e 0045220 n g t h ] ; \r t r e e D a t a : 0045240 \t E x p d e s c r i p t o r P r 0045260 o d D a t a _ N A R R O W [ 0045300 t r e e . d a t a ] ; \r t e m p 0045320 0 _ M a k e I n t e g e r E 0045340 v E x p [ 4 2 ] ; \r E N D \r E N 0045360 D ; \r \r E x p e r r o r P r o d 0045400 E v a l u a t e : \t P U B L I C 0045420 P R O C [ r e f : R E F A 0045440 N Y ] R E T U R N S [ t e m p 0045460 0 : E v a l u a t e d E x p r 0045500 e s s i o n N o d e ] = \r B E 0045520 G I N \r t r e e : \t E x p N o d 0045540 e _ N A R R O W [ r e f ] ; \r 0045560 B E G I N \r E N A B L E T h r 0045600 e e C 4 S u p p o r t . G e t S 0045620 o u r c e I n f o = > R E S 0045640 U M E [ t r e e . p o s i t i o 0045660 n , t r e e . l e n g t h ] ; 0045700 \r t e m p 0 _ M a k e I n t 0045720 e g e r E v E x p [ 4 3 ] ; \r E 0045740 N D \r E N D ; \r \r E x p t r a n 0045760 s f e r P r o d E v a l u a t e 0046000 : \t P U B L I C P R O C [ r e 0046020 f : R E F A N Y ] R E T U 0046040 R N S [ t e m p 0 : E v a l u 0046060 a t e d E x p r e s s i o n N o 0046100 d e ] = \r B E G I N \r t r e e 0046120 : \t E x p N o d e _ N A R R O 0046140 W [ r e f ] ; \r B E G I N \r E N 0046160 A B L E T h r e e C 4 S u p p 0046200 o r t . G e t S o u r c e I n f 0046220 o = > R E S U M E [ t r e e 0046240 . p o s i t i o n , t r e e . 0046260 l e n g t h ] ; \r t r e e D a t 0046300 a : \t E x p t r a n s f e r P r 0046320 o d D a t a _ N A R R O W [ 0046340 t r e e . d a t a ] ; \r t e m p 0046360 0 _ M a k e I n t e g e r E 0046400 v E x p [ 4 4 ] ; \r E N D \r E N 0046420 D ; \r \r N u m d e c i m a l P r 0046440 o d E v a l u a t e : \t P U B L 0046460 I C P R O C [ r e f : R E F 0046500 A N Y ] R E T U R N S [ t e 0046520 m p 0 : E v a l u a t e d E x 0046540 p r e s s i o n N o d e ] = \r 0046560 B E G I N \r t r e e : \t N u m N 0046600 o d e _ N A R R O W [ r e f ] 0046620 ; \r B E G I N \r E N A B L E T 0046640 h r e e C 4 S u p p o r t . G e 0046660 t S o u r c e I n f o = > R 0046700 E S U M E [ t r e e . p o s i t 0046720 i o n , t r e e . l e n g t h 0046740 ] ; \r t r e e D a t a : \t N u m 0046760 d e c i m a l P r o d D a t a 0047000 _ N A R R O W [ t r e e . d a 0047020 t a ] ; \r t e m p 0 _ M a k 0047040 e I n t e g e r E v E x p [ D e 0047060 c i m a l n u m V a l u e [ t r 0047100 e e D a t a . D e c i m a l n u 0047120 m ] ] ; \r E N D \r E N D ; \r \r N 0047140 u m o c t a l P r o d E v a l u 0047160 a t e : \t P U B L I C P R O C 0047200 [ r e f : R E F A N Y ] R 0047220 E T U R N S [ t e m p 0 : E v 0047240 a l u a t e d E x p r e s s i o 0047260 n N o d e ] = \r B E G I N \r t 0047300 r e e : \t N u m N o d e _ N A 0047320 R R O W [ r e f ] ; \r B E G I N 0047340 \r E N A B L E T h r e e C 4 S 0047360 u p p o r t . G e t S o u r c e 0047400 I n f o = > R E S U M E [ t 0047420 r e e . p o s i t i o n , t r 0047440 e e . l e n g t h ] ; \r t r e e 0047460 D a t a : \t N u m o c t a l P r 0047500 o d D a t a _ N A R R O W [ 0047520 t r e e . d a t a ] ; \r t e m p 0047540 0 _ M a k e I n t e g e r E 0047560 v E x p [ O c t a l n u m V a l 0047600 u e [ t r e e D a t a . O c t a 0047620 l n u m ] ] ; \r E N D \r E N D ; 0047640 \r \r N u m h e x P r o d E v a l 0047660 u a t e : \t P U B L I C P R O 0047700 C [ r e f : R E F A N Y ] 0047720 R E T U R N S [ t e m p 0 : E 0047740 v a l u a t e d E x p r e s s i 0047760 o n N o d e ] = \r B E G I N \r 0050000 t r e e : \t N u m N o d e _ N 0050020 A R R O W [ r e f ] ; \r B E G I 0050040 N \r E N A B L E T h r e e C 4 0050060 S u p p o r t . G e t S o u r c 0050100 e I n f o = > R E S U M E [ 0050120 t r e e . p o s i t i o n , t 0050140 r e e . l e n g t h ] ; \r t r e 0050160 e D a t a : \t N u m h e x P r o 0050200 d D a t a _ N A R R O W [ t 0050220 r e e . d a t a ] ; \r t e m p 0 0050240 _ M a k e I n t e g e r E v 0050260 E x p [ H e x n u m V a l u e [ 0050300 t r e e D a t a . H e x n u m ] 0050320 ] ; \r E N D \r E N D ; \r \r E N D 0050340 . . \r 0050343