OvrClrbf.PAS
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  { Example for OvrClearBuf }

  {$M 16384,65536,655360}
  uses Overlay;
  begin
    OvrInit('EDITOR.OVR');
    if OvrResult <> ovrOk then
      Halt(1);
    WriteLn('We are going to use the overlay ',
            'buffer as some extra temporary ',
            'storage.');
    OvrClearBuf; { Flush the overlay buffer }
    { Non-overlaid code can use the overlay
      buffer for other purposes until the
      next call to an overlaid subprogram.
      The available area is OvrHeapOrg:0 to
      OvrHeapEnd:0 (Segment:Offset). }
  end.