Приветствую Вас, All!

        Hу, программеры! Съеште! ;))
Вот вам нормальная пауза для ДОС версии Торнадо!


Procedure Pause (Duration: LongInt);
{alexrain}
Label labelex1;
var
  hour, min, sec, ssec : Word;
  temp_time, temp_time_sawe : Word;
Begin

  GetTime (hour, min, sec, ssec);
  temp_time := ((hour * 60 + min) * 60 + sec) * 600 + ssec;
  temp_time_sawe := temp_time;
labelex1:
  GetTime (hour, min, sec, ssec);
  temp_time := ((hour * 60 + min) * 60 + sec) * 600 + ssec;
  if (Duration > temp_time - temp_time_sawe) then
  begin
    delay (1);
    goto labelex1;
  end;
End;



           Всего доброго! Алексей

--- (Freq/BBS) --) Welcome to BBS! --)