C..TTYTST     BY BOHDEN K. CMAYLO      FEB 1 1982
C..	THIS ROUTINE TESTS A TERMINAL TO SEE IF LOGGED ON, 
C..	IF NOT, THEN ATTACHES IT AND READS SIGNON INFO
C..	AND CHECKS AGAINST ACNT FILE FOR OK, IF OK,
C..	ALLOWS SIGNON, IF NOT, REPORTS TO TT0:
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