Re: GOTOXY in Ada ?

[kst@alsys.com (Keith Thompson)]

In <3c8lsq$rhu@Starbase.NeoSoft.COM> daver@Starbase.NeoSoft.COM (Dave Retherford) writes:
> Or you could 'roll your own' version:
> 
> --------
> 
> package cursor_control is
>    procedure gotoxy(x : in positive_count, y : in positive_count);
> end cursor_control;
> 
> with text_io;
> package body cursor_control is
> 
>    procedure gotoxy(x : in positive_count, y : in positive_count) is
>    begin
>       text_io.set_col(to => x);
>       text_io.set_line(to => y);
>    end gotoxy;
> 
> end cursor_control;

Sorry, this won't work.  The Set_Col and Set_Line routines won't move the
cursor to a previous line or to a previous column on the current line.
For example, if the current column number is 20, Text_IO.Set_Col(10) will
call New_Line and then output 10 spaces; likewise, Set_Line calls New_Page
if necessary (which may or may not clear the screen; typically it won't).

Note that some Unix Ada compilers provide an interface to the curses
library.

-- 
Keith Thompson (The_Other_Keith)  kst@alsys.com
TeleSoft^H^H^H^H^H^H^H^H Alsys, Inc.
10251 Vista Sorrento Parkway, Suite 300, San Diego, CA, USA, 92121-2718
/user/kst/.signature: I/O error (core dumped)