//    Sample script file to log-onto an TBBS based system.
//
//    note: _entry_pass is a system variable into which the dialing routines
//          put whatever is in the password field of the dialing directory
//          entry which was connected to.
//
//    note: for TBBS boards you must log on with VT102 emulation or else
//          you will have that CLUB (^E) popping up after the boards First
//          and Last name requests. Also turn OFF Compuserve Quick B
//          Transfers in the Terminal Options section of Config (ALT-O).

str auser_name[] = "Colin";          // put your first name here
str buser_name[] = "Sampaleanu";     // put your last name here

main()

{
 alarm(1);

 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?", 180))             //
  {
   prints("Log-on failed!");
   return;                                   // ...abort
  }

 cputs(auser_name);                           // send name
 cputs("^M");
 
 if (not waitfor("Last Name?", 180))             //
  {
   prints("Log-on failed!");
   return;                                   // ...abort
  }

 cputs(buser_name);                           // send name
 cputs("^M");
 cputs("y");

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

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

}