static char sccsid
[] = "@(#)n9.c 4.1 %G%";
if(!((i
= getch()) & MOT
))i
|= ZBIT
;
int w
, cnt
, delim
, rem
, temp
;
if((delim
= getch()) & MOT
)return;
length
= quant(atoi(),HOR
);
if(((c
= getch()) & CMASK
) == delim
){
}else if((c
& CMASK
) == FILLER
)goto s0
;
*i
++ = makem(-(temp
= ((w
-length
)/2)));
*i
++ = makem(-(w
- length
- temp
));
while(((i
= getch() & CMASK
) != c
) &&
int *p
, delim
, o
[NOV
], w
[NOV
];
if((delim
= getch()) & MOT
)return;
for(k
=0; (k
<NOV
) && ((j
=(i
= getch()) & CMASK
) != delim
) &&
*p
++ = makem(-((w
[k
]+w
[k
+1])/2));
if((delim
= getch()) & MOT
)return;
dwn
= (2*t
.Halfline
) | MOT
| VMOT
;
while(((k
= (i
= getch()) & CMASK
) != delim
) && (k
!= '\n') &&
*--j
= *cbuf
= (cnt
*t
.Halfline
) | MOT
| NMOT
| VMOT
;
*--j
= *cbuf
= (cnt
*EM
)/2 | MOT
| NMOT
| VMOT
;
int cnt
, neg
, rem
, ver
, delim
;
if((delim
= getch()) & MOT
)return;
if(((c
= getch()) & CMASK
) == delim
){
c
= 0337 | chbits
; /*default box rule*/
rem
= makem(i
%ver
) | neg
;
while((k
< (cbuf
+NC
-3)) && cnt
--){
((i
&= CMASK
) == '\n'))return;
if(skip() || (ch
& MOT
) || ((ch
&= CMASK
) == fc
))return;
int length
, ws
, npad
, temp
, type
;
if(x
== tabch
) rchar
= tabc
| chbits
;
else if(x
== ldrch
) rchar
= dotc
| chbits
;
savfc
= fc
; savtc
= tabch
; savlc
= ldrch
;
tabch
= ldrch
= fc
= IMP
;
if((tabtab
[j
] & TMASK
)== 0){
if(x
==savfc
)prstr("Zero field width.\n");
v
.hp
= sumhp(); /* XXX */
if((length
= ((tabtab
[j
] & TMASK
) - v
.hp
)) > 0 )break;
type
= tabtab
[j
] & (~TMASK
);
if(((j
= (i
= getch()) & CMASK
)) == padc
){
if(pp
> (padptr
+ NPP
- 1))break;
}else if(j
== savfc
) break;
if(fp
> (fbuf
+ FBUFSZ
-3))break;
temp
= i
= (j
= length
-ws
)/npad
;
if((j
-= i
*npad
) <0)j
= -j
;
if((j
= width(rchar
)) == 0)nchar
= 0;
if(length
)j
= length
| MOT
;
while(((j
= (i
= getch()) & CMASK
) != savtc
) &&
(j
!= '\n') && (j
!= savlc
)){
if(fp
> (fbuf
+FBUFSZ
- 3)) break;
if(type
== RTAB
)length
-= ws
;
else length
-= ws
/2; /*CTAB*/
if(((j
= width(rchar
)) == 0) || (length
<= 0))nchar
= 0;
length
= (length
/HOR
)*HOR
;
fc
= savfc
; tabch
= savtc
; ldrch
= savlc
;