{***********************************************************************}
{									}
{ __RetDrFil  Return the default disk drive				}
{									}
{ function  __RetDrFil : char;						}
{									}
{ Description __RetDrFil returns the current default disk drive.	}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

function __RetDrFil : char;

  var
    Reg : registers;

  begin  {__RetDrFil}

    with Reg do 		       { Call DOS function $19		}
      begin
	AH := $19;
	Intr(_DOS,Reg);
	__RetDrFil := char(byte('A') + AL)
      end

  end;	{__RetDrFil}
