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(49H TYPE R (RETRY),C (CONTINUE),OR NEW STATEMENT(S)-/2H $)
31    FORMAT (10H RECOVERY-/2H $)
40    FORMAT(72A1)
        END
