# include "setup.h"


cputc (a)
	char a;
	{
	cpm (CPUTC, a);
	}

cgetc ()
	{
	char c;

	for (;;)
		{
		c = cpm (6, -1);		/* direct console input */

		if (c)
			break;
		}

	if (c == 3)
		exit ();

	c = tolower (c);

	return c;
	}

prs (a)
	char *a;
	{
	cpm (CPRS, a);
	}

fatal (a)
	char *a;
	{
	prs (a);
	exit (NO);
	}