Mail

В этот день много лет назад...
18 июня. В 1760 году (266 лет назад) - Солидная английская газета "Лондон кроникл" посвящает пространную статью приезду графа Сен-Жермена (он же граф Калиостро и Джузеппе Бальзамо, авантюрист и мистификатор международного класса) в Лондон, в которой пересказывает парижские слухи об эликсире жизни, секретом которого владеет граф, и ставший уже знаменитым случай о том, как некая герцогиня попросила у графа флакончик этой омолаживающей жидкости. Граф выдал ей пузырек со словами, чтобы она принимала по 10 капель в месяц. Герцогиня положила снадобье в ящик, а чересчур любопытной старой камеристке сказала, что это - средство от колик. И однажды, когда герцогини не было дома, старушку замучили боли в животе. Недолго думая, она махом опрокинула пузырек, а вернувшаяся на рассвете госпожа обнаружила в своей спальне орущего младенца женского пола.

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.