proc main

   waitfor "00"
   delay 1
   transmit "telnet prairiedog.math.arizona.edu^M"

   waitfor "ogin"
   delay 1
   transmit $USERID
   transmit "^M"

   waitfor "assword"
   delay 1
   transmit $PASSWORD
   transmit "^M"

   waitfor "$"
   delay 1
   transmit "exec slirplogin -P^M"

endproc