.ENABLE	SUBSTITUTION
	.ASKS	DEV WHERE IS THE TAPE MOUNTED [MMU:]
	FLX 'DEV'/ZE/DO/DNS:800
	.IF	<EXSTAT> NE 1	.STOP
	.TESTFILE	ACTFIL.OBJ
	.IF	<FILERR> NE 1	LBR ACTFIL=LB:[1,24]MCR/EX:ACTFIL
	.TESTFILE	GNBLK.OBJ
	.IF	<FILERR> NE 1	LBR GNBLK=LB:[1,24]MCR/EX:GNBLK
	.TESTFILE	GETNUM.OBJ
	.IF	<FILERR> NE 1	LBR GETNUM=LB:[1,24]MCR/EX:GETNUM
	FLX 'DEV'/DO=UIC.OBJ/RS,ACTFIL.OBJ,GNBLK.OBJ,GETNUM.OBJ
	FLX 'DEV'/DO/-RW=UICGO.CMD/RS,UICBLD.CMD,UIC.MAC,MAKDOS.CMD
	FLX 'DEV'/DO/-RW=LB:[1,2]UIC.HLP/RS,LB:[1,1]EXELIB.OLB
	.IFINS	MTA	MTA 'DEV'/RW