{***********************************************************************}
{									}
{ __LeftStr   Extract the left most characters of a string		}
{									}
{ function  __LeftStr(Source : string; Num : word) : string;		}
{									}
{	      Source	The left most characters of this string are	}
{			returned.					}
{	      Num	The number of characters to extract from the	}
{			source string.	Notice that Num is just the	}
{			position of the last character to return.	}
{									}
{ Description __LeftStr returns the Num left most characters from the	}
{	      string Source.  If Num is greater than the length of the	}
{	      string Source, the entire string is returned, and if Num	}
{	      is less than 1, the empty string is returned.		}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc. 1987		}
{_______________________________________________________________________}

function  __LeftStr(Source : string; Num : word) : string;

  begin {__LeftStr}

    __LeftStr := Copy(Source,1,Num)

  end;	{__LeftStr}
