LOGICAL*1   INPUT(80)
	LOGICAL   TTYEOF
	INTEGER*2   INCNT, INPTR
	COMMON /INPCOM/  INCNT, INPTR, INPUT, TTYEOF