C.. ISTXQT.FTN    BOHDEN K. CMAYLO   APR 1982
	FUNCTION ISTXQT(INPUT)
C..
C..	THIS FUNCTION OBTAINS THE COMMAND LINE FROM GETMCR
C..	AND RETURNS THE LENGTH
C..
C..	THIS FUNCTION ALSO CHECKS FOR THE FIRST 4 BYTES WHICH
C..	INDICATES RUN BY CCL OR INS INSERTED /CMD PARAMETER
C..
	BYTE INTSKB(32),NAME(6),INCCL(3),INPUT(10)
	DIMENSION INTASK(16)
	EQUIVALENCE (INTASK,INTSKB)
	DATA INCCL/'C','C','L'/
C..
C..	GET MCR COMMAND LINE (IF ANY)
C..
	CALL GETMCR(INPUT,IDS)
	IF(IDS.LE.0) IDS=0
	IF(IDS.LE.0) GO TO 100
C..
C..	CHECK FOR TASK NAME
C..
	CALL GETTSK(INTASK)
C.
C..	CHANGE RADIX TO ASCII
C..
	CALL R50ASC(6,INTASK,NAME)
C..
C..	CHECK FOR XXXTnn
C..
	DO 1 I=1,3
	IF(INPUT(I).EQ.INCCL(I)) GO TO 1
	IF(NAME(I).NE.INPUT(I)) GO TO 2
1	CONTINUE
C..
C..	CHECK OUT  OK, DELETE UP TO FIRST BLANK
C..
3	I=3
	IF(IDS.LE.3) GO TO 5
	DO 4 I=4,IDS
	IF(INPUT(I).EQ.' ') GO TO 5
4	CONTINUE
C..
C..	NO FOUND BLANK, RETURN
C..
	GO TO 100
C..
C..	CHECK FOR ...XXX
C..
2	DO 6 I=1,3
	IF(INPUT(I).NE.NAME(I+3)) GO TO 9
6	CONTINUE
	GO TO 3
C..
C..	CHECL FOR CCL
C..
9	DO 8 I=1,3
	IF(INPUT(I).NE.INCCL(I)) GO TO 100
8	CONTINUE
	GO TO 3
C..
C..	DELETE NAME FROM CMD
C..
5	CALL BYTEDO(INPUT(1),INPUT(IDS),INPUT(I+1))
	IDS=IDS-I
	CALL DOBYTE(INPUT(IDS+1),INPUT(IDS+I),' ')
C..
C..	RETURN LENGTH OF COMMAND STRING
C..
100	ISTXQT=IDS
	RETURN
	END