INTEGER ICHAR		!LENGTH OF INPUT LINE
	INTEGER TOKEN		!POINTER TO THE BEGINNING OF THE CURRENT TOKEN
	INTEGER NEXCHR		!POINTER TO NEXT CHARACTER TO BE PROCESSED
	LOGICAL NEWLIN		!IF .T., NEXT TOKEN COMES FROM A NEW LINE
	INTEGER ICODE		!ERROR FLAG
	BYTE LINBUF(IBF)	!INPUT LINE BUFFER
	COMMON / PARSE / ICHAR,TOKEN,NEXCHR,NEWLIN,ICODE,LINBUF
C