153 	register i;  in casead()  local
158 	switch(i = getch() & CMASK){  in casead()
174 			admod = (i - '0')/2;  in casead()
202 	register i;  local
205 	  ((i = getch()) & MOT) ||
206 	  ((i&CMASK) == ' ') ||
207 	  ((i&CMASK) == '\n')){
208 		ch = i;
210 	}else return(i & BMASK);
228 	register i;  in casehy()  local
233 	i = nr_atoi();  in casehy()
236 	hyf = max(i,0);  in casehy()
248 	register i;  in casece()  local
252 	i = max(nr_atoi(),0);  in casece()
253 	if(nonumb)i = 1;  in casece()
255 	ce = i;  in casece()
259 	register i;  in casein()  local
261 	if(skip())i = in1;  in casein()
262 	else i = max(hnumb(&in),0);  in casein()
265 	in = i;  in casein()
272 	register i;  in casell()  local
274 	if(skip())i = ll1;  in casell()
275 	else i = max(hnumb(&ll),INCH/10);  in casell()
277 	ll = i;  in casell()
281 	register i;  in caselt()  local
283 	if(skip())i = lt1;  in caselt()
284 	else i = max(hnumb(&lt),0);  in caselt()
286 	lt = i;  in caselt()
289 	register i;  in caseti()  local
292 	i = max(hnumb(&in),0);  in caseti()
294 	un1 = i;  in caseti()
298 	register i;  in casels()  local
301 	if(skip())i = ls1;  in casels()
302 	else i = max(inumb(&ls),1);  in casels()
304 	ls = i;  in casels()
308 	register i;  in casepo()  local
310 	if(skip())i = po1;  in casepo()
311 	else i = max(hnumb(&po),0);  in casepo()
313 	po = i;  in casepo()
319 	register i;  in casepl()  local
322 	if((i = vnumb(&pl)) == 0)pl = 11 * INCH; /*11in*/  in casepl()
323 		else pl = i;  in casepl()
327 	register i, j, k;  in casewh()  local
331 	i = vnumb((int *)0);  in casewh()
335 	if((k=findn(i)) != NTRAP){  in casewh()
345 	nlistx[k] = i;  in casewh()
348 	register i, j, k;  in casech()  local
356 	i = vnumb((int *)0);  in casech()
358 	nlistx[k] = i;  in casech()
360 findn(i)  in findn()  argument
361 int i;  in findn()
366 		if((nlistx[k] == i) && (mlist[k] != 0))break;
370 	register i;  in casepn()  local
374 	i = max(inumb(&v.pn),0);  in casepn()
377 		npn = i;  in casepn()
382 	register i;  in casebp()  local
388 	if((i = inumb(&v.pn)) < 0)i = 0;  in casebp()
391 		npn = i;  in casebp()
397 	register i, ch;  local
403 	for (i = 0; i < NTM - 2; )
404 		if ((tmbuf[i++] = ch = getch()) == '\n')
407 			tmbuf[i-1] = ' ';
408 	if(i == NTM-2)tmbuf[i++] = '\n';
409 	tmbuf[i] = 0;
416 	register i, j, savlss;  local
420 	i = findt1();
427 	if(i < j)j = i;
429 	if(dip != d)i = dip->dnl; else i = v.nl;
430 	if((i + j) < 0)j = -i;
503 	register i, notflag, true;  local
512 	if(((i = getch()) & CMASK) == '!'){
516 		ch = i;
518 	i = nr_atoi();
520 		if(i > 0)true++;
523 	switch((i = getch()) & CMASK){
543 			true = cmpstr(i);
554 		while(((i = getch()) & CMASK) == ' ');
555 		if((i & CMASK) == LEFT)goto i2;
556 		ch = i;
569 	register i;  local
572 	while(((i = getch() & CMASK) != right) &&
573 		(i != left) &&
574 		(i != '\n'));
575 	if(i == left){
576 		while((i=eatblk(right,left)) != right)nlflg = 0;
579 	return(i);
584 	register i, j;  local
606 	while(((j = (i=getch()) & CMASK) != delim) && (j != '\n')){
607 		wbf(i);
623 	while(((j = (i=getch()) & CMASK) != delim) && (j != '\n')){
624 		if(rbf0(p) != i){
698 	register i;  in caseta()  local
701 	for(i=0; ((i < (NTAB-1)) && !nonumb); i++){  in caseta()
703 		tabtab[i] = tabtab[max(i-1,0)] & TMASK;  in caseta()
704 		tabtab[i] = max(hnumb(&tabtab[i]),0) & TMASK;  in caseta()
707 				tabtab[i] |= CTAB;  in caseta()
710 				tabtab[i] |= RTAB;  in caseta()
717 	tabtab[i] = 0;  in caseta()
720 	register i, j;  in casene()  local
723 	i = vnumb((int *)0);  in casene()
724 	if(nonumb)i = lss;  in casene()
725 	if(i > (j = findt1())){  in casene()
726 		i = lss;  in casene()
730 		lss = i;  in casene()
734 	register i, j;  in casetr()  local
738 	while((i = getch() & CMASK) != '\n'){  in casetr()
739 		if((i & MOT) || ((j = getch()) & MOT))return;  in casetr()
741 		trtab[i] = j;  in casetr()
749 	register i;  in caseul()  local
752 	if(skip())i = 1;  in caseul()
753 	else i = nr_atoi();  in caseul()
754 	if(ul && (i == 0)){  in caseul()
758 	if(i){  in caseul()
763 		ul = i;  in caseul()
769 	register i, j;  in caseuf()  local
771 	if(skip() || !(i = getrq()) || (i == 'S') ||  in caseuf()
772 		((j = find(i,fontlab))  == -1))  in caseuf()
781 	register i;  in caseit()  local
787 	i = nr_atoi();  in caseit()
789 	if(!nonumb && (itmac = getrq()))it = i;  in caseit()
793 	register i;  in casemc()  local
801 	i = max(hnumb((int *)0),0);  in casemc()
802 	if(!nonumb)ics = i;  in casemc()
805 	register i, j;  in casemk()  local
812 	if((i = getrq()) == 0)return;  in casemk()
813 	vlist[findr(i)] = j;  in casemk()
816 	register i;  in casesv()  local
819 	if((i = vnumb((int *)0)) < 0)return;  in casesv()
820 	if(nonumb)i = 1;  in casesv()
821 	sv += i;  in casesv()
836 	register i;  in casenm()  local
842 	i = inumb(&v.ln);  in casenm()
843 	if(!nonumb)v.ln = max(i,0);  in casenm()
853 	register i;  local
857 	i = nr_atoi();
859 	*p = max(i,min);