1ptout0(pi)
2tchar	*pi;
3{
4	register short j, k, w;
5	short	z, dx, dy, dx2, dy2, n;
6	register tchar	i;
7	int outsize;	/* size of object being printed */
8
9	outsize = 1;	/* default */
10	i = *pi;
11	k = cbits(i);
12	if (ismot(i)) {
13		j = absmot(i);
14		if (isnmot(i))
15			j = -j;
16		if (isvmot(i))
17			lead += j;
18		else
19			esc += j;
20		return(outsize);
21	}
22	if (k == XON) {
23		int c;
24		if (xfont != mfont)
25			ptfont();
26		if (xpts != mpts)
27			ptps();
28		if (lead)
29			ptlead();
30/* ADD these two lines	vvv */
31		if (esc)
32			ptesc();
33/* 		 	^^^ */
34		fdprintf(ptid, "x X ");
35		for (j = 1; (c=cbits(pi[j])) != XOFF; j++)
36			outascii(pi[j]);
37		oput('\n');
38		return j+1;
39	}
40			;
41
42