home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MKSCREN2.ZIP / CAPITAL.PAS next >
Encoding:
Pascal/Delphi Source File  |  1987-04-10  |  147 b   |  7 lines
  1. procedure capitalize(var str : str80);
  2. var
  3.  index : integer;
  4. begin
  5.  for index := 1 to length(str) do str[index] := upcase(str[index]);
  6. end;
  7.