with Ada.Text_IO;  use Ada.Text_IO;
with Ansi;     use Ansi;

procedure Test_Ansi is
begin
        GoToXY( 2, 1); Put("B");
        GoToXY( 1, 1); Put("A");
end Test_Ansi;