width functions, sizes and fonts
extern int inchar
[LNSIZE
], *pinchar
; /* XXX */
int fontlab
[] = {'R','I','B','S',0};
if((i
= (j
& CMASK
)) == 010){
if(i
== PRESC
)i
= eschar
;
k
= (*(t
.codetab
[i
-32]) & 0177) * t
.Char
;
if((i
= getrq()) == 0)return(0);
for(j
=chtab
;*j
!= i
;j
++)if(*(j
++) == 0)return(0);
if(((k
= i
-'0') >= 1) && (k
<= 4) && (k
!= smnt
))return(--k
);
for(k
=0; j
[k
] != i
; k
++)if(j
[k
] == 0)return(-1);
chbits
= (((pts
)<<2) | font
) << (BYTE
+ 1);
sps
= width(' ' | chbits
);
if((((i
=getch() & CMASK
) == '+') || (i
== '-')) &&
(((j
=(ch
= getch() & CMASK
) - '0') >= 0) && (j
<= 9))){
((j
=(ch
= getch() & CMASK
) - '0') >= 0) && (j
<= 9)){
if((j
= find(i
,fontlab
)) == -1)return;
int savlevel
, savhp
, savfont
, savfont1
;
int *savpinchar
, *p
, *q
, tempinchar
[LNSIZE
]; /* XXX */
base
= v
.st
= v
.sb
= wid
= v
.ct
= 0;
if((delim
= getch() & CMASK
) & MOT
)return;
savpinchar
= pinchar
; /* XXX */
for (p
=inchar
, q
=tempinchar
; p
< pinchar
; ) /* XXX */
pinchar
= inchar
; /* XXX */
while((((i
= getch()) & CMASK
) != delim
) && !nlflg
){
if(base
< v
.sb
)v
.sb
= base
;
if((k
=base
+ em
) > v
.st
)v
.st
= k
;
pinchar
= savpinchar
; /* XXX */
for (p
=inchar
, q
=tempinchar
; p
< pinchar
; ) /* XXX */
else if(k
== 'r')i
= -2*i
;
if(((i
= (getch() & CMASK
) - '0' -1) < 0) || (i
>3))return;
if(skip() || !(j
= getrq()))return;
dfact
= INCH
; /*default scaling is points!*/
ch0
= ((j
& 03700)<<3) | HX
;
return(((j
& 077)<<9) | LX
);