Ага. Понял

## Код:
```
PROCEDURE (F: TextFile) Register* (name: Files.Name; type: Files.Type; ask: BOOLEAN; OUT res: INTEGER), NEW;
VAR v: TextViews.View;
BEGIN
   ASSERT(F.IsOpen);
   ASSERT(name # "");
   v := TextViews.dir.New(F.text); (* <-- *)
   F.exporter(v, F.file);
   F.file.Register (name, type, ask, res)
END Register;
```
