home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 05B / TFTB.ZIP / PASSWORD.SLT < prev    next >
Encoding:
Text File  |  1992-04-24  |  969 b   |  24 lines
  1. ///////////////////////////////////////////////////////////
  2. // PROGRAM: PASSWORD.SLT                                 //
  3. // AUTHOR:  Christopher Saunders                         //
  4. // DATE:    April 25th 1992                              //
  5. //                                                       //
  6. // INFORMATION                                           //
  7. // ~~~~~~~~~~~                                           //
  8. // When connected  to a function  key, PASSWORD.SLT will //
  9. // send  your  password to  the  remote  system.  If the //
  10. // password cannot be  found, a window pops up informing //
  11. // the user.                                             //
  12. ///////////////////////////////////////////////////////////
  13. main()
  14.  
  15. {
  16.  if (not _entry_pass)
  17.   {
  18.      status_wind("Password unkown to Telix!",30); // Error message
  19.      return;
  20.   }
  21.  cputs(_entry_pass);                // Send password
  22.  cputs("^M");                       // Send enter
  23. }
  24.