$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron2.0>Methods-Derived>NoopMethods7Impl.Mesa!9 0000000 - - N o o p M e t h o d s 7 I 0000020 m p l . m e s a \r - - C o p 0000040 y r i g h t 323 1 9 8 7 b y 0000060 X e r o x C o r p o r a t i 0000100 o n . A l l r i g h t s 0000120 r e s e r v e d . \r - - G e 0000140 n e r a t e d b y h e d e r 0000160 m a n . p a a t A u g u s t 0000200 2 , 1 9 8 7 4 : 4 9 : 1 1 0000220 p m P D T \r - - u s i 0000240 n g T h r e e C a s a b a F o 0000260 u r [ 1 . 2 ] o f J u n e 0000300 1 , 1 9 8 7 6 : 0 0 : 0 0 0000320 p m P D T \r \r D I R E C T O 0000340 R Y \r \t S a f f r o n A G 9 D e 0000360 f , \r \t T h r e e C 4 S u p p o 0000400 r t , \r \t S a f f r o n A T D e 0000420 f ; \r \r N o o p M e t h o d s 7 0000440 I m p l : C E D A R P R O G 0000460 R A M I M P O R T S T h r e 0000500 e C 4 S u p p o r t E X P O R 0000520 T S S a f f r o n A G 9 D e f 0000540 = \r B E G I N \r O P E N S a 0000560 f f r o n A G 9 D e f , T h r 0000600 e e C 4 S u p p o r t , S a f 0000620 f r o n A T D e f ; \r M o d u l 0000640 e P i m p l P r o d f o o : \t P 0000660 U B L I C P R O C [ r e f : 0000700 R E F A N Y ] R E T U R N S 0000720 [ t e m p 0 : I N T ] = \r B 0000740 E G I N \r t r e e : \t M o d u l 0000760 e P N o d e _ N A R R O W [ r 0001000 e f ] ; \r B E G I N \r E N A B L 0001020 E T h r e e C 4 S u p p o r t 0001040 . G e t S o u r c e I n f o = 0001060 > R E S U M E [ t r e e . p o 0001100 s i t i o n , t r e e . l e n 0001120 g t h ] ; \r t r e e D a t a : \t 0001140 M o d u l e P i m p l P r o d D 0001160 a t a _ N A R R O W [ t r e 0001200 e . d a t a ] ; \r t e m p 0 _ 0001220 0 ; \r E N D \r E N D ; \r \r M o 0001240 d u l e P d e f P r o d f o o : 0001260 \t P U B L I C P R O C [ r e f 0001300 : R E F A N Y ] R E T U R 0001320 N S [ t e m p 0 : I N T ] = 0001340 \r B E G I N \r t r e e : \t M o d 0001360 u l e P N o d e _ N A R R O W 0001400 [ r e f ] ; \r B E G I N \r E N A 0001420 B L E T h r e e C 4 S u p p o 0001440 r t . G e t S o u r c e I n f o 0001460 = > R E S U M E [ t r e e . 0001500 p o s i t i o n , t r e e . l 0001520 e n g t h ] ; \r t r e e D a t a 0001540 : \t M o d u l e P d e f P r o d 0001560 D a t a _ N A R R O W [ t r 0001600 e e . d a t a ] ; \r t e m p 0 0001620 _ 0 ; \r E N D \r E N D ; \r \r D 0001640 i r e c t o r y e m p t y P r o 0001660 d f o o : \t P U B L I C P R O 0001700 C [ r e f : R E F A N Y ] 0001720 R E T U R N S [ t e m p 0 : I 0001740 N T ] = \r B E G I N \r t r e e 0001760 : \t D i r e c t o r y N o d e _ 0002000 N A R R O W [ r e f ] ; \r B E 0002020 G I N \r E N A B L E T h r e e 0002040 C 4 S u p p o r t . G e t S o u 0002060 r c e I n f o = > R E S U M 0002100 E [ t r e e . p o s i t i o n , 0002120 t r e e . l e n g t h ] ; \r t 0002140 e m p 0 _ 0 ; \r E N D \r E N 0002160 D ; \r \r D i r e c t o r y m o r 0002200 e P r o d f o o : \t P U B L I C 0002220 P R O C [ r e f : R E F A 0002240 N Y ] R E T U R N S [ t e m p 0002260 0 : I N T ] = \r B E G I N \r 0002300 t r e e : \t D i r e c t o r y N 0002320 o d e _ N A R R O W [ r e f ] 0002340 ; \r B E G I N \r E N A B L E T 0002360 h r e e C 4 S u p p o r t . G e 0002400 t S o u r c e I n f o = > R 0002420 E S U M E [ t r e e . p o s i t 0002440 i o n , t r e e . l e n g t h 0002460 ] ; \r t r e e D a t a : \t D i r 0002500 e c t o r y m o r e P r o d D a 0002520 t a _ N A R R O W [ t r e e 0002540 . d a t a ] ; \r t e m p 0 _ 0002560 0 ; \r E N D \r E N D ; \r \r I n c 0002600 l u d e I t e m f r o m p P r o 0002620 d f o o : \t P U B L I C P R O 0002640 C [ r e f : R E F A N Y ] 0002660 R E T U R N S [ t e m p 0 : I 0002700 N T ] = \r B E G I N \r t r e e 0002720 : \t I n c l u d e I t e m N o d 0002740 e _ N A R R O W [ r e f ] ; \r 0002760 B E G I N \r E N A B L E T h r 0003000 e e C 4 S u p p o r t . G e t S 0003020 o u r c e I n f o = > R E S 0003040 U M E [ t r e e . p o s i t i o 0003060 n , t r e e . l e n g t h ] ; 0003100 \r t r e e D a t a : \t I n c l u 0003120 d e I t e m f r o m p P r o d D 0003140 a t a _ N A R R O W [ t r e 0003160 e . d a t a ] ; \r t e m p 0 _ 0003200 0 ; \r E N D \r E N D ; \r \r I n 0003220 c l u d e I t e m t y p e P r o 0003240 d f o o : \t P U B L I C P R O 0003260 C [ r e f : R E F A N Y ] 0003300 R E T U R N S [ t e m p 0 : I 0003320 N T ] = \r B E G I N \r t r e e 0003340 : \t I n c l u d e I t e m N o d 0003360 e _ N A R R O W [ r e f ] ; \r 0003400 B E G I N \r E N A B L E T h r 0003420 e e C 4 S u p p o r t . G e t S 0003440 o u r c e I n f o = > R E S 0003460 U M E [ t r e e . p o s i t i o 0003500 n , t r e e . l e n g t h ] ; 0003520 \r t r e e D a t a : \t I n c l u 0003540 d e I t e m t y p e P r o d D a 0003560 t a _ N A R R O W [ t r e e 0003600 . d a t a ] ; \r t e m p 0 _ 0003620 0 ; \r E N D \r E N D ; \r \r I n c 0003640 l u d e I t e m p l a i n P r o 0003660 d f o o : \t P U B L I C P R O 0003700 C [ r e f : R E F A N Y ] 0003720 R E T U R N S [ t e m p 0 : I 0003740 N T ] = \r B E G I N \r t r e e 0003760 : \t I n c l u d e I t e m N o d 0004000 e _ N A R R O W [ r e f ] ; \r 0004020 B E G I N \r E N A B L E T h r 0004040 e e C 4 S u p p o r t . G e t S 0004060 o u r c e I n f o = > R E S 0004100 U M E [ t r e e . p o s i t i o 0004120 n , t r e e . l e n g t h ] ; 0004140 \r t r e e D a t a : \t I n c l u 0004160 d e I t e m p l a i n P r o d D 0004200 a t a _ N A R R O W [ t r e 0004220 e . d a t a ] ; \r t e m p 0 _ 0004240 0 ; \r E N D \r E N D ; \r \r I n 0004260 c l u d e I t e m t y p e a n d 0004300 i d P r o d f o o : \t P U B L I 0004320 C P R O C [ r e f : R E F 0004340 A N Y ] R E T U R N S [ t e m 0004360 p 0 : I N T ] = \r B E G I N 0004400 \r t r e e : \t I n c l u d e I t 0004420 e m N o d e _ N A R R O W [ r 0004440 e f ] ; \r B E G I N \r E N A B L 0004460 E T h r e e C 4 S u p p o r t 0004500 . G e t S o u r c e I n f o = 0004520 > R E S U M E [ t r e e . p o 0004540 s i t i o n , t r e e . l e n 0004560 g t h ] ; \r t r e e D a t a : \t 0004600 I n c l u d e I t e m t y p e a 0004620 n d i d P r o d D a t a _ N 0004640 A R R O W [ t r e e . d a t a ] 0004660 ; \r t e m p 0 _ 0 ; \r E N D 0004700 \r E N D ; \r \r U s i n g r e s t 0004720 r i c t e d P r o d f o o : \t P 0004740 U B L I C P R O C [ r e f : 0004760 R E F A N Y ] R E T U R N S 0005000 [ t e m p 0 : I N T ] = \r B 0005020 E G I N \r t r e e : \t U s i n g 0005040 N o d e _ N A R R O W [ r e f 0005060 ] ; \r B E G I N \r E N A B L E 0005100 T h r e e C 4 S u p p o r t . G 0005120 e t S o u r c e I n f o = > 0005140 R E S U M E [ t r e e . p o s i 0005160 t i o n , t r e e . l e n g t 0005200 h ] ; \r t r e e D a t a : \t U s 0005220 i n g r e s t r i c t e d P r o 0005240 d D a t a _ N A R R O W [ t 0005260 r e e . d a t a ] ; \r t e m p 0 0005300 _ 0 ; \r E N D \r E N D ; \r \r 0005320 U s i n g n o t h i n g P r o d 0005340 f o o : \t P U B L I C P R O C 0005360 [ r e f : R E F A N Y ] R 0005400 E T U R N S [ t e m p 0 : I N 0005420 T ] = \r B E G I N \r t r e e : 0005440 \t U s i n g N o d e _ N A R R 0005460 O W [ r e f ] ; \r B E G I N \r E 0005500 N A B L E T h r e e C 4 S u p 0005520 p o r t . G e t S o u r c e I n 0005540 f o = > R E S U M E [ t r e 0005560 e . p o s i t i o n , t r e e 0005600 . l e n g t h ] ; \r t e m p 0 0005620 _ 0 ; \r E N D \r E N D ; \r \r U 0005640 s i n g u n r e s t r i c t e d 0005660 P r o d f o o : \t P U B L I C 0005700 P R O C [ r e f : R E F A N 0005720 Y ] R E T U R N S [ t e m p 0 0005740 : I N T ] = \r B E G I N \r t 0005760 r e e : \t U s i n g N o d e _ 0006000 N A R R O W [ r e f ] ; \r B E G 0006020 I N \r E N A B L E T h r e e C 0006040 4 S u p p o r t . G e t S o u r 0006060 c e I n f o = > R E S U M E 0006100 [ t r e e . p o s i t i o n , 0006120 t r e e . l e n g t h ] ; \r t e 0006140 m p 0 _ 0 ; \r E N D \r E N D 0006160 ; \r \r D e f B o d y P r o d f o 0006200 o : \t P U B L I C P R O C [ r 0006220 e f : R E F A N Y ] R E T 0006240 U R N S [ t e m p 0 : I N T ] 0006260 = \r B E G I N \r t r e e : \t D 0006300 e f B o d y N o d e _ N A R R 0006320 O W [ r e f ] ; \r B E G I N \r E 0006340 N A B L E T h r e e C 4 S u p 0006360 p o r t . G e t S o u r c e I n 0006400 f o = > R E S U M E [ t r e 0006420 e . p o s i t i o n , t r e e 0006440 . l e n g t h ] ; \r t r e e D a 0006460 t a : \t D e f B o d y P r o d D 0006500 a t a _ N A R R O W [ t r e 0006520 e . d a t a ] ; \r t e m p 0 _ 0006540 0 ; \r E N D \r E N D ; \r \r D e 0006560 f H e a d P r o d f o o : \t P U 0006600 B L I C P R O C [ r e f : R 0006620 E F A N Y ] R E T U R N S [ 0006640 t e m p 0 : I N T ] = \r B E 0006660 G I N \r t r e e : \t D e f H e a 0006700 d N o d e _ N A R R O W [ r e 0006720 f ] ; \r B E G I N \r E N A B L E 0006740 T h r e e C 4 S u p p o r t . 0006760 G e t S o u r c e I n f o = > 0007000 R E S U M E [ t r e e . p o s 0007020 i t i o n , t r e e . l e n g 0007040 t h ] ; \r t r e e D a t a : \t D 0007060 e f H e a d P r o d D a t a _ 0007100 N A R R O W [ t r e e . d a t 0007120 a ] ; \r t e m p 0 _ 0 ; \r E 0007140 N D \r E N D ; \r \r C e d a r y e 0007160 s P r o d f o o : \t P U B L I C 0007200 P R O C [ r e f : R E F A 0007220 N Y ] R E T U R N S [ t e m p 0007240 0 : I N T ] = \r B E G I N \r 0007260 t r e e : \t C e d a r N o d e _ 0007300 N A R R O W [ r e f ] ; \r B E 0007320 G I N \r E N A B L E T h r e e 0007340 C 4 S u p p o r t . G e t S o u 0007360 r c e I n f o = > R E S U M 0007400 E [ t r e e . p o s i t i o n , 0007420 t r e e . l e n g t h ] ; \r t 0007440 e m p 0 _ 0 ; \r E N D \r E N 0007460 D ; \r \r C e d a r n o P r o d f 0007500 o o : \t P U B L I C P R O C [ 0007520 r e f : R E F A N Y ] R E 0007540 T U R N S [ t e m p 0 : I N T 0007560 ] = \r B E G I N \r t r e e : \t 0007600 C e d a r N o d e _ N A R R O 0007620 W [ r e f ] ; \r B E G I N \r E N 0007640 A B L E T h r e e C 4 S u p p 0007660 o r t . G e t S o u r c e I n f 0007700 o = > R E S U M E [ t r e e 0007720 . p o s i t i o n , t r e e . 0007740 l e n g t h ] ; \r t e m p 0 _ 0007760 0 ; \r E N D \r E N D ; \r \r P r 0010000 o g H e a d P r o d f o o : \t P 0010020 U B L I C P R O C [ r e f : 0010040 R E F A N Y ] R E T U R N S 0010060 [ t e m p 0 : I N T ] = \r B 0010100 E G I N \r t r e e : \t P r o g H 0010120 e a d N o d e _ N A R R O W [ 0010140 r e f ] ; \r B E G I N \r E N A B 0010160 L E T h r e e C 4 S u p p o r 0010200 t . G e t S o u r c e I n f o 0010220 = > R E S U M E [ t r e e . p 0010240 o s i t i o n , t r e e . l e 0010260 n g t h ] ; \r t r e e D a t a : 0010300 \t P r o g H e a d P r o d D a t 0010320 a _ N A R R O W [ t r e e . 0010340 d a t a ] ; \r t e m p 0 _ 0 0010360 ; \r E N D \r E N D ; \r \r C l a s 0010400 s p r o g r a m P r o d f o o : 0010420 \t P U B L I C P R O C [ r e f 0010440 : R E F A N Y ] R E T U R 0010460 N S [ t e m p 0 : I N T ] = 0010500 \r B E G I N \r t r e e : \t C l a 0010520 s s N o d e _ N A R R O W [ r 0010540 e f ] ; \r B E G I N \r E N A B L 0010560 E T h r e e C 4 S u p p o r t 0010600 . G e t S o u r c e I n f o = 0010620 > R E S U M E [ t r e e . p o 0010640 s i t i o n , t r e e . l e n 0010660 g t h ] ; \r t e m p 0 _ 0 ; 0010700 \r E N D \r E N D ; \r \r C l a s s 0010720 m o n i t o r P r o d f o o : \t 0010740 P U B L I C P R O C [ r e f : 0010760 R E F A N Y ] R E T U R N 0011000 S [ t e m p 0 : I N T ] = \r 0011020 B E G I N \r t r e e : \t C l a s 0011040 s N o d e _ N A R R O W [ r e 0011060 f ] ; \r B E G I N \r E N A B L E 0011100 T h r e e C 4 S u p p o r t . 0011120 G e t S o u r c e I n f o = > 0011140 R E S U M E [ t r e e . p o s 0011160 i t i o n , t r e e . l e n g 0011200 t h ] ; \r t e m p 0 _ 0 ; \r 0011220 E N D \r E N D ; \r \r I n t e r f 0011240 a c e P r o d f o o : \t P U B L 0011260 I C P R O C [ r e f : R E F 0011300 A N Y ] R E T U R N S [ t e 0011320 m p 0 : I N T ] = \r B E G I 0011340 N \r t r e e : \t I n t e r f a c 0011360 e N o d e _ N A R R O W [ r e 0011400 f ] ; \r B E G I N \r E N A B L E 0011420 T h r e e C 4 S u p p o r t . 0011440 G e t S o u r c e I n f o = > 0011460 R E S U M E [ t r e e . p o s 0011500 i t i o n , t r e e . l e n g 0011520 t h ] ; \r t r e e D a t a : \t I 0011540 n t e r f a c e P r o d D a t a 0011560 _ N A R R O W [ t r e e . d 0011600 a t a ] ; \r t e m p 0 _ 0 ; 0011620 \r E N D \r E N D ; \r \r M o d u l 0011640 e L i s t e m p t y P r o d f o 0011660 o : \t P U B L I C P R O C [ r 0011700 e f : R E F A N Y ] R E T 0011720 U R N S [ t e m p 0 : I N T ] 0011740 = \r B E G I N \r t r e e : \t M 0011760 o d u l e L i s t N o d e _ N 0012000 A R R O W [ r e f ] ; \r B E G I 0012020 N \r E N A B L E T h r e e C 4 0012040 S u p p o r t . G e t S o u r c 0012060 e I n f o = > R E S U M E [ 0012100 t r e e . p o s i t i o n , t 0012120 r e e . l e n g t h ] ; \r t e m 0012140 p 0 _ 0 ; \r E N D \r E N D ; 0012160 \r \r M o d u l e L i s t m o r e 0012200 P r o d f o o : \t P U B L I C 0012220 P R O C [ r e f : R E F A N 0012240 Y ] R E T U R N S [ t e m p 0 0012260 : I N T ] = \r B E G I N \r t 0012300 r e e : \t M o d u l e L i s t N 0012320 o d e _ N A R R O W [ r e f ] 0012340 ; \r B E G I N \r E N A B L E T 0012360 h r e e C 4 S u p p o r t . G e 0012400 t S o u r c e I n f o = > R 0012420 E S U M E [ t r e e . p o s i t 0012440 i o n , t r e e . l e n g t h 0012460 ] ; \r t r e e D a t a : \t M o d 0012500 u l e L i s t m o r e P r o d D 0012520 a t a _ N A R R O W [ t r e 0012540 e . d a t a ] ; \r t e m p 0 _ 0012560 0 ; \r E N D \r E N D ; \r \r M o 0012600 d u l e I t e m o n e P r o d f 0012620 o o : \t P U B L I C P R O C [ 0012640 r e f : R E F A N Y ] R E 0012660 T U R N S [ t e m p 0 : I N T 0012700 ] = \r B E G I N \r t r e e : \t 0012720 M o d u l e I t e m N o d e _ 0012740 N A R R O W [ r e f ] ; \r B E G 0012760 I N \r E N A B L E T h r e e C 0013000 4 S u p p o r t . G e t S o u r 0013020 c e I n f o = > R E S U M E 0013040 [ t r e e . p o s i t i o n , 0013060 t r e e . l e n g t h ] ; \r t r 0013100 e e D a t a : \t M o d u l e I t 0013120 e m o n e P r o d D a t a _ 0013140 N A R R O W [ t r e e . d a t a 0013160 ] ; \r t e m p 0 _ 0 ; \r E N 0013200 D \r E N D ; \r \r M o d u l e I t 0013220 e m t w o P r o d f o o : \t P U 0013240 B L I C P R O C [ r e f : R 0013260 E F A N Y ] R E T U R N S [ 0013300 t e m p 0 : I N T ] = \r B E 0013320 G I N \r t r e e : \t M o d u l e 0013340 I t e m N o d e _ N A R R O W 0013360 [ r e f ] ; \r B E G I N \r E N A 0013400 B L E T h r e e C 4 S u p p o 0013420 r t . G e t S o u r c e I n f o 0013440 = > R E S U M E [ t r e e . 0013460 p o s i t i o n , t r e e . l 0013500 e n g t h ] ; \r t r e e D a t a 0013520 : \t M o d u l e I t e m t w o P 0013540 r o d D a t a _ N A R R O W 0013560 [ t r e e . d a t a ] ; \r t e m 0013600 p 0 _ 0 ; \r E N D \r E N D ; 0013620 \r \r S h a r e s a b s e n t P r 0013640 o d f o o : \t P U B L I C P R 0013660 O C [ r e f : R E F A N Y ] 0013700 R E T U R N S [ t e m p 0 : 0013720 I N T ] = \r B E G I N \r t r e 0013740 e : \t S h a r e s N o d e _ N 0013760 A R R O W [ r e f ] ; \r B E G I 0014000 N \r E N A B L E T h r e e C 4 0014020 S u p p o r t . G e t S o u r c 0014040 e I n f o = > R E S U M E [ 0014060 t r e e . p o s i t i o n , t 0014100 r e e . l e n g t h ] ; \r t e m 0014120 p 0 _ 0 ; \r E N D \r E N D ; 0014140 \r \r S h a r e s p r e s e n t P 0014160 r o d f o o : \t P U B L I C P 0014200 R O C [ r e f : R E F A N Y 0014220 ] R E T U R N S [ t e m p 0 : 0014240 I N T ] = \r B E G I N \r t r 0014260 e e : \t S h a r e s N o d e _ 0014300 N A R R O W [ r e f ] ; \r B E G 0014320 I N \r E N A B L E T h r e e C 0014340 4 S u p p o r t . G e t S o u r 0014360 c e I n f o = > R E S U M E 0014400 [ t r e e . p o s i t i o n , 0014420 t r e e . l e n g t h ] ; \r t r 0014440 e e D a t a : \t S h a r e s p r 0014460 e s e n t P r o d D a t a _ 0014500 N A R R O W [ t r e e . d a t a 0014520 ] ; \r t e m p 0 _ 0 ; \r E N 0014540 D \r E N D ; \r \r L o c k s a b s 0014560 e n t P r o d f o o : \t P U B L 0014600 I C P R O C [ r e f : R E F 0014620 A N Y ] R E T U R N S [ t e 0014640 m p 0 : I N T ] = \r B E G I 0014660 N \r t r e e : \t L o c k s N o d 0014700 e _ N A R R O W [ r e f ] ; \r 0014720 B E G I N \r E N A B L E T h r 0014740 e e C 4 S u p p o r t . G e t S 0014760 o u r c e I n f o = > R E S 0015000 U M E [ t r e e . p o s i t i o 0015020 n , t r e e . l e n g t h ] ; 0015040 \r t e m p 0 _ 0 ; \r E N D \r 0015060 E N D ; \r \r L o c k s p r e s e 0015100 n t P r o d f o o : \t P U B L I 0015120 C P R O C [ r e f : R E F 0015140 A N Y ] R E T U R N S [ t e m 0015160 p 0 : I N T ] = \r B E G I N 0015200 \r t r e e : \t L o c k s N o d e 0015220 _ N A R R O W [ r e f ] ; \r B 0015240 E G I N \r E N A B L E T h r e 0015260 e C 4 S u p p o r t . G e t S o 0015300 u r c e I n f o = > R E S U 0015320 M E [ t r e e . p o s i t i o n 0015340 , t r e e . l e n g t h ] ; \r 0015360 t r e e D a t a : \t L o c k s p 0015400 r e s e n t P r o d D a t a _ 0015420 N A R R O W [ t r e e . d a t 0015440 a ] ; \r t e m p 0 _ 0 ; \r E 0015460 N D \r E N D ; \r \r L a m b d a a 0015500 b s e n t P r o d f o o : \t P U 0015520 B L I C P R O C [ r e f : R 0015540 E F A N Y ] R E T U R N S [ 0015560 t e m p 0 : I N T ] = \r B E 0015600 G I N \r t r e e : \t L a m b d a 0015620 N o d e _ N A R R O W [ r e f 0015640 ] ; \r B E G I N \r E N A B L E 0015660 T h r e e C 4 S u p p o r t . G 0015700 e t S o u r c e I n f o = > 0015720 R E S U M E [ t r e e . p o s i 0015740 t i o n , t r e e . l e n g t 0015760 h ] ; \r t e m p 0 _ 0 ; \r E 0016000 N D \r E N D ; \r \r L a m b d a p 0016020 r e s e n t P r o d f o o : \t P 0016040 U B L I C P R O C [ r e f : 0016060 R E F A N Y ] R E T U R N S 0016100 [ t e m p 0 : I N T ] = \r B 0016120 E G I N \r t r e e : \t L a m b d 0016140 a N o d e _ N A R R O W [ r e 0016160 f ] ; \r B E G I N \r E N A B L E 0016200 T h r e e C 4 S u p p o r t . 0016220 G e t S o u r c e I n f o = > 0016240 R E S U M E [ t r e e . p o s 0016260 i t i o n , t r e e . l e n g 0016300 t h ] ; \r t r e e D a t a : \t L 0016320 a m b d a p r e s e n t P r o d 0016340 D a t a _ N A R R O W [ t r 0016360 e e . d a t a ] ; \r t e m p 0 0016400 _ 0 ; \r E N D \r E N D ; \r \r E 0016420 N D . . \r 0016425