Proper                                                        StrngTTT



Purpose   To convert a string so that each word begins with an
          uppercase letter.

Returns   String;

Declaration    Proper(Str:string): string;

          Str is the string to be converted

Uses StrngTTT.



Remarks   Only the alphabet (a..z) is affected.

Example


               USES STRNGTTT;
               VAR TTT : STRING;
               BEGIN
                 TTT := PROPER('R D AINSBURY');
               END.


The string TTT is assigned the value "R D Ainsbury".