C
C Common definitions for INQUIRE program
C
C
C o Parameters
C
	PARAMETER INQ$K_INUNIT=1		!Unit for read if not terminal
     $		, INQ$K_OUTUNIT=INQ$K_INUNIT+1	!Unit for write if not terminal
C
C o Codes
C
	EXTERNAL CLI$_ABSENT, CLI$_NEGATED, CLI$_DEFAULTED
	EXTERNAL CLI$_VALCNVERR, CLI$_PRESENT, CLI$_INVQUAL
C
C o Functions
C
	EXTERNAL CLI$PRESENT, CLI$GET_VALUE, INQ$PACK_STR
	INTEGER CLI$PRESENT, CLI$GET_VALUE, INQ$PACK_STR
C
C o Common
C
C	Numeric common
C
	INTEGER INQ_RESPONSELEN, INQ_PROMPTLEN, INQ_SYMBOLLEN
	INTEGER INQ_EOFLABELLEN, INQ_TIMEOUTLABELLEN, INQ_EXITLABELLEN
	INTEGER INQ_HELPFILELEN, INQ_TERMSYMLEN
	INTEGER INQ_HELPPFXLEN, INQ_HELPSFXLEN
	INTEGER INQ_CLITABLE, INQ_CHAN /0/, INQ_QIOFUNC
	INTEGER INQ_TIMEOUTSECS, INQ_DEVCLASS, INQ_DEVDEPEND2
	INTEGER INQ_ROW, INQ_COL, INQ_TERMLEN, INQ_TERMPOS, INQ_BUFLEN
	LOGICAL INQ_TERMINATOR, INQ_EOF, INQ_TIMEOUT
	LOGICAL INQ_REPOSITION, INQ_POSITION, INQ_HELPLIB
	LOGICAL INQ_ERASE_EOL, INQ_ERASE_EOS, INQ_ERASE_LINE
	LOGICAL INQ_ERASE_SCREEN, INQ_REPROMPT, INQ_TERMVAL
	LOGICAL INQ_LOWER, INQ_PROGRAM, INQ_TRMCHARS
	BYTE	INQ_TRM(32)
	COMMON /INQUIRE$COM/
     $		  INQ_RESPONSELEN, INQ_PROMPTLEN, INQ_SYMBOLLEN
     $		, INQ_EOFLABELLEN, INQ_TIMEOUTLABELLEN, INQ_EXITLABELLEN
     $		, INQ_HELPFILELEN, INQ_TERMSYMLEN
     $		, INQ_HELPPFXLEN, INQ_HELPSFXLEN
     $		, INQ_CLITABLE, INQ_CHAN, INQ_QIOFUNC
     $		, INQ_TIMEOUTSECS, INQ_DEVCLASS, INQ_DEVDEPEND2
     $		, INQ_ROW, INQ_COL, INQ_TERMLEN, INQ_TERMPOS, INQ_BUFLEN
     $		, INQ_TERMINATOR, INQ_EOF, INQ_TIMEOUT
     $		, INQ_REPOSITION, INQ_POSITION, INQ_HELPLIB
     $		, INQ_ERASE_EOL, INQ_ERASE_EOS, INQ_ERASE_LINE
     $		, INQ_ERASE_SCREEN, INQ_REPROMPT, INQ_TERMVAL
     $		, INQ_LOWER, INQ_PROGRAM, INQ_TRMCHARS
     $		, INQ_TRM
C
C	Character common
C
	CHARACTER*255 INQ_RESPONSE, INQ_PROMPT, INQ_SYMBOL
	CHARACTER*80 INQ_TIMEOUTLABEL, INQ_EOFLABEL, INQ_EXITLABEL
	CHARACTER*80 INQ_HELPFILE, INQ_TERMSYM, INQ_DEVICE
	CHARACTER*255 INQ_HELPPFX, INQ_HELPSFX
	COMMON /INQUIRE$CHAR/ INQ_RESPONSE, INQ_PROMPT, INQ_SYMBOL
     $		, INQ_TIMEOUTLABEL, INQ_EOFLABEL, INQ_EXITLABEL
     $		, INQ_HELPFILE, INQ_TERMSYM, INQ_DEVICE
     $		, INQ_HELPPFX, INQ_HELPSFX