{<<<< RealMaxAvail >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 19.1 -- Last mod 2/1/86   }

FUNCTION RealMaxAvail : Real;

VAR 
  R : Real;

BEGIN
  R := MaxAvail;
  IF R < 0 THEN R := R + 65536.0;
  R := R * 16;           { DELETE THIS LINE FOR Z80 TURBO!! }
  RealMaxAvail := R
END;
