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..

 DECLARE SUB txtcurs (character%, attribute%)

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

--- Msg V4.5
 * Origin: Reciprocity Failure  (1:124/4115.236)
Outer Court
Echo Basic Postings

Books at Amazon:

Back to BASIC: The History, Corruption, and Future of the Language

Hackers: Heroes of the Computer Revolution (including Tiny BASIC)

Go to: The Story of the Math Majors, Bridge Players, Engineers, Chess Wizards, Scientists and Iconoclasts who were the Hero Programmers of the Software Revolution

The Advent of the Algorithm: The Idea that Rules the World

Moths in the Machine: The Power and Perils of Programming

Mastering Visual Basic .NET