From: markus.humm1@freenet.de   
      
   [snip]   
      
   Hello,   
      
   in this case make subCalculate a subroutine of calculate like this:   
      
   procedure calculate;   
   var subresult:integer;   
      
      procedure subcalculate;   
      begin   
        {do something}   
      end;   
      
   begin   
      {do something}   
      subcalculate;   
      {do something}   
   end;   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)