DEFINE VERB _INQUIRE
	IMAGE SYS$ENVROOT:[INQUIRE]INQUIRE
!
	PARAMETER P1, LABEL=SYMBOL, PROMPT="Symbol", VALUE(REQUIRED)
	PARAMETER P2, LABEL=PROMPT
!
	QUALIFIER BUFLEN, NONNEGATABLE, VALUE(REQUIRED,TYPE=$NUMBER)
	QUALIFIER DEVICE, NONNEGATABLE, VALUE(REQUIRED,TYPE=$INFILE)
	QUALIFIER ECHO, DEFAULT
	QUALIFIER EOF, NONNEGATABLE, VALUE(REQUIRED)
	QUALIFIER ERASE, NONNEGATABLE, VALUE(REQUIRED,TYPE=ERASE_TYPE)
	QUALIFIER ESCAPE
	QUALIFIER ET
	QUALIFIER FILTER, DEFAULT
	QUALIFIER GLOBAL, NONNEGATABLE
	QUALIFIER LOCAL, DEFAULT, NONNEGATABLE
	QUALIFIER LOWER, DEFAULT
	QUALIFIER POSITION, NONNEGATABLE, VALUE(REQUIRED,LIST)
	QUALIFIER HLPPFX, NONNEGATABLE, VALUE(REQUIRED)
	QUALIFIER HLPSFX, NONNEGATABLE, VALUE(REQUIRED)
	QUALIFIER HLPLIB, NONNEGATABLE, VALUE(REQUIRED,TYPE=$INFILE)
	QUALIFIER PROMPT, LABEL=PROMPTQUAL, VALUE(REQUIRED)
	QUALIFIER PUNCTUATION, DEFAULT
	QUALIFIER PURGE
	QUALIFIER REPOSITION
	QUALIFIER REPROMPT, DEFAULT
	QUALIFIER SECONDS, NONNEGATABLE, VALUE(REQUIRED)
	QUALIFIER TERMINATOR, VALUE
	QUALIFIER TIMEOUT, VALUE(REQUIRED)
	QUALIFIER TRMCHARS, VALUE(LIST,TYPE=TRMCHARS_TYPE)

DEFINE TYPE TRMCHARS_TYPE
	KEYWORD CHARACTERS, VALUE(REQUIRED)
	KEYWORD CONTROL, VALUE(REQUIRED)

DEFINE TYPE ERASE_TYPE
	KEYWORD EOL
	KEYWORD EOS
	KEYWORD LINE
	KEYWORD SCREEN