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	*
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	*-----------------------------------------------------------------------