$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronAG8Def.Mesa!34 0000000 - - S a f f r o n A G 8 D e f 0000020 . m e s a \r - - C o p y r i 0000040 g h t 323 1 9 8 7 b y X e 0000060 r o x C o r p o r a t i o n . 0000100 A l l r i g h t s r e s 0000120 e r v e d . \r - - G e n e r 0000140 a t e d b y R a u e n . p a 0000160 a t S e p t e m b e r 1 , 0000200 1 9 8 8 7 : 2 5 : 0 2 p m 0000220 P D T \r - - u s i n g 0000240 T h r e e C a s a b a F o u r 0000260 [ 1 . 2 ] o f J u n e 1 , 0000300 1 9 8 7 6 : 0 0 : 0 0 p m 0000320 P D T \r \r D I R E C T O R Y \r 0000340 \t S a f f r o n T r e e D e c l 0000360 s D e f , \r \t S a f f r o n G e 0000400 n e r i c D e f , \r \t S a f f r 0000420 o n A T D e f ; \r \r S a f f r o 0000440 n A G 8 D e f : C E D A R D 0000460 E F I N I T I O N S = \r B E 0000500 G I N \r O P E N S a f f r o n 0000520 T r e e D e c l s D e f , S a 0000540 f f r o n G e n e r i c D e f , 0000560 S a f f r o n A T D e f ; \r \r 0000600 - - I d L i s t o n e P r o d 0000620 \r \r I d L i s t o n e P r o d D 0000640 a t a : \t T Y P E = R E F 0000660 I d L i s t o n e P r o d D a t 0000700 a B o d y ; \r I d L i s t o n e 0000720 P r o d D a t a B o d y : \t T Y 0000740 P E = R E C O R D [ \r I d : 0000760 I d N o d e ] ; \r \r I d L i s 0001000 t o n e P r o d P r o c s : \t I 0001020 d L i s t N o d e P r o c s ; \r 0001040 \r B u i l d I d L i s t o n e P 0001060 r o d N o d e : \t P R O C [ p o 0001100 s i t i o n : I N T , l e n 0001120 g t h : I N T , I d : I d 0001140 N o d e ] \r \t R E T U R N S [ I 0001160 d L i s t N o d e ] ; \r \r I d L 0001200 i s t o n e P r o d A d d N a m 0001220 e s T o U n i o n L i s t : \t A 0001240 d d N a m e s T o U n i o n L i 0001260 s t P r o c T y p e ; \r I d L i 0001300 s t o n e P r o d A d d V a r i 0001320 a n t N a m e s T o E n u m T y 0001340 p e T G N : \t A d d V a r i a n 0001360 t N a m e s T o E n u m T y p e 0001400 T G N P r o c T y p e ; \r I d L 0001420 i s t o n e P r o d A d d I d s 0001440 T o R e s t r i c t i o n L i s 0001460 t : \t A d d I d s T o R e s t r 0001500 i c t i o n L i s t P r o c T y 0001520 p e ; \r \r - - I d L i s t m o 0001540 r e P r o d \r \r I d L i s t m o 0001560 r e P r o d D a t a : \t T Y P E 0001600 = R E F I d L i s t m o r 0001620 e P r o d D a t a B o d y ; \r I 0001640 d L i s t m o r e P r o d D a t 0001660 a B o d y : \t T Y P E = R E 0001700 C O R D [ \r I d : I d N o d e 0001720 , I d L i s t : I d L i s t 0001740 N o d e ] ; \r \r I d L i s t m o 0001760 r e P r o d P r o c s : \t I d L 0002000 i s t N o d e P r o c s ; \r \r B 0002020 u i l d I d L i s t m o r e P r 0002040 o d N o d e : \t P R O C [ p o s 0002060 i t i o n : I N T , l e n g 0002100 t h : I N T , I d : I d N 0002120 o d e , I d L i s t : I d L 0002140 i s t N o d e ] \r \t R E T U R N 0002160 S [ I d L i s t N o d e ] ; \r \r 0002200 I d L i s t m o r e P r o d A d 0002220 d N a m e s T o U n i o n L i s 0002240 t : \t A d d N a m e s T o U n i 0002260 o n L i s t P r o c T y p e ; \r 0002300 I d L i s t m o r e P r o d A d 0002320 d V a r i a n t N a m e s T o E 0002340 n u m T y p e T G N : \t A d d V 0002360 a r i a n t N a m e s T o E n u 0002400 m T y p e T G N P r o c T y p e 0002420 ; \r I d L i s t m o r e P r o d 0002440 A d d I d s T o R e s t r i c t 0002460 i o n L i s t : \t A d d I d s T 0002500 o R e s t r i c t i o n L i s t 0002520 P r o c T y p e ; \r \r - - O r 0002540 d e r e d y e s P r o d \r \r O r 0002560 d e r e d y e s P r o d D a t a 0002600 : \t T Y P E = R E F O r d 0002620 e r e d y e s P r o d D a t a B 0002640 o d y ; \r O r d e r e d y e s P 0002660 r o d D a t a B o d y : \t T Y P 0002700 E = R E C O R D [ \r ] ; \r \r 0002720 O r d e r e d y e s P r o d P r 0002740 o c s : \t O r d e r e d N o d e 0002760 P r o c s ; \r \r B u i l d O r d 0003000 e r e d y e s P r o d N o d e : 0003020 \t P R O C [ p o s i t i o n : 0003040 I N T , l e n g t h : I N T 0003060 ] \r \t R E T U R N S [ O r d e r 0003100 e d N o d e ] ; \r \r O r d e r e 0003120 d y e s P r o d I s K e y w o r 0003140 d P r e s e n t : \t I s K e y w 0003160 o r d P r e s e n t P r o c T y 0003200 p e ; \r \r - - O r d e r e d n 0003220 o P r o d \r \r O r d e r e d n o 0003240 P r o d D a t a : \t T Y P E = 0003260 R E F O r d e r e d n o P r 0003300 o d D a t a B o d y ; \r O r d e 0003320 r e d n o P r o d D a t a B o d 0003340 y : \t T Y P E = R E C O R D 0003360 [ \r ] ; \r \r O r d e r e d n o P 0003400 r o d P r o c s : \t O r d e r e 0003420 d N o d e P r o c s ; \r \r B u i 0003440 l d O r d e r e d n o P r o d N 0003460 o d e : \t P R O C [ p o s i t i 0003500 o n : I N T , l e n g t h : 0003520 I N T ] \r \t R E T U R N S [ O 0003540 r d e r e d N o d e ] ; \r \r O r 0003560 d e r e d n o P r o d I s K e y 0003600 w o r d P r e s e n t : \t I s K 0003620 e y w o r d P r e s e n t P r o 0003640 c T y p e ; \r \r - - B a s e y 0003660 e s P r o d \r \r B a s e y e s P 0003700 r o d D a t a : \t T Y P E = 0003720 R E F B a s e y e s P r o d D 0003740 a t a B o d y ; \r B a s e y e s 0003760 P r o d D a t a B o d y : \t T Y 0004000 P E = R E C O R D [ \r ] ; \r 0004020 \r B a s e y e s P r o d P r o c 0004040 s : \t B a s e N o d e P r o c s 0004060 ; \r \r B u i l d B a s e y e s P 0004100 r o d N o d e : \t P R O C [ p o 0004120 s i t i o n : I N T , l e n 0004140 g t h : I N T ] \r \t R E T U R 0004160 N S [ B a s e N o d e ] ; \r \r B 0004200 a s e y e s P r o d I s K e y w 0004220 o r d P r e s e n t : \t I s K e 0004240 y w o r d P r e s e n t P r o c 0004260 T y p e ; \r \r - - B a s e n o 0004300 P r o d \r \r B a s e n o P r o d 0004320 D a t a : \t T Y P E = R E F 0004340 B a s e n o P r o d D a t a B 0004360 o d y ; \r B a s e n o P r o d D 0004400 a t a B o d y : \t T Y P E = 0004420 R E C O R D [ \r ] ; \r \r B a s e 0004440 n o P r o d P r o c s : \t B a s 0004460 e N o d e P r o c s ; \r \r B u i 0004500 l d B a s e n o P r o d N o d e 0004520 : \t P R O C [ p o s i t i o n : 0004540 I N T , l e n g t h : I N 0004560 T ] \r \t R E T U R N S [ B a s e 0004600 N o d e ] ; \r \r B a s e n o P r 0004620 o d I s K e y w o r d P r e s e 0004640 n t : \t I s K e y w o r d P r e 0004660 s e n t P r o c T y p e ; \r \r - 0004700 - P o i n t e r T y p e u n s 0004720 p e c i f i e d P r o d \r \r P o 0004740 i n t e r T y p e u n s p e c i 0004760 f i e d P r o d D a t a : \t T Y 0005000 P E = R E F P o i n t e r 0005020 T y p e u n s p e c i f i e d P 0005040 r o d D a t a B o d y ; \r P o i 0005060 n t e r T y p e u n s p e c i f 0005100 i e d P r o d D a t a B o d y : 0005120 \t T Y P E = R E C O R D [ \r 0005140 O p t I n t e r v a l : O p t 0005160 I n t e r v a l N o d e ] ; \r \r 0005200 P o i n t e r T y p e u n s p e 0005220 c i f i e d P r o d P r o c s : 0005240 \t P o i n t e r T y p e N o d e 0005260 P r o c s ; \r \r B u i l d P o i 0005300 n t e r T y p e u n s p e c i f 0005320 i e d P r o d N o d e : \t P R O 0005340 C [ p o s i t i o n : I N T , 0005360 l e n g t h : I N T , O p 0005400 t I n t e r v a l : O p t I n 0005420 t e r v a l N o d e ] \r \t R E T 0005440 U R N S [ P o i n t e r T y p e 0005460 N o d e ] ; \r \r P o i n t e r T 0005500 y p e u n s p e c i f i e d P r 0005520 o d G e t P o i n t e r T y p e 0005540 I n f o : \t G e t P o i n t e r 0005560 T y p e I n f o P r o c T y p e 0005600 ; \r \r - - P o i n t e r T y p 0005620 e s p e c i f i e d P r o d \r \r 0005640 P o i n t e r T y p e s p e c i 0005660 f i e d P r o d D a t a : \t T Y 0005700 P E = R E F P o i n t e r 0005720 T y p e s p e c i f i e d P r o 0005740 d D a t a B o d y ; \r P o i n t 0005760 e r T y p e s p e c i f i e d P 0006000 r o d D a t a B o d y : \t T Y P 0006020 E = R E C O R D [ \r O p t I 0006040 n t e r v a l : O p t I n t e 0006060 r v a l N o d e , R e a d O n 0006100 l y : R e a d O n l y N o d e 0006120 , T y p e E x p : T y p e E 0006140 x p N o d e ] ; \r \r P o i n t e 0006160 r T y p e s p e c i f i e d P r 0006200 o d P r o c s : \t P o i n t e r 0006220 T y p e N o d e P r o c s ; \r \r 0006240 B u i l d P o i n t e r T y p e 0006260 s p e c i f i e d P r o d N o d 0006300 e : \t P R O C [ p o s i t i o n 0006320 : I N T , l e n g t h : I 0006340 N T , O p t I n t e r v a l : 0006360 O p t I n t e r v a l N o d e 0006400 , R e a d O n l y : R e a d 0006420 O n l y N o d e , T y p e E x 0006440 p : T y p e E x p N o d e ] \r 0006460 \t R E T U R N S [ P o i n t e r 0006500 T y p e N o d e ] ; \r \r P o i n 0006520 t e r T y p e s p e c i f i e d 0006540 P r o d G e t P o i n t e r T y 0006560 p e I n f o : \t G e t P o i n t 0006600 e r T y p e I n f o P r o c T y 0006620 p e ; \r \r - - O p t I n t e r 0006640 v a l a b s e n t P r o d \r \r O 0006660 p t I n t e r v a l a b s e n t 0006700 P r o d D a t a : \t T Y P E = 0006720 R E F O p t I n t e r v a l 0006740 a b s e n t P r o d D a t a B o 0006760 d y ; \r O p t I n t e r v a l a 0007000 b s e n t P r o d D a t a B o d 0007020 y : \t T Y P E = R E C O R D 0007040 [ \r ] ; \r \r O p t I n t e r v a 0007060 l a b s e n t P r o d P r o c s 0007100 : \t O p t I n t e r v a l N o d 0007120 e P r o c s ; \r \r B u i l d O p 0007140 t I n t e r v a l a b s e n t P 0007160 r o d N o d e : \t P R O C [ p o 0007200 s i t i o n : I N T , l e n 0007220 g t h : I N T ] \r \t R E T U R 0007240 N S [ O p t I n t e r v a l N o 0007260 d e ] ; \r \r O p t I n t e r v a 0007300 l a b s e n t P r o d G e t B o 0007320 u n d s V a l : \t G e t B o u n 0007340 d s V a l P r o c T y p e ; \r \r 0007360 - - O p t I n t e r v a l p r 0007400 e s e n t P r o d \r \r O p t I n 0007420 t e r v a l p r e s e n t P r o 0007440 d D a t a : \t T Y P E = R E 0007460 F O p t I n t e r v a l p r e 0007500 s e n t P r o d D a t a B o d y 0007520 ; \r O p t I n t e r v a l p r e 0007540 s e n t P r o d D a t a B o d y 0007560 : \t T Y P E = R E C O R D [ 0007600 \r I n t e r v a l : I n t e r 0007620 v a l N o d e ] ; \r \r O p t I n 0007640 t e r v a l p r e s e n t P r o 0007660 d P r o c s : \t O p t I n t e r 0007700 v a l N o d e P r o c s ; \r \r B 0007720 u i l d O p t I n t e r v a l p 0007740 r e s e n t P r o d N o d e : \t 0007760 P R O C [ p o s i t i o n : I 0010000 N T , l e n g t h : I N T , 0010020 I n t e r v a l : I n t e r 0010040 v a l N o d e ] \r \t R E T U R N 0010060 S [ O p t I n t e r v a l N o d 0010100 e ] ; \r \r O p t I n t e r v a l 0010120 p r e s e n t P r o d G e t B o 0010140 u n d s V a l : \t G e t B o u n 0010160 d s V a l P r o c T y p e ; \r \r 0010200 - - R e a d O n l y y e s P r 0010220 o d \r \r R e a d O n l y y e s P 0010240 r o d D a t a : \t T Y P E = 0010260 R E F R e a d O n l y y e s P 0010300 r o d D a t a B o d y ; \r R e a 0010320 d O n l y y e s P r o d D a t a 0010340 B o d y : \t T Y P E = R E C 0010360 O R D [ \r ] ; \r \r R e a d O n l 0010400 y y e s P r o d P r o c s : \t R 0010420 e a d O n l y N o d e P r o c s 0010440 ; \r \r B u i l d R e a d O n l y 0010460 y e s P r o d N o d e : \t P R O 0010500 C [ p o s i t i o n : I N T , 0010520 l e n g t h : I N T ] \r \t R 0010540 E T U R N S [ R e a d O n l y N 0010560 o d e ] ; \r \r R e a d O n l y y 0010600 e s P r o d I s K e y w o r d P 0010620 r e s e n t : \t I s K e y w o r 0010640 d P r e s e n t P r o c T y p e 0010660 ; \r \r - - R e a d O n l y n o 0010700 P r o d \r \r R e a d O n l y n o 0010720 P r o d D a t a : \t T Y P E = 0010740 R E F R e a d O n l y n o P 0010760 r o d D a t a B o d y ; \r R e a 0011000 d O n l y n o P r o d D a t a B 0011020 o d y : \t T Y P E = R E C O 0011040 R D [ \r ] ; \r \r R e a d O n l y 0011060 n o P r o d P r o c s : \t R e a 0011100 d O n l y N o d e P r o c s ; \r 0011120 \r B u i l d R e a d O n l y n o 0011140 P r o d N o d e : \t P R O C [ p 0011160 o s i t i o n : I N T , l e 0011200 n g t h : I N T ] \r \t R E T U 0011220 R N S [ R e a d O n l y N o d e 0011240 ] ; \r \r R e a d O n l y n o P r 0011260 o d I s K e y w o r d P r e s e 0011300 n t : \t I s K e y w o r d P r e 0011320 s e n t P r o c T y p e ; \r \r - 0011340 - S a f e e m p t y P r o d \r 0011360 \r S a f e e m p t y P r o d D a 0011400 t a : \t T Y P E = R E F S 0011420 a f e e m p t y P r o d D a t a 0011440 B o d y ; \r S a f e e m p t y P 0011460 r o d D a t a B o d y : \t T Y P 0011500 E = R E C O R D [ \r ] ; \r \r 0011520 S a f e e m p t y P r o d P r o 0011540 c s : \t S a f e N o d e P r o c 0011560 s ; \r \r B u i l d S a f e e m p 0011600 t y P r o d N o d e : \t P R O C 0011620 [ p o s i t i o n : I N T , 0011640 l e n g t h : I N T ] \r \t R E 0011660 T U R N S [ S a f e N o d e ] ; 0011700 \r \r S a f e e m p t y P r o d I 0011720 s K e y w o r d P r e s e n t : 0011740 \t I s K e y w o r d P r e s e n 0011760 t P r o c T y p e ; \r \r - - S 0012000 a f e y e s P r o d \r \r S a f e 0012020 y e s P r o d D a t a : \t T Y P 0012040 E = R E F S a f e y e s P 0012060 r o d D a t a B o d y ; \r S a f 0012100 e y e s P r o d D a t a B o d y 0012120 : \t T Y P E = R E C O R D [ 0012140 \r ] ; \r \r S a f e y e s P r o d 0012160 P r o c s : \t S a f e N o d e P 0012200 r o c s ; \r \r B u i l d S a f e 0012220 y e s P r o d N o d e : \t P R O 0012240 C [ p o s i t i o n : I N T , 0012260 l e n g t h : I N T ] \r \t R 0012300 E T U R N S [ S a f e N o d e ] 0012320 ; \r \r S a f e y e s P r o d I s 0012340 K e y w o r d P r e s e n t : \t 0012360 I s K e y w o r d P r e s e n t 0012400 P r o c T y p e ; \r \r - - S a 0012420 f e n o P r o d \r \r S a f e n o 0012440 P r o d D a t a : \t T Y P E = 0012460 R E F S a f e n o P r o d D 0012500 a t a B o d y ; \r S a f e n o P 0012520 r o d D a t a B o d y : \t T Y P 0012540 E = R E C O R D [ \r ] ; \r \r 0012560 S a f e n o P r o d P r o c s : 0012600 \t S a f e N o d e P r o c s ; \r 0012620 \r B u i l d S a f e n o P r o d 0012640 N o d e : \t P R O C [ p o s i t 0012660 i o n : I N T , l e n g t h 0012700 : I N T ] \r \t R E T U R N S [ 0012720 S a f e N o d e ] ; \r \r S a f e 0012740 n o P r o d I s K e y w o r d P 0012760 r e s e n t : \t I s K e y w o r 0013000 d P r e s e n t P r o c T y p e 0013020 ; \r \r - - T r a n s f e r M o 0013040 d e p r o c P r o d \r \r T r a n 0013060 s f e r M o d e p r o c P r o d 0013100 D a t a : \t T Y P E = R E F 0013120 T r a n s f e r M o d e p r o 0013140 c P r o d D a t a B o d y ; \r T 0013160 r a n s f e r M o d e p r o c P 0013200 r o d D a t a B o d y : \t T Y P 0013220 E = R E C O R D [ \r ] ; \r \r 0013240 T r a n s f e r M o d e p r o c 0013260 P r o d P r o c s : \t T r a n s 0013300 f e r M o d e N o d e P r o c s 0013320 ; \r \r B u i l d T r a n s f e r 0013340 M o d e p r o c P r o d N o d e 0013360 : \t P R O C [ p o s i t i o n : 0013400 I N T , l e n g t h : I N 0013420 T ] \r \t R E T U R N S [ T r a n 0013440 s f e r M o d e N o d e ] ; \r \r 0013460 T r a n s f e r M o d e p r o c 0013500 P r o d M a k e T r a n s f e r 0013520 M o d e : \t M a k e T r a n s f 0013540 e r M o d e P r o c T y p e ; \r 0013560 \r - - T r a n s f e r M o d e 0013600 p o r t P r o d \r \r T r a n s f 0013620 e r M o d e p o r t P r o d D a 0013640 t a : \t T Y P E = R E F T 0013660 r a n s f e r M o d e p o r t P 0013700 r o d D a t a B o d y ; \r T r a 0013720 n s f e r M o d e p o r t P r o 0013740 d D a t a B o d y : \t T Y P E 0013760 = R E C O R D [ \r ] ; \r \r T r 0014000 a n s f e r M o d e p o r t P r 0014020 o d P r o c s : \t T r a n s f e 0014040 r M o d e N o d e P r o c s ; \r 0014060 \r B u i l d T r a n s f e r M o 0014100 d e p o r t P r o d N o d e : \t 0014120 P R O C [ p o s i t i o n : I 0014140 N T , l e n g t h : I N T ] 0014160 \r \t R E T U R N S [ T r a n s f 0014200 e r M o d e N o d e ] ; \r \r T r 0014220 a n s f e r M o d e p o r t P r 0014240 o d M a k e T r a n s f e r M o 0014260 d e : \t M a k e T r a n s f e r 0014300 M o d e P r o c T y p e ; \r \r - 0014320 - T r a n s f e r M o d e s i 0014340 g n a l P r o d \r \r T r a n s f 0014360 e r M o d e s i g n a l P r o d 0014400 D a t a : \t T Y P E = R E F 0014420 T r a n s f e r M o d e s i g 0014440 n a l P r o d D a t a B o d y ; 0014460 \r T r a n s f e r M o d e s i g 0014500 n a l P r o d D a t a B o d y : 0014520 \t T Y P E = R E C O R D [ \r 0014540 ] ; \r \r T r a n s f e r M o d e 0014560 s i g n a l P r o d P r o c s : 0014600 \t T r a n s f e r M o d e N o d 0014620 e P r o c s ; \r \r B u i l d T r 0014640 a n s f e r M o d e s i g n a l 0014660 P r o d N o d e : \t P R O C [ p 0014700 o s i t i o n : I N T , l e 0014720 n g t h : I N T ] \r \t R E T U 0014740 R N S [ T r a n s f e r M o d e 0014760 N o d e ] ; \r \r T r a n s f e r 0015000 M o d e s i g n a l P r o d M a 0015020 k e T r a n s f e r M o d e : \t 0015040 M a k e T r a n s f e r M o d e 0015060 P r o c T y p e ; \r \r - - T r 0015100 a n s f e r M o d e e r r o r P 0015120 r o d \r \r T r a n s f e r M o d 0015140 e e r r o r P r o d D a t a : \t 0015160 T Y P E = R E F T r a n s 0015200 f e r M o d e e r r o r P r o d 0015220 D a t a B o d y ; \r T r a n s f 0015240 e r M o d e e r r o r P r o d D 0015260 a t a B o d y : \t T Y P E = 0015300 R E C O R D [ \r ] ; \r \r T r a n 0015320 s f e r M o d e e r r o r P r o 0015340 d P r o c s : \t T r a n s f e r 0015360 M o d e N o d e P r o c s ; \r \r 0015400 B u i l d T r a n s f e r M o d 0015420 e e r r o r P r o d N o d e : \t 0015440 P R O C [ p o s i t i o n : I 0015460 N T , l e n g t h : I N T ] 0015500 \r \t R E T U R N S [ T r a n s f 0015520 e r M o d e N o d e ] ; \r \r T r 0015540 a n s f e r M o d e e r r o r P 0015560 r o d M a k e T r a n s f e r M 0015600 o d e : \t M a k e T r a n s f e 0015620 r M o d e P r o c T y p e ; \r \r 0015640 - - T r a n s f e r M o d e p 0015660 r o c e s s P r o d \r \r T r a n 0015700 s f e r M o d e p r o c e s s P 0015720 r o d D a t a : \t T Y P E = 0015740 R E F T r a n s f e r M o d e 0015760 p r o c e s s P r o d D a t a B 0016000 o d y ; \r T r a n s f e r M o d 0016020 e p r o c e s s P r o d D a t a 0016040 B o d y : \t T Y P E = R E C 0016060 O R D [ \r ] ; \r \r T r a n s f e 0016100 r M o d e p r o c e s s P r o d 0016120 P r o c s : \t T r a n s f e r M 0016140 o d e N o d e P r o c s ; \r \r B 0016160 u i l d T r a n s f e r M o d e 0016200 p r o c e s s P r o d N o d e : 0016220 \t P R O C [ p o s i t i o n : 0016240 I N T , l e n g t h : I N T 0016260 ] \r \t R E T U R N S [ T r a n s 0016300 f e r M o d e N o d e ] ; \r \r T 0016320 r a n s f e r M o d e p r o c e 0016340 s s P r o d M a k e T r a n s f 0016360 e r M o d e : \t M a k e T r a n 0016400 s f e r M o d e P r o c T y p e 0016420 ; \r \r - - T r a n s f e r M o 0016440 d e p r o g r a m P r o d \r \r T 0016460 r a n s f e r M o d e p r o g r 0016500 a m P r o d D a t a : \t T Y P E 0016520 = R E F T r a n s f e r M 0016540 o d e p r o g r a m P r o d D a 0016560 t a B o d y ; \r T r a n s f e r 0016600 M o d e p r o g r a m P r o d D 0016620 a t a B o d y : \t T Y P E = 0016640 R E C O R D [ \r ] ; \r \r T r a n 0016660 s f e r M o d e p r o g r a m P 0016700 r o d P r o c s : \t T r a n s f 0016720 e r M o d e N o d e P r o c s ; 0016740 \r \r B u i l d T r a n s f e r M 0016760 o d e p r o g r a m P r o d N o 0017000 d e : \t P R O C [ p o s i t i o 0017020 n : I N T , l e n g t h : 0017040 I N T ] \r \t R E T U R N S [ T r 0017060 a n s f e r M o d e N o d e ] ; 0017100 \r \r T r a n s f e r M o d e p r 0017120 o g r a m P r o d M a k e T r a 0017140 n s f e r M o d e : \t M a k e T 0017160 r a n s f e r M o d e P r o c T 0017200 y p e ; \r \r - - A r g u m e n 0017220 t s P r o d \r \r A r g u m e n t 0017240 s P r o d D a t a : \t T Y P E 0017260 = R E F A r g u m e n t s P 0017300 r o d D a t a B o d y ; \r A r g 0017320 u m e n t s P r o d D a t a B o 0017340 d y : \t T Y P E = R E C O R 0017360 D [ \r P a r a m e t e r L i s t 0017400 i n p u t : P a r a m e t e r 0017420 L i s t N o d e , P a r a m e 0017440 t e r L i s t o u t p u t : P 0017460 a r a m e t e r L i s t N o d e 0017500 ] ; \r \r A r g u m e n t s P r o 0017520 d P r o c s : \t A r g u m e n t 0017540 s N o d e P r o c s ; \r \r B u i 0017560 l d A r g u m e n t s P r o d N 0017600 o d e : \t P R O C [ p o s i t i 0017620 o n : I N T , l e n g t h : 0017640 I N T , P a r a m e t e r L 0017660 i s t i n p u t : P a r a m e 0017700 t e r L i s t N o d e , P a r 0017720 a m e t e r L i s t o u t p u t 0017740 : P a r a m e t e r L i s t N 0017760 o d e ] \r \t R E T U R N S [ A r 0020000 g u m e n t s N o d e ] ; \r \r A 0020020 r g u m e n t s P r o d M a k e 0020040 A r g u m e n t L i s t s : \t M 0020060 a k e A r g u m e n t L i s t s 0020100 P r o c T y p e ; \r \r - - P a 0020120 r a m e t e r L i s t e m p t y 0020140 P r o d \r \r P a r a m e t e r L 0020160 i s t e m p t y P r o d D a t a 0020200 : \t T Y P E = R E F P a r 0020220 a m e t e r L i s t e m p t y P 0020240 r o d D a t a B o d y ; \r P a r 0020260 a m e t e r L i s t e m p t y P 0020300 r o d D a t a B o d y : \t T Y P 0020320 E = R E C O R D [ \r ] ; \r \r 0020340 P a r a m e t e r L i s t e m p 0020360 t y P r o d P r o c s : \t P a r 0020400 a m e t e r L i s t N o d e P r 0020420 o c s ; \r \r B u i l d P a r a m 0020440 e t e r L i s t e m p t y P r o 0020460 d N o d e : \t P R O C [ p o s i 0020500 t i o n : I N T , l e n g t 0020520 h : I N T ] \r \t R E T U R N S 0020540 [ P a r a m e t e r L i s t N o 0020560 d e ] ; \r \r P a r a m e t e r L 0020600 i s t e m p t y P r o d M a k e 0020620 F i e l d L i s t : \t M a k e F 0020640 i e l d L i s t P r o c T y p e 0020660 ; \r \r - - P a r a m e t e r L 0020700 i s t a n y P r o d \r \r P a r a 0020720 m e t e r L i s t a n y P r o d 0020740 D a t a : \t T Y P E = R E F 0020760 P a r a m e t e r L i s t a n 0021000 y P r o d D a t a B o d y ; \r P 0021020 a r a m e t e r L i s t a n y P 0021040 r o d D a t a B o d y : \t T Y P 0021060 E = R E C O R D [ \r ] ; \r \r 0021100 P a r a m e t e r L i s t a n y 0021120 P r o d P r o c s : \t P a r a m 0021140 e t e r L i s t N o d e P r o c 0021160 s ; \r \r B u i l d P a r a m e t 0021200 e r L i s t a n y P r o d N o d 0021220 e : \t P R O C [ p o s i t i o n 0021240 : I N T , l e n g t h : I 0021260 N T ] \r \t R E T U R N S [ P a r 0021300 a m e t e r L i s t N o d e ] ; 0021320 \r \r P a r a m e t e r L i s t a 0021340 n y P r o d M a k e F i e l d L 0021360 i s t : \t M a k e F i e l d L i 0021400 s t P r o c T y p e ; \r \r - - 0021420 P a r a m e t e r L i s t p a i 0021440 r l i s t P r o d \r \r P a r a m 0021460 e t e r L i s t p a i r l i s t 0021500 P r o d D a t a : \t T Y P E = 0021520 R E F P a r a m e t e r L i 0021540 s t p a i r l i s t P r o d D a 0021560 t a B o d y ; \r P a r a m e t e 0021600 r L i s t p a i r l i s t P r o 0021620 d D a t a B o d y : \t T Y P E 0021640 = R E C O R D [ \r P a i r L i 0021660 s t : P a i r L i s t N o d e 0021700 ] ; \r \r P a r a m e t e r L i s 0021720 t p a i r l i s t P r o d P r o 0021740 c s : \t P a r a m e t e r L i s 0021760 t N o d e P r o c s ; \r \r B u i 0022000 l d P a r a m e t e r L i s t p 0022020 a i r l i s t P r o d N o d e : 0022040 \t P R O C [ p o s i t i o n : 0022060 I N T , l e n g t h : I N T 0022100 , P a i r L i s t : P a i r 0022120 L i s t N o d e ] \r \t R E T U R 0022140 N S [ P a r a m e t e r L i s t 0022160 N o d e ] ; \r \r P a r a m e t e 0022200 r L i s t p a i r l i s t P r o 0022220 d M a k e F i e l d L i s t : \t 0022240 M a k e F i e l d L i s t P r o 0022260 c T y p e ; \r \r - - P a r a m 0022300 e t e r L i s t t y p e l i s t 0022320 P r o d \r \r P a r a m e t e r L 0022340 i s t t y p e l i s t P r o d D 0022360 a t a : \t T Y P E = R E F 0022400 P a r a m e t e r L i s t t y p 0022420 e l i s t P r o d D a t a B o d 0022440 y ; \r P a r a m e t e r L i s t 0022460 t y p e l i s t P r o d D a t a 0022500 B o d y : \t T Y P E = R E C 0022520 O R D [ \r T y p e L i s t : T 0022540 y p e L i s t N o d e ] ; \r \r P 0022560 a r a m e t e r L i s t t y p e 0022600 l i s t P r o d P r o c s : \t P 0022620 a r a m e t e r L i s t N o d e 0022640 P r o c s ; \r \r B u i l d P a r 0022660 a m e t e r L i s t t y p e l i 0022700 s t P r o d N o d e : \t P R O C 0022720 [ p o s i t i o n : I N T , 0022740 l e n g t h : I N T , T y p 0022760 e L i s t : T y p e L i s t N 0023000 o d e ] \r \t R E T U R N S [ P a 0023020 r a m e t e r L i s t N o d e ] 0023040 ; \r \r P a r a m e t e r L i s t 0023060 t y p e l i s t P r o d M a k e 0023100 F i e l d L i s t : \t M a k e F 0023120 i e l d L i s t P r o c T y p e 0023140 ; \r \r - - U n c o u n t e d y 0023160 e s P r o d \r \r U n c o u n t e 0023200 d y e s P r o d D a t a : \t T Y 0023220 P E = R E F U n c o u n t 0023240 e d y e s P r o d D a t a B o d 0023260 y ; \r U n c o u n t e d y e s P 0023300 r o d D a t a B o d y : \t T Y P 0023320 E = R E C O R D [ \r ] ; \r \r 0023340 U n c o u n t e d y e s P r o d 0023360 P r o c s : \t U n c o u n t e d 0023400 N o d e P r o c s ; \r \r B u i l 0023420 d U n c o u n t e d y e s P r o 0023440 d N o d e : \t P R O C [ p o s i 0023460 t i o n : I N T , l e n g t 0023500 h : I N T ] \r \t R E T U R N S 0023520 [ U n c o u n t e d N o d e ] ; 0023540 \r \r U n c o u n t e d y e s P r 0023560 o d I s K e y w o r d P r e s e 0023600 n t : \t I s K e y w o r d P r e 0023620 s e n t P r o c T y p e ; \r \r - 0023640 - U n c o u n t e d n o P r o 0023660 d \r \r U n c o u n t e d n o P r 0023700 o d D a t a : \t T Y P E = R 0023720 E F U n c o u n t e d n o P r 0023740 o d D a t a B o d y ; \r U n c o 0023760 u n t e d n o P r o d D a t a B 0024000 o d y : \t T Y P E = R E C O 0024020 R D [ \r ] ; \r \r U n c o u n t e 0024040 d n o P r o d P r o c s : \t U n 0024060 c o u n t e d N o d e P r o c s 0024100 ; \r \r B u i l d U n c o u n t e 0024120 d n o P r o d N o d e : \t P R O 0024140 C [ p o s i t i o n : I N T , 0024160 l e n g t h : I N T ] \r \t R 0024200 E T U R N S [ U n c o u n t e d 0024220 N o d e ] ; \r \r U n c o u n t e 0024240 d n o P r o d I s K e y w o r d 0024260 P r e s e n t : \t I s K e y w o 0024300 r d P r e s e n t P r o c T y p 0024320 e ; \r \r - - T y p e A p p l y 0024340 o n e P r o d \r \r T y p e A p p 0024360 l y o n e P r o d D a t a : \t T 0024400 Y P E = R E F T y p e A p 0024420 p l y o n e P r o d D a t a B o 0024440 d y ; \r T y p e A p p l y o n e 0024460 P r o d D a t a B o d y : \t T Y 0024500 P E = R E C O R D [ \r T y p 0024520 e I d : T y p e I d N o d e , 0024540 E x p : E x p N o d e ] ; \r 0024560 \r T y p e A p p l y o n e P r o 0024600 d P r o c s : \t T y p e A p p l 0024620 y N o d e P r o c s ; \r \r B u i 0024640 l d T y p e A p p l y o n e P r 0024660 o d N o d e : \t P R O C [ p o s 0024700 i t i o n : I N T , l e n g 0024720 t h : I N T , T y p e I d : 0024740 T y p e I d N o d e , E x p 0024760 : E x p N o d e ] \r \t R E T U 0025000 R N S [ T y p e A p p l y N o d 0025020 e ] ; \r \r T y p e A p p l y o n 0025040 e P r o d M a k e T y p e : \t M 0025060 a k e T y p e P r o c T y p e ; 0025100 \r \r - - T y p e A p p l y m o 0025120 r e l e n g t h s P r o d \r \r T 0025140 y p e A p p l y m o r e l e n g 0025160 t h s P r o d D a t a : \t T Y P 0025200 E = R E F T y p e A p p l 0025220 y m o r e l e n g t h s P r o d 0025240 D a t a B o d y ; \r T y p e A p 0025260 p l y m o r e l e n g t h s P r 0025300 o d D a t a B o d y : \t T Y P E 0025320 = R E C O R D [ \r T y p e A 0025340 p p l y : T y p e A p p l y N 0025360 o d e , E x p : E x p N o d 0025400 e ] ; \r \r T y p e A p p l y m o 0025420 r e l e n g t h s P r o d P r o 0025440 c s : \t T y p e A p p l y N o d 0025460 e P r o c s ; \r \r B u i l d T y 0025500 p e A p p l y m o r e l e n g t 0025520 h s P r o d N o d e : \t P R O C 0025540 [ p o s i t i o n : I N T , 0025560 l e n g t h : I N T , T y p 0025600 e A p p l y : T y p e A p p l 0025620 y N o d e , E x p : E x p N 0025640 o d e ] \r \t R E T U R N S [ T y 0025660 p e A p p l y N o d e ] ; \r \r T 0025700 y p e A p p l y m o r e l e n g 0025720 t h s P r o d M a k e T y p e : 0025740 \t M a k e T y p e P r o c T y p 0025760 e ; \r \r - - T y p e A p p l y 0026000 m o r e i d s P r o d \r \r T y p 0026020 e A p p l y m o r e i d s P r o 0026040 d D a t a : \t T Y P E = R E 0026060 F T y p e A p p l y m o r e i 0026100 d s P r o d D a t a B o d y ; \r 0026120 T y p e A p p l y m o r e i d s 0026140 P r o d D a t a B o d y : \t T Y 0026160 P E = R E C O R D [ \r T y p 0026200 e A p p l y : T y p e A p p l 0026220 y N o d e , I d : I d N o d 0026240 e ] ; \r \r T y p e A p p l y m o 0026260 r e i d s P r o d P r o c s : \t 0026300 T y p e A p p l y N o d e P r o 0026320 c s ; \r \r B u i l d T y p e A p 0026340 p l y m o r e i d s P r o d N o 0026360 d e : \t P R O C [ p o s i t i o 0026400 n : I N T , l e n g t h : 0026420 I N T , T y p e A p p l y : 0026440 T y p e A p p l y N o d e , I 0026460 d : I d N o d e ] \r \t R E T U 0026500 R N S [ T y p e A p p l y N o d 0026520 e ] ; \r \r T y p e A p p l y m o 0026540 r e i d s P r o d M a k e T y p 0026560 e : \t M a k e T y p e P r o c T 0026600 y p e ; \r E N D . . \r 0026613