home *** CD-ROM | disk | FTP | other *** search
/ Powerdrive 1997 December / POWERDRIVE1297.BIN / demos / t_online / v20 / t-online.z / CHARCODE.MKR < prev    next >
Text File  |  1997-06-04  |  667b  |  26 lines
  1. #   ------------------------------------------
  2. #   - Beispielmakro fuer den Befehl charcode -
  3. #   - Gibt die Zeichencodes eines Textes aus -
  4. #   ------------------------------------------
  5.  
  6. #   Protokollfensterausgaben ermoeglichen
  7. set PROTWIN = "on"
  8. debug "Makroname: ", argv_0, "\n"
  9.  
  10. set Name = "Hugo Habicht"
  11.  
  12. #   Name in Puffer kopieren
  13. set Buffer = Name
  14. debug "Text: ", Name, "\nCodes: "
  15.  
  16. #   Schleife: bei jedem Durchlauf den Code des ersten Zeichen ausgeben
  17. #   und dieses Zeichen dann loeschen
  18. Loop:
  19. charcode Code = Buffer
  20. debug Code, " "
  21. #   erstes Zeichen loeschen
  22. strdelete Buffer, "0", "1"
  23. ifnot Buffer == "" goto Loop
  24.  
  25. debug "\n"
  26.