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