home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / MOUSE / MSMOUSE1.ZIP / BAS.ZIP / TST1.BAS < prev   
Encoding:
BASIC Source File  |  1989-02-10  |  1.0 KB  |  38 lines
  1. 100 '****************************************************************
  2. 110 '*  TST1.BAS                                                    *
  3. 120 '*                                                              *
  4. 130 '*  Displays graphics mode mouse cursor until a key is pressed  *
  5. 140 '*  Note: Program assumes mouse and mouse driver are installed  *
  6. 145 '****************************************************************
  7. 150 '
  8. 160 ' Set and clear the display
  9. 170  SCREEN 2
  10. 180  CLS
  11. 190 '
  12. 200 ' Determine mouse interrupt address
  13. 210  DEF SEG = 0
  14. 220  MOUSEG = 256 * PEEK(207) + PEEK(206)
  15. 230  MOUSE = 256 * PEEK(205) + PEEK(204) + 2
  16. 240  DEF SEG = MOUSEG
  17. 250 '
  18. 260 ' Reset mouse
  19. 270  M1%= 0
  20. 280  CALL MOUSE(M1%, M2%, M3%, M4%)
  21. 290 '
  22. 300 ' Show cursor
  23. 310  M1%= 1
  24. 320  CALL MOUSE(M1%, M2%, M3%, M4%)
  25. 330 '
  26. 340 ' Wait for any key press
  27. 350  IF INKEY$ = "" THEN GOTO 350
  28. 360 '
  29. 370 ' Hide cursor
  30. 380  M1%= 2
  31. 390  CALL MOUSE(M1%, M2%, M3%, M4%)
  32. 400 '
  33. 410 ' Reset mouse
  34. 420  M1%= 0
  35. 430  CALL MOUSE(M1%, M2%, M3%, M4%)
  36. 440 '
  37. 450  END
  38.