Path: utzoo!utgpu!watserv1!watmath!att!att!linac!uwm.edu!psuvax1!rutgers!gatech!purdue!mentor.cc.purdue.edu!j.cc.purdue.edu!brazil.psych.purdue.edu!zhou
From: zhou@brazil.psych.purdue.edu (Albert Zhou)
Newsgroups: comp.lang.pascal
Subject: Re: Cursor
Message-ID: <11582@j.cc.purdue.edu>
Date: 28 Nov 90 05:40:59 GMT
References: <1990Nov27.161904.30603@wpi.WPI.EDU>
Sender: news@j.cc.purdue.edu
Reply-To: zhou@brazil.psych.purdue.edu (Albert Zhou)
Organization: Purdue University
Lines: 22


You can use Interrupt $10 to hide or reveal cursor. Here is the code:

To hide cursor:

	With Regs do 
	begin
		AH := 1;
     		CH := MEM[$40:$61] AND $1F;
		CL := MEM[$40:$60];
	end;
	Intr($10, Regs);

To reveal cursor:

	With Regs do
	begin
		AH := 1;
		CH := MEM[$40:$61] OR $20
		CL := MEM[$40:$60];
	end;
 	Intr($10, Regs)