First_Capital


Purpose   Returns the first capital letter in a string.

Decln.    First_Capital(Str:string):char;

Returns   Char

Remarks   Str is the source string.

          The function returns a null #0 if the string does not contain any
          capital letters.

Example

VAR
  CAP : CHAR;
BEGIN
    CAP := FIRST_CAPITAL('3 LOAD');
END;

The variable Cap is updated with the value 'L'.