SUBROUTINE HIORTD
	INTEGER ANSWER
	LOGICAL RSAC
	COMMON/A/ANSWER
10	IF (RSAC(0)) GO TO 11
	WRITE(4,20)
	GO TO 12
11	WRITE(4,21)
12	WRITE(4,30)
	READ(4,40) ANSWER
	IF (ANSWER.GE.0.AND.ANSWER.LE.2) RETURN
	WRITE(4,50)
	GO TO 10
20    FORMAT(1H ,63HTYPE ERROR RECOVERY DIRECTIVE- 0-TERMINATE, 1-CONTIN
     1UE, 2-RETRY)
21	FORMAT(1H ,9HRECOVERY-)
30	FORMAT(1H ,1H$)
40	FORMAT(I1)
50	FORMAT(1H ,10HTRY AGAIN-)
	END