*copyc ost$string

  FUNCTION nfp$string_length
    (    input_string: string ( * )): integer;

{}

    VAR
      string_length: ost$string_size;

{}
    string_length := STRLENGTH (input_string);
    WHILE (string_length > 0) AND (input_string (string_length) = ' ') DO
      string_length := string_length - 1;
    WHILEND;
    nfp$string_length := string_length;
{}
  FUNCEND nfp$string_length;
