SIGN
* SIGN ( a -- )

put the sign of the value into the hold-space, this is
the forth-style output formatting, see HOLD

FORTH/ANS core (dpANS.6.1.2210) ordinary primitive