[Back to EXEC SWAG index]  [Back to Main SWAG index]  [Original]

{ Have NO IDEA what the message say ..  they are in Russian ! GDAVIS}
{$IFDEF VIRTUALPASCAL}
��ª¨¥ ¢ OS/2 ¢®®¡é¥ ­®£
â ¡ëâì ®¢¥p«¥¨ ? �ë ¢ ᢮¥­
­¥ ? :)
{$ENDIF}
{$IFDEF DPMI}
��ª¨¥ ¢ DPMI ¢®®¡é¥ ­®£
â ¡ëâì ®¢¥p«¥¨ ? �ë ¢ ᢮¥­
­¥ ? :)
{$ENDIF}
{$IFDEF OS2}
��ª¨¥ ¢ OS/2 ¢®®¡é¥ ­®£
â ¡ëâì ®¢¥p«¥¨ ? �ë ¢ ᢮¥­
­¥ ? :)
{$ENDIF}

Unit MainOvr;
Interface

Uses Overlay,Dos;

Implementation

{.$DEFINE BUILDEXE}

Var
   Ovr_Name : PathStr;
          D : DirStr;
          N : NameStr;
          E : ExtStr;

Begin
  FSplit(ParamStr(0),D,N,E);
{$IFDEF BUILDEXE}
  Ovr_Name:=D+N+'.EXE';
{$ELSE}
  Ovr_Name:=D+N+'.OVR';
{$ENDIF}
  Repeat
    OvrInit(ovr_name);
    If OvrResult=OvrNotFound
      Then
        Begin
          WriteLn('�¢¥à«¥©�ë© ä�©« �¥ ��©¤¥� : ',ovr_name);
          Write  ('�¢¥¤¨â¥ ¯à�¢¨«ì�®¥ ¨­ï :');
          ReadLn(Ovr_Name);
        End;
  Until OvrResult<>OvrNotFound;
  If OvrResult<>OvrOk
    Then
      Begin
        WriteLn('�訡ª� �¤­¨�¨áâà�â®à� ®¢eà«¥¥¢ ',OvrResult);
{$IFDEF STONYBROOK}
        Halt(1);
{$ELSE}
        RunError;
{$ENDIF}
      End;
  OvrInitEMS;
  If OvrResult<>OvrOk
    Then
      Begin
        Case OvrResult Of
          OvrNoEMSDriver : Write('�à�©¢¥à EMS �¥áâ��®¢«¥�');
          OvrNoEMSMemory : Write('��«® ᢮¡®¤�®© EMS ¯�­ïâ¨');
          OvrIOError     : Write('�訡ª� çâ¥�¨ï ä�©«�');
        End;
        Write(' - EMS ¯�­ïâì �¥ ¨á¯®«ì§¥âáï.');
      End;
  OvrSetRetry(OvrGetBuf div 3);
end.

[Back to EXEC SWAG index]  [Back to Main SWAG index]  [Original]