home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / MSMOUSE1.ZIP / BAS.ZIP / QBMOU.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-02-03  |  885 b   |  33 lines
  1.   '********************************************************
  2.   '*  QBMOU.BAS                                           *
  3.   '*                                                      *
  4.   '*  Calling mouse functions using the MOUSE subprogram  *
  5.   '*                                                      *
  6.   '*  Load QBMOUSE.QLB into memory with QuickBASIC...     *
  7.   '*  QB /L QBMOUSE.QLB                                   *
  8.   '********************************************************
  9.  
  10.   ' Initialization
  11.     DEFINT A-Z
  12.     DECLARE SUB Mouse (m1%, m2%, m3%, m4%)
  13.     CLS
  14.     PRINT "Press any key to quit"
  15.  
  16.   ' Mouse Reset and Status
  17.     m1 = 0
  18.     Mouse m1, m2, m3, m4
  19.  
  20.   ' Show Cursor
  21.     m1 = 1
  22.     Mouse m1, m2, m3, m4
  23.  
  24.   ' Wait until a key is pressed
  25.     DO
  26.     LOOP WHILE INKEY$ = ""
  27.  
  28.   ' Reset mouse driver
  29.     m1 = 0
  30.     Mouse m1, m2, m3, m4
  31.  
  32.     END
  33.