mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-23 15:51:29 +02:00
17 lines
270 B
ObjectPascal
17 lines
270 B
ObjectPascal
program example73;
|
|
|
|
{ Program to demonstrate the FpSleep function. }
|
|
|
|
uses BaseUnix;
|
|
|
|
Var
|
|
Res : Longint;
|
|
|
|
begin
|
|
Write('Sleep returned : ');
|
|
Flush(Output);
|
|
Res:=(fpSleep(10));
|
|
Writeln(res);
|
|
If (res<>0) then
|
|
Writeln('Remaining seconds : ',res);
|
|
end. |