HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
26 ноября. В 1718 году (306 лет назад) - Петр I издает указ "О назначении рынков в Санкт-Петербурге, о наблюдении чистоты торгующими съестными припасами и о ношении ими белых мундиров". По этому указу запрещается торговля вдоль больших улиц, поскольку "проезд по большой дороге от тесноты за многолюдством весьма труден". На городских рынках всем торговцам в мясном и рыбном рядах надлежит под страхом крупного штрафа носить белые мундиры. Пусть немного на военный манер, но Петр I все же продемонстрировал свое желание решать вопросы гигиены в своем невском "парадизе".
 
 

Turbo Pascal Documentation

Процедура OvrGetBuf

Модуль Overlay


     Функция: Возвращает текущий размер оверлейного буфера.
     Описание: OvrGetBuf
     Тип результата: Длинный целый (longint).
     Примечания: Размер оверлейного буфера устанавливается с
помощью обращения к процедуре OvrSetBuf. Первоначально овер-
лейный буфер имеет минимальный возможный размер,  соответст-
вующий  размеру наибольшего оверлея. При выполнении оверлей-
ной программы буфер такого размера выделяется автоматически.
(Замечание:  Начальный  размер  буфера  может превышать 64К,
поскольку он включает в себя и код  наибольшего  оверлея,  и
его корректировочную информацию).
     Прочее:  См.  также  процедуры   OvrInit,   OvrInitEMS,
OvrSetBuf.
     Пример:

  {M 16384,65536,655360 }
  use Overlay;
  const
    ExtractSize = 49152; { 48K }
  begin
    OvrInit('EDITOR.OVR');
    Writeln('Начальный размер оверлейного буфера = ',
             OvrGetBuf, 'байтов');
    OvrSetBuf(OvrGetBuf+ExtractSize);
    Writeln('Размер оверлейного буфера увеличен теперь до ',
             OvrGetBuf, 'байтов');
  end.




HOME