[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]