home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / MSMOUSE1.ZIP / BAS.ZIP / QBINC.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-11-17  |  1.2 KB  |  45 lines
  1.   '*************************************************************
  2.   '*  QBINC.BAS                                                *
  3.   '*                                                           *
  4.   '*  Calling mouse functions using the INTERRUPT subprogram   *
  5.   '*                                                           *
  6.   '*  Declarations for INTERRUPT are loaded from the file      *
  7.   '*  QB.BI by the $INCLUDE metacommand.                       *
  8.   '*                                                           *
  9.   '*  Load QB.QLB into memory with QuickBASIC... QB /L QB.QLB  *
  10.   '*************************************************************
  11.  
  12.     DEFINT A-Z
  13.  
  14.   '$INCLUDE: 'QB.BI'
  15.  
  16.     DIM iReg AS RegType
  17.     DIM oReg AS RegType
  18.  
  19.   ' Initialization
  20.     CLS
  21.     PRINT "Press any key to quit"
  22.  
  23.   ' Mouse Reset and Status
  24.     iReg.ax = 0
  25.     INTERRUPT &H33, iReg, oReg
  26.  
  27.   ' Show Cursor
  28.     iReg.ax = 1
  29.     INTERRUPT &H33, iReg, oReg
  30.  
  31.   ' Wait until any key is pressed
  32.     DO
  33.     LOOP WHILE INKEY$ = ""
  34.  
  35.   ' Hide Cursor
  36.     iReg.ax = 2
  37.     INTERRUPT &H33, iReg, oReg
  38.  
  39.   ' Reset mouse
  40.     iReg.ax = 0
  41.     INTERRUPT &H33, iReg, oReg
  42.  
  43.     END
  44.  
  45.