home *** CD-ROM | disk | FTP | other *** search
/ Online Praxis 1998 March / Image.iso / CD-ROM / ZUGANG / TONLINE / V20 / T-ONLINE.Z / RETURN.MKR < prev    next >
Encoding:
Text File  |  1997-06-05  |  709 b   |  25 lines
  1. #   ----------------------------------------
  2. #   - Beispielmakro fuer den Befehl return -
  3. #   ----------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. debug "Rufe Unterfunktion auf ...\n"
  10. gosub SubFunc
  11.  
  12.  
  13. #   Hier muesste ein end-Befehl stehen
  14. #   Das Makro laeuft jetzt weiter in die Unterfunktion
  15. #   hinein. Der return-Befehl dort erzeugt dann einen
  16. #   Fehler.
  17. messagebox Antwort: "Hinweis", "Jetzt kommt gleich ein (absichtlicher) Fehler ... siehe Makro-Quelltext\n", "OK"
  18.  
  19.  
  20. #   Unterfunktion
  21. SubFunc:
  22. debug "Unterfunktion \"SubFunc\" aufgerufen\n"
  23. debug "Unterfunktion \"SubFunc\" beendet\n"
  24. return
  25.