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