home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / NEWPROD2.ZIP / SCRIPT.R < prev    next >
Encoding:
Text File  |  1990-07-12  |  407 b   |  24 lines
  1. /* 5/3/90 */
  2. /* Tymnet connect script 9600 */
  3. sleep {27}
  4. sendln {}
  5. sleep {1}
  6. sendln {}
  7. sleep {10}
  8. set_retries 10
  9. :START
  10. send {a}
  11. set_timeout 18
  12. receive {please log in:} goto SENDLOGIN
  13. retry START
  14. return 29  {No response from TYMNET}
  15. :SENDLOGIN
  16. set_retries 1
  17. :SENDLOGIN1
  18. sendln {prodigy}
  19. set_timeout 50
  20. receive {connect} goto END
  21. retry SENDLOGIN1
  22. return 46  {Can not access host}
  23. :END
  24.