(******************************************************************************)
(**)                        ОТДЕЛ Положение; 
(******************************************************************************
 * НАЗНАЧЕНИЕ: отрисовка положения указки на холсте
 * ПРИМЕЧАНИЕ: занимает 15 знакомест, не имеет своего цвета,
 *             отрисовывается только по требованию холста
 ******************************************************************************)
ИСПОЛЬЗУЕТ 
  Надел ИЗ "...\Отделы\Поле\",
  Поле  ИЗ "...\Отделы\Поле\",
  Холст ИЗ "...\Отделы\Поле\",
  Текст ИЗ "...\Отделы\Числа\",
  Окно  ИЗ "...\Отделы\Обмен\",
  Ввод  ИЗ "...\Отделы\Обмен\"; 

ВИД
  Доступ-=ДОСТУП К Вид; 
  Вид-=НАБОР(Надел.Вид) КОН; 

(******************************************************************************)
ЗАДАЧА Приём(надел:Надел.Доступ;  посылка+:Ввод.Посылка); 
ПЕР
  положение:Доступ; 
  холст:Холст.Доступ; 
  надпись:Надел.Надпись; 
  вс,лк,нс,пк:ЦЕЛ; 
УКАЗ
  положение:=надел(Доступ); 
  вс:=положение.вс; 
  лк:=положение.лк; 
  нс:=положение.нс; 
  пк:=положение.пк; 
  ДЛЯ посылка ВИДА
  | Поле.Отрисовка:
      Окно.ЦветнойПробел(вс,лк,нс,пк,Надел.цОбычный)
  | Холст.Посылка:
      холст:=посылка.холст; 
      Текст.ИзЧЦел("%c %d(%d):%d          ", (* ширина: 3+5+1+5+1+3=18 *)
        ВЦЕЛ(холст.изменён),холст.указка.с+1,холст.пс+1,холст.указка.к+1,надпись); 
      Окно.Цвет(вс,лк,нс,пк,Надел.цОбычный); 
      Окно.Цепь(вс,лк,нс,пк,надпись)
  ИНАЧЕ
  КОН             
КОН Приём; 

(******************************************************************************)
ЗАДАЧА Создать-(вс,лк:ЦЕЛ):Доступ; 
ПЕР
  положение:Доступ; 
УКАЗ
  СОЗДАТЬ(положение); 
  Надел.Подготовить(положение,вс,лк,1,0,{},Приём); 
  ВОЗВРАТ положение
КОН Создать; 

КОН Положение.

▲ Вопросы, замечания и предложения высылайте на atimopheyev@yahoo.com или Издателю Глагола: