proc main
   string sAddress
   string sUsername
   string sPassword

   sendkey ALT 'P'
   mspause 50
   sendkey 'M'
   mspause 50
   sendkeystr sAddress
   sendkeystr "`t"
   sendkeystr sUsername
   sendkeystr "`t"
   sendkeystr sPassword
   sendkeystr "`t"
   sendkey ALT 'O'
   while $DIALING
      yield
   endwhile
endproc