"       **",
	"       **",
	"**     **",
	"*********",
	" ******* "
};

char *C6[10] {
	" ******* ",
	"*********",
	"**     **",
	"**       ",
	"******** ",
	"*********",
	"**     **",
	"**     **",
	"*********",
	" ******* "
};

char *C7[10] {
	"*********",
	"*********",
	"**    ** ",
	"     **  ",
	"    **   ",
	"   **    ",
	"  **     ",
	"  **     ",
	"  **     ",
	"  **     "
};

char *C8[10] {
	" ******* ",
	"*********",
	"**     **",
	"**     **",
	" ******* ",
	" ******* ",
	"**     **",
	"**     **",
	"*********",
	" ******* "
};

char *C9[10] {
	" ******* ",
	"*********",
	"**     **",
	"**     **",
	"*********",
	" ********",
	"       **",
	"**     **",
	"*********",
	" ******* "
};

char *Cb[10] {
	"******** ",
	"*********",
	"**     **",
	"**     **",
	"******** ",
	"******** ",
	"**     **",
	"**     **",
	"*********",
	"******** "
};

char *Ci[10] {
	" ******  ",
	" ******  ",
	"   **    ",
	"   **    ",
	"   **    ",
	"   **    ",
	"   **    ",
	"   **    ",
	" ******  ",
	" ******  "
};

char *Cn[10] {
	"*      **",
	"**     **",
	"***    **",
	"****   **",
	"** **  **",
	"**  ** **",
	"**   ****",
	"**    ***",
	"**     **",
	"**      *"
};

char *Cr[10] {
	"******** ",
	"*********",
	"**     **",
	"**     **",
	"*********",
	"******** ",
	"**  **   ",
	"**   **  ",
	"**    ** ",
	"**     **"
};

char *blank[10] {
	"         ",
	"         ",
	"         ",
	"         ",
	"         ",
	"         ",
	"         ",
	"         ",
	"         ",
	"         "
};


main(argc,argv)
char *argv[];
{
	register char *p;
	register int i, j;
	char **line[9];
	int tv[2];
	char *tim;
	char *person;
	char *message;
	extern int fout;

	fout = dup(1);
	time(tv);
	tim = ctime(tv);
	if (argc<2) p = "r711";
	else p = argv[1];
	argc--;
	if (argc<2) person = logname();
	else person = argv[2];
	argc--;
	if (argc<2) message = "";
	else message = argv[3];
	line[0] = Cb;
	line[1] = Ci;
	line[2] = Cn;
	line[3] = blank;
	for (i=4; i<8 && *p; i++,p++)
		switch (*p) {
			case '0':	line[i] = C0;
					continue;
			case '1':	line[i] = C1;
					continue;
			case '2':	line[i] = C2;
					continue;
			case '3':	line[i] = C3;
					continue;
			case '4':	line[i] = C4;
					continue;
			case '5':	line[i] = C5;
					continue;
			case '6':	line[i] = C6;
					continue;
			case '7':	line[i] = C7;
					continue;
			case '8':	line[i] = C8;
					continue;
			case '9':	line[i] = C9;
					continue;
			case 'B':
			case 'b':	line[i] = Cb;
					continue;
			case 'I':
			case 'i':	line[i] =