SUBROUTINE YESNO(IFILE,YES,IW,ITEXT)
C	04.05.83 WI/4
C	YES/NO SWITCH FOR DIALOG PROGRAMMS.
C	IFILE  := FILECODE
C	YES    := SWITCH
C	IW     := STRING LENGTH
C	ITEXT  := STRING
C
	CHARACTER ITEXT(IW),IANS
	LOGICAL YES
C
	WRITE(IFILE,'(1H+,''  '')')
	WRITE(IFILE,'(1X,72A1)')ITEXT
	WRITE(IFILE,'(1H$,''Y/N [N] : '')')
	READ(IFILE,'(A)')IANS
	YES=.FALSE.
	IF(IANS.EQ.'Y'.OR.IANS.EQ.'y')YES=.TRUE.
	RETURN
	END