home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 501-525 / apd515 / amos-programs / coordinates.amos / coordinates.amosSourceCode
AMOS Source Code  |  1991-07-10  |  631b  |  25 lines
  1. Rem   *************************  
  2. Rem   *                       *  
  3. Rem   *   Mouse Coordinates   *  
  4. Rem   *                       *  
  5. Rem   *    by Murray Jones    *  
  6. Rem   *                       *  
  7. Rem   *************************
  8. Rem
  9. DISK:
  10. F$=Fsel$("*","","")
  11. If F$="" Then Goto DISK
  12. Load Iff F$,0
  13. Screen Display 0,130,40,320,256
  14. Change Mouse 2 : Curs Off 
  15. Limit Mouse 127,38 To 450,300
  16. MOUSE:
  17. XM=X Mouse : YM=Y Mouse
  18. XM=XM-127
  19. YM=YM-38
  20. If CX<>XM Then Locate 25,5 : Print "    "
  21. If CY<>YM Then Locate 25,7 : Print "    "
  22. Locate 10,5 : Print "X Coordinate= ";XM
  23. Locate 10,7 : Print "Y Coordinate= ";YM
  24. CY=YM : CX=XM
  25. Goto MOUSE