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 / 4_MODEM.ZRX < prev    next >
Text File  |  1996-08-26  |  338b  |  20 lines
  1. /* REXX */
  2.  
  3. /* Text zum Modem senden und auf Antwort warten */
  4. CALL ZocSend "ATZ^M"
  5.  
  6. /* es soll maximal 3 Sekunden gewartet werden */
  7. CALL ZocTimeout 3
  8.  
  9. /* auf Antwort warten */
  10. timeout= ZocGetline()
  11. IF timeout=0 THEN DO 
  12.     SAY "DAS MODEM IST INITIALISIERT"
  13. END
  14. ELSE DO
  15.     SAY "DAS MODEM ANTWORTET NICHT"
  16. END
  17.  
  18. EXIT
  19.  
  20.