А код будет выглядеть (схематично) так:
## Код:
```
PROCEDURE Do* ;
      VAR fm: FormModels.Model;
            fv: FormViews.View;
            tm: TextModels.Model;
            tv: TextViews.View;
            wr: TextModels.Writer;
   BEGIN
      fm := FormModels.dir.New();
      fv := FormViews.dir.New(fm);
      fv.SetBackground(0FFFFFFH);
      tm := TextModels.dir.New();
      wr := tm.NewWriter(NIL);
                (*
                    пишем через wr шапку
                *)
      wr.WriteView(fv, 10*36000, 200*36000);
                (* засовываем форму, накидываем на форму
через ее fm.NewWriter()  графики и т.п. *)
      tv := TextViews.dir.New(tm);
      Views.OpenAux(tv, "Отчет")
                (* открываем документ *)
   END Do;
```
