WordCnt                                                        StrnTTT



Purpose   To count the number of words in a string.

Returns   byte;

Declaration    WordCnt(Str:string):byte;

          Str is the string to be counted

Uses StrngTTT.



Example


               USES STRNGTTT;
               VAR B : BYTE;
               BEGIN
                 B := WORDCNT('THATS ALL THE STRING FUNCTIONS, FOLKS!');
               END.


The variable B is assigned the value 6.