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

FUNCTION CompiledFor8087 : Boolean;

VAR
  R : Real;

BEGIN
  IF Sizef(R) = 8 THEN CompiledFor8087 := True
    ELSE CompiledFor8087 := False  
END;
