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