FUNCTION LBIT(K,L)
C BESTIMMT DAS BIT L (0...11) IM WORT K
C FORTRAN II
	IN=K
	N1=L+1
	IM=0
	DO 1000 IB=1,N1
S	CLA CLL
S	TAD \IN
S	RAL
S	DCA \IN
S	RAL
S	DCA \IM
1000	CONTINUE
	LBIT=IM
	RETURN
	END