home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / GETSTATX.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  1.3 KB  |  60 lines
  1. #   ---------------------------------------------
  2. #   - Beispielmakro fuer den Befehl getstateext -
  3. #   ---------------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7.  
  8. debug "Makroname: ", argv_0, "\n"
  9.  
  10. #   Erweiterten Status holen und einige Zustandsflags anzeigen
  11. getstateext Status
  12. and OnlineFlag = Status, "1"
  13. and VT100Flag   = Status, "2"
  14. and KITFlag = Status, "4"
  15. and ERFlag = Status, "32"
  16. and MakroFlag = Status, "512"
  17.  
  18. debug "OnlineFlag = ", OnlineFlag, "\n"
  19. debug "VT100Flag = ", VT100Flag, "\n"
  20. debug "KITFlag = ", KITFlag, "\n"
  21. debug "ERFlag = ", ERFlag, "\n"
  22. debug "MakroFlag =", MakroFlag, "\n"
  23.  
  24. set JA = "JA"
  25. set NEIN = "NEIN"
  26.  
  27. set Info = "Decoderinformationen:\n\nOnline: "
  28. set Flag = NEIN
  29. if OnlineFlag == "0" goto Weiter1
  30. set Flag = JA
  31.  
  32. Weiter1:
  33. strcat Info, Flag, "\nVT100-Modus:"
  34. set Flag = NEIN
  35. if VT100Flag == "0" goto Weiter2
  36. set Flag = JA
  37.  
  38. Weiter2:
  39. strcat Info, Flag, "\nKIT-Modus:"
  40. set Flag = NEIN
  41. if KITFlag == "0" goto Weiter3
  42. set Flag = JA
  43.  
  44. Weiter3:
  45. strcat Info, Flag, "\nER-Verbindung:"
  46. set Flag = NEIN
  47. if ERFlag == "0" goto Weiter4
  48. set Flag = JA
  49.  
  50. Weiter4:
  51. strcat Info, Flag, "\nMakro aktiv:"
  52. set Flag = NEIN
  53. if MakroFlag == "0" goto Weiter2
  54. set Flag = JA
  55.  
  56. Weiter5:
  57. strcat Info, Flag, "\n"
  58.  
  59. messagebox Antwort: "Hinweis", Info, "OK"
  60.