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