home *** CD-ROM | disk | FTP | other *** search
/ Everyones Internet / EV1NET.ISO / pc / data / 1027.scp < prev    next >
Encoding:
Text File  |  2000-03-29  |  241 b   |  12 lines

  1. proc main
  2.     integer nLoginTimeout = 4
  3.     waitfor "sername:"
  4.         until nLoginTimeout
  5.     transmit $USERID
  6.     transmit "^M"
  7.     waitfor "assword:"
  8.         until nLoginTimeout
  9.     transmit $PASSWORD
  10.     transmit "^M"
  11. endproc
  12.