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