**********************************************************************
* Name:		COERCE
* Desc:		Object conversions
**********************************************************************
ASSEMBLE
	CON(1)	8
RPL
xNAME COERCE
::
  CK1&Dispatch
   real		COERCE
   hxs		HXS>#
   bint		UNCOERCE
   ereal	%%>%
   ecmp		C%%>C%
   char		CHR>$
   sym		x>NUM
;

**********************************************************************