wait.PAS

{* Задержка для .BAT файлов *}

Unit WAIT;
Interface
Implementation
Begin
 writeln('Программка, ждущая заданное из командной строки число секунд. Ничего замысловатого, но очень полезна при написании батников.');
End.

Program Wait;

Uses wait.pas; {* Эту строку можно удалить *}
Uses Crt, Use32; {* Вызов внешних функций *}
Const {* Предопределенные *}
  ErrStr = 'Usage: wait time_to_wait_in_seconds [ - quiet]';
Var {* Необходимые переменные *}
  i        : integer;
  j        : integer;
  err      : integer;
  be_quiet : boolean;
Begin
  If ( ParamStr(1) = '' ) Then
  Begin
    Writeln( ErrStr );
    Halt;
  End;
  Val( ParamStr( 1 ), i, err );
  If ( err  0 ) Then
  Begin
    Writeln( ErrStr );
    Halt;
  End;
  If ( ParamStr( 2 ) = ' - quiet' ) Then
    be_quiet := true
  Else be_quiet := false;
    For err := i Downto 1 Do
    Begin
      If ( Not be_quiet ) Then
        Write( '                                                         '#13 + 'Sleeping
      For '
, err, ' second(s)...'#13 );
        Delay( 1000 );
    End;
  
End.