Re: Mouse Routines...

 BBS: Inland Empire Archive
Date: 03-07-93 (07:39)             Number: 399
From: BOB PERKINS                  Refer#: NONE
  To: JIM COYLE                     Recvd: NO  
Subj: Re: Mouse Routines...          Conf: (2) Quik_Bas

 JC> will come in VERY handy!  You don't by any chance know how
 JC> to change the mouse cursor? Thanks again.

  In text mode, I can show you how to change it to any
character/attribute you wish.  To use an ASCII 4 (diamond
shape) in bright white on red you'd use:

 ...
 foreground% = 15 :background% = 4
 attribute% = foreground% + (background% * 16)
 character% = 4
 txtcurs character%, attribute%
 ...

  Here's the SUB..

 '$INCLUDE: 'QB.BI'
 DECLARE SUB txtcurs (character%, attribute%)


 SUB txtcurs (character%, attribute%)
 dim regs as regtype
 '
 'define cursor character and attribute
 '
 regs.ax = &HA
 regs.bx = 0
 regs.cx = 0
 regs.dx = (attribute% * 256) + character%
 '
 interrupt &H33, regs, regs
 '
 END SUB



--- Msg V4.5
 * Origin: Reciprocity Failure  (1:124/4115.236)