From: ruediw@lycos.com   
      
   Rudolf Wiesendanger  wrote in   
   news:Xns964A70AE6707ruediwhispeedch@62.2.16.4:   
      
   > "Sm704"  wrote in   
   > news:1114972625.359704.156410@g14g2000cwa.googlegroups.com:   
   >   
   >>   
   >> I tried that before I posted the original message. It doesn't work   
   >> correctly. When I call the original German-Written function, it works   
   >> as it should. When I try calling the English function, it doesn't work.   
   >> I have it exactly as you posted. When I use the English version,   
   >> there's huge buffer overflow on the screen, but not when the original   
   >> German function is called.   
   >>   
   >   
   > What version of Turbo Pascal do You use ?   
   > What OS do You use ?   
   >   
   > May be You have to declare the implementation section to   
   > force far calls {$F+}.   
   > Try to change the uses clause for your eng.pas unit to   
   >   
   > Unit EnglFunc;   
   > interface   
   >   
   > Uses   
   >   germFunc;   
   >   
   > {$F+}   
   >   
   > If this does not help, Could You post your german and english Unit her ?   
   >   
   > HTH   
   > Rudolf   
   >   
   >   
   >   
      
   Or You could try to change You German Unit to an include-File like this:   
      
   Unit EnglUnit;   
      
   Interface;   
      
   function ReceiveBuffer(number : word) : char;   
      
   .....   
      
   Implementation   
      
   {$F+}   
   {$I GermFunc.Pas}   
      
   function ReceiveBuffer(number : word) : char;   
   begin   
      ReceiveBuffer := EmpfangenSiePuffer(number);   
   end;   
      
   End.   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)