BYTE BUF(80)
	REAL*4 QNAME
	DATA QNAME/6RQ DELQ/
	CALL GETMCR(BUF,LEN)
	IF(LEN.LT.5)STOP '-- INVALID COMMAND'
	DECODE(LEN,1,BUF)MSGID
1	FORMAT(4X,O<LEN-4>)
	IF(MSGID.EQ.0)STOP '-- CANNOT DELETE FIRST MESSAGE'
	CALL VS2INI(1,15)
	CALL VS2WLB(QNAME,MSGID,2,ISTAT)
	IF(ISTAT.LE.0)STOP '-- FAILED TO REQUEST DELETION'
	END