Очередной пример, как просто в ББ добавляются такие функции. Понадобилось брать в кавычки много слов (двойной клик - выделил слово, Ctrl+F1 - в кавычки).## Код:
```
MODULE WorkQuote;

   IMPORT
      TextModels, TextControllers, Models, Stores;

   PROCEDURE Quote (text: TextModels.Model; beg, end: INTEGER);
      VAR   script: Stores.Operation; wr: TextModels.Writer;
   BEGIN
      wr := text.NewWriter(NIL);
      Models.BeginScript(text, "#Work:Quoting", script);
      wr.SetPos(end); wr.WriteChar('"');
      wr.SetPos(beg); wr.WriteChar('"');
      Models.EndScript(text, script)
   END Quote;
   
   PROCEDURE Do*;
   (* guard: TextCmds.SelectionGuard *)
      VAR   c: TextControllers.Controller; beg, end: INTEGER;
   BEGIN
      c := TextControllers.Focus();
      IF (c # NIL) & c.HasSelection() THEN
         c.GetSelection(beg, end);
         Quote(c.view.ThisModel(), beg, end)
      END
   END Do;

END WorkQuote.
```
## Код:
```
MENU "Wo&rk"
...
   "Quote"   "^F1"   "WorkQuote.Do"   "StdCmds.SelectionGuard"
END
```
