program Subscript;

// Makro zmeni velikost pisma na Subscript

begin
  SetFormatFont(kCHPsupersub, tSub);
  beep;
end.