MODULE x;
   IMPORT  T := TextModels, F := Fonts,  Views,  TextViews;
   
   PROCEDURE МеняемШрифт;
      VAR 
         t: T.Model; (* текст *)
         f, f1: F.Font;
         a, a1: T.Attributes; (* это будут новые атрибуты текста *)
   BEGIN
      t := T.dir.NewFromString('Волгоград Сталинград Царицын'); (* новый текстовый объект (модель), шрифт по умолчанию *)
      
      f := F.dir.Default(); (* можно взять шрифт по умолчанию, а можно указать в лоб: *)
      f1 := F.dir.This( 'Verdana', 20*F.point, {F.italic, F.underline}, F.bold );

      a := T.dir.attr; (* берем атрибуты по умолчанию *)
      a := T.NewFont( a, f1 ); (* правим атрибуты, меняя там шрифт на новый *)
      t.SetAttr( 10, 20, a); (* меняем шрифт в позициях с 10 по 20-1 *)
      
      (* смотрим, что получилось: *)
      Views.OpenView( TextViews.dir.New( t ) );
   END МеняемШрифт;
   
   
BEGIN МеняемШрифт
END x.