proc main

   delay 1

   transmit "^M"
   delay 1

   transmit "^M"
   delay 1

   transmit "^M"
   waitfor "dtcc net%" 
   transmit "stty local ^^^M"

   waitfor "dtcc net%"
   transmit "dli set username "
   transmit "\""
   transmit $USERID
   transmit "\""
   transmit "^M"

   waitfor "dtcc net%"
   transmit "c hopi^M"

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

   waitfor "Password:" 
   transmit $PASSWORD
   transmit "^M"

   waitfor "move: "
   transmit "2^M"

   waitfor "hopi $"
   transmit "^^"
   transmit "^M"

   waitfor "dtcc net%"
   transmit "^M"
   transmit "dli set session passall^M"

   waitfor "dtcc net%"
   transmit "fg^M"

   transmit "^M"
   waitfor "hopi $"
   transmit "exec slirp -P^M"

endproc