{***********************************************************************}
{									}
{ __SpInsPrt  Return the installation status of the print spooler	}
{									}
{ function  __SpInsPrt : boolean;					}
{									}
{ Description This function returns TRUE if the DOS print spooler pro-	}
{	      gram, PRINT, has been installed; otherwise FALSE is	}
{	      returned.  The program PRINT is available only for	}
{	      systems using DOS 3.00 and later; hence the function	}
{	      returns FALSE when earlier versions than 3.00 are in-	}
{	      stalled.							}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc. 1987		}
{_______________________________________________________________________}

function __SpInsPrt : boolean;

  var
    Reg : registers;

  begin {__SpInsPrt}

    if (_DOSMajorVer < 3) then
       __SpInsPrt := FALSE
    else			       { For DOS 3.00 and later, call	}
       with Reg do		       { interrupt $2F. 		}
	 begin
	   AH := 1;
	   AL := 0;
	   Intr(_PRINT,Reg);
	   __SpInsPrt := (AL = $FF)
	 end

  end;	{__SpInsPrt}
