/////////////////////////////////////////////////////////////////////////
//          CONNECT.SLT  -  by Terry Robertson (October 1988)          //
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
//                                                                     //
//  This script prints details of current connection to screen. Upon   //
//  your modem signalling that you are connected to the host, the      //
//  following information can be flashed to the top of the Terminal    //
//  screen:                                                            //
//                                                                     //
//  Name and phone number of host system                               //
//  Baud rate connected at                                             //
//  Today's date and the current time                                  //
//                                                                     //
//  This script is most useful when it is "called" from a standard     //
//  log-on script.                                                     //
//                                                                     //
/////////////////////////////////////////////////////////////////////////

str NOL[]   = "Not online";
str connected[80] = "Connected to ";
str now[80] = "It is now ";
str tm[16];
str dt[8];
str baud[16];

Main()
{
if(carrier())
{
clear_scr();
strcat(connected, _entry_name);
strcat(connected, " on ");
strcat(connected, _entry_num);
date(curtime(), dt);
time(curtime(), tm);
strcat(now, tm);
strcat(now, " on ");
strcat(now, dt);

box(6, 0, 73, 3, 2, 0, 30);
pstraxy(connected, 10, 1, 31);
pstra(" at ", 31);
itos(get_baud(), baud);
pstra(baud, 31);
pstraxy(now, 10, 2, 31);

gotoxy(0, 5);
return;
}
 else if (carrier(-1))

 pstraxy(NOL, 10, 1, 31);

}