SUBROUTINE ENTER(IUNIT,NFILE,IEXT)
	INTEGER ANSWER
C				OPEN A FILE ON IUNIT
C				NAMED 'NFILE.IEXT'
C				WHERE NFILE, IEXT ARE ASCII VARIABLES
C				IN THE IFIL OFIL TRADITION
C				IF THE FILE ALREADY EXISTS COMMENT
1	C O N T I N U E

	IF(.NOT.LOOKUP(NFILE,IEXT)) GO TO 2
C				FILE ALREADY EXISTS
	TYPE 100, NFILE,IEXT
100	FORMAT(' FILE ',2A5,' IS ALREADY ON THE DISK'/)
5	IANS = ANSWER(' DO YOU WANT TO USE A NEW NAME?')
	IF(IANS.EQ.'NO') GO TO 10
	IF(IANS.NE.'YES') GO TO 5

	TYPE 101
101	FORMAT(' TYPE NEW FILE NAME.EXT'/)
	ACCEPT 102,NFILE,IEXT
102	FORMAT(2A5)
	GO TO 1

C				DELETE EXISTING FILE?
10	C O N T I N U E

	IF(ANSWER(' DO YOU WANT TO DELETE THE EXISTING FILE?').EQ.'YES')
	1  GO TO 2
	TYPE 103
103	FORMAT(' WHAT DO YOU WANT TO DO?????'/)
	S T O P

2	C O N T I N U E

	C A L L   O F I L (IUNIT,NFILE,IEXT)

	R E T U R N
	E N D