C	USE THE NEXT 19 LINES FOR RSX11M/V3.1 TO DO VAXNET TECO COMMAND.
	PROGRAM TECIN
	IMPLICIT INTEGER*2 (A-Z)
	LOGICAL*1 B,SB
	COMMON/A/ PR(6),SB(4),B(100)
	EQUIVALENCE (N,SB(3))
	OPEN(UNIT=1,NAME='SR.FTN',TYPE='NEW',
	1   CARRIAGECONTROL='LIST')
	PR(2)=100
	CALL GETADR(PR,B)
100	CALL WTQIO("001020,5,5,,SB,PR)
	IF(SB(1).LT.0) GO TO 200
	IF(N.EQ.0) GO TO 200
	IF(B(1).NE.1HI) STOP 'DONE'
	IF(N.EQ.1) WRITE(1,1)
	IF(N.GT.1) WRITE(1,1) (B(I),I=2,N)
200	WRITE(5,*) '*'
1	FORMAT(100A1)
	GO TO 100
	END