Да, за Lab мне нужно принести всем извинения... Был выкачен на публику сырой продукт, совершенно не опробованный в образовании - в тот период я сам его не использовал.
Сейчас использую, но сильно урезанный вариант, который надо перебрать "с нуля" и уже опубликовать - но пока сил нет..

Касательно SelectFont. Он принимает не в пунктах, а в универсальных единицах ББ. Чтобы в пунктах принимал, надо такое исправление:

## Код:
```
В модуле 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;
```
