MODULE Mm;

IMPORT Files, TextMappers, Stores;

PROCEDURE Do* ();
VAR
   f: Files.File;
   loc: Files.Locator;
   w: Stores.Writer;
   res: INTEGER;
BEGIN
   loc := Files.dir.This("");
   loc := loc.This("jfdjhf");
   f := Files.dir.New(loc, FALSE);
   f.Register("t", "txt", TRUE, res);
   w.ConnectTo(f);
   w.WriteString("sdjsjdhsjdhs");
   f.Close();
END Do;

END Mm.

MODULE Mm;

IMPORT Files, TextMappers, Stores;

PROCEDURE Do* ();
VAR
   f: Files.File;
   loc: Files.Locator;
   w: Stores.Writer;
   res: INTEGER;
BEGIN
   loc := Files.dir.This("");
   loc := loc.This("jfdjhf");
   f := Files.dir.New(loc, FALSE);
   w.ConnectTo(f);
   w.WriteString("sdjsjdhsjdhs");
   f.Register("t", "txt", TRUE, res);
END Do;

END Mm.

   ...
   view := TextViews.dir.New(model);
   loc := Files.dir.This("Test/Rsrc/Log");
   filename := "log.txt";

   (* ищу конвертер для файлов с расширением txt *)
   conv := Converters.list;
   WHILE (conv # NIL) & (conv.ext # "txt") DO conv := conv.next END;
   IF conv.ext ="txt" THEN
      Views.Register(view, Views.dontAsk, loc, filename$, conv, res);
      ASSERT(res # 0, 20)
   END;
   ...

MODULE Конвертер ;
   IMPORT  StdLog, In, Math, ObxAscii;
   
   PROCEDURE ReadF* ();
      VAR файл: ObxAscii.Text;
         c:   CHAR;
   BEGIN
      файл := ObxAscii.Open(NIL, 'c:\TEMP\ttt.txt');
      ObxAscii.ReadChar(файл, c);
      файл := NIL;
   END ReadF;
   
END Конвертер.