home *** CD-ROM | disk | FTP | other *** search
/ com!online 2001 December / COMCD1201.iso / tonline / software / data1.cab / Software / MAKRO / BEISPIEL / MAKECHAR.MKR < prev    next >
Encoding:
Text File  |  2001-08-13  |  623 b   |  28 lines
  1. #   ------------------------------------------
  2. #   - Beispielmakro fuer den Befehl makechar -
  3. #   ------------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. debug "Zeichentabelle Codes 32 - 255\n"
  10.     
  11. set Code = "32"
  12.  
  13. #   Schleife: Alle Zeichen der Codes 32- 255 ausgeben
  14. #   Pro DUrchlauf ein Zeichen
  15. Loop:
  16. makechar Char = Code
  17. debug Char, "  "
  18. mod Rest = Code, "16"
  19.  
  20. #   Alle 16 Zeichen eine neue Zeile beginnen
  21. ifnot Rest == "0" goto Weiter
  22. debug "\n"
  23. Weiter:
  24. inc Code
  25. ifless Code than "256" goto Loop
  26.  
  27. debug "\n"
  28.