extern int evlist
[EVLSZ
];
extern struct sgttyb ttys
;
extern int apts
, apts1
, pts
, pts1
, font
, font1
;
switch(i
= getch() & CMASK
){
case 'r': /*right adj, left ragged*/
case 'l': /*left adj, right ragged*/
admod
= ad
= 0; /*same as casena*/
case 'c': /*centered adj*/
case '0': case '2': case '4':
case '1': case '3': case '5':
/* can't do while oline is only LNSIZE
lnsize = LNSIZE + WDSIZE;
else i
= max(hnumb(&in
),0);
else i
= max(hnumb(&ll
),INCH
/10);
else i
= max(hnumb(<
),0);
else i
= max(inumb(&ls
),1);
else i
= max(hnumb(&po
),0);
if(!ascii
)esc
+= po
- po1
;
if((i
= vnumb(&pl
)) == 0)pl
= 11 * INCH
; /*11in*/
if((k
=findn(i
)) != NTRAP
){
for(k
=0; k
<NTRAP
; k
++)if(mlist
[k
] == 0)break;
prstrfl("Cannot plant trap.\n");
else for(k
=0; k
<NTRAP
; k
++)if(mlist
[k
] == j
)break;
if((nlist
[k
] == i
) && (mlist
[k
] != 0))break;
register struct s
*savframe
;
if((i
= inumb(&v
.pn
)) < 0)i
= 0;
}else if(dip
->nls
)return;
if(skip() && x
)prstrfl("User Abort.");
for(i
=0; i
<NTM
-2;)if((tmbuf
[i
++]=getch()) == '\n')break;
if(i
== NTM
-2)tmbuf
[i
++] = '\n';
if(dip
->nls
|| trap
)return;
if(dip
!= d
)i
= dip
->dnl
; else i
= v
.nl
;
if(dip
!= d
)p
= &dip
->dnl
; else p
= &v
.nl
;
if(nonumb
)a
= dip
->mkline
;
if((a
< 0) || (a
>= *p
))return;
if((nxev
>= NEV
) || (nxev
< 0) || (evi
>= EVLSZ
)){
prstrfl("Cannot do ev.\n");
if(error
)done2(040);else edone(040);
lseek(ibf
, (long)(ev
*EVS
*sizeof(int)), 0);
write(ibf
,(char *)&block
, EVS
*sizeof(int));
lseek(ibf
, (long)(nxev
*EVS
*sizeof(int)), 0);
read(ibf
,(char *)&block
, EVS
*sizeof(int));
prstr("if-else overflow.\n");
register i
, notflag
, true;
if(((i
= getch()) & CMASK
) == '!'){
switch((i
= getch()) & CMASK
){
if(x
== 1)iflist
[ifx
] = !true;
while(((i
= getch()) & CMASK
) == ' ');
if((i
& CMASK
) == LEFT
)goto i2
;
while(eatblk(RIGHT
,LEFT
) != RIGHT
)nlflg
= 0;
while(((i
= getch() & CMASK
) != right
) &&
while((i
=eatblk(right
,left
)) != right
)nlflg
= 0;
int savapts
, savapts1
, savfont
, savfont1
,
if(delim
& MOT
)return(0);
if((offset
= begin
= alloc()) == (filep
)0)return(0);
while(((j
= (i
=getch()) & CMASK
) != delim
) && (j
!= '\n')){
while(((j
= (i
=getch()) & CMASK
) != delim
) && (j
!= '\n')){
if(read(0, &onechar
, 1) == 1){
if(onechar
== '\n')tty
++;
if(tty
!= 3)return(onechar
);
lit
= max(inumb((int *)0),1);
if((dip
== d
) && (v
.nl
== -1))newline(1);
for(i
=0; ((i
< (NTAB
-1)) && !nonumb
); i
++){
tabtab
[i
] = max(hnumb(&tabtab
[max(i
-1,0)]),0) & TMASK
;
if(!nonumb
) switch(ch
& CMASK
){
while((i
= getch() & CMASK
) != '\n'){
if((i
& MOT
) || ((j
= getch()) & MOT
))return;
if((j
&= CMASK
) == '\n')j
= ' ';
if(skip() || !(i
= getrq()) || (i
== 'S') ||
((j
= find(i
,fontlab
)) == -1))
ulfont
= 1; /*default position 2*/
if(ulfont
== 0)ulfont
= 1;
if(!nonumb
&& (itmac
= getrq()))it
= i
;
i
= max(hnumb((int *)0),0);
if(dip
!= d
)j
= dip
->dnl
; else j
= v
.nl
;
if((i
= getrq()) == 0)return;
if((i
= vnumb((int *)0)) < 0)return;
if(!nonumb
)v
.ln
= max(i
,0);