Changing Strings to Upper or Lower Case

with Ada.Strings.Maps.Constants;
with Ada.Strings.Fixed;
with Ada.Text_IO; use Ada.Text_IO;

procedure Test is
   Test_String : String := "Hello World!";
begin
   -- Display Original String
   Put_Line(Test_String);

   -- Change String to all Upper Case and Display
   Put_Line(Ada.Strings.Fixed.Translate(Test_String,
     Ada.Strings.Maps.Constants.Upper_Case_Map));

   -- Change String to all Lower Case and Display
   Put_Line(Ada.Strings.Fixed.Translate(Test_String,
     Ada.Strings.Maps.Constants.Lower_Case_Map));

end Test;