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