home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 January / CHIPCD1_98.iso / software / tipsy / zoc / install.fil / SCRIPT / RXSAMPLE / TUTORIAL / 4_MODEM.ZRX < prev    next >
Text File  |  1996-08-26  |  341b  |  20 lines
  1. /* REXX */
  2.  
  3. /* send something to the modem and wait for an anwser */
  4. CALL ZocSend "ATZ^M"
  5.  
  6. /* tell ZOC to wait 3 seconds max. */
  7. CALL ZocTimeout 3
  8.  
  9. /* wait for answer */
  10. timeout= ZocGetline()
  11. IF timeout=0 THEN DO 
  12.     SAY "THE MODEM SEEMS TO RESET FINE!"
  13. END
  14. ELSE DO
  15.     SAY "THE MODEM SEEMS TO HAVE PROBLEMS!"
  16. END
  17.  
  18. EXIT
  19.  
  20.