#include <dos.h>
#include <ClipApi.h>

CLIPPER lMkDir()
{
   char * szDirName = _parc( 1 );

   asm push ds;
   _AH = 0x39;
   _DS = FP_SEG( szDirName );
   _DX = FP_OFF( szDirName );
   asm int 0x21;
   asm pop ds;

   _retl( !( _FLAGS & 1 ) );
}
