SUBROUTINE SPTKEY(KEY)
	IMPLICIT INTEGER (A-Z)
	LOGICAL*1 KEY(56)
	COMMON /BATOUT/LPR
	WRITE(LPR,100)KEY
100	FORMAT(1X,64('_')/
	1' | GROUP  | ASSAY  | ASSAY  |  DATE  | CULTURE|',
	1'  EXPT. |  RACK  |'/
	2' |  CODE  |  TECH  |  TYPE  | ASSAYED|   AGE  |',
	2'  TYPE  | NUMBER |'/
	3'+',64('_')/' |',7(8A1,'|')/'+',64('_'))
	RETURN
	END