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