* %sccs.include.proprietary.c%
static char sccsid
[] = "@(#)4.form.c 4.2 (Berkeley) %G%";
extern int rdfree(), comfree(), labfree(), contfree();
extern int rdstand(), comstand(), labstand(), contstand();
extern int (*comment
[])();
extern int (*getlabel
[])();
extern int (*chkcont
[])();
int c
, blank
, first
,count
;
while ((c
= (*comment
[inputform
])(0) ) || blankline() )
(*comment
[inputform
])(1); /* move head past comment signifier */
(*rline
[inputform
])(null
);
if ( (*comment
[inputform
])(0) )
(*rline
[inputform
])(null
);
else if ((*chkcont
[inputform
])() )
{if (someout
) TABOVER(tab
);
(*getlabel
[inputform
])(null
);
(*rline
[inputform
]) (charout
);