C MODULE: AREA1_COMMON.INC
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
C$$$$							$$$$
C$$$$		M. Sheehan				$$$$
C$$$$		UNC-Wilmington				$$$$
C$$$$		Systems Programming			$$$$
C$$$$							$$$$
C$$$$		VERSION 1.0				$$$$
C$$$$                                                   $$$$
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
C$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
C
C	This module contains the declarations for a common
C	block named AREA1.  The module is referenced by a
C	FORTRAN	INCLUDE in many of the Subroutines of the
C	SCANNER system.
C
C	Creation Date:	24-Feb-1986
C
C       VER	NATURE OF CHANGE(S)
C       ===	===================
C	1.0	Baseline System - 24-Feb-1986
C
c
c		Set up LUN vars & filename
c
	INTEGER*4	LUN
	CHARACTER*256	FILENAME
	INTEGER*2	FILENAME_SIZE
c
c		set up QIOW structures
c
	integer*2 input_chan		! I/O Channel
	integer prompt_size		! size of prompt
c
c		Status block for QIOW
c
	STRUCTURE /IOSTAT_BLOCK/
	INTEGER*2	IOSTAT, 	!RETURN STATUS
	2		TERM_OFFSET, 	!LOCATION OF LINE TERMINATOR
	3		TERMINATOR, 	!VALUE OF TERMINATOR
	4		TERM_SIZE	!SIZE OF TERMINATOR
	END STRUCTURE
	RECORD /IOSTAT_BLOCK/ IOSB
c
	COMMON  /AREA1/ FILENAME, FILENAME_SIZE, LUN,
	2	INPUT_CHAN, IOSB, SCANNER_STATUS
c