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