🚀 go-pugleaf

>  All I want to do is to remove the fractional part of a real number,
>  in a machine-independent fashion using vanilla J&W pascal only. 
>  You are NOT allowed to generate an integer during the calculation, ala
>   
>   real_value := trunc(real_value);   { integer overflow may occur }

Here is a quick hack which I think will do the job:

	function ftrunc(x : real) : real;
	  var y : real;
	  begin
	    y := abs(x);
	    if y <= maxint then
	      ftrunc := trunc(x)
	    else if y = y + 1.0 then
	      ftrunc := x
	    else begin
	      y := ftrunc(x/maxint) * maxint;
	      ftrunc := y + ftrunc(x-y)
	      end
	  end;

-- 

Dave Seaman
..!pur-ee!pucc-i:ags

"Against people who give vent to their loquacity 
by extraneous bombastic circumlocution."