$ od -c -N 50000 [Indigo]<Casaba>bj>Sirocco-Derived>SiroccoAGDef.Mesa!4 0000000 - - S i r o c c o A G D e f . 0000020 m e s a \r - - C o p y r i g 0000040 h t 323 1 9 8 7 b y X e r 0000060 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 s e 0000120 r v e d . \r - - G e n e r a 0000140 t e d b y B J a c k s o n . 0000160 p a a t J u l y 1 6 , 1 0000200 9 8 7 3 : 1 1 : 3 4 a m P 0000220 D T \r - - u s i n g T h 0000240 r e e C a s a b a F o u r [ 1 0000260 . 2 ] o f J u n e 1 , 1 0000300 9 8 7 6 : 0 0 : 0 0 p m P 0000320 D T \r \r D I R E C T O R Y \r \t S 0000340 i r o c c o C G D e f , \r \t S i 0000360 r o c c o A T D e f ; \r \r S i r 0000400 o c c o A G D e f : C E D A R 0000420 D E F I N I T I O N S = \r 0000440 B E G I N \r O P E N S i r o c 0000460 c o C G D e f , S i r o c c o 0000500 A T D e f ; \r \r - - P r o g r 0000520 a m e x p o r t P r o d \r \r P r 0000540 o g r a m e x p o r t P r o d D 0000560 a t a : \t T Y P E = R E F 0000600 P r o g r a m e x p o r t P r o 0000620 d D a t a B o d y ; \r P r o g r 0000640 a m e x p o r t P r o d D a t a 0000660 B o d y : \t T Y P E = R E C 0000700 O R D [ \r i d e x p o r t : i 0000720 d N o d e , d e c i m a l p g 0000740 m : d e c i m a l N o d e , 0000760 d e c i m a l v e r s i o n : 0001000 d e c i m a l N o d e , I m p 0001020 o r t L i s t : I m p o r t L 0001040 i s t N o d e , D e c l a r a 0001060 t i o n L i s t : D e c l a r 0001100 a t i o n L i s t N o d e ] ; \r 0001120 \r P r o g r a m e x p o r t P r 0001140 o d P r o c s : \t P r o g r a m 0001160 N o d e P r o c s ; \r \r B u i l 0001200 d P r o g r a m e x p o r t P r 0001220 o d N o d e : \t P R O C [ p o s 0001240 i t i o n : I N T , l e n g 0001260 t h : I N T , i d e x p o r 0001300 t : i d N o d e , d e c i m 0001320 a l p g m : d e c i m a l N o 0001340 d e , d e c i m a l v e r s i 0001360 o n : d e c i m a l N o d e , 0001400 I m p o r t L i s t : I m p 0001420 o r t L i s t N o d e , D e c 0001440 l a r a t i o n L i s t : D e 0001460 c l a r a t i o n L i s t N o d 0001500 e ] \r \t R E T U R N S [ P r o g 0001520 r a m N o d e ] ; \r \r P r o g r 0001540 a m e x p o r t P r o d M a k e 0001560 S y m b o l T a b l e : \t M a k 0001600 e S y m b o l T a b l e P r o c 0001620 T y p e ; \r \r - - I m p o r t 0001640 L i s t e m p t y P r o d \r \r I 0001660 m p o r t L i s t e m p t y P r 0001700 o d D a t a : \t T Y P E = R 0001720 E F I m p o r t L i s t e m p 0001740 t y P r o d D a t a B o d y ; \r 0001760 I m p o r t L i s t e m p t y P 0002000 r o d D a t a B o d y : \t T Y P 0002020 E = R E C O R D [ \r ] ; \r \r 0002040 I m p o r t L i s t e m p t y P 0002060 r o d P r o c s : \t I m p o r t 0002100 L i s t N o d e P r o c s ; \r \r 0002120 B u i l d I m p o r t L i s t e 0002140 m p t y P r o d N o d e : \t P R 0002160 O C [ p o s i t i o n : I N T 0002200 , l e n g t h : I N T ] \r \t 0002220 R E T U R N S [ I m p o r t L i 0002240 s t N o d e ] ; \r \r I m p o r t 0002260 L i s t e m p t y P r o d B u i 0002300 l d R I B : \t B u i l d R I B P 0002320 r o c T y p e ; \r \r - - I m p 0002340 o r t L i s t m o r e P r o d \r 0002360 \r I m p o r t L i s t m o r e P 0002400 r o d D a t a : \t T Y P E = 0002420 R E F I m p o r t L i s t m o 0002440 r e P r o d D a t a B o d y ; \r 0002460 I m p o r t L i s t m o r e P r 0002500 o d D a t a B o d y : \t T Y P E 0002520 = R E C O R D [ \r I m p o r 0002540 t L i s t : I m p o r t L i s 0002560 t N o d e , I m p o r t : I 0002600 m p o r t N o d e ] ; \r \r I m p 0002620 o r t L i s t m o r e P r o d P 0002640 r o c s : \t I m p o r t L i s t 0002660 N o d e P r o c s ; \r \r B u i l 0002700 d I m p o r t L i s t m o r e P 0002720 r o d N o d e : \t P R O C [ p o 0002740 s i t i o n : I N T , l e n 0002760 g t h : I N T , I m p o r t 0003000 L i s t : I m p o r t L i s t 0003020 N o d e , I m p o r t : I m 0003040 p o r t N o d e ] \r \t R E T U R 0003060 N S [ I m p o r t L i s t N o d 0003100 e ] ; \r \r I m p o r t L i s t m 0003120 o r e P r o d B u i l d R I B : 0003140 \t B u i l d R I B P r o c T y p 0003160 e ; \r \r - - I m p o r t i n t 0003200 e r f a c e P r o d \r \r I m p o 0003220 r t i n t e r f a c e P r o d D 0003240 a t a : \t T Y P E = R E F 0003260 I m p o r t i n t e r f a c e P 0003300 r o d D a t a B o d y ; \r I m p 0003320 o r t i n t e r f a c e P r o d 0003340 D a t a B o d y : \t T Y P E = 0003360 R E C O R D [ \r i d i n t e r 0003400 f a c e : i d N o d e , d e 0003420 c i m a l p g m : d e c i m a 0003440 l N o d e , d e c i m a l v e 0003460 r s i o n : d e c i m a l N o 0003500 d e ] ; \r \r I m p o r t i n t e 0003520 r f a c e P r o d P r o c s : \t 0003540 I m p o r t N o d e P r o c s ; 0003560 \r \r B u i l d I m p o r t i n t 0003600 e r f a c e P r o d N o d e : \t 0003620 P R O C [ p o s i t i o n : I 0003640 N T , l e n g t h : I N T , 0003660 i d i n t e r f a c e : i d 0003700 N o d e , d e c i m a l p g m 0003720 : d e c i m a l N o d e , d 0003740 e c i m a l v e r s i o n : d 0003760 e c i m a l N o d e ] \r \t R E T 0004000 U R N S [ I m p o r t N o d e ] 0004020 ; \r \r I m p o r t i n t e r f a 0004040 c e P r o d B u i l d S c o p e 0004060 : \t B u i l d S c o p e P r o c 0004100 T y p e ; \r \r - - D e c l a r 0004120 a t i o n L i s t e m p t y P r 0004140 o d \r \r D e c l a r a t i o n L 0004160 i s t e m p t y P r o d D a t a 0004200 : \t T Y P E = R E F D e c 0004220 l a r a t i o n L i s t e m p t 0004240 y P r o d D a t a B o d y ; \r D 0004260 e c l a r a t i o n L i s t e m 0004300 p t y P r o d D a t a B o d y : 0004320 \t T Y P E = R E C O R D [ \r 0004340 ] ; \r \r D e c l a r a t i o n L 0004360 i s t e m p t y P r o d P r o c 0004400 s : \t D e c l a r a t i o n L i 0004420 s t N o d e P r o c s ; \r \r B u 0004440 i l d D e c l a r a t i o n L i 0004460 s t e m p t y P r o d N o d e : 0004500 \t P R O C [ p o s i t i o n : 0004520 I N T , l e n g t h : I N T 0004540 ] \r \t R E T U R N S [ D e c l a 0004560 r a t i o n L i s t N o d e ] ; 0004600 \r \r D e c l a r a t i o n L i s 0004620 t e m p t y P r o d B u i l d I 0004640 t e m T a b l e : \t B u i l d I 0004660 t e m T a b l e P r o c T y p e 0004700 ; \r D e c l a r a t i o n L i s 0004720 t e m p t y P r o d B u i l d T 0004740 y p e G r a p h : \t B u i l d T 0004760 y p e G r a p h P r o c T y p e 0005000 ; \r \r - - D e c l a r a t i o 0005020 n L i s t m o r e P r o d \r \r D 0005040 e c l a r a t i o n L i s t m o 0005060 r e P r o d D a t a : \t T Y P E 0005100 = R E F D e c l a r a t i 0005120 o n L i s t m o r e P r o d D a 0005140 t a B o d y ; \r D e c l a r a t 0005160 i o n L i s t m o r e P r o d D 0005200 a t a B o d y : \t T Y P E = 0005220 R E C O R D [ \r D e c l a r a t 0005240 i o n L i s t : D e c l a r a 0005260 t i o n L i s t N o d e , D e 0005300 c l a r a t i o n : D e c l a 0005320 r a t i o n N o d e ] ; \r \r D e 0005340 c l a r a t i o n L i s t m o r 0005360 e P r o d P r o c s : \t D e c l 0005400 a r a t i o n L i s t N o d e P 0005420 r o c s ; \r \r B u i l d D e c l 0005440 a r a t i o n L i s t m o r e P 0005460 r o d N o d e : \t P R O C [ p o 0005500 s i t i o n : I N T , l e n 0005520 g t h : I N T , D e c l a r 0005540 a t i o n L i s t : D e c l a 0005560 r a t i o n L i s t N o d e , 0005600 D e c l a r a t i o n : D e c 0005620 l a r a t i o n N o d e ] \r \t R 0005640 E T U R N S [ D e c l a r a t i 0005660 o n L i s t N o d e ] ; \r \r D e 0005700 c l a r a t i o n L i s t m o r 0005720 e P r o d B u i l d I t e m T a 0005740 b l e : \t B u i l d I t e m T a 0005760 b l e P r o c T y p e ; \r D e c 0006000 l a r a t i o n L i s t m o r e 0006020 P r o d B u i l d T y p e G r a 0006040 p h : \t B u i l d T y p e G r a 0006060 p h P r o c T y p e ; \r \r - - 0006100 D e c l a r a t i o n t y p e P 0006120 r o d \r \r D e c l a r a t i o n 0006140 t y p e P r o d D a t a : \t T Y 0006160 P E = R E F D e c l a r a 0006200 t i o n t y p e P r o d D a t a 0006220 B o d y ; \r D e c l a r a t i o 0006240 n t y p e P r o d D a t a B o d 0006260 y : \t T Y P E = R E C O R D 0006300 [ \r i d : i d N o d e , T y 0006320 p e : T y p e N o d e ] ; \r \r 0006340 D e c l a r a t i o n t y p e P 0006360 r o d P r o c s : \t D e c l a r 0006400 a t i o n N o d e P r o c s ; \r 0006420 \r B u i l d D e c l a r a t i o 0006440 n t y p e P r o d N o d e : \t P 0006460 R O C [ p o s i t i o n : I N 0006500 T , l e n g t h : I N T , 0006520 i d : i d N o d e , T y p e 0006540 : T y p e N o d e ] \r \t R E T 0006560 U R N S [ D e c l a r a t i o n 0006600 N o d e ] ; \r \r D e c l a r a t 0006620 i o n t y p e P r o d B u i l d 0006640 I t e m : \t B u i l d I t e m P 0006660 r o c T y p e ; \r D e c l a r a 0006700 t i o n t y p e P r o d B u i l 0006720 d T y p e G r a p h : \t B u i l 0006740 d T y p e G r a p h P r o c T y 0006760 p e ; \r \r - - D e c l a r a t 0007000 i o n c o n s t a n t P r o d \r 0007020 \r D e c l a r a t i o n c o n s 0007040 t a n t P r o d D a t a : \t T Y 0007060 P E = R E F D e c l a r a 0007100 t i o n c o n s t a n t P r o d 0007120 D a t a B o d y ; \r D e c l a r 0007140 a t i o n c o n s t a n t P r o 0007160 d D a t a B o d y : \t T Y P E 0007200 = R E C O R D [ \r i d : i d 0007220 N o d e , T y p e : T y p e 0007240 N o d e , C o n s t a n t : 0007260 C o n s t a n t N o d e ] ; \r \r 0007300 D e c l a r a t i o n c o n s t 0007320 a n t P r o d P r o c s : \t D e 0007340 c l a r a t i o n N o d e P r o 0007360 c s ; \r \r B u i l d D e c l a r 0007400 a t i o n c o n s t a n t P r o 0007420 d N o d e : \t P R O C [ p o s i 0007440 t i o n : I N T , l e n g t 0007460 h : I N T , i d : i d N o 0007500 d e , T y p e : T y p e N o 0007520 d e , C o n s t a n t : C o 0007540 n s t a n t N o d e ] \r \t R E T 0007560 U R N S [ D e c l a r a t i o n 0007600 N o d e ] ; \r \r D e c l a r a t 0007620 i o n c o n s t a n t P r o d B 0007640 u i l d I t e m : \t B u i l d I 0007660 t e m P r o c T y p e ; \r D e c 0007700 l a r a t i o n c o n s t a n t 0007720 P r o d B u i l d T y p e G r a 0007740 p h : \t B u i l d T y p e G r a 0007760 p h P r o c T y p e ; \r \r - - 0010000 T y p e a l i a s P r o d \r \r T 0010020 y p e a l i a s P r o d D a t a 0010040 : \t T Y P E = R E F T y p 0010060 e a l i a s P r o d D a t a B o 0010100 d y ; \r T y p e a l i a s P r o 0010120 d D a t a B o d y : \t T Y P E 0010140 = R E C O R D [ \r i d : i d 0010160 N o d e ] ; \r \r T y p e a l i a 0010200 s P r o d P r o c s : \t T y p e 0010220 N o d e P r o c s ; \r \r B u i l 0010240 d T y p e a l i a s P r o d N o 0010260 d e : \t P R O C [ p o s i t i o 0010300 n : I N T , l e n g t h : 0010320 I N T , i d : i d N o d e ] 0010340 \r \t R E T U R N S [ T y p e N o 0010360 d e ] ; \r \r T y p e a l i a s P 0010400 r o d B u i l d T G P a i r : \t 0010420 B u i l d T G P a i r P r o c T 0010440 y p e ; \r T y p e a l i a s P r 0010460 o d C a n o n i c a l T y p e : 0010500 \t C a n o n i c a l T y p e P r 0010520 o c T y p e ; \r \r - - T y p e 0010540 i m p o r t P r o d \r \r T y p e 0010560 i m p o r t P r o d D a t a : \t 0010600 T Y P E = R E F T y p e i 0010620 m p o r t P r o d D a t a B o d 0010640 y ; \r T y p e i m p o r t P r o 0010660 d D a t a B o d y : \t T Y P E 0010700 = R E C O R D [ \r i d i n t e 0010720 r f a c e : i d N o d e , i 0010740 d i t e m : i d N o d e ] ; \r 0010760 \r T y p e i m p o r t P r o d P 0011000 r o c s : \t T y p e N o d e P r 0011020 o c s ; \r \r B u i l d T y p e i 0011040 m p o r t P r o d N o d e : \t P 0011060 R O C [ p o s i t i o n : I N 0011100 T , l e n g t h : I N T , 0011120 i d i n t e r f a c e : i d N 0011140 o d e , i d i t e m : i d N 0011160 o d e ] \r \t R E T U R N S [ T y 0011200 p e N o d e ] ; \r \r T y p e i m 0011220 p o r t P r o d B u i l d T G P 0011240 a i r : \t B u i l d T G P a i r 0011260 P r o c T y p e ; \r T y p e i m 0011300 p o r t P r o d C a n o n i c a 0011320 l T y p e : \t C a n o n i c a l 0011340 T y p e P r o c T y p e ; \r \r - 0011360 - T y p e b o o l P r o d \r \r 0011400 T y p e b o o l P r o d D a t a 0011420 : \t T Y P E = R E F T y p 0011440 e b o o l P r o d D a t a B o d 0011460 y ; \r T y p e b o o l P r o d D 0011500 a t a B o d y : \t T Y P E = 0011520 R E C O R D [ \r ] ; \r \r T y p e 0011540 b o o l P r o d P r o c s : \t T 0011560 y p e N o d e P r o c s ; \r \r B 0011600 u i l d T y p e b o o l P r o d 0011620 N o d e : \t P R O C [ p o s i t 0011640 i o n : I N T , l e n g t h 0011660 : I N T ] \r \t R E T U R N S [ 0011700 T y p e N o d e ] ; \r \r T y p e 0011720 b o o l P r o d B u i l d T G P 0011740 a i r : \t B u i l d T G P a i r 0011760 P r o c T y p e ; \r T y p e b o 0012000 o l P r o d C a n o n i c a l T 0012020 y p e : \t C a n o n i c a l T y 0012040 p e P r o c T y p e ; \r \r - - 0012060 T y p e c a r d 1 6 P r o d \r \r 0012100 T y p e c a r d 1 6 P r o d D a 0012120 t a : \t T Y P E = R E F T 0012140 y p e c a r d 1 6 P r o d D a t 0012160 a B o d y ; \r T y p e c a r d 1 0012200 6 P r o d D a t a B o d y : \t T 0012220 Y P E = R E C O R D [ \r ] ; 0012240 \r \r T y p e c a r d 1 6 P r o d 0012260 P r o c s : \t T y p e N o d e P 0012300 r o c s ; \r \r B u i l d T y p e 0012320 c a r d 1 6 P r o d N o d e : \t 0012340 P R O C [ p o s i t i o n : I 0012360 N T , l e n g t h : I N T ] 0012400 \r \t R E T U R N S [ T y p e N o 0012420 d e ] ; \r \r T y p e c a r d 1 6 0012440 P r o d B u i l d T G P a i r : 0012460 \t B u i l d T G P a i r P r o c 0012500 T y p e ; \r T y p e c a r d 1 6 0012520 P r o d C a n o n i c a l T y p 0012540 e : \t C a n o n i c a l T y p e 0012560 P r o c T y p e ; \r \r - - T y 0012600 p e c a r d 3 2 P r o d \r \r T y 0012620 p e c a r d 3 2 P r o d D a t a 0012640 : \t T Y P E = R E F T y p 0012660 e c a r d 3 2 P r o d D a t a B 0012700 o d y ; \r T y p e c a r d 3 2 P 0012720 r o d D a t a B o d y : \t T Y P 0012740 E = R E C O R D [ \r ] ; \r \r 0012760 T y p e c a r d 3 2 P r o d P r 0013000 o c s : \t T y p e N o d e P r o 0013020 c s ; \r \r B u i l d T y p e c a 0013040 r d 3 2 P r o d N o d e : \t P R 0013060 O C [ p o s i t i o n : I N T 0013100 , l e n g t h : I N T ] \r \t 0013120 R E T U R N S [ T y p e N o d e 0013140 ] ; \r \r T y p e c a r d 3 2 P r 0013160 o d B u i l d T G P a i r : \t B 0013200 u i l d T G P a i r P r o c T y 0013220 p e ; \r T y p e c a r d 3 2 P r 0013240 o d C a n o n i c a l T y p e : 0013260 \t C a n o n i c a l T y p e P r 0013300 o c T y p e ; \r \r - - T y p e 0013320 i n t 1 6 P r o d \r \r T y p e i 0013340 n t 1 6 P r o d D a t a : \t T Y 0013360 P E = R E F T y p e i n t 0013400 1 6 P r o d D a t a B o d y ; \r 0013420 T y p e i n t 1 6 P r o d D a t 0013440 a B o d y : \t T Y P E = R E 0013460 C O R D [ \r ] ; \r \r T y p e i n 0013500 t 1 6 P r o d P r o c s : \t T y 0013520 p e N o d e P r o c s ; \r \r B u 0013540 i l d T y p e i n t 1 6 P r o d 0013560 N o d e : \t P R O C [ p o s i t 0013600 i o n : I N T , l e n g t h 0013620 : I N T ] \r \t R E T U R N S [ 0013640 T y p e N o d e ] ; \r \r T y p e 0013660 i n t 1 6 P r o d B u i l d T G 0013700 P a i r : \t B u i l d T G P a i 0013720 r P r o c T y p e ; \r T y p e i 0013740 n t 1 6 P r o d C a n o n i c a 0013760 l T y p e : \t C a n o n i c a l 0014000 T y p e P r o c T y p e ; \r \r - 0014020 - T y p e i n t 3 2 P r o d \r 0014040 \r T y p e i n t 3 2 P r o d D a 0014060 t a : \t T Y P E = R E F T 0014100 y p e i n t 3 2 P r o d D a t a 0014120 B o d y ; \r T y p e i n t 3 2 P 0014140 r o d D a t a B o d y : \t T Y P 0014160 E = R E C O R D [ \r ] ; \r \r 0014200 T y p e i n t 3 2 P r o d P r o 0014220 c s : \t T y p e N o d e P r o c 0014240 s ; \r \r B u i l d T y p e i n t 0014260 3 2 P r o d N o d e : \t P R O C 0014300 [ p o s i t i o n : I N T , 0014320 l e n g t h : I N T ] \r \t R E 0014340 T U R N S [ T y p e N o d e ] ; 0014360 \r \r T y p e i n t 3 2 P r o d B 0014400 u i l d T G P a i r : \t B u i l 0014420 d T G P a i r P r o c T y p e ; 0014440 \r T y p e i n t 3 2 P r o d C a 0014460 n o n i c a l T y p e : \t C a n 0014500 o n i c a l T y p e P r o c T y 0014520 p e ; \r \r - - T y p e s i n k 0014540 P r o d \r \r T y p e s i n k P r 0014560 o d D a t a : \t T Y P E = R 0014600 E F T y p e s i n k P r o d D 0014620 a t a B o d y ; \r T y p e s i n 0014640 k P r o d D a t a B o d y : \t T 0014660 Y P E = R E C O R D [ \r ] ; 0014700 \r \r T y p e s i n k P r o d P r 0014720 o c s : \t T y p e N o d e P r o 0014740 c s ; \r \r B u i l d T y p e s i 0014760 n k P r o d N o d e : \t P R O C 0015000 [ p o s i t i o n : I N T , 0015020 l e n g t h : I N T ] \r \t R E 0015040 T U R N S [ T y p e N o d e ] ; 0015060 \r \r T y p e s i n k P r o d B u 0015100 i l d T G P a i r : \t B u i l d 0015120 T G P a i r P r o c T y p e ; \r 0015140 T y p e s i n k P r o d C a n o 0015160 n i c a l T y p e : \t C a n o n 0015200 i c a l T y p e P r o c T y p e 0015220 ; \r \r - - T y p e s o u r c e 0015240 P r o d \r \r T y p e s o u r c e 0015260 P r o d D a t a : \t T Y P E = 0015300 R E F T y p e s o u r c e P 0015320 r o d D a t a B o d y ; \r T y p 0015340 e s o u r c e P r o d D a t a B 0015360 o d y : \t T Y P E = R E C O 0015400 R D [ \r ] ; \r \r T y p e s o u r 0015420 c e P r o d P r o c s : \t T y p 0015440 e N o d e P r o c s ; \r \r B u i 0015460 l d T y p e s o u r c e P r o d 0015500 N o d e : \t P R O C [ p o s i t 0015520 i o n : I N T , l e n g t h 0015540 : I N T ] \r \t R E T U R N S [ 0015560 T y p e N o d e ] ; \r \r T y p e 0015600 s o u r c e P r o d B u i l d T 0015620 G P a i r : \t B u i l d T G P a 0015640 i r P r o c T y p e ; \r T y p e 0015660 s o u r c e P r o d C a n o n i 0015700 c a l T y p e : \t C a n o n i c 0015720 a l T y p e P r o c T y p e ; \r 0015740 \r - - T y p e s t r i n g P r 0015760 o d \r \r T y p e s t r i n g P r 0016000 o d D a t a : \t T Y P E = R 0016020 E F T y p e s t r i n g P r o 0016040 d D a t a B o d y ; \r T y p e s 0016060 t r i n g P r o d D a t a B o d 0016100 y : \t T Y P E = R E C O R D 0016120 [ \r ] ; \r \r T y p e s t r i n g 0016140 P r o d P r o c s : \t T y p e N 0016160 o d e P r o c s ; \r \r B u i l d 0016200 T y p e s t r i n g P r o d N o 0016220 d e : \t P R O C [ p o s i t i o 0016240 n : I N T , l e n g t h : 0016260 I N T ] \r \t R E T U R N S [ T y 0016300 p e N o d e ] ; \r \r T y p e s t 0016320 r i n g P r o d B u i l d T G P 0016340 a i r : \t B u i l d T G P a i r 0016360 P r o c T y p e ; \r T y p e s t 0016400 r i n g P r o d C a n o n i c a 0016420 l T y p e : \t C a n o n i c a l 0016440 T y p e P r o c T y p e ; \r \r - 0016460 - T y p e u n s p e c P r o d 0016500 \r \r T y p e u n s p e c P r o d 0016520 D a t a : \t T Y P E = R E F 0016540 T y p e u n s p e c P r o d D 0016560 a t a B o d y ; \r T y p e u n s 0016600 p e c P r o d D a t a B o d y : 0016620 \t T Y P E = R E C O R D [ \r 0016640 ] ; \r \r T y p e u n s p e c P r 0016660 o d P r o c s : \t T y p e N o d 0016700 e P r o c s ; \r \r B u i l d T y 0016720 p e u n s p e c P r o d N o d e 0016740 : \t P R O C [ p o s i t i o n : 0016760 I N T , l e n g t h : I N 0017000 T ] \r \t R E T U R N S [ T y p e 0017020 N o d e ] ; \r \r T y p e u n s p 0017040 e c P r o d B u i l d T G P a i 0017060 r : \t B u i l d T G P a i r P r 0017100 o c T y p e ; \r T y p e u n s p 0017120 e c P r o d C a n o n i c a l T 0017140 y p e : \t C a n o n i c a l T y 0017160 p e P r o c T y p e ; \r \r - - 0017200 T y p e a r r a y P r o d \r \r T 0017220 y p e a r r a y P r o d D a t a 0017240 : \t T Y P E = R E F T y p 0017260 e a r r a y P r o d D a t a B o 0017300 d y ; \r T y p e a r r a y P r o 0017320 d D a t a B o d y : \t T Y P E 0017340 = R E C O R D [ \r C o n s t a 0017360 n t : C o n s t a n t N o d e 0017400 , T y p e : T y p e N o d e 0017420 ] ; \r \r T y p e a r r a y P r o 0017440 d P r o c s : \t T y p e N o d e 0017460 P r o c s ; \r \r B u i l d T y p 0017500 e a r r a y P r o d N o d e : \t 0017520 P R O C [ p o s i t i o n : I 0017540 N T , l e n g t h : I N T , 0017560 C o n s t a n t : C o n s t 0017600 a n t N o d e , T y p e : T 0017620 y p e N o d e ] \r \t R E T U R N 0017640 S [ T y p e N o d e ] ; \r \r T y 0017660 p e a r r a y P r o d B u i l d 0017700 T G P a i r : \t B u i l d T G P 0017720 a i r P r o c T y p e ; \r T y p 0017740 e a r r a y P r o d C a n o n i 0017760 c a l T y p e : \t C a n o n i c 0020000 a l T y p e P r o c T y p e ; \r 0020020 \r - - T y p e s e q P r o d \r 0020040 \r T y p e s e q P r o d D a t a 0020060 : \t T Y P E = R E F T y p 0020100 e s e q P r o d D a t a B o d y 0020120 ; \r T y p e s e q P r o d D a t 0020140 a B o d y : \t T Y P E = R E 0020160 C O R D [ \r C o n s t a n t : 0020200 C o n s t a n t N o d e , T y 0020220 p e : T y p e N o d e ] ; \r \r 0020240 T y p e s e q P r o d P r o c s 0020260 : \t T y p e N o d e P r o c s ; 0020300 \r \r B u i l d T y p e s e q P r 0020320 o d N o d e : \t P R O C [ p o s 0020340 i t i o n : I N T , l e n g 0020360 t h : I N T , C o n s t a n 0020400 t : C o n s t a n t N o d e , 0020420 T y p e : T y p e N o d e ] 0020440 \r \t R E T U R N S [ T y p e N o 0020460 d e ] ; \r \r T y p e s e q P r o 0020500 d B u i l d T G P a i r : \t B u 0020520 i l d T G P a i r P r o c T y p 0020540 e ; \r T y p e s e q P r o d C a 0020560 n o n i c a l T y p e : \t C a n 0020600 o n i c a l T y p e P r o c T y 0020620 p e ; \r \r - - T y p e e n u m 0020640 P r o d \r \r T y p e e n u m P r 0020660 o d D a t a : \t T Y P E = R 0020700 E F T y p e e n u m P r o d D 0020720 a t a B o d y ; \r T y p e e n u 0020740 m P r o d D a t a B o d y : \t T 0020760 Y P E = R E C O R D [ \r E n 0021000 u m e r a t i o n : E n u m e 0021020 r a t i o n N o d e ] ; \r \r T y 0021040 p e e n u m P r o d P r o c s : 0021060 \t T y p e N o d e P r o c s ; \r 0021100 \r B u i l d T y p e e n u m P r 0021120 o d N o d e : \t P R O C [ p o s 0021140 i t i o n : I N T , l e n g 0021160 t h : I N T , E n u m e r a 0021200 t i o n : E n u m e r a t i o 0021220 n N o d e ] \r \t R E T U R N S [ 0021240 T y p e N o d e ] ; \r \r T y p e 0021260 e n u m P r o d B u i l d T G P 0021300 a i r : \t B u i l d T G P a i r 0021320 P r o c T y p e ; \r T y p e e n 0021340 u m P r o d C a n o n i c a l T 0021360 y p e : \t C a n o n i c a l T y 0021400 p e P r o c T y p e ; \r \r - - 0021420 T y p e e r r o r P r o d \r \r T 0021440 y p e e r r o r P r o d D a t a 0021460 : \t T Y P E = R E F T y p 0021500 e e r r o r P r o d D a t a B o 0021520 d y ; \r T y p e e r r o r P r o 0021540 d D a t a B o d y : \t T Y P E 0021560 = R E C O R D [ \r F i e l d L 0021600 i s t : F i e l d L i s t N o 0021620 d e ] ; \r \r T y p e e r r o r P 0021640 r o d P r o c s : \t T y p e N o 0021660 d e P r o c s ; \r \r B u i l d T 0021700 y p e e r r o r P r o d N o d e 0021720 : \t P R O C [ p o s i t i o n : 0021740 I N T , l e n g t h : I N 0021760 T , F i e l d L i s t : F i 0022000 e l d L i s t N o d e ] \r \t R E 0022020 T U R N S [ T y p e N o d e ] ; 0022040 \r \r T y p e e r r o r P r o d B 0022060 u i l d T G P a i r : \t B u i l 0022100 d T G P a i r P r o c T y p e ; 0022120 \r T y p e e r r o r P r o d C a 0022140 n o n i c a l T y p e : \t C a n 0022160 o n i c a l T y p e P r o c T y 0022200 p e ; \r \r - - T y p e r e c o 0022220 r d P r o d \r \r T y p e r e c o 0022240 r d P r o d D a t a : \t T Y P E 0022260 = R E F T y p e r e c o r 0022300 d P r o d D a t a B o d y ; \r T 0022320 y p e r e c o r d P r o d D a t 0022340 a B o d y : \t T Y P E = R E 0022360 C O R D [ \r F i e l d L i s t : 0022400 F i e l d L i s t N o d e ] ; 0022420 \r \r T y p e r e c o r d P r o d 0022440 P r o c s : \t T y p e N o d e P 0022460 r o c s ; \r \r B u i l d T y p e 0022500 r e c o r d P r o d N o d e : \t 0022520 P R O C [ p o s i t i o n : I 0022540 N T , l e n g t h : I N T , 0022560 F i e l d L i s t : F i e l 0022600 d L i s t N o d e ] \r \t R E T U 0022620 R N S [ T y p e N o d e ] ; \r \r 0022640 T y p e r e c o r d P r o d B u 0022660 i l d T G P a i r : \t B u i l d 0022700 T G P a i r P r o c T y p e ; \r 0022720 T y p e r e c o r d P r o d C a 0022740 n o n i c a l T y p e : \t C a n 0022760 o n i c a l T y p e P r o c T y 0023000 p e ; \r \r - - T y p e n u l l 0023020 P r o d \r \r T y p e n u l l P r 0023040 o d D a t a : \t T Y P E = R 0023060 E F T y p e n u l l P r o d D 0023100 a t a B o d y ; \r T y p e n u l 0023120 l P r o d D a t a B o d y : \t T 0023140 Y P E = R E C O R D [ \r ] ; 0023160 \r \r T y p e n u l l P r o d P r 0023200 o c s : \t T y p e N o d e P r o 0023220 c s ; \r \r B u i l d T y p e n u 0023240 l l P r o d N o d e : \t P R O C 0023260 [ p o s i t i o n : I N T , 0023300 l e n g t h : I N T ] \r \t R E 0023320 T U R N S [ T y p e N o d e ] ; 0023340 \r \r T y p e n u l l P r o d B u 0023360 i l d T G P a i r : \t B u i l d 0023400 T G P a i r P r o c T y p e ; \r 0023420 T y p e n u l l P r o d C a n o 0023440 n i c a l T y p e : \t C a n o n 0023460 i c a l T y p e P r o c T y p e 0023500 ; \r \r - - T y p e p r o c P r 0023520 o d \r \r T y p e p r o c P r o d 0023540 D a t a : \t T Y P E = R E F 0023560 T y p e p r o c P r o d D a t 0023600 a B o d y ; \r T y p e p r o c P 0023620 r o d D a t a B o d y : \t T Y P 0023640 E = R E C O R D [ \r F i e l 0023660 d L i s t a r g : F i e l d L 0023700 i s t N o d e , F i e l d L i 0023720 s t r e s : F i e l d L i s t 0023740 N o d e , N a m e L i s t : 0023760 N a m e L i s t N o d e ] ; \r \r 0024000 T y p e p r o c P r o d P r o c 0024020 s : \t T y p e N o d e P r o c s 0024040 ; \r \r B u i l d T y p e p r o c 0024060 P r o d N o d e : \t P R O C [ p 0024100 o s i t i o n : I N T , l e 0024120 n g t h : I N T , F i e l d 0024140 L i s t a r g : F i e l d L i 0024160 s t N o d e , F i e l d L i s 0024200 t r e s : F i e l d L i s t N 0024220 o d e , N a m e L i s t : N 0024240 a m e L i s t N o d e ] \r \t R E 0024260 T U R N S [ T y p e N o d e ] ; 0024300 \r \r T y p e p r o c P r o d B u 0024320 i l d T G P a i r : \t B u i l d 0024340 T G P a i r P r o c T y p e ; \r 0024360 T y p e p r o c P r o d C a n o 0024400 n i c a l T y p e : \t C a n o n 0024420 i c a l T y p e P r o c T y p e 0024440 ; \r \r - - T y p e c h o i c e 0024460 P r o d \r \r T y p e c h o i c e 0024500 P r o d D a t a : \t T Y P E = 0024520 R E F T y p e c h o i c e P 0024540 r o d D a t a B o d y ; \r T y p 0024560 e c h o i c e P r o d D a t a B 0024600 o d y : \t T Y P E = R E C O 0024620 R D [ \r T y p e : T y p e N o 0024640 d e , U n i o n : U n i o n 0024660 N o d e ] ; \r \r T y p e c h o i 0024700 c e P r o d P r o c s : \t T y p 0024720 e N o d e P r o c s ; \r \r B u i 0024740 l d T y p e c h o i c e P r o d 0024760 N o d e : \t P R O C [ p o s i t 0025000 i o n : I N T , l e n g t h 0025020 : I N T , T y p e : T y p 0025040 e N o d e , U n i o n : U n 0025060 i o n N o d e ] \r \t R E T U R N 0025100 S [ T y p e N o d e ] ; \r \r T y 0025120 p e c h o i c e P r o d B u i l 0025140 d T G P a i r : \t B u i l d T G 0025160 P a i r P r o c T y p e ; \r T y 0025200 p e c h o i c e P r o d C a n o 0025220 n i c a l T y p e : \t C a n o n 0025240 i c a l T y p e P r o c T y p e 0025260 ; \r \r - - C o n s t a n t d e 0025300 r e f P r o d \r \r C o n s t a n 0025320 t d e r e f P r o d D a t a : \t 0025340 T Y P E = R E F C o n s t 0025360 a n t d e r e f P r o d D a t a 0025400 B o d y ; \r C o n s t a n t d e 0025420 r e f P r o d D a t a B o d y : 0025440 \t T Y P E = R E C O R D [ \r 0025460 i d : i d N o d e ] ; \r \r C o 0025500 n s t a n t d e r e f P r o d P 0025520 r o c s : \t C o n s t a n t N o 0025540 d e P r o c s ; \r \r B u i l d C 0025560 o n s t a n t d e r e f P r o d 0025600 N o d e : \t P R O C [ p o s i t 0025620 i o n : I N T , l e n g t h 0025640 : I N T , i d : i d N o d 0025660 e ] \r \t R E T U R N S [ C o n s 0025700 t a n t N o d e ] ; \r \r C o n s 0025720 t a n t d e r e f P r o d B u i 0025740 l d A b s t r a c t V a l u e : 0025760 \t B u i l d A b s t r a c t V a 0026000 l u e P r o c T y p e ; \r C o n 0026020 s t a n t d e r e f P r o d C o 0026040 e r c e : \t C o e r c e P r o c 0026060 T y p e ; \r C o n s t a n t d e 0026100 r e f P r o d C a r d V a l u e 0026120 : \t C a r d V a l u e P r o c T 0026140 y p e ; \r C o n s t a n t d e r 0026160 e f P r o d C o n s t a n t T o 0026200 R o p e : \t C o n s t a n t T o 0026220 R o p e P r o c T y p e ; \r \r - 0026240 - C o n s t a n t i m p o r t 0026260 P r o d \r \r C o n s t a n t i m 0026300 p o r t P r o d D a t a : \t T Y 0026320 P E = R E F C o n s t a n 0026340 t i m p o r t P r o d D a t a B 0026360 o d y ; \r C o n s t a n t i m p 0026400 o r t P r o d D a t a B o d y : 0026420 \t T Y P E = R E C O R D [ \r 0026440 i d i n t e r f a c e : i d N 0026460 o d e , i d i t e m : i d N 0026500 o d e ] ; \r \r C o n s t a n t i 0026520 m p o r t P r o d P r o c s : \t 0026540 C o n s t a n t N o d e P r o c 0026560 s ; \r \r B u i l d C o n s t a n 0026600 t i m p o r t P r o d N o d e : 0026620 \t P R O C [ p o s i t i o n : 0026640 I N T , l e n g t h : I N T 0026660 , i d i n t e r f a c e : i 0026700 d N o d e , i d i t e m : i 0026720 d N o d e ] \r \t R E T U R N S [ 0026740 C o n s t a n t N o d e ] ; \r \r 0026760 C o n s t a n t i m p o r t P r 0027000 o d B u i l d A b s t r a c t V 0027020 a l u e : \t B u i l d A b s t r 0027040 a c t V a l u e P r o c T y p e 0027060 ; \r C o n s t a n t i m p o r t 0027100 P r o d C o e r c e : \t C o e r 0027120 c e P r o c T y p e ; \r C o n s 0027140 t a n t i m p o r t P r o d C a 0027160 r d V a l u e : \t C a r d V a l 0027200 u e P r o c T y p e ; \r C o n s 0027220 t a n t i m p o r t P r o d C o 0027240 n s t a n t T o R o p e : \t C o 0027260 n s t a n t T o R o p e P r o c 0027300 T y p e ; \r \r - - C o n s t a 0027320 n t e m p t y P r o d \r \r C o n 0027340 s t a n t e m p t y P r o d D a 0027360 t a : \t T Y P E = R E F C 0027400 o n s t a n t e m p t y P r o d 0027420 D a t a B o d y ; \r C o n s t a 0027440 n t e m p t y P r o d D a t a B 0027460 o d y : \t T Y P E = R E C O 0027500 R D [ \r ] ; \r \r C o n s t a n t 0027520 e m p t y P r o d P r o c s : \t 0027540 C o n s t a n t N o d e P r o c 0027560 s ; \r \r B u i l d C o n s t a n 0027600 t e m p t y P r o d N o d e : \t 0027620 P R O C [ p o s i t i o n : I 0027640 N T , l e n g t h : I N T ] 0027660 \r \t R E T U R N S [ C o n s t a 0027700 n t N o d e ] ; \r \r C o n s t a 0027720 n t e m p t y P r o d B u i l d 0027740 A b s t r a c t V a l u e : \t B 0027760 u i l d A b s t r a c t V a l u 0030000 e P r o c T y p e ; \r C o n s t 0030020 a n t e m p t y P r o d C o e r 0030040 c e : \t C o e r c e P r o c T y 0030060 p e ; \r C o n s t a n t e m p t 0030100 y P r o d C a r d V a l u e : \t 0030120 C a r d V a l u e P r o c T y p 0030140 e ; \r C o n s t a n t e m p t y 0030160 P r o d C o n s t a n t T o R o 0030200 p e : \t C o n s t a n t T o R o 0030220 p e P r o c T y p e ; \r \r - - 0030240 C o n s t a n t f a l s e P r o 0030260 d \r \r C o n s t a n t f a l s e 0030300 P r o d D a t a : \t T Y P E = 0030320 R E F C o n s t a n t f a l 0030340 s e P r o d D a t a B o d y ; \r 0030360 C o n s t a n t f a l s e P r o 0030400 d D a t a B o d y : \t T Y P E 0030420 = R E C O R D [ \r ] ; \r \r C o 0030440 n s t a n t f a l s e P r o d P 0030460 r o c s : \t C o n s t a n t N o 0030500 d e P r o c s ; \r \r B u i l d C 0030520 o n s t a n t f a l s e P r o d 0030540 N o d e : \t P R O C [ p o s i t 0030560 i o n : I N T , l e n g t h 0030600 : I N T ] \r \t R E T U R N S [ 0030620 C o n s t a n t N o d e ] ; \r \r 0030640 C o n s t a n t f a l s e P r o 0030660 d B u i l d A b s t r a c t V a 0030700 l u e : \t B u i l d A b s t r a 0030720 c t V a l u e P r o c T y p e ; 0030740 \r C o n s t a n t f a l s e P r 0030760 o d C o e r c e : \t C o e r c e 0031000 P r o c T y p e ; \r C o n s t a 0031020 n t f a l s e P r o d C a r d V 0031040 a l u e : \t C a r d V a l u e P 0031060 r o c T y p e ; \r C o n s t a n 0031100 t f a l s e P r o d C o n s t a 0031120 n t T o R o p e : \t C o n s t a 0031140 n t T o R o p e P r o c T y p e 0031160 ; \r \r - - C o n s t a n t t r 0031200 u e P r o d \r \r C o n s t a n t 0031220 t r u e P r o d D a t a : \t T Y 0031240 P E = R E F C o n s t a n 0031260 t t r u e P r o d D a t a B o d 0031300 y ; \r C o n s t a n t t r u e P 0031320 r o d D a t a B o d y : \t T Y P 0031340 E = R E C O R D [ \r ] ; \r \r 0031360 C o n s t a n t t r u e P r o d 0031400 P r o c s : \t C o n s t a n t N 0031420 o d e P r o c s ; \r \r B u i l d 0031440 C o n s t a n t t r u e P r o d 0031460 N o d e : \t P R O C [ p o s i t 0031500 i o n : I N T , l e n g t h 0031520 : I N T ] \r \t R E T U R N S [ 0031540 C o n s t a n t N o d e ] ; \r \r 0031560 C o n s t a n t t r u e P r o d 0031600 B u i l d A b s t r a c t V a l 0031620 u e : \t B u i l d A b s t r a c 0031640 t V a l u e P r o c T y p e ; \r 0031660 C o n s t a n t t r u e P r o d 0031700 C o e r c e : \t C o e r c e P r 0031720 o c T y p e ; \r C o n s t a n t 0031740 t r u e P r o d C a r d V a l u 0031760 e : \t C a r d V a l u e P r o c 0032000 T y p e ; \r C o n s t a n t t r 0032020 u e P r o d C o n s t a n t T o 0032040 R o p e : \t C o n s t a n t T o 0032060 R o p e P r o c T y p e ; \r \r - 0032100 - C o n s t a n t u n b o u n 0032120 d e d P r o d \r \r C o n s t a n 0032140 t u n b o u n d e d P r o d D a 0032160 t a : \t T Y P E = R E F C 0032200 o n s t a n t u n b o u n d e d 0032220 P r o d D a t a B o d y ; \r C o 0032240 n s t a n t u n b o u n d e d P 0032260 r o d D a t a B o d y : \t T Y P 0032300 E = R E C O R D [ \r ] ; \r \r 0032320 C o n s t a n t u n b o u n d e 0032340 d P r o d P r o c s : \t C o n s 0032360 t a n t N o d e P r o c s ; \r \r 0032400 B u i l d C o n s t a n t u n b 0032420 o u n d e d P r o d N o d e : \t 0032440 P R O C [ p o s i t i o n : I 0032460 N T , l e n g t h : I N T ] 0032500 \r \t R E T U R N S [ C o n s t a 0032520 n t N o d e ] ; \r \r C o n s t a 0032540 n t u n b o u n d e d P r o d B 0032560 u i l d A b s t r a c t V a l u 0032600 e : \t B u i l d A b s t r a c t 0032620 V a l u e P r o c T y p e ; \r C 0032640 o n s t a n t u n b o u n d e d 0032660 P r o d C o e r c e : \t C o e r 0032700 c e P r o c T y p e ; \r C o n s 0032720 t a n t u n b o u n d e d P r o 0032740 d C a r d V a l u e : \t C a r d 0032760 V a l u e P r o c T y p e ; \r C 0033000 o n s t a n t u n b o u n d e d 0033020 P r o d C o n s t a n t T o R o 0033040 p e : \t C o n s t a n t T o R o 0033060 p e P r o c T y p e ; \r \r - - 0033100 C o n s t a n t i n v e r t e d 0033120 P r o d \r \r C o n s t a n t i n 0033140 v e r t e d P r o d D a t a : \t 0033160 T Y P E = R E F C o n s t 0033200 a n t i n v e r t e d P r o d D 0033220 a t a B o d y ; \r C o n s t a n 0033240 t i n v e r t e d P r o d D a t 0033260 a B o d y : \t T Y P E = R E 0033300 C O R D [ \r N u m b e r : N u 0033320 m b e r N o d e ] ; \r \r C o n s 0033340 t a n t i n v e r t e d P r o d 0033360 P r o c s : \t C o n s t a n t N 0033400 o d e P r o c s ; \r \r B u i l d 0033420 C o n s t a n t i n v e r t e d 0033440 P r o d N o d e : \t P R O C [ p 0033460 o s i t i o n : I N T , l e 0033500 n g t h : I N T , N u m b e 0033520 r : N u m b e r N o d e ] \r \t 0033540 R E T U R N S [ C o n s t a n t 0033560 N o d e ] ; \r \r C o n s t a n t 0033600 i n v e r t e d P r o d B u i l 0033620 d A b s t r a c t V a l u e : \t 0033640 B u i l d A b s t r a c t V a l 0033660 u e P r o c T y p e ; \r C o n s 0033700 t a n t i n v e r t e d P r o d 0033720 C o e r c e : \t C o e r c e P r 0033740 o c T y p e ; \r C o n s t a n t 0033760 i n v e r t e d P r o d C a r d 0034000 V a l u e : \t C a r d V a l u e 0034020 P r o c T y p e ; \r C o n s t a 0034040 n t i n v e r t e d P r o d C o 0034060 n s t a n t T o R o p e : \t C o 0034100 n s t a n t T o R o p e P r o c 0034120 T y p e ; \r \r - - C o n s t a 0034140 n t n u m b e r P r o d \r \r C o 0034160 n s t a n t n u m b e r P r o d 0034200 D a t a : \t T Y P E = R E F 0034220 C o n s t a n t n u m b e r P 0034240 r o d D a t a B o d y ; \r C o n 0034260 s t a n t n u m b e r P r o d D 0034300 a t a B o d y : \t T Y P E = 0034320 R E C O R D [ \r N u m b e r : 0034340 N u m b e r N o d e ] ; \r \r C o 0034360 n s t a n t n u m b e r P r o d 0034400 P r o c s : \t C o n s t a n t N 0034420 o d e P r o c s ; \r \r B u i l d 0034440 C o n s t a n t n u m b e r P r 0034460 o d N o d e : \t P R O C [ p o s 0034500 i t i o n : I N T , l e n g 0034520 t h : I N T , N u m b e r : 0034540 N u m b e r N o d e ] \r \t R E 0034560 T U R N S [ C o n s t a n t N o 0034600 d e ] ; \r \r C o n s t a n t n u 0034620 m b e r P r o d B u i l d A b s 0034640 t r a c t V a l u e : \t B u i l 0034660 d A b s t r a c t V a l u e P r 0034700 o c T y p e ; \r C o n s t a n t 0034720 n u m b e r P r o d C o e r c e 0034740 : \t C o e r c e P r o c T y p e 0034760 ; \r C o n s t a n t n u m b e r 0035000 P r o d C a r d V a l u e : \t C 0035020 a r d V a l u e P r o c T y p e 0035040 ; \r C o n s t a n t n u m b e r 0035060 P r o d C o n s t a n t T o R o 0035100 p e : \t C o n s t a n t T o R o 0035120 p e P r o c T y p e ; \r \r - - 0035140 C o n s t a n t s t r i n g P r 0035160 o d \r \r C o n s t a n t s t r i 0035200 n g P r o d D a t a : \t T Y P E 0035220 = R E F C o n s t a n t s 0035240 t r i n g P r o d D a t a B o d 0035260 y ; \r C o n s t a n t s t r i n 0035300 g P r o d D a t a B o d y : \t T 0035320 Y P E = R E C O R D [ \r r o 0035340 p e : r o p e N o d e ] ; \r \r 0035360 C o n s t a n t s t r i n g P r 0035400 o d P r o c s : \t C o n s t a n 0035420 t N o d e P r o c s ; \r \r B u i 0035440 l d C o n s t a n t s t r i n g 0035460 P r o d N o d e : \t P R O C [ p 0035500 o s i t i o n : I N T , l e 0035520 n g t h : I N T , r o p e : 0035540 r o p e N o d e ] \r \t R E T U 0035560 R N S [ C o n s t a n t N o d e 0035600 ] ; \r \r C o n s t a n t s t r i 0035620 n g P r o d B u i l d A b s t r 0035640 a c t V a l u e : \t B u i l d A 0035660 b s t r a c t V a l u e P r o c 0035700 T y p e ; \r C o n s t a n t s t 0035720 r i n g P r o d C o e r c e : \t 0035740 C o e r c e P r o c T y p e ; \r 0035760 C o n s t a n t s t r i n g P r 0036000 o d C a r d V a l u e : \t C a r 0036020 d V a l u e P r o c T y p e ; \r 0036040 C o n s t a n t s t r i n g P r 0036060 o d C o n s t a n t T o R o p e 0036100 : \t C o n s t a n t T o R o p e 0036120 P r o c T y p e ; \r \r - - C o 0036140 n s t a n t c h o i c e P r o d 0036160 \r \r C o n s t a n t c h o i c e 0036200 P r o d D a t a : \t T Y P E = 0036220 R E F C o n s t a n t c h o 0036240 i c e P r o d D a t a B o d y ; 0036260 \r C o n s t a n t c h o i c e P 0036300 r o d D a t a B o d y : \t T Y P 0036320 E = R E C O R D [ \r i d : 0036340 i d N o d e , C o n s t a n t 0036360 : C o n s t a n t N o d e ] ; 0036400 \r \r C o n s t a n t c h o i c e 0036420 P r o d P r o c s : \t C o n s t 0036440 a n t N o d e P r o c s ; \r \r B 0036460 u i l d C o n s t a n t c h o i 0036500 c e P r o d N o d e : \t P R O C 0036520 [ p o s i t i o n : I N T , 0036540 l e n g t h : I N T , i d : 0036560 i d N o d e , C o n s t a n 0036600 t : C o n s t a n t N o d e ] 0036620 \r \t R E T U R N S [ C o n s t a 0036640 n t N o d e ] ; \r \r C o n s t a 0036660 n t c h o i c e P r o d B u i l 0036700 d A b s t r a c t V a l u e : \t 0036720 B u i l d A b s t r a c t V a l 0036740 u e P r o c T y p e ; \r C o n s 0036760 t a n t c h o i c e P r o d C o 0037000 e r c e : \t C o e r c e P r o c 0037020 T y p e ; \r C o n s t a n t c h 0037040 o i c e P r o d C a r d V a l u 0037060 e : \t C a r d V a l u e P r o c 0037100 T y p e ; \r C o n s t a n t c h 0037120 o i c e P r o d C o n s t a n t 0037140 T o R o p e : \t C o n s t a n t 0037160 T o R o p e P r o c T y p e ; \r 0037200 \r - - C o n s t a n t c o n s 0037220 t r u c t o r P r o d \r \r C o n 0037240 s t a n t c o n s t r u c t o r 0037260 P r o d D a t a : \t T Y P E = 0037300 R E F C o n s t a n t c o n 0037320 s t r u c t o r P r o d D a t a 0037340 B o d y ; \r C o n s t a n t c o 0037360 n s t r u c t o r P r o d D a t 0037400 a B o d y : \t T Y P E = R E 0037420 C O R D [ \r C o n s t r u c t o 0037440 r : C o n s t r u c t o r N o 0037460 d e ] ; \r \r C o n s t a n t c o 0037500 n s t r u c t o r P r o d P r o 0037520 c s : \t C o n s t a n t N o d e 0037540 P r o c s ; \r \r B u i l d C o n 0037560 s t a n t c o n s t r u c t o r 0037600 P r o d N o d e : \t P R O C [ p 0037620 o s i t i o n : I N T , l e 0037640 n g t h : I N T , C o n s t 0037660 r u c t o r : C o n s t r u c 0037700 t o r N o d e ] \r \t R E T U R N 0037720 S [ C o n s t a n t N o d e ] ; 0037740 \r \r C o n s t a n t c o n s t r 0037760 u c t o r P r o d B u i l d A b 0040000 s t r a c t V a l u e : \t B u i 0040020 l d A b s t r a c t V a l u e P 0040040 r o c T y p e ; \r C o n s t a n 0040060 t c o n s t r u c t o r P r o d 0040100 C o e r c e : \t C o e r c e P r 0040120 o c T y p e ; \r C o n s t a n t 0040140 c o n s t r u c t o r P r o d C 0040160 a r d V a l u e : \t C a r d V a 0040200 l u e P r o c T y p e ; \r C o n 0040220 s t a n t c o n s t r u c t o r 0040240 P r o d C o n s t a n t T o R o 0040260 p e : \t C o n s t a n t T o R o 0040300 p e P r o c T y p e ; \r \r - - 0040320 C o n s t a n t g r o u p i n g 0040340 P r o d \r \r C o n s t a n t g r 0040360 o u p i n g P r o d D a t a : \t 0040400 T Y P E = R E F C o n s t 0040420 a n t g r o u p i n g P r o d D 0040440 a t a B o d y ; \r C o n s t a n 0040460 t g r o u p i n g P r o d D a t 0040500 a B o d y : \t T Y P E = R E 0040520 C O R D [ \r G r o u p i n g : 0040540 G r o u p i n g N o d e ] ; \r \r 0040560 C o n s t a n t g r o u p i n g 0040600 P r o d P r o c s : \t C o n s t 0040620 a n t N o d e P r o c s ; \r \r B 0040640 u i l d C o n s t a n t g r o u 0040660 p i n g P r o d N o d e : \t P R 0040700 O C [ p o s i t i o n : I N T 0040720 , l e n g t h : I N T , G 0040740 r o u p i n g : G r o u p i n 0040760 g N o d e ] \r \t R E T U R N S [ 0041000 C o n s t a n t N o d e ] ; \r \r 0041020 C o n s t a n t g r o u p i n g 0041040 P r o d B u i l d A b s t r a c 0041060 t V a l u e : \t B u i l d A b s 0041100 t r a c t V a l u e P r o c T y 0041120 p e ; \r C o n s t a n t g r o u 0041140 p i n g P r o d C o e r c e : \t 0041160 C o e r c e P r o c T y p e ; \r 0041200 C o n s t a n t g r o u p i n g 0041220 P r o d C a r d V a l u e : \t C 0041240 a r d V a l u e P r o c T y p e 0041260 ; \r C o n s t a n t g r o u p i 0041300 n g P r o d C o n s t a n t T o 0041320 R o p e : \t C o n s t a n t T o 0041340 R o p e P r o c T y p e ; \r \r - 0041360 - E n u m e r a t i o n o n e 0041400 P r o d \r \r E n u m e r a t i o 0041420 n o n e P r o d D a t a : \t T Y 0041440 P E = R E F E n u m e r a 0041460 t i o n o n e P r o d D a t a B 0041500 o d y ; \r E n u m e r a t i o n 0041520 o n e P r o d D a t a B o d y : 0041540 \t T Y P E = R E C O R D [ \r 0041560 i d : i d N o d e , C o n s 0041600 t a n t : C o n s t a n t N o 0041620 d e ] ; \r \r E n u m e r a t i o 0041640 n o n e P r o d P r o c s : \t E 0041660 n u m e r a t i o n N o d e P r 0041700 o c s ; \r \r B u i l d E n u m e 0041720 r a t i o n o n e P r o d N o d 0041740 e : \t P R O C [ p o s i t i o n 0041760 : I N T , l e n g t h : I 0042000 N T , i d : i d N o d e , 0042020 C o n s t a n t : C o n s t a 0042040 n t N o d e ] \r \t R E T U R N S 0042060 [ E n u m e r a t i o n N o d e 0042100 ] ; \r \r E n u m e r a t i o n o 0042120 n e P r o d C a n o n i c a l E 0042140 n u m e r a t i o n : \t C a n o 0042160 n i c a l E n u m e r a t i o n 0042200 P r o c T y p e ; \r E n u m e r 0042220 a t i o n o n e P r o d C h e c 0042240 k E n u m e r a t i o n : \t C h 0042260 e c k E n u m e r a t i o n P r 0042300 o c T y p e ; \r \r - - E n u m 0042320 e r a t i o n m o r e P r o d \r 0042340 \r E n u m e r a t i o n m o r e 0042360 P r o d D a t a : \t T Y P E = 0042400 R E F E n u m e r a t i o n 0042420 m o r e P r o d D a t a B o d y 0042440 ; \r E n u m e r a t i o n m o r 0042460 e P r o d D a t a B o d y : \t T 0042500 Y P E = R E C O R D [ \r E n 0042520 u m e r a t i o n v a l u e : 0042540 E n u m e r a t i o n N o d e , 0042560 E n u m e r a t i o n n e x t 0042600 : E n u m e r a t i o n N o d 0042620 e ] ; \r \r E n u m e r a t i o n 0042640 m o r e P r o d P r o c s : \t E 0042660 n u m e r a t i o n N o d e P r 0042700 o c s ; \r \r B u i l d E n u m e 0042720 r a t i o n m o r e P r o d N o 0042740 d e : \t P R O C [ p o s i t i o 0042760 n : I N T , l e n g t h : 0043000 I N T , E n u m e r a t i o n 0043020 v a l u e : E n u m e r a t i 0043040 o n N o d e , E n u m e r a t 0043060 i o n n e x t : E n u m e r a 0043100 t i o n N o d e ] \r \t R E T U R 0043120 N S [ E n u m e r a t i o n N o 0043140 d e ] ; \r \r E n u m e r a t i o 0043160 n m o r e P r o d C a n o n i c 0043200 a l E n u m e r a t i o n : \t C 0043220 a n o n i c a l E n u m e r a t 0043240 i o n P r o c T y p e ; \r E n u 0043260 m e r a t i o n m o r e P r o d 0043300 C h e c k E n u m e r a t i o n 0043320 : \t C h e c k E n u m e r a t i 0043340 o n P r o c T y p e ; \r \r - - 0043360 U n i o n o n e P r o d \r \r U n 0043400 i o n o n e P r o d D a t a : \t 0043420 T Y P E = R E F U n i o n 0043440 o n e P r o d D a t a B o d y ; 0043460 \r U n i o n o n e P r o d D a t 0043500 a B o d y : \t T Y P E = R E 0043520 C O R D [ \r N a m e L i s t : 0043540 N a m e L i s t N o d e , T y 0043560 p e : T y p e N o d e ] ; \r \r 0043600 U n i o n o n e P r o d P r o c 0043620 s : \t U n i o n N o d e P r o c 0043640 s ; \r \r B u i l d U n i o n o n 0043660 e P r o d N o d e : \t P R O C [ 0043700 p o s i t i o n : I N T , l 0043720 e n g t h : I N T , N a m e 0043740 L i s t : N a m e L i s t N o 0043760 d e , T y p e : T y p e N o 0044000 d e ] \r \t R E T U R N S [ U n i 0044020 o n N o d e ] ; \r \r U n i o n o 0044040 n e P r o d C a n o n i c a l U 0044060 n i o n : \t C a n o n i c a l U 0044100 n i o n P r o c T y p e ; \r U n 0044120 i o n o n e P r o d E m p t y W 0044140 o r k T a b l e O f N a m e s : 0044160 \t E m p t y W o r k T a b l e O 0044200 f N a m e s P r o c T y p e ; \r 0044220 \r - - U n i o n m o r e P r o 0044240 d \r \r U n i o n m o r e P r o d 0044260 D a t a : \t T Y P E = R E F 0044300 U n i o n m o r e P r o d D a 0044320 t a B o d y ; \r U n i o n m o r 0044340 e P r o d D a t a B o d y : \t T 0044360 Y P E = R E C O R D [ \r U n 0044400 i o n v a l u e : U n i o n N 0044420 o d e , U n i o n n e x t : 0044440 U n i o n N o d e ] ; \r \r U n i 0044460 o n m o r e P r o d P r o c s : 0044500 \t U n i o n N o d e P r o c s ; 0044520 \r \r B u i l d U n i o n m o r e 0044540 P r o d N o d e : \t P R O C [ p 0044560 o s i t i o n : I N T , l e 0044600 n g t h : I N T , U n i o n 0044620 v a l u e : U n i o n N o d e 0044640 , U n i o n n e x t : U n i 0044660 o n N o d e ] \r \t R E T U R N S 0044700 [ U n i o n N o d e ] ; \r \r U n 0044720 i o n m o r e P r o d C a n o n 0044740 i c a l U n i o n : \t C a n o n 0044760 i c a l U n i o n P r o c T y p 0045000 e ; \r U n i o n m o r e P r o d 0045020 E m p t y W o r k T a b l e O f 0045040 N a m e s : \t E m p t y W o r k 0045060 T a b l e O f N a m e s P r o c 0045100 T y p e ; \r \r - - F i e l d L 0045120 i s t e m p t y P r o d \r \r F i 0045140 e l d L i s t e m p t y P r o d 0045160 D a t a : \t T Y P E = R E F 0045200 F i e l d L i s t e m p t y P 0045220 r o d D a t a B o d y ; \r F i e 0045240 l d L i s t e m p t y P r o d D 0045260 a t a B o d y : \t T Y P E = 0045300 R E C O R D [ \r ] ; \r \r F i e l 0045320 d L i s t e m p t y P r o d P r 0045340 o c s : \t F i e l d L i s t N o 0045360 d e P r o c s ; \r \r B u i l d F 0045400 i e l d L i s t e m p t y P r o 0045420 d N o d e : \t P R O C [ p o s i 0045440 t i o n : I N T , l e n g t 0045460 h : I N T ] \r \t R E T U R N S 0045500 [ F i e l d L i s t N o d e ] ; 0045520 \r \r F i e l d L i s t e m p t y 0045540 P r o d C a n o n i c a l F i e 0045560 l d L i s t : \t C a n o n i c a 0045600 l F i e l d L i s t P r o c T y 0045620 p e ; \r \r - - F i e l d L i s 0045640 t o n e P r o d \r \r F i e l d L 0045660 i s t o n e P r o d D a t a : \t 0045700 T Y P E = R E F F i e l d 0045720 L i s t o n e P r o d D a t a B 0045740 o d y ; \r F i e l d L i s t o n 0045760 e P r o d D a t a B o d y : \t T 0046000 Y P E = R E C O R D [ \r N a 0046020 m e L i s t : N a m e L i s t 0046040 N o d e , T y p e : T y p e 0046060 N o d e ] ; \r \r F i e l d L i s 0046100 t o n e P r o d P r o c s : \t F 0046120 i e l d L i s t N o d e P r o c 0046140 s ; \r \r B u i l d F i e l d L i 0046160 s t o n e P r o d N o d e : \t P 0046200 R O C [ p o s i t i o n : I N 0046220 T , l e n g t h : I N T , 0046240 N a m e L i s t : N a m e L i 0046260 s t N o d e , T y p e : T y 0046300 p e N o d e ] \r \t R E T U R N S 0046320 [ F i e l d L i s t N o d e ] ; 0046340 \r \r F i e l d L i s t o n e P r 0046360 o d C a n o n i c a l F i e l d 0046400 L i s t : \t C a n o n i c a l F 0046420 i e l d L i s t P r o c T y p e 0046440 ; \r \r - - F i e l d L i s t m 0046460 o r e P r o d \r \r F i e l d L i 0046500 s t m o r e P r o d D a t a : \t 0046520 T Y P E = R E F F i e l d 0046540 L i s t m o r e P r o d D a t a 0046560 B o d y ; \r F i e l d L i s t m 0046600 o r e P r o d D a t a B o d y : 0046620 \t T Y P E = R E C O R D [ \r 0046640 F i e l d L i s t v a l u e : 0046660 F i e l d L i s t N o d e , F 0046700 i e l d L i s t r e s t : F i 0046720 e l d L i s t N o d e ] ; \r \r F 0046740 i e l d L i s t m o r e P r o d 0046760 P r o c s : \t F i e l d L i s t 0047000 N o d e P r o c s ; \r \r B u i l 0047020 d F i e l d L i s t m o r e P r 0047040 o d N o d e : \t P R O C [ p o s 0047060 i t i o n : I N T , l e n g 0047100 t h : I N T , F i e l d L i 0047120 s t v a l u e : F i e l d L i 0047140 s t N o d e , F i e l d L i s 0047160 t r e s t : F i e l d L i s t 0047200 N o d e ] \r \t R E T U R N S [ F 0047220 i e l d L i s t N o d e ] ; \r \r 0047240 F i e l d L i s t m o r e P r o 0047260 d C a n o n i c a l F i e l d L 0047300 i s t : \t C a n o n i c a l F i 0047320 e l d L i s t P r o c T y p e ; 0047340 \r \r - - G r o u p i n g o n e 0047360 P r o d \r \r G r o u p i n g o n 0047400 e P r o d D a t a : \t T Y P E 0047420 = R E F G r o u p i n g o n 0047440 e P r o d D a t a B o d y ; \r G 0047460 r o u p i n g o n e P r o d D a 0047500 t a B o d y : \t T Y P E = R 0047520 E C O R D [ \r C o n s t a n t : 0047540 C o n s t a n t N o d e ] ; \r 0047560 \r G r o u p i n g o n e P r o d 0047600 P r o c s : \t G r o u p i n g N 0047620 o d e P r o c s ; \r \r B u i l d 0047640 G r o u p i n g o n e P r o d N 0047660 o d e : \t P R O C [ p o s i t i 0047700 o n : I N T , l e n g t h : 0047720 I N T , C o n s t a n t : 0047740 C o n s t a n t N o d e ] \r \t R 0047760 E T U R N S [ G r o u p i n g N 0050000 o d e ] ; \r \r G r o u p i n g o 0050020 n e P r o d C o e r c e G r o u 0050040 p i n g : \t C o e r c e G r o u 0050060 p i n g P r o c T y p e ; \r G r 0050100 o u p i n g o n e P r o d G r o 0050120 u p i n g C o n s t a n t T o R 0050140 o p e : \t G r o u p i n g C o n 0050160 s t a n t T o R o p e P r o c T 0050200 y p e ; \r G r o u p i n g o n e 0050220 P r o d S i z e : \t S i z e P r 0050240 o c T y p e ; \r \r - - G r o u 0050260 p i n g m o r e P r o d \r \r G r 0050300 o u p i n g m o r e P r o d D a 0050320 t a : \t T Y P E = R E F G 0050340 r o u p i n g m o r e P r o d D 0050360 a t a B o d y ; \r G r o u p i n 0050400 g m o r e P r o d D a t a B o d 0050420 y : \t T Y P E = R E C O R D 0050440 [ \r C o n s t a n t : C o n s 0050460 t a n t N o d e , G r o u p i 0050500 n g : G r o u p i n g N o d e 0050520 ] ; \r \r G r o u p i n g m o r e 0050540 P r o d P r o c s : \t G r o u p 0050560 i n g N o d e P r o c s ; \r \r B 0050600 u i l d G r o u p i n g m o r e 0050620 P r o d N o d e : \t P R O C [ p 0050640 o s i t i o n : I N T , l e 0050660 n g t h : I N T , C o n s t 0050700 a n t : C o n s t a n t N o d 0050720 e , G r o u p i n g : G r o 0050740 u p i n g N o d e ] \r \t R E T U 0050760 R N S [ G r o u p i n g N o d e 0051000 ] ; \r \r G r o u p i n g m o r e 0051020 P r o d C o e r c e G r o u p i 0051040 n g : \t C o e r c e G r o u p i 0051060 n g P r o c T y p e ; \r G r o u 0051100 p i n g m o r e P r o d G r o u 0051120 p i n g C o n s t a n t T o R o 0051140 p e : \t G r o u p i n g C o n s 0051160 t a n t T o R o p e P r o c T y 0051200 p e ; \r G r o u p i n g m o r e 0051220 P r o d S i z e : \t S i z e P r 0051240 o c T y p e ; \r \r - - C o n s 0051260 t r u c t o r o n e P r o d \r \r 0051300 C o n s t r u c t o r o n e P r 0051320 o d D a t a : \t T Y P E = R 0051340 E F C o n s t r u c t o r o n 0051360 e P r o d D a t a B o d y ; \r C 0051400 o n s t r u c t o r o n e P r o 0051420 d D a t a B o d y : \t T Y P E 0051440 = R E C O R D [ \r B i n d i n 0051460 g : B i n d i n g N o d e ] ; 0051500 \r \r C o n s t r u c t o r o n e 0051520 P r o d P r o c s : \t C o n s t 0051540 r u c t o r N o d e P r o c s ; 0051560 \r \r B u i l d C o n s t r u c t 0051600 o r o n e P r o d N o d e : \t P 0051620 R O C [ p o s i t i o n : I N 0051640 T , l e n g t h : I N T , 0051660 B i n d i n g : B i n d i n g 0051700 N o d e ] \r \t R E T U R N S [ C 0051720 o n s t r u c t o r N o d e ] ; 0051740 \r \r C o n s t r u c t o r o n e 0051760 P r o d C o e r c e C o m p o n 0052000 e n t s : \t C o e r c e C o m p 0052020 o n e n t s P r o c T y p e ; \r 0052040 C o n s t r u c t o r o n e P r 0052060 o d C o n s t a n t T o R o p e 0052100 : \t C o n s t a n t T o R o p e 0052120 P r o c T y p e ; \r C o n s t r 0052140 u c t o r o n e P r o d C h e c 0052160 k A l l N a m e s : \t C h e c k 0052200 A l l N a m e s P r o c T y p e 0052220 ; \r \r - - C o n s t r u c t o 0052240 r m o r e P r o d \r \r C o n s t 0052260 r u c t o r m o r e P r o d D a 0052300 t a : \t T Y P E = R E F C 0052320 o n s t r u c t o r m o r e P r 0052340 o d D a t a B o d y ; \r C o n s 0052360 t r u c t o r m o r e P r o d D 0052400 a t a B o d y : \t T Y P E = 0052420 R E C O R D [ \r B i n d i n g : 0052440 B i n d i n g N o d e , C o 0052460 n s t r u c t o r : C o n s t 0052500 r u c t o r N o d e ] ; \r \r C o 0052520 n s t r u c t o r m o r e P r o 0052540 d P r o c s : \t C o n s t r u c 0052560 t o r N o d e P r o c s ; \r \r B 0052600 u i l d C o n s t r u c t o r m 0052620 o r e P r o d N o d e : \t P R O 0052640 C [ p o s i t i o n : I N T , 0052660 l e n g t h : I N T , B i 0052700 n d i n g : B i n d i n g N o 0052720 d e , C o n s t r u c t o r : 0052740 C o n s t r u c t o r N o d e 0052760 ] \r \t R E T U R N S [ C o n s t 0053000 r u c t o r N o d e ] ; \r \r C o 0053020 n s t r u c t o r m o r e P r o 0053040 d C o e r c e C o m p o n e n t 0053060 s : \t C o e r c e C o m p o n e 0053100 n t s P r o c T y p e ; \r C o n 0053120 s t r u c t o r m o r e P r o d 0053140 C o n s t a n t T o R o p e : \t 0053160 C o n s t a n t T o R o p e P r 0053200 o c T y p e ; \r C o n s t r u c 0053220 t o r m o r e P r o d C h e c k 0053240 A l l N a m e s : \t C h e c k A 0053260 l l N a m e s P r o c T y p e ; 0053300 \r \r - - B i n d i n g P r o d 0053320 \r \r B i n d i n g P r o d D a t 0053340 a : \t T Y P E = R E F B i 0053360 n d i n g P r o d D a t a B o d 0053400 y ; \r B i n d i n g P r o d D a 0053420 t a B o d y : \t T Y P E = R 0053440 E C O R D [ \r N a m e L i s t : 0053460 N a m e L i s t N o d e , C 0053500 o n s t a n t : C o n s t a n 0053520 t N o d e ] ; \r \r B i n d i n g 0053540 P r o d P r o c s : \t B i n d i 0053560 n g N o d e P r o c s ; \r \r B u 0053600 i l d B i n d i n g P r o d N o 0053620 d e : \t P R O C [ p o s i t i o 0053640 n : I N T , l e n g t h : 0053660 I N T , N a m e L i s t : N 0053700 a m e L i s t N o d e , C o n 0053720 s t a n t : C o n s t a n t N 0053740 o d e ] \r \t R E T U R N S [ B i 0053760 n d i n g N o d e ] ; \r \r B i n 0054000 d i n g P r o d C o e r c e C o 0054020 m p o n e n t s : \t C o e r c e 0054040 C o m p o n e n t s P r o c T y 0054060 p e ; \r B i n d i n g P r o d C 0054100 o n s t a n t T o R o p e : \t C 0054120 o n s t a n t T o R o p e P r o 0054140 c T y p e ; \r B i n d i n g P r 0054160 o d C h e c k A l l N a m e s : 0054200 \t C h e c k A l l N a m e s P r 0054220 o c T y p e ; \r \r - - N a m e 0054240 L i s t e m p t y P r o d \r \r N 0054260 a m e L i s t e m p t y P r o d 0054300 D a t a : \t T Y P E = R E F 0054320 N a m e L i s t e m p t y P r 0054340 o d D a t a B o d y ; \r N a m e 0054360 L i s t e m p t y P r o d D a t 0054400 a B o d y : \t T Y P E = R E 0054420 C O R D [ \r ] ; \r \r N a m e L i 0054440 s t e m p t y P r o d P r o c s 0054460 : \t N a m e L i s t N o d e P r 0054500 o c s ; \r \r B u i l d N a m e L 0054520 i s t e m p t y P r o d N o d e 0054540 : \t P R O C [ p o s i t i o n : 0054560 I N T , l e n g t h : I N 0054600 T ] \r \t R E T U R N S [ N a m e 0054620 L i s t N o d e ] ; \r \r N a m e 0054640 L i s t e m p t y P r o d C h e 0054660 c k I f E r r o r N a m e s : \t 0054700 C h e c k I f E r r o r N a m e 0054720 s P r o c T y p e ; \r N a m e L 0054740 i s t e m p t y P r o d C a n o 0054760 n i c a l F i e l d s F r o m N 0055000 a m e L i s t : \t C a n o n i c 0055020 a l F i e l d s F r o m N a m e 0055040 L i s t P r o c T y p e ; \r N a 0055060 m e L i s t e m p t y P r o d C 0055100 o e r c e C o m p o n e n t N a 0055120 m e L i s t : \t C o e r c e C o 0055140 m p o n e n t N a m e L i s t P 0055160 r o c T y p e ; \r N a m e L i s 0055200 t e m p t y P r o d N a m e L i 0055220 s t T o R o p e : \t N a m e L i 0055240 s t T o R o p e P r o c T y p e 0055260 ; \r N a m e L i s t e m p t y P 0055300 r o d E m p t y W o r k T a b l 0055320 e O f N a m e s : \t E m p t y W 0055340 o r k T a b l e O f N a m e s P 0055360 r o c T y p e ; \r N a m e L i s 0055400 t e m p t y P r o d T y p e O f 0055420 N a m e L i s t : \t T y p e O f 0055440 N a m e L i s t P r o c T y p e 0055460 ; \r \r - - N a m e L i s t o n 0055500 e P r o d \r \r N a m e L i s t o 0055520 n e P r o d D a t a : \t T Y P E 0055540 = R E F N a m e L i s t o 0055560 n e P r o d D a t a B o d y ; \r 0055600 N a m e L i s t o n e P r o d D 0055620 a t a B o d y : \t T Y P E = 0055640 R E C O R D [ \r i d : i d N o 0055660 d e ] ; \r \r N a m e L i s t o n 0055700 e P r o d P r o c s : \t N a m e 0055720 L i s t N o d e P r o c s ; \r \r 0055740 B u i l d N a m e L i s t o n e 0055760 P r o d N o d e : \t P R O C [ p 0056000 o s i t i o n : I N T , l e 0056020 n g t h : I N T , i d : i 0056040 d N o d e ] \r \t R E T U R N S [ 0056060 N a m e L i s t N o d e ] ; \r \r 0056100 N a m e L i s t o n e P r o d C 0056120 h e c k I f E r r o r N a m e s 0056140 : \t C h e c k I f E r r o r N a 0056160 m e s P r o c T y p e ; \r N a m 0056200 e L i s t o n e P r o d C a n o 0056220 n i c a l F i e l d s F r o m N 0056240 a m e L i s t : \t C a n o n i c 0056260 a l F i e l d s F r o m N a m e 0056300 L i s t P r o c T y p e ; \r N a 0056320 m e L i s t o n e P r o d C o e 0056340 r c e C o m p o n e n t N a m e 0056360 L i s t : \t C o e r c e C o m p 0056400 o n e n t N a m e L i s t P r o 0056420 c T y p e ; \r N a m e L i s t o 0056440 n e P r o d N a m e L i s t T o 0056460 R o p e : \t N a m e L i s t T o 0056500 R o p e P r o c T y p e ; \r N a 0056520 m e L i s t o n e P r o d E m p 0056540 t y W o r k T a b l e O f N a m 0056560 e s : \t E m p t y W o r k T a b 0056600 l e O f N a m e s P r o c T y p 0056620 e ; \r N a m e L i s t o n e P r 0056640 o d T y p e O f N a m e L i s t 0056660 : \t T y p e O f N a m e L i s t 0056700 P r o c T y p e ; \r \r - - N a 0056720 m e L i s t m o r e P r o d \r \r 0056740 N a m e L i s t m o r e P r o d 0056760 D a t a : \t T Y P E = R E F 0057000 N a m e L i s t m o r e P r o 0057020 d D a t a B o d y ; \r N a m e L 0057040 i s t m o r e P r o d D a t a B 0057060 o d y : \t T Y P E = R E C O 0057100 R D [ \r i d : i d N o d e , 0057120 N a m e L i s t : N a m e L i 0057140 s t N o d e ] ; \r \r N a m e L i 0057160 s t m o r e P r o d P r o c s : 0057200 \t N a m e L i s t N o d e P r o 0057220 c s ; \r \r B u i l d N a m e L i 0057240 s t m o r e P r o d N o d e : \t 0057260 P R O C [ p o s i t i o n : I 0057300 N T , l e n g t h : I N T , 0057320 i d : i d N o d e , N a m 0057340 e L i s t : N a m e L i s t N 0057360 o d e ] \r \t R E T U R N S [ N a 0057400 m e L i s t N o d e ] ; \r \r N a 0057420 m e L i s t m o r e P r o d C h 0057440 e c k I f E r r o r N a m e s : 0057460 \t C h e c k I f E r r o r N a m 0057500 e s P r o c T y p e ; \r N a m e 0057520 L i s t m o r e P r o d C a n o 0057540 n i c a l F i e l d s F r o m N 0057560 a m e L i s t : \t C a n o n i c 0057600 a l F i e l d s F r o m N a m e 0057620 L i s t P r o c T y p e ; \r N a 0057640 m e L i s t m o r e P r o d C o 0057660 e r c e C o m p o n e n t N a m 0057700 e L i s t : \t C o e r c e C o m 0057720 p o n e n t N a m e L i s t P r 0057740 o c T y p e ; \r N a m e L i s t 0057760 m o r e P r o d N a m e L i s t 0060000 T o R o p e : \t N a m e L i s t 0060020 T o R o p e P r o c T y p e ; \r 0060040 N a m e L i s t m o r e P r o d 0060060 E m p t y W o r k T a b l e O f 0060100 N a m e s : \t E m p t y W o r k 0060120 T a b l e O f N a m e s P r o c 0060140 T y p e ; \r N a m e L i s t m o 0060160 r e P r o d T y p e O f N a m e 0060200 L i s t : \t T y p e O f N a m e 0060220 L i s t P r o c T y p e ; \r \r - 0060240 - N u m b e r d e c i m a l P 0060260 r o d \r \r N u m b e r d e c i m 0060300 a l P r o d D a t a : \t T Y P E 0060320 = R E F N u m b e r d e c 0060340 i m a l P r o d D a t a B o d y 0060360 ; \r N u m b e r d e c i m a l P 0060400 r o d D a t a B o d y : \t T Y P 0060420 E = R E C O R D [ \r d e c i 0060440 m a l : d e c i m a l N o d e 0060460 ] ; \r \r N u m b e r d e c i m a 0060500 l P r o d P r o c s : \t N u m b 0060520 e r N o d e P r o c s ; \r \r B u 0060540 i l d N u m b e r d e c i m a l 0060560 P r o d N o d e : \t P R O C [ p 0060600 o s i t i o n : I N T , l e 0060620 n g t h : I N T , d e c i m 0060640 a l : d e c i m a l N o d e ] 0060660 \r \t R E T U R N S [ N u m b e r 0060700 N o d e ] ; \r \r N u m b e r d e 0060720 c i m a l P r o d C a r d V a l 0060740 u e : \t C a r d V a l u e P r o 0060760 c T y p e ; \r N u m b e r d e c 0061000 i m a l P r o d N u m b e r T o 0061020 C a r d : \t N u m b e r T o C a 0061040 r d P r o c T y p e ; \r \r - - 0061060 N u m b e r h e x P r o d \r \r N 0061100 u m b e r h e x P r o d D a t a 0061120 : \t T Y P E = R E F N u m 0061140 b e r h e x P r o d D a t a B o 0061160 d y ; \r N u m b e r h e x P r o 0061200 d D a t a B o d y : \t T Y P E 0061220 = R E C O R D [ \r h e x : h 0061240 e x N o d e ] ; \r \r N u m b e r 0061260 h e x P r o d P r o c s : \t N u 0061300 m b e r N o d e P r o c s ; \r \r 0061320 B u i l d N u m b e r h e x P r 0061340 o d N o d e : \t P R O C [ p o s 0061360 i t i o n : I N T , l e n g 0061400 t h : I N T , h e x : h e 0061420 x N o d e ] \r \t R E T U R N S [ 0061440 N u m b e r N o d e ] ; \r \r N u 0061460 m b e r h e x P r o d C a r d V 0061500 a l u e : \t C a r d V a l u e P 0061520 r o c T y p e ; \r N u m b e r h 0061540 e x P r o d N u m b e r T o C a 0061560 r d : \t N u m b e r T o C a r d 0061600 P r o c T y p e ; \r \r - - N u 0061620 m b e r o c t a l P r o d \r \r N 0061640 u m b e r o c t a l P r o d D a 0061660 t a : \t T Y P E = R E F N 0061700 u m b e r o c t a l P r o d D a 0061720 t a B o d y ; \r N u m b e r o c 0061740 t a l P r o d D a t a B o d y : 0061760 \t T Y P E = R E C O R D [ \r 0062000 o c t a l : o c t a l N o d e 0062020 ] ; \r \r N u m b e r o c t a l P 0062040 r o d P r o c s : \t N u m b e r 0062060 N o d e P r o c s ; \r \r B u i l 0062100 d N u m b e r o c t a l P r o d 0062120 N o d e : \t P R O C [ p o s i t 0062140 i o n : I N T , l e n g t h 0062160 : I N T , o c t a l : o c 0062200 t a l N o d e ] \r \t R E T U R N 0062220 S [ N u m b e r N o d e ] ; \r \r 0062240 N u m b e r o c t a l P r o d C 0062260 a r d V a l u e : \t C a r d V a 0062300 l u e P r o c T y p e ; \r N u m 0062320 b e r o c t a l P r o d N u m b 0062340 e r T o C a r d : \t N u m b e r 0062360 T o C a r d P r o c T y p e ; \r 0062400 E N D . . \r 0062406