{ CAPSTR

  Scans a string and capitalizes any lower case letters
  encountered. Other characters are not affected.

  Requires gobally declared
    TYPE    string255 = string 255;
	    byte = 0..255;

    FUNCTION toupper( ch: char ): char; external;
}
PROCEDURE capstr (VAR str : string255);
CONST	offset = 32;
VAR	ch : char;
	loc : byte;
begin
  for loc := 1 to length(str) do 
    str[loc] := toupper( str[loc] )
end;
fset = 32;
VAR	ch : char;
	loc : byte;
begin
  for loc := 1 to len