Fonts:> -- Цитата:
> PROCEDURE (f: Font) Init (typeface: Typeface; size: INTEGER; style: SET; weight: INTEGER)NEWInitialize font fields.Init is called by BlackBox, internally.Pref.size = 0	20	font must not be initialized yetsize > 0	21style is subset of {italic, underline, strikeout}	220 <= weight <= 1000	23Postf.typeface = typeface  &  f.size = size  &  f.style = style  &  f.weight = weight