.he 'NEGATE''Page %'
.fo 'Steven Hardy''January 78'
NEGATE	This function negates its numerical argument;  i.e. given,
say, 3 it returns -3 and given -4 it returns +4.  NEGATE could be 
defined as:
 	: FUNCTION NEGATE(NUMBER);
 	:	0 - NUMBER
 	: END;
