SUBROUTINE OUTPUT
	IMPLICIT INTEGER(A-Z)
	BYTE STRING
	COMMON/STRING/STRING(132),POINT,EPOINT
	WRITE(4,100)(STRING(I),I=1,EPOINT)
100	FORMAT(132A1)
	RETURN
	END