SUBROUTINE TKCNF(OK,STARS,BASES,N)
C
C	Subroutine to auto-configue the TREK game
C
C	The command file may be in the format;
C
C	value,description
C
	INCLUDE 'TRKCOMMON.FTN'
	REAL LAUNCH
	INTEGER SCAN,WHOM,CREW,HYPER,TORPS
	LOGICAL*1 THRU,XSHIP,CLOAK,CLON,FBASE
	BYTE UNIV,MESSAG,INITLS,CLRIT(2),CMTS(80)
	DATA CLRIT/"33,'K'/
C
	OPEN (UNIT=2, FILE='TREK.CNF',READONLY,TYPE='OLD',ERR=100)
	READ (2,1) STARS,CMTS
1	FORMAT (F10.0,80A1)
	IF (STARS.LT.0.OR.STARS.GT.15) OK=.FALSE.
	READ (2,1) BASES,CMTS
	IF (BASES.LT.0.OR.BASES.GT.10) OK=.FALSE.
	READ (2,2) N,CMTS
2	FORMAT (I6,80A1)
	IF (N.LT.0.OR.N.GT.10) OK=.FALSE.
	READ (2,1)RCNTRL(7),CMTS
	IF (RCNTRL(7).LT.0.OR.RCNTRL(7).GT.1000) OK=.FALSE.
	READ (2,1) RCNTRL(8),CMTS
	IF (RCNTRL(8).LT.0.OR.RCNTRL(8).GT.2000) OK=.FALSE.
	READ (2,2) IHOLE,CMTS
	IF (IHOLE.LT.1.OR.IHOLE.GT.8) GOTO 100
	DO 3, I=1,IHOLE
	READ (2,1) HWARP(I),CMTS
	IF (HWARP(I).LT.0.OR.HWARP(I).GT.8) OK=.FALSE.
3	CONTINUE
	READ (2,2) ICNTRL(1),CMTS
	IF (ICNTRL(1).LT.0.OR.ICNTRL(1).GT.10000) OK=.FALSE.
	READ (2,2) ICNTRL(3),CMTS
	IF (ICNTRL(3).LT.2.OR.ICNTRL(3).GT.20) OK=.FALSE.
	READ (2,2) ICNTRL(4),CMTS
	IF (ICNTRL(4).LT.2.OR.ICNTRL(4).GT.20) OK=.FALSE.
	READ (2,2) ICNTRL(5),CMTS
	IF (ICNTRL(5).LT.2.OR.ICNTRL(5).GT.20) OK=.FALSE.
	READ (2,2) ICNTRL(6),CMTS
	IF (ICNTRL(6).LT.2.OR.ICNTRL(6).GT.10) OK=.FALSE.
	READ (2,2) I1,CMTS
	CLOSE (2)
	RETURN
100	OK=.FALSE.
	CLOSE(2)
	RETURN
	END