C FILDAT.INC	850213		Define stuff for FILE.FLX subr
 
	BYTE      DAT(9)	!date in ASCII
	INTEGER*2 FLL		!LUN for output listing file
	LOGICAL*2 FLLON		!.T. if output to FLL file on
	INTEGER*2 FLX		!LUN for main level input
	LOGICAL*2 FORT		!.T. if fort output desired
	INTEGER*2 FTN		!LUN for code output
	BYTE      FVER(21)	!ASCII FLECS version ident
	INTEGER*2 LINCNT  	!# lines left for current page
	BYTE      LINE(106)	!task command line
	LOGICAL*2 LIST		!.T. if listing output desired
	BYTE      NAMEHD(6)	!ASCII char from .NAME directive
	INTEGER*2 PAGENO  	!current FLL page #
	LOGICAL*2 SPON		!state of /SP switch
	BYTE      TIM(8)  	!time in ASCII
 
	COMMON /FILES/ PAGENO,LINCNT,FORT,LIST,FLL,FTN,FLX,
	1 SPON,FLLON,LINE,NAMEHD,
	2 FVER,DAT,TIM
 
C END-OF-FILE FILDAT.INC