SUBROUTINE DETACH
C
C	ROUTINE TO DETACH A RUNNING TASK FORM THE
C	TERMINAL DEVICE (LUNS 5&6) AS IN PASCAL PROGRAMS
C
	CALL WTQIO("2000,5)
	CALL WTQIO("2000,6)
	RETURN
	END

	SUBROUTINE SPWNIT
C
C       ROUTINE TO SPAWN MCR WITH COMMAND LINE '@ZZREF'
C
	IMPLICIT INTEGER (A-Z)
	LOGICAL*1 CMDLIN(8)
	REAL*4 MCR
	DATA MCR/6RMCR.../,CMDLIN/'@','Z','Z','R','E','F',0,0/
	CALL SPAWN(MCR,,,1,,,,CMDLIN,6)
	RETURN
	END