define type sort
	keyword	name
	keyword	value
	keyword	ascending
	keyword	descending

define verb gensym
	image def:gensym
	parameter p1,label=file,prompt="File",
			value (required,list,type=$infile)
	qualifier basic,placement=positional,
			value (type=$outfile)
	qualifier cc,placement=positional,
			value (type=$outfile)
	qualifier confirm,placement=positional
	qualifier dcl,placement=positional,
			value (type=$outfile)
	qualifier debug,placement=positional
	qualifier define,placement=positional
	qualifier fortran,placement=positional,
			value (type=$outfile)
	qualifier global,default
	qualifier list,placement=positional,default,
			value (type=$outfile)
	qualifier local
	qualifier log,placement=positional
	qualifier macro,placement=positional,
			value (type=$outfile)
	qualifier pascal,placement=positional,
			value (type=$outfile)
	qualifier sort,placement=positional,
			nonnegatable,
			value (required,list,type=sort)
	qualifier symbol,placement=positional,
			value (type=$outfile)