------------------------------------------------------------------
--  NAME: FONT - BODY
--  DISCREPANCY REPORTS: none
------------------------------------------------------------------
-- file : FONT_B.ADA
-- level : 1a, 2a
-- WARNING: THIS IS THE BODY OF A SYSTEM DEPENDENT PACKAGE

package body FONT is
   function FONT_FILE (FONT_ID : in POSITIVE) return STRING is
   -- This function returns the path and file names for the
   -- file containing the character font points.
   -- FONT_ID - Font identification.
   begin
      return FONT_FILE_NAMES(FONT_ID).NAME;
   end FONT_FILE;
end FONT;