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