$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron3.0>Derived>SaffronAddToFieldListImpl.Mesa!36 0000000 - - S a f f r o n A d d T o F 0000020 i e l d L i s t I m p l . m e s 0000040 a \r - - C o p y r i g h t 0000060 323 1 9 8 7 b y X e r o x 0000100 C o r p o r a t i o n . A l 0000120 l r i g h t s r e s e r v e 0000140 d . \r - - G e n e r a t e d 0000160 b y R a u e n . p a a t 0000200 S e p t e m b e r 1 , 1 9 8 0000220 8 6 : 2 9 : 5 6 p m P D T 0000240 \r - - u s i n g T h r e 0000260 e C a s a b a F o u r [ 1 . 2 0000300 ] o f J u n e 1 , 1 9 8 0000320 7 6 : 0 0 : 0 0 p m P D T 0000340 \r \r D I R E C T O R Y \r \t S a f 0000360 f r o n A G 6 c D e f , \r \t T h 0000400 r e e C 4 S u p p o r t , \r \t S 0000420 a f f r o n B a s e D e f , \r \t 0000440 S a f f r o n A T D e f ; \r \r S 0000460 a f f r o n A d d T o F i e l d 0000500 L i s t I m p l : C E D A R 0000520 P R O G R A M I M P O R T S 0000540 T h r e e C 4 S u p p o r t , 0000560 S a f f r o n B a s e D e f E 0000600 X P O R T S S a f f r o n A G 0000620 6 c D e f = \r B E G I N \r O P 0000640 E N S a f f r o n A G 6 c D e 0000660 f , T h r e e C 4 S u p p o r 0000700 t , S a f f r o n B a s e D e 0000720 f , S a f f r o n A T D e f ; 0000740 \r T y p e L i s t m a n y P r o 0000760 d A d d T o F i e l d L i s t : 0001000 \t P U B L I C P R O C [ r e f 0001020 : R E F A N Y , l o c a l 0001040 C o n t e x t : L o c a l C o 0001060 n t e x t N o d e , f i e l d 0001100 L i s t : F i e l d L i s t N 0001120 o d e , p a i n t R e c o r d 0001140 s : B O O L E A N , c s : 0001160 C o m p i l e r S t a t e N o d 0001200 e ] R E T U R N S [ t e m p 0 0001220 : L o c a l C o n t e x t N o 0001240 d e , t e m p 1 : F i e l d 0001260 L i s t N o d e ] = \r B E G I 0001300 N \r t r e e : \t T y p e L i s t 0001320 N o d e _ N A R R O W [ r e f 0001340 ] ; \r B E G I N \r E N A B L E 0001360 T h r e e C 4 S u p p o r t . G 0001400 e t S o u r c e I n f o = > 0001420 R E S U M E [ t r e e . p o s i 0001440 t i o n , t r e e . l e n g t 0001460 h ] ; \r t r e e D a t a : \t T y 0001500 p e L i s t m a n y P r o d D a 0001520 t a _ N A R R O W [ t r e e 0001540 . d a t a ] ; \r B E G I N \r l o 0001560 c a l C o n t e x t 1 : \t L o c 0001600 a l C o n t e x t N o d e ; \r f 0001620 i e l d L i s t 1 : \t F i e l d 0001640 L i s t N o d e ; \r [ l o c a l 0001660 C o n t e x t 1 , f i e l d L 0001700 i s t 1 ] _ t r e e D a t a 0001720 . T y p e L i s t h e a d . p r 0001740 o c s . A d d T o F i e l d L i 0001760 s t [ t r e e D a t a . T y p e 0002000 L i s t h e a d , l o c a l C 0002020 o n t e x t , f i e l d L i s 0002040 t , p a i n t R e c o r d s , 0002060 c s ] ; \r [ t e m p 0 , t e 0002100 m p 1 ] _ t r e e D a t a . 0002120 T y p e L i s t t a i l . p r o 0002140 c s . A d d T o F i e l d L i s 0002160 t [ t r e e D a t a . T y p e L 0002200 i s t t a i l , l o c a l C o 0002220 n t e x t 1 , f i e l d L i s 0002240 t 1 , p a i n t R e c o r d s 0002260 , c s ] ; \r E N D ; \r E N D \r 0002300 E N D ; \r \r T y p e L i s t o n 0002320 e P r o d A d d T o F i e l d L 0002340 i s t : \t P U B L I C P R O C 0002360 [ r e f : R E F A N Y , l 0002400 o c a l C o n t e x t : L o c 0002420 a l C o n t e x t N o d e , f 0002440 i e l d L i s t : F i e l d L 0002460 i s t N o d e , p a i n t R e 0002500 c o r d s : B O O L E A N , 0002520 c s : C o m p i l e r S t a t 0002540 e N o d e ] R E T U R N S [ t 0002560 e m p 0 : L o c a l C o n t e 0002600 x t N o d e , t e m p 1 : F 0002620 i e l d L i s t N o d e ] = \r 0002640 B E G I N \r t r e e : \t T y p e 0002660 L i s t N o d e _ N A R R O W 0002700 [ r e f ] ; \r B E G I N \r E N A 0002720 B L E T h r e e C 4 S u p p o 0002740 r t . G e t S o u r c e I n f o 0002760 = > R E S U M E [ t r e e . 0003000 p o s i t i o n , t r e e . l 0003020 e n g t h ] ; \r t r e e D a t a 0003040 : \t T y p e L i s t o n e P r o 0003060 d D a t a _ N A R R O W [ t 0003100 r e e . d a t a ] ; \r [ t e m p 0003120 0 , t e m p 1 ] _ t r e e 0003140 D a t a . T y p e I t e m . p r 0003160 o c s . A d d T o F i e l d L i 0003200 s t [ t r e e D a t a . T y p e 0003220 I t e m , l o c a l C o n t e 0003240 x t , f i e l d L i s t , p 0003260 a i n t R e c o r d s , c s ] 0003300 ; \r E N D \r E N D ; \r \r T y p e 0003320 I t e m P r o d A d d T o F i e 0003340 l d L i s t : \t P U B L I C P 0003360 R O C [ r e f : R E F A N Y 0003400 , l o c a l C o n t e x t : 0003420 L o c a l C o n t e x t N o d e 0003440 , f i e l d L i s t : F i e 0003460 l d L i s t N o d e , p a i n 0003500 t R e c o r d s : B O O L E A 0003520 N , c s : C o m p i l e r S 0003540 t a t e N o d e ] R E T U R N 0003560 S [ t e m p 0 : L o c a l C o 0003600 n t e x t N o d e , t e m p 1 0003620 : F i e l d L i s t N o d e ] 0003640 = \r B E G I N \r t r e e : \t T 0003660 y p e I t e m N o d e _ N A R 0003700 R O W [ r e f ] ; \r B E G I N \r 0003720 E N A B L E T h r e e C 4 S u 0003740 p p o r t . G e t S o u r c e I 0003760 n f o = > R E S U M E [ t r 0004000 e e . p o s i t i o n , t r e 0004020 e . l e n g t h ] ; \r t r e e D 0004040 a t a : \t T y p e I t e m P r o 0004060 d D a t a _ N A R R O W [ t 0004100 r e e . d a t a ] ; \r B E G I N 0004120 \r f i e l d L i s t 1 : \t F i e 0004140 l d L i s t N o d e ; \r f i e l 0004160 d : \t F i e l d N o d e ; \r l o 0004200 c a l C o n t e x t 1 : \t L o c 0004220 a l C o n t e x t N o d e ; \r t 0004240 g n : \t T y p e G r a p h N o d 0004260 e N o d e ; \r d e f a u l t E x 0004300 p : \t D e f a u l t E x p N o d 0004320 e ; \r d e f a u l t E x p _ 0004340 t r e e D a t a . D e f a u l t 0004360 . p r o c s . G e t D e f a u l 0004400 t E x p V a l [ t r e e D a t a 0004420 . D e f a u l t ] ; \r [ l o c a 0004440 l C o n t e x t 1 , t g n ] 0004460 _ t r e e D a t a . T y p e E 0004500 x p . p r o c s . M a k e T y p 0004520 e [ t r e e D a t a . T y p e E 0004540 x p , l o c a l C o n t e x t 0004560 , p a i n t R e c o r d s , 0004600 c s ] ; \r f i e l d _ C r e 0004620 a t e U n n a m e d F i e l d [ 0004640 t g n , d e f a u l t E x p ] 0004660 ; \r f i e l d L i s t 1 _ A 0004700 p p e n d F i e l d T o F i e l 0004720 d L i s t [ f i e l d L i s t , 0004740 f i e l d ] ; \r t e m p 1 _ 0004760 f i e l d L i s t 1 ; \r t e m 0005000 p 0 _ l o c a l C o n t e x 0005020 t 1 ; \r E N D ; \r E N D \r E N D 0005040 ; \r \r E N D . . \r 0005051