-- http://atlas.cs.york.ac.uk/Information/VT100.html
--
--
with Ada.Text_IO;
use Ada.Text_IO;

procedure Term is

begin
   Put("Hello term!");
   PUT( ASCII.ESC );
   PUT_LINE( "[2J" ); -- clear screen.
   Put("again!"); 
   PUT( ASCII.ESC );
   PUT_LINE( "[3;H" ); -- move cursor up.
   Put("and again!");
end Term;