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