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