MOUSEQB

 BBS: Inland Empire Archive
Date: 12-05-92 (15:30)             Number: 346
From: ANDY C. OLIVER               Refer#: NONE
  To: ALL                           Recvd: NO  
Subj: MOUSEQB                        Conf: (2) Quik_Bas

'COPIED FROM COMPUTE APRIL 1992 PG 52
'ENTERED BY A. CHRISTOPHER OLIVER FOR SUPERLINK BBS.
'YOU NEED TO LOAD THIS TO THE BEGINNING OF YOUR PROGRAM.
'OR MAKE IT A LIBRARY
'SUPERLINK BBS - (904)735-2224 FRI-MON
DEFINT A-Z
'$INCLUDE QB.BI
DECLARE SUB HIDEMOUSE ()
DECLARE SUB SHOWMOUSE ()
DECLARE SUB GETMOUSECORD (K%, K3%, M4%)
DECLARE SUB STARTMOUSE ()
DIM SHARED Inregs AS RegType, Outregs AS RegType

STARTMOUSE

DO
  GETMOUSECORD K, X, Y
  LOCATE 1,1
  PRINT X, Y, K
LOOP WHILE K=0

HIDEMOUSE
END

SUB GETMOUSECORD (K%, M3%, M4%)
Inregs.ax%=3
CALL INTERRUPT(&H33, Inregs, Outregs)
M3%=Outregs.cx% /8+1
M4%=Outregs.dx% /8+1
K%=Outregs.bx%
END SUB

SUB HIDEMOUSE
Inregs.ax%=2
CALL INTERRUPT(&H33, Inregs, Outregs)
END SUB

SUB SHOWMOUSE
Inregs.ax=1
CALL INTERRUPT(&H33, Inregs, Outregs)
END SUB

SUB STARTMOUSE
Inregs.ax%=0
CALL INTERRUPT(&H33, Inregs, Outregs)
Mouseinitialize%=Outregs.ax%
END SUB


--- TMail v1.31
 * Origin: Cornucopia TBBS - Winter Park, FL - 407/645-4929 (1:363/18)