C*	DEVUIC	- .SET DEFAULT DEVICE/UIC FOR INDIRECT MCR
C
	PROGRAM DEVUIC
C
	DIMENSION ILUN(6), ITSK(16)
	BYTE BUF(15), BTSK(32), BUNIT
	EQUIVALENCE (ITSK,BTSK), (ILUN(2),BUNIT)
C
	OPEN (UNIT=1, NAME='DEVUIC.TMP', TYPE='NEW',
	1	CARRIAGECONTROL='LIST')
C
	CALL GETLUN (1, ILUN,)
	CALL GETTSK (ITSK,)
C
	ENCODE (15, 500, BUF) ILUN(1),BUNIT, BTSK(16),BTSK(15)
 500	FORMAT (A2,O2,':[',O3,',',O3,']"')
C
	CALL STBLK (BUF, BUF, 15)
	WRITE (1, 505)
 505	FORMAT ('.ENABLE GLOBAL')
	WRITE (1, 510) BUF
 510	FORMAT ('.SETS $DVUIC "',15A1)
	END