; Main entry point to script
;
proc main

   ; Delay for 2 seconds first to make sure the
   ; host doesn't get confused when we send the
   ; two carriage-returns.

   delay 2
   transmit "^M^M"

   ; Hit it again to make sure it's awake

   delay 1
   transmit "^M^M"

   ; Wait for the login prompt before entering
   ; the user ID

   waitfor "name>"
   transmit $USERID
   transmit "^M"

   ; Enter the password

   waitfor "word>"
   transmit $PASSWORD
   transmit "^M"

endproc