C..      DATAMAIN.FTN   BOHDEN K. CMAYLO    DEC 81
C..
C..    DATAENTRY MAIN ROUTINE
C..
C.. LONG VERSION = (5,999) WORDS AND (5000) BYTES
C.. SHORT VERSION = (5,99) WORDS AND (1000) BYTES
C..
	BYTE INPUT,MARRAY
	COMMON/IOCOM/INCR,IPR,IEOF,INPUT(512),INARR(5,999)
	COMMON/XMAXID/MAXIDX
	COMMON/XIOCOM/MARRAX,MARRAY(5000)
	DATA MARRAX,MAXIDX/5000,999/
C..
C..    CALL PROGRAM WITH MAX PARAMETERS
C.
	CALL DATAEN
	CALL EXIT
	END