{***********************************************************************}
{									}
{ __StdIFil   Assign standard input to Turbo Pascal Input text file	}
{									}
{ procedure __StdIFil;							}
{									}
{ Description This procedure assigns standard input to the Turbo Pascal }
{	      predefined text file, Input.  If the CRT unit is used,	}
{	      Input is no longer associated with standard input.	}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

procedure __StdIFil;

  begin {__StdIFil}

    Assign(Input,'');
    Reset (Input)

  end;	{__StdIFil}
