home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol023 / capstr.lib < prev    next >
Encoding:
Text File  |  1984-04-29  |  391 b   |  24 lines
  1.  
  2. {    CAPSTR
  3.  
  4.     Scans a string and capitalizes any lower case letters
  5.     encountered. Other characters are not affected.
  6.  
  7.     Requires gobally declared
  8.         TYPE    string255 = string 255;
  9.             byte = 0..255;
  10.         PROCEDURE capchar;
  11. }
  12.  
  13. PROCEDURE capstr (VAR str : string255);
  14.  
  15. CONST    offset = 32;
  16.  
  17. VAR    ch : char;
  18.     loc : byte;
  19.  
  20. begin
  21.     for loc := 1 to length(str) do capchar(str[loc])
  22. end;
  23.  
  24.