proc main
   integer nTries = 3
   string szLogin = "ogin:"
   integer nLoginTimeout = 3
   string szPW = "assword:"
   integer nPWTimeout = 3
   delay 2
   transmit "^M^M"
   while 0 < nTries do
      waitfor szLogin then DoLogin 
        until nLoginTimeout
TryAgain:
      transmit "^M"
      nTries = nTries - 1
   endwhile
   goto BailOut
DoLogin:
	delay 1
   transmit $USERID, raw
   transmit "^M"
   waitfor szPW until nPWTimeout
   if FALSE == $SUCCESS then
      goto TryAgain
   endif
   transmit $PASSWORD, raw
   transmit "^M"
   goto Done
BailOut:
   set screen keyboard on
   halt
Done:
endproc