SUBROUTINE WRITIT(NRECS,BUFFER)
	LOGICAL*1 BUFFER(1)
	INTEGER*2 TOTLEN,LLEN(9),KEYLOC(9),KEYORD(9),KEYLEN(9)
	COMMON LPEREC,TOTLEN,LLEN,NKEYS,KEYLOC,KEYORD,KEYLEN
	N=1
	DO 2 I=1,NRECS
	DO 2 J=1,LPEREC
	KL=N+1
	L=BUFFER(N)
	L=L.AND."377
	IF(L.NE.0)GOTO3
	WRITE(3,4)
4	FORMAT()
	GOTO2
3	KH=N+L
	WRITE(3,1)(BUFFER(K),K=KL,KH)
1	FORMAT(<L>A1)
2	N=N+LLEN(J)
	RETURN
	END