home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / MSMOUSE1.ZIP / BAS.ZIP / QBINT.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-11-17  |  1.3 KB  |  53 lines
  1.   '*************************************************************
  2.   '*  QBINT.BAS                                                *
  3.   '*                                                           *
  4.   '*  Calling mouse functions using the INTERRUPT subprogram   *
  5.   '*                                                           *
  6.   '*  Load QB.QLB into memory with QuickBASIC... QB /L QB.QLB  *
  7.   '*************************************************************
  8.  
  9.     DEFINT A-Z
  10.  
  11.     TYPE RegType
  12.         ax    AS INTEGER
  13.         bx    AS INTEGER
  14.         cx    AS INTEGER
  15.         dx    AS INTEGER
  16.         bp    AS INTEGER
  17.         si    AS INTEGER
  18.         di    AS INTEGER
  19.         flags AS INTEGER
  20.     END TYPE
  21.  
  22.     DECLARE SUB Interrupt (intnum%, iReg AS RegType, oReg AS RegType)
  23.  
  24.     DIM iReg AS RegType
  25.     DIM oReg AS RegType
  26.  
  27.   ' Initialization
  28.     CLS
  29.     PRINT "Press any key to quit"
  30.  
  31.   ' Mouse Reset and Status
  32.     iReg.ax = 0
  33.     Interrupt &H33, iReg, oReg
  34.  
  35.   ' Show Cursor
  36.     iReg.ax = 1
  37.     Interrupt &H33, iReg, oReg
  38.  
  39.   ' Wait until any key is pressed
  40.     DO
  41.     LOOP WHILE INKEY$ = ""
  42.  
  43.   ' Hide Cursor
  44.     iReg.ax = 2
  45.     Interrupt &H33, iReg, oReg
  46.  
  47.   ' Reset mouse
  48.     iReg.ax = 0
  49.     Interrupt &H33, iReg, oReg
  50.  
  51.     END
  52.  
  53.