ovrgetbf.pas

{Ovrgetbf.PAS}
 
{ Пример программы для функции OvrGetBuf }
 
{$M 16384, 65536, 655360}
 
Uses Overlay;
 
Const ExtraSize = 49152; {48Kб}
 
Begin
 OvrInit('EDITOR.OVR');
 WriteLn('Начальный размер буфера = ', OvrGetBuf,' байт.');
 OvrSetBuf(OvrGetBuf+ExtraSize);
 WriteLn('Размер буфера установлен на ', OvrGetBuf,' байт.');
End.