home *** CD-ROM | disk | FTP | other *** search
/ Online Praxis 1998 March / Image.iso / CD-ROM / ZUGANG / TONLINE / V20 / T-ONLINE.Z / ONWIN.MKR < prev    next >
Encoding:
Text File  |  1997-06-06  |  768 b   |  29 lines
  1. #   ---------------------------------------
  2. #   - Beispielmakro fuer den Befehl onwin -
  3. #   ---------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. #   Nullseite aufrufen, das sieht man jetzt
  10. send "\*0\#"
  11. #   Auf Seitenende warten.
  12. waitdct
  13.  
  14. #   Schleife: Messagebox einblenden, in der das CEPT-Bild mit JA ein- 
  15. #   und mit NEIN ausgeschaltet werden kann. Abbrechen beendet die Schleife
  16. Loop:
  17. messagebox Antwort: "Frage", "Soll der CEPT-Bildschirm sichtbar sein ?\nJA: CEPT-Bild einblenden\nNEIN: CEPT-Bild ausblenden\nAbbrechen: Makro beenden", ""
  18. if Antwort == "CANCEL" goto Ende
  19. if Antwort == "YES" goto Ja
  20. offwin
  21. goto Loop
  22.  
  23. Ja:
  24. onwin
  25. goto Loop
  26.  
  27. Ende:
  28. end
  29.