!*** MODULE $PCCDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  PRINTER/TERMINAL CARRIAGE CONTROL SPECIFIERS
 ! --
	PARAMETER PCC$M_CHAR = '0000001F'X
	PARAMETER PCC$M_EIGHTBIT = '00000040'X
	PARAMETER PCC$M_SINGLE = '00000080'X
	PARAMETER PCC$M_LINECNT = '0000007F'X
	PARAMETER PCC$_FTN_SINGLE = '00000020'X	 !  SINGLE SPACE 
	PARAMETER PCC$_FTN_DOUBLE = '00000030'X	 !  DOUBLE SPACE 
	PARAMETER PCC$_FTN_PAGE = '00000031'X	 !  PAGE SPACE 
	PARAMETER PCC$_FTN_OVRPRT = '0000002B'X	 !  OVER PRINT 
	PARAMETER PCC$_FTN_PROMPT = '00000024'X	 !  PROMPT 
	STRUCTURE /PCCDEF/
	    INTEGER*2 PCC$W_FORTRAN			 !  FORTRAN FIELD 
	    UNION
	        MAP
	        BYTE      PCC$B_PREFIX
	        END MAP
	        MAP
	        END MAP
	        MAP
	        END MAP
	    END UNION
	    UNION
	        MAP
	        BYTE      PCC$B_POSTFIX			 !  POSTFIX FIELD 
	        END MAP
	        MAP
	            PARAMETER PCC$S_CHAR = 5
	            PARAMETER PCC$V_CHAR = 0		 !  CHARACTER FIELD 
	            PARAMETER PCC$S_EIGHTBIT = 1
	            PARAMETER PCC$V_EIGHTBIT = 6		 !  EIGHTBIT CHARACTER SET 
	            PARAMETER PCC$S_SINGLE = 1
	            PARAMETER PCC$V_SINGLE = 7
	            BYTE %FILL (1)				 !  SINGLE CHARACTER 
	        END MAP
	        MAP
	            PARAMETER PCC$S_LINECNT = 7
	            PARAMETER PCC$V_LINECNT = 0		 !  LINE COUNT FOR NEWLINES 
	        BYTE %FILL (1)
	        END MAP
 !  FORTRAN CONSTANTS 
	    END UNION
	END STRUCTURE	! PCCDEF
!DEC$ END OPTIONS