{Ovrinems.PAS}
  ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
 {Sample code for the OvrInitEMS procedure.}

  uses Overlay;

 begin
   OvrInit('EDITOR.OVR');
   if OvrResult <> ovrOk then
   begin
     Writeln('Overlay manager initialization failed.');
     Halt(1);
   end;
   OvrInitEMS;
   case OvrResult of
     ovrIOError: Writeln('Overlay file I/O error.');
     ovrNoEMSDriver: Writeln('EMS driver not installed.');
     ovrNoEMSMemory: Writeln('Not enough EMS memory.');
     else Writeln('Using EMS for faster overlay swapping.');
   end;
  end;