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