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