home *** CD-ROM | disk | FTP | other *** search
/ Out-Of-The-Net / Out-Of-The-Net.iso / t / testmodem.rx < prev   
Text File  |  1996-05-01  |  367b  |  30 lines
  1. /**
  2.  * $Id$
  3.  *
  4.  *
  5.  * Select PoP 
  6.  * Copyright © 1996 HiSoft. All Rights Reserved.
  7. **/
  8.  
  9. PARSE ARG DRIVER SERIALOUTPUT
  10. SERIALOUTPUT = COMPRESS(SERIALOUTPUT)
  11.  
  12. If exists("DEVS:"||compress(DRIVER)) THEN 
  13.  
  14. DO
  15.  
  16. ADDRESS COMMAND "Net&Web1:SerC ATZ" ||X||" "|| DRIVER || " >"||SERIALOUTPUT 
  17.  
  18. END
  19.  
  20. ELSE
  21.  
  22. DO
  23.  
  24.     open(output,SERIALOUTPUT,W)
  25.     Writech(output,"")
  26.     close(output)
  27.  
  28. END
  29.  
  30.