Re: Clear Screen

[rawlins2@marshall.edu (bill)]

well just my $.02 on this subject is..i made a screen package which would 
handle the clearing of the screen and moving my cursor around to whereever on 
the screen i wanted it.   the package will also provide a beep(on some systems 
:O)..just not my home pc..but on a VAX  vt100 terminal it does..

good luck

the spec code is...

package screen is

height :constant integer :=24;
width :constant integer :=80;

subtype d is integer range 1..height;
subtype w is integer range 1..width;

procedure beep;
procedure clearscreen;
procedure gotoyx (y: d; x:w);

end screen;


then the package body is

with text_io;
use text_io;
with ada.integer_text_io;
use ada.integer_text_io;
package body screen is

procedure beep is
begin
        put("ascii.bel");
end beep;

procedure clearscreen is
cs :constant string:=(character'val(27) & "[2J");
begin
        put_line(cs);
end clearscreen;

procedure gotoyx (y:d;x:w) is

begin
text_io.put(item=>ascii.esc);
text_io.put(item=>'[');
my_int_io.put(y,width=>1);
put(item=>';');
my_int_io.put(x,width=>1);
put(item=>'f');
end gotoyx;

end screen;




Bill Rawlinson