{Some Documentation for abc.
~deprecated only a test function, DO NOT USE!
}
function abc: Integer;
var      x    :Byte;
begin
 x := Round(Frac(Now) * 86400);

 Result := x xor (x + 1);
end;



//{$INCLUDE onefunc.inc}