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