data_ora( anno, mese, giorno, ora, minuti, secondi)
int *giorno, *mese, *anno, *ora, *minuti, *secondi;
{
    int date, time, tick;
    short day;

    _sysdate(0,&time,&date,&day,&tick);
    *anno =  (date & 0xffff0000) >> 16;
    *mese =  (date & 0x0000ff00) >> 8;
    *giorno = date & 0x000000ff;
    *ora =    (time & 0x00ff0000) >> 16;
    *minuti = (time & 0x0000ff00) >> 8;
    *secondi = time & 0x000000ff;
    return 0;
}    

greg_date( anno, mese, giorno, ora, minuti, secondi, time, dat)
int *giorno, *mese, *anno, *ora, *minuti, *secondi, *time, *dat;
{
    *dat = 0;
    *dat |= (*anno & 0x0000ffff) << 16;  
    *dat |= (*mese & 0x000000ff) << 8;  
    *dat |= (*giorno & 0x000000ff);  
    *time = 0;
    *time |= (*ora & 0x000000ff) << 16;
    *time |= (*minuti & 0x000000ff) << 8;
    *time |= (*secondi & 0x000000ff); 
    return 0;
}    

strsum(s1, s2, s3)
char *s1, *s2, *s3;
{
    int i, m;
    for (i = m = 0; i < 32 && *(s1 + i) != '\0' ; i++)
        *(s3++) = *(s1 + i) ;
    for (i = 0; i< 32 && *(s2 + i) != '\0'; i++)
        *(s3++) = *(s2 + i);
        *s3 = '\0';
}