blob: 75546bf2b51623ac4fe63c331ef163f046d84f36 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
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.
|
