C..  XQTOPT.FTN+XQTGET.FTN+XQTON.FTN+XQTOFF.FTN   BOHDEN K. CMAYLO  MAR 1982
C..  GETS XQT OPTIONS FROM MCR LINE OR RUN */PRM=OPTIONS
	FUNCTION XQTOPT(INPRM)
C..
C..	THIS ROUTINE CHECKS FOR XQT OPTIONS IN "TSK options"
C..
	BYTE INPRM,IAYE,INXQT
	COMMON/XQTLST/IFIRST,IAYE(2),INXQT(26)
	IF(IFIRST.NE.1) CALL XQTGET
	IN=INPRM-IAYE(1)+1
	IF(IN.LT.1.OR.IN.GT.26) IN=INPRM-IAYE(2)+1
	IF(IN.LT.1.OR.IN.GT.26) XQTOPT=0
	IF(IN.GE.1.AND.IN.LE.26) XQTOPT=INXQT(IN)
	RETURN
	END
	SUBROUTINE XQTGET
C..
C..	THIS ROUTINE DECODES MCR COMMAND LINE "TSK options"
C..
	BYTE INPUT,IAYE,INXQT
	COMMON/INPUT/INPUT(132)
	COMMON/XQTLST/IFIRST,IAYE(2),INXQT(26)
	DATA IFIRST,IAYE,INXQT/0,'A','a',26*-1/
	IQ=ISTXQT(INPUT)
	IFIRST=1
	IF(IQ.LE.0) RETURN
	DO 1 I=1,IQ
	IN=INPUT(I)-IAYE(1)+1
	IF(IN.LT.1.OR.IN.GT.26) IN=INPUT(I)-IAYE(2)+1
	IF(IN.LT.1.OR.IN.GT.26) GO TO 1
	INXQT(IN)=1
1	CONTINUE
	RETURN
	END
	FUNCTION XQTON(INPRM)
C..
C..	THIS ROUTINE TURNS ON FOR XQT OPTIONS IN "TSK options"
C..
	BYTE INPRM,IAYE,INXQT
	COMMON/XQTLST/IFIRST,IAYE(2),INXQT(26)
	IN=INPRM-IAYE(1)+1
	IF(IN.LT.1.OR.IN.GT.26) IN=INPRM-IAYE(2)+1
	IF(IN.LT.1.OR.IN.GT.26) XQTON=0
	IF(IN.GE.1.AND.IN.LE.26) INXQT(IN)=1
	RETURN
	END
	FUNCTION XQTOFF(INPRM)
C..
C..	THIS ROUTINE TURNS OFF FOR XQT OPTIONS IN "TSK options"
C..
	BYTE INPRM,IAYE,INXQT
	COMMON/XQTLST/IFIRST,IAYE(2),INXQT(26)
	IN=INPRM-IAYE(1)+1
	IF(IN.LT.1.OR.IN.GT.26) IN=INPRM-IAYE(2)+1
	IF(IN.LT.1.OR.IN.GT.26) XQTOFF=0
	IF(IN.GE.1.AND.IN.LE.26) INXQT(IN)=-1
	RETURN
	END