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