SUBROUTINE STATUP(MESS)
	COMMON /SCRAT2/ LUN
	LOGICAL*1 MESS(49),STAT(64),TEMP(64)
	DO 10 I=1,49
	LN=I-1
	IF (MESS(I) .EQ. 0) GOTO 20
10	CONTINUE
	LN=49
20	CALL ERRTST(I,J)
	CALL ERRSET(34,.TRUE.,.FALSE.,,.TRUE.,1000)
	CALL ASSIGN(LUN,'BS:[1,30]STATUS.TMP')
	CALL ERRTST(I,J)
	IF (J .NE. 2) GOTO 999
	CALL FDBSET(LUN,'MODIFY','SHARE')
	READ(LUN,ERR=999)STAT
	CALL INPL(' ',49,STAT(16))
	CALL INPL(MESS,LN,STAT(16))
	REWIND LUN
	WRITE(LUN,ERR=999)STAT
	CALL CLOSE(LUN)
999	RETURN
	END