ovrclrbf.pas

Пример программы для OvrClearBuf.

Код примера
 {OvrClrbf.PAS}
 
 { Пример программы для OvrClearBuf }
 
 {$M 16384, 65536, 655360}
 
 Uses Overlay;
 
 Begin
  OvrInit('EDITOR.OVR');
  If OvrResult <> ovrOk Then Halt(1);
  WriteLn('Пробуем использовать буфер оверлеев ',
          'как дополнительную память.');
  OvrClearBuf; { Очищаем буфер оверлев }
  { Не оверлейный код теперь может использовать
    место, занимаемое буфером оверлеев для
    своих нужд, то тех пор, пока не будет сделан
    вызов оверлейной подпрограммы. Доступное
    адресное пространство : от OvrHeapOrg:0
    до OvrHeapEnd:0 (Сегмент:Смещение). }
 End.

Скачать ovrclrbf.pas