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