MOUSE IN QB

 BBS: Inland Empire Archive
Date: 11-23-92 (18:18)             Number: 269
From: FRED DISANO                  Refer#: NONE
  To: BRAD BARTLETT                 Recvd: NO  
Subj: MOUSE IN QB                    Conf: (2) Quik_Bas
 Ok Brad, here's a couple of mouse routines that will work
in graphic and text modes:
 rem $include:'qb.bi'
dim iregs as regtypex,oregs as regtype

'init mouse
iregs.ax=&h0
interruptx &h33,iregs,oregs
stat=oregs.ax
buttons=oregs.bx
'note that stat=0 means no mouse while stat=-1 means there is
'buttons of course returns the buttons

'show cursor
iregs.ax=&h1
interruptx &h33,iregs,oregs

do
 iregs.ax=&h3

interruptx &h33,iregs,oregs
butt=oregs.ax and 7
col=oregs.cx
row=oregs.dx
locate 2,1:?"x";x;"y";y;"button:";butt
loop until butt=2  'press right button to end

'note: to hide the cursor simple change the &H1 in 'show cursor to &h2

 Take Care....FRed

--- Maximus 2.01wb
 * Origin: QuickShare Canada Point * Orleans, ON (613)830-2802 (1:163/518)
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