$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronAG8Impl.Mesa!33 0000000 - - S a f f r o n A G 8 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 2 : 4 6 : 0 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 8 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 8 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 8 D e f E X P O R T S 0000520 S a f f r o n A G 8 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 8 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 I d L i s t o n e P r o d \r \r I 0000660 d L i s t o n e P r o d P r o c 0000700 s : \t P U B L I C I d L i s t 0000720 N o d e P r o c s _ \r \t N E W 0000740 [ I d L i s t N o d e P r o c s 0000760 B o d y _ [ I d L i s t o n 0001000 e P r o d A d d N a m e s T o U 0001020 n i o n L i s t , I d L i s t 0001040 o n e P r o d A d d V a r i a n 0001060 t N a m e s T o E n u m T y p e 0001100 T G N , I d L i s t o n e P r 0001120 o d A d d I d s T o R e s t r i 0001140 c t i o n L i s t ] ] ; \r \r B u 0001160 i l d I d L i s t o n e P r o d 0001200 N o d e : \t P U B L I C P R O 0001220 C [ p o s i t i o n : I N T , 0001240 l e n g t h : I N T , I d 0001260 : I d N o d e ] \r \t R E T U R 0001300 N S [ I d L i s t N o d e ] = 0001320 \r \t \t B E G I N \r \t \t d a t a : 0001340 \t I d L i s t o n e P r o d D a 0001360 t a _ \r \t \t \t N E W [ I d L i 0001400 s t o n e P r o d D a t a B o d 0001420 y _ [ \r \t \t \t I d ] ] ; \r \t 0001440 \t R E T U R N [ N E W [ I d L i 0001460 s t N o d e B o d y _ [ p o s i 0001500 t i o n , l e n g t h , I d 0001520 L i s t o n e P r o d P r o c s 0001540 , d a t a ] ] ] ; \r \t \t E N D 0001560 ; \r \r \r - - I d L i s t m o r 0001600 e P r o d \r \r I d L i s t m o r 0001620 e P r o d P r o c s : \t P U B L 0001640 I C I d L i s t N o d e P r o 0001660 c s _ \r \t N E W [ I d L i s t 0001700 N o d e P r o c s B o d y _ 0001720 [ I d L i s t m o r e P r o d A 0001740 d d N a m e s T o U n i o n L i 0001760 s t , I d L i s t m o r e P r 0002000 o d A d d V a r i a n t N a m e 0002020 s T o E n u m T y p e T G N , 0002040 I d L i s t m o r e P r o d A d 0002060 d I d s T o R e s t r i c t i o 0002100 n L i s t ] ] ; \r \r B u i l d I 0002120 d L i s t m o r e P r o d N o d 0002140 e : \t P U B L I C P R O C [ p 0002160 o s i t i o n : I N T , l e 0002200 n g t h : I N T , I d : I 0002220 d N o d e , I d L i s t : I 0002240 d L i s t N o d e ] \r \t R E T U 0002260 R N S [ I d L i s t N o d e ] 0002300 = \r \t \t B E G I N \r \t \t d a t a 0002320 : \t I d L i s t m o r e P r o d 0002340 D a t a _ \r \t \t \t N E W [ I d 0002360 L i s t m o r e P r o d D a t a 0002400 B o d y _ [ \r \t \t \t I d , 0002420 I d L i s t ] ] ; \r \t \t R E T U 0002440 R N [ N E W [ I d L i s t N o d 0002460 e B o d y _ [ p o s i t i o n , 0002500 l e n g t h , I d L i s t m 0002520 o r e P r o d P r o c s , d a 0002540 t a ] ] ] ; \r \t \t E N D ; \r \r \r 0002560 - - O r d e r e d y e s P r o 0002600 d \r \r O r d e r e d y e s P r o 0002620 d P r o c s : \t P U B L I C O 0002640 r d e r e d N o d e P r o c s 0002660 _ \r \t N E W [ O r d e r e d N o 0002700 d e P r o c s B o d y _ [ O 0002720 r d e r e d y e s P r o d I s K 0002740 e y w o r d P r e s e n t ] ] ; 0002760 \r \r B u i l d O r d e r e d y e 0003000 s P r o d N o d e : \t P U B L I 0003020 C P R O C [ p o s i t i o n : 0003040 I N T , l e n g t h : I N 0003060 T ] \r \t R E T U R N S [ O r d e 0003100 r e d N o d e ] = \r \t \t B E G 0003120 I N \r \t \t R E T U R N [ N E W [ 0003140 O r d e r e d N o d e B o d y _ 0003160 [ p o s i t i o n , l e n g t 0003200 h , O r d e r e d y e s P r o 0003220 d P r o c s , N I L ] ] ] ; \r 0003240 \t \t E N D ; \r \r \r - - O r d e 0003260 r e d n o P r o d \r \r O r d e r 0003300 e d n o P r o d P r o c s : \t P 0003320 U B L I C O r d e r e d N o d 0003340 e P r o c s _ \r \t N E W [ O r 0003360 d e r e d N o d e P r o c s B o 0003400 d y _ [ O r d e r e d n o P 0003420 r o d I s K e y w o r d P r e s 0003440 e n t ] ] ; \r \r B u i l d O r d 0003460 e r e d n o P r o d N o d e : \t 0003500 P U B L I C P R O C [ p o s i 0003520 t i o n : I N T , l e n g t 0003540 h : I N T ] \r \t R E T U R N S 0003560 [ O r d e r e d N o d e ] = \r 0003600 \t \t B E G I N \r \t \t R E T U R N 0003620 [ N E W [ O r d e r e d N o d e 0003640 B o d y _ [ p o s i t i o n , 0003660 l e n g t h , O r d e r e d n 0003700 o P r o d P r o c s , N I L ] 0003720 ] ] ; \r \t \t E N D ; \r \r \r - - 0003740 B a s e y e s P r o d \r \r B a s 0003760 e y e s P r o d P r o c s : \t P 0004000 U B L I C B a s e N o d e P r 0004020 o c s _ \r \t N E W [ B a s e N 0004040 o d e P r o c s B o d y _ [ 0004060 B a s e y e s P r o d I s K e y 0004100 w o r d P r e s e n t ] ] ; \r \r 0004120 B u i l d B a s e y e s P r o d 0004140 N o d e : \t P U B L I C P R O 0004160 C [ p o s i t i o n : I N T , 0004200 l e n g t h : I N T ] \r \t R 0004220 E T U R N S [ B a s e N o d e ] 0004240 = \r \t \t B E G I N \r \t \t R E T 0004260 U R N [ N E W [ B a s e N o d e 0004300 B o d y _ [ p o s i t i o n , 0004320 l e n g t h , B a s e y e s P 0004340 r o d P r o c s , N I L ] ] ] 0004360 ; \r \t \t E N D ; \r \r \r - - B a 0004400 s e n o P r o d \r \r B a s e n o 0004420 P r o d P r o c s : \t P U B L I 0004440 C B a s e N o d e P r o c s 0004460 _ \r \t N E W [ B a s e N o d e P 0004500 r o c s B o d y _ [ B a s e 0004520 n o P r o d I s K e y w o r d P 0004540 r e s e n t ] ] ; \r \r B u i l d 0004560 B a s e n o P r o d N o d e : \t 0004600 P U B L I C P R O C [ p o s i 0004620 t i o n : I N T , l e n g t 0004640 h : I N T ] \r \t R E T U R N S 0004660 [ B a s e N o d e ] = \r \t \t B 0004700 E G I N \r \t \t R E T U R N [ N E 0004720 W [ B a s e N o d e B o d y _ [ 0004740 p o s i t i o n , l e n g t h 0004760 , B a s e n o P r o d P r o c 0005000 s , N I L ] ] ] ; \r \t \t E N D 0005020 ; \r \r \r - - P o i n t e r T y 0005040 p e u n s p e c i f i e d P r o 0005060 d \r \r P o i n t e r T y p e u n 0005100 s p e c i f i e d P r o d P r o 0005120 c s : \t P U B L I C P o i n t 0005140 e r T y p e N o d e P r o c s 0005160 _ \r \t N E W [ P o i n t e r T y 0005200 p e N o d e P r o c s B o d y 0005220 _ [ P o i n t e r T y p e u n 0005240 s p e c i f i e d P r o d G e t 0005260 P o i n t e r T y p e I n f o ] 0005300 ] ; \r \r B u i l d P o i n t e r 0005320 T y p e u n s p e c i f i e d P 0005340 r o d N o d e : \t P U B L I C 0005360 P R O C [ p o s i t i o n : I 0005400 N T , l e n g t h : I N T , 0005420 O p t I n t e r v a l : O p 0005440 t I n t e r v a l N o d e ] \r \t 0005460 R E T U R N S [ P o i n t e r T 0005500 y p e N o d e ] = \r \t \t B E G 0005520 I N \r \t \t d a t a : \t P o i n t 0005540 e r T y p e u n s p e c i f i e 0005560 d P r o d D a t a _ \r \t \t \t N 0005600 E W [ P o i n t e r T y p e u n 0005620 s p e c i f i e d P r o d D a t 0005640 a B o d y _ [ \r \t \t \t O p t 0005660 I n t e r v a l ] ] ; \r \t \t R E 0005700 T U R N [ N E W [ P o i n t e r 0005720 T y p e N o d e B o d y _ [ p o 0005740 s i t i o n , l e n g t h , 0005760 P o i n t e r T y p e u n s p e 0006000 c i f i e d P r o d P r o c s , 0006020 d a t a ] ] ] ; \r \t \t E N D ; 0006040 \r \r \r - - P o i n t e r T y p 0006060 e s p e c i f i e d P r o d \r \r 0006100 P o i n t e r T y p e s p e c i 0006120 f i e d P r o d P r o c s : \t P 0006140 U B L I C P o i n t e r T y p 0006160 e N o d e P r o c s _ \r \t N E 0006200 W [ P o i n t e r T y p e N o d 0006220 e P r o c s B o d y _ [ P o 0006240 i n t e r T y p e s p e c i f i 0006260 e d P r o d G e t P o i n t e r 0006300 T y p e I n f o ] ] ; \r \r B u i 0006320 l d P o i n t e r T y p e s p e 0006340 c i f i e d P r o d N o d e : \t 0006360 P U B L I C P R O C [ p o s i 0006400 t i o n : I N T , l e n g t 0006420 h : I N T , O p t I n t e r 0006440 v a l : O p t I n t e r v a l 0006460 N o d e , R e a d O n l y : 0006500 R e a d O n l y N o d e , T y 0006520 p e E x p : T y p e E x p N o 0006540 d e ] \r \t R E T U R N S [ P o i 0006560 n t e r T y p e N o d e ] = \r 0006600 \t \t B E G I N \r \t \t d a t a : \t 0006620 P o i n t e r T y p e s p e c i 0006640 f i e d P r o d D a t a _ \r \t 0006660 \t \t N E W [ P o i n t e r T y p 0006700 e s p e c i f i e d P r o d D a 0006720 t a B o d y _ [ \r \t \t \t O p 0006740 t I n t e r v a l , R e a d O 0006760 n l y , T y p e E x p ] ] ; \r 0007000 \t \t R E T U R N [ N E W [ P o i 0007020 n t e r T y p e N o d e B o d y 0007040 _ [ p o s i t i o n , l e n g 0007060 t h , P o i n t e r T y p e s 0007100 p e c i f i e d P r o d P r o c 0007120 s , d a t a ] ] ] ; \r \t \t E N 0007140 D ; \r \r \r - - O p t I n t e r 0007160 v a l a b s e n t P r o d \r \r O 0007200 p t I n t e r v a l a b s e n t 0007220 P r o d P r o c s : \t P U B L I 0007240 C O p t I n t e r v a l N o d 0007260 e P r o c s _ \r \t N E W [ O p 0007300 t I n t e r v a l N o d e P r o 0007320 c s B o d y _ [ O p t I n t 0007340 e r v a l a b s e n t P r o d G 0007360 e t B o u n d s V a l ] ] ; \r \r 0007400 B u i l d O p t I n t e r v a l 0007420 a b s e n t P r o d N o d e : \t 0007440 P U B L I C P R O C [ p o s i 0007460 t i o n : I N T , l e n g t 0007500 h : I N T ] \r \t R E T U R N S 0007520 [ O p t I n t e r v a l N o d e 0007540 ] = \r \t \t B E G I N \r \t \t R E 0007560 T U R N [ N E W [ O p t I n t e 0007600 r v a l N o d e B o d y _ [ p o 0007620 s i t i o n , l e n g t h , 0007640 O p t I n t e r v a l a b s e n 0007660 t P r o d P r o c s , N I L ] 0007700 ] ] ; \r \t \t E N D ; \r \r \r - - 0007720 O p t I n t e r v a l p r e s e 0007740 n t P r o d \r \r O p t I n t e r 0007760 v a l p r e s e n t P r o d P r 0010000 o c s : \t P U B L I C O p t I 0010020 n t e r v a l N o d e P r o c s 0010040 _ \r \t N E W [ O p t I n t e r 0010060 v a l N o d e P r o c s B o d y 0010100 _ [ O p t I n t e r v a l p 0010120 r e s e n t P r o d G e t B o u 0010140 n d s V a l ] ] ; \r \r B u i l d 0010160 O p t I n t e r v a l p r e s e 0010200 n t P r o d N o d e : \t P U B L 0010220 I C P R O C [ p o s i t i o n 0010240 : I N T , l e n g t h : I 0010260 N T , I n t e r v a l : I n 0010300 t e r v a l N o d e ] \r \t R E T 0010320 U R N S [ O p t I n t e r v a l 0010340 N o d e ] = \r \t \t B E G I N \r 0010360 \t \t d a t a : \t O p t I n t e r 0010400 v a l p r e s e n t P r o d D a 0010420 t a _ \r \t \t \t N E W [ O p t I 0010440 n t e r v a l p r e s e n t P r 0010460 o d D a t a B o d y _ [ \r \t 0010500 \t \t I n t e r v a l ] ] ; \r \t \t 0010520 R E T U R N [ N E W [ O p t I n 0010540 t e r v a l N o d e B o d y _ [ 0010560 p o s i t i o n , l e n g t h 0010600 , O p t I n t e r v a l p r e 0010620 s e n t P r o d P r o c s , d 0010640 a t a ] ] ] ; \r \t \t E N D ; \r \r 0010660 \r - - R e a d O n l y y e s P 0010700 r o d \r \r R e a d O n l y y e s 0010720 P r o d P r o c s : \t P U B L I 0010740 C R e a d O n l y N o d e P r 0010760 o c s _ \r \t N E W [ R e a d O 0011000 n l y N o d e P r o c s B o d y 0011020 _ [ R e a d O n l y y e s P 0011040 r o d I s K e y w o r d P r e s 0011060 e n t ] ] ; \r \r B u i l d R e a 0011100 d O n l y y e s P r o d N o d e 0011120 : \t P U B L I C P R O C [ p o 0011140 s i t i o n : I N T , l e n 0011160 g t h : I N T ] \r \t R E T U R 0011200 N S [ R e a d O n l y N o d e ] 0011220 = \r \t \t B E G I N \r \t \t R E T 0011240 U R N [ N E W [ R e a d O n l y 0011260 N o d e B o d y _ [ p o s i t i 0011300 o n , l e n g t h , R e a d 0011320 O n l y y e s P r o d P r o c s 0011340 , N I L ] ] ] ; \r \t \t E N D ; 0011360 \r \r \r - - R e a d O n l y n o 0011400 P r o d \r \r R e a d O n l y n o 0011420 P r o d P r o c s : \t P U B L I 0011440 C R e a d O n l y N o d e P r 0011460 o c s _ \r \t N E W [ R e a d O 0011500 n l y N o d e P r o c s B o d y 0011520 _ [ R e a d O n l y n o P r 0011540 o d I s K e y w o r d P r e s e 0011560 n t ] ] ; \r \r B u i l d R e a d 0011600 O n l y n o P r o d N o d e : \t 0011620 P U B L I C P R O C [ p o s i 0011640 t i o n : I N T , l e n g t 0011660 h : I N T ] \r \t R E T U R N S 0011700 [ R e a d O n l y N o d e ] = 0011720 \r \t \t B E G I N \r \t \t R E T U R 0011740 N [ N E W [ R e a d O n l y N o 0011760 d e B o d y _ [ p o s i t i o n 0012000 , l e n g t h , R e a d O n 0012020 l y n o P r o d P r o c s , N 0012040 I L ] ] ] ; \r \t \t E N D ; \r \r \r 0012060 - - S a f e e m p t y P r o d 0012100 \r \r S a f e e m p t y P r o d P 0012120 r o c s : \t P U B L I C S a f 0012140 e N o d e P r o c s _ \r \t N E 0012160 W [ S a f e N o d e P r o c s B 0012200 o d y _ [ S a f e e m p t y 0012220 P r o d I s K e y w o r d P r e 0012240 s e n t ] ] ; \r \r B u i l d S a 0012260 f e e m p t y P r o d N o d e : 0012300 \t P U B L I C P R O C [ p o s 0012320 i t i o n : I N T , l e n g 0012340 t h : I N T ] \r \t R E T U R N 0012360 S [ S a f e N o d e ] = \r \t \t 0012400 B E G I N \r \t \t R E T U R N [ N 0012420 E W [ S a f e N o d e B o d y _ 0012440 [ p o s i t i o n , l e n g t 0012460 h , S a f e e m p t y P r o d 0012500 P r o c s , N I L ] ] ] ; \r \t 0012520 \t E N D ; \r \r \r - - S a f e y 0012540 e s P r o d \r \r S a f e y e s P 0012560 r o d P r o c s : \t P U B L I C 0012600 S a f e N o d e P r o c s _ 0012620 \r \t N E W [ S a f e N o d e P r 0012640 o c s B o d y _ [ S a f e y 0012660 e s P r o d I s K e y w o r d P 0012700 r e s e n t ] ] ; \r \r B u i l d 0012720 S a f e y e s P r o d N o d e : 0012740 \t P U B L I C P R O C [ p o s 0012760 i t i o n : I N T , l e n g 0013000 t h : I N T ] \r \t R E T U R N 0013020 S [ S a f e N o d e ] = \r \t \t 0013040 B E G I N \r \t \t R E T U R N [ N 0013060 E W [ S a f e N o d e B o d y _ 0013100 [ p o s i t i o n , l e n g t 0013120 h , S a f e y e s P r o d P r 0013140 o c s , N I L ] ] ] ; \r \t \t E 0013160 N D ; \r \r \r - - S a f e n o P 0013200 r o d \r \r S a f e n o P r o d P 0013220 r o c s : \t P U B L I C S a f 0013240 e N o d e P r o c s _ \r \t N E 0013260 W [ S a f e N o d e P r o c s B 0013300 o d y _ [ S a f e n o P r o 0013320 d I s K e y w o r d P r e s e n 0013340 t ] ] ; \r \r B u i l d S a f e n 0013360 o P r o d N o d e : \t P U B L I 0013400 C P R O C [ p o s i t i o n : 0013420 I N T , l e n g t h : I N 0013440 T ] \r \t R E T U R N S [ S a f e 0013460 N o d e ] = \r \t \t B E G I N \r 0013500 \t \t R E T U R N [ N E W [ S a f 0013520 e N o d e B o d y _ [ p o s i t 0013540 i o n , l e n g t h , S a f 0013560 e n o P r o d P r o c s , N I 0013600 L ] ] ] ; \r \t \t E N D ; \r \r \r - 0013620 - T r a n s f e r M o d e p r 0013640 o c P r o d \r \r T r a n s f e r 0013660 M o d e p r o c P r o d P r o c 0013700 s : \t P U B L I C T r a n s f 0013720 e r M o d e N o d e P r o c s 0013740 _ \r \t N E W [ T r a n s f e r M 0013760 o d e N o d e P r o c s B o d y 0014000 _ [ T r a n s f e r M o d e 0014020 p r o c P r o d M a k e T r a n 0014040 s f e r M o d e ] ] ; \r \r B u i 0014060 l d T r a n s f e r M o d e p r 0014100 o c P r o d N o d e : \t P U B L 0014120 I C P R O C [ p o s i t i o n 0014140 : I N T , l e n g t h : I 0014160 N T ] \r \t R E T U R N S [ T r a 0014200 n s f e r M o d e N o d e ] = 0014220 \r \t \t B E G I N \r \t \t R E T U R 0014240 N [ N E W [ T r a n s f e r M o 0014260 d e N o d e B o d y _ [ p o s i 0014300 t i o n , l e n g t h , T r 0014320 a n s f e r M o d e p r o c P r 0014340 o d P r o c s , N I L ] ] ] ; 0014360 \r \t \t E N D ; \r \r \r - - T r a 0014400 n s f e r M o d e p o r t P r o 0014420 d \r \r T r a n s f e r M o d e p 0014440 o r t P r o d P r o c s : \t P U 0014460 B L I C T r a n s f e r M o d 0014500 e N o d e P r o c s _ \r \t N E 0014520 W [ T r a n s f e r M o d e N o 0014540 d e P r o c s B o d y _ [ T 0014560 r a n s f e r M o d e p o r t P 0014600 r o d M a k e T r a n s f e r M 0014620 o d e ] ] ; \r \r B u i l d T r a 0014640 n s f e r M o d e p o r t P r o 0014660 d N o d e : \t P U B L I C P R 0014700 O C [ p o s i t i o n : I N T 0014720 , l e n g t h : I N T ] \r \t 0014740 R E T U R N S [ T r a n s f e r 0014760 M o d e N o d e ] = \r \t \t B E 0015000 G I N \r \t \t R E T U R N [ N E W 0015020 [ T r a n s f e r M o d e N o d 0015040 e B o d y _ [ p o s i t i o n , 0015060 l e n g t h , T r a n s f e 0015100 r M o d e p o r t P r o d P r o 0015120 c s , N I L ] ] ] ; \r \t \t E N 0015140 D ; \r \r \r - - T r a n s f e r 0015160 M o d e s i g n a l P r o d \r \r 0015200 T r a n s f e r M o d e s i g n 0015220 a l P r o d P r o c s : \t P U B 0015240 L I C T r a n s f e r M o d e 0015260 N o d e P r o c s _ \r \t N E W 0015300 [ T r a n s f e r M o d e N o d 0015320 e P r o c s B o d y _ [ T r 0015340 a n s f e r M o d e s i g n a l 0015360 P r o d M a k e T r a n s f e r 0015400 M o d e ] ] ; \r \r B u i l d T r 0015420 a n s f e r M o d e s i g n a l 0015440 P r o d N o d e : \t P U B L I C 0015460 P R O C [ p o s i t i o n : 0015500 I N T , l e n g t h : I N T 0015520 ] \r \t R E T U R N S [ T r a n s 0015540 f e r M o d e N o d e ] = \r \t 0015560 \t B E G I N \r \t \t R E T U R N [ 0015600 N E W [ T r a n s f e r M o d e 0015620 N o d e B o d y _ [ p o s i t i 0015640 o n , l e n g t h , T r a n 0015660 s f e r M o d e s i g n a l P r 0015700 o d P r o c s , N I L ] ] ] ; 0015720 \r \t \t E N D ; \r \r \r - - T r a 0015740 n s f e r M o d e e r r o r P r 0015760 o d \r \r T r a n s f e r M o d e 0016000 e r r o r P r o d P r o c s : \t 0016020 P U B L I C T r a n s f e r M 0016040 o d e N o d e P r o c s _ \r \t 0016060 N E W [ T r a n s f e r M o d e 0016100 N o d e P r o c s B o d y _ 0016120 [ T r a n s f e r M o d e e r r 0016140 o r P r o d M a k e T r a n s f 0016160 e r M o d e ] ] ; \r \r B u i l d 0016200 T r a n s f e r M o d e e r r o 0016220 r P r o d N o d e : \t P U B L I 0016240 C P R O C [ p o s i t i o n : 0016260 I N T , l e n g t h : I N 0016300 T ] \r \t R E T U R N S [ T r a n 0016320 s f e r M o d e N o d e ] = \r 0016340 \t \t B E G I N \r \t \t R E T U R N 0016360 [ N E W [ T r a n s f e r M o d 0016400 e N o d e B o d y _ [ p o s i t 0016420 i o n , l e n g t h , T r a 0016440 n s f e r M o d e e r r o r P r 0016460 o d P r o c s , N I L ] ] ] ; 0016500 \r \t \t E N D ; \r \r \r - - T r a 0016520 n s f e r M o d e p r o c e s s 0016540 P r o d \r \r T r a n s f e r M o 0016560 d e p r o c e s s P r o d P r o 0016600 c s : \t P U B L I C T r a n s 0016620 f e r M o d e N o d e P r o c s 0016640 _ \r \t N E W [ T r a n s f e r 0016660 M o d e N o d e P r o c s B o d 0016700 y _ [ T r a n s f e r M o d 0016720 e p r o c e s s P r o d M a k e 0016740 T r a n s f e r M o d e ] ] ; \r 0016760 \r B u i l d T r a n s f e r M o 0017000 d e p r o c e s s P r o d N o d 0017020 e : \t P U B L I C P R O C [ p 0017040 o s i t i o n : I N T , l e 0017060 n g t h : I N T ] \r \t R E T U 0017100 R N S [ T r a n s f e r M o d e 0017120 N o d e ] = \r \t \t B E G I N \r 0017140 \t \t R E T U R N [ N E W [ T r a 0017160 n s f e r M o d e N o d e B o d 0017200 y _ [ p o s i t i o n , l e n 0017220 g t h , T r a n s f e r M o d 0017240 e p r o c e s s P r o d P r o c 0017260 s , N I L ] ] ] ; \r \t \t E N D 0017300 ; \r \r \r - - T r a n s f e r M 0017320 o d e p r o g r a m P r o d \r \r 0017340 T r a n s f e r M o d e p r o g 0017360 r a m P r o d P r o c s : \t P U 0017400 B L I C T r a n s f e r M o d 0017420 e N o d e P r o c s _ \r \t N E 0017440 W [ T r a n s f e r M o d e N o 0017460 d e P r o c s B o d y _ [ T 0017500 r a n s f e r M o d e p r o g r 0017520 a m P r o d M a k e T r a n s f 0017540 e r M o d e ] ] ; \r \r B u i l d 0017560 T r a n s f e r M o d e p r o g 0017600 r a m P r o d N o d e : \t P U B 0017620 L I C P R O C [ p o s i t i o 0017640 n : I N T , l e n g t h : 0017660 I N T ] \r \t R E T U R N S [ T r 0017700 a n s f e r M o d e N o d e ] 0017720 = \r \t \t B E G I N \r \t \t R E T U 0017740 R N [ N E W [ T r a n s f e r M 0017760 o d e N o d e B o d y _ [ p o s 0020000 i t i o n , l e n g t h , T 0020020 r a n s f e r M o d e p r o g r 0020040 a m P r o d P r o c s , N I L 0020060 ] ] ] ; \r \t \t E N D ; \r \r \r - - 0020100 A r g u m e n t s P r o d \r \r 0020120 A r g u m e n t s P r o d P r o 0020140 c s : \t P U B L I C A r g u m 0020160 e n t s N o d e P r o c s _ \r 0020200 \t N E W [ A r g u m e n t s N o 0020220 d e P r o c s B o d y _ [ A 0020240 r g u m e n t s P r o d M a k e 0020260 A r g u m e n t L i s t s ] ] ; 0020300 \r \r B u i l d A r g u m e n t s 0020320 P r o d N o d e : \t P U B L I C 0020340 P R O C [ p o s i t i o n : 0020360 I N T , l e n g t h : I N T 0020400 , P a r a m e t e r L i s t i 0020420 n p u t : P a r a m e t e r L 0020440 i s t N o d e , P a r a m e t 0020460 e r L i s t o u t p u t : P a 0020500 r a m e t e r L i s t N o d e ] 0020520 \r \t R E T U R N S [ A r g u m e 0020540 n t s N o d e ] = \r \t \t B E G 0020560 I N \r \t \t d a t a : \t A r g u m 0020600 e n t s P r o d D a t a _ \r \t 0020620 \t \t N E W [ A r g u m e n t s P 0020640 r o d D a t a B o d y _ [ \r 0020660 \t \t \t P a r a m e t e r L i s t 0020700 i n p u t , P a r a m e t e r 0020720 L i s t o u t p u t ] ] ; \r \t \t 0020740 R E T U R N [ N E W [ A r g u m 0020760 e n t s N o d e B o d y _ [ p o 0021000 s i t i o n , l e n g t h , 0021020 A r g u m e n t s P r o d P r o 0021040 c s , d a t a ] ] ] ; \r \t \t E 0021060 N D ; \r \r \r - - P a r a m e t 0021100 e r L i s t e m p t y P r o d \r 0021120 \r P a r a m e t e r L i s t e m 0021140 p t y P r o d P r o c s : \t P U 0021160 B L I C P a r a m e t e r L i 0021200 s t N o d e P r o c s _ \r \t N 0021220 E W [ P a r a m e t e r L i s t 0021240 N o d e P r o c s B o d y _ 0021260 [ P a r a m e t e r L i s t e m 0021300 p t y P r o d M a k e F i e l d 0021320 L i s t ] ] ; \r \r B u i l d P a 0021340 r a m e t e r L i s t e m p t y 0021360 P r o d N o d e : \t P U B L I C 0021400 P R O C [ p o s i t i o n : 0021420 I N T , l e n g t h : I N T 0021440 ] \r \t R E T U R N S [ P a r a m 0021460 e t e r L i s t N o d e ] = \r 0021500 \t \t B E G I N \r \t \t R E T U R N 0021520 [ N E W [ P a r a m e t e r L i 0021540 s t N o d e B o d y _ [ p o s i 0021560 t i o n , l e n g t h , P a 0021600 r a m e t e r L i s t e m p t y 0021620 P r o d P r o c s , N I L ] ] 0021640 ] ; \r \t \t E N D ; \r \r \r - - P 0021660 a r a m e t e r L i s t a n y P 0021700 r o d \r \r P a r a m e t e r L i 0021720 s t a n y P r o d P r o c s : \t 0021740 P U B L I C P a r a m e t e r 0021760 L i s t N o d e P r o c s _ \r 0022000 \t N E W [ P a r a m e t e r L i 0022020 s t N o d e P r o c s B o d y 0022040 _ [ P a r a m e t e r L i s t 0022060 a n y P r o d M a k e F i e l d 0022100 L i s t ] ] ; \r \r B u i l d P a 0022120 r a m e t e r L i s t a n y P r 0022140 o d N o d e : \t P U B L I C P 0022160 R O C [ p o s i t i o n : I N 0022200 T , l e n g t h : I N T ] \r 0022220 \t R E T U R N S [ P a r a m e t 0022240 e r L i s t N o d e ] = \r \t \t 0022260 B E G I N \r \t \t R E T U R N [ N 0022300 E W [ P a r a m e t e r L i s t 0022320 N o d e B o d y _ [ p o s i t i 0022340 o n , l e n g t h , P a r a 0022360 m e t e r L i s t a n y P r o d 0022400 P r o c s , N I L ] ] ] ; \r \t 0022420 \t E N D ; \r \r \r - - P a r a m 0022440 e t e r L i s t p a i r l i s t 0022460 P r o d \r \r P a r a m e t e r L 0022500 i s t p a i r l i s t P r o d P 0022520 r o c s : \t P U B L I C P a r 0022540 a m e t e r L i s t N o d e P r 0022560 o c s _ \r \t N E W [ P a r a m 0022600 e t e r L i s t N o d e P r o c 0022620 s B o d y _ [ P a r a m e t 0022640 e r L i s t p a i r l i s t P r 0022660 o d M a k e F i e l d L i s t ] 0022700 ] ; \r \r B u i l d P a r a m e t 0022720 e r L i s t p a i r l i s t P r 0022740 o d N o d e : \t P U B L I C P 0022760 R O C [ p o s i t i o n : I N 0023000 T , l e n g t h : I N T , 0023020 P a i r L i s t : P a i r L i 0023040 s t N o d e ] \r \t R E T U R N S 0023060 [ P a r a m e t e r L i s t N o 0023100 d e ] = \r \t \t B E G I N \r \t \t 0023120 d a t a : \t P a r a m e t e r L 0023140 i s t p a i r l i s t P r o d D 0023160 a t a _ \r \t \t \t N E W [ P a r 0023200 a m e t e r L i s t p a i r l i 0023220 s t P r o d D a t a B o d y _ 0023240 [ \r \t \t \t P a i r L i s t ] ] 0023260 ; \r \t \t R E T U R N [ N E W [ P 0023300 a r a m e t e r L i s t N o d e 0023320 B o d y _ [ p o s i t i o n , 0023340 l e n g t h , P a r a m e t e 0023360 r L i s t p a i r l i s t P r o 0023400 d P r o c s , d a t a ] ] ] ; 0023420 \r \t \t E N D ; \r \r \r - - P a r 0023440 a m e t e r L i s t t y p e l i 0023460 s t P r o d \r \r P a r a m e t e 0023500 r L i s t t y p e l i s t P r o 0023520 d P r o c s : \t P U B L I C P 0023540 a r a m e t e r L i s t N o d e 0023560 P r o c s _ \r \t N E W [ P a r 0023600 a m e t e r L i s t N o d e P r 0023620 o c s B o d y _ [ P a r a m 0023640 e t e r L i s t t y p e l i s t 0023660 P r o d M a k e F i e l d L i s 0023700 t ] ] ; \r \r B u i l d P a r a m 0023720 e t e r L i s t t y p e l i s t 0023740 P r o d N o d e : \t P U B L I C 0023760 P R O C [ p o s i t i o n : 0024000 I N T , l e n g t h : I N T 0024020 , T y p e L i s t : T y p e 0024040 L i s t N o d e ] \r \t R E T U R 0024060 N S [ P a r a m e t e r L i s t 0024100 N o d e ] = \r \t \t B E G I N \r 0024120 \t \t d a t a : \t P a r a m e t e 0024140 r L i s t t y p e l i s t P r o 0024160 d D a t a _ \r \t \t \t N E W [ P 0024200 a r a m e t e r L i s t t y p e 0024220 l i s t P r o d D a t a B o d y 0024240 _ [ \r \t \t \t T y p e L i s t 0024260 ] ] ; \r \t \t R E T U R N [ N E W 0024300 [ P a r a m e t e r L i s t N o 0024320 d e B o d y _ [ p o s i t i o n 0024340 , l e n g t h , P a r a m e 0024360 t e r L i s t t y p e l i s t P 0024400 r o d P r o c s , d a t a ] ] 0024420 ] ; \r \t \t E N D ; \r \r \r - - U 0024440 n c o u n t e d y e s P r o d \r 0024460 \r U n c o u n t e d y e s P r o 0024500 d P r o c s : \t P U B L I C U 0024520 n c o u n t e d N o d e P r o c 0024540 s _ \r \t N E W [ U n c o u n t 0024560 e d N o d e P r o c s B o d y 0024600 _ [ U n c o u n t e d y e s P 0024620 r o d I s K e y w o r d P r e s 0024640 e n t ] ] ; \r \r B u i l d U n c 0024660 o u n t e d y e s P r o d N o d 0024700 e : \t P U B L I C P R O C [ p 0024720 o s i t i o n : I N T , l e 0024740 n g t h : I N T ] \r \t R E T U 0024760 R N S [ U n c o u n t e d N o d 0025000 e ] = \r \t \t B E G I N \r \t \t R 0025020 E T U R N [ N E W [ U n c o u n 0025040 t e d N o d e B o d y _ [ p o s 0025060 i t i o n , l e n g t h , U 0025100 n c o u n t e d y e s P r o d P 0025120 r o c s , N I L ] ] ] ; \r \t \t 0025140 E N D ; \r \r \r - - U n c o u n 0025160 t e d n o P r o d \r \r U n c o u 0025200 n t e d n o P r o d P r o c s : 0025220 \t P U B L I C U n c o u n t e 0025240 d N o d e P r o c s _ \r \t N E 0025260 W [ U n c o u n t e d N o d e P 0025300 r o c s B o d y _ [ U n c o 0025320 u n t e d n o P r o d I s K e y 0025340 w o r d P r e s e n t ] ] ; \r \r 0025360 B u i l d U n c o u n t e d n o 0025400 P r o d N o d e : \t P U B L I C 0025420 P R O C [ p o s i t i o n : 0025440 I N T , l e n g t h : I N T 0025460 ] \r \t R E T U R N S [ U n c o u 0025500 n t e d N o d e ] = \r \t \t B E 0025520 G I N \r \t \t R E T U R N [ N E W 0025540 [ U n c o u n t e d N o d e B o 0025560 d y _ [ p o s i t i o n , l e 0025600 n g t h , U n c o u n t e d n 0025620 o P r o d P r o c s , N I L ] 0025640 ] ] ; \r \t \t E N D ; \r \r \r - - 0025660 T y p e A p p l y o n e P r o d 0025700 \r \r T y p e A p p l y o n e P r 0025720 o d P r o c s : \t P U B L I C 0025740 T y p e A p p l y N o d e P r o 0025760 c s _ \r \t N E W [ T y p e A p 0026000 p l y N o d e P r o c s B o d y 0026020 _ [ T y p e A p p l y o n e 0026040 P r o d M a k e T y p e ] ] ; \r 0026060 \r B u i l d T y p e A p p l y o 0026100 n e P r o d N o d e : \t P U B L 0026120 I C P R O C [ p o s i t i o n 0026140 : I N T , l e n g t h : I 0026160 N T , T y p e I d : T y p e 0026200 I d N o d e , E x p : E x p 0026220 N o d e ] \r \t R E T U R N S [ T 0026240 y p e A p p l y N o d e ] = \r 0026260 \t \t B E G I N \r \t \t d a t a : \t 0026300 T y p e A p p l y o n e P r o d 0026320 D a t a _ \r \t \t \t N E W [ T y 0026340 p e A p p l y o n e P r o d D a 0026360 t a B o d y _ [ \r \t \t \t T y 0026400 p e I d , E x p ] ] ; \r \t \t R 0026420 E T U R N [ N E W [ T y p e A p 0026440 p l y N o d e B o d y _ [ p o s 0026460 i t i o n , l e n g t h , T 0026500 y p e A p p l y o n e P r o d P 0026520 r o c s , d a t a ] ] ] ; \r \t 0026540 \t E N D ; \r \r \r - - T y p e A 0026560 p p l y m o r e l e n g t h s P 0026600 r o d \r \r T y p e A p p l y m o 0026620 r e l e n g t h s P r o d P r o 0026640 c s : \t P U B L I C T y p e A 0026660 p p l y N o d e P r o c s _ \r 0026700 \t N E W [ T y p e A p p l y N o 0026720 d e P r o c s B o d y _ [ T 0026740 y p e A p p l y m o r e l e n g 0026760 t h s P r o d M a k e T y p e ] 0027000 ] ; \r \r B u i l d T y p e A p p 0027020 l y m o r e l e n g t h s P r o 0027040 d N o d e : \t P U B L I C P R 0027060 O C [ p o s i t i o n : I N T 0027100 , l e n g t h : I N T , T 0027120 y p e A p p l y : T y p e A p 0027140 p l y N o d e , E x p : E x 0027160 p N o d e ] \r \t R E T U R N S [ 0027200 T y p e A p p l y N o d e ] = 0027220 \r \t \t B E G I N \r \t \t d a t a : 0027240 \t T y p e A p p l y m o r e l e 0027260 n g t h s P r o d D a t a _ \r 0027300 \t \t \t N E W [ T y p e A p p l y 0027320 m o r e l e n g t h s P r o d D 0027340 a t a B o d y _ [ \r \t \t \t T 0027360 y p e A p p l y , E x p ] ] ; 0027400 \r \t \t R E T U R N [ N E W [ T y 0027420 p e A p p l y N o d e B o d y _ 0027440 [ p o s i t i o n , l e n g t 0027460 h , T y p e A p p l y m o r e 0027500 l e n g t h s P r o d P r o c s 0027520 , d a t a ] ] ] ; \r \t \t E N D 0027540 ; \r \r \r - - T y p e A p p l y 0027560 m o r e i d s P r o d \r \r T y p 0027600 e A p p l y m o r e i d s P r o 0027620 d P r o c s : \t P U B L I C T 0027640 y p e A p p l y N o d e P r o c 0027660 s _ \r \t N E W [ T y p e A p p 0027700 l y N o d e P r o c s B o d y 0027720 _ [ T y p e A p p l y m o r e 0027740 i d s P r o d M a k e T y p e ] 0027760 ] ; \r \r B u i l d T y p e A p p 0030000 l y m o r e i d s P r o d N o d 0030020 e : \t P U B L I C P R O C [ p 0030040 o s i t i o n : I N T , l e 0030060 n g t h : I N T , T y p e A 0030100 p p l y : T y p e A p p l y N 0030120 o d e , I d : I d N o d e ] 0030140 \r \t R E T U R N S [ T y p e A p 0030160 p l y N o d e ] = \r \t \t B E G 0030200 I N \r \t \t d a t a : \t T y p e A 0030220 p p l y m o r e i d s P r o d D 0030240 a t a _ \r \t \t \t N E W [ T y p 0030260 e A p p l y m o r e i d s P r o 0030300 d D a t a B o d y _ [ \r \t \t 0030320 \t T y p e A p p l y , I d ] ] 0030340 ; \r \t \t R E T U R N [ N E W [ T 0030360 y p e A p p l y N o d e B o d y 0030400 _ [ p o s i t i o n , l e n g 0030420 t h , T y p e A p p l y m o r 0030440 e i d s P r o d P r o c s , d 0030460 a t a ] ] ] ; \r \t \t E N D ; \r \r 0030500 E N D . . \r 0030506