/////////////////////////////////////////////////////////////////////////
//             TIME.SLT  -  by Terry Robertson (October 1988)          //
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ //
//                                                                     //
//  This script puts the current time in the bottom left hand corner   //
//  of the screen; in the "status bar" if you've got it set to row     //
//  24. Unfortunately it doesn't update automatically - you will need  //
//  to run the script whenever you want the current time.              //
//                                                                     //
//  This script is most useful when it is "attached" to a function     //
//  key.                                                               //
//                                                                     //
/////////////////////////////////////////////////////////////////////////







str tm[16];
str tim[16] = "³";
str help[] = "³ HELP=F7 ";


Main()

{
int     xpos, ypos;

time(curtime(), tm);
delchrs(tm, 5, 3);
strcat(tim, tm);
strcat(tim, help);

xpos = getx();
ypos = gety();
pstraxy(tim, 0, 24, 31);
gotoxy(xpos, ypos);

}