gpamela/gpgar/xinput.inc

*
* $Id$
*
* $Log$
*
*
* xinput.inc
*
*CMZ :  3.00/00 02/05/2001  20.42.25  by  Unknown
*-- Author :
*-----------------------------------------------------------------------
*   INPCOM - Common blocks used by the input routines to store the input
*   INPCHR   line and some related information.
*   VARIABLES : NCHAR(I)    : Number of characters in word I.
*               INDWRD(I)   : Index in string of word I.
*               ERRCDE(I)   : Error code for word I.
*               NWORD       : Number of words not > MXWORD.
*               STRING      : The input line.
*               PROMPT      : Prompt string (printed if LPROM is .TRUE.)
*               LUN         : Logical unit from which input is read.
*               ICHSET      : 0: character set ?, 1: ASCII, 2: EBCDIC
*               LINREC      : Input recording on/off.
*               ARGSTR      : String with input file arguments.
*               EOFSTR      : EOF marker string.
*               LUNSTR      : Input reference, 1=file, 2=EOF, 3=args
*   (Last changed on  7/11/00.)
*-----------------------------------------------------------------------
1	cafagna	3.1	*
2			* $Id$
3			*
4			* $Log$
5			*
6			*
7			* xinput.inc
8			*
9			*CMZ : 3.00/00 02/05/2001 20.42.25 by Unknown
10			*-- Author :
11			*-----------------------------------------------------------------------
12			* INPCOM - Common blocks used by the input routines to store the input
13			* INPCHR line and some related information.
14			* VARIABLES : NCHAR(I) : Number of characters in word I.
15			* INDWRD(I) : Index in string of word I.
16			* ERRCDE(I) : Error code for word I.
17			* NWORD : Number of words not > MXWORD.
18			* STRING : The input line.
19			* PROMPT : Prompt string (printed if LPROM is .TRUE.)
20			* LUN : Logical unit from which input is read.
21			* ICHSET : 0: character set ?, 1: ASCII, 2: EBCDIC
22			* LINREC : Input recording on/off.
23			* ARGSTR : String with input file arguments.
24			* EOFSTR : EOF marker string.
25			* LUNSTR : Input reference, 1=file, 2=EOF, 3=args
26			* (Last changed on 7/11/00.)
27			*-----------------------------------------------------------------------