{***********************************************************************}
{									}
{ __RightStr  Extract the right most characters of a string		}
{									}
{ function  __RightStr(Source : string; ChPos : word) : string; 	}
{									}
{	      Source	Any string expression.	The right most char-	}
{			acters of Source are returned starting at char- }
{			acter position ChPos.				}
{	      ChPos	All characters from this position and to the	}
{			right of the string are returned.		}
{									}
{ Description __RightStr returns the right most characters from the	}
{	      string Source starting at the character whose position is }
{	      specified by ChPos. If ChPos is greater than the length of}
{	      the source string, the  empty string is returned, and if	}
{	      ChPos is less than 1, the entire string is returned.	}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc.  1987		}
{_______________________________________________________________________}

function  __RightStr(Source : string; ChPos : word) : string;

  begin {__RightStr}

    __RightStr := Copy(Source,ChPos,MAXSTR_)

  end;	{__RightStr}
