Пример для подписчика

## Код:
```
MODULE DemoText;

   IMPORT TextModels, TextMappers, TextViews, Views, Files, Converters;
   
   PROCEDURE Start*();
   VAR
      t: TextModels.Model;
      f: TextMappers.Formatter;
      conv: Converters.Converter;
      loc: Files.Locator;
      name: Files.Name;
      res: INTEGER;
   BEGIN
      t := TextModels.dir.New();
      f.ConnectTo(t);
      f.WriteString("число Пи"); f.WriteLn;
      f.WriteReal(3.14); f.WriteLn;
      
      (* cохранить в виде оберон-документа *)
      Views.RegisterView(
         TextViews.dir.New(t),  (* создаем отображение из модели текста *)
         Files.dir.This(""),  (* путь *)
         "test.odc"  (* имя файла *)
      );
      
      (* cохранить в виде RTF документа см. модуль Config  *)
      conv := Converters.list;
      WHILE (conv # NIL) & (conv.exp # "HostTextConv.ExportRichText") DO
         conv := conv.next
      END;
      
      loc := Files.dir.This("");
      name := "test.rtf";
      Views.Register(TextViews.dir.New(t), Files.dontAsk, loc, name, conv, res);
      
   END Start;   

END DemoText.
```
