C	PROCESS A HARDWARE ERROR FOR HYSAT
	SUBROUTINE DECIDE
	INTEGER ANSWER
	LOGICAL ERRSW,RSAC
	COMMON/A/CHAR(72)
	COMMON/D/ANSWER
	COMMON/F/INPUT
	DATA BLANK,CC,RR/1H ,1HC,1HR/
	IF (RSAC(1)) GO TO 5
	IF (RSAC(0)) GO TO 1
	WRITE(4,30)
	GO TO 2
1	WRITE(4,31)
2	IF (RSAC(1)) GO TO 5
	READ(4,40) CHAR
	IF (RSAC(1)) GO TO 5
	IF (CHAR(2).NE.BLANK ) GO TO 10
	IF (CHAR(1).EQ.CC) RETURN
	IF (CHAR(1).NE.RR) GO TO 10
C	RETRY
5	ANSWER=-1
	RETURN
C	NEW STATEMENT(S)
10	ANSWER=1
	INPUT=4
	RETURN
30    FORMAT(1H ,48HTYPE R (RETRY),C (CONTINUE),OR NEW STATEMENT(S)-/1H
     1,1H$)
31	FORMAT(1H ,9HRECOVERY-/1H ,1H$)
40	FORMAT(72A1)
	END
