SUBROUTINE YESNO(FLAG)
	LOGICAL*1 FLAG
	FLAG=.TRUE.
10001	RETURN
	END