C- GET PARAMETERS FOR FILE
	LOGICAL EFLG
	CHARACTER*50 INFILE,OUTFILE,FILENAME
	character*12 org,acc,rectyp
	WRITE(6,1001)
1001	FORMAT(//' INQUIRE about file parameters. ')
5	WRITE(6,1002)
1002	FORMAT(//'$Input filename (CR to quit):  ')
	READ(5,1003) INFILE
1003	FORMAT(A)
	IF (INFILE(:5).EQ.'     ') STOP
	INQUIRE(FILE=INFILE, NAME=FILENAME,EXIST=EFLG,RECL=I,
     .    ORGANIZATION=ORG,ACCESS=ACC,RECORDTYPE=RECTYP)

	WRITE(6,1004)FILENAME,I,org,acc,rectyp
1004	format(' ',A50,/' RECL=',I7,' ORG=',A12,' ACCESS=',A12,
     .  ' RECTYP=',A12)
	goto 5
	end