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