home *** CD-ROM | disk | FTP | other *** search
/ Online Praxis 1998 March / Image.iso / CD-ROM / ZUGANG / TONLINE / V20 / T-ONLINE.Z / SETTAIL.MKR < prev    next >
Encoding:
Text File  |  1997-06-05  |  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.