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