home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / GOSUB.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  757 b   |  29 lines
  1. #   ---------------------------------------
  2. #   - Beispielmakro fuer den Befehl gosub -
  3. #   ---------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. #   CALL-Ebene holen, bei Aufruf ohne Parameter mit "0" vorbelegen
  10. set Ebene = "0"
  11. gosub SubFunc
  12. end
  13.  
  14. #   ========================================
  15. #   Unterfunktion, wird mit gosub aufgerufen
  16. SubFunc:
  17. inc Ebene
  18. debug "[", Ebene, "] Unterfunktion \"SubFunc\" aufgerufen\n"
  19.  
  20. #   Irgendwann auch mal aufhoerhren mit Selbstaufruf
  21. ifgreater Ebene than "9" goto Fertig
  22.  
  23. #   Unterunfktion ruft sich selber auf
  24. gosub SubFunc
  25.  
  26. Fertig:
  27. debug "[", Ebene, "] Unterfunktion \"SubFunc\" beendet\n"
  28. dec Ebene
  29. return