C..HOLD.FTN     BY BOHDEN K. CMAYLO      FEB 1 1982
C..	THIS ROUTINE HOLDS A TERMINAL UNTIL PASSWORD ENTERED
C..
	BYTE IPASS(80),IN(80)
	IQPW=ISTXQT(IPASS)
	IF(IQPW.LE.0)
     1 WRITE(1,11)
11	FORMAT(//'$ ENTER PASSWORD=')
	IF(IQPW.LE.0)
     1 READ(1,12)IQPW,(IPASS(I),I=1,IQPW)
12	FORMAT(Q,80A1)
C..
C..	ENABLE AST FOR READ
C..
	WRITE(1,10)
10	FORMAT(50(/))
2	LINE=0
1	CALL RDAST(LINE)
C..
C..	WAIT LOOP
C..
	CALL WAIT(5,2)
	IF(LINE.EQ.0) GO TO 1
C..
C..	READ INFO
C..
	CALL GETLIN(IQ,IN)
	IF(IQ.NE.IQPW) GO TO 2
C..
C..	CHECK OUT PASSWORD
C..
	DO 3 I=1,IQ
	IF(IPASS(I).NE.IN(I)) GO TO 2
3	CONTINUE
C..
C..	FINISHED, EXIT
C..
	CALL EXIT
	END