#
/************************
 *			*
 * pseudo-print command *
 *			*
 ************************/

#define PSIZ	24		/* number of lines on a screen */
#define LLEN	79		/* number of characters per line */

char TTY[10] { "/dev/ttyx" };

main(argc,argv) char **argv; {

int proc,pipes[2];
int line_number;		/* current line number */
int column_number;		/* current column number */
char character;			/* current character */
char *nargs[20];
int nargc,i;

struct buf { int fildes,nleft; char *nextp,buff[512]; };

struct buf tty_buffer;		/* input buffer for teletype */

	if ((TTY[8] = ttyn(1)) == 'x') {
		argv[argc] = 0;
		execv("/bin/cat", argv);
		perror("p: Cannot Execute /bin/cat\nLast System Error:");
		exit(8); }

	if (argc>1) {
	  pipe(pipes);
	  if (!(proc = fork()))
	    {	close(1); close(pipes[0]);
		dup(pipes[1]);
		nargs[nargc=0] = "/bin/pr";
		nargs[++nargc] = "-w79"; nargs[++nargc] = "-l22";
		nargs[++nargc] = "-t";
		for (i=1; i<argc; i++) nargs[++nargc] = argv[i];
		nargs[++nargc] = 0;	
		execv("/bin/pr",nargs); };
	  close(0); close(pipes[1]);
	  dup(pipes[0]); };

 if (fopen(&TTY,&tty_buffer)) {		/* open tty for input */
	perror("p: Cannot Open TTY for Input\nLast System Error:");
	exit(8); }

 line_number = 1;			/* start off at line 1 */
 column_number = 0;			/* and column 0 */

 while ((character = getchar()) != 0)	/* read the next character */
  { putchar(character);			/* copy character to teletype */

    switch (character) {		/* now check up on the char */

     case '\t':	column_number = ((column_number + 8) & ~7)-1;

     default:	if (++column_number < LLEN) break;
		printf("\\\n");		/* overflow, start new line */

     case '\n':	column_number = 0;	/* back to column 0 */
		if (++line_number < PSIZ-1) break;

     case 014:	column_number = 0;	/* in case we haven't done this above */
		printf("\n********** MORE? "); flush();
		if (getc(&tty_buffer) != '\n') goto done;
		line_number = 1;
		break;

     case '\r':	column_number = 0;
		break;

     case 010:	column_number--;
		break;

     };
  };

 goto really_done;

done:
/* while (getchar() != 0) */;		/* skip over remaining chars */

really_done:
 flush();				/* dump rest of buffer */
 exit();				/* all through! */
}