SUBROUTINE MENUE(N)
	LOGICAL LP
	COMMON/LPEN/LP,IX,IY,IADRS
	DATA A,B,C/5H(1X9H,5HCONST,5HRUCT)/
	DATA D,E,F/5H(1X6H,5HREVIS,5HE)   /
	DATA X,Y,Z/5H(1X6H,5HRECAL,5HL)   /
	DATA R,S/5H(1X4H,5HMOVE)/
	DATA P,T/5H(1X4H,5HEXIT)/
	DATA A1,A2/5H(1X4H,5HTAPE)/
	DATA A3,A4/5H(1X4H,5HPLEX)/
C
	CALL TEXT(10,900,6,1,A)
	CALL TEXT(10,800,6,1,D)
	CALL TEXT(10,600,6,1,X)
	CALL TEXT(10,500,6,1,R)
	CALL TEXT(10,400,6,1,A1)
	CALL TEXT(10,300,6,1,A3)
	CALL TEXT(10,200,6,1,P)
18	LP=.FALSE.
19	IF(.NOT.LP)GO TO 19
	IF(IX.GT.60)GO TO 18
	IF(IY.GT.199)N=7
	IF(IY.GT.299)N=6
	IF(IY.GT.399)N=5
	IF(IY.GT.499)N=4
	IF(IY.GT.599)N=3
	IF(IY.GT.799)N=2
	IF(IY.GT.899)N=1
	CALL TEXT(10,900,0,1,A)
	LP=.FALSE.
	RETURN
	END