ovrgrtry.pas

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