home *** CD-ROM | disk | FTP | other *** search
/ Online Praxis 1998 March / Image.iso / CD-ROM / ZUGANG / TONLINE / V20 / T-ONLINE.Z / GETCURPO.MKR < prev    next >
Encoding:
Text File  |  1997-06-04  |  476 b   |  18 lines
  1. #   -------------------------------------------
  2. #   - Beispielmakro fuer den Befehl getcurpos -
  3. #   -------------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. #   Nullseite aufrufen
  10. send "\*0\#"
  11. waitdct
  12.  
  13. #   Eine Zeile vom CEPT-Bild lesen
  14. #   Puffer enthaelt KEIN LF-Zeichen am Ende
  15. getcurpos X, Y
  16. debug "Cursorposition:\n"
  17. debug "X-Position = ", X, "\nY-Position = ", Y, "\n"
  18.