Escribir fecha en fichero (turbo c)

[JoseAntonioEscribano]

Saludos. Me gustaría que mi programa escribiera la fecha en un fichero, pero no logro conseguirlo. Estaría muy agradecido a quien me echara una mano.

Código C:

#include <stdlib.h>
#include <string.h>
#include <dos.h>
#include <stdio.h>
#include <conio.h>
#include <time.h>
 
 void main(void){
   FILE *puntero_file;
   char var[100], cadena[100], fichero[9]="file1.txt";
 
 
   int i,k,cont0=0,cont1=0,mat[100],max0=0,max1=0,temp0=0,temp1=0,n,result0=0,result1=0;
   int unsigned c;
 
   int tecla=kbhit();
   delay(100);
   randomize();
   clrscr();
 
 
    gotoxy(1,1);printf("La M*quina que detecta anomalias. >> v 0.1 <<\n\n");
 
    fflush(stdin);
    while (!kbhit()){
     fflush(stdin);
     n=rand()%2;
 
 
     if (n==1){
 
        cont1++;
        result1=cont1;
        cont0=0;
 
     }
 
 
     if (n==0){
        cont0++;
        result0=cont0;
        cont1=0;
 
 
     }
         delay(100);
         gotoxy(25,40);printf ("\n\n         \n\n");
        max0=result0;
        max1=result1;
        if ((max0>7) || (max1>8)){
         time_t timer;
         struct tm *tblock;
 
        /* coge la fecha del dia */
        timer = time(NULL);
 
        /* convierte fecha/hora a estructura */
        tblock = localtime(&timer);
 
        /* convierte fecha/hora a cadena de texto */
        strcpy(var, asctime(tblock));
        puntero_file=fopen(fichero,"w+");
        for(c=0;c<=strlen(cadena)-1;c++){
             putc(cadena[c],puntero_file);
             printf("%c >> Caracter insertado en %s n",cadena[c],fichero);
         }
        fclose(puntero_file);
 
        gotoxy(24,40);printf("Anomalia: %s", var);
          delay(2000);
 
        }
 
      gotoxy(5,5);printf("numero generado: %d\n", n);
      gotoxy(6,7);printf("max 0: %d  ", max0);
      gotoxy(6,8);printf("max 1: %d  ", max1);
      max0=0;
      max1=0;
   }
  }
 

pd: el problema es en la línea 64, que no hace lo que quiero, y no se si lo que quiero que haga se hace así.

¿Me pueden ayudar? Gracias de antemano

[JoseAntonioEscribano]

El primer error de pato que he visto está en la línea 61

Código C:

strcpy(var, asctime(tblock));
 

Debería ser

Código C:

strcpy(cadena, asctime(tblock));
 

De todas formas he creado el fichero "file1.txt" manualmente, pero no llega nada.

[JoseAntonioEscribano]

SOLUCIONADO.

Modificación a partir de la línea 62

Código C:

fichero=fopen("file1.txt","a+");
            fwrite(var,strlen(var),1,fichero);
        fclose(fichero);