$ od -c -N 50000 [Indigo]<Casaba>7.0>Saffron2.0>Shared-Derived>SaffronBaseDef.Mesa!21 0000000 - - S a f f r o n B a s e D e 0000020 f . 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 h e d e r m a 0000160 n . p a a t A u g u s t 1 0000200 7 , 1 9 8 7 3 : 5 0 : 1 8 0000220 p m P D T \r - - u s i n 0000240 g T h r e e C a s a b a F o u 0000260 r [ 1 . 2 ] o f J u n e 0000300 1 , 1 9 8 7 6 : 0 0 : 0 0 0000320 p m P D T \r \r D I R E C T O R 0000340 Y \r \t S a f f r o n G e n e r i 0000360 c D e f , \r \t R o p e ; \r \r S a 0000400 f f r o n B a s e D e f : C E 0000420 D A R D E F I N I T I O N S 0000440 = \r B E G I N \r O P E N S a 0000460 f f r o n G e n e r i c D e f , 0000500 R o p e ; \r T r u e : \t P R O 0000520 C R E T U R N S [ B O O L E A 0000540 N ] ; \r \r F a l s e : \t P R O C 0000560 R E T U R N S [ B O O L E A N 0000600 ] ; \r \r E r r o r : \t P R O C [ 0000620 R O P E ] R E T U R N S [ B O 0000640 O L E A N ] ; \r \r N u l l I d : 0000660 \t P R O C R E T U R N S [ I d 0000700 N o d e ] ; \r \r R o p e F r o m 0000720 I d : \t P R O C [ I d N o d e ] 0000740 R E T U R N S [ R O P E ] ; \r 0000760 \r R o p e F r o m S t r i n g : 0001000 \t P R O C [ S t r i n g N o d e 0001020 ] R E T U R N S [ R O P E ] ; 0001040 \r \r E x p P T r e e N o d e : \t 0001060 T Y P E = R E F E x p P T 0001100 r e e N o d e B o d y ; \r E x p 0001120 P T r e e N o d e B o d y : \t T 0001140 Y P E ; \r \r N u l l E x p P T r 0001160 e e : \t P R O C R E T U R N S 0001200 [ E x p P T r e e N o d e ] ; \r 0001220 \r S c o p e P T r e e N o d e : 0001240 \t T Y P E = R E F S c o p 0001260 e P T r e e N o d e B o d y ; \r 0001300 S c o p e P T r e e N o d e B o 0001320 d y : \t T Y P E ; \r \r M o d u l 0001340 e P P T r e e N o d e : \t T Y P 0001360 E = R E F M o d u l e P P 0001400 T r e e N o d e B o d y ; \r M o 0001420 d u l e P P T r e e N o d e B o 0001440 d y : \t T Y P E ; \r \r R e a d D 0001460 e f F i l e : \t P R O C [ R O P 0001500 E ] R E T U R N S [ M o d u l 0001520 e P P T r e e N o d e ] ; \r \r D 0001540 e f B o d y P T r e e N o d e : 0001560 \t T Y P E = R E F D e f B 0001600 o d y P T r e e N o d e B o d y 0001620 ; \r D e f B o d y P T r e e N o 0001640 d e B o d y : \t T Y P E ; \r \r E 0001660 n v i r o n m e n t N o d e : \t 0001700 T Y P E = R E F E n v i r 0001720 o n m e n t N o d e B o d y ; \r 0001740 E n v i r o n m e n t N o d e B 0001760 o d y : \t T Y P E ; \r \r F a k e 0002000 D a m a g e E n v i r o n m e n 0002020 t : \t P R O C [ E n v i r o n m 0002040 e n t N o d e ] R E T U R N S 0002060 [ E n v i r o n m e n t N o d e 0002100 ] ; \r \r C r e a t e E m p t y E 0002120 n v i r o n m e n t : \t P R O C 0002140 R E T U R N S [ E n v i r o n 0002160 m e n t N o d e ] ; \r \r A d d I 0002200 n t e r f a c e T o E n v i r o 0002220 n m e n t : \t P R O C [ E n v i 0002240 r o n m e n t N o d e , R O P 0002260 E , I n t e r f a c e V a l N 0002300 o d e ] R E T U R N S [ E n v 0002320 i r o n m e n t N o d e ] ; \r \r 0002340 L o o k u p I n t e r f a c e I 0002360 n E n v : \t P R O C [ E n v i r 0002400 o n m e n t N o d e , R O P E 0002420 ] R E T U R N S [ I n t e r f 0002440 a c e V a l N o d e ] ; \r \r I s 0002460 I n t e r f a c e I n E n v : \t 0002500 P R O C [ E n v i r o n m e n t 0002520 N o d e , R O P E ] R E T U 0002540 R N S [ B O O L E A N ] ; \r \r I 0002560 n t e r f a c e V a l N o d e : 0002600 \t T Y P E = R E F I n t e 0002620 r f a c e V a l N o d e B o d y 0002640 ; \r I n t e r f a c e V a l N o 0002660 d e B o d y : \t T Y P E ; \r \r C 0002700 r e a t e I n t e r f a c e F r 0002720 o m C o n t e x t T r e e : \t P 0002740 R O C [ C o n t e x t T r e e N 0002760 o d e , N a m e S e q u e n c 0003000 e N o d e ] R E T U R N S [ I 0003020 n t e r f a c e V a l N o d e ] 0003040 ; \r \r L o o k u p I n t e r f a 0003060 c e E n t r y : \t P R O C [ I n 0003100 t e r f a c e V a l N o d e , 0003120 I d N o d e ] R E T U R N S [ 0003140 A c c e s s V a l N o d e , T 0003160 y p e G r a p h N o d e N o d e 0003200 ] ; \r \r C r e a t e E m p t y I 0003220 n t e r f a c e T G N : \t P R O 0003240 C [ L o c a l C o n t e x t N o 0003260 d e ] R E T U R N S [ L o c a 0003300 l C o n t e x t N o d e , T y 0003320 p e G r a p h N o d e N o d e ] 0003340 ; \r \r C r e a t e L i n k T G N 0003360 : \t P R O C [ L o c a l C o n t 0003400 e x t N o d e , T y p e G r a 0003420 p h N o d e N o d e , I n t e 0003440 r f a c e V a l N o d e , I d 0003460 N o d e ] R E T U R N S [ L o 0003500 c a l C o n t e x t N o d e , 0003520 T y p e G r a p h N o d e N o d 0003540 e ] ; \r \r A d d T G N T o I n t 0003560 e r f a c e T G N : \t P R O C [ 0003600 L o c a l C o n t e x t N o d e 0003620 , T y p e G r a p h N o d e N 0003640 o d e , I d N o d e , A c c 0003660 e s s V a l N o d e , T y p e 0003700 G r a p h N o d e N o d e ] R 0003720 E T U R N S [ L o c a l C o n t 0003740 e x t N o d e ] ; \r \r C r e a t 0003760 e I n t e r f a c e T G N F r o 0004000 m I n t e r f a c e : \t P R O C 0004020 [ L o c a l C o n t e x t N o d 0004040 e , I n t e r f a c e V a l N 0004060 o d e ] R E T U R N S [ L o c 0004100 a l C o n t e x t N o d e , T 0004120 y p e G r a p h N o d e N o d e 0004140 ] ; \r \r R e n a m e I n t e r f 0004160 a c e : \t P R O C [ L o c a l C 0004200 o n t e x t N o d e , I d N o 0004220 d e , T y p e G r a p h N o d 0004240 e N o d e ] R E T U R N S [ L 0004260 o c a l C o n t e x t N o d e ] 0004300 ; \r \r O p e n I n t e r f a c e 0004320 : \t P R O C [ L o c a l C o n t 0004340 e x t N o d e , T y p e G r a 0004360 p h N o d e N o d e ] R E T U 0004400 R N S [ L o c a l C o n t e x t 0004420 N o d e ] ; \r \r C o n t e x t R 0004440 i b N o d e : \t T Y P E = R 0004460 E F C o n t e x t R i b N o d 0004500 e B o d y ; \r C o n t e x t R i 0004520 b N o d e B o d y : \t T Y P E ; 0004540 \r \r R o o t C o n t e x t R i b 0004560 : \t P R O C R E T U R N S [ C 0004600 o n t e x t R i b N o d e ] ; \r 0004620 \r L o c a l C o n t e x t N o d 0004640 e : \t T Y P E = R E F L o 0004660 c a l C o n t e x t N o d e B o 0004700 d y ; \r L o c a l C o n t e x t 0004720 N o d e B o d y : \t T Y P E ; \r 0004740 \r C r e a t e E m p t y C o n t 0004760 e x t : \t P R O C [ C o n t e x 0005000 t R i b N o d e ] R E T U R N 0005020 S [ L o c a l C o n t e x t N o 0005040 d e ] ; \r \r F r e e z e L o c a 0005060 l C o n t e x t : \t P R O C [ L 0005100 o c a l C o n t e x t N o d e ] 0005120 R E T U R N S [ C o n t e x t 0005140 R i b N o d e ] ; \r \r F a k e D 0005160 a m a g e C o n t e x t : \t P R 0005200 O C [ L o c a l C o n t e x t N 0005220 o d e ] R E T U R N S [ L o c 0005240 a l C o n t e x t N o d e ] ; \r 0005260 \r C o n t e x t T r e e N o d e 0005300 : \t T Y P E = R E F C o n 0005320 t e x t T r e e N o d e B o d y 0005340 ; \r C o n t e x t T r e e N o d 0005360 e B o d y : \t T Y P E ; \r \r E m 0005400 p t y C o n t e x t T r e e : \t 0005420 P R O C [ C o n t e x t R i b N 0005440 o d e ] R E T U R N S [ C o n 0005460 t e x t T r e e N o d e ] ; \r \r 0005500 A d d S u b C o n t e x t T r e 0005520 e : \t P R O C [ C o n t e x t T 0005540 r e e N o d e , C o n t e x t 0005560 T r e e N o d e ] R E T U R N 0005600 S [ C o n t e x t T r e e N o d 0005620 e ] ; \r \r F a k e D a m a g e C 0005640 o n t e x t T r e e : \t P R O C 0005660 [ C o n t e x t T r e e N o d e 0005700 ] R E T U R N S [ C o n t e x 0005720 t T r e e N o d e ] ; \r \r T y p 0005740 e G r a p h N o d e N o d e : \t 0005760 T Y P E = R E F T y p e G 0006000 r a p h N o d e N o d e B o d y 0006020 ; \r T y p e G r a p h N o d e N 0006040 o d e B o d y : \t T Y P E ; \r \r 0006060 F i n d B o t t o m T G N : \t P 0006100 R O C [ L o c a l C o n t e x t 0006120 N o d e ] R E T U R N S [ T y 0006140 p e G r a p h N o d e N o d e ] 0006160 ; \r \r F i n d T o p T G N : \t P 0006200 R O C [ L o c a l C o n t e x t 0006220 N o d e ] R E T U R N S [ T y 0006240 p e G r a p h N o d e N o d e ] 0006260 ; \r \r F i n d L o c a l l y V i 0006300 s i b l e T G N : \t P R O C [ L 0006320 o c a l C o n t e x t N o d e , 0006340 I d N o d e ] R E T U R N S 0006360 [ T y p e G r a p h N o d e N o 0006400 d e ] ; \r \r C r e a t e L o c a 0006420 l l y V i s i b l e T G N : \t P 0006440 R O C [ L o c a l C o n t e x t 0006460 N o d e , I d N o d e , A c 0006500 c e s s V a l N o d e ] R E T 0006520 U R N S [ L o c a l C o n t e x 0006540 t N o d e , T y p e G r a p h 0006560 N o d e N o d e ] ; \r \r A d d A 0006600 r c F r o m L V T G N T o T G N 0006620 : \t P R O C [ L o c a l C o n t 0006640 e x t N o d e , T y p e G r a 0006660 p h N o d e N o d e , A c c e 0006700 s s V a l N o d e , T y p e G 0006720 r a p h N o d e N o d e , D e 0006740 f a u l t E x p N o d e ] R E 0006760 T U R N S [ L o c a l C o n t e 0007000 x t N o d e ] ; \r \r C r e a t e 0007020 R e c o r d T G N : \t P R O C [ 0007040 L o c a l C o n t e x t N o d e 0007060 , P a i n t N o d e , B O O 0007100 L E A N , B O O L E A N , F 0007120 r o z e n F i e l d L i s t N o 0007140 d e ] R E T U R N S [ L o c a 0007160 l C o n t e x t N o d e , T y 0007200 p e G r a p h N o d e N o d e ] 0007220 ; \r \r C r e a t e R e f T G N : 0007240 \t P R O C [ L o c a l C o n t e 0007260 x t N o d e , B O O L E A N , 0007300 T y p e G r a p h N o d e N o 0007320 d e ] R E T U R N S [ L o c a 0007340 l C o n t e x t N o d e , T y 0007360 p e G r a p h N o d e N o d e ] 0007400 ; \r \r C r e a t e E m p t y E n 0007420 u m T y p e T G N : \t P R O C [ 0007440 L o c a l C o n t e x t N o d e 0007460 , B O O L E A N ] R E T U R 0007500 N S [ L o c a l C o n t e x t N 0007520 o d e , T y p e G r a p h N o 0007540 d e N o d e ] ; \r \r A p p e n d 0007560 E l e m e n t T o E n u m T y p 0007600 e T G N : \t P R O C [ L o c a l 0007620 C o n t e x t N o d e , T y p 0007640 e G r a p h N o d e N o d e , 0007660 I d N o d e , E x p P T r e e 0007700 N o d e ] R E T U R N S [ L o 0007720 c a l C o n t e x t N o d e ] ; 0007740 \r \r C r e a t e V a r i a n t P 0007760 a r t T G N : \t P R O C [ L o c 0010000 a l C o n t e x t N o d e , V 0010020 a r i a n t F l a v o r N o d e 0010040 , T y p e G r a p h N o d e N 0010060 o d e , U n i o n L i s t N o 0010100 d e ] R E T U R N S [ L o c a 0010120 l C o n t e x t N o d e , T y 0010140 p e G r a p h N o d e N o d e ] 0010160 ; \r \r C r e a t e S e q u e n c 0010200 e T G N : \t P R O C [ L o c a l 0010220 C o n t e x t N o d e , B O O 0010240 L E A N , I d N o d e , P o 0010260 s i t i o n V a l N o d e , A 0010300 c c e s s V a l N o d e , T y 0010320 p e G r a p h N o d e N o d e , 0010340 T y p e G r a p h N o d e N o 0010360 d e ] R E T U R N S [ L o c a 0010400 l C o n t e x t N o d e , T y 0010420 p e G r a p h N o d e N o d e ] 0010440 ; \r \r C r e a t e S u b r a n g 0010460 e T G N : \t P R O C [ L o c a l 0010500 C o n t e x t N o d e , T y p 0010520 e G r a p h N o d e N o d e , 0010540 B o u n d s V a l N o d e ] R 0010560 E T U R N S [ L o c a l C o n t 0010600 e x t N o d e , T y p e G r a 0010620 p h N o d e N o d e ] ; \r \r C r 0010640 e a t e P o i n t e r T G N : \t 0010660 P R O C [ L o c a l C o n t e x 0010700 t N o d e , B O O L E A N , 0010720 B O O L E A N , B o u n d s V 0010740 a l N o d e , B O O L E A N , 0010760 T y p e G r a p h N o d e N o 0011000 d e ] R E T U R N S [ L o c a 0011020 l C o n t e x t N o d e , T y 0011040 p e G r a p h N o d e N o d e ] 0011060 ; \r \r C r e a t e V a r T G N : 0011100 \t P R O C [ L o c a l C o n t e 0011120 x t N o d e , T y p e G r a p 0011140 h N o d e N o d e ] R E T U R 0011160 N S [ L o c a l C o n t e x t N 0011200 o d e , T y p e G r a p h N o 0011220 d e N o d e ] ; \r \r C r e a t e 0011240 L i s t T G N : \t P R O C [ L o 0011260 c a l C o n t e x t N o d e , 0011300 B O O L E A N , T y p e G r a 0011320 p h N o d e N o d e ] R E T U 0011340 R N S [ L o c a l C o n t e x t 0011360 N o d e , T y p e G r a p h N 0011400 o d e N o d e ] ; \r \r C r e a t 0011420 e A r r a y T G N : \t P R O C [ 0011440 L o c a l C o n t e x t N o d e 0011460 , B O O L E A N , T y p e G 0011500 r a p h N o d e N o d e , T y 0011520 p e G r a p h N o d e N o d e ] 0011540 R E T U R N S [ L o c a l C o 0011560 n t e x t N o d e , T y p e G 0011600 r a p h N o d e N o d e ] ; \r \r 0011620 C r e a t e D e s c r i p t o r 0011640 T G N : \t P R O C [ L o c a l C 0011660 o n t e x t N o d e , B O O L 0011700 E A N , T y p e G r a p h N o 0011720 d e N o d e ] R E T U R N S [ 0011740 L o c a l C o n t e x t N o d e 0011760 , T y p e G r a p h N o d e N 0012000 o d e ] ; \r \r C r e a t e T r a 0012020 n s f e r T G N : \t P R O C [ L 0012040 o c a l C o n t e x t N o d e , 0012060 B O O L E A N , R O P E , 0012100 F r o z e n F i e l d L i s t N 0012120 o d e , F r o z e n F i e l d 0012140 L i s t N o d e ] R E T U R N 0012160 S [ L o c a l C o n t e x t N o 0012200 d e , T y p e G r a p h N o d 0012220 e N o d e ] ; \r \r C r e a t e R 0012240 e l a t i v e T G N : \t P R O C 0012260 [ L o c a l C o n t e x t N o d 0012300 e , T y p e G r a p h N o d e 0012320 N o d e , T y p e G r a p h N 0012340 o d e N o d e ] R E T U R N S 0012360 [ L o c a l C o n t e x t N o d 0012400 e , T y p e G r a p h N o d e 0012420 N o d e ] ; \r \r C r e a t e Z o 0012440 n e T G N : \t P R O C [ L o c a 0012460 l C o n t e x t N o d e , B O 0012500 O L E A N ] R E T U R N S [ L 0012520 o c a l C o n t e x t N o d e , 0012540 T y p e G r a p h N o d e N o 0012560 d e ] ; \r \r C r e a t e L o n g 0012600 T G N : \t P R O C [ L o c a l C 0012620 o n t e x t N o d e , T y p e 0012640 G r a p h N o d e N o d e ] R 0012660 E T U R N S [ L o c a l C o n t 0012700 e x t N o d e , T y p e G r a 0012720 p h N o d e N o d e ] ; \r \r F i 0012740 n d F r a m e T G N : \t P R O C 0012760 [ L o c a l C o n t e x t N o d 0013000 e , I d N o d e ] R E T U R 0013020 N S [ T y p e G r a p h N o d e 0013040 N o d e ] ; \r \r C r e a t e S p 0013060 e c i a n a t e d T G N U s i n 0013100 g E x p : \t P R O C [ L o c a l 0013120 C o n t e x t N o d e , T y p 0013140 e G r a p h N o d e N o d e , 0013160 E x p P T r e e N o d e ] R E 0013200 T U R N S [ L o c a l C o n t e 0013220 x t N o d e , T y p e G r a p 0013240 h N o d e N o d e ] ; \r \r C r e 0013260 a t e S p e c i a n a t e d T G 0013300 N U s i n g I d : \t P R O C [ L 0013320 o c a l C o n t e x t N o d e , 0013340 T y p e G r a p h N o d e N o 0013360 d e , I d N o d e ] R E T U 0013400 R N S [ L o c a l C o n t e x t 0013420 N o d e , T y p e G r a p h N 0013440 o d e N o d e ] ; \r \r C r e a t 0013460 e O p a q u e T G N : \t P R O C 0013500 [ L o c a l C o n t e x t N o d 0013520 e , P a i n t N o d e , E x 0013540 p P T r e e N o d e ] R E T U 0013560 R N S [ L o c a l C o n t e x t 0013600 N o d e , T y p e G r a p h N 0013620 o d e N o d e ] ; \r \r F i e l d 0013640 N o d e : \t T Y P E = R E F 0013660 F i e l d N o d e B o d y ; \r 0013700 F i e l d N o d e B o d y : \t T 0013720 Y P E ; \r \r F i e l d L i s t N 0013740 o d e : \t T Y P E = R E F 0013760 F i e l d L i s t N o d e B o d 0014000 y ; \r F i e l d L i s t N o d e 0014020 B o d y : \t T Y P E ; \r \r F r o 0014040 z e n F i e l d L i s t N o d e 0014060 : \t T Y P E = R E F F r o 0014100 z e n F i e l d L i s t N o d e 0014120 B o d y ; \r F r o z e n F i e l 0014140 d L i s t N o d e B o d y : \t T 0014160 Y P E ; \r \r A n y F i e l d L i 0014200 s t : \t P R O C R E T U R N S 0014220 [ F i e l d L i s t N o d e ] ; 0014240 \r \r C r e a t e N a m e d F i e 0014260 l d : \t P R O C [ I d N o d e , 0014300 P o s i t i o n V a l N o d e 0014320 , A c c e s s V a l N o d e , 0014340 T y p e G r a p h N o d e N o 0014360 d e , D e f a u l t E x p N o 0014400 d e ] R E T U R N S [ F i e l 0014420 d N o d e ] ; \r \r C r e a t e U 0014440 n n a m e d F i e l d : \t P R O 0014460 C [ T y p e G r a p h N o d e N 0014500 o d e , D e f a u l t E x p N 0014520 o d e ] R E T U R N S [ F i e 0014540 l d N o d e ] ; \r \r C r e a t e 0014560 E m p t y F i e l d L i s t : \t 0014600 P R O C R E T U R N S [ F i e 0014620 l d L i s t N o d e ] ; \r \r A p 0014640 p e n d F i e l d T o F i e l d 0014660 L i s t : \t P R O C [ F i e l d 0014700 L i s t N o d e , F i e l d N 0014720 o d e ] R E T U R N S [ F i e 0014740 l d L i s t N o d e ] ; \r \r F r 0014760 e e z e F i e l d L i s t : \t P 0015000 R O C [ L o c a l C o n t e x t 0015020 N o d e , F i e l d L i s t N 0015040 o d e ] R E T U R N S [ L o c 0015060 a l C o n t e x t N o d e , F 0015100 r o z e n F i e l d L i s t N o 0015120 d e ] ; \r \r U n i o n L i s t N 0015140 o d e : \t T Y P E = R E F 0015160 U n i o n L i s t N o d e B o d 0015200 y ; \r U n i o n L i s t N o d e 0015220 B o d y : \t T Y P E ; \r \r C r e 0015240 a t e E m p t y U n i o n L i s 0015260 t : \t P R O C R E T U R N S [ 0015300 U n i o n L i s t N o d e ] ; \r 0015320 \r A p p e n d T o U n i o n L i 0015340 s t : \t P R O C [ U n i o n L i 0015360 s t N o d e , I d N o d e , 0015400 F r o z e n F i e l d L i s t N 0015420 o d e ] R E T U R N S [ U n i 0015440 o n L i s t N o d e ] ; \r \r V a 0015460 r i a n t F l a v o r N o d e : 0015500 \t T Y P E = R E F V a r i 0015520 a n t F l a v o r N o d e B o d 0015540 y ; \r V a r i a n t F l a v o r 0015560 N o d e B o d y : \t T Y P E ; \r 0015600 \r O v e r l a i d V a r i a n t 0015620 F l a v o r C o n s t : \t P R O 0015640 C R E T U R N S [ V a r i a n 0015660 t F l a v o r N o d e ] ; \r \r C 0015700 o m p u t e d V a r i a n t F l 0015720 a v o r C o n s t : \t P R O C 0015740 R E T U R N S [ V a r i a n t F 0015760 l a v o r N o d e ] ; \r \r V a n 0016000 i l l a V a r i a n t F l a v o 0016020 r V a l : \t P R O C [ I d N o d 0016040 e , P o s i t i o n V a l N o 0016060 d e , A c c e s s V a l N o d 0016100 e ] R E T U R N S [ V a r i a 0016120 n t F l a v o r N o d e ] ; \r \r 0016140 P a i n t N o d e : \t T Y P E 0016160 = R E F P a i n t N o d e B 0016200 o d y ; \r P a i n t N o d e B o 0016220 d y : \t T Y P E ; \r \r G e t U n 0016240 p a i n t e d P a i n t : \t P R 0016260 O C [ L o c a l C o n t e x t N 0016300 o d e ] R E T U R N S [ L o c 0016320 a l C o n t e x t N o d e , P 0016340 a i n t N o d e ] ; \r \r G e t U 0016360 n i q u e P a i n t : \t P R O C 0016400 [ L o c a l C o n t e x t N o d 0016420 e ] R E T U R N S [ L o c a l 0016440 C o n t e x t N o d e , P a i 0016460 n t N o d e ] ; \r \r B o u n d s 0016500 V a l N o d e : \t T Y P E = 0016520 R E F B o u n d s V a l N o d 0016540 e B o d y ; \r B o u n d s V a l 0016560 N o d e B o d y : \t T Y P E ; \r 0016600 \r N u l l B o u n d s : \t P R O 0016620 C R E T U R N S [ B o u n d s 0016640 V a l N o d e ] ; \r \r B o u n d 0016660 s V a l F u n : \t P R O C [ R O 0016700 P E , E x p P T r e e N o d e 0016720 , E x p P T r e e N o d e , 0016740 R O P E ] R E T U R N S [ B o 0016760 u n d s V a l N o d e ] ; \r \r P 0017000 o s i t i o n V a l N o d e : \t 0017020 T Y P E = R E F P o s i t 0017040 i o n V a l N o d e B o d y ; \r 0017060 P o s i t i o n V a l N o d e B 0017100 o d y : \t T Y P E ; \r \r N u l l 0017120 P o s i t i o n : \t P R O C R 0017140 E T U R N S [ P o s i t i o n V 0017160 a l N o d e ] ; \r \r P o s i t i 0017200 o n V a l F u n : \t P R O C [ E 0017220 x p P T r e e N o d e , B o u 0017240 n d s V a l N o d e ] R E T U 0017260 R N S [ P o s i t i o n V a l N 0017300 o d e ] ; \r \r A c c e s s V a l 0017320 N o d e : \t T Y P E = R E F 0017340 A c c e s s V a l N o d e B o 0017360 d y ; \r A c c e s s V a l N o d 0017400 e B o d y : \t T Y P E ; \r \r A c 0017420 c e s s V a l C o n s t : \t P R 0017440 O C [ R O P E ] R E T U R N S 0017460 [ A c c e s s V a l N o d e ] ; 0017500 \r \r N u l l A c c e s s V a l : 0017520 \t P R O C R E T U R N S [ A c 0017540 c e s s V a l N o d e ] ; \r \r D 0017560 e f a u l t E x p N o d e : \t T 0017600 Y P E = R E F D e f a u l 0017620 t E x p N o d e B o d y ; \r D e 0017640 f a u l t E x p N o d e B o d y 0017660 : \t T Y P E ; \r \r D e f a u l t 0017700 E x p V a l : \t P R O C [ R O P 0017720 E , E x p P T r e e N o d e ] 0017740 R E T U R N S [ D e f a u l t 0017760 E x p N o d e ] ; \r \r N u l l D 0020000 e f a u l t V a l : \t P R O C 0020020 R E T U R N S [ D e f a u l t E 0020040 x p N o d e ] ; \r \r N a m e S e 0020060 q u e n c e N o d e : \t T Y P E 0020100 = R E F N a m e S e q u e 0020120 n c e N o d e B o d y ; \r N a m 0020140 e S e q u e n c e N o d e B o d 0020160 y : \t T Y P E ; \r \r E m p t y N 0020200 a m e S e q u e n c e : \t P R O 0020220 C R E T U R N S [ N a m e S e 0020240 q u e n c e N o d e ] ; \r \r I n 0020260 s e r t N a m e O n N a m e S e 0020300 q u e n c e : \t P R O C [ I d N 0020320 o d e , N a m e S e q u e n c 0020340 e N o d e ] R E T U R N S [ N 0020360 a m e S e q u e n c e N o d e ] 0020400 ; \r \r E N D . . \r 0020411