CLIPPER HB_ARGC( void )
{
   _retni( __argc - 1 );
}

CLIPPER HB_ARGV( void )
{
   if( ISNUM( 1 ) )
   {
      int argc = _parni( 1 );

      _retc( ( argc >= 0 && argc < __argc ) ? __argv[ argc ] : "" );
   }
   else
      _retc( "" );
}

CLIPPER HB_COLORIN( void )
{
   if( ISCHAR( 1 ) && ISNUM( 2 ) )
   {
      char * pszColor = _parc( 1 );
      USHORT uiColorPos;
      USHORT uiColorLen;
      USHORT uiColorIndex = ( USHORT ) _parni( 2 );

      /* Skip the given number of commas */

      for( uiColorPos = 0 ; pszColor[ uiColorPos ] != '\0' && uiColorIndex > 0 ; uiColorPos++ )
      {
         if( pszColor[ uiColorPos ] == ',' )
            uiColorIndex--;
      }

      /* if found, continue */

      if( uiColorIndex == 0 )
      {
         /* Skip the spaces after the comma */

         while( pszColor[ uiColorPos ] == ' ' ) uiColorPos++;

         /* Search for next comma or end of string */

         uiColorLen = 0;

         while( pszColor[ uiColorPos + uiColorLen ] != '\0' &&
                pszColor[ uiColorPos + uiColorLen ] != ',' ) uiColorLen++;

         /* Skip the trailing spaces */

         while( uiColorLen > 0 &&
                pszColor[ uiColorPos + uiColorLen - 1 ] == ' ' ) uiColorLen--;

         /* Return the string */

         _retclen( pszColor + uiColorPos, uiColorLen );
      }
      else
         _retc( "" );
   }
   else
      _retc( "" );
}

CLIPPER HB_STOD( void )
{
   /* The length check is a fix to avoid buggy behaviour of _retds() */
   _retds( ( ISCHAR( 1 ) && _parclen( 1 ) == 8 ) ? _parc( 1 ) : "        " );
}

CLIPPER STOD( void )
{
   /* The length check is a fix to avoid buggy behaviour of _retds() */
   _retds( ( ISCHAR( 1 ) && _parclen( 1 ) == 8 ) ? _parc( 1 ) : "        " );
}

FUNCTION HB_OSNEWLINE()
   RETURN Chr( 13 ) + Chr( 10 )

FUNCTION HB_ANSITOOEM( cString )
   RETURN cString

FUNCTION HB_OEMTOANSI( cString )
   RETURN cString

FUNCTION HB_TRACESTATE( nValue )
   RETURN 0

FUNCTION HB_TRACELEVEL( nValue )
   RETURN 0

FUNCTION HB_COMPILER()
   RETURN iif( "5.3" $ Version(), "Microsoft C 8.0", "Microsoft C 5.1" )

PROCEDURE HB_KEYPUT( nKey )

   KEYBOARD Chr( nKey )

   RETURN

FUNCTION HB_SHADOW( t, l, b, r, a )
   RETURN dbgShadow( t, l, b, r, a )

FUNCTION HB_VALTOSTR( xValue )
   LOCAL cType := ValType( xValue )

   DO CASE
   CASE cType $ "CM" ; RETURN xValue
   CASE cType == "D" ; RETURN CToD( xValue )
   CASE cType == "N" ; RETURN Str( xValue )
   CASE cType == "L" ; RETURN iif( xValue, ".T.", ".F." )
   CASE cType == "U" ; RETURN "NIL"
   ENDCASE

   RETURN ""