home *** CD-ROM | disk | FTP | other *** search
/ BlastDOS / Telix.rar / Telix / OPUS.SLT < prev    next >
Text File  |  1992-01-09  |  1KB  |  46 lines
  1. //////////////////////////////  OPUS.SLT  ////////////////////////////////////
  2.  
  3. // This is a sample script for logging on to an OPUS based system.
  4.  
  5. str user_name[] = "John Smith;y";
  6.  
  7. // Put your name in the above line. The script will get the proper password
  8. // from the dialing directory (Telix puts that password in the script system
  9. // variable called _entry_pass).
  10.  
  11. // Before using this script for the first time, or when you make a change,
  12. // type 'cs opus' at the DOS prompt to compile the script for use by Telix.
  13.  
  14. //////////////////////////////////////////////////////////////////////////////
  15.  
  16. main()
  17.  
  18. {
  19.  alarm (1);
  20.  
  21.  if (not _entry_pass)                        // no pass, so didn't recog. board
  22.   {
  23.    prints ("Sorry, I don't know the password for this BBS!");
  24.    return;
  25.   }
  26.  
  27.  if (not waitfor (" name:", 180))            // if no prompt for name
  28.   {
  29.    prints ("Log-on failed!");
  30.    return;                                   // ...abort
  31.   }
  32.  
  33.  cputs (user_name);                          // send name
  34.  cputs ("^M");
  35.  
  36.  if (not waitfor ("Password:", 20))          // if no prompt for password
  37.   {
  38.    prints ("Log-on failed!");
  39.    return;                                   // ...abort
  40.   }
  41.  
  42.  cputs (_entry_pass);                        // send pass
  43.  cputs ("^M");
  44.  
  45. }
  46.