[Info-vax] Pascal question

[Arne Vajhøj]

On 1/21/2019 11:19 AM, Emilio Moreno wrote:
> Here is another one. upcase

Weird. I don't seem to be able to find anything better
than:

program uc(input,output);

type
    string = varying [255] of char;

function upcase(s : string) : string;

var
    tmp : string;

begin
    str$upcase(tmp.body, s.body);
    tmp.length := s.length;
    upcase := tmp;
end;

var
    s1, s2 : string;

begin
    s1 := 'abc';
    s2 := upcase(s1);
    writeln(s1,'->',s2);
end.

Arne