fpcdocs/bunixex/ex1.pp


1
2
3
4
5
6
7
8
9
10

Program Example1;

{ Program to demonstrate the fptime function. }

Uses baseunix;

begin
  Write ('Secs past the start of the Epoch (00:00 1/1/1980) : ');
  Writeln (fptime);
end.