SUBROUTINE CHKCMD(COMMND,OK)
C
C      VALIDATES COMMANDS FOR PLAYER
C
	CHARACTER*2 COMMND
	CHARACTER*22 CMDS
	DATA CMDS/'AFLBCWHTKZNXPOMSRQDEJ '/
	LOGICAL*1 OK
C
C
	OK = .FALSE.
	DO 10001 I=1,22
	IF (COMMND(1:1).EQ.CMDS(I:I)) OK = .TRUE.
10001	CONTINUE
	IF (.NOT.OK.OR.(COMMND(1:1).NE.'L'.AND.COMMND(1:1).NE.'F'.AND.
	1 COMMND(1:1).NE.'T')) GOTO 10005
C
	IF (COMMND.NE.'LS'.AND.COMMND.NE.'LB'.AND.COMMND.NE.'LE'.AND.
	1  COMMND.NE.'LF'.AND.COMMND.NE.'FA'.AND.COMMND.NE.'FR'.AND.
	1  COMMND.NE.'TO'.AND.COMMND.NE.'TR')
	2  OK = .FALSE.
C
10005	RETURN
	END