#include	"focas1.h"

cmmnt (str)
char   *str;
{
    long   t;
    char   *dtestr, *ctime();

    time (&t);
    dtestr = ctime (&t);
    dtestr[24] = 0;
    sprintf (comments[sp.comment % ncmmnts], "%s: %s", dtestr, str);
    sp.comment++;
}