Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!ut-emx!ccwf.cc.utexas.edu
From: mjensen@ccwf.cc.utexas.edu (Marc S. Jensen)
Newsgroups: comp.lang.pascal
Subject: Re: Cursor
Message-ID: <40342@ut-emx.uucp>
Date: 29 Nov 90 05:11:18 GMT
References: <1990Nov27.161904.30603@wpi.WPI.EDU>
Sender: news@ut-emx.uucp
Reply-To: mjensen@ccwf.cc.utexas.edu (Marc S. Jensen)
Organization: The University of Texas at Austin
Lines: 27

In article <1990Nov27.161904.30603@wpi.WPI.EDU> kamal@wpi.WPI.EDU (Kamal Z Zamli) writes:
>I need to make the cursor invisible.... If I'm not mistaken I could use Bios
>service to do that. I tried to scan my MS DOs book but could 'nt find it.
>Any help would be appreciated.

Try this:

procedure kill_cursor;
    var
        regs : registers;
    begin
        regs.AX := $0100;
        regs.CX := $2607;
        intr($10,regs)
    end;

You can try changing the value of regs.CX to get a variety of different
cursor shapes and sizes.


-- 

Marc Jensen
mjensen@ccwf.cc.utexas.edu
University of Texas at Austin
-----
"Never attribute to malice that which is adequately explained by stupidity!"