$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronAG6cImpl.Mesa!15 0000000 - - S a f f r o n A G 6 c I m 0000020 p l . m e s a \r - - C o p y 0000040 r i g h t 323 1 9 8 7 b y 0000060 X e r o x C o r p o r a t i o 0000100 n . A l l r i g h t s r 0000120 e s e r v e d . \r - - G e n 0000140 e r a t e d b y R a u e n . 0000160 p a a t S e p t e m b e r 0000200 1 , 1 9 8 8 2 : 4 5 : 5 3 0000220 p m P D T \r - - u s i n 0000240 g T h r e e C a s a b a F o u 0000260 r [ 1 . 2 ] o f J u n e 0000300 1 , 1 9 8 7 6 : 0 0 : 0 0 0000320 p m P D T \r \r D I R E C T O R 0000340 Y \r \t S a f f r o n A G 6 c D e 0000360 f , \r \t S a f f r o n G e n e r 0000400 i c D e f , \r \t S a f f r o n A 0000420 T D e f ; \r \r S a f f r o n A G 0000440 6 c I m p l : C E D A R P R 0000460 O G R A M I M P O R T S S a 0000500 f f r o n A G 6 c D e f E X P 0000520 O R T S S a f f r o n A G 6 c 0000540 D e f = \r B E G I N \r O P E N 0000560 S a f f r o n A G 6 c D e f , 0000600 S a f f r o n G e n e r i c D 0000620 e f , S a f f r o n A T D e f 0000640 ; \r \r - - M a c h i n e D e p 0000660 e n d e n t y e s P r o d \r \r M 0000700 a c h i n e D e p e n d e n t y 0000720 e s P r o d P r o c s : \t P U B 0000740 L I C M a c h i n e D e p e n 0000760 d e n t N o d e P r o c s _ \r 0001000 \t N E W [ M a c h i n e D e p e 0001020 n d e n t N o d e P r o c s B o 0001040 d y _ [ M a c h i n e D e p 0001060 e n d e n t y e s P r o d I s K 0001100 e y w o r d P r e s e n t ] ] ; 0001120 \r \r B u i l d M a c h i n e D e 0001140 p e n d e n t y e s P r o d N o 0001160 d e : \t P U B L I C P R O C [ 0001200 p o s i t i o n : I N T , l 0001220 e n g t h : I N T ] \r \t R E T 0001240 U R N S [ M a c h i n e D e p e 0001260 n d e n t N o d e ] = \r \t \t B 0001300 E G I N \r \t \t R E T U R N [ N E 0001320 W [ M a c h i n e D e p e n d e 0001340 n t N o d e B o d y _ [ p o s i 0001360 t i o n , l e n g t h , M a 0001400 c h i n e D e p e n d e n t y e 0001420 s P r o d P r o c s , N I L ] 0001440 ] ] ; \r \t \t E N D ; \r \r \r - - 0001460 M a c h i n e D e p e n d e n t 0001500 n o P r o d \r \r M a c h i n e D 0001520 e p e n d e n t n o P r o d P r 0001540 o c s : \t P U B L I C M a c h 0001560 i n e D e p e n d e n t N o d e 0001600 P r o c s _ \r \t N E W [ M a c 0001620 h i n e D e p e n d e n t N o d 0001640 e P r o c s B o d y _ [ M a 0001660 c h i n e D e p e n d e n t n o 0001700 P r o d I s K e y w o r d P r e 0001720 s e n t ] ] ; \r \r B u i l d M a 0001740 c h i n e D e p e n d e n t n o 0001760 P r o d N o d e : \t P U B L I C 0002000 P R O C [ p o s i t i o n : 0002020 I N T , l e n g t h : I N T 0002040 ] \r \t R E T U R N S [ M a c h i 0002060 n e D e p e n d e n t N o d e ] 0002100 = \r \t \t B E G I N \r \t \t R E T 0002120 U R N [ N E W [ M a c h i n e D 0002140 e p e n d e n t N o d e B o d y 0002160 _ [ p o s i t i o n , l e n g 0002200 t h , M a c h i n e D e p e n 0002220 d e n t n o P r o d P r o c s , 0002240 N I L ] ] ] ; \r \t \t E N D ; \r 0002260 \r \r - - M o n i t o r e d y e 0002300 s P r o d \r \r M o n i t o r e d 0002320 y e s P r o d P r o c s : \t P U 0002340 B L I C M o n i t o r e d N o 0002360 d e P r o c s _ \r \t N E W [ M 0002400 o n i t o r e d N o d e P r o c 0002420 s B o d y _ [ M o n i t o r 0002440 e d y e s P r o d I s K e y w o 0002460 r d P r e s e n t ] ] ; \r \r B u 0002500 i l d M o n i t o r e d y e s P 0002520 r o d N o d e : \t P U B L I C 0002540 P R O C [ p o s i t i o n : I 0002560 N T , l e n g t h : I N T ] 0002600 \r \t R E T U R N S [ M o n i t o 0002620 r e d N o d e ] = \r \t \t B E G 0002640 I N \r \t \t R E T U R N [ N E W [ 0002660 M o n i t o r e d N o d e B o d 0002700 y _ [ p o s i t i o n , l e n 0002720 g t h , M o n i t o r e d y e 0002740 s P r o d P r o c s , N I L ] 0002760 ] ] ; \r \t \t E N D ; \r \r \r - - 0003000 M o n i t o r e d n o P r o d \r 0003020 \r M o n i t o r e d n o P r o d 0003040 P r o c s : \t P U B L I C M o 0003060 n i t o r e d N o d e P r o c s 0003100 _ \r \t N E W [ M o n i t o r e 0003120 d N o d e P r o c s B o d y _ 0003140 [ M o n i t o r e d n o P r o 0003160 d I s K e y w o r d P r e s e n 0003200 t ] ] ; \r \r B u i l d M o n i t 0003220 o r e d n o P r o d N o d e : \t 0003240 P U B L I C P R O C [ p o s i 0003260 t i o n : I N T , l e n g t 0003300 h : I N T ] \r \t R E T U R N S 0003320 [ M o n i t o r e d N o d e ] 0003340 = \r \t \t B E G I N \r \t \t R E T U 0003360 R N [ N E W [ M o n i t o r e d 0003400 N o d e B o d y _ [ p o s i t i 0003420 o n , l e n g t h , M o n i 0003440 t o r e d n o P r o d P r o c s 0003460 , N I L ] ] ] ; \r \t \t E N D ; 0003500 \r \r \r - - E l e m e n t L i s 0003520 t e m p t y P r o d \r \r E l e m 0003540 e n t L i s t e m p t y P r o d 0003560 P r o c s : \t P U B L I C E l 0003600 e m e n t L i s t N o d e P r o 0003620 c s _ \r \t N E W [ E l e m e n 0003640 t L i s t N o d e P r o c s B o 0003660 d y _ [ E l e m e n t L i s 0003700 t e m p t y P r o d M a k e E l 0003720 e m e n t L i s t , E l e m e 0003740 n t L i s t e m p t y P r o d A 0003760 d d S i z e D e p e n d e n c i 0004000 e s , E l e m e n t L i s t e 0004020 m p t y P r o d A d d F i r s t 0004040 D e p e n d e n c i e s , E l 0004060 e m e n t L i s t e m p t y P r 0004100 o d A d d L a s t D e p e n d e 0004120 n c i e s ] ] ; \r \r B u i l d E 0004140 l e m e n t L i s t e m p t y P 0004160 r o d N o d e : \t P U B L I C 0004200 P R O C [ p o s i t i o n : I 0004220 N T , l e n g t h : I N T ] 0004240 \r \t R E T U R N S [ E l e m e n 0004260 t L i s t N o d e ] = \r \t \t B 0004300 E G I N \r \t \t R E T U R N [ N E 0004320 W [ E l e m e n t L i s t N o d 0004340 e B o d y _ [ p o s i t i o n , 0004360 l e n g t h , E l e m e n t 0004400 L i s t e m p t y P r o d P r o 0004420 c s , N I L ] ] ] ; \r \t \t E N 0004440 D ; \r \r \r - - E l e m e n t L 0004460 i s t m o r e P r o d \r \r E l e 0004500 m e n t L i s t m o r e P r o d 0004520 P r o c s : \t P U B L I C E l 0004540 e m e n t L i s t N o d e P r o 0004560 c s _ \r \t N E W [ E l e m e n 0004600 t L i s t N o d e P r o c s B o 0004620 d y _ [ E l e m e n t L i s 0004640 t m o r e P r o d M a k e E l e 0004660 m e n t L i s t , E l e m e n 0004700 t L i s t m o r e P r o d A d d 0004720 S i z e D e p e n d e n c i e s 0004740 , E l e m e n t L i s t m o r 0004760 e P r o d A d d F i r s t D e p 0005000 e n d e n c i e s , E l e m e 0005020 n t L i s t m o r e P r o d A d 0005040 d L a s t D e p e n d e n c i e 0005060 s ] ] ; \r \r B u i l d E l e m e 0005100 n t L i s t m o r e P r o d N o 0005120 d e : \t P U B L I C P R O C [ 0005140 p o s i t i o n : I N T , l 0005160 e n g t h : I N T , E l e m 0005200 e n t L i s t : E l e m e n t 0005220 L i s t N o d e , E l e m e n 0005240 t : E l e m e n t N o d e ] \r 0005260 \t R E T U R N S [ E l e m e n t 0005300 L i s t N o d e ] = \r \t \t B E 0005320 G I N \r \t \t d a t a : \t E l e m 0005340 e n t L i s t m o r e P r o d D 0005360 a t a _ \r \t \t \t N E W [ E l e 0005400 m e n t L i s t m o r e P r o d 0005420 D a t a B o d y _ [ \r \t \t \t 0005440 E l e m e n t L i s t , E l e 0005460 m e n t ] ] ; \r \t \t R E T U R N 0005500 [ N E W [ E l e m e n t L i s t 0005520 N o d e B o d y _ [ p o s i t i 0005540 o n , l e n g t h , E l e m 0005560 e n t L i s t m o r e P r o d P 0005600 r o c s , d a t a ] ] ] ; \r \t 0005620 \t E N D ; \r \r \r - - E l e m e 0005640 n t i d P r o d \r \r E l e m e n 0005660 t i d P r o d P r o c s : \t P U 0005700 B L I C E l e m e n t N o d e 0005720 P r o c s _ \r \t N E W [ E l e 0005740 m e n t N o d e P r o c s B o d 0005760 y _ [ E l e m e n t i d P r 0006000 o d E l e m e n t I n f o , E 0006020 l e m e n t i d P r o d A d d S 0006040 i z e D e p e n d e n c i e s , 0006060 E l e m e n t i d P r o d A d 0006100 d F i r s t D e p e n d e n c i 0006120 e s , E l e m e n t i d P r o 0006140 d A d d L a s t D e p e n d e n 0006160 c i e s ] ] ; \r \r B u i l d E l 0006200 e m e n t i d P r o d N o d e : 0006220 \t P U B L I C P R O C [ p o s 0006240 i t i o n : I N T , l e n g 0006260 t h : I N T , I d : I d N 0006300 o d e ] \r \t R E T U R N S [ E l 0006320 e m e n t N o d e ] = \r \t \t B 0006340 E G I N \r \t \t d a t a : \t E l e 0006360 m e n t i d P r o d D a t a _ 0006400 \r \t \t \t N E W [ E l e m e n t i 0006420 d P r o d D a t a B o d y _ 0006440 [ \r \t \t \t I d ] ] ; \r \t \t R E T 0006460 U R N [ N E W [ E l e m e n t N 0006500 o d e B o d y _ [ p o s i t i o 0006520 n , l e n g t h , E l e m e 0006540 n t i d P r o d P r o c s , d 0006560 a t a ] ] ] ; \r \t \t E N D ; \r \r 0006600 \r - - E l e m e n t i d w i t 0006620 h r e p P r o d \r \r E l e m e n 0006640 t i d w i t h r e p P r o d P r 0006660 o c s : \t P U B L I C E l e m 0006700 e n t N o d e P r o c s _ \r \t 0006720 N E W [ E l e m e n t N o d e P 0006740 r o c s B o d y _ [ E l e m 0006760 e n t i d w i t h r e p P r o d 0007000 E l e m e n t I n f o , E l e 0007020 m e n t i d w i t h r e p P r o 0007040 d A d d S i z e D e p e n d e n 0007060 c i e s , E l e m e n t i d w 0007100 i t h r e p P r o d A d d F i r 0007120 s t D e p e n d e n c i e s , 0007140 E l e m e n t i d w i t h r e p 0007160 P r o d A d d L a s t D e p e n 0007200 d e n c i e s ] ] ; \r \r B u i l 0007220 d E l e m e n t i d w i t h r e 0007240 p P r o d N o d e : \t P U B L I 0007260 C P R O C [ p o s i t i o n : 0007300 I N T , l e n g t h : I N 0007320 T , I d : I d N o d e , E 0007340 x p : E x p N o d e ] \r \t R E 0007360 T U R N S [ E l e m e n t N o d 0007400 e ] = \r \t \t B E G I N \r \t \t d 0007420 a t a : \t E l e m e n t i d w i 0007440 t h r e p P r o d D a t a _ \r 0007460 \t \t \t N E W [ E l e m e n t i d 0007500 w i t h r e p P r o d D a t a B 0007520 o d y _ [ \r \t \t \t I d , E 0007540 x p ] ] ; \r \t \t R E T U R N [ N 0007560 E W [ E l e m e n t N o d e B o 0007600 d y _ [ p o s i t i o n , l e 0007620 n g t h , E l e m e n t i d w 0007640 i t h r e p P r o d P r o c s , 0007660 d a t a ] ] ] ; \r \t \t E N D ; 0007700 \r \r \r - - E l e m e n t a n o 0007720 n y m o u s r e p P r o d \r \r E 0007740 l e m e n t a n o n y m o u s r 0007760 e p P r o d P r o c s : \t P U B 0010000 L I C E l e m e n t N o d e P 0010020 r o c s _ \r \t N E W [ E l e m 0010040 e n t N o d e P r o c s B o d y 0010060 _ [ E l e m e n t a n o n y 0010100 m o u s r e p P r o d E l e m e 0010120 n t I n f o , E l e m e n t a 0010140 n o n y m o u s r e p P r o d A 0010160 d d S i z e D e p e n d e n c i 0010200 e s , E l e m e n t a n o n y 0010220 m o u s r e p P r o d A d d F i 0010240 r s t D e p e n d e n c i e s , 0010260 E l e m e n t a n o n y m o u 0010300 s r e p P r o d A d d L a s t D 0010320 e p e n d e n c i e s ] ] ; \r \r 0010340 B u i l d E l e m e n t a n o n 0010360 y m o u s r e p P r o d N o d e 0010400 : \t P U B L I C P R O C [ p o 0010420 s i t i o n : I N T , l e n 0010440 g t h : I N T , E x p : E 0010460 x p N o d e ] \r \t R E T U R N S 0010500 [ E l e m e n t N o d e ] = \r 0010520 \t \t B E G I N \r \t \t d a t a : \t 0010540 E l e m e n t a n o n y m o u s 0010560 r e p P r o d D a t a _ \r \t \t 0010600 \t N E W [ E l e m e n t a n o n 0010620 y m o u s r e p P r o d D a t a 0010640 B o d y _ [ \r \t \t \t E x p ] 0010660 ] ; \r \t \t R E T U R N [ N E W [ 0010700 E l e m e n t N o d e B o d y _ 0010720 [ p o s i t i o n , l e n g t 0010740 h , E l e m e n t a n o n y m 0010760 o u s r e p P r o d P r o c s , 0011000 d a t a ] ] ] ; \r \t \t E N D ; 0011020 \r \r \r - - R e c L i s t e m p 0011040 t y P r o d \r \r R e c L i s t e 0011060 m p t y P r o d P r o c s : \t P 0011100 U B L I C R e c L i s t N o d 0011120 e P r o c s _ \r \t N E W [ R e 0011140 c L i s t N o d e P r o c s B o 0011160 d y _ [ R e c L i s t e m p 0011200 t y P r o d M a k e F i e l d L 0011220 i s t , R e c L i s t e m p t 0011240 y P r o d A d d S i z e D e p e 0011260 n d e n c i e s ] ] ; \r \r B u i 0011300 l d R e c L i s t e m p t y P r 0011320 o d N o d e : \t P U B L I C P 0011340 R O C [ p o s i t i o n : I N 0011360 T , l e n g t h : I N T ] \r 0011400 \t R E T U R N S [ R e c L i s t 0011420 N o d e ] = \r \t \t B E G I N \r 0011440 \t \t R E T U R N [ N E W [ R e c 0011460 L i s t N o d e B o d y _ [ p o 0011500 s i t i o n , l e n g t h , 0011520 R e c L i s t e m p t y P r o d 0011540 P r o c s , N I L ] ] ] ; \r \t 0011560 \t E N D ; \r \r \r - - R e c L i 0011600 s t p a i r l i s t P r o d \r \r 0011620 R e c L i s t p a i r l i s t P 0011640 r o d P r o c s : \t P U B L I C 0011660 R e c L i s t N o d e P r o c 0011700 s _ \r \t N E W [ R e c L i s t 0011720 N o d e P r o c s B o d y _ 0011740 [ R e c L i s t p a i r l i s t 0011760 P r o d M a k e F i e l d L i s 0012000 t , R e c L i s t p a i r l i 0012020 s t P r o d A d d S i z e D e p 0012040 e n d e n c i e s ] ] ; \r \r B u 0012060 i l d R e c L i s t p a i r l i 0012100 s t P r o d N o d e : \t P U B L 0012120 I C P R O C [ p o s i t i o n 0012140 : I N T , l e n g t h : I 0012160 N T , P a i r L i s t : P a 0012200 i r L i s t N o d e ] \r \t R E T 0012220 U R N S [ R e c L i s t N o d e 0012240 ] = \r \t \t B E G I N \r \t \t d a 0012260 t a : \t R e c L i s t p a i r l 0012300 i s t P r o d D a t a _ \r \t \t 0012320 \t N E W [ R e c L i s t p a i r 0012340 l i s t P r o d D a t a B o d y 0012360 _ [ \r \t \t \t P a i r L i s t 0012400 ] ] ; \r \t \t R E T U R N [ N E W 0012420 [ R e c L i s t N o d e B o d y 0012440 _ [ p o s i t i o n , l e n g 0012460 t h , R e c L i s t p a i r l 0012500 i s t P r o d P r o c s , d a 0012520 t a ] ] ] ; \r \t \t E N D ; \r \r \r 0012540 - - R e c L i s t t y p e l i 0012560 s t P r o d \r \r R e c L i s t t 0012600 y p e l i s t P r o d P r o c s 0012620 : \t P U B L I C R e c L i s t 0012640 N o d e P r o c s _ \r \t N E W 0012660 [ R e c L i s t N o d e P r o c 0012700 s B o d y _ [ R e c L i s t 0012720 t y p e l i s t P r o d M a k e 0012740 F i e l d L i s t , R e c L i 0012760 s t t y p e l i s t P r o d A d 0013000 d S i z e D e p e n d e n c i e 0013020 s ] ] ; \r \r B u i l d R e c L i 0013040 s t t y p e l i s t P r o d N o 0013060 d e : \t P U B L I C P R O C [ 0013100 p o s i t i o n : I N T , l 0013120 e n g t h : I N T , T y p e 0013140 L i s t : T y p e L i s t N o 0013160 d e ] \r \t R E T U R N S [ R e c 0013200 L i s t N o d e ] = \r \t \t B E 0013220 G I N \r \t \t d a t a : \t R e c L 0013240 i s t t y p e l i s t P r o d D 0013260 a t a _ \r \t \t \t N E W [ R e c 0013300 L i s t t y p e l i s t P r o d 0013320 D a t a B o d y _ [ \r \t \t \t 0013340 T y p e L i s t ] ] ; \r \t \t R E 0013360 T U R N [ N E W [ R e c L i s t 0013400 N o d e B o d y _ [ p o s i t i 0013420 o n , l e n g t h , R e c L 0013440 i s t t y p e l i s t P r o d P 0013460 r o c s , d a t a ] ] ] ; \r \t 0013500 \t E N D ; \r \r \r - - P a i r L 0013520 i s t o n e P r o d \r \r P a i r 0013540 L i s t o n e P r o d P r o c s 0013560 : \t P U B L I C P a i r L i s 0013600 t N o d e P r o c s _ \r \t N E 0013620 W [ P a i r L i s t N o d e P r 0013640 o c s B o d y _ [ P a i r L 0013660 i s t o n e P r o d A d d P a i 0013700 r s T o F i e l d L i s t , P 0013720 a i r L i s t o n e P r o d A d 0013740 d S i z e D e p e n d e n c i e 0013760 s ] ] ; \r \r B u i l d P a i r L 0014000 i s t o n e P r o d N o d e : \t 0014020 P U B L I C P R O C [ p o s i 0014040 t i o n : I N T , l e n g t 0014060 h : I N T , P a i r I t e m 0014100 : P a i r I t e m N o d e ] \r 0014120 \t R E T U R N S [ P a i r L i s 0014140 t N o d e ] = \r \t \t B E G I N 0014160 \r \t \t d a t a : \t P a i r L i s 0014200 t o n e P r o d D a t a _ \r \t 0014220 \t \t N E W [ P a i r L i s t o n 0014240 e P r o d D a t a B o d y _ 0014260 [ \r \t \t \t P a i r I t e m ] ] ; 0014300 \r \t \t R E T U R N [ N E W [ P a 0014320 i r L i s t N o d e B o d y _ [ 0014340 p o s i t i o n , l e n g t h 0014360 , P a i r L i s t o n e P r o 0014400 d P r o c s , d a t a ] ] ] ; 0014420 \r \t \t E N D ; \r \r \r - - P a i 0014440 r L i s t m a n y P r o d \r \r P 0014460 a i r L i s t m a n y P r o d P 0014500 r o c s : \t P U B L I C P a i 0014520 r L i s t N o d e P r o c s _ 0014540 \r \t N E W [ P a i r L i s t N o 0014560 d e P r o c s B o d y _ [ P 0014600 a i r L i s t m a n y P r o d A 0014620 d d P a i r s T o F i e l d L i 0014640 s t , P a i r L i s t m a n y 0014660 P r o d A d d S i z e D e p e n 0014700 d e n c i e s ] ] ; \r \r B u i l 0014720 d P a i r L i s t m a n y P r o 0014740 d N o d e : \t P U B L I C P R 0014760 O C [ p o s i t i o n : I N T 0015000 , l e n g t h : I N T , P 0015020 a i r L i s t h e a d : P a i 0015040 r L i s t N o d e , P a i r L 0015060 i s t t a i l : P a i r L i s 0015100 t N o d e ] \r \t R E T U R N S [ 0015120 P a i r L i s t N o d e ] = \r 0015140 \t \t B E G I N \r \t \t d a t a : \t 0015160 P a i r L i s t m a n y P r o d 0015200 D a t a _ \r \t \t \t N E W [ P a 0015220 i r L i s t m a n y P r o d D a 0015240 t a B o d y _ [ \r \t \t \t P a 0015260 i r L i s t h e a d , P a i r 0015300 L i s t t a i l ] ] ; \r \t \t R E 0015320 T U R N [ N E W [ P a i r L i s 0015340 t N o d e B o d y _ [ p o s i t 0015360 i o n , l e n g t h , P a i 0015400 r L i s t m a n y P r o d P r o 0015420 c s , d a t a ] ] ] ; \r \t \t E 0015440 N D ; \r \r \r - - P a i r I t e 0015460 m P r o d \r \r P a i r I t e m P 0015500 r o d P r o c s : \t P U B L I C 0015520 P a i r I t e m N o d e P r o 0015540 c s _ \r \t N E W [ P a i r I t 0015560 e m N o d e P r o c s B o d y 0015600 _ [ P a i r I t e m P r o d A 0015620 d d P a i r s T o F i e l d L i 0015640 s t , P a i r I t e m P r o d 0015660 A d d S i z e D e p e n d e n c 0015700 i e s ] ] ; \r \r B u i l d P a i 0015720 r I t e m P r o d N o d e : \t P 0015740 U B L I C P R O C [ p o s i t 0015760 i o n : I N T , l e n g t h 0016000 : I N T , I d e n t L i s t 0016020 : I d e n t L i s t N o d e , 0016040 A c c e s s : A c c e s s N 0016060 o d e , T y p e E x p : T y 0016100 p e E x p N o d e , D e f a u 0016120 l t : D e f a u l t N o d e ] 0016140 \r \t R E T U R N S [ P a i r I t 0016160 e m N o d e ] = \r \t \t B E G I 0016200 N \r \t \t d a t a : \t P a i r I t 0016220 e m P r o d D a t a _ \r \t \t \t 0016240 N E W [ P a i r I t e m P r o d 0016260 D a t a B o d y _ [ \r \t \t \t 0016300 I d e n t L i s t , A c c e s 0016320 s , T y p e E x p , D e f a 0016340 u l t ] ] ; \r \t \t R E T U R N [ 0016360 N E W [ P a i r I t e m N o d e 0016400 B o d y _ [ p o s i t i o n , 0016420 l e n g t h , P a i r I t e m 0016440 P r o d P r o c s , d a t a ] 0016460 ] ] ; \r \t \t E N D ; \r \r \r - - 0016500 T y p e L i s t o n e P r o d \r 0016520 \r T y p e L i s t o n e P r o d 0016540 P r o c s : \t P U B L I C T y 0016560 p e L i s t N o d e P r o c s 0016600 _ \r \t N E W [ T y p e L i s t N 0016620 o d e P r o c s B o d y _ [ 0016640 T y p e L i s t o n e P r o d A 0016660 d d T o F i e l d L i s t , T 0016700 y p e L i s t o n e P r o d A d 0016720 d S i z e D e p e n d e n c i e 0016740 s ] ] ; \r \r B u i l d T y p e L 0016760 i s t o n e P r o d N o d e : \t 0017000 P U B L I C P R O C [ p o s i 0017020 t i o n : I N T , l e n g t 0017040 h : I N T , T y p e I t e m 0017060 : T y p e I t e m N o d e ] \r 0017100 \t R E T U R N S [ T y p e L i s 0017120 t N o d e ] = \r \t \t B E G I N 0017140 \r \t \t d a t a : \t T y p e L i s 0017160 t o n e P r o d D a t a _ \r \t 0017200 \t \t N E W [ T y p e L i s t o n 0017220 e P r o d D a t a B o d y _ 0017240 [ \r \t \t \t T y p e I t e m ] ] ; 0017260 \r \t \t R E T U R N [ N E W [ T y 0017300 p e L i s t N o d e B o d y _ [ 0017320 p o s i t i o n , l e n g t h 0017340 , T y p e L i s t o n e P r o 0017360 d P r o c s , d a t a ] ] ] ; 0017400 \r \t \t E N D ; \r \r \r - - T y p 0017420 e L i s t m a n y P r o d \r \r T 0017440 y p e L i s t m a n y P r o d P 0017460 r o c s : \t P U B L I C T y p 0017500 e L i s t N o d e P r o c s _ 0017520 \r \t N E W [ T y p e L i s t N o 0017540 d e P r o c s B o d y _ [ T 0017560 y p e L i s t m a n y P r o d A 0017600 d d T o F i e l d L i s t , T 0017620 y p e L i s t m a n y P r o d A 0017640 d d S i z e D e p e n d e n c i 0017660 e s ] ] ; \r \r B u i l d T y p e 0017700 L i s t m a n y P r o d N o d e 0017720 : \t P U B L I C P R O C [ p o 0017740 s i t i o n : I N T , l e n 0017760 g t h : I N T , T y p e L i 0020000 s t h e a d : T y p e L i s t 0020020 N o d e , T y p e L i s t t a 0020040 i l : T y p e L i s t N o d e 0020060 ] \r \t R E T U R N S [ T y p e L 0020100 i s t N o d e ] = \r \t \t B E G 0020120 I N \r \t \t d a t a : \t T y p e L 0020140 i s t m a n y P r o d D a t a 0020160 _ \r \t \t \t N E W [ T y p e L i s 0020200 t m a n y P r o d D a t a B o d 0020220 y _ [ \r \t \t \t T y p e L i s 0020240 t h e a d , T y p e L i s t t 0020260 a i l ] ] ; \r \t \t R E T U R N [ 0020300 N E W [ T y p e L i s t N o d e 0020320 B o d y _ [ p o s i t i o n , 0020340 l e n g t h , T y p e L i s t 0020360 m a n y P r o d P r o c s , d 0020400 a t a ] ] ] ; \r \t \t E N D ; \r \r 0020420 \r - - T y p e I t e m P r o d 0020440 \r \r T y p e I t e m P r o d P r 0020460 o c s : \t P U B L I C T y p e 0020500 I t e m N o d e P r o c s _ \r 0020520 \t N E W [ T y p e I t e m N o d 0020540 e P r o c s B o d y _ [ T y 0020560 p e I t e m P r o d A d d T o F 0020600 i e l d L i s t , T y p e I t 0020620 e m P r o d A d d S i z e D e p 0020640 e n d e n c i e s ] ] ; \r \r B u 0020660 i l d T y p e I t e m P r o d N 0020700 o d e : \t P U B L I C P R O C 0020720 [ p o s i t i o n : I N T , 0020740 l e n g t h : I N T , T y p 0020760 e E x p : T y p e E x p N o d 0021000 e , D e f a u l t : D e f a 0021020 u l t N o d e ] \r \t R E T U R N 0021040 S [ T y p e I t e m N o d e ] 0021060 = \r \t \t B E G I N \r \t \t d a t a 0021100 : \t T y p e I t e m P r o d D a 0021120 t a _ \r \t \t \t N E W [ T y p e 0021140 I t e m P r o d D a t a B o d y 0021160 _ [ \r \t \t \t T y p e E x p , 0021200 D e f a u l t ] ] ; \r \t \t R E 0021220 T U R N [ N E W [ T y p e I t e 0021240 m N o d e B o d y _ [ p o s i t 0021260 i o n , l e n g t h , T y p 0021300 e I t e m P r o d P r o c s , 0021320 d a t a ] ] ] ; \r \t \t E N D ; \r 0021340 \r E N D . . \r 0021347