CONST  path0 = "i21sys/Rsrc/";

   PROCEDURE Get (VAR s: Scanner; OUT ch: CHAR);
   BEGIN
      s.rider.ReadChar(ch);
      IF ({returnViews, maskViews} * s.opts = {returnViews}) & (s.rider.view # NIL) THEN
         ch := VIEW; s.rider.char := VIEW
      END
   END Get;

   PROCEDURE Get (VAR s: Scanner; OUT ch: CHAR);
   BEGIN
      s.rider.ReadChar(ch);
   END Get;

PROCEDURE Open* ( path: ARRAY OF CHAR;  name: Files.Name ); (* path relative to path0 *)
      VAR  loc: Files.Locator;  i: INTEGER;  fullName: Files.Name;
         conv: Converters.Converter;  v: Views.View;
   BEGIN
      ...
      sc.ConnectTo( v( TextViews.View ).ThisModel() );
      sc.SetOpts( { TextMappers.returnViews } ); (* используем вьюшку для отметки конца списка, поэтому хотим, чтобы sc ее не игнорировал, тогда мы тут засечем ее *)
      ...
   END Open;

sc.SetOpts( { TextMappers.returnViews, TextMappers.maskViews } );