'===========================================================================
' Subject: SIMPLE MOUSE ROUTINE              Date: Unknown Date (00:00)   
' Author:  Unknown Author(s)                 Code: QB, PDS                
' Keys:    SIMPLE,MOUSE,ROUTINE            Packet: MOUSE.ABC
'===========================================================================
'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
SHOWMOUSE

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