Re: Interrupt Calls

[Larry Coon <larry@assist.org>]

Chad R. Meiners wrote:

> Okay, I now understand how to interface win32 through NT thanks to Jerry.  The
> reason I wanted the package so I could change the cursor.

BTW, if you're doing it in a DOS window (as I think I
remember reading) and you have ansi.sys loaded, this works
for cursor positioning:

package screen is
	procedure clear_screen;
	procedure move_cursor (row, col: natural);
end screen;

with ada.text_io; use ada.text_io;
package body screen is
	procedure clear_screen is
	begin
		put (character'val (27));
		put ("[2J");		
	end clear_screen;

	procedure move_cursor (row, col: natural) is
		package nat_io is new integer_io (natural);
		use nat_io;
	begin
		put (character'val (27));
		put ("[");
		put (row, width => 1);
		put (';');
		put (col, width => 1);
		put ('f');
	end move_cursor;
end screen;

Larry Coon
University of California
larry@assist.org
and lmcoon@home.com