The Mouse

 BBS: Inland Empire Archive
Date: 11-26-92 (17:33)             Number: 381
From: GERALD JORDAN                Refer#: NONE
  To: BRAD BARTLETT                 Recvd: NO  
Subj: The Mouse                      Conf: (2) Quik_Bas

'BB> I posted a message earlier about how to use the mouse in QuickBasic
'Try this;
SUB mouse (a, b, c, d)
SHARED reg AS RegType
reg.ax = a
reg.bx = b
reg.cx = c
reg.dx = d
CALL Interrupt(&H33, reg, reg)
a = reg.ax
b = reg.bx
c = reg.cx
d = reg.dx
END SUB

SUB CursorLocate (X, Y, Button)
a = 3
b = 0
c = 0
d = 0
mouse a, b, c, d
Button = b
X = c / 8 + 1     'X coordinate of cursor
Y = d / 8 + 1     'Y coordinate of cursor
END SUB

DO
  CursorLocate X,Y,Button
LOOP UNTIL Button
SELECT CASE X
  IF X = 'wherever  THEN
  SELECT CASE Y
   CASE 3
    'DO SOMETHING
   CASE 10
    'DO SOMETHING
   END SELECT
   END IF
END SELECT

'Hope this will get you going.May be some error but should be OK.

 * SLMR 2.1a * FOR A = 1 TO INFINITY PRINT "HELP" NEXT HELPHELPHELPHELPH
---
 * Origin: V. P. BBS|(904)362-4559|V32bis|Tradewars 2002 (1:3600/11)