home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / SETTAIL.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  524 b   |  23 lines

  1. #   -----------------------------------------
  2. #   - Beispielmakro fuer den Befehl settail -
  3. #   -----------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. set Text = "  Achim Egon Fritz Hugo Karin Thomas Martin  "
  10. debug "Text: <", Text, ">\n"
  11.  
  12. #   Einzelne Namen aus Text holen und ausgeben
  13. Loop:
  14. sethead First = Text
  15. if First == "" goto Ende
  16. debug "<", First, ">\n"
  17. settail New = Text
  18. set Text = New
  19. goto Loop
  20.  
  21. Ende:
  22. end
  23.