$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronAG3Impl.Mesa!34 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 7 : 2 4 : 3 0 p 0000220 m P D T \r - - u s i n g 0000240 T h r e e C a s a b a F o u r 0000260 [ 1 . 2 ] o f J u n e 1 0000300 , 1 9 8 7 6 : 0 0 : 0 0 p 0000320 m P D T \r \r D I R E C T O R Y 0000340 \r \t S a f f r o n 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 G e t I n i t i a l 0027300 V a l u e , I n i t i a l i z 0027320 a t i o n e m p t y P r o d I n 0027340 i t i a l i z a t i o n I s E m 0027360 p t y , I n i t i a l i z a t 0027400 i o n e m p t y P r o d I n i t 0027420 i a l i z a t i o n I s B i n d 0027440 i n g , I n i t i a l i z a t 0027460 i o n e m p t y P r o d I n i t 0027500 i a l i z a t i o n I s A s s i 0027520 g n m e n t , I n i t i a l i 0027540 z a t i o n e m p t y P r o d C 0027560 o m p i l e I n i t i a l i z a 0027600 t i o n , I n i t i a l i z a 0027620 t i o n e m p t y P r o d A d d 0027640 V a l u e D e p e n d e n c i e 0027660 s ] ] ; \r \r B u i l d I n i t i 0027700 a l i z a t i o n e m p t y P r 0027720 o d N o d e : \t P U B L I C P 0027740 R O C [ p o s i t i o n : I N 0027760 T , l e n g t h : I N T ] \r 0030000 \t R E T U R N S [ I n i t i a l 0030020 i z a t i o n N o d e ] = \r \t 0030040 \t B E G I N \r \t \t R E T U R N [ 0030060 N E W [ I n i t i a l i z a t i 0030100 o n N o d e B o d y _ [ p o s i 0030120 t i o n , l e n g t h , I n 0030140 i t i a l i z a t i o n e m p t 0030160 y P r o d P r o c s , N I L ] 0030200 ] ] ; \r \t \t E N D ; \r \r \r - - 0030220 I n i t i a l i z a t i o n b i 0030240 n d i n g P r o d \r \r I n i t i 0030260 a l i z a t i o n b i n d i n g 0030300 P r o d P r o c s : \t P U B L I 0030320 C I n i t i a l i z a t i o n 0030340 N o d e P r o c s _ \r \t N E W 0030360 [ I n i t i a l i z a t i o n N 0030400 o d e P r o c s B o d y _ [ 0030420 I n i t i a l i z a t i o n b i 0030440 n d i n g P r o d G e t I n i t 0030460 i a l V a l u e , I n i t i a 0030500 l i z a t i o n b i n d i n g P 0030520 r o d I n i t i a l i z a t i o 0030540 n I s E m p t y , I n i t i a 0030560 l i z a t i o n b i n d i n g P 0030600 r o d I n i t i a l i z a t i o 0030620 n I s B i n d i n g , I n i t 0030640 i a l i z a t i o n b i n d i n 0030660 g P r o d I n i t i a l i z a t 0030700 i o n I s A s s i g n m e n t , 0030720 I n i t i a l i z a t i o n b 0030740 i n d i n g P r o d C o m p i l 0030760 e I n i t i a l i z a t i o n , 0031000 I n i t i a l i z a t i o n b 0031020 i n d i n g P r o d A d d V a l 0031040 u e D e p e n d e n c i e s ] ] 0031060 ; \r \r B u i l d I n i t i a l i 0031100 z a t i o n b i n d i n g P r o 0031120 d N o d e : \t P U B L I C P R 0031140 O C [ p o s i t i o n : I N T 0031160 , l e n g t h : I N T , I 0031200 n i t i a l V a l u e : I n i 0031220 t i a l V a l u e N o d e ] \r \t 0031240 R E T U R N S [ I n i t i a l i 0031260 z a t i o n N o d e ] = \r \t \t 0031300 B E G I N \r \t \t d a t a : \t I n 0031320 i t i a l i z a t i o n b i n d 0031340 i n g P r o d D a t a _ \r \t \t 0031360 \t N E W [ I n i t i a l i z a t 0031400 i o n b i n d i n g P r o d D a 0031420 t a B o d y _ [ \r \t \t \t I n 0031440 i t i a l V a l u e ] ] ; \r \t \t 0031460 R E T U R N [ N E W [ I n i t i 0031500 a l i z a t i o n N o d e B o d 0031520 y _ [ p o s i t i o n , l e n 0031540 g t h , I n i t i a l i z a t 0031560 i o n b i n d i n g P r o d P r 0031600 o c s , d a t a ] ] ] ; \r \t \t 0031620 E N D ; \r \r \r - - I n i t i a 0031640 l i z a t i o n a s s i g n m e 0031660 n t P r o d \r \r I n i t i a l i 0031700 z a t i o n a s s i g n m e n t 0031720 P r o d P r o c s : \t P U B L I 0031740 C I n i t i a l i z a t i o n 0031760 N o d e P r o c s _ \r \t N E W 0032000 [ I n i t i a l i z a t i o n N 0032020 o d e P r o c s B o d y _ [ 0032040 I n i t i a l i z a t i o n a s 0032060 s i g n m e n t P r o d G e t I 0032100 n i t i a l V a l u e , I n i 0032120 t i a l i z a t i o n a s s i g 0032140 n m e n t P r o d I n i t i a l 0032160 i z a t i o n I s E m p t y , 0032200 I n i t i a l i z a t i o n a s 0032220 s i g n m e n t P r o d I n i t 0032240 i a l i z a t i o n I s B i n d 0032260 i n g , I n i t i a l i z a t 0032300 i o n a s s i g n m e n t P r o 0032320 d I n i t i a l i z a t i o n I 0032340 s A s s i g n m e n t , I n i 0032360 t i a l i z a t i o n a s s i g 0032400 n m e n t P r o d C o m p i l e 0032420 I n i t i a l i z a t i o n , 0032440 I n i t i a l i z a t i o n a s 0032460 s i g n m e n t P r o d A d d V 0032500 a l u e D e p e n d e n c i e s 0032520 ] ] ; \r \r B u i l d I n i t i a 0032540 l i z a t i o n a s s i g n m e 0032560 n t P r o d N o d e : \t P U B L 0032600 I C P R O C [ p o s i t i o n 0032620 : I N T , l e n g t h : I 0032640 N T , I n i t i a l V a l u e 0032660 : I n i t i a l V a l u e N o 0032700 d e ] \r \t R E T U R N S [ I n i 0032720 t i a l i z a t i o n N o d e ] 0032740 = \r \t \t B E G I N \r \t \t d a t 0032760 a : \t I n i t i a l i z a t i o 0033000 n a s s i g n m e n t P r o d D 0033020 a t a _ \r \t \t \t N E W [ I n i 0033040 t i a l i z a t i o n a s s i g 0033060 n m e n t P r o d D a t a B o d 0033100 y _ [ \r \t \t \t I n i t i a l 0033120 V a l u e ] ] ; \r \t \t R E T U R 0033140 N [ N E W [ I n i t i a l i z a 0033160 t i o n N o d e B o d y _ [ p o 0033200 s i t i o n , l e n g t h , 0033220 I n i t i a l i z a t i o n a s 0033240 s i g n m e n t P r o d P r o c 0033260 s , d a t a ] ] ] ; \r \t \t E N 0033300 D ; \r \r \r - - I n i t i a l V 0033320 a l u e t r a s h P r o d \r \r I 0033340 n i t i a l V a l u e t r a s h 0033360 P r o d P r o c s : \t P U B L I 0033400 C I n i t i a l V a l u e N o 0033420 d e P r o c s _ \r \t N E W [ I 0033440 n i t i a l V a l u e N o d e P 0033460 r o c s B o d y _ [ I n i t 0033500 i a l V a l u e t r a s h P r o 0033520 d G e t I n i t i a l V a l u e 0033540 , I n i t i a l V a l u e t r 0033560 a s h P r o d C o m p i l e I n 0033600 i t i a l i z a t i o n , I n 0033620 i t i a l V a l u e t r a s h P 0033640 r o d A d d V a l u e D e p e n 0033660 d e n c i e s ] ] ; \r \r B u i l 0033700 d I n i t i a l V a l u e t r a 0033720 s h P r o d N o d e : \t P U B L 0033740 I C P R O C [ p o s i t i o n 0033760 : I N T , l e n g t h : I 0034000 N T ] \r \t R E T U R N S [ I n i 0034020 t i a l V a l u e N o d e ] = 0034040 \r \t \t B E G I N \r \t \t R E T U R 0034060 N [ N E W [ I n i t i a l V a l 0034100 u e N o d e B o d y _ [ p o s i 0034120 t i o n , l e n g t h , I n 0034140 i t i a l V a l u e t r a s h P 0034160 r o d P r o c s , N I L ] ] ] 0034200 ; \r \t \t E N D ; \r \r \r - - I n 0034220 i t i a l V a l u e c o d e P r 0034240 o d \r \r I n i t i a l V a l u e 0034260 c o d e P r o d P r o c s : \t P 0034300 U B L I C I n i t i a l V a l 0034320 u e N o d e P r o c s _ \r \t N 0034340 E W [ I n i t i a l V a l u e N 0034360 o d e P r o c s B o d y _ [ 0034400 I n i t i a l V a l u e c o d e 0034420 P r o d G e t I n i t i a l V a 0034440 l u e , I n i t i a l V a l u 0034460 e c o d e P r o d C o m p i l e 0034500 I n i t i a l i z a t i o n , 0034520 I n i t i a l V a l u e c o d e 0034540 P r o d A d d V a l u e D e p e 0034560 n d e n c i e s ] ] ; \r \r B u i 0034600 l d I n i t i a l V a l u e c o 0034620 d e P r o d N o d e : \t P U B L 0034640 I C P R O C [ p o s i t i o n 0034660 : I N T , l e n g t h : I 0034700 N T ] \r \t R E T U R N S [ I n i 0034720 t i a l V a l u e N o d e ] = 0034740 \r \t \t B E G I N \r \t \t R E T U R 0034760 N [ N E W [ I n i t i a l V a l 0035000 u e N o d e B o d y _ [ p o s i 0035020 t i o n , l e n g t h , I n 0035040 i t i a l V a l u e c o d e P r 0035060 o d P r o c s , N I L ] ] ] ; 0035100 \r \t \t E N D ; \r \r \r - - I n i 0035120 t i a l V a l u e e x p P r o d 0035140 \r \r I n i t i a l V a l u e e x 0035160 p P r o d P r o c s : \t P U B L 0035200 I C I n i t i a l V a l u e N 0035220 o d e P r o c s _ \r \t N E W [ 0035240 I n i t i a l V a l u e N o d e 0035260 P r o c s B o d y _ [ I n i 0035300 t i a l V a l u e e x p P r o d 0035320 G e t I n i t i a l V a l u e , 0035340 I n i t i a l V a l u e e x p 0035360 P r o d C o m p i l e I n i t i 0035400 a l i z a t i o n , I n i t i 0035420 a l V a l u e e x p P r o d A d 0035440 d V a l u e D e p e n d e n c i 0035460 e s ] ] ; \r \r B u i l d I n i t 0035500 i a l V a l u e e x p P r o d N 0035520 o d e : \t P U B L I C P R O C 0035540 [ p o s i t i o n : I N T , 0035560 l e n g t h : I N T , E x p 0035600 : E x p N o d e ] \r \t R E T U 0035620 R N S [ I n i t i a l V a l u e 0035640 N o d e ] = \r \t \t B E G I N \r 0035660 \t \t d a t a : \t I n i t i a l V 0035700 a l u e e x p P r o d D a t a 0035720 _ \r \t \t \t N E W [ I n i t i a l 0035740 V a l u e e x p P r o d D a t a 0035760 B o d y _ [ \r \t \t \t E x p ] 0036000 ] ; \r \t \t R E T U R N [ N E W [ 0036020 I n i t i a l V a l u e N o d e 0036040 B o d y _ [ p o s i t i o n , 0036060 l e n g t h , I n i t i a l V 0036100 a l u e e x p P r o d P r o c s 0036120 , d a t a ] ] ] ; \r \t \t E N D 0036140 ; \r \r \r - - I n i t i a l V a 0036160 l u e b l o c k P r o d \r \r I n 0036200 i t i a l V a l u e b l o c k P 0036220 r o d P r o c s : \t P U B L I C 0036240 I n i t i a l V a l u e N o d 0036260 e P r o c s _ \r \t N E W [ I n 0036300 i t i a l V a l u e N o d e P r 0036320 o c s B o d y _ [ I n i t i 0036340 a l V a l u e b l o c k P r o d 0036360 G e t I n i t i a l V a l u e , 0036400 I n i t i a l V a l u e b l o 0036420 c k P r o d C o m p i l e I n i 0036440 t i a l i z a t i o n , I n i 0036460 t i a l V a l u e b l o c k P r 0036500 o d A d d V a l u e D e p e n d 0036520 e n c i e s ] ] ; \r \r B u i l d 0036540 I n i t i a l V a l u e b l o c 0036560 k P r o d N o d e : \t P U B L I 0036600 C P R O C [ p o s i t i o n : 0036620 I N T , l e n g t h : I N 0036640 T , C h e c k e d : C h e c 0036660 k e d N o d e , I n l i n e : 0036700 I n l i n e N o d e , B l o 0036720 c k : B l o c k N o d e ] \r \t 0036740 R E T U R N S [ I n i t i a l V 0036760 a l u e N o d e ] = \r \t \t B E 0037000 G I N \r \t \t d a t a : \t I n i t 0037020 i a l V a l u e b l o c k P r o 0037040 d D a t a _ \r \t \t \t N E W [ I 0037060 n i t i a l V a l u e b l o c k 0037100 P r o d D a t a B o d y _ [ 0037120 \r \t \t \t C h e c k e d , I n l 0037140 i n e , B l o c k ] ] ; \r \t \t 0037160 R E T U R N [ N E W [ I n i t i 0037200 a l V a l u e N o d e B o d y _ 0037220 [ p o s i t i o n , l e n g t 0037240 h , I n i t i a l V a l u e b 0037260 l o c k P r o d P r o c s , d 0037300 a t a ] ] ] ; \r \t \t E N D ; \r \r 0037320 \r - - I n i t i a l V a l u e 0037340 m a c h i n e c o d e P r o d \r 0037360 \r I n i t i a l V a l u e m a c 0037400 h i n e c o d e P r o d P r o c 0037420 s : \t P U B L I C I n i t i a 0037440 l V a l u e N o d e P r o c s 0037460 _ \r \t N E W [ I n i t i a l V a 0037500 l u e N o d e P r o c s B o d y 0037520 _ [ I n i t i a l V a l u e 0037540 m a c h i n e c o d e P r o d G 0037560 e t I n i t i a l V a l u e , 0037600 I n i t i a l V a l u e m a c h 0037620 i n e c o d e P r o d C o m p i 0037640 l e I n i t i a l i z a t i o n 0037660 , I n i t i a l V a l u e m a 0037700 c h i n e c o d e P r o d A d d 0037720 V a l u e D e p e n d e n c i e 0037740 s ] ] ; \r \r B u i l d I n i t i 0037760 a l V a l u e m a c h i n e c o 0040000 d e P r o d N o d e : \t P U B L 0040020 I C P R O C [ p o s i t i o n 0040040 : I N T , l e n g t h : I 0040060 N T , C h e c k e d : C h e 0040100 c k e d N o d e , C o d e L i 0040120 s t : C o d e L i s t N o d e 0040140 ] \r \t R E T U R N S [ I n i t i 0040160 a l V a l u e N o d e ] = \r \t 0040200 \t B E G I N \r \t \t d a t a : \t I 0040220 n i t i a l V a l u e m a c h i 0040240 n e c o d e P r o d D a t a _ 0040260 \r \t \t \t N E W [ I n i t i a l V 0040300 a l u e m a c h i n e c o d e P 0040320 r o d D a t a B o d y _ [ \r 0040340 \t \t \t C h e c k e d , C o d e 0040360 L i s t ] ] ; \r \t \t R E T U R N 0040400 [ N E W [ I n i t i a l V a l u 0040420 e N o d e B o d y _ [ p o s i t 0040440 i o n , l e n g t h , I n i 0040460 t i a l V a l u e m a c h i n e 0040500 c o d e P r o d P r o c s , d 0040520 a t a ] ] ] ; \r \t \t E N D ; \r \r 0040540 \r - - C h e c k e d e m p t y 0040560 P r o d \r \r C h e c k e d e m p 0040600 t y P r o d P r o c s : \t P U B 0040620 L I C C h e c k e d N o d e P 0040640 r o c s _ \r \t N E W [ C h e c 0040660 k e d N o d e P r o c s B o d y 0040700 _ [ C h e c k e d e m p t y 0040720 P r o d f o o ] ] ; \r \r B u i l 0040740 d C h e c k e d e m p t y P r o 0040760 d N o d e : \t P U B L I C P R 0041000 O C [ p o s i t i o n : I N T 0041020 , l e n g t h : I N T ] \r \t 0041040 R E T U R N S [ C h e c k e d N 0041060 o d e ] = \r \t \t B E G I N \r \t 0041100 \t R E T U R N [ N E W [ C h e c 0041120 k e d N o d e B o d y _ [ p o s 0041140 i t i o n , l e n g t h , C 0041160 h e c k e d e m p t y 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 c h e c k e d P r o d \r \r C h 0041260 e c k e d c h e c k 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 c h e c k 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 c h e c k 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 c h e c k 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 t r u s t e d P r o d \r \r C h 0041760 e c k e d t r u s t e d P r o d 0042000 P r o c s : \t P U B L I C C h 0042020 e c k e d N o d e P r o c s _ 0042040 \r \t N E W [ C h e c k e d N o d 0042060 e P r o c s B o d y _ [ C h 0042100 e c k e d t r u s t e d P r o d 0042120 f o o ] ] ; \r \r B u i l d C h e 0042140 c k e d t r u s t e d P r o d N 0042160 o d e : \t P U B L I C P R O C 0042200 [ p o s i t i o n : I N T , 0042220 l e n g t h : I N T ] \r \t R E 0042240 T U R N S [ C h e c k e d N o d 0042260 e ] = \r \t \t B E G I N \r \t \t R 0042300 E T U R N [ N E W [ C h e c k e 0042320 d N o d e B o d y _ [ p o s i t 0042340 i o n , l e n g t h , C h e 0042360 c k e d t r u s t e d P r o d P 0042400 r o c s , N I L ] ] ] ; \r \t \t 0042420 E N D ; \r \r \r - - C h e c k e 0042440 d u n c h e c k e d P r o d \r \r 0042460 C h e c k e d u n c h e c k e d 0042500 P r o d P r o c s : \t P U B L I 0042520 C C h e c k e d N o d e P r o 0042540 c s _ \r \t N E W [ C h e c k e 0042560 d N o d e P r o c s B o d y _ 0042600 [ C h e c k e d u n c h e c k 0042620 e d P r o d f o o ] ] ; \r \r B u 0042640 i l d C h e c k e d u n c h e c 0042660 k e d P r o d N o d e : \t P U B 0042700 L I C P R O C [ p o s i t i o 0042720 n : I N T , l e n g t h : 0042740 I N T ] \r \t R E T U R N S [ C h 0042760 e c k e d N o d e ] = \r \t \t B 0043000 E G I N \r \t \t R E T U R N [ N E 0043020 W [ C h e c k e d N o d e B o d 0043040 y _ [ p o s i t i o n , l e n 0043060 g t h , C h e c k e d u n c h 0043100 e c k e d P r o d P r o c s , 0043120 N I L ] ] ] ; \r \t \t E N D ; \r \r 0043140 \r - - I n l i n e y e s P r o 0043160 d \r \r I n l i n e y e s P r o d 0043200 P r o c s : \t P U B L I C I n 0043220 l i n e N o d e P r o c s _ \r 0043240 \t N E W [ I n l i n e N o d e P 0043260 r o c s B o d y _ [ I n l i 0043300 n e y e s P r o d I s K e y w o 0043320 r d P r e s e n t ] ] ; \r \r B u 0043340 i l d I n l i n e y e s P r o d 0043360 N o d e : \t P U B L I C P R O 0043400 C [ p o s i t i o n : I N T , 0043420 l e n g t h : I N T ] \r \t R 0043440 E T U R N S [ I n l i n e N o d 0043460 e ] = \r \t \t B E G I N \r \t \t R 0043500 E T U R N [ N E W [ I n l i n e 0043520 N o d e B o d y _ [ p o s i t i 0043540 o n , l e n g t h , I n l i 0043560 n e y e s P r o d P r o c s , 0043600 N I L ] ] ] ; \r \t \t E N D ; \r \r 0043620 \r - - I n l i n e n o P r o d 0043640 \r \r I n l i n e n o P r o d P r 0043660 o c s : \t P U B L I C I n l i 0043700 n e N o d e P r o c s _ \r \t N 0043720 E W [ I n l i n e N o d e P r o 0043740 c s B o d y _ [ I n l i n e 0043760 n o P r o d I s K e y w o r d P 0044000 r e s e n t ] ] ; \r \r B u i l d 0044020 I n l i n e n o P r o d N o d e 0044040 : \t P U B L I C P R O C [ p o 0044060 s i t i o n : I N T , l e n 0044100 g t h : I N T ] \r \t R E T U R 0044120 N S [ I n l i n e N o d e ] = 0044140 \r \t \t B E G I N \r \t \t R E T U R 0044160 N [ N E W [ I n l i n e N o d e 0044200 B o d y _ [ p o s i t i o n , 0044220 l e n g t h , I n l i n e n o 0044240 P r o d P r o c s , N I L ] ] 0044260 ] ; \r \t \t E N D ; \r \r \r - - C 0044300 o d e L i s t o n e P r o d \r \r 0044320 C o d e L i s t o n e P r o d P 0044340 r o c s : \t P U B L I C C o d 0044360 e L i s t N o d e P r o c s _ 0044400 \r \t N E W [ C o d e L i s t N o 0044420 d e P r o c s B o d y _ [ C 0044440 o d e L i s t o n e P r o d f o 0044460 o ] ] ; \r \r B u i l d C o d e L 0044500 i s t o n e 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 , O r d e r L i s 0044600 t : O r d e r L i s t N o d e 0044620 ] \r \t R E T U R N S [ C o d e L 0044640 i s t N o d e ] = \r \t \t B E G 0044660 I N \r \t \t d a t a : \t C o d e L 0044700 i s t o n e P r o d D a t a _ 0044720 \r \t \t \t N E W [ C o d e L i s t 0044740 o n e P r o d D a t a B o d y 0044760 _ [ \r \t \t \t O r d e r L i s t 0045000 ] ] ; \r \t \t R E T U R N [ N E W 0045020 [ C o d e L i s t N o d e B o d 0045040 y _ [ p o s i t i o n , l e n 0045060 g t h , C o d e L i s t o n e 0045100 P r o d P r o c s , d a t a ] 0045120 ] ] ; \r \t \t E N D ; \r \r \r - - 0045140 C o d e L i s t m o r e P r o d 0045160 \r \r C o d e L i s t m o r e P r 0045200 o d P r o c s : \t P U B L I C 0045220 C o d e L i s t N o d e P r o c 0045240 s _ \r \t N E W [ C o d e L i s 0045260 t N o d e P r o c s B o d y _ 0045300 [ C o d e L i s t m o r e P r 0045320 o d f o o ] ] ; \r \r B u i l d C 0045340 o d e L i s t m o r e P r o d N 0045360 o d e : \t P U B L I C P R O C 0045400 [ p o s i t i o n : I N T , 0045420 l e n g t h : I N T , C o d 0045440 e L i s t : C o d e L i s t N 0045460 o d e , O r d e r L i s t : 0045500 O r d e r L i s t N o d e ] \r \t 0045520 R E T U R N S [ C o d e L i s t 0045540 N o d e ] = \r \t \t B E G I N \r 0045560 \t \t d a t a : \t C o d e L i s t 0045600 m o r e P r o d D a t a _ \r \t 0045620 \t \t N E W [ C o d e L i s t m o 0045640 r e P r o d D a t a B o d y _ 0045660 [ \r \t \t \t C o d e L i s t , 0045700 O r d e r L i s t ] ] ; \r \t \t R 0045720 E T U R N [ N E W [ C o d e L i 0045740 s t N o d e B o d y _ [ p o s i 0045760 t i o n , l e n g t h , C o 0046000 d e L i s t m o r e P r o d P r 0046020 o c s , d a t a ] ] ] ; \r \t \t 0046040 E N D ; \r \r \r - - T r a n s f 0046060 e r O p s i g n a l P r o d \r \r 0046100 T r a n s f e r O p s i g n a l 0046120 P r o d P r o c s : \t P U B L I 0046140 C T r a n s f e r O p N o d e 0046160 P r o c s _ \r \t N E W [ T r a 0046200 n s f e r O p N o d e P r o c s 0046220 B o d y _ [ T r a n s f e r 0046240 O p s i g n a l P r o d f o o ] 0046260 ] ; \r \r B u i l d T r a n s f e 0046300 r O p s i g n a l P r o d N o d 0046320 e : \t P U B L I C P R O C [ p 0046340 o s i t i o n : I N T , l e 0046360 n g t h : I N T ] \r \t R E T U 0046400 R N S [ T r a n s f e r O p N o 0046420 d e ] = \r \t \t B E G I N \r \t \t 0046440 R E T U R N [ N E W [ T r a n s 0046460 f e r O p N o d e B o d y _ [ p 0046500 o s i t i o n , l e n g t h , 0046520 T r a n s f e r O p s i g n a 0046540 l P r o d P r o c s , N I L ] 0046560 ] ] ; \r \t \t E N D ; \r \r \r - - 0046600 T r a n s f e r O p e r r o r P 0046620 r o d \r \r T r a n s f e r O p e 0046640 r r o r P r o d P r o c s : \t P 0046660 U B L I C T r a n s f e r O p 0046700 N o d e P r o c s _ \r \t N E W 0046720 [ T r a n s f e r O p N o d e P 0046740 r o c s B o d y _ [ T r a n 0046760 s f e r O p e r r o r P r o d f 0047000 o o ] ] ; \r \r B u i l d T r a n 0047020 s f e r O p e r r o r P r o d N 0047040 o d e : \t P U B L I C P R O C 0047060 [ p o s i t i o n : I N T , 0047100 l e n g t h : I N T ] \r \t R E 0047120 T U R N S [ T r a n s f e r O p 0047140 N o d e ] = \r \t \t B E G I N \r 0047160 \t \t R E T U R N [ N E W [ T r a 0047200 n s f e r O p N o d e B o d y _ 0047220 [ p o s i t i o n , l e n g t 0047240 h , T r a n s f e r O p e r r 0047260 o r P r o d P r o c s , N I L 0047300 ] ] ] ; \r \t \t E N D ; \r \r \r - - 0047320 T r a n s f e r O p s t a r t 0047340 P r o d \r \r T r a n s f e r O p 0047360 s t a r t P r o d P r o c s : \t 0047400 P U B L I C T r a n s f e r O 0047420 p N o d e P r o c s _ \r \t N E 0047440 W [ T r a n s f e r O p N o d e 0047460 P r o c s B o d y _ [ T r a 0047500 n s f e r O p s t a r t P r o d 0047520 f o o ] ] ; \r \r B u i l d T r a 0047540 n s f e r O p s t a r t P r o d 0047560 N o d e : \t P U B L I C P R O 0047600 C [ p o s i t i o n : I N T , 0047620 l e n g t h : I N T ] \r \t R 0047640 E T U R N S [ T r a n s f e r O 0047660 p N o d e ] = \r \t \t B E G I N 0047700 \r \t \t R E T U R N [ N E W [ T r 0047720 a n s f e r O p N o d e B o d y 0047740 _ [ p o s i t i o n , l e n g 0047760 t h , T r a n s f e r O p s t 0050000 a r t P r o d P r o c s , N I 0050020 L ] ] ] ; \r \t \t E N D ; \r \r \r - 0050040 - T r a n s f e r O p j o i n 0050060 P r o d \r \r T r a n s f e r O p 0050100 j o i n P r o d P r o c s : \t P 0050120 U B L I C T r a n s f e r O p 0050140 N o d e P r o c s _ \r \t N E W 0050160 [ T r a n s f e r O p N o d e P 0050200 r o c s B o d y _ [ T r a n 0050220 s f e r O p j o i n P r o d f o 0050240 o ] ] ; \r \r B u i l d T r a n s 0050260 f e r O p j o i n P r o d N o d 0050300 e : \t P U B L I C P R O C [ p 0050320 o s i t i o n : I N T , l e 0050340 n g t h : I N T ] \r \t R E T U 0050360 R N S [ T r a n s f e r O p N o 0050400 d e ] = \r \t \t B E G I N \r \t \t 0050420 R E T U R N [ N E W [ T r a n s 0050440 f e r O p N o d e B o d y _ [ p 0050460 o s i t i o n , l e n g t h , 0050500 T r a n s f e r O p j o i n P 0050520 r o d P r o c s , N I L ] ] ] 0050540 ; \r \t \t E N D ; \r \r \r - - T r 0050560 a n s f e r O p n e w P r o d \r 0050600 \r T r a n s f e r O p n e w P r 0050620 o d P r o c s : \t P U B L I C 0050640 T r a n s f e r O p N o d e P r 0050660 o c s _ \r \t N E W [ T r a n s 0050700 f e r O p N o d e P r o c s B o 0050720 d y _ [ T r a n s f e r O p 0050740 n e w P r o d f o o ] ] ; \r \r B 0050760 u i l d T r a n s f e r O p n e 0051000 w P r o d N o d e : \t P U B L I 0051020 C P R O C [ p o s i t i o n : 0051040 I N T , l e n g t h : I N 0051060 T ] \r \t R E T U R N S [ T r a n 0051100 s f e r O p N o d e ] = \r \t \t 0051120 B E G I N \r \t \t R E T U R N [ N 0051140 E W [ T r a n s f e r O p N o d 0051160 e B o d y _ [ p o s i t i o n , 0051200 l e n g t h , T r a n s f e 0051220 r O p n e w P r o d P r o c s , 0051240 N I L ] ] ] ; \r \t \t E N D ; \r 0051260 \r \r - - T r a n s f e r O p f 0051300 o r k P r o d \r \r T r a n s f e 0051320 r O p f o r k P r o d P r o c s 0051340 : \t P U B L I C T r a n s f e 0051360 r O p N o d e P r o c s _ \r \t 0051400 N E W [ T r a n s f e r O p N o 0051420 d e P r o c s B o d y _ [ T 0051440 r a n s f e r O p f o r k P r o 0051460 d f o o ] ] ; \r \r B u i l d T r 0051500 a n s f e r O p f o r k P r o d 0051520 N o d e : \t P U B L I C P R O 0051540 C [ p o s i t i o n : I N T , 0051560 l e n g t h : I N T ] \r \t R 0051600 E T U R N S [ T r a n s f e r O 0051620 p N o d e ] = \r \t \t B E G I N 0051640 \r \t \t R E T U R N [ N E W [ T r 0051660 a n s f e r O p N o d e B o d y 0051700 _ [ p o s i t i o n , l e n g 0051720 t h , T r a n s f e r O p f o 0051740 r k P r o d P r o c s , N I L 0051760 ] ] ] ; \r \t \t E N D ; \r \r E N D 0052000 . . \r 0052003