home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / JSAGE / ZSUS / PROGPACK / NZ-TURBO.LBR / CAPSTR.PRO < prev    next >
Text File  |  2000-06-30  |  128b  |  7 lines
  1. Procedure CAPSTR(Var S:strng);
  2. Var I : Integer;
  3. Begin
  4.   For i := 1 to Length(s) do s[i] := UpCase(s[i])
  5. End;
  6.  
  7.