From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,e9b3af563ee9322a
X-Google-Attributes: gid103376,public
From: Larry Coon <larry@assist.org>
Subject: Re: Interrupt Calls
Date: 1997/11/21
Message-ID: <3475CE2D.5424@assist.org>#1/1
X-Deja-AN: 291259472
References: <01bcee03$8908d020$cd3663c3@default>
 <879298443.76snx@jvdsys.nextjk.stuyts.nl>
 <01bcf06a$ba1d1900$933e63c3@default> <3474f235.0@silver.truman.edu>
Organization: University of California
Reply-To: larry@assist.org
Newsgroups: comp.lang.ada
Date: 1997-11-21T00:00:00+00:00
List-Id: <comp.lang.ada>


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