/////////////////////////////////////////////////////////////////////////
//          PASSWORD.SLT  -  by Terry Robertson (October 1988)         //
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
//                                                                     //
//  This script sends the password for the current Dialling Directory  //
//  entry to the host system.                                          //
//                                                                     //
//  It is not required where a log-on script is attached to the        //
//  Directory entry but is useful when you are calling a board where   //
//  you don't have a log-on script and can't remember the password.    //
//                                                                     //
//  Please note the script is written so that it will abort if you     //
//  have not completed the relevant PASSWORD entry in the Dialling     //
//  Directory.                                                         //
//                                                                     //
//  This script is most useful when it is "attached" to a function     //
//  key.                                                               //
//                                                                     //
/////////////////////////////////////////////////////////////////////////





main()

{
 if (not _entry_pass)                 // no pass, so didn't recog. board
  {
   alarm(1);
   prints ("Sorry, I don't know the password for this BBS!");
   return;
  }

 cputs(_entry_pass);                  // send password
 cputs("^M");

}