В модуле LabGraph:
   PROCEDURE (v: StdView) SelectFont (font: ARRAY OF CHAR; size: INTEGER; bold, italic, underlined: BOOLEAN);
      VAR style: SET;
            weight: INTEGER;
            f: Fonts.Font;
   BEGIN
      ASSERT(font # "", 20);
      ASSERT(size > 0, 21);
      style := {};
      IF italic THEN INCL(style, Fonts.italic) END;
      IF underlined THEN INCL(style, Fonts.underline) END;
      IF bold THEN weight := Fonts.bold ELSE weight := Fonts.normal END;
      f := Fonts.dir.This(font$, !!!ВОТ ЗДЕСЬ: !!! size*Fonts.point, style, weight);
      IF f # NIL THEN
         v.font := f
      END
   END SelectFont;