.xtcis
上传用户:duobangkj
上传日期:2007-01-07
资源大小:70k
文件大小:0k
源码类别:

Telnet客户端

开发平台:

Unix_Linux

  1. #.xtcis
  2. # telnet to CompuServe
  3. host "compuserve.com"
  4. if ! waitfor  "compuserve.com"
  5. then
  6. quit
  7. fi
  8. waitfor  "compuserve"  10
  9. if seen "closed by foreign host" 
  10. then
  11. quit
  12. fi
  13. if waitfor "Host Name: " 120
  14. then
  15. transmit "cisagree^M"
  16. else
  17. quit
  18. fi