///////////////////////////////  CIS.SLT  ////////////////////////////////////

// This is a SALT Script for logging on to CIS.
//         Compu-Serve B is turned on and off automatically.
//  This is quite a modification of the original version from Telix.
//  The important chaage is the addition of an infinite loop to
//  interogate the carrier detect status and to break out
//  and turn off Compu-Serve B after the session is completed..
//   If CompuServe B is left on as a terminal option in other services
//   any ASCII 16 value will cause telix to crash.
//
//   **********************************
//   *  Rewritten by Dan Berky        *
//   *  Westville, NJ  08093          *
//   *  Donated to the Public Domain  *
//   *  (C) 30 Aug. 1990              *
//   **********************************
//
str user_id[] = "71510,1041";

// Put your CIS account in the above line.
// The script will get the proper password
// from the dialing directory (Telix puts that password in the script system
// variable called _entry_pass).

// Put your user id and password in the above lines instead of the 'x's
// Before using this script for the first time, or when you make a change,
// type 'cs cis' at the DOS prompt to compile the script for use by Telix.

//////////////////////////////////////////////////////////////////////////////

main()

{
 int n = 0;
 _cisb_auto=1;
 transtab("CLEAR.XLT");
 alarm (1);

 while (n < 5)      // loop up to 5 times to send the Ctrl-C
  {
   delay (25);
   cputc ('^C');

   if (waitfor ("User ID:", 7))
    break;
  }

 if (n >= 5)
  {
   hangup ();
   return;
  }

 cputs(user_id);                  // send user id
 cputs ("^M");                    //   and Carriage Return

 waitfor ("Password:", 15);
 cputs (_entry_pass);             // send password
 cputs ("^M");                    //   and Carriage Return
       While (1)
       {
        terminal ( );
                  if (carrier()==0)
                  {
                   transtab("TELIX.XLT");
                    _cisb_auto=0;
                  break;
                  }
                  }
}