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