$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron2.0>Shared-Derived>SaffronAG2Def.Mesa!17 0000000 - - S a f f r o n A G 2 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 : 0 1 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 2 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 - - S e l e c t H e a d p l 0000620 a i n P r o d \r \r S e l e c t H 0000640 e a d p l a i n P r o d D a t a 0000660 : \t T Y P E = R E F S e l 0000700 e c t H e a d p l a i n P r o d 0000720 D a t a B o d y ; \r S e l e c t 0000740 H e a d p l a i n P r o d D a t 0000760 a B o d y : \t T Y P E = R E 0001000 C O R D [ \r E x p : E x p N o 0001020 d e ] ; \r \r S e l e c t H e a d 0001040 p l a i n P r o d P r o c s : \t 0001060 S e l e c t H e a d N o d e P r 0001100 o c s ; \r \r B u i l d S e l e c 0001120 t H e a d p l a i n P r o d N o 0001140 d e : \t P R O C [ p o s i t i o 0001160 n : I N T , l e n g t h : 0001200 I N T , E x p : E x p N o d 0001220 e ] \r \t R E T U R N S [ S e l e 0001240 c t H e a d N o d e ] ; \r \r S e 0001260 l e c t H e a d p l a i n P r o 0001300 d f o o : \t f o o P r o c T y p 0001320 e ; \r \r - - S e l e c t H e a 0001340 d d i s c r i m i n a t i n g P 0001360 r o d \r \r S e l e c t H e a d d 0001400 i s c r i m i n a t i n g P r o 0001420 d D a t a : \t T Y P E = R E 0001440 F S e l e c t H e a d d i s c 0001460 r i m i n a t i n g P r o d D a 0001500 t a B o d y ; \r S e l e c t H e 0001520 a d d i s c r i m i n a t i n g 0001540 P r o d D a t a B o d y : \t T Y 0001560 P E = R E C O R D [ \r B i n 0001600 d I t e m : B i n d I t e m N 0001620 o d e , O p t E x p : O p t 0001640 E x p N o d e ] ; \r \r S e l e c 0001660 t H e a d d i s c r i m i n a t 0001700 i n g P r o d P r o c s : \t S e 0001720 l e c t H e a d N o d e P r o c 0001740 s ; \r \r B u i l d S e l e c t H 0001760 e a d d i s c r i m i n a t i n 0002000 g P r o d N o d e : \t P R O C [ 0002020 p o s i t i o n : I N T , l 0002040 e n g t h : I N T , B i n d 0002060 I t e m : B i n d I t e m N o 0002100 d e , O p t E x p : O p t E 0002120 x p N o d e ] \r \t R E T U R N S 0002140 [ S e l e c t H e a d N o d e ] 0002160 ; \r \r S e l e c t H e a d d i s 0002200 c r i m i n a t i n g P r o d f 0002220 o o : \t f o o P r o c T y p e ; 0002240 \r \r - - S e l e c t E x p L i 0002260 s t e m p t y P r o d \r \r S e l 0002300 e c t E x p L i s t e m p t y P 0002320 r o d D a t a : \t T Y P E = 0002340 R E F S e l e c t E x p L i s 0002360 t e m p t y P r o d D a t a B o 0002400 d y ; \r S e l e c t E x p L i s 0002420 t e m p t y P r o d D a t a B o 0002440 d y : \t T Y P E = R E C O R 0002460 D [ \r ] ; \r \r S e l e c t E x p 0002500 L i s t e m p t y P r o d P r o 0002520 c s : \t S e l e c t E x p L i s 0002540 t N o d e P r o c s ; \r \r B u i 0002560 l d S e l e c t E x p L i s t e 0002600 m p t y P r o d N o d e : \t P R 0002620 O C [ p o s i t i o n : I N T 0002640 , l e n g t h : I N T ] \r \t 0002660 R E T U R N S [ S e l e c t E x 0002700 p L i s t N o d e ] ; \r \r S e l 0002720 e c t E x p L i s t e m p t y P 0002740 r o d f o o : \t f o o P r o c T 0002760 y p e ; \r \r - - S e l e c t E 0003000 x p L i s t m o r e P r o d \r \r 0003020 S e l e c t E x p L i s t m o r 0003040 e P r o d D a t a : \t T Y P E 0003060 = R E F S e l e c t E x p L 0003100 i s t m o r e P r o d D a t a B 0003120 o d y ; \r S e l e c t E x p L i 0003140 s t m o r e P r o d D a t a B o 0003160 d y : \t T Y P E = R E C O R 0003200 D [ \r S e l e c t E x p L i s t 0003220 : S e l e c t E x p L i s t N 0003240 o d e , S e l e c t E x p I t 0003260 e m : S e l e c t E x p I t e 0003300 m N o d e ] ; \r \r S e l e c t E 0003320 x p L i s t m o r e P r o d P r 0003340 o c s : \t S e l e c t E x p L i 0003360 s t N o d e P r o c s ; \r \r B u 0003400 i l d S e l e c t E x p L i s t 0003420 m o r e P r o d N o d e : \t P R 0003440 O C [ p o s i t i o n : I N T 0003460 , l e n g t h : I N T , S 0003500 e l e c t E x p L i s t : S e 0003520 l e c t E x p L i s t N o d e , 0003540 S e l e c t E x p I t e m : 0003560 S e l e c t E x p I t e m N o d 0003600 e ] \r \t R E T U R N S [ S e l e 0003620 c t E x p L i s t N o d e ] ; \r 0003640 \r S e l e c t E x p L i s t m o 0003660 r e P r o d f o o : \t f o o P r 0003700 o c T y p e ; \r \r - - S e l e 0003720 c t E x p I t e m P r o d \r \r S 0003740 e l e c t E x p I t e m P r o d 0003760 D a t a : \t T Y P E = R E F 0004000 S e l e c t E x p I t e m P r 0004020 o d D a t a B o d y ; \r S e l e 0004040 c t E x p I t e m P r o d D a t 0004060 a B o d y : \t T Y P E = R E 0004100 C O R D [ \r S e l e c t L a b e 0004120 l : S e l e c t L a b e l N o 0004140 d e , E x p : E x p N o d e 0004160 ] ; \r \r S e l e c t E x p I t e 0004200 m P r o d P r o c s : \t S e l e 0004220 c t E x p I t e m N o d e P r o 0004240 c s ; \r \r B u i l d S e l e c t 0004260 E x p I t e m P r o d N o d e : 0004300 \t P R O C [ p o s i t i o n : 0004320 I N T , l e n g t h : I N T 0004340 , S e l e c t L a b e l : S 0004360 e l e c t L a b e l N o d e , 0004400 E x p : E x p N o d e ] \r \t R 0004420 E T U R N S [ S e l e c t E x p 0004440 I t e m N o d e ] ; \r \r S e l e 0004460 c t E x p I t e m P r o d f o o 0004500 : \t f o o P r o c T y p e ; \r \r 0004520 - - S e l e c t L a b e l t y 0004540 p e P r o d \r \r S e l e c t L a 0004560 b e l t y p e P r o d D a t a : 0004600 \t T Y P E = R E F S e l e 0004620 c t L a b e l t y p e P r o d D 0004640 a t a B o d y ; \r S e l e c t L 0004660 a b e l t y p e P r o d D a t a 0004700 B o d y : \t T Y P E = R E C 0004720 O R D [ \r I d e n t : I d e n 0004740 t N o d e , T y p e E x p : 0004760 T y p e E x p N o d e ] ; \r \r S 0005000 e l e c t L a b e l t y p e P r 0005020 o d P r o c s : \t S e l e c t L 0005040 a b e l N o d e P r o c s ; \r \r 0005060 B u i l d S e l e c t L a b e l 0005100 t y p e P r o d N o d e : \t P R 0005120 O C [ p o s i t i o n : I N T 0005140 , l e n g t h : I N T , I 0005160 d e n t : I d e n t N o d e , 0005200 T y p e E x p : T y p e E x 0005220 p N o d e ] \r \t R E T U R N S [ 0005240 S e l e c t L a b e l N o d e ] 0005260 ; \r \r S e l e c t L a b e l t y 0005300 p e P r o d f o o : \t f o o P r 0005320 o c T y p e ; \r \r - - S e l e 0005340 c t L a b e l t e s t P r o d \r 0005360 \r S e l e c t L a b e l t e s t 0005400 P r o d D a t a : \t T Y P E = 0005420 R E F S e l e c t L a b e l 0005440 t e s t P r o d D a t a B o d y 0005460 ; \r S e l e c t L a b e l t e s 0005500 t P r o d D a t a B o d y : \t T 0005520 Y P E = R E C O R D [ \r S e 0005540 l e c t T e s t L i s t : S e 0005560 l e c t T e s t L i s t N o d e 0005600 ] ; \r \r S e l e c t L a b e l t 0005620 e s t P r o d P r o c s : \t S e 0005640 l e c t L a b e l N o d e P r o 0005660 c s ; \r \r B u i l d S e l e c t 0005700 L a b e l t e s t P r o d N o d 0005720 e : \t P R O C [ p o s i t i o n 0005740 : I N T , l e n g t h : I 0005760 N T , S e l e c t T e s t L i 0006000 s t : S e l e c t T e s t L i 0006020 s t N o d e ] \r \t R E T U R N S 0006040 [ S e l e c t L a b e l N o d e 0006060 ] ; \r \r S e l e c t L a b e l t 0006100 e s t P r o d f o o : \t f o o P 0006120 r o c T y p e ; \r \r - - S e l 0006140 e c t T e s t L i s t o n e P r 0006160 o d \r \r S e l e c t T e s t L i 0006200 s t o n e P r o d D a t a : \t T 0006220 Y P E = R E F S e l e c t 0006240 T e s t L i s t o n e P r o d D 0006260 a t a B o d y ; \r S e l e c t T 0006300 e s t L i s t o n e P r o d D a 0006320 t a B o d y : \t T Y P E = R 0006340 E C O R D [ \r R e l a t i o n : 0006360 R e l a t i o n N o d e ] ; \r 0006400 \r S e l e c t T e s t L i s t o 0006420 n e P r o d P r o c s : \t S e l 0006440 e c t T e s t L i s t N o d e P 0006460 r o c s ; \r \r B u i l d S e l e 0006500 c t T e s t L i s t o n e P r o 0006520 d N o d e : \t P R O C [ p o s i 0006540 t i o n : I N T , l e n g t 0006560 h : I N T , R e l a t i o n 0006600 : R e l a t i o n N o d e ] \r 0006620 \t R E T U R N S [ S e l e c t T 0006640 e s t L i s t N o d e ] ; \r \r S 0006660 e l e c t T e s t L i s t o n e 0006700 P r o d f o o : \t f o o P r o c 0006720 T y p e ; \r \r - - S e l e c t 0006740 T e s t L i s t m o r e P r o d 0006760 \r \r S e l e c t T e s t L i s t 0007000 m o r e P r o d D a t a : \t T Y 0007020 P E = R E F S e l e c t T 0007040 e s t L i s t m o r e P r o d D 0007060 a t a B o d y ; \r S e l e c t T 0007100 e s t L i s t m o r e P r o d D 0007120 a t a B o d y : \t T Y P E = 0007140 R E C O R D [ \r S e l e c t T e 0007160 s t L i s t : S e l e c t T e 0007200 s t L i s t N o d e , R e l a 0007220 t i o n : R e l a t i o n N o 0007240 d e ] ; \r \r S e l e c t T e s t 0007260 L i s t m o r e P r o d P r o c 0007300 s : \t S e l e c t T e s t L i s 0007320 t N o d e P r o c s ; \r \r B u i 0007340 l d S e l e c t T e s t L i s t 0007360 m o r e P r o d N o d e : \t P R 0007400 O C [ p o s i t i o n : I N T 0007420 , l e n g t h : I N T , S 0007440 e l e c t T e s t L i s t : S 0007460 e l e c t T e s t L i s t N o d 0007500 e , R e l a t i o n : R e l 0007520 a t i o n N o d e ] \r \t R E T U 0007540 R N S [ S e l e c t T e s t L i 0007560 s t N o d e ] ; \r \r S e l e c t 0007600 T e s t L i s t m o r e P r o d 0007620 f o o : \t f o o P r o c T y p e 0007640 ; \r \r - - R e l a t i o n n e 0007660 g a t i v e P r o d \r \r R e l a 0007700 t i o n n e g a t i v e P r o d 0007720 D a t a : \t T Y P E = R E F 0007740 R e l a t i o n n e g a t i v 0007760 e P r o d D a t a B o d y ; \r R 0010000 e l a t i o n n e g a t i v e P 0010020 r o d D a t a B o d y : \t T Y P 0010040 E = R E C O R D [ \r R e l a 0010060 t i o n T a i l : R e l a t i 0010100 o n T a i l N o d e ] ; \r \r R e 0010120 l a t i o n n e g a t i v e P r 0010140 o d P r o c s : \t R e l a t i o 0010160 n N o d e P r o c s ; \r \r B u i 0010200 l d R e l a t i o n n e g a t i 0010220 v e P r o d N o d e : \t P R O C 0010240 [ p o s i t i o n : I N T , 0010260 l e n g t h : I N T , R e l 0010300 a t i o n T a i l : R e l a t 0010320 i o n T a i l N o d e ] \r \t R E 0010340 T U R N S [ R e l a t i o n N o 0010360 d e ] ; \r \r R e l a t i o n n e 0010400 g a t i v e P r o d f o o : \t f 0010420 o o P r o c T y p e ; \r \r - - 0010440 R e l a t i o n p o s i t i v e 0010460 P r o d \r \r R e l a t i o n p o 0010500 s i t i v e P r o d D a t a : \t 0010520 T Y P E = R E F R e l a t 0010540 i o n p o s i t i v e P r o d D 0010560 a t a B o d y ; \r R e l a t i o 0010600 n p o s i t i v e P r o d D a t 0010620 a B o d y : \t T Y P E = R E 0010640 C O R D [ \r R e l a t i o n T a 0010660 i l : R e l a t i o n T a i l 0010700 N o d e ] ; \r \r R e l a t i o n 0010720 p o s i t i v e P r o d P r o c 0010740 s : \t R e l a t i o n N o d e P 0010760 r o c s ; \r \r B u i l d R e l a 0011000 t i o n p o s i t i v e P r o d 0011020 N o d e : \t P R O C [ p o s i t 0011040 i o n : I N T , l e n g t h 0011060 : I N T , R e l a t i o n T 0011100 a i l : R e l a t i o n T a i 0011120 l N o d e ] \r \t R E T U R N S [ 0011140 R e l a t i o n N o d e ] ; \r \r 0011160 R e l a t i o n p o s i t i v e 0011200 P r o d f o o : \t f o o P r o c 0011220 T y p e ; \r \r - - R e l a t i 0011240 o n T a i l r a n g e P r o d \r 0011260 \r R e l a t i o n T a i l r a n 0011300 g e P r o d D a t a : \t T Y P E 0011320 = R E F R e l a t i o n T 0011340 a i l r a n g e P r o d D a t a 0011360 B o d y ; \r R e l a t i o n T a 0011400 i l r a n g e P r o d D a t a B 0011420 o d y : \t T Y P E = R E C O 0011440 R D [ \r R a n g e : R a n g e 0011460 N o d e ] ; \r \r R e l a t i o n 0011500 T a i l r a n g e P r o d P r o 0011520 c s : \t R e l a t i o n T a i l 0011540 N o d e P r o c s ; \r \r B u i l 0011560 d R e l a t i o n T a i l r a n 0011600 g e 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 a n 0011660 g e : R a n g e N o d e ] \r \t 0011700 R E T U R N S [ R e l a t i o n 0011720 T a i l N o d e ] ; \r \r R e l a 0011740 t i o n T a i l r a n g e P r o 0011760 d f o o : \t f o o P r o c T y p 0012000 e ; \r \r - - R e l a t i o n T 0012020 a i l r e l o p P r o d \r \r R e 0012040 l a t i o n T a i l r e l o p P 0012060 r o d D a t a : \t T Y P E = 0012100 R E F R e l a t i o n T a i l 0012120 r e l o p P r o d D a t a B o d 0012140 y ; \r R e l a t i o n T a i l r 0012160 e l o p P r o d D a t a B o d y 0012200 : \t T Y P E = R E C O R D [ 0012220 \r R e l o p : R e l o p N o d 0012240 e , E x p : E x p N o d e ] 0012260 ; \r \r R e l a t i o n T a i l r 0012300 e l o p P r o d P r o c s : \t R 0012320 e l a t i o n T a i l N o d e P 0012340 r o c s ; \r \r B u i l d R e l a 0012360 t i o n T a i l r e l o p P r o 0012400 d N o d e : \t P R O C [ p o s i 0012420 t i o n : I N T , l e n g t 0012440 h : I N T , R e l o p : R 0012460 e l o p N o d e , E x p : E 0012500 x p N o d e ] \r \t R E T U R N S 0012520 [ R e l a t i o n T a i l N o d 0012540 e ] ; \r \r R e l a t i o n T a i 0012560 l r e l o p P r o d f o o : \t f 0012600 o o P r o c T y p e ; \r \r - - 0012620 R e l o p e q P r o d \r \r R e l 0012640 o p e q P r o d D a t a : \t T Y 0012660 P E = R E F R e l o p e q 0012700 P r o d D a t a B o d y ; \r R e 0012720 l o p e q P r o d D a t a B o d 0012740 y : \t T Y P E = R E C O R D 0012760 [ \r ] ; \r \r R e l o p e q P r o 0013000 d P r o c s : \t R e l o p N o d 0013020 e P r o c s ; \r \r B u i l d R e 0013040 l o p e q P r o d N o d e : \t P 0013060 R O C [ p o s i t i o n : I N 0013100 T , l e n g t h : I N T ] \r 0013120 \t R E T U R N S [ R e l o p N o 0013140 d e ] ; \r \r R e l o p e q P r o 0013160 d f o o : \t f o o P r o c T y p 0013200 e ; \r \r - - R e l o p n e P r 0013220 o d \r \r R e l o p n e P r o d D 0013240 a t a : \t T Y P E = R E F 0013260 R e l o p n e P r o d D a t a B 0013300 o d y ; \r R e l o p n e P r o d 0013320 D a t a B o d y : \t T Y P E = 0013340 R E C O R D [ \r ] ; \r \r R e l 0013360 o p n e P r o d P r o c s : \t R 0013400 e l o p N o d e P r o c s ; \r \r 0013420 B u i l d R e l o p n e P r o d 0013440 N o d e : \t P R O C [ p o s i t 0013460 i o n : I N T , l e n g t h 0013500 : I N T ] \r \t R E T U R N S [ 0013520 R e l o p N o d e ] ; \r \r R e l 0013540 o p n e P r o d f o o : \t f o o 0013560 P r o c T y p e ; \r \r - - R e 0013600 l o p l t P r o d \r \r R e l o p 0013620 l t P r o d D a t a : \t T Y P E 0013640 = R E F R e l o p l t P r 0013660 o d D a t a B o d y ; \r R e l o 0013700 p l t P r o d D a t a B o d y : 0013720 \t T Y P E = R E C O R D [ \r 0013740 ] ; \r \r R e l o p l t P r o d P 0013760 r o c s : \t R e l o p N o d e P 0014000 r o c s ; \r \r B u i l d R e l o 0014020 p l t P r o d N o d e : \t P R O 0014040 C [ p o s i t i o n : I N T , 0014060 l e n g t h : I N T ] \r \t R 0014100 E T U R N S [ R e l o p N o d e 0014120 ] ; \r \r R e l o p l t P r o d f 0014140 o o : \t f o o P r o c T y p e ; 0014160 \r \r - - R e l o p l e P r o d 0014200 \r \r R e l o p l e P r o d D a t 0014220 a : \t T Y P E = R E F R e 0014240 l o p l e P r o d D a t a B o d 0014260 y ; \r R e l o p l e P r o d D a 0014300 t a B o d y : \t T Y P E = R 0014320 E C O R D [ \r ] ; \r \r R e l o p 0014340 l e P r o d P r o c s : \t R e l 0014360 o p N o d e P r o c s ; \r \r B u 0014400 i l d R e l o p l e P r o d N o 0014420 d e : \t P R O C [ p o s i t i o 0014440 n : I N T , l e n g t h : 0014460 I N T ] \r \t R E T U R N S [ R e 0014500 l o p N o d e ] ; \r \r R e l o p 0014520 l e P r o d f o o : \t f o o P r 0014540 o c T y p e ; \r \r - - R e l o 0014560 p g t P r o d \r \r R e l o p g t 0014600 P r o d D a t a : \t T Y P E = 0014620 R E F R e l o p g t P r o d 0014640 D a t a B o d y ; \r R e l o p g 0014660 t P r o d D a t a B o d y : \t T 0014700 Y P E = R E C O R D [ \r ] ; 0014720 \r \r R e l o p g t P r o d P r o 0014740 c s : \t R e l o p N o d e P r o 0014760 c s ; \r \r B u i l d R e l o p g 0015000 t P r o d N o d e : \t P R O C [ 0015020 p o s i t i o n : I N T , l 0015040 e n g t h : I N T ] \r \t R E T 0015060 U R N S [ R e l o p N o d e ] ; 0015100 \r \r R e l o p g t P r o d f o o 0015120 : \t f o o P r o c T y p e ; \r \r 0015140 - - R e l o p g e P r o d \r \r 0015160 R e l o p g e P r o d D a t a : 0015200 \t T Y P E = R E F R e l o 0015220 p g e P r o d D a t a B o d y ; 0015240 \r R e l o p g e P r o d D a t a 0015260 B o d y : \t T Y P E = R E C 0015300 O R D [ \r ] ; \r \r R e l o p g e 0015320 P r o d P r o c s : \t R e l o p 0015340 N o d e P r o c s ; \r \r B u i l 0015360 d R e l o p g e P r o d N o d e 0015400 : \t P R O C [ p o s i t i o n : 0015420 I N T , l e n g t h : I N 0015440 T ] \r \t R E T U R N S [ R e l o 0015460 p N o d e ] ; \r \r R e l o p g e 0015500 P r o d f o o : \t f o o P r o c 0015520 T y p e ; \r \r - - R a n g e t 0015540 y p e i d P r o d \r \r R a n g e 0015560 t y p e i d P r o d D a t a : \t 0015600 T Y P E = R E F R a n g e 0015620 t y p e i d P r o d D a t a B o 0015640 d y ; \r R a n g e t y p e i d P 0015660 r o d D a t a B o d y : \t T Y P 0015700 E = R E C O R D [ \r T y p e 0015720 I d : T y p e I d N o d e ] ; 0015740 \r \r R a n g e t y p e i d P r o 0015760 d P r o c s : \t R a n g e N o d 0016000 e P r o c s ; \r \r B u i l d R a 0016020 n g e t y p e i d P r o d N o d 0016040 e : \t P R O C [ p o s i t i o n 0016060 : I N T , l e n g t h : I 0016100 N T , T y p e I d : T y p e 0016120 I d N o d e ] \r \t R E T U R N S 0016140 [ R a n g e N o d e ] ; \r \r R a 0016160 n g e t y p e i d P r o d f o o 0016200 : \t f o o P r o c T y p e ; \r \r 0016220 - - R a n g e s u b r a n g e 0016240 P r o d \r \r R a n g e s u b r a 0016260 n g e P r o d D a t a : \t T Y P 0016300 E = R E F R a n g e s u b 0016320 r a n g e P r o d D a t a B o d 0016340 y ; \r R a n g e s u b r a n g e 0016360 P r o d D a t a B o d y : \t T Y 0016400 P E = R E C O R D [ \r S u b 0016420 r a n g e : S u b r a n g e N 0016440 o d e ] ; \r \r R a n g e s u b r 0016460 a n g e P r o d P r o c s : \t R 0016500 a n g e N o d e P r o c s ; \r \r 0016520 B u i l d R a n g e s u b r a n 0016540 g e P r o d N o d e : \t P R O C 0016560 [ p o s i t i o n : I N T , 0016600 l e n g t h : I N T , S u b 0016620 r a n g e : S u b r a n g e N 0016640 o d e ] \r \t R E T U R N S [ R a 0016660 n g e N o d e ] ; \r \r R a n g e 0016700 s u b r a n g e P r o d f o o : 0016720 \t f o o P r o c T y p e ; \r \r - 0016740 - C a t c h P r o d \r \r C a t 0016760 c h P r o d D a t a : \t T Y P E 0017000 = R E F C a t c h P r o d 0017020 D a t a B o d y ; \r C a t c h P 0017040 r o d D a t a B o d y : \t T Y P 0017060 E = R E C O R D [ \r C a t c 0017100 h C a s e L i s t : C a t c h 0017120 C a s e L i s t N o d e , C a 0017140 t c h A n y : C a t c h A n y 0017160 N o d e ] ; \r \r C a t c h P r o 0017200 d P r o c s : \t C a t c h N o d 0017220 e P r o c s ; \r \r B u i l d C a 0017240 t c h P r o d N o d e : \t P R O 0017260 C [ p o s i t i o n : I N T , 0017300 l e n g t h : I N T , C a 0017320 t c h C a s e L i s t : C a t 0017340 c h C a s e L i s t N o d e , 0017360 C a t c h A n y : C a t c h A 0017400 n y N o d e ] \r \t R E T U R N S 0017420 [ C a t c h N o d e ] ; \r \r C a 0017440 t c h P r o d f o o : \t f o o P 0017460 r o c T y p e ; \r \r - - C a t 0017500 c h A n y a b s e n t P r o d \r 0017520 \r C a t c h A n y a b s e n t P 0017540 r o d D a t a : \t T Y P E = 0017560 R E F C a t c h A n y a b s e 0017600 n t P r o d D a t a B o d y ; \r 0017620 C a t c h A n y a b s e n t P r 0017640 o d D a t a B o d y : \t T Y P E 0017660 = R E C O R D [ \r ] ; \r \r C 0017700 a t c h A n y a b s e n t P r o 0017720 d P r o c s : \t C a t c h A n y 0017740 N o d e P r o c s ; \r \r B u i l 0017760 d C a t c h A n y a b s e n t P 0020000 r o d N o d e : \t P R O C [ p o 0020020 s i t i o n : I N T , l e n 0020040 g t h : I N T ] \r \t R E T U R 0020060 N S [ C a t c h A n y N o d e ] 0020100 ; \r \r C a t c h A n y a b s e n 0020120 t P r o d f o o : \t f o o P r o 0020140 c T y p e ; \r \r - - C a t c h 0020160 A n y p r e s e n t P r o d \r \r 0020200 C a t c h A n y p r e s e n t P 0020220 r o d D a t a : \t T Y P E = 0020240 R E F C a t c h A n y p r e s 0020260 e n t P r o d D a t a B o d y ; 0020300 \r C a t c h A n y p r e s e n t 0020320 P r o d D a t a B o d y : \t T Y 0020340 P E = R E C O R D [ \r S t a 0020360 t e m e n t : S t a t e m e n 0020400 t N o d e ] ; \r \r C a t c h A n 0020420 y p r e s e n t P r o d P r o c 0020440 s : \t C a t c h A n y N o d e P 0020460 r o c s ; \r \r B u i l d C a t c 0020500 h A n y p r e s e n t P r o d N 0020520 o d e : \t P R O C [ p o s i t i 0020540 o n : I N T , l e n g t h : 0020560 I N T , S t a t e m e n t : 0020600 S t a t e m e n t N o d e ] \r 0020620 \t R E T U R N S [ C a t c h A n 0020640 y N o d e ] ; \r \r C a t c h A n 0020660 y p r e s e n t P r o d f o o : 0020700 \t f o o P r o c T y p e ; \r \r - 0020720 - C a t c h C a s e L i s t e 0020740 m p t y P r o d \r \r C a t c h C 0020760 a s e L i s t e m p t y P r o d 0021000 D a t a : \t T Y P E = R E F 0021020 C a t c h C a s e L i s t e m 0021040 p t y P r o d D a t a B o d y ; 0021060 \r C a t c h C a s e L i s t e m 0021100 p t y P r o d D a t a B o d y : 0021120 \t T Y P E = R E C O R D [ \r 0021140 ] ; \r \r C a t c h C a s e L i s 0021160 t e m p t y P r o d P r o c s : 0021200 \t C a t c h C a s e L i s t N o 0021220 d e P r o c s ; \r \r B u i l d C 0021240 a t c h C a s e L i s t e m p t 0021260 y P r o d N o d e : \t P R O C [ 0021300 p o s i t i o n : I N T , l 0021320 e n g t h : I N T ] \r \t R E T 0021340 U R N S [ C a t c h C a s e L i 0021360 s t N o d e ] ; \r \r C a t c h C 0021400 a s e L i s t e m p t y P r o d 0021420 f o o : \t f o o P r o c T y p e 0021440 ; \r \r - - C a t c h C a s e L 0021460 i s t m o r e P r o d \r \r C a t 0021500 c h C a s e L i s t m o r e P r 0021520 o d D a t a : \t T Y P E = R 0021540 E F C a t c h C a s e L i s t 0021560 m o r e P r o d D a t a B o d y 0021600 ; \r C a t c h C a s e L i s t m 0021620 o r e P r o d D a t a B o d y : 0021640 \t T Y P E = R E C O R D [ \r 0021660 C a t c h C a s e L i s t : C 0021700 a t c h C a s e L i s t N o d e 0021720 , C a t c h C a s e : C a t 0021740 c h C a s e N o d e ] ; \r \r C a 0021760 t c h C a s e L i s t m o r e P 0022000 r o d P r o c s : \t C a t c h C 0022020 a s e L i s t N o d e P r o c s 0022040 ; \r \r B u i l d C a t c h C a s 0022060 e L i s t m o r e P r o d N o d 0022100 e : \t P R O C [ p o s i t i o n 0022120 : I N T , l e n g t h : I 0022140 N T , C a t c h C a s e L i s 0022160 t : C a t c h C a s e L i s t 0022200 N o d e , C a t c h C a s e : 0022220 C a t c h C a s e N o d e ] \r 0022240 \t R E T U R N S [ C a t c h C a 0022260 s e L i s t N o d e ] ; \r \r C a 0022300 t c h C a s e L i s t m o r e P 0022320 r o d f o o : \t f o o P r o c T 0022340 y p e ; \r \r - - C a t c h C a 0022360 s e P r o d \r \r C a t c h C a s 0022400 e P r o d D a t a : \t T Y P E 0022420 = R E F C a t c h C a s e P 0022440 r o d D a t a B o d y ; \r C a t 0022460 c h C a s e P r o d D a t a B o 0022500 d y : \t T Y P E = R E C O R 0022520 D [ \r S i g n a l L i s t : S 0022540 i g n a l L i s t N o d e , S 0022560 t a t e m e n t : S t a t e m 0022600 e n t N o d e ] ; \r \r C a t c h 0022620 C a s e P r o d P r o c s : \t C 0022640 a t c h C a s e N o d e P r o c 0022660 s ; \r \r B u i l d C a t c h C a 0022700 s e 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 , S i g 0022760 n a l L i s t : S i g n a l L 0023000 i s t N o d e , S t a t e m e 0023020 n t : S t a t e m e n t N o d 0023040 e ] \r \t R E T U R N S [ C a t c 0023060 h C a s e N o d e ] ; \r \r C a t 0023100 c h C a s e P r o d f o o : \t f 0023120 o o P r o c T y p e ; \r \r - - 0023140 S i g n a l L i s t o n e P r o 0023160 d \r \r S i g n a l L i s t o n e 0023200 P r o d D a t a : \t T Y P E = 0023220 R E F S i g n a l L i s t o 0023240 n e P r o d D a t a B o d y ; \r 0023260 S i g n a l L i s t o n e P r o 0023300 d D a t a B o d y : \t T Y P E 0023320 = R E C O R D [ \r E x p : E 0023340 x p N o d e ] ; \r \r S i g n a l 0023360 L i s t o n e P r o d P r o c s 0023400 : \t S i g n a l L i s t N o d e 0023420 P r o c s ; \r \r B u i l d S i g 0023440 n a l L i s t o n e P r o d N o 0023460 d e : \t P R O C [ p o s i t i o 0023500 n : I N T , l e n g t h : 0023520 I N T , E x p : E x p N o d 0023540 e ] \r \t R E T U R N S [ S i g n 0023560 a l L i s t N o d e ] ; \r \r S i 0023600 g n a l L i s t o n e P r o d f 0023620 o o : \t f o o P r o c T y p e ; 0023640 \r \r - - S i g n a l L i s t m 0023660 o r e P r o d \r \r S i g n a l L 0023700 i s t m o r e P r o d D a t a : 0023720 \t T Y P E = R E F S i g n 0023740 a l L i s t m o r e P r o d D a 0023760 t a B o d y ; \r S i g n a l L i 0024000 s t m o r e P r o d D a t a B o 0024020 d y : \t T Y P E = R E C O R 0024040 D [ \r S i g n a l L i s t : S 0024060 i g n a l L i s t N o d e , E 0024100 x p : E x p N o d e ] ; \r \r S 0024120 i g n a l L i s t m o r e P r o 0024140 d P r o c s : \t S i g n a l L i 0024160 s t N o d e P r o c s ; \r \r B u 0024200 i l d S i g n a l L i s t m o r 0024220 e P r o d N o d e : \t P R O C [ 0024240 p o s i t i o n : I N T , l 0024260 e n g t h : I N T , S i g n 0024300 a l L i s t : S i g n a l L i 0024320 s t N o d e , E x p : E x p 0024340 N o d e ] \r \t R E T U R N S [ S 0024360 i g n a l L i s t N o d e ] ; \r 0024400 \r S i g n a l L i s t m o r e P 0024420 r o d f o o : \t f o o P r o c T 0024440 y p e ; \r \r - - E x p L i s t 0024460 k e y l i s t P r o d \r \r E x p 0024500 L i s t k e y l i s t P r o d D 0024520 a t a : \t T Y P E = R E F 0024540 E x p L i s t k e y l i s t P r 0024560 o d D a t a B o d y ; \r E x p L 0024600 i s t k e y l i s t P r o d D a 0024620 t a B o d y : \t T Y P E = R 0024640 E C O R D [ \r K e y L i s t : 0024660 K e y L i s t N o d e ] ; \r \r E 0024700 x p L i s t k e y l i s t P r o 0024720 d P r o c s : \t E x p L i s t N 0024740 o d e P r o c s ; \r \r B u i l d 0024760 E x p L i s t k e y l i s t P r 0025000 o d N o d e : \t P R O C [ p o s 0025020 i t i o n : I N T , l e n g 0025040 t h : I N T , K e y L i s t 0025060 : K e y L i s t N o d e ] \r \t 0025100 R E T U R N S [ E x p L i s t N 0025120 o d e ] ; \r \r E x p L i s t k e 0025140 y l i s t P r o d f o o : \t f o 0025160 o P r o c T y p e ; \r \r - - E 0025200 x p L i s t o r d e r l i s t P 0025220 r o d \r \r E x p L i s t o r d e 0025240 r l i s t P r o d D a t a : \t T 0025260 Y P E = R E F E x p L i s 0025300 t o r d e r l i s t P r o d D a 0025320 t a B o d y ; \r E x p L i s t o 0025340 r d e r l i s t P r o d D a t a 0025360 B o d y : \t T Y P E = R E C 0025400 O R D [ \r O r d e r L i s t : 0025420 O r d e r L i s t N o d e ] ; \r 0025440 \r E x p L i s t o r d e r l i s 0025460 t P r o d P r o c s : \t E x p L 0025500 i s t N o d e P r o c s ; \r \r B 0025520 u i l d E x p L i s t o r d e r 0025540 l i s t P r o d N o d e : \t P R 0025560 O C [ p o s i t i o n : I N T 0025600 , l e n g t h : I N T , O 0025620 r d e r L i s t : O r d e r L 0025640 i s t N o d e ] \r \t R E T U R N 0025660 S [ E x p L i s t N o d e ] ; \r 0025700 \r E x p L i s t o r d e r l i s 0025720 t P r o d f o o : \t f o o P r o 0025740 c T y p e ; \r \r - - K e y L i 0025760 s t o n e P r o d \r \r K e y L i 0026000 s t o n e P r o d D a t a : \t T 0026020 Y P E = R E F K e y L i s 0026040 t o n e P r o d D a t a B o d y 0026060 ; \r K e y L i s t o n e P r o d 0026100 D a t a B o d y : \t T Y P E = 0026120 R E C O R D [ \r K e y I t e m 0026140 : K e y I t e m N o d e ] ; \r 0026160 \r K e y L i s t o n e P r o d P 0026200 r o c s : \t K e y L i s t N o d 0026220 e P r o c s ; \r \r B u i l d K e 0026240 y L i s t o n e P r o d N o d e 0026260 : \t P R O C [ p o s i t i o n : 0026300 I N T , l e n g t h : I N 0026320 T , K e y I t e m : K e y I 0026340 t e m N o d e ] \r \t R E T U R N 0026360 S [ K e y L i s t N o d e ] ; \r 0026400 \r K e y L i s t o n e P r o d f 0026420 o o : \t f o o P r o c T y p e ; 0026440 \r \r - - K e y L i s t m o r e 0026460 P r o d \r \r K e y L i s t m o r 0026500 e P r o d D a t a : \t T Y P E 0026520 = R E F K e y L i s t m o r 0026540 e P r o d D a t a B o d y ; \r K 0026560 e y L i s t m o r e P r o d D a 0026600 t a B o d y : \t T Y P E = R 0026620 E C O R D [ \r K e y L i s t : 0026640 K e y L i s t N o d e , K e y 0026660 I t e m : K e y I t e m N o d 0026700 e ] ; \r \r K e y L i s t m o r e 0026720 P r o d P r o c s : \t K e y L i 0026740 s t N o d e P r o c s ; \r \r B u 0026760 i l d K e y L i s t m o r e P r 0027000 o d N o d e : \t P R O C [ p o s 0027020 i t i o n : I N T , l e n g 0027040 t h : I N T , K e y L i s t 0027060 : K e y L i s t N o d e , K 0027100 e y I t e m : K e y I t e m N 0027120 o d e ] \r \t R E T U R N S [ K e 0027140 y L i s t N o d e ] ; \r \r K e y 0027160 L i s t m o r e P r o d f o o : 0027200 \t f o o P r o c T y p e ; \r \r - 0027220 - K e y I t e m P r o d \r \r K 0027240 e y I t e m P r o d D a t a : \t 0027260 T Y P E = R E F K e y I t 0027300 e m P r o d D a t a B o d y ; \r 0027320 K e y I t e m P r o d D a t a B 0027340 o d y : \t T Y P E = R E C O 0027360 R D [ \r I d : I d N o d e , 0027400 O p t E x p : O p t E x p N o 0027420 d e ] ; \r \r K e y I t e m P r o 0027440 d P r o c s : \t K e y I t e m N 0027460 o d e P r o c s ; \r \r B u i l d 0027500 K e y I t e m P r o d N o d e : 0027520 \t P R O C [ p o s i t i o n : 0027540 I N T , l e n g t h : I N T 0027560 , I d : I d N o d e , O p 0027600 t E x p : O p t E x p N o d e 0027620 ] \r \t R E T U R N S [ K e y I t 0027640 e m N o d e ] ; \r \r K e y I t e 0027660 m P r o d f o o : \t f o o P r o 0027700 c T y p e ; \r \r - - O r d e r 0027720 L i s t o n e P r o d \r \r O r d 0027740 e r L i s t o n e P r o d D a t 0027760 a : \t T Y P E = R E F O r 0030000 d e r L i s t o n e P r o d D a 0030020 t a B o d y ; \r O r d e r L i s 0030040 t o n e P r o d D a t a B o d y 0030060 : \t T Y P E = R E C O R D [ 0030100 \r O p t E x p : O p t E x p N 0030120 o d e ] ; \r \r O r d e r L i s t 0030140 o n e P r o d P r o c s : \t O r 0030160 d e r L i s t N o d e P r o c s 0030200 ; \r \r B u i l d O r d e r L i s 0030220 t o n e P r o d N o d e : \t P R 0030240 O C [ p o s i t i o n : I N T 0030260 , l e n g t h : I N T , O 0030300 p t E x p : O p t E x p N o d 0030320 e ] \r \t R E T U R N S [ O r d e 0030340 r L i s t N o d e ] ; \r \r O r d 0030360 e r L i s t o n e P r o d f o o 0030400 : \t f o o P r o c T y p e ; \r \r 0030420 - - O r d e r L i s t m o r e 0030440 P r o d \r \r O r d e r L i s t m 0030460 o r e P r o d D a t a : \t T Y P 0030500 E = R E F O r d e r L i s 0030520 t m o r e P r o d D a t a B o d 0030540 y ; \r O r d e r L i s t m o r e 0030560 P r o d D a t a B o d y : \t T Y 0030600 P E = R E C O R D [ \r O r d 0030620 e r L i s t : O r d e r L i s 0030640 t N o d e , O p t E x p : O 0030660 p t E x p N o d e ] ; \r \r O r d 0030700 e r L i s t m o r e P r o d P r 0030720 o c s : \t O r d e r L i s t N o 0030740 d e P r o c s ; \r \r B u i l d O 0030760 r d e r L i s t m o r e P r o d 0031000 N o d e : \t P R O C [ p o s i t 0031020 i o n : I N T , l e n g t h 0031040 : I N T , O r d e r L i s t 0031060 : O r d e r L i s t N o d e , 0031100 O p t E x p : O p t E x p N 0031120 o d e ] \r \t R E T U R N S [ O r 0031140 d e r L i s t N o d e ] ; \r \r O 0031160 r d e r L i s t m o r e P r o d 0031200 f o o : \t f o o P r o c T y p e 0031220 ; \r \r - - O p t E x p e m p t 0031240 y P r o d \r \r O p t E x p e m p 0031260 t y P r o d D a t a : \t T Y P E 0031300 = R E F O p t E x p e m p 0031320 t y P r o d D a t a B o d y ; \r 0031340 O p t E x p e m p t y P r o d D 0031360 a t a B o d y : \t T Y P E = 0031400 R E C O R D [ \r ] ; \r \r O p t E 0031420 x p e m p t y P r o d P r o c s 0031440 : \t O p t E x p N o d e P r o c 0031460 s ; \r \r B u i l d O p t E x p e 0031500 m p t y P r o d N o d e : \t P R 0031520 O C [ p o s i t i o n : I N T 0031540 , l e n g t h : I N T ] \r \t 0031560 R E T U R N S [ O p t E x p N o 0031600 d e ] ; \r \r O p t E x p e m p t 0031620 y P r o d f o o : \t f o o P r o 0031640 c T y p e ; \r \r - - O p t E x 0031660 p t r a s h P r o d \r \r O p t E 0031700 x p t r a s h P r o d D a t a : 0031720 \t T Y P E = R E F O p t E 0031740 x p t r a s h P r o d D a t a B 0031760 o d y ; \r O p t E x p t r a s h 0032000 P r o d D a t a B o d y : \t T Y 0032020 P E = R E C O R D [ \r ] ; \r 0032040 \r O p t E x p t r a s h P r o d 0032060 P r o c s : \t O p t E x p N o d 0032100 e P r o c s ; \r \r B u i l d O p 0032120 t E x p t r a s h P r o d N o d 0032140 e : \t P R O C [ p o s i t i o n 0032160 : I N T , l e n g t h : I 0032200 N T ] \r \t R E T U R N S [ O p t 0032220 E x p N o d e ] ; \r \r O p t E x 0032240 p t r a s h P r o d f o o : \t f 0032260 o o P r o c T y p e ; \r \r - - 0032300 O p t E x p e x p P r o d \r \r O 0032320 p t E x p e x p P r o d D a t a 0032340 : \t T Y P E = R E F O p t 0032360 E x p e x p P r o d D a t a B o 0032400 d y ; \r O p t E x p e x p P r o 0032420 d D a t a B o d y : \t T Y P E 0032440 = R E C O R D [ \r E x p : E 0032460 x p N o d e ] ; \r \r O p t E x p 0032500 e x p P r o d P r o c s : \t O p 0032520 t E x p N o d e P r o c s ; \r \r 0032540 B u i l d O p t E x p e x p P r 0032560 o d N o d e : \t P R O C [ p o s 0032600 i t i o n : I N T , l e n g 0032620 t h : I N T , E x p : E x 0032640 p N o d e ] \r \t R E T U R N S [ 0032660 O p t E x p N o d e ] ; \r \r O p 0032700 t E x p e x p P r o d f o o : \t 0032720 f o o P r o c T y p e ; \r \r - - 0032740 O p t T y p e a b s e n t P r 0032760 o d \r \r O p t T y p e a b s e n 0033000 t P r o d D a t a : \t T Y P E 0033020 = R E F O p t T y p e a b s 0033040 e n t P r o d D a t a B o d y ; 0033060 \r O p t T y p e a b s e n t P r 0033100 o d D a t a B o d y : \t T Y P E 0033120 = R E C O R D [ \r ] ; \r \r O 0033140 p t T y p e a b s e n t P r o d 0033160 P r o c s : \t O p t T y p e N o 0033200 d e P r o c s ; \r \r B u i l d O 0033220 p t T y p e a b s e n t P r o d 0033240 N o d e : \t P R O C [ p o s i t 0033260 i o n : I N T , l e n g t h 0033300 : I N T ] \r \t R E T U R N S [ 0033320 O p t T y p e N o d e ] ; \r \r O 0033340 p t T y p e a b s e n t P r o d 0033360 M a k e T y p e : \t M a k e T y 0033400 p e P r o c T y p e ; \r \r - - 0033420 O p t T y p e p r e s e n t P r 0033440 o d \r \r O p t T y p e p r e s e 0033460 n t P r o d D a t a : \t T Y P E 0033500 = R E F O p t T y p e p r 0033520 e s e n t P r o d D a t a B o d 0033540 y ; \r O p t T y p e p r e s e n 0033560 t P r o d D a t a B o d y : \t T 0033600 Y P E = R E C O R D [ \r T y 0033620 p e E x p : T y p e E x p N o 0033640 d e ] ; \r \r O p t T y p e p r e 0033660 s e n t P r o d P r o c s : \t O 0033700 p t T y p e N o d e P r o c s ; 0033720 \r \r B u i l d O p t T y p e p r 0033740 e s e n t P r o d N o d e : \t P 0033760 R O C [ p o s i t i o n : I N 0034000 T , l e n g t h : I N T , 0034020 T y p e E x p : T y p e E x p 0034040 N o d e ] \r \t R E T U R N S [ O 0034060 p t T y p e N o d e ] ; \r \r O p 0034100 t T y p e p r e s e n t P r o d 0034120 M a k e T y p e : \t M a k e T y 0034140 p e P r o c T y p e ; \r E N D . 0034160 . \r 0034162