FUNCTION Frac(Num : Real) : Real;
(*
  by Erik C. Warren, 13 January, 1986
  for UPDATE...KYAN's Jan./Feb. issue
*)
BEGIN
  Frac := Num - Trunc(Num)
END; (* Frac *)

.