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)