home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / compiler / asic / mouse.asi < prev    next >
Text File  |  1994-03-01  |  953b  |  52 lines
  1. REM DEMONSTRATE TECHNIQUE FOR INFORPORATING MOUSE SUPPORT IN AN ASIC PROGRAM
  2.  
  3. REM FIRST, CHECK FOR MOUSE DRIVER, AND RESET IT
  4. AX=0
  5. GOSUB MOUSE:
  6.  
  7. REM NEXT, MAKE CURSOR VISIBLE
  8. AX=1
  9. GOSUB MOUSE:
  10.  
  11. REM NOW LOOP & DISPLAY MOUSE POSITION AND BUTTON STATUS
  12. CLS
  13. PRINT "PRESS ANY KEY TO TERMINATE PROGRAM"
  14. WHILE (X$="")
  15.    AX=3
  16.    GOSUB MOUSE:
  17.    LOCATE 2,0
  18.    PRINT "MOUSE HORIZONTAL COORD IS";
  19.    PRINT CX
  20.    PRINT "MOUSE VERTICAL COORD IS  ";
  21.    PRINT DX
  22.    PRINT "THE FOLLOWING BUTTONS ARE PRESSED: ";
  23.    IF BX=1 THEN
  24.       A$="LEFT "
  25.    ELSE
  26.       IF BX=2 THEN
  27.           A$="RIGHT"
  28.       ELSE
  29.           IF BX=3 THEN
  30.               A$="BOTH "
  31.           ELSE
  32.               A$="NONE "
  33.           ENDIF
  34.       ENDIF
  35.    ENDIF
  36.    PRINT A$
  37.    X$=INKEY$
  38. WEND
  39.  
  40. REM FINALLY, HIDE MOUSE BEFORE LEAVING
  41.  
  42. AX=2
  43. GOSUB MOUSE:
  44.  
  45. END
  46.  
  47. MOUSE: REM CALLS MOUSE INTERRUPT 33H
  48.  
  49.    INT86(&HEX33,AX,BX,CX,DX,NA,NA,NA,NA,NA)
  50.  
  51.    RETURN
  52.