OL_IsOS2()
 Are we running under OS/2?
------------------------------------------------------------------------------

 Syntax

       OL_IsOS2() --> lOS2

 Arguments

      None.

 Returns

      .T. if we are running under OS/2, .F. if not.

 Description

      IsOS2() can be used to test if we are running under OS/2.

 Examples

      // Sample function for returning the ID of the OS.

      Function OSId()
      Local nMajor := OL_OsMaj()
      Local nMinor := OL_OsMin()
      Local cMake  := "Dos "

         If IsOS2()
            nMajor /= 10
            cMake  := "OS/2 Dos "
         EndIf

      Return( cMake + alltrim( str( nMajor ) ) + "." +;
                      alltrim( str( nMinor ) ) )


 Source: ISOS2.C

 Author: Unknown