SUBROUTINE SPOOL(N)
	DATA STOPSP/6RNSPOOL/
	IF(N.NE.0)GOTO10
	CALL SEND(STOPSP,'CCL /U                    ',)
	CALL USTP(STOPSP,)
	CALL STOP
	CALL ASNLUN(6,'LP',0)
	CALL QIO("1400,6,13,,,,)
	CALL STOPFR(13,)
	RETURN
10	CALL QIO("2000,6,13,,,,)
	CALL STOPFR(13,)
	CALL SEND(STOPSP,'CCL /S                    ',)
	CALL USTP(STOPSP,)
	CALL STOP
	RETURN
	END