{***********************************************************************}
{									}
{ __VerfyFil  Return or set the disk verify flag			}
{									}
{ function  __VerfyFil(SetFlag,FlagValue : boolean) : boolean		}
{									}
{   SetFlag   If TRUE, set the verify flag to the value of FlagValue.	}
{   FlagValue The value to which the disk verify flag is set if SetFlag }
{	      is TRUE.	The parameter is ignored if SetFlag is FALSE.	}
{									}
{ Description When the DOS disk verify switch is on, DOS performs a	}
{	      verify operation each time it writes to disk.  Although	}
{	      disk errors are generally very rare, by setting the	}
{	      verify flag you can be assured that critical data is	}
{	      recorded correctly.					}
{									}
{	      __VerfyFil returns the current flag setting as the	}
{	      function value, and if the parameter SetFlag is TRUE,	}
{	      sets the verify flag to the value specified in FlagValue. }
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

function __VerfyFil(SetFlag,FlagValue : boolean) : boolean;

  var
    Reg : registers;

  begin {__VerfyFil}

    with Reg do
      begin
	if (SetFlag) then
	   begin
	     AH := $2E; 	       { Set the verify flag		}
	     AL := byte(FlagValue);    { 0 = off; 1 = on		}
	     DX := 0
	   end
	else
	   AH := $54;		       { Return Verify setting		}
	Intr(_DOS,Reg);
	__VerfyFil := boolean(AL)
      end

  end;	{__VerfyFil}
