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