IMPLICIT INTEGER (A-Z)
	INTEGER*2 UIC(2)
	BYTE IDEV(16),CHR,IOFFDV(10)
	CHARACTER DEVNAM*16,CHAR*1,OFFDEV*10
	EQUIVALENCE (CHAR,CHR),(UIC(1),IUIC),(IOFFDV,OFFDEV)
	OFDLEN=IGETCMD(IOFFDV,10)
	IF(LIB$LOCC(':',OFFDEV(1:OFDLEN)).NE.0)
     1	OFDLEN=LIB$LOCC(':',OFFDEV(1:OFDLEN))-1
	STS=DEVINI(0)
	IF((STS.AND.1).NE.1) CALL EXIT(STS)
10	CALL DEVLST(IDEV,UNIT,PID,IUIC,EOF)
	IF(EOF.NE.0) GOTO 100
	CHR=IDEV(5)
	DEVNAM(1:1)=CHAR
	DO 20 I=6,16
	IF(IDEV(I).EQ.0) GOTO 30
	CHR=IDEV(I)
	DEVNAM(1:I-4)=DEVNAM(1:I-5)//CHAR
20	CONTINUE
	I=17
30	LSTCHR=I-5
	IF(LSTCHR.NE.OFDLEN-1) GOTO 10
	IF(DEVNAM(1:LSTCHR).NE.OFFDEV(1:LSTCHR)) GOTO 10
	DECODE(1,1003,OFFDEV(OFDLEN:OFDLEN))OFFUNI
1003	FORMAT(Z1)
	IF(UNIT.NE.OFFUNI) GOTO 10
	CALL OFFLIN
100	CONTINUE
	END