WAP to Receives strings from keyboard and writes them to file

/*WAP to Receives strings from keyboard and writes them to file*/

#include "stdio.h"
main( )
{
 FILE  *fp ;
 char  s[80] ;

 fp = fopen ( "file1.TXT", "w" ) ;
 if ( fp == NULL )
 {
  puts ( "Cannot open file" ) ;
  exit( ) ;
 }

 printf ( "\nEnter a few lines of text:\n" ) ;
 while ( strlen ( gets ( s ) ) > 0 )
 {
  fputs ( s, fp ) ;
  fputs ( "\n", fp ) ;
 }
 
 fclose ( fp ) ;
}