proc main
   waitfor "ogin:";
   transmit "Вашлогин^M";

   waitfor "ssword:";
   transmit "Вашпароль^M";
endproc