/* TURBO-C */
/* esempio di lettura di un file */
/* con pausa dopo ogni videata */
/* by Luca Zecchinato Ago 1996 */

#include <stdio.h>

main (argc,argv)
int    argc;
char  *argv[];
{
     FILE *fl1;
     char c;
     int i;
     char nomefile[30];
     char stringa[300];

     clrscr();
     if (argc==0) exit(0);
     strcpy(nomefile,argv[1]);
     fl1 = fopen(nomefile,"r");
     if (fl1 == NULL)
     {
	 printf("\nFile Sconosciuto o Inesistente");
	 printf("\n\n\ C I A O \n\n by LZ\n\n");
	 exit(0);
     }

     fseek(fl1,0,SEEK_SET);
     gotoxy(1,1);

     i=1;
     while ((fgets(stringa,81,fl1)) != NULL)
     {
	  if(i<24)
	  {
	       printf("%s",stringa);
	       i++;
	  }
	  else
	  {
	       printf("- Un tasto per continuare o q per uscire -");
	       c=getchar();
	       if (c == 'q' || c == 'Q')
		    exit(0);
	       gotoxy(1,24);
	       printf("                                          \r%s",stringa);
	       i=1;
	  }
     }
     fclose(fl1);
}