/* Seitenweise Ausgabe einer Datei, abgeaendert aus BEI8.C
** ZAS fuer inverse Schrift erforderlich!
** (c) ML-Soft 29.01.1994 */

#include <bdscio.h>
#define INVERS "\005"
#define NORMAL "\004"
#define CLS "\014"
#define LINES 24-3	/* 3 Zeilen fuer "Seite: n" */
main(argc,argv)
int argc;
char *argv[];
{
char iobuf[BUFSIZ],s[100];
int pages,lines,fd;
puts("\n\tSeitenweise Ausgabe einer Datei");  /*text*/
puts("\n\t*******************************\n");
if(argc !=2 ) { printf("\nAufruf: LIST filename\n");
                exit();
              }
fd=fopen(argv[1],iobuf);
if(fd==-1) { printf("\nDatei %s nicht vorhanden!\n",argv[1]);
		exit();
	  }
printf("\nDatei: %s\n",argv[1]);
pages=0;
lines=0;
while( (fgets(s,iobuf)) != 0 )
	{
	if(lines==0)	{
			pause();
			puts(CLS);
			puts(INVERS);
			printf(" Seite: %4d \n\n",++pages);
			puts(NORMAL);
			}
	/*	fputs(s,2);      Drucker-Ausgabe */     
	fputs(s,1);  /* Bildschirm-Ausgabe */
	lines++;
        if(lines==LINES) { lines=0; }
	}
fclose(iobuf);
}