define	verb	ENTER
	image		sys$disk:[]enter
	parameter	p1,
			value(type=$file),
			label=FILENAME
	qualifier	FID,value(list,required,type=$number)
	disallow	not(FID)