home *** CD-ROM | disk | FTP | other *** search
/ c't freeware shareware 2001 January / CT_SW0101.ISO / mac / software / kommunik / misc / zoc400wg.exe / setup.fil / script / RXSAMPLE / TUTORIAL / 9_LASTLN.ZRX < prev    next >
Text File  |  1996-08-26  |  514b  |  27 lines
  1. /* REXX */
  2.  
  3. /* Text zum Modem senden und auf Antwort warten */
  4. CALL ZocSend "AT\S^M"
  5.  
  6. /* es soll maximal 10 Sekunden gewartet werden */
  7. CALL ZocTimeout 10
  8.  
  9. /* Zeilenweise Text lesen und auf eine Zeile warten, die den OK enthÑlt */
  10. DO X=1 TO 999 UNTIL ZocLastline()="OK"
  11.     timeout= ZocGetline()
  12.     IF timeout=640 THEN DO 
  13.         LEAVE
  14.     END
  15.  
  16.     /* alle Zeilen zwischenspeichern */
  17.     A.X= ZocLastline()
  18. END 
  19.     
  20. /* Alle Zeilen anzeigen */
  21. DO Y=1 TO X
  22.     SAY Y ":" A.Y
  23. END
  24.  
  25. EXIT
  26.  
  27.