18.6.2.2488.20
XHOLD
x-hold
XCHAR EXT
 
( xchar -- )

Adds xchar to the picture numeric output string. An ambiguous condition exists if XHOLD executes outside of a <# #> delimited number conversion.

Implementation:
CREATE xholdbuf 8 ALLOT

: XHOLD ( xchar -- ) xholdbuf TUCK XC!+ OVER - HOLDS ;