{
{   The purpose  of  this  function  is  to  return  the size of a string once
{ trailing space characters have been removed from  it.   The  horizontal  tab
{ (HT)  in addition to the space are considered to be space characters by this
{ function.
{
{       CLP$TRIMMED_STRING_SIZE (STR): TRIMMED_STRING_SIZE
{
{ STR: (input) This parameter specifies the string for which the trimmed  size
{       is to be returned.
{
