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