ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
c
c	This is a routine to delete CB_MBX in the case that the CB manager
c	fails to exit properly.
ccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
	implicit integer(a-z)
	character*255 text
	open(unit=9,file='CB_MBX',status='OLD',recl=255)
	text(1:1)=char(99)
	write(9,1001)text
 1001	format(a)
	stop
	end
