SUBROUTINE KBF(IL)
C TESTET DAS KEYBOARD READER FLAG
C	IL=0	FLAG NICHT GESETZT
C	IL=1	FLAG GESETZT
C FORTRAN II
	IL=0
S	KSF		/ SKIP ON KEYBOARD READER FLAG
S	JMP OUT		/ FLAG NICHT GESETZT
S	KRB		/ READ KEYBOARD BUFFER CLEAR FLAG
	IL=1
SOUT,	CLA CLL		/ CLEAR AC UND LINK
	RETURN
	END