MODULE Font;

IMPORT PS;

PROC h := NetHeight() IS 
  VAR asc, dec IN 
    asc, dec := PS.FontHeight(); 
    h := asc + dec 
  END 
END;

(* Set "h" to the total height of 
   the current font. *)