From: dennishartvigsen@ofir.dk   
      
   Yes - that was what I looking for.   
      
   Thanks everybody   
      
   /DK   
      
   "Markus Humm"  skrev i en meddelelse   
   news:43d12e46$0$1067$9b622d9e@news.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)