home *** CD-ROM | disk | FTP | other *** search
/ Powerdrive 1997 December / POWERDRIVE1297.BIN / demos / t_online / v20 / t-online.z / GET.MKR < prev    next >
Text File  |  1997-06-04  |  920b  |  33 lines
  1. #   -------------------------------------
  2. #   - Beispielmakro fuer den Befehl get -
  3. #   -------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. #   Nullseite aufrufen
  10. send "\*0\#"
  11. waitdct
  12.  
  13. #   Eine Zeile vom CEPT-Bild lesen
  14. #   Puffer enthaelt KEIN LF-Zeichen am Ende
  15. debug "Zeile 6 wird gelesen:\n<"
  16. get Buffer = "1", "6", "40", "6"
  17. debug Buffer, ">\n"
  18.  
  19. #   Mehrere Zeilen holen, ACHTUNG!!!
  20. #   Zeilenvorschubzeichen (\n) auch von der letzten Zeile
  21. #   sind jetzt im Puffer enthalten
  22. debug "Zeilen 7-9 werden gelesen:\n<"
  23. get Buffer = "1", "7", "40", "9"
  24. debug Buffer, ">\n"
  25.  
  26. #   Ausschnitt holen, ACHTUNG!!!
  27. #   Zeilenvorschubzeichen (\n) auch von der letzten Zeile
  28. #   sind jetzt im Puffer enthalten
  29. debug "Zeilen 7-9, Spalten 4-20 werden gelesen:\n<"
  30. get Buffer = "4", "7", "20", "9"
  31. debug Buffer, ">\n"
  32.  
  33.