88 	register i,j,k;  local
91 	k = 0;
94 		k = j & ~MOTV;
95 		if(j & NMOT)k = -k;
99 		k = -widthp;
112 	k = getcw(i);
113 	if(bd)k += bd - 1;
114 	if(cs)k = cs;
115 	widthp = k;
118 	return(k);
123 	register j,k;  local
136 		k = 36;
141 	if(!i)k = spacesz;
142 	else k = *(p + i) & BMASK;
143 	if(setwdf)v.ct |= ((k>>6) & 3);
145 	k = (j = (k&077)*(xpts&077))/6;
146 	if((j%6) >= 3)k++;
153 	return(k);
158 	register j, k;  local
169 	if(k = (j>>3) & 017){
170 		xpts = pstab[--k];
171 		if(psctab[k] < 0)xpts |= DBL;
194 	register i,*j,k;  in setch()  local
199 	k = *(++j) | chbits;  in setch()
208 	return(k);  in setch()
213 	register k;  local
215 	if(((k = i-'0') >= 1) && (k <= 4) && (k != smnt))return(--k);
216 	for(k=0; j[k] != i; k++)if(j[k] == 0)return(-1);
217 	return(k);
220 	register i, j, k;  in casefz()  local
223 	k = 0;  in casefz()
227 		if(k)goto fz1;  in casefz()
231 		k = smnt;  in casefz()
234 	if(k){  in casefz()
236 		j = k -1;  in casefz()
243 		if(k)spsz = 0;  in casefz()
246 	if(((i=((k=getch()) & CMASK)) == '+') || (i == '-'))fz[j].sign = i;  in casefz()
249 		ch = k;  in casefz()
286 	register j, k;  local
288 	for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}
289 	if(psctab[j] < 0)k |= DBL;
290 	return(k);
293 	register i, j, k;  in mchbits()  local
297 	for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}  in mchbits()
302 		for(j=0; i > (k = pstab[j]);j++)if(!k){k=pstab[--j];break;}  in mchbits()
309 	register i, j, k;  local
375 	int delim, em, k;  in setwd()  local
396 			k = i & ~MOTV;  in setwd()
397 			if(i & NMOT)k = -k;  in setwd()
398 			base -= k;  in setwd()
402 		if((k=base + em) > v.st)v.st = k;  in setwd()
440 sethl(k)  in sethl()  argument
441 int k;  in sethl()
446 	if(k == 'u')i = -i;
447 	else if(k == 'r')i = -2*i;
467 	register j, k;  local
471 			if(lg!=2){switch((k =getch0()) & CMASK){
479 						ch0 = k;
503 	register i, j, k;  in casefp()  local
511 	if((k = open(fontfile,0)) < 0){  in casefp()
518 	if(lseek(k,8L * sizeof(int),0) < 0)goto c1;   in casefp()
519 	if(read(k,fontab[i],256-32) != 256-32){  in casefp()
524 	close(k);  in casefp()
554 	register i, j, k;  in casebd()  local
556 	k = 0;  in casebd()
560 		if(k)goto bd1;  in casebd()
564 		k = smnt;  in casebd()
567 	if(k){  in casebd()
569 		j = k -1;  in casebd()