$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronAG7bImpl.Mesa!15 0000000 - - S a f f r o n A G 7 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 2 : 4 6 : 0 2 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 7 b D e 0000360 f , \r \t S a f f r o n A T D e f 0000400 ; \r \r S a f f r o n A G 7 b I m 0000420 p l : C E D A R P R O G R A 0000440 M I M P O R T S S a f f r o 0000460 n A G 7 b D e f E X P O R T S 0000500 S a f f r o n A G 7 b D e f = 0000520 \r B E G I N \r O P E N S a f 0000540 f r o n A G 7 b D e f , S a f 0000560 f r o n A T D e f ; \r \r - - I 0000600 d e n t L i s t o n e P r o d \r 0000620 \r I d e n t L i s t o n e P r o 0000640 d P r o c s : \t P U B L I C I 0000660 d e n t L i s t N o d e P r o c 0000700 s _ \r \t N E W [ I d e n t L i 0000720 s t N o d e P r o c s B o d y 0000740 _ [ I d e n t L i s t o n e P 0000760 r o d A d d N a m e s T o F i e 0001000 l d L i s t , I d e n t L i s 0001020 t o n e P r o d M a k e N a m e 0001040 S e q u e n c e , I d e n t L 0001060 i s t o n e P r o d A d d N a m 0001100 e s T o S e q u e n c e , I d 0001120 e n t L i s t o n e P r o d A d 0001140 d V a l u e D e c l a r a t i o 0001160 n T o F i e l d L i s t , I d 0001200 e n t L i s t o n e P r o d A d 0001220 d T y p e D e c l a r a t i o n 0001240 T o F i e l d L i s t , I d e 0001260 n t L i s t o n e P r o d M a k 0001300 e C o d e T o S t o r e T O S I 0001320 n V a r i o u s L o c a l F r a 0001340 m e S l o t s ] ] ; \r \r B u i l 0001360 d I d e n t L i s t o n e P r o 0001400 d N o d e : \t P U B L I C P R 0001420 O C [ p o s i t i o n : I N T 0001440 , l e n g t h : I N T , I 0001460 d e n t : I d e n t N o d e ] 0001500 \r \t R E T U R N S [ I d e n t L 0001520 i s t N o d e ] = \r \t \t B E G 0001540 I N \r \t \t d a t a : \t I d e n t 0001560 L i s t o n e P r o d D a t a 0001600 _ \r \t \t \t N E W [ I d e n t L i 0001620 s t o n e P r o d D a t a B o d 0001640 y _ [ \r \t \t \t I d e n t ] ] 0001660 ; \r \t \t R E T U R N [ N E W [ I 0001700 d e n t L i s t N o d e B o d y 0001720 _ [ p o s i t i o n , l e n g 0001740 t h , I d e n t L i s t o n e 0001760 P r o d P r o c s , d a t a ] 0002000 ] ] ; \r \t \t E N D ; \r \r \r - - 0002020 I d e n t L i s t m a n y P r o 0002040 d \r \r I d e n t L i s t m a n y 0002060 P r o d P r o c s : \t P U B L I 0002100 C I d e n t L i s t N o d e P 0002120 r o c s _ \r \t N E W [ I d e n 0002140 t L i s t N o d e P r o c s B o 0002160 d y _ [ I d e n t L i s t m 0002200 a n y P r o d A d d N a m e s T 0002220 o F i e l d L i s t , I d e n 0002240 t L i s t m a n y P r o d M a k 0002260 e N a m e S e q u e n c e , I 0002300 d e n t L i s t m a n y P r o d 0002320 A d d N a m e s T o S e q u e n 0002340 c e , I d e n t L i s t m a n 0002360 y P r o d A d d V a l u e D e c 0002400 l a r a t i o n T o F i e l d L 0002420 i s t , I d e n t L i s t m a 0002440 n y P r o d A d d T y p e D e c 0002460 l a r a t i o n T o F i e l d L 0002500 i s t , I d e n t L i s t m a 0002520 n y P r o d M a k e C o d e T o 0002540 S t o r e T O S I n V a r i o u 0002560 s L o c a l F r a m e S l o t s 0002600 ] ] ; \r \r B u i l d I d e n t L 0002620 i s t m a n y P r o d N o d e : 0002640 \t P U B L I C P R O C [ p o s 0002660 i t i o n : I N T , l e n g 0002700 t h : I N T , I d e n t L i 0002720 s t h e a d : I d e n t L i s 0002740 t N o d e , I d e n t L i s t 0002760 t a i l : I d e n t L i s t N 0003000 o d e ] \r \t R E T U R N S [ I d 0003020 e n t L i s t N o d e ] = \r \t 0003040 \t B E G I N \r \t \t d a t a : \t I 0003060 d e n t L i s t m a n y P r o d 0003100 D a t a _ \r \t \t \t N E W [ I d 0003120 e n t L i s t m a n y P r o d D 0003140 a t a B o d y _ [ \r \t \t \t I 0003160 d e n t L i s t h e a d , I d 0003200 e n t L i s t t a i l ] ] ; \r \t 0003220 \t R E T U R N [ N E W [ I d e n 0003240 t L i s t N o d e B o d y _ [ p 0003260 o s i t i o n , l e n g t h , 0003300 I d e n t L i s t m a n y P r 0003320 o d P r o c s , d a t a ] ] ] 0003340 ; \r \t \t E N D ; \r \r \r - - T a 0003360 g i d e n t P r o d \r \r T a g i 0003400 d e n t P r o d P r o c s : \t P 0003420 U B L I C T a g N o d e P r o 0003440 c s _ \r \t N E W [ T a g N o d 0003460 e P r o c s B o d y _ [ T a 0003500 g i d e n t P r o d M a k e V a 0003520 r i a n t F l a v o r , T a g 0003540 i d e n t P r o d M a k e T a g 0003560 T y p e , T a g i d e n t P r 0003600 o d G e t S e q u e n c e T a g 0003620 I n f o , T a g i d e n t P r 0003640 o d A d d S i z e D e p e n d e 0003660 n c i e s ] ] ; \r \r B u i l d T 0003700 a g i d e n t P r o d N o d e : 0003720 \t P U B L I C P R O C [ p o s 0003740 i t i o n : I N T , l e n g 0003760 t h : I N T , I d e n t : 0004000 I d e n t N o d e , A c c e s 0004020 s : A c c e s s N o d e , T 0004040 a g T y p e : T a g T y p e N 0004060 o d e ] \r \t R E T U R N S [ T a 0004100 g N o d e ] = \r \t \t B E G I N 0004120 \r \t \t d a t a : \t T a g i d e n 0004140 t P r o d D a t a _ \r \t \t \t N 0004160 E W [ T a g i d e n t P r o d D 0004200 a t a B o d y _ [ \r \t \t \t I 0004220 d e n t , A c c e s s , T a 0004240 g T y p e ] ] ; \r \t \t R E T U R 0004260 N [ N E W [ T a g N o d e B o d 0004300 y _ [ p o s i t i o n , l e n 0004320 g t h , T a g i d e n t P r o 0004340 d P r o c s , d a t a ] ] ] ; 0004360 \r \t \t E N D ; \r \r \r - - T a g 0004400 c o m p u t e d P r o d \r \r T a 0004420 g c o m p u t e d P r o d P r o 0004440 c s : \t P U B L I C T a g N o 0004460 d e P r o c s _ \r \t N E W [ T 0004500 a g N o d e P r o c s B o d y 0004520 _ [ T a g c o m p u t e d P r 0004540 o d M a k e V a r i a n t F l a 0004560 v o r , T a g c o m p u t e d 0004600 P r o d M a k e T a g T y p e , 0004620 T a g c o m p u t e d P r o d 0004640 G e t S e q u e n c e T a g I n 0004660 f o , T a g c o m p u t e d P 0004700 r o d A d d S i z e D e p e n d 0004720 e n c i e s ] ] ; \r \r B u i l d 0004740 T a g c o m p u t e d P r o d N 0004760 o d e : \t P U B L I C P R O C 0005000 [ p o s i t i o n : I N T , 0005020 l e n g t h : I N T , T a g 0005040 T y p e : T a g T y p e N o d 0005060 e ] \r \t R E T U R N S [ T a g N 0005100 o d e ] = \r \t \t B E G I N \r \t 0005120 \t d a t a : \t T a g c o m p u t 0005140 e d P r o d D a t a _ \r \t \t \t 0005160 N E W [ T a g c o m p u t e d P 0005200 r o d D a t a B o d y _ [ \r 0005220 \t \t \t T a g T y p e ] ] ; \r \t \t 0005240 R E T U R N [ N E W [ T a g N o 0005260 d e B o d y _ [ p o s i t i o n 0005300 , l e n g t h , T a g c o m 0005320 p u t e d P r o d P r o c s , 0005340 d a t a ] ] ] ; \r \t \t E N D ; \r 0005360 \r \r - - T a g o v e r l a i d 0005400 P r o d \r \r T a g o v e r l a i 0005420 d P r o d P r o c s : \t P U B L 0005440 I C T a g N o d e P r o c s 0005460 _ \r \t N E W [ T a g N o d e P r 0005500 o c s B o d y _ [ T a g o v 0005520 e r l a i d P r o d M a k e V a 0005540 r i a n t F l a v o r , T a g 0005560 o v e r l a i d P r o d M a k e 0005600 T a g T y p e , T a g o v e r 0005620 l a i d P r o d G e t S e q u e 0005640 n c e T a g I n f o , T a g o 0005660 v e r l a i d P r o d A d d S i 0005700 z e D e p e n d e n c i e s ] ] 0005720 ; \r \r B u i l d T a g o v e r l 0005740 a i d P r o d N o d e : \t P U B 0005760 L I C P R O C [ p o s i t i o 0006000 n : I N T , l e n g t h : 0006020 I N T , T a g T y p e : T a 0006040 g T y p e N o d e ] \r \t R E T U 0006060 R N S [ T a g N o d e ] = \r \t 0006100 \t B E G I N \r \t \t d a t a : \t T 0006120 a g o v e r l a i d P r o d D a 0006140 t a _ \r \t \t \t N E W [ T a g o 0006160 v e r l a i d P r o d D a t a B 0006200 o d y _ [ \r \t \t \t T a g T y 0006220 p e ] ] ; \r \t \t R E T U R N [ N 0006240 E W [ T a g N o d e B o d y _ [ 0006260 p o s i t i o n , l e n g t h 0006300 , T a g o v e r l a i d P r o 0006320 d P r o c s , d a t a ] ] ] ; 0006340 \r \t \t E N D ; \r \r \r - - T a g 0006360 T y p e s t a r P r o d \r \r T a 0006400 g T y p e s t a r P r o d P r o 0006420 c s : \t P U B L I C T a g T y 0006440 p e N o d e P r o c s _ \r \t N 0006460 E W [ T a g T y p e N o d e P r 0006500 o c s B o d y _ [ T a g T y 0006520 p e s t a r P r o d M a k e T a 0006540 g T y p e , T a g T y p e s t 0006560 a r P r o d A d d S i z e D e p 0006600 e n d e n c i e s ] ] ; \r \r B u 0006620 i l d T a g T y p e s t a r P r 0006640 o d N o d e : \t P U B L I C P 0006660 R O C [ p o s i t i o n : I N 0006700 T , l e n g t h : I N T ] \r 0006720 \t R E T U R N S [ T a g T y p e 0006740 N o d e ] = \r \t \t B E G I N \r 0006760 \t \t R E T U R N [ N E W [ T a g 0007000 T y p e N o d e B o d y _ [ p o 0007020 s i t i o n , l e n g t h , 0007040 T a g T y p e s t a r P r o d P 0007060 r o c s , N I L ] ] ] ; \r \t \t 0007100 E N D ; \r \r \r - - T a g T y p 0007120 e t y p e e x p P r o d \r \r T a 0007140 g T y p e t y p e e x p P r o d 0007160 P r o c s : \t P U B L I C T a 0007200 g T y p e N o d e P r o c s _ 0007220 \r \t N E W [ T a g T y p e N o d 0007240 e P r o c s B o d y _ [ T a 0007260 g T y p e t y p e e x p P r o d 0007300 M a k e T a g T y p e , T a g 0007320 T y p e t y p e e x p P r o d A 0007340 d d S i z e D e p e n d e n c i 0007360 e s ] ] ; \r \r B u i l d T a g T 0007400 y p e t y p e e x p P r o d N o 0007420 d e : \t P U B L I C P R O C [ 0007440 p o s i t i o n : I N T , l 0007460 e n g t h : I N T , T y p e 0007500 E x p : T y p e E x p N o d e 0007520 ] \r \t R E T U R N S [ T a g T y 0007540 p e N o d e ] = \r \t \t B E G I 0007560 N \r \t \t d a t a : \t T a g T y p 0007600 e t y p e e x p P r o d D a t a 0007620 _ \r \t \t \t N E W [ T a g T y p 0007640 e t y p e e x p P r o d D a t a 0007660 B o d y _ [ \r \t \t \t T y p e 0007700 E x p ] ] ; \r \t \t R E T U R N [ 0007720 N E W [ T a g T y p e N o d e B 0007740 o d y _ [ p o s i t i o n , l 0007760 e n g t h , T a g T y p e t y 0010000 p e e x p P r o d P r o c s , 0010020 d a t a ] ] ] ; \r \t \t E N D ; \r 0010040 \r \r - - V a r i a n t L i s t 0010060 o n e P r o d \r \r V a r i a n t 0010100 L i s t o n e P r o d P r o c s 0010120 : \t P U B L I C V a r i a n t 0010140 L i s t N o d e P r o c s _ \r 0010160 \t N E W [ V a r i a n t L i s t 0010200 N o d e P r o c s B o d y _ 0010220 [ V a r i a n t L i s t o n e P 0010240 r o d M a k e U n i o n L i s t 0010260 , V a r i a n t L i s t o n e 0010300 P r o d A d d V a r i a n t s T 0010320 o U n i o n L i s t , V a r i 0010340 a n t L i s t o n e P r o d M a 0010360 k e S t a r T a g T y p e , V 0010400 a r i a n t L i s t o n e P r o 0010420 d A d d V a r i a n t N a m e s 0010440 T o E n u m T y p e T G N , V 0010460 a r i a n t L i s t o n e P r o 0010500 d A d d S i z e D e p e n d e n 0010520 c i e s ] ] ; \r \r B u i l d V a 0010540 r i a n t L i s t o n e P r o d 0010560 N o d e : \t P U B L I C P R O 0010600 C [ p o s i t i o n : I N T , 0010620 l e n g t h : I N T , V a 0010640 r i a n t I t e m : V a r i a 0010660 n t I t e m N o d e ] \r \t R E T 0010700 U R N S [ V a r i a n t L i s t 0010720 N o d e ] = \r \t \t B E G I N \r 0010740 \t \t d a t a : \t V a r i a n t L 0010760 i s t o n e P r o d D a t a _ 0011000 \r \t \t \t N E W [ V a r i a n t L 0011020 i s t o n e P r o d D a t a B o 0011040 d y _ [ \r \t \t \t V a r i a n 0011060 t I t e m ] ] ; \r \t \t R E T U R 0011100 N [ N E W [ V a r i a n t L i s 0011120 t N o d e B o d y _ [ p o s i t 0011140 i o n , l e n g t h , V a r 0011160 i a n t L i s t o n e P r o d P 0011200 r o c s , d a t a ] ] ] ; \r \t 0011220 \t E N D ; \r \r \r - - V a r i a 0011240 n t L i s t m o r e P r o d \r \r 0011260 V a r i a n t L i s t m o r e P 0011300 r o d P r o c s : \t P U B L I C 0011320 V a r i a n t L i s t N o d e 0011340 P r o c s _ \r \t N E W [ V a r 0011360 i a n t L i s t N o d e P r o c 0011400 s B o d y _ [ V a r i a n t 0011420 L i s t m o r e P r o d M a k e 0011440 U n i o n L i s t , V a r i a 0011460 n t L i s t m o r e P r o d A d 0011500 d V a r i a n t s T o U n i o n 0011520 L i s t , V a r i a n t L i s 0011540 t m o r e P r o d M a k e S t a 0011560 r T a g T y p e , V a r i a n 0011600 t L i s t m o r e P r o d A d d 0011620 V a r i a n t N a m e s T o E n 0011640 u m T y p e T G N , V a r i a 0011660 n t L i s t m o r e P r o d A d 0011700 d S i z e D e p e n d e n c i e 0011720 s ] ] ; \r \r B u i l d V a r i a 0011740 n t L i s t m o r e P r o d N o 0011760 d e : \t P U B L I C P R O C [ 0012000 p o s i t i o n : I N T , l 0012020 e n g t h : I N T , V a r i 0012040 a n t L i s t : V a r i a n t 0012060 L i s t N o d e , V a r i a n 0012100 t I t e m : V a r i a n t I t 0012120 e m N o d e ] \r \t R E T U R N S 0012140 [ V a r i a n t L i s t N o d e 0012160 ] = \r \t \t B E G I N \r \t \t d a 0012200 t a : \t V a r i a n t L i s t m 0012220 o r e P r o d D a t a _ \r \t \t 0012240 \t N E W [ V a r i a n t L i s t 0012260 m o r e P r o d D a t a B o d y 0012300 _ [ \r \t \t \t V a r i a n t L 0012320 i s t , V a r i a n t I t e m 0012340 ] ] ; \r \t \t R E T U R N [ N E W 0012360 [ V a r i a n t L i s t N o d e 0012400 B o d y _ [ p o s i t i o n , 0012420 l e n g t h , V a r i a n t L 0012440 i s t m o r e P r o d P r o c s 0012460 , d a t a ] ] ] ; \r \t \t E N D 0012500 ; \r \r \r - - V a r i a n t I t 0012520 e m P r o d \r \r V a r i a n t I 0012540 t e m P r o d P r o c s : \t P U 0012560 B L I C V a r i a n t I t e m 0012600 N o d e P r o c s _ \r \t N E W 0012620 [ V a r i a n t I t e m N o d e 0012640 P r o c s B o d y _ [ V a r 0012660 i a n t I t e m P r o d A d d V 0012700 a r i a n t s T o U n i o n L i 0012720 s t , V a r i a n t I t e m P 0012740 r o d A d d V a r i a n t N a m 0012760 e s T o E n u m T y p e T G N , 0013000 V a r i a n t I t e m P r o d 0013020 A d d S i z e D e p e n d e n c 0013040 i e s ] ] ; \r \r B u i l d V a r 0013060 i a n t I t e m 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 , I d L i s t 0013160 : I d L i s t N o d e , R e 0013200 c L i s t : R e c L i s t N o 0013220 d e ] \r \t R E T U R N S [ V a r 0013240 i a n t I t e m N o d e ] = \r 0013260 \t \t B E G I N \r \t \t d a t a : \t 0013300 V a r i a n t I t e m P r o d D 0013320 a t a _ \r \t \t \t N E W [ V a r 0013340 i a n t I t e m P r o d D a t a 0013360 B o d y _ [ \r \t \t \t I d L i 0013400 s t , R e c L i s t ] ] ; \r \t 0013420 \t R E T U R N [ N E W [ V a r i 0013440 a n t I t e m N o d e B o d y _ 0013460 [ p o s i t i o n , l e n g t 0013500 h , V a r i a n t I t e m P r 0013520 o d P r o c s , d a t a ] ] ] 0013540 ; \r \t \t E N D ; \r \r \r - - P a 0013560 c k e d y e s P r o d \r \r P a c 0013600 k e d y e s P r o d P r o c s : 0013620 \t P U B L I C P a c k e d N o 0013640 d e P r o c s _ \r \t N E W [ P 0013660 a c k e d N o d e P r o c s B o 0013700 d y _ [ P a c k e d y e s P 0013720 r o d I s K e y w o r d P r e s 0013740 e n t ] ] ; \r \r B u i l d P a c 0013760 k e d y e s P r o d N o d e : \t 0014000 P U B L I C P R O C [ p o s i 0014020 t i o n : I N T , l e n g t 0014040 h : I N T ] \r \t R E T U R N S 0014060 [ P a c k e d N o d e ] = \r \t 0014100 \t B E G I N \r \t \t R E T U R N [ 0014120 N E W [ P a c k e d N o d e B o 0014140 d y _ [ p o s i t i o n , l e 0014160 n g t h , P a c k e d y e s P 0014200 r o d P r o c s , N I L ] ] ] 0014220 ; \r \t \t E N D ; \r \r \r - - P a 0014240 c k e d n o P r o d \r \r P a c k 0014260 e d n o P r o d P r o c s : \t P 0014300 U B L I C P a c k e d N o d e 0014320 P r o c s _ \r \t N E W [ P a c 0014340 k e d N o d e P r o c s B o d y 0014360 _ [ P a c k e d n o P r o d 0014400 I s K e y w o r d P r e s e n t 0014420 ] ] ; \r \r B u i l d P a c k e d 0014440 n o P r o d N o d e : \t P U B L 0014460 I C P R O C [ p o s i t i o n 0014500 : I N T , l e n g t h : I 0014520 N T ] \r \t R E T U R N S [ P a c 0014540 k e d N o d e ] = \r \t \t B E G 0014560 I N \r \t \t R E T U R N [ N E W [ 0014600 P a c k e d N o d e B o d y _ [ 0014620 p o s i t i o n , l e n g t h 0014640 , P a c k e d n o P r o d P r 0014660 o c s , N I L ] ] ] ; \r \t \t E 0014700 N D ; \r \r E N D . . \r 0014713