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