home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 8 / Power CD-ROM 8.iso / os2 / zoc200 / install.fil / SCRIPT / RXSAMPLE / MISC / 4_MODEM < prev    next >
Encoding:
Text File  |  1994-08-13  |  259 b   |  21 lines
  1. /* REXX */
  2.  
  3. /* send something to the modem and wait for an anwser */
  4. SEND "AT\S^M"
  5.  
  6.  
  7. /* wait for answer */
  8. X= 1
  9. TIMEOUT 5
  10.  
  11. DO X=1 TO 999 UNTIL ZOCLASTLINE()=OK
  12.     GETLINE
  13.     A.X= ZOCLASTLINE()
  14. END 
  15.     
  16.  
  17. DO Y=1 TO X
  18.     WRITELN Y ":" A.Y
  19. END
  20.  
  21. SAY A