/////////////////////////////////////////////////////////////////////////
//             FIDO.SLT  -  by Terry Robertson (October 1988)          //
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
//                                                                     //
//    SCRIPT TO LOG-ON TO A FIDO SYSTEM.                               //
//                                                                     //
//    Please note that this script expects you to have assigned your   //
//    FIRST NAME to function key F1 and your LAST NAME to function key //
//    F2. The easiest way to do this is by using the FKEY script in    //
//    this collection.                                                 //
//                                                                     //
//    In addition, 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".                   //
//                                                                     //
/////////////////////////////////////////////////////////////////////////



str f[15];
str s[20];

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("FIRST name:"))        // if no prompt for first name
  {
   prints("Log-on failed!");
   return;                              // ...abort
  }

 keyget(0x3b00, 0, f);
 delchrs(f, strlen(f) - 2, strlen(f));
 cputs(f);
 cputs("^M");

 if (not waitfor("LAST name:"))         // if no prompt for surname
  {
   prints("Log-on failed!");
   return;                              // ...abort
  }
   keyget(0x3c00, 0, s);
   delchrs(s, strlen(s) - 2, strlen(s));
   cputs(s);
   cputs("^M");
Waitfor("[Y,n]:");
   cputs("^M");

 if (not waitfor("Password:"))          // if no prompt for password
  {
   prints("Log-on failed!");
   return;                              // ...abort
  }
   cputs(_entry_pass);                    // send password
   cputs("^M");


 }