home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / GETSH.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  694 b   |  35 lines
  1. #   ---------------------------------------
  2. #   - Beispielmakro fuer den Befehl getsh -
  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. #   BKZ-Wechsel in eigenen Bereich durchfuehren
  14. debug "BKZ-Wechsel in eigenen Bereich wird durchgefuehrt\n"
  15. send "\*78\#"
  16. waitdct
  17.  
  18. #   Eigenen Bereich bestaetigen
  19. send "\#"
  20. waitdct
  21.  
  22. #   Pruefung, ob Abfrage fuer BKZ-Wechsel da
  23. getsh Code
  24. ifnot Code == "1A349" goto Fehler
  25. send "19"
  26. waitdct
  27. send "\#"
  28. waitdct
  29. debug "BKZ-Wechsel durchgefuehrt\n"
  30. end
  31.  
  32. Fehler:
  33. debug "Fehler im Ablauf"
  34. end
  35.