/////////////////////////////////////////////////////////////////////////
//          MICHTRON.SLT  -  by Terry Robertson (October 1988)         //
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
//                                                                     //
//    SCRIPT TO LOG-ON TO A MICHTRON SYSTEM.                           //
//                                                                     //
//    Please note that this script expects you to have assigned your   //
//    FULL NAME to function key F4. The easiest way to do this is by   //
//    using the FKEY script in this collection.                        //
//                                                                     //
//    The script is written so that it will abort if you have not      //
//    completed the relevant PASSWORD entry in the Dialling Directory. //
//                                                                     //
//    I have assumed that you want to use the linked scripts CONNECT   //
//    and CAPTURE. If you do not have these or prefer not to use       //
//    them you should "comment out" the two lines starting "call"      //
//    by simply putting "//" before the word "call".                   //
//                                                                     //
//    TELIX supports ANSI graphics and I have assumed that you wish    //
//    to take advantage of this feature. If not you should change "y"  //
//    to "n" in the section below dealing with graphics.               //
//                                                                     //
/////////////////////////////////////////////////////////////////////////




str s[30];

main()

{
 alarm(1);

 call("connect", 1);                    // Gives "connect" information by
                                        // calling Connect.slc script
 call("capture", 1);                    // Opens new capture file by calling
                                        // Capture.slc script

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

 if (not waitfor("Username:", 180))      // if no prompt for name
  {
   prints("Log-on failed!");
   return;                              // ...abort
  }

 keyget(0x3e00, 0, s);
 delchrs(s, strlen(s) - 2, strlen(s));
 cputs(s);
 cputs("^M");

 if (not waitfor("Password:", 20))       // if no prompt for password
  {
   prints("Log-on failed!");
   return;                              // ...abort
  }

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

}