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