Operasi Perkarakter ( 1 )

/*File program : fputc.c
Menciptakan dan mengisi file dengan data karakter dr keyboard*/
#include <stdio.h>
#include <stdlib.h>
main()
{
      FILE*pf;
      char kar;
      if( (pf=fopen("COBA.TXT","w"))==NULL)
      {
          printf("file tak dapat dikenali\n");
          exit(1);
          }
         
          printf("Ketik, akhiri dengan ENTER.\n");
          printf("Program baca perkarakter\n");
          printf("dan menyimpan dalam file COBA.TXT\n");
          while ((kar=getchar())!= '\n')
          fputc(kar, pf);
          fclose(pf);
          }