with
  Terminal_Interface.Curses;

with Bounce;

procedure Bouncer_2D is
   use
     Terminal_Interface.Curses;
   Key : Real_Key_Code;
begin
   Bounce.Set_Up;
   loop
      Key := Get_Keystroke;
      if Key in Normal_Key_Code then
         case Character'Val (Key) is
            when 'q' | 'Q' =>
               exit;
            when 'f' =>
               Bounce.Ball.TTM.X := Bounce.Ball.TTM.X - 1;
            when 'F' =>
               Bounce.Ball.TTM.Y := Bounce.Ball.TTM.Y - 1;
            when 's' =>
               Bounce.Ball.TTM.X := Bounce.Ball.TTM.X + 1;
            when 'S' =>
               Bounce.Ball.TTM.Y := Bounce.Ball.TTM.Y + 1;
            when others =>
               null;
         end case;
      end if;
   end loop;
   Bounce.Wrap_Up;
end Bouncer_2D;