(*~\Глагол\Отделы\Поле\~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**)                           ОТДЕЛ Черта;
(*============================================================================* 
 * НАЗНАЧЕНИЕ: горизонтальная или вертикальная черта
 *============================================================================*)

ИСПОЛЬЗУЕТ 
  Надел,
  Поле,
        (*  \Глагол\               *)
  Окно    ИЗ "..\..\Отделы\Обмен\",
  Ввод    ИЗ "..\..\Отделы\Обмен\";

ВИД
  Доступ- = ДОСТУП К Вид;     (* Черта.Доступ <- Надел.Доступ <- Рамка.Доступ *)
                     Вид- =
  НАБОР (Надел.Вид)           (* Черта.Вид    <- Надел.Вид    <- Рамка.Вид    *)
(*      расширяем пустым набором Черта.Вид опору Надел.Вид *)
  КОН;

(*-----------------------------------------локальная ЗАДАЧА-------------------*)
ЗАДАЧА                                             (* (Черта.Вид <- Надел.Вид)*)(* приём посылок из вне (снаружи) *)
       Приём(наделД:Надел.Доступ;
           посылка+:Ввод.нПосылка); (* = Пустой.Вид; - абстрактный опорный набор *)
УКАЗ      (*
           * наделД:Надел.Доступ; - НЕ надо преобразовывать в Черта.Доступ
           *)
  ДЛЯ           (* анализ многоформия (полиморфизма) у <посылка> = Пустой.Вид *)
           посылка
  ВИДА
  | Поле.нОтрисовка: Окно.Чёрточка(наделД.вс,
                                   наделД.лк,
                                   наделД.нс,
                                   наделД.пк
                                  )
  ИНАЧЕ
  КОН
КОН Приём;

(*~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~общедоступная ЗАДАЧА~~~~~~~~~~~~~~~~~~~*)
ЗАДАЧА                                                           (*(Черта.Вид)*)
       Создать-(верх, лево,
                строк,колонок:ЦЕЛ):Черта.Доступ;
ПЕР
                    чертаД:Черта.Доступ;
УКАЗ
            СОЗДАТЬ(чертаД);
  Надел.Подготовить(чертаД,
                      верх,
                      лево,
                     строк,
                   колонок,
     {Надел.признакГлухой},
                     Приём   (* посылок для <наделД> *)
                   );
            ВОЗВРАТ чертаД
КОН Создать;

КОН Черта.
