Wait.pas
Программка, ждущая заданное из командной строки число секунд.
Ничего замысловатого, но очень полезна при написании батников.

Alexander Tokareff
2:5077/27, dwalin@mol.mn
---

Program Wait;
Uses Crt, Use32;
Const
 ErrStr = 'Usage: wait time_to_wait_in_seconds [-quiet]';
Var
 i, j, 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.