home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 January / SOFM_Jan1996.bin / pc / os2 / zoc / install.fil / SCRIPT / RXSAMPLE / MISC / 4_MODEM < prev    next >
Encoding:
Text File  |  1995-09-08  |  383 b   |  25 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. /* read text linewise and wait for a line containing OK */
  12. DO X=1 TO 999 UNTIL ZOCLASTLINE()="OK"
  13.     'GETLINE'
  14.     /* remember all lines */
  15.     A.X= ZOCLASTLINE()
  16. END 
  17.     
  18.  
  19. /* show all lines again */
  20. DO Y=1 TO X
  21.     WRITELN Y ":" A.Y
  22. END
  23.  
  24. SAY A
  25.