	IF (JBHOLD().NE.0) WRITE(7,100)
1	PAUSE ' Before SUSPEND'
	IF (JBSPND().NE.0) WRITE(7,101)
	PAUSE ' Before RESUME'
	IF (JBRSUM().NE.0) WRITE(7,102)
	GOTO 1
100	FORMAT(' JBHOLD error!')
101	FORMAT(' JBSPND error!')
102	FORMAT(' JBRSUM error!')
	END
