f77 bug in 4.1

[chris at eneevax.UUCP]

I had to go search this one out... someone ran into a problem with the
f77 compiler on Hollerith data.  Strings longer than 199 characters
just don't work (except in formats).  The reason is this wonderful
little "char token[200];" in init.c.  The limitation isn't too bad,
it's just that if you overflow this you get things like

Error on line 1204932597329Termination code 139
%

which isn't the least helpful in locating the problem.

The quickest fix is to just increase the size of the token array.
The right fix involves adding a bit of code to lex.c$gettok(),
around line 640, to check for overflow of this array when copying
strings (find the MYQUOTE stuff and the char *p).

Chris		{seismo,allegra,brl-bmd}!umcp-cs!chris