$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron2.0>Shared-Derived>SaffronAG6Def.Mesa!17 0000000 - - S a f f r o n A G 6 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 3 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 6 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 - - T y p e E x p t y p e i 0000620 d P r o d \r \r T y p e E x p t y 0000640 p e i d P r o d D a t a : \t T Y 0000660 P E = R E F T y p e E x p 0000700 t y p e i d P r o d D a t a B o 0000720 d y ; \r T y p e E x p t y p e i 0000740 d P r o d D a t a B o d y : \t T 0000760 Y P E = R E C O R D [ \r T y 0001000 p e I d : T y p e I d N o d e 0001020 ] ; \r \r T y p e E x p t y p e i 0001040 d P r o d P r o c s : \t T y p e 0001060 E x p N o d e P r o c s ; \r \r B 0001100 u i l d T y p e E x p t y p e i 0001120 d P r o d N o d e : \t P R O C [ 0001140 p o s i t i o n : I N T , l 0001160 e n g t h : I N T , T y p e 0001200 I d : T y p e I d N o d e ] \r 0001220 \t R E T U R N S [ T y p e E x p 0001240 N o d e ] ; \r \r T y p e E x p t 0001260 y p e i d P r o d M a k e T y p 0001300 e : \t M a k e T y p e P r o c T 0001320 y p e ; \r \r - - T y p e E x p 0001340 s u b r a n g e P r o d \r \r T y 0001360 p e E x p s u b r a n g e P r o 0001400 d D a t a : \t T Y P E = R E 0001420 F T y p e E x p s u b r a n g 0001440 e P r o d D a t a B o d y ; \r T 0001460 y p e E x p s u b r a n g e P r 0001500 o d D a t a B o d y : \t T Y P E 0001520 = R E C O R D [ \r S u b r a 0001540 n g e : S u b r a n g e N o d 0001560 e ] ; \r \r T y p e E x p s u b r 0001600 a n g e P r o d P r o c s : \t T 0001620 y p e E x p N o d e P r o c s ; 0001640 \r \r B u i l d T y p e E x p s u 0001660 b r a n g e P r o d N o d e : \t 0001700 P R O C [ p o s i t i o n : I 0001720 N T , l e n g t h : I N T , 0001740 S u b r a n g e : S u b r a 0001760 n g e N o d e ] \r \t R E T U R N 0002000 S [ T y p e E x p N o d e ] ; \r 0002020 \r T y p e E x p s u b r a n g e 0002040 P r o d M a k e T y p e : \t M a 0002060 k e T y p e P r o c T y p e ; \r 0002100 \r - - T y p e E x p e n u m P 0002120 r o d \r \r T y p e E x p e n u m 0002140 P r o d D a t a : \t T Y P E = 0002160 R E F T y p e E x p e n u m 0002200 P r o d D a t a B o d y ; \r T y 0002220 p e E x p e n u m P r o d D a t 0002240 a B o d y : \t T Y P E = R E 0002260 C O R D [ \r M a c h i n e D e p 0002300 e n d e n t : M a c h i n e D 0002320 e p e n d e n t N o d e , E l 0002340 e m e n t L i s t : E l e m e 0002360 n t L i s t N o d e ] ; \r \r T y 0002400 p e E x p e n u m P r o d P r o 0002420 c s : \t T y p e E x p N o d e P 0002440 r o c s ; \r \r B u i l d T y p e 0002460 E x p e n u m P r o d N o d e : 0002500 \t P R O C [ p o s i t i o n : 0002520 I N T , l e n g t h : I N T 0002540 , M a c h i n e D e p e n d e 0002560 n t : M a c h i n e D e p e n 0002600 d e n t N o d e , E l e m e n 0002620 t L i s t : E l e m e n t L i 0002640 s t N o d e ] \r \t R E T U R N S 0002660 [ T y p e E x p N o d e ] ; \r \r 0002700 T y p e E x p e n u m P r o d M 0002720 a k e T y p e : \t M a k e T y p 0002740 e P r o c T y p e ; \r \r - - T 0002760 y p e E x p r e c o r d P r o d 0003000 \r \r T y p e E x p r e c o r d P 0003020 r o d D a t a : \t T Y P E = 0003040 R E F T y p e E x p r e c o r 0003060 d P r o d D a t a B o d y ; \r T 0003100 y p e E x p r e c o r d P r o d 0003120 D a t a B o d y : \t T Y P E = 0003140 R E C O R D [ \r M a c h i n e 0003160 D e p e n d e n t : M a c h i 0003200 n e D e p e n d e n t N o d e , 0003220 M o n i t o r e d : M o n i 0003240 t o r e d N o d e , R e c L i 0003260 s t : R e c L i s t N o d e ] 0003300 ; \r \r T y p e E x p r e c o r d 0003320 P r o d P r o c s : \t T y p e E 0003340 x p N o d e P r o c s ; \r \r B u 0003360 i l d T y p e E x p r e c o r d 0003400 P r o d N o d e : \t P R O C [ p 0003420 o s i t i o n : I N T , l e 0003440 n g t h : I N T , M a c h i 0003460 n e D e p e n d e n t : M a c 0003500 h i n e D e p e n d e n t N o d 0003520 e , M o n i t o r e d : M o 0003540 n i t o r e d N o d e , R e c 0003560 L i s t : R e c L i s t N o d 0003600 e ] \r \t R E T U R N S [ T y p e 0003620 E x p N o d e ] ; \r \r T y p e E 0003640 x p r e c o r d P r o d M a k e 0003660 T y p e : \t M a k e T y p e P r 0003700 o c T y p e ; \r \r - - T y p e 0003720 E x p p o i n t e r P r o d \r \r 0003740 T y p e E x p p o i n t e r P r 0003760 o d D a t a : \t T Y P E = R 0004000 E F T y p e E x p p o i n t e 0004020 r P r o d D a t a B o d y ; \r T 0004040 y p e E x p p o i n t e r P r o 0004060 d D a t a B o d y : \t T Y P E 0004100 = R E C O R D [ \r O r d e r e 0004120 d : O r d e r e d N o d e , 0004140 B a s e : B a s e N o d e , 0004160 P o i n t e r T y p e : P o i 0004200 n t e r T y p e N o d e ] ; \r \r 0004220 T y p e E x p p o i n t e r P r 0004240 o d P r o c s : \t T y p e E x p 0004260 N o d e P r o c s ; \r \r B u i l 0004300 d T y p e E x p p o i n t e r P 0004320 r o d N o d e : \t P R O C [ p o 0004340 s i t i o n : I N T , l e n 0004360 g t h : I N T , O r d e r e 0004400 d : O r d e r e d N o d e , 0004420 B a s e : B a s e N o d e , 0004440 P o i n t e r T y p e : P o i 0004460 n t e r T y p e N o d e ] \r \t R 0004500 E T U R N S [ T y p e E x p N o 0004520 d e ] ; \r \r T y p e E x p p o i 0004540 n t e r P r o d M a k e T y p e 0004560 : \t M a k e T y p e P r o c T y 0004600 p e ; \r \r - - T y p e E x p v 0004620 a r P r o d \r \r T y p e E x p v 0004640 a r P r o d D a t a : \t T Y P E 0004660 = R E F T y p e E x p v a 0004700 r P r o d D a t a B o d y ; \r T 0004720 y p e E x p v a r P r o d D a t 0004740 a B o d y : \t T Y P E = R E 0004760 C O R D [ \r T y p e E x p : T 0005000 y p e E x p N o d e ] ; \r \r T y 0005020 p e E x p v a r P r o d P r o c 0005040 s : \t T y p e E x p N o d e P r 0005060 o c s ; \r \r B u i l d T y p e E 0005100 x p v a r P r o d N o d e : \t P 0005120 R O C [ p o s i t i o n : I N 0005140 T , l e n g t h : I N T , 0005160 T y p e E x p : T y p e E x p 0005200 N o d e ] \r \t R E T U R N S [ T 0005220 y p e E x p N o d e ] ; \r \r T y 0005240 p e E x p v a r P r o d M a k e 0005260 T y p e : \t M a k e T y p e P r 0005300 o c T y p e ; \r \r - - T y p e 0005320 E x p r e f P r o d \r \r T y p e 0005340 E x p r e f P r o d D a t a : \t 0005360 T Y P E = R E F T y p e E 0005400 x p r e f P r o d D a t a B o d 0005420 y ; \r T y p e E x p r e f P r o 0005440 d D a t a B o d y : \t T Y P E 0005460 = R E C O R D [ \r R e a d O n 0005500 l y : R e a d O n l y N o d e 0005520 , T y p e E x p : T y p e E 0005540 x p N o d e ] ; \r \r T y p e E x 0005560 p r e f P r o d P r o c s : \t T 0005600 y p e E x p N o d e P r o c s ; 0005620 \r \r B u i l d T y p e E x p r e 0005640 f P r o d N o d e : \t P R O C [ 0005660 p o s i t i o n : I N T , l 0005700 e n g t h : I N T , R e a d 0005720 O n l y : R e a d O n l y N o 0005740 d e , T y p e E x p : T y p 0005760 e E x p N o d e ] \r \t R E T U R 0006000 N S [ T y p e E x p N o d e ] ; 0006020 \r \r T y p e E x p r e f P r o d 0006040 M a k e T y p e : \t M a k e T y 0006060 p e P r o c T y p e ; \r \r - - 0006100 T y p e E x p r e f a n y P r o 0006120 d \r \r T y p e E x p r e f a n y 0006140 P r o d D a t a : \t T Y P E = 0006160 R E F T y p e E x p r e f a 0006200 n y P r o d D a t a B o d y ; \r 0006220 T y p e E x p r e f a n y P r o 0006240 d D a t a B o d y : \t T Y P E 0006260 = R E C O R D [ \r R e a d O n 0006300 l y : R e a d O n l y N o d e 0006320 ] ; \r \r T y p e E x p r e f a n 0006340 y P r o d P r o c s : \t T y p e 0006360 E x p N o d e P r o c s ; \r \r B 0006400 u i l d T y p e E x p r e f a n 0006420 y P r o d N o d e : \t P R O C [ 0006440 p o s i t i o n : I N T , l 0006460 e n g t h : I N T , R e a d 0006500 O n l y : R e a d O n l y N o 0006520 d e ] \r \t R E T U R N S [ T y p 0006540 e E x p N o d e ] ; \r \r T y p e 0006560 E x p r e f a n y P r o d M a k 0006600 e T y p e : \t M a k e T y p e P 0006620 r o c T y p e ; \r \r - - T y p 0006640 e E x p r e f u n s p e c i f i 0006660 e d P r o d \r \r T y p e E x p r 0006700 e f u n s p e c i f i e d P r o 0006720 d D a t a : \t T Y P E = R E 0006740 F T y p e E x p r e f u n s p 0006760 e c i f i e d P r o d D a t a B 0007000 o d y ; \r T y p e E x p r e f u 0007020 n s p e c i f i e d P r o d D a 0007040 t a B o d y : \t T Y P E = R 0007060 E C O R D [ \r ] ; \r \r T y p e E 0007100 x p r e f u n s p e c i f i e d 0007120 P r o d P r o c s : \t T y p e E 0007140 x p N o d e P r o c s ; \r \r B u 0007160 i l d T y p e E x p r e f u n s 0007200 p e c i f i e d P r o d N o d e 0007220 : \t P R O C [ p o s i t i o n : 0007240 I N T , l e n g t h : I N 0007260 T ] \r \t R E T U R N S [ T y p e 0007300 E x p N o d e ] ; \r \r T y p e E 0007320 x p r e f u n s p e c i f i e d 0007340 P r o d M a k e T y p e : \t M a 0007360 k e T y p e P r o c T y p e ; \r 0007400 \r - - T y p e E x p l i s t P 0007420 r o d \r \r T y p e E x p l i s t 0007440 P r o d D a t a : \t T Y P E = 0007460 R E F T y p e E x p l i s t 0007500 P r o d D a t a B o d y ; \r T y 0007520 p e E x p l i s t P r o d D a t 0007540 a B o d y : \t T Y P E = R E 0007560 C O R D [ \r R e a d O n l y : 0007600 R e a d O n l y N o d e , T y 0007620 p e E x p : T y p e E x p N o 0007640 d e ] ; \r \r T y p e E x p l i s 0007660 t P r o d P r o c s : \t T y p e 0007700 E x p N o d e P r o c s ; \r \r B 0007720 u i l d T y p e E x p l i s t P 0007740 r o d N o d e : \t P R O C [ p o 0007760 s i t i o n : I N T , l e n 0010000 g t h : I N T , R e a d O n 0010020 l y : R e a d O n l y N o d e 0010040 , T y p e E x p : T y p e E 0010060 x p N o d e ] \r \t R E T U R N S 0010100 [ T y p e E x p N o d e ] ; \r \r 0010120 T y p e E x p l i s t P r o d M 0010140 a k e T y p e : \t M a k e T y p 0010160 e P r o c T y p e ; \r \r - - T 0010200 y p e E x p a r r a y P r o d \r 0010220 \r T y p e E x p a r r a y P r o 0010240 d D a t a : \t T Y P E = R E 0010260 F T y p e E x p a r r a y P r 0010300 o d D a t a B o d y ; \r T y p e 0010320 E x p a r r a y P r o d D a t a 0010340 B o d y : \t T Y P E = R E C 0010360 O R D [ \r P a c k e d : P a c 0010400 k e d N o d e , O p t T y p e 0010420 : O p t T y p e N o d e , T 0010440 y p e E x p : T y p e E x p N 0010460 o d e ] ; \r \r T y p e E x p a r 0010500 r a y P r o d P r o c s : \t T y 0010520 p e E x p N o d e P r o c s ; \r 0010540 \r B u i l d T y p e E x p a r r 0010560 a y P r o d N o d e : \t P R O C 0010600 [ p o s i t i o n : I N T , 0010620 l e n g t h : I N T , P a c 0010640 k e d : P a c k e d N o d e , 0010660 O p t T y p e : O p t T y p 0010700 e N o d e , T y p e E x p : 0010720 T y p e E x p N o d e ] \r \t R E 0010740 T U R N S [ T y p e E x p N o d 0010760 e ] ; \r \r T y p e E x p a r r a 0011000 y P r o d M a k e T y p e : \t M 0011020 a k e T y p e P r o c T y p e ; 0011040 \r \r - - T y p e E x p d e s c 0011060 r i p t o r P r o d \r \r T y p e 0011100 E x p d e s c r i p t o r P r o 0011120 d D a t a : \t T Y P E = R E 0011140 F T y p e E x p d e s c r i p 0011160 t o r P r o d D a t a B o d y ; 0011200 \r T y p e E x p d e s c r i p t 0011220 o r P r o d D a t a B o d y : \t 0011240 T Y P E = R E C O R D [ \r R 0011260 e a d O n l y : R e a d O n l 0011300 y N o d e , T y p e E x p : 0011320 T y p e E x p N o d e ] ; \r \r T 0011340 y p e E x p d e s c r i p t o r 0011360 P r o d P r o c s : \t T y p e E 0011400 x p N o d e P r o c s ; \r \r B u 0011420 i l d T y p e E x p d e s c r i 0011440 p t o r P r o d N o d e : \t P R 0011460 O C [ p o s i t i o n : I N T 0011500 , l e n g t h : I N T , R 0011520 e a d O n l y : R e a d O n l 0011540 y N o d e , T y p e E x p : 0011560 T y p e E x p N o d e ] \r \t R E 0011600 T U R N S [ T y p e E x p N o d 0011620 e ] ; \r \r T y p e E x p d e s c 0011640 r i p t o r P r o d M a k e T y 0011660 p e : \t M a k e T y p e P r o c 0011700 T y p e ; \r \r - - T y p e E x 0011720 p t r a n s f e r P r o d \r \r T 0011740 y p e E x p t r a n s f e r P r 0011760 o d D a t a : \t T Y P E = R 0012000 E F T y p e E x p t r a n s f 0012020 e r P r o d D a t a B o d y ; \r 0012040 T y p e E x p t r a n s f e r P 0012060 r o d D a t a B o d y : \t T Y P 0012100 E = R E C O R D [ \r S a f e 0012120 : S a f e N o d e , T r a n 0012140 s f e r M o d e : T r a n s f 0012160 e r M o d e N o d e , A r g u 0012200 m e n t s : A r g u m e n t s 0012220 N o d e ] ; \r \r T y p e E x p t 0012240 r a n s f e r P r o d P r o c s 0012260 : \t T y p e E x p N o d e P r o 0012300 c s ; \r \r B u i l d T y p e E x 0012320 p t r a n s f e r P r o d N o d 0012340 e : \t P R O C [ p o s i t i o n 0012360 : I N T , l e n g t h : I 0012400 N T , S a f e : S a f e N o 0012420 d e , T r a n s f e r M o d e 0012440 : T r a n s f e r M o d e N o 0012460 d e , A r g u m e n t s : A 0012500 r g u m e n t s N o d e ] \r \t R 0012520 E T U R N S [ T y p e E x p N o 0012540 d e ] ; \r \r T y p e E x p t r a 0012560 n s f e r P r o d M a k e T y p 0012600 e : \t M a k e T y p e P r o c T 0012620 y p e ; \r \r - - T y p e E x p 0012640 r e l a t i v e P r o d \r \r T y 0012660 p e E x p r e l a t i v e P r o 0012700 d D a t a : \t T Y P E = R E 0012720 F T y p e E x p r e l a t i v 0012740 e P r o d D a t a B o d y ; \r T 0012760 y p e E x p r e l a t i v e P r 0013000 o d D a t a B o d y : \t T Y P E 0013020 = R E C O R D [ \r T y p e I 0013040 d : T y p e I d N o d e , T 0013060 y p e E x p : T y p e E x p N 0013100 o d e ] ; \r \r T y p e E x p r e 0013120 l a t i v e P r o d P r o c s : 0013140 \t T y p e E x p N o d e P r o c 0013160 s ; \r \r B u i l d T y p e E x p 0013200 r e l a t i v e P r o d N o d e 0013220 : \t P R O C [ p o s i t i o n : 0013240 I N T , l e n g t h : I N 0013260 T , T y p e I d : T y p e I 0013300 d N o d e , T y p e E x p : 0013320 T y p e E x p N o d e ] \r \t R E 0013340 T U R N S [ T y p e E x p N o d 0013360 e ] ; \r \r T y p e E x p r e l a 0013400 t i v e P r o d M a k e T y p e 0013420 : \t M a k e T y p e P r o c T y 0013440 p e ; \r \r - - T y p e E x p z 0013460 o n e P r o d \r \r T y p e E x p 0013500 z o n e P r o d D a t a : \t T Y 0013520 P E = R E F T y p e E x p 0013540 z o n e P r o d D a t a B o d y 0013560 ; \r T y p e E x p z o n e P r o 0013600 d D a t a B o d y : \t T Y P E 0013620 = R E C O R D [ \r U n c o u n 0013640 t e d : U n c o u n t e d N o 0013660 d e ] ; \r \r T y p e E x p z o n 0013700 e P r o d P r o c s : \t T y p e 0013720 E x p N o d e P r o c s ; \r \r B 0013740 u i l d T y p e E x p z o n e P 0013760 r o d N o d e : \t P R O C [ p o 0014000 s i t i o n : I N T , l e n 0014020 g t h : I N T , U n c o u n 0014040 t e d : U n c o u n t e d N o 0014060 d e ] \r \t R E T U R N S [ T y p 0014100 e E x p N o d e ] ; \r \r T y p e 0014120 E x p z o n e P r o d M a k e T 0014140 y p e : \t M a k e T y p e P r o 0014160 c T y p e ; \r \r - - T y p e E 0014200 x p l o n g P r o d \r \r T y p e 0014220 E x p l o n g P r o d D a t a : 0014240 \t T Y P E = R E F T y p e 0014260 E x p l o n g P r o d D a t a B 0014300 o d y ; \r T y p e E x p l o n g 0014320 P r o d D a t a B o d y : \t T Y 0014340 P E = R E C O R D [ \r T y p 0014360 e E x p : T y p e E x p N o d 0014400 e ] ; \r \r T y p e E x p l o n g 0014420 P r o d P r o c s : \t T y p e E 0014440 x p N o d e P r o c s ; \r \r B u 0014460 i l d T y p e E x p l o n g P r 0014500 o d N o d e : \t P R O C [ p o s 0014520 i t i o n : I N T , l e n g 0014540 t h : I N T , T y p e E x p 0014560 : T y p e E x p N o d e ] \r \t 0014600 R E T U R N S [ T y p e E x p N 0014620 o d e ] ; \r \r T y p e E x p l o 0014640 n g P r o d M a k e T y p e : \t 0014660 M a k e T y p e P r o c T y p e 0014700 ; \r \r - - T y p e E x p f r a 0014720 m e P r o d \r \r T y p e E x p f 0014740 r a m e P r o d D a t a : \t T Y 0014760 P E = R E F T y p e E x p 0015000 f r a m e P r o d D a t a B o d 0015020 y ; \r T y p e E x p f r a m e P 0015040 r o d D a t a B o d y : \t T Y P 0015060 E = R E C O R D [ \r I d : 0015100 I d N o d e ] ; \r \r T y p e E x 0015120 p f r a m e P r o d P r o c s : 0015140 \t T y p e E x p N o d e P r o c 0015160 s ; \r \r B u i l d T y p e E x p 0015200 f r a m e P r o d N o d e : \t P 0015220 R O C [ p o s i t i o n : I N 0015240 T , l e n g t h : I N T , 0015260 I d : I d N o d e ] \r \t R E T 0015300 U R N S [ T y p e E x p N o d e 0015320 ] ; \r \r T y p e E x p f r a m e 0015340 P r o d M a k e T y p e : \t M a 0015360 k e T y p e P r o c T y p e ; \r 0015400 \r - - T y p e E x p p a i n t 0015420 e d P r o d \r \r T y p e E x p p 0015440 a i n t e d P r o d D a t a : \t 0015460 T Y P E = R E F T y p e E 0015500 x p p a i n t e d P r o d D a t 0015520 a B o d y ; \r T y p e E x p p a 0015540 i n t e d P r o d D a t a B o d 0015560 y : \t T Y P E = R E C O R D 0015600 [ \r T y p e I d : T y p e I d 0015620 N o d e , T y p e E x p : T 0015640 y p e E x p N o d e ] ; \r \r T y 0015660 p e E x p p a i n t e d P r o d 0015700 P r o c s : \t T y p e E x p N o 0015720 d e P r o c s ; \r \r B u i l d T 0015740 y p e E x p p a i n t e d P r o 0015760 d N o d e : \t P R O C [ p o s i 0016000 t i o n : I N T , l e n g t 0016020 h : I N T , T y p e I d : 0016040 T y p e I d N o d e , T y p e 0016060 E x p : T y p e E x p N o d e 0016100 ] \r \t R E T U R N S [ T y p e E 0016120 x p N o d e ] ; \r \r T y p e E x 0016140 p p a i n t e d P r o d M a k e 0016160 T y p e : \t M a k e T y p e P r 0016200 o c T y p e ; \r \r - - T y p e 0016220 E x p t y p e a p p l y P r o d 0016240 \r \r T y p e E x p t y p e a p p 0016260 l y P r o d D a t a : \t T Y P E 0016300 = R E F T y p e E x p t y 0016320 p e a p p l y P r o d D a t a B 0016340 o d y ; \r T y p e E x p t y p e 0016360 a p p l y P r o d D a t a B o d 0016400 y : \t T Y P E = R E C O R D 0016420 [ \r T y p e A p p l y : T y p 0016440 e A p p l y N o d e ] ; \r \r T y 0016460 p e E x p t y p e a p p l y P r 0016500 o d P r o c s : \t T y p e E x p 0016520 N o d e P r o c s ; \r \r B u i l 0016540 d T y p e E x p t y p e a p p l 0016560 y P r o d N o d e : \t P R O C [ 0016600 p o s i t i o n : I N T , l 0016620 e n g t h : I N T , T y p e 0016640 A p p l y : T y p e A p p l y 0016660 N o d e ] \r \t R E T U R N S [ T 0016700 y p e E x p N o d e ] ; \r \r T y 0016720 p e E x p t y p e a p p l y P r 0016740 o d M a k e T y p e : \t M a k e 0016760 T y p e P r o c T y p e ; \r \r - 0017000 - T y p e E x p u n i o n P r 0017020 o d \r \r T y p e E x p u n i o n 0017040 P r o d D a t a : \t T Y P E = 0017060 R E F T y p e E x p u n i o 0017100 n P r o d D a t a B o d y ; \r T 0017120 y p e E x p u n i o n P r o d D 0017140 a t a B o d y : \t T Y P E = 0017160 R E C O R D [ \r T a g : T a g 0017200 N o d e , V a r i a n t L i s 0017220 t : V a r i a n t L i s t N o 0017240 d e ] ; \r \r T y p e E x p u n i 0017260 o n P r o d P r o c s : \t T y p 0017300 e E x p N o d e P r o c s ; \r \r 0017320 B u i l d T y p e E x p u n i o 0017340 n P r o d N o d e : \t P R O C [ 0017360 p o s i t i o n : I N T , l 0017400 e n g t h : I N T , T a g : 0017420 T a g N o d e , V a r i a n 0017440 t L i s t : V a r i a n t L i 0017460 s t N o d e ] \r \t R E T U R N S 0017500 [ T y p e E x p N o d e ] ; \r \r 0017520 T y p e E x p u n i o n P r o d 0017540 M a k e T y p e : \t M a k e T y 0017560 p e P r o c T y p e ; \r \r - - 0017600 T y p e E x p s e q u e n c e P 0017620 r o d \r \r T y p e E x p s e q u 0017640 e n c e P r o d D a t a : \t T Y 0017660 P E = R E F T y p e E x p 0017700 s e q u e n c e P r o d D a t a 0017720 B o d y ; \r T y p e E x p s e q 0017740 u e n c e P r o d D a t a B o d 0017760 y : \t T Y P E = R E C O R D 0020000 [ \r P a c k e d : P a c k e d 0020020 N o d e , T a g : T a g N o 0020040 d e , T y p e E x p : T y p 0020060 e E x p N o d e ] ; \r \r T y p e 0020100 E x p s e q u e n c e P r o d P 0020120 r o c s : \t T y p e E x p N o d 0020140 e P r o c s ; \r \r B u i l d T y 0020160 p e E x p s e q u e n c e P r o 0020200 d N o d e : \t P R O C [ p o s i 0020220 t i o n : I N T , l e n g t 0020240 h : I N T , P a c k e d : 0020260 P a c k e d N o d e , T a g : 0020300 T a g N o d e , T y p e E x 0020320 p : T y p e E x p N o d e ] \r 0020340 \t R E T U R N S [ T y p e E x p 0020360 N o d e ] ; \r \r T y p e E x p s 0020400 e q u e n c e P r o d M a k e T 0020420 y p e : \t M a k e T y p e P r o 0020440 c T y p e ; \r \r - - T y p e I 0020460 d i d P r o d \r \r T y p e I d i 0020500 d P r o d D a t a : \t T Y P E 0020520 = R E F T y p e I d i d P r 0020540 o d D a t a B o d y ; \r T y p e 0020560 I d i d P r o d D a t a B o d y 0020600 : \t T Y P E = R E C O R D [ 0020620 \r I d : I d N o d e ] ; \r \r T 0020640 y p e I d i d P r o d P r o c s 0020660 : \t T y p e I d N o d e P r o c 0020700 s ; \r \r B u i l d T y p e I d i 0020720 d P r o d N o d e : \t P R O C [ 0020740 p o s i t i o n : I N T , l 0020760 e n g t h : I N T , I d : 0021000 I d N o d e ] \r \t R E T U R N S 0021020 [ T y p e I d N o d e ] ; \r \r T 0021040 y p e I d i d P r o d M a k e T 0021060 y p e : \t M a k e T y p e P r o 0021100 c T y p e ; \r T y p e I d i d P 0021120 r o d L o o k u p T y p e I d : 0021140 \t L o o k u p T y p e I d P r o 0021160 c T y p e ; \r \r - - T y p e I 0021200 d q u a l i f i e r P r o d \r \r 0021220 T y p e I d q u a l i f i e r P 0021240 r o d D a t a : \t T Y P E = 0021260 R E F T y p e I d q u a l i f 0021300 i e r P r o d D a t a B o d y ; 0021320 \r T y p e I d q u a l i f i e r 0021340 P r o d D a t a B o d y : \t T Y 0021360 P E = R E C O R D [ \r T y p 0021400 e I d : T y p e I d N o d e , 0021420 I d : I d N o d e ] ; \r \r T 0021440 y p e I d q u a l i f i e r P r 0021460 o d P r o c s : \t T y p e I d N 0021500 o d e P r o c s ; \r \r B u i l d 0021520 T y p e I d q u a l i f i e r P 0021540 r o d N o d e : \t P R O C [ p o 0021560 s i t i o n : I N T , l e n 0021600 g t h : I N T , T y p e I d 0021620 : T y p e I d N o d e , I d 0021640 : I d N o d e ] \r \t R E T U R 0021660 N S [ T y p e I d N o d e ] ; \r 0021700 \r T y p e I d q u a l i f i e r 0021720 P r o d M a k e T y p e : \t M a 0021740 k e T y p e P r o c T y p e ; \r 0021760 T y p e I d q u a l i f i e r P 0022000 r o d L o o k u p T y p e I d : 0022020 \t L o o k u p T y p e I d P r o 0022040 c T y p e ; \r \r - - S u b r a 0022060 n g e n a m e d P r o d \r \r S u 0022100 b r a n g e n a m e d P r o d D 0022120 a t a : \t T Y P E = R E F 0022140 S u b r a n g e n a m e d P r o 0022160 d D a t a B o d y ; \r S u b r a 0022200 n g e n a m e d P r o d D a t a 0022220 B o d y : \t T Y P E = R E C 0022240 O R D [ \r T y p e I d : T y p 0022260 e I d N o d e , I n t e r v a 0022300 l : I n t e r v a l N o d e ] 0022320 ; \r \r S u b r a n g e n a m e d 0022340 P r o d P r o c s : \t S u b r a 0022360 n g e N o d e P r o c s ; \r \r B 0022400 u i l d S u b r a n g e n a m e 0022420 d P r o d N o d e : \t P R O C [ 0022440 p o s i t i o n : I N T , l 0022460 e n g t h : I N T , T y p e 0022500 I d : T y p e I d N o d e , 0022520 I n t e r v a l : I n t e r v 0022540 a l N o d e ] \r \t R E T U R N S 0022560 [ S u b r a n g e N o d e ] ; \r 0022600 \r S u b r a n g e n a m e d P r 0022620 o d M a k e T y p e : \t M a k e 0022640 T y p e P r o c T y p e ; \r \r - 0022660 - S u b r a n g e u n n a m e 0022700 d P r o d \r \r S u b r a n g e u 0022720 n n a m e d P r o d D a t a : \t 0022740 T Y P E = R E F S u b r a 0022760 n g e u n n a m e d P r o d D a 0023000 t a B o d y ; \r S u b r a n g e 0023020 u n n a m e d P r o d D a t a B 0023040 o d y : \t T Y P E = R E C O 0023060 R D [ \r I n t e r v a l : I n 0023100 t e r v a l N o d e ] ; \r \r S u 0023120 b r a n g e u n n a m e d P r o 0023140 d P r o c s : \t S u b r a n g e 0023160 N o d e P r o c s ; \r \r B u i l 0023200 d S u b r a n g e u n n a m e d 0023220 P r o d N o d e : \t P R O C [ p 0023240 o s i t i o n : I N T , l e 0023260 n g t h : I N T , I n t e r 0023300 v a l : I n t e r v a l N o d 0023320 e ] \r \t R E T U R N S [ S u b r 0023340 a n g e N o d e ] ; \r \r S u b r 0023360 a n g e u n n a m e d P r o d M 0023400 a k e T y p e : \t M a k e T y p 0023420 e P r o c T y p e ; \r \r - - I 0023440 n t e r v a l c c P r o d \r \r I 0023460 n t e r v a l c c P r o d D a t 0023500 a : \t T Y P E = R E F I n 0023520 t e r v a l c c P r o d D a t a 0023540 B o d y ; \r I n t e r v a l c c 0023560 P r o d D a t a B o d y : \t T Y 0023600 P E = R E C O R D [ \r B o u 0023620 n d s : B o u n d s N o d e ] 0023640 ; \r \r I n t e r v a l c c P r o 0023660 d P r o c s : \t I n t e r v a l 0023700 N o d e P r o c s ; \r \r B u i l 0023720 d I n t e r v a l c c P r o d N 0023740 o d e : \t P R O C [ p o s i t i 0023760 o n : I N T , l e n g t h : 0024000 I N T , B o u n d s : B o 0024020 u n d s N o d e ] \r \t R E T U R 0024040 N S [ I n t e r v a l N o d e ] 0024060 ; \r \r I n t e r v a l c c P r o 0024100 d G e t B o u n d s V a l : \t G 0024120 e t B o u n d s V a l P r o c T 0024140 y p e ; \r \r - - I n t e r v a 0024160 l c o P r o d \r \r I n t e r v a 0024200 l c o P r o d D a t a : \t T Y P 0024220 E = R E F I n t e r v a l 0024240 c o P r o d D a t a B o d y ; \r 0024260 I n t e r v a l c o P r o d D a 0024300 t a B o d y : \t T Y P E = R 0024320 E C O R D [ \r B o u n d s : B 0024340 o u n d s N o d e ] ; \r \r I n t 0024360 e r v a l c o P r o d P r o c s 0024400 : \t I n t e r v a l N o d e P r 0024420 o c s ; \r \r B u i l d I n t e r 0024440 v a l c o P r o d N o d e : \t P 0024460 R O C [ p o s i t i o n : I N 0024500 T , l e n g t h : I N T , 0024520 B o u n d s : B o u n d s N o 0024540 d e ] \r \t R E T U R N S [ I n t 0024560 e r v a l N o d e ] ; \r \r I n t 0024600 e r v a l c o P r o d G e t B o 0024620 u n d s V a l : \t G e t B o u n 0024640 d s V a l P r o c T y p e ; \r \r 0024660 - - I n t e r v a l o c P r o 0024700 d \r \r I n t e r v a l o c P r o 0024720 d D a t a : \t T Y P E = R E 0024740 F I n t e r v a l o c P r o d 0024760 D a t a B o d y ; \r I n t e r v 0025000 a l o c P r o d D a t a B o d y 0025020 : \t T Y P E = R E C O R D [ 0025040 \r B o u n d s : B o u n d s N 0025060 o d e ] ; \r \r I n t e r v a l o 0025100 c P r o d P r o c s : \t I n t e 0025120 r v a l N o d e P r o c s ; \r \r 0025140 B u i l d I n t e r v a l o c P 0025160 r o d N o d e : \t P R O C [ p o 0025200 s i t i o n : I N T , l e n 0025220 g t h : I N T , B o u n d s 0025240 : B o u n d s N o d e ] \r \t R 0025260 E T U R N S [ I n t e r v a l N 0025300 o d e ] ; \r \r I n t e r v a l o 0025320 c P r o d G e t B o u n d s V a 0025340 l : \t G e t B o u n d s V a l P 0025360 r o c T y p e ; \r \r - - I n t 0025400 e r v a l o o P r o d \r \r I n t 0025420 e r v a l o o P r o d D a t a : 0025440 \t T Y P E = R E F I n t e 0025460 r v a l o o P r o d D a t a B o 0025500 d y ; \r I n t e r v a l o o P r 0025520 o d D a t a B o d y : \t T Y P E 0025540 = R E C O R D [ \r B o u n d 0025560 s : B o u n d s N o d e ] ; \r 0025600 \r I n t e r v a l o o P r o d P 0025620 r o c s : \t I n t e r v a l N o 0025640 d e P r o c s ; \r \r B u i l d I 0025660 n t e r v a l o o P r o d N o d 0025700 e : \t P R O C [ p o s i t i o n 0025720 : I N T , l e n g t h : I 0025740 N T , B o u n d s : B o u n 0025760 d s N o d e ] \r \t R E T U R N S 0026000 [ I n t e r v a l N o d e ] ; \r 0026020 \r I n t e r v a l o o P r o d G 0026040 e t B o u n d s V a l : \t G e t 0026060 B o u n d s V a l P r o c T y p 0026100 e ; \r \r - - B o u n d s P r o 0026120 d \r \r B o u n d s P r o d D a t 0026140 a : \t T Y P E = R E F B o 0026160 u n d s P r o d D a t a B o d y 0026200 ; \r B o u n d s P r o d D a t a 0026220 B o d y : \t T Y P E = R E C 0026240 O R D [ \r E x p l o w e r : E 0026260 x p N o d e , E x p u p p e r 0026300 : E x p N o d e ] ; \r \r B o u 0026320 n d s P r o d P r o c s : \t B o 0026340 u n d s N o d e P r o c s ; \r \r 0026360 B u i l d B o u n d s P r o d N 0026400 o d e : \t P R O C [ p o s i t i 0026420 o n : I N T , l e n g t h : 0026440 I N T , E x p l o w e r : 0026460 E x p N o d e , E x p u p p e 0026500 r : E x p N o d e ] \r \t R E T 0026520 U R N S [ B o u n d s N o d e ] 0026540 ; \r \r B o u n d s P r o d G e t 0026560 L o w e r A n d U p p e r : \t G 0026600 e t L o w e r A n d U p p e r P 0026620 r o c T y p e ; \r \r - - M a c 0026640 h i n e D e p e n d e n t y e s 0026660 P r o d \r \r M a c h i n e D e p 0026700 e n d e n t y e s P r o d D a t 0026720 a : \t T Y P E = R E F M a 0026740 c h i n e D e p e n d e n t y e 0026760 s P r o d D a t a B o d y ; \r M 0027000 a c h i n e D e p e n d e n t y 0027020 e s P r o d D a t a B o d y : \t 0027040 T Y P E = R E C O R D [ \r ] 0027060 ; \r \r M a c h i n e D e p e n d 0027100 e n t y e s P r o d P r o c s : 0027120 \t M a c h i n e D e p e n d e n 0027140 t N o d e P r o c s ; \r \r B u i 0027160 l d M a c h i n e D e p e n d e 0027200 n t y e s P r o d N o d e : \t P 0027220 R O C [ p o s i t i o n : I N 0027240 T , l e n g t h : I N T ] \r 0027260 \t R E T U R N S [ M a c h i n e 0027300 D e p e n d e n t N o d e ] ; \r 0027320 \r M a c h i n e D e p e n d e n 0027340 t y e s P r o d G e t B o o l e 0027360 a n V a l : \t G e t B o o l e a 0027400 n V a l P r o c T y p e ; \r \r - 0027420 - M a c h i n e D e p e n d e 0027440 n t n o P r o d \r \r M a c h i n 0027460 e D e p e n d e n t n o P r o d 0027500 D a t a : \t T Y P E = R E F 0027520 M a c h i n e D e p e n d e n 0027540 t n o P r o d D a t a B o d y ; 0027560 \r M a c h i n e D e p e n d e n 0027600 t n o P r o d D a t a B o d y : 0027620 \t T Y P E = R E C O R D [ \r 0027640 ] ; \r \r M a c h i n e D e p e n 0027660 d e n t n o P r o d P r o c s : 0027700 \t M a c h i n e D e p e n d e n 0027720 t N o d e P r o c s ; \r \r B u i 0027740 l d M a c h i n e D e p e n d e 0027760 n t n o P r o d N o d e : \t P R 0030000 O C [ p o s i t i o n : I N T 0030020 , l e n g t h : I N T ] \r \t 0030040 R E T U R N S [ M a c h i n e D 0030060 e p e n d e n t N o d e ] ; \r \r 0030100 M a c h i n e D e p e n d e n t 0030120 n o P r o d G e t B o o l e a n 0030140 V a l : \t G e t B o o l e a n V 0030160 a l P r o c T y p e ; \r \r - - 0030200 M o n i t o r e d y e s P r o d 0030220 \r \r M o n i t o r e d y e s P r 0030240 o d D a t a : \t T Y P E = R 0030260 E F M o n i t o r e d y e s P 0030300 r o d D a t a B o d y ; \r M o n 0030320 i t o r e d y e s P r o d D a t 0030340 a B o d y : \t T Y P E = R E 0030360 C O R D [ \r ] ; \r \r M o n i t o 0030400 r e d y e s P r o d P r o c s : 0030420 \t M o n i t o r e d N o d e P r 0030440 o c s ; \r \r B u i l d M o n i t 0030460 o r e d y e s P r o d N o d e : 0030500 \t P R O C [ p o s i t i o n : 0030520 I N T , l e n g t h : I N T 0030540 ] \r \t R E T U R N S [ M o n i t 0030560 o r e d N o d e ] ; \r \r M o n i 0030600 t o r e d y e s P r o d G e t B 0030620 o o l e a n V a l : \t G e t B o 0030640 o l e a n V a l P r o c T y p e 0030660 ; \r \r - - M o n i t o r e d n 0030700 o P r o d \r \r M o n i t o r e d 0030720 n o P r o d D a t a : \t T Y P E 0030740 = R E F M o n i t o r e d 0030760 n o P r o d D a t a B o d y ; \r 0031000 M o n i t o r e d n o P r o d D 0031020 a t a B o d y : \t T Y P E = 0031040 R E C O R D [ \r ] ; \r \r M o n i 0031060 t o r e d n o P r o d P r o c s 0031100 : \t M o n i t o r e d N o d e P 0031120 r o c s ; \r \r B u i l d M o n i 0031140 t o r e d n o P r o d N o d e : 0031160 \t P R O C [ p o s i t i o n : 0031200 I N T , l e n g t h : I N T 0031220 ] \r \t R E T U R N S [ M o n i t 0031240 o r e d N o d e ] ; \r \r M o n i 0031260 t o r e d n o P r o d G e t B o 0031300 o l e a n V a l : \t G e t B o o 0031320 l e a n V a l P r o c T y p e ; 0031340 \r \r - - E l e m e n t L i s t 0031360 e m p t y P r o d \r \r E l e m e 0031400 n t L i s t e m p t y P r o d D 0031420 a t a : \t T Y P E = R E F 0031440 E l e m e n t L i s t e m p t y 0031460 P r o d D a t a B o d y ; \r E l 0031500 e m e n t L i s t e m p t y P r 0031520 o d D a t a B o d y : \t T Y P E 0031540 = R E C O R D [ \r ] ; \r \r E 0031560 l e m e n t L i s t e m p t y P 0031600 r o d P r o c s : \t E l e m e n 0031620 t L i s t N o d e P r o c s ; \r 0031640 \r B u i l d E l e m e n t L i s 0031660 t e m p t y P r o d N o d e : \t 0031700 P R O C [ p o s i t i o n : I 0031720 N T , l e n g t h : I N T ] 0031740 \r \t R E T U R N S [ E l e m e n 0031760 t L i s t N o d e ] ; \r \r E l e 0032000 m e n t L i s t e m p t y P r o 0032020 d M a k e E l e m e n t L i s t 0032040 : \t M a k e E l e m e n t L i s 0032060 t P r o c T y p e ; \r \r - - E 0032100 l e m e n t L i s t m o r e P r 0032120 o d \r \r E l e m e n t L i s t m 0032140 o r e P r o d D a t a : \t T Y P 0032160 E = R E F E l e m e n t L 0032200 i s t m o r e P r o d D a t a B 0032220 o d y ; \r E l e m e n t L i s t 0032240 m o r e P r o d D a t a B o d y 0032260 : \t T Y P E = R E C O R D [ 0032300 \r E l e m e n t L i s t : E l 0032320 e m e n t L i s t N o d e , E 0032340 l e m e n t : E l e m e n t N 0032360 o d e ] ; \r \r E l e m e n t L i 0032400 s t m o r e P r o d P r o c s : 0032420 \t E l e m e n t L i s t N o d e 0032440 P r o c s ; \r \r B u i l d E l e 0032460 m e n t L i s t m o r e P r o d 0032500 N o d e : \t P R O C [ p o s i t 0032520 i o n : I N T , l e n g t h 0032540 : I N T , E l e m e n t L i 0032560 s t : E l e m e n t L i s t N 0032600 o d e , E l e m e n t : E l 0032620 e m e n t N o d e ] \r \t R E T U 0032640 R N S [ E l e m e n t L i s t N 0032660 o d e ] ; \r \r E l e m e n t L i 0032700 s t m o r e P r o d M a k e E l 0032720 e m e n t L i s t : \t M a k e E 0032740 l e m e n t L i s t P r o c T y 0032760 p e ; \r \r - - E l e m e n t i 0033000 d P r o d \r \r E l e m e n t i d 0033020 P r o d D a t a : \t T Y P E = 0033040 R E F E l e m e n t i d P r 0033060 o d D a t a B o d y ; \r E l e m 0033100 e n t i d P r o d D a t a B o d 0033120 y : \t T Y P E = R E C O R D 0033140 [ \r I d : I d N o d e ] ; \r \r 0033160 E l e m e n t i d P r o d P r o 0033200 c s : \t E l e m e n t N o d e P 0033220 r o c s ; \r \r B u i l d E l e m 0033240 e n t i d P r o d N o d e : \t P 0033260 R O C [ p o s i t i o n : I N 0033300 T , l e n g t h : I N T , 0033320 I d : I d N o d e ] \r \t R E T 0033340 U R N S [ E l e m e n t N o d e 0033360 ] ; \r \r E l e m e n t i d P r o 0033400 d E l e m e n t I n f o : \t E l 0033420 e m e n t I n f o P r o c T y p 0033440 e ; \r \r - - E l e m e n t i d 0033460 w i t h r e p P r o d \r \r E l e 0033500 m e n t i d w i t h r e p P r o 0033520 d D a t a : \t T Y P E = R E 0033540 F E l e m e n t i d w i t h r 0033560 e p P r o d D a t a B o d y ; \r 0033600 E l e m e n t i d w i t h r e p 0033620 P r o d D a t a B o d y : \t T Y 0033640 P E = R E C O R D [ \r I d : 0033660 I d N o d e , E x p : E x 0033700 p N o d e ] ; \r \r E l e m e n t 0033720 i d w i t h r e p P r o d P r o 0033740 c s : \t E l e m e n t N o d e P 0033760 r o c s ; \r \r B u i l d E l e m 0034000 e n t i d w i t h r e p P r o d 0034020 N o d e : \t P R O C [ p o s i t 0034040 i o n : I N T , l e n g t h 0034060 : I N T , I d : I d N o d 0034100 e , E x p : E x p N o d e ] 0034120 \r \t R E T U R N S [ E l e m e n 0034140 t N o d e ] ; \r \r E l e m e n t 0034160 i d w i t h r e p P r o d E l e 0034200 m e n t I n f o : \t E l e m e n 0034220 t I n f o P r o c T y p e ; \r \r 0034240 - - E l e m e n t a n o n y m 0034260 o u s r e p P r o d \r \r E l e m 0034300 e n t a n o n y m o u s r e p P 0034320 r o d D a t a : \t T Y P E = 0034340 R E F E l e m e n t a n o n y 0034360 m o u s r e p P r o d D a t a B 0034400 o d y ; \r E l e m e n t a n o n 0034420 y m o u s r e p P r o d D a t a 0034440 B o d y : \t T Y P E = R E C 0034460 O R D [ \r E x p : E x p N o d 0034500 e ] ; \r \r E l e m e n t a n o n 0034520 y m o u s r e p P r o d P r o c 0034540 s : \t E l e m e n t N o d e P r 0034560 o c s ; \r \r B u i l d E l e m e 0034600 n t a n o n y m o u s r e p P r 0034620 o d N o d e : \t P R O C [ p o s 0034640 i t i o n : I N T , l e n g 0034660 t h : I N T , E x p : E x 0034700 p N o d e ] \r \t R E T U R N S [ 0034720 E l e m e n t N o d e ] ; \r \r E 0034740 l e m e n t a n o n y m o u s r 0034760 e p P r o d E l e m e n t I n f 0035000 o : \t E l e m e n t I n f o P r 0035020 o c T y p e ; \r \r - - R e c L 0035040 i s t e m p t y P r o d \r \r R e 0035060 c L i s t e m p t y P r o d D a 0035100 t a : \t T Y P E = R E F R 0035120 e c L i s t e m p t y P r o d D 0035140 a t a B o d y ; \r R e c L i s t 0035160 e m p t y P r o d D a t a B o d 0035200 y : \t T Y P E = R E C O R D 0035220 [ \r ] ; \r \r R e c L i s t e m p 0035240 t y P r o d P r o c s : \t R e c 0035260 L i s t N o d e P r o c s ; \r \r 0035300 B u i l d R e c L i s t e m p t 0035320 y P r o d N o d e : \t P R O C [ 0035340 p o s i t i o n : I N T , l 0035360 e n g t h : I N T ] \r \t R E T 0035400 U R N S [ R e c L i s t N o d e 0035420 ] ; \r \r R e c L i s t e m p t y 0035440 P r o d M a k e F i e l d L i s 0035460 t : \t M a k e F i e l d L i s t 0035500 P r o c T y p e ; \r \r - - R e 0035520 c L i s t p a i r l i s t P r o 0035540 d \r \r R e c L i s t p a i r l i 0035560 s t P r o d D a t a : \t T Y P E 0035600 = R E F R e c L i s t p a 0035620 i r l i s t P r o d D a t a B o 0035640 d y ; \r R e c L i s t p a i r l 0035660 i s t P r o d D a t a B o d y : 0035700 \t T Y P E = R E C O R D [ \r 0035720 P a i r L i s t : P a i r L i 0035740 s t N o d e ] ; \r \r R e c L i s 0035760 t p a i r l i s t P r o d P r o 0036000 c s : \t R e c L i s t N o d e P 0036020 r o c s ; \r \r B u i l d R e c L 0036040 i s t p a i r l i s t P r o d N 0036060 o d e : \t P R O C [ p o s i t i 0036100 o n : I N T , l e n g t h : 0036120 I N T , P a i r L i s t : 0036140 P a i r L i s t N o d e ] \r \t R 0036160 E T U R N S [ R e c L i s t N o 0036200 d e ] ; \r \r R e c L i s t p a i 0036220 r l i s t P r o d M a k e F i e 0036240 l d L i s t : \t M a k e F i e l 0036260 d L i s t P r o c T y p e ; \r \r 0036300 - - R e c L i s t t y p e l i 0036320 s t P r o d \r \r R e c L i s t t 0036340 y p e l i s t P r o d D a t a : 0036360 \t T Y P E = R E F R e c L 0036400 i s t t y p e l i s t P r o d D 0036420 a t a B o d y ; \r R e c L i s t 0036440 t y p e l i s t P r o d D a t a 0036460 B o d y : \t T Y P E = R E C 0036500 O R D [ \r T y p e L i s t : T 0036520 y p e L i s t N o d e ] ; \r \r R 0036540 e c L i s t t y p e l i s t P r 0036560 o d P r o c s : \t R e c L i s t 0036600 N o d e P r o c s ; \r \r B u i l 0036620 d R e c L i s t t y p e l i s t 0036640 P r o d N o d e : \t P R O C [ p 0036660 o s i t i o n : I N T , l e 0036700 n g t h : I N T , T y p e L 0036720 i s t : T y p e L i s t N o d 0036740 e ] \r \t R E T U R N S [ R e c L 0036760 i s t N o d e ] ; \r \r R e c L i 0037000 s t t y p e l i s t P r o d M a 0037020 k e F i e l d L i s t : \t M a k 0037040 e F i e l d L i s t P r o c T y 0037060 p e ; \r \r - - P a i r L i s t 0037100 o n e P r o d \r \r P a i r L i s 0037120 t o n e P r o d D a t a : \t T Y 0037140 P E = R E F P a i r L i s 0037160 t o n e P r o d D a t a B o d y 0037200 ; \r P a i r L i s t o n e P r o 0037220 d D a t a B o d y : \t T Y P E 0037240 = R E C O R D [ \r P a i r I t 0037260 e m : P a i r I t e m N o d e 0037300 ] ; \r \r P a i r L i s t o n e P 0037320 r o d P r o c s : \t P a i r L i 0037340 s t N o d e P r o c s ; \r \r B u 0037360 i l d P a i r L i s t o n e P r 0037400 o d N o d e : \t P R O C [ p o s 0037420 i t i o n : I N T , l e n g 0037440 t h : I N T , P a i r I t e 0037460 m : P a i r I t e m N o d e ] 0037500 \r \t R E T U R N S [ P a i r L i 0037520 s t N o d e ] ; \r \r P a i r L i 0037540 s t o n e P r o d A d d P a i r 0037560 s T o F i e l d L i s t : \t A d 0037600 d P a i r s T o F i e l d L i s 0037620 t P r o c T y p e ; \r \r - - P 0037640 a i r L i s t m a n y P r o d \r 0037660 \r P a i r L i s t m a n y P r o 0037700 d D a t a : \t T Y P E = R E 0037720 F P a i r L i s t m a n y P r 0037740 o d D a t a B o d y ; \r P a i r 0037760 L i s t m a n y P r o d D a t a 0040000 B o d y : \t T Y P E = R E C 0040020 O R D [ \r P a i r L i s t h e a 0040040 d : P a i r L i s t N o d e , 0040060 P a i r L i s t t a i l : P 0040100 a i r L i s t N o d e ] ; \r \r P 0040120 a i r L i s t m a n y P r o d P 0040140 r o c s : \t P a i r L i s t N o 0040160 d e P r o c s ; \r \r B u i l d P 0040200 a i r L i s t m a n y P r o d N 0040220 o d e : \t P R O C [ p o s i t i 0040240 o n : I N T , l e n g t h : 0040260 I N T , P a i r L i s t h e 0040300 a d : P a i r L i s t N o d e 0040320 , P a i r L i s t t a i l : 0040340 P a i r L i s t N o d e ] \r \t R 0040360 E T U R N S [ P a i r L i s t N 0040400 o d e ] ; \r \r P a i r L i s t m 0040420 a n y P r o d A d d P a i r s T 0040440 o F i e l d L i s t : \t A d d P 0040460 a i r s T o F i e l d L i s t P 0040500 r o c T y p e ; \r \r - - P a i 0040520 r I t e m P r o d \r \r P a i r I 0040540 t e m P r o d D a t a : \t T Y P 0040560 E = R E F P a i r I t e m 0040600 P r o d D a t a B o d y ; \r P a 0040620 i r I t e m P r o d D a t a B o 0040640 d y : \t T Y P E = R E C O R 0040660 D [ \r I d e n t L i s t : I d 0040700 e n t L i s t N o d e , A c c 0040720 e s s : A c c e s s N o d e , 0040740 T y p e E x p : T y p e E x 0040760 p N o d e , D e f a u l t : 0041000 D e f a u l t N o d e ] ; \r \r P 0041020 a i r I t e m P r o d P r o c s 0041040 : \t P a i r I t e m N o d e P r 0041060 o c s ; \r \r B u i l d P a i r I 0041100 t e m P r o d N o d e : \t P R O 0041120 C [ p o s i t i o n : I N T , 0041140 l e n g t h : I N T , I d 0041160 e n t L i s t : I d e n t L i 0041200 s t N o d e , A c c e s s : 0041220 A c c e s s N o d e , T y p e 0041240 E x p : T y p e E x p N o d e 0041260 , D e f a u l t : D e f a u 0041300 l t N o d e ] \r \t R E T U R N S 0041320 [ P a i r I t e m N o d e ] ; \r 0041340 \r P a i r I t e m P r o d A d d 0041360 P a i r s T o F i e l d L i s t 0041400 : \t A d d P a i r s T o F i e l 0041420 d L i s t P r o c T y p e ; \r \r 0041440 - - T y p e L i s t o n e P r 0041460 o d \r \r T y p e L i s t o n e P 0041500 r o d D a t a : \t T Y P E = 0041520 R E F T y p e L i s t o n e P 0041540 r o d D a t a B o d y ; \r T y p 0041560 e L i s t o n e P r o d D a t a 0041600 B o d y : \t T Y P E = R E C 0041620 O R D [ \r T y p e I t e m : T 0041640 y p e I t e m N o d e ] ; \r \r T 0041660 y p e L i s t o n e P r o d P r 0041700 o c s : \t T y p e L i s t N o d 0041720 e P r o c s ; \r \r B u i l d T y 0041740 p e L i s t o n e P r o d N o d 0041760 e : \t P R O C [ p o s i t i o n 0042000 : I N T , l e n g t h : I 0042020 N T , T y p e I t e m : T y 0042040 p e I t e m N o d e ] \r \t R E T 0042060 U R N S [ T y p e L i s t N o d 0042100 e ] ; \r \r T y p e L i s t o n e 0042120 P r o d A d d T o F i e l d L i 0042140 s t : \t A d d T o F i e l d L i 0042160 s t P r o c T y p e ; \r \r - - 0042200 T y p e L i s t m a n y P r o d 0042220 \r \r T y p e L i s t m a n y P r 0042240 o d D a t a : \t T Y P E = R 0042260 E F T y p e L i s t m a n y P 0042300 r o d D a t a B o d y ; \r T y p 0042320 e L i s t m a n y P r o d D a t 0042340 a B o d y : \t T Y P E = R E 0042360 C O R D [ \r T y p e L i s t h e 0042400 a d : T y p e L i s t N o d e 0042420 , T y p e L i s t t a i l : 0042440 T y p e L i s t N o d e ] ; \r \r 0042460 T y p e L i s t m a n y P r o d 0042500 P r o c s : \t T y p e L i s t N 0042520 o d e P r o c s ; \r \r B u i l d 0042540 T y p e L i s t m a n y P r o d 0042560 N o d e : \t P R O C [ p o s i t 0042600 i o n : I N T , l e n g t h 0042620 : I N T , T y p e L i s t h 0042640 e a d : T y p e L i s t N o d 0042660 e , T y p e L i s t t a i l : 0042700 T y p e L i s t N o d e ] \r \t 0042720 R E T U R N S [ T y p e L i s t 0042740 N o d e ] ; \r \r T y p e L i s t 0042760 m a n y P r o d A d d T o F i e 0043000 l d L i s t : \t A d d T o F i e 0043020 l d L i s t P r o c T y p e ; \r 0043040 \r - - T y p e I t e m P r o d 0043060 \r \r T y p e I t e m P r o d D a 0043100 t a : \t T Y P E = R E F T 0043120 y p e I t e m P r o d D a t a B 0043140 o d y ; \r T y p e I t e m P r o 0043160 d D a t a B o d y : \t T Y P E 0043200 = R E C O R D [ \r T y p e E x 0043220 p : T y p e E x p N o d e , 0043240 D e f a u l t : D e f a u l t 0043260 N o d e ] ; \r \r T y p e I t e m 0043300 P r o d P r o c s : \t T y p e I 0043320 t e m N o d e P r o c s ; \r \r B 0043340 u i l d T y p e I t e m P r o d 0043360 N o d e : \t P R O C [ p o s i t 0043400 i o n : I N T , l e n g t h 0043420 : I N T , T y p e E x p : 0043440 T y p e E x p N o d e , D e f 0043460 a u l t : D e f a u l t N o d 0043500 e ] \r \t R E T U R N S [ T y p e 0043520 I t e m N o d e ] ; \r \r T y p e 0043540 I t e m P r o d A d d T o F i e 0043560 l d L i s t : \t A d d T o F i e 0043600 l d L i s t P r o c T y p e ; \r 0043620 E N D . . \r 0043626