## Код:
```
PROCEDURE ExportText* (s: Stores.Store; f: Files.File);
      VAR w: Stores.Writer; t: TextModels.Model; r: TextModels.Reader; ch: CHAR;
   BEGIN
      ASSERT(s # NIL, 20); ASSERT(f # NIL, 21);
      s := TextView(s);
      IF s # NIL THEN
...
      END
   END ExportText;
```

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

   IMPORT Dialog, Converters, OleData;

   PROCEDURE Setup*;
      VAR res: INTEGER;
   BEGIN
      Converters.Register("HostTextConv.ImportText", "HostTextConv.ExportText", "TextViews.View", "txt", {Converters.importAll});...
```

(аналогично)viewtopic.php?p=42157#p42157