proc main

   ; Set the port settings so we can wait for
   ; non-gibberish text.

   

   waitfor "ogin"
   transmit $USERID, raw
   transmit "^M"

   waitfor "assword: "
   transmit $PASSWORD, raw
   transmit "^M"

     

endproc