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