Uses
   dxutil_environment;

Var
   Loop:LongWord;
   StartTime:Comp;
   S,Result:AnsiString;
   Loop2:LongInt;

Begin
   S:='AbCdEfGhIjKlMnOpQrStUvWxYz';
   Writeln('Uppercase()');
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do begin
      Result:=S;
      for Loop2 := Length(Result) downto 1 do
         if Result[Loop2] in ['a'..'z'] then Dec(Result[Loop2], 32);
   end;
   System.Write('In ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do begin
      Result:=S;
      for Loop2 := Length(Result) downto 1 do
         if (Ord(Result[Loop2])>=Ord('a')) and
            (Ord(Result[Loop2])<=Ord('z')) then Dec(Result[Loop2], 32);
   end;
   System.Writeln(' If ',Trunc(Trunc(TimeCounter)-StartTime));
end.