Вот примерчик
## Код:
```
PROCEDURE LoadStringList*(name: Files.Name;VAR a:Dialog.List);
   VAR s:Dialog.String;
         loc: Files.Locator;  
         v: Views.View; t: TextModels.Model; 
         r:TextModels.Reader;
         i,n:INTEGER;
         ch:CHAR;
   BEGIN
      v := Views.OldView(Files.dir.This(""), name$);
      n:=0;
      IF (v # NIL) & (v IS TextViews.View) THEN
         t := v.ThisModel()(TextModels.Model);
         r:=t.NewReader(NIL);
         i:=0;
         WHILE (~r.eot) DO
            r.ReadChar(ch);   
            IF (ch = TextModels.line) OR (ch = TextModels.para) THEN
               s[i]:= 0X;
              IF s$#"" THEN
                  a.SetItem(n,s); INC(n)
               END;
               i:=0;
            ELSE
               s[i]:= ch;
               INC(i)
            END;
         END;
      END
   END LoadStringList;
```
