proc main
  transmit "^M"

  waitfor "Session"
  transmit "^M"
  transmit "^M"

  waitfor "ogin:"
  transmit $USERID
  transmit "^M"

  waitfor "assword:"
  transmit $PASSWORD
  transmit "^M"
endproc